Casio FP-200 - Page 21

BUSINESS.J
340 FOR 1=0 TO K:GOSUB 54©
350 PRINT"TIME ";LEFT$(Tl1$(I> ,3);":";RIGHT$<Tll
$(!),2)
360 PRINT"SCHEDULE
11
:F'RINT SC1$(l)
370 Z$==INKEY$: IF Z$="
11
THEN 370 ELSE IF Z$='T" OR
Z$="k" THEN 400
380 PRINT:NEXT I
390 GOTO 50
400 'DELETION
410 PRINT"DO YOU WISH TO DELETE (Y/N)"
420 Z$=INKEY$:IF 2$=
1111
THEN 420 ELSE IF Z$="Y" OR
2$="y" THEN 430 ELSE 380
430 FOR J=0 TO 80:IF DES(J)=DTS AND VAL(Tl$(J))=V
AL<Tl1$(l)) THEN SC(J)=0:DE$(J)="":GOTO 't0 ELSE NEX
T J
440 'F'f-;;JNTER
450 LF'RINT"DATE
"; LEFT'!, (OT$, 2) ; "/";RI GHT4 ( DT$, 2
460 FOR 1=0 TO K:GOSUB 540
470 LPRINT"TIME
11
;LEFT$<TI1$(I) ,3); ": ";RIGHT$<T
11$(1) ,2)
480 LF'RINT"SCHEDULE
11
:
LPRINT SC 1 $ (I): LPRINT: 1\IEXT
I: GOTO 50
490 . INPUT
500 INF'UT"DATE ???? ";DE$(I)
510 IF DES(I):z:"Ql" THEN 40
520 SC ( I ) = 1 : I NF'UT
II
TI ME ???? " ; TI$ ( I )
530 F'RINT"SCHEDULE":INF'UT SC$(!) :RETUF:N
540 'CHARCTER STRING MANIPULATION
550 Tl1$(
1
I>=STR$(F(I>): IF LEN<TI1$(I) )==-4 THEN Til
$ < I > =
11
"+ T 11 $ ( I ) ELSE IF LEN< TI 1 <t-- < I > ) <~ THEI'~ TI l ~> ( T
>=" "+TI1$(I)
560 RETURN
570 END
Key in the program correctly, taking care not to confuse similar variable names
{e.g., SC$ with SC1$, Tl$ with Tl1$, etc.).
If a plotter-printer is not available, lines 310, 320, 440, 450,460,470, and 480
; need not be input.
25