Advertisement
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.
Advertisement
