10 'CHECK REGISTER PROGRAM
20 'SUB PROGRAM - TO PRINT OUT LIST OF ACCOUNTS
30 ' A/CLIST
40 'COPYRIGHT HARRY HAYMAN - 1985
50 PRINT CHR$(26)
60 PRINT:PRINT:PRINT
70 PRINT TAB(10) STRING$(29,"*")
80 PRINT TAB(15) "A/C LIST PROGRAM"
90 PRINT TAB(10) "COPYRIGHT HARRY HAYMAN - 1985"
100 PRINT TAB(10) STRING$(29,"*")
110 PRINT:PRINT:PRINT
120 PRINT TAB(10) "DO YOU WANT A PRINTOUT - YES OR NO"
130 INPUT A$
140 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT TAB(20) "LIST OF ACCOUNTS"
150 IF A$="YES" THEN LPRINT TAB(20) "LIST OF ACCOUNTS":GOSUB 400
160 Z=1
170 OPEN "R",#1,"B:ACCOUNTS",28
180 FIELD #1,3 AS CC1$,25 AS CC2$
190 GET #1,Z
200 IF EOF(1) THEN GOTO 350
210 CLOSE #1
220 IF CC2$<"!" THEN Z=Z+1
230 IF CC2$<"!" THEN GOTO 170
240 C1$=CC1$:C2$=CC2$
250 PRINT C1$,C2$:X=X+1
260 IF A$="YES"  THEN LPRINT C1$,C2$:GOSUB 400
270 Z=Z+1
280 IF A$="YES" THEN GOTO 170
290 IF X=20 GOTO 310
300 GOTO 170
310 X=0
320 INPUT "PRESS ENTER TO CONTINUE";A
330 PRINT CHR$(26)
340 GOTO 170
350 FOR N=1 TO 2500:NEXT N
360 IF A$="YES" THEN GOTO 380
370 GOTO 390
380 Q=66-Q:FOR N=1 TO Q:LPRINT:NEXT N
390 RUN "CHECKREG"
400 Q=Q+1
410 IF Q=55 THEN GOTO 430
420 RETURN
430 Q=66-Q
440 FOR N=1 TO Q:LPRINT:NEXT N
450 Q=0
460 RETURN
"CHECKREG"
400 Q=Q+1
410 IF 