Casio FP-200 - Page 89

------------------------UTILITY
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
n":PRINT
210 PRINT
11
2 ]Inverse calculato
n"
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
tion *"
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
TE 5,6:PRINT 25$
380 IF INKEY$="" THEN 380 ELSE GOTO 180
390 ·---------- INVERSE NUMBER OF DAYS CALCULATIO
N
400 CLS:PRINT "*Inverse number o{
a.tion*"
410 GOSUB 66(2)
days cc.dcul
93