Casio FP-200 - Page 20

rSCHEDUUNG--------------------------
24
1726 Bytes
111•1111ri••············ ··· · ········--·-~-ltt--------
10
20 'SCHEDULING
30
40 CLS:F'RINT"SCHEDULING"
50 PRINT"** MENU**"
6121 F'RINT"l NEW ENTRY"
70 PRINT"2 REFERRENCE":F'RINT"
80 F'RINT"3 ADDITIONAL ENTRY"
90 F'RINT"4 TERMINATION"
1.00 INF'UT"SELECT MENU"; 1~
110 IF A)4 OR A<l THEN 40
120 ON A GOTO 130,240,170,570
130 'NEW ENTRY
<DELETION)"
140 CLEAR:DIM SC(80) ,SC$(80) ,Tl$(80) ,DE$(80)
150 CLS:FOR 1=0 TO 80
160 GOSUB 490:NEXT
170 'ADDITIONAL ENTRY
180 CLS:FOR I=0 TO 80
190 IF SC(I)=l THEN 230
200 IF 1)79 THEN LOCATE 0,3:PRINT"DELETE ANY DATA
! '":FOR J=QJ TO 500:NEXT J:GOTO 40
210 GOSUB 490
220 IF I>=79 THEN 40
230 NEXT I
240 'REFERENCE
250 CLS: DIM F < 20 > , TI 1 $ < 212l > , SC 1 $ < 212l) : I NF'UT" DATE ??
?? ";OT$
260 K=-1:FOR 1=0 TO 80:IF DE$Cl)=DTS THEN K=K+l:F
( f<) =VAL (TI$ < I ) ) : SC 1 $<Kl =SC$ < I )
270 NEXT I
280 FOR I=K TO 121 STEP -1:FOR J=0 TO I-1
290 IF F<J>>F<J+ll THEN SF0=F(Jl:F(Jl=F(J+l):F(J+
1)=SF0:SF1S=SC1.S(J):SC1S(J)=SC1$(J+1):SC1$(J+l)=SF1
$
300 N~XT J,I
310 PRINT"DO YOU WISH TO OUTPUT TO PRINTER (Y/N)"
320 Z$=INKEY$:IF ZS="" THEN 320 ELSE IF ZS="Y" OR
ZS="y" THEN 440
330 CLS:PRINT"DATE
$ ,2)
"; LEFT$ <OT$, 2); "/"; RIGHTS <DT