Advertisement
r S C H E D U U N G - - - - - - - - - - - - - - - - - - - - - - - - - -
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
Advertisement
