05 REM-PROGRAM NAME:"EXP023"
07 REM- PROGRAM ADDS OR DELETES ACCOUNTS IN THE LEDGER FILE
10 OPEN "CR:" FOR INPUT AS FILE 1
20 OPEN "DF:LEDGER.MST" AS FILE 2
30 OPEN "DF:LEDGER.TMP" AS FILE 3
40 DIM #2,A$(1000)=61
50 DIM #3,B$(1000)=61
53 DIM C(82)
55 LET H$="000000000"
56 LET G$="000000000"
57 LET F$="000000000"
60 LET X=1: LET Y=1
70 INPUT LINE #1, C$
80 ON ERROR GOTO 450
81 LET K=LEN(C$)
82 CHANGE C$ TO C
83 LET C(K)=32
84 LET K=K-1
85 LET C(K)=32
86 CHANGE C TO C$
90 IF MID(C$,42,7)>MID(A$(X),1,7) GOTO 300
100 IF MID(C$,42,7)<MID(A$(X),1,7) GOTO 350
105 IF MID(C$,80,1)="D" GOTO 420
110 PRINT "LEDGER RECORD ALREADY EXISTS FOR";
     MID(C$,42,7)
120 GOTO 70
300 LET B$(Y)=A$(X)
310 LET X=X+1: LET Y=Y+1
320 GOTO 90
350 IF MID(C$,80,1)<>"A" THEN STOP
351 LET D$=MID(C$,42,7)       !ACCT NO
355 IF MID(C$,80,1)="D" GOTO 70
360 LET E$=MID(C$,5,27)         !DESCRIP
370 LET F$=MID(C$,34,8)         !BUDGET AMT
390 LET B$(Y)=D$+E$+" "+F$+G$+H$
395 LET Y=Y+1
400 GOTO 70
420 LET X=X+1
430 GOTO 70
450 IF ERR=11 GOTO 500
453 IF ERR=13 OR ERR=14 GOTO 465
459 PRINT "ERROR =";ERR
460 STOP
465 SLEEP(10)
467 RESUME
500 LET B$(Y)=A$(X)
505 LET B1$=B$(Y)
510 IF MID(B1$,1,9)="999999999" GOTO 600
520 LET X=X+1: LET Y=Y+1
530 GOTO 500
600 FOR X=1 TO 1000
610 LET A$(X)=B$(X)
620 IF MID(A$(X),1,9)="999999999" GOTO 700
630 NEXT X
700 KILL "DF:LEDGER.TMP"
710 CLOSE 1,2
720 END