Advertisement
- - - - - - - - - - - - - - - - - - - - - - - U T I L I T Y
2701
Byles
100
110 CLEAR 1024:DIM 8(3) ,G$(3l ,Y0$(6)
120 GOSUB 10QHZJ
130
140 CLS:PRINT T$
150
PRINT "Pr-inter- (Y/Nl
·"
160 ZS=IN~<EYS: IF ZS="Y" OR Z<1;:::.,"y
11
THEN PSW=l:GOTO
180
170 IF Z$=
11
N
11
OR Z$=
11
n
11
THEN PSW=(2) ELSE GOTO 160
180 ·---------- Menu
190 CLS:PRINT TS:PRINT
200 PRINT
11
1
]Number·
of
days
cal.culatio
":PRINT
210 PRINT
11
2 ]Inverse
calculato
"
220 Z$=INKEYS:IF 2$="1" THEN 240
230 IF Z$="2" THEN 390 ELSE GOTO 220
240 '========== NUMBER OF DAYS CALCULATION
250 CLS: PRINT
11
*
Number·
of
clays
c:alcula
ion
*"
260 GOSUB 660
270
GOSUB
710
280
NS=EN-SN
290 GOSUB 960
300
GE$=EGS:Y=EY:ZS=STR$(Y)
310 23$="
to
11
+ZS+STR$
(EM)
+"tt1-montll": Z4'l;=STR$ (ED
+"th-day "+YOS(EU>
320 Z5S=STR$(NSl+"days"
330
IF
PSW=0 THEN 360
340 LPRINT Z1S;Z2S:LPRINT Z3S;Z4S
350 LPRINT T2S:LPRINT Z5$:GOTO
180
360 CLS:PRINT Z1$:LOCATE 2,1:PRINT 72$
370 LOCATE 0,3:PRINT Z3S:LOCATE 2,4:PRINTZ4S:LOCA
E 5,6:PRINT
25$
380 IF
INKEY$="" THEN
380 ELSE GOTO 180
390 ·---------- INVERSE NUMBER OF DAYS CALCULATIO
400
CLS:PRINT "*Inverse number
o{
.tion*"
410
GOSUB 66(2)
days
cc.dcul
Advertisement
