05 REM - PROGRAM NAME:"EXP021"
10 REM - CREATES MASTER LEDGER FILE
20 OPEN "CR:" FOR INPUT AS FILE 1
30 OPEN "DF:LEDGER.MST" AS FILE 2
40 DIM #2,B$(1000)=61
50 OPEN "LP:" FOR OUTPUT AS FILE 3
60 LET X=1
70 LET H$="000000000"
80 LET G$="000000000"
90 LET F$="000000000"
95 FIELD #1, 80 AS A$
100 GET #1
110 ON ERROR GOTO 500
120 LET D$=MID(A$,42,7)      !ACCOUNT NUMBER
130 LET E$=MID(A$,5,27)      !DESCRIP OF ACCOUNT
140 LET F$=MID(A$,34,8)      !BUDGETED AMOUNT
150 LET B$(X)=D$+E$+"0"+F$+G$+H$
160 LET X=X+1
170 GOTO 100
500 IF ERR=13 THEN 600
510 IF ERR=11 THEN 650
520 IF ERR=14 THEN 600
540 PRINT "ERROR =";ERR
550 STOP
600 SLEEP(10)
610 RESUME 
650 LET B$(X)="999999999"
660 LET X=X+1
670 LET B$(X)=CHR$(26)
700 CLOSE 1,2,3
710 STOP
720 END