10!	OUTPUT FILE DUMP PROGRAM
15&
19 RESTORE
20 ON ERROR GO TO 200
30 INPUT "DUMP FOR WHICH KB#"; K%
40 INPUT "OUTPUT DEVICE";K$
43 IF INSTR (1,K$,":")>0% THEN 50
45 IF INSTR(1,K$,"LP")>0% OR INSTR(1,K$,"KB")>0% THEN K$=K$+":"
50 INPUT "IS OUTPUT DEVICE READY FOR DUMPING";Z$
60 IF LEFT(Z$,1)<>"Y" THEN SLEEP 15% : GO TO 50
70 OPEN K$ FOR OUTPUT AS FILE 1%, RECORDSIZE 512%
75 C%=1%
80 INPUT "WHICH ATG PROGRAM#";N%
85 N%=N%-2%
90 IF N%<1% OR N%>10% THEN &"ILLEGAL PROGRAM#":GOTO 80
91 INPUT "HIT RETURN WHEN READY ...";A$
93!
	FIND CORRECT SET OF DATA

95 IF N%=C% THEN 130
100 READ A$
110 IF A$="Z" THEN C%=C%+1% : GOTO95
120 GO TO 100
125!
	DUMP APPROPRIATE FILES

130 READ A$: IF A$="Z" THEN &#1% CHR$(12%);: GOTO 500
140 F$=""+A$+"."+NUM$(K%)
145 OPEN F$ FOR INPUT AS FILE 2%
147 FIELD #1, 512% AS Z1$
148 FIELD #2, 512% AS Z2$
150 GET #2%
160 LSET Z1$=Z2$
170 Z%=INSTR(1%,Z1$,CHR$(26))
180 IF Z%=0% THEN PUT #1%: GOTO 150
190 PUT #1% COUNT Z%-1%:
	CLOSE 2%: D%=D%+1%: P$(D%)=A$: GOTO 130
200!
	ERROR-HANDLER

202 IF ERR=2% THEN &"ILLEGAL OUTPUT DEVICE": RESUME 40
203 IF ERR=8% THEN 230
204 IF ERR=14% THEN 240
205 IF ERR<>5% THEN ON ERROR GOTO 0
206 RESUME 220
220 &"FILE ";A$;" IS MISSING FOR KB#";K%;
	" -- CAN'T GENERATE OUTPUT!": GOTO 530
230 &"PRINTER IS IN USE ... WILL YOU WAIT";
232 INPUT Z$
234 IF LEFT(Z$,1%)="Y" THEN SLEEP 60%: RESUME 70
236 RESUME 560
240 &"PRINTER IS WRITE-LOCKED ... PLEASE READY THE PRINTER":
	SLEEP 30%: RESUME
299!
	DATA LINES FOR ATG3 THRU ATG9, BAN10, PAY11, DEP12

300 DATA BALSHT,Z
310 DATA JRNLT,LEDGER,BALSHT,Z
320 DATA JRNLT,LEDGER,TRBAL,Z
330 DATA JRNLT,LEDGER,TRBAL,INCOME,Z
340 DATA JRNLT,JRNLC,LEDGER,TRBAL,PSTBAL,Z
350 DATA JRNLT,JRNLA,LEDGER,WRKSHT,Z
360 DATA JRNLT,JRNLA,JRNLC,LEDGER,PSTBAL,Z
370 DATA BAN,Z
380 DATA PAY,Z
390 DATA DEP,Z
500 &" OK TO KILL OUTPUT FILES FOR KB:";K%;: INPUT Z$
510 IF LEFT(Z$,1)<>"Y" THEN 530
520 KILL ""+P$(I)+"."+NUM$(K%) FOR I=1 TO D%
530 INPUT "DUMP FOR ANOTHER KEYBOARD";V$
540 IF LEFT(V$,1%)="Y" THEN D%=0%:GOTO 15
550 CLOSE 1%
560 END