10 'CHECK REGISTER PROGRAM
20 'COPYRIGHT HARRY HAYMAN - 1985
30 PRINT CHR$(26):PRINT:PRINT:PRINT
40 PRINT TAB(20) STRING$(29,"*")
50 PRINT TAB(20) "TO ENTER AND CORRECT ACCOUNTS"
60 PRINT TAB(20) "COPYRIGHT HARRY HAYMAN - 1985"
70 PRINT TAB(20) STRING$(29,"*")
80 PRINT:PRINT
90  PRINT TAB(20) "TO ENTER NEW AND CORRECT ACCOUNTS"
100 PRINT TAB(15) "TO EXIT PROGRAM ENTER 0 FOR ACCOUNT NUMBER"
110 PRINT:PRINT
120 INPUT "ENTER ACCOUNT NUMBER ";C1$
130 IF C1$="0" THEN RUN "CHECKREG"
135 IF C1$="" THEN GOTO 120
140 GOSUB 350
150 PRINT
160 INPUT "DO YOU WANT TO CHANGE ACCOUNT DESCRIPTION 'YES' OR  'NO'";G$
170 IF G$="YES" GOTO 190
180 GOTO 30
190 PRINT:PRINT
200 INPUT "ENTER ACCOUNT DESCRIPTION ";C2$
210 Z=VAL(C1$)
220 PRINT:INPUT "IS THIS ENTRY CORRECT YES OR NO";G$
230 IF G$="YES" THEN GOTO 250
240 GOTO 30
250 OPEN "R",#1,"B:ACCOUNTS",28
260 FIELD #1,3 AS CC1$,25 AS CC2$
270 LSET CC1$=C1$:LSET CC2$=C2$
280 PUT #1,Z
290 CLOSE #1
300 '
310 '
320 GOTO 30
330 '
340 '
350 Z=VAL(C1$)
360 IF Z>199 GOTO 380
370 GOTO 410
380 PRINT "ACCOUNT NUMBER CANNOT BE GREATER THAN 199"
390 FOR N=1 TO 2000:NEXT N
400 GOTO 30
410 OPEN "R",#1,"B:ACCOUNTS",28
420 FIELD #1,3 AS CC1$,25 AS CC2$
430 GET #1,Z
440 CLOSE #1
450 IF CC2$<"!" THEN CC2$="BLANK"
460 PRINT "ACCOUNT #";Z;" NOW READS: ";CC2$
470 RETURN
 CC2$
430 GET #1,Z
440 CLOSE #1
450 IF CC2$<"!" THEN CC2$="B