10 'CHECK REGISTER PROGRAM
20 'COPYRIGHT HARRY HAYMAN - 1985
22 'PROGRAM TO CORRECT LIST OF ACCOUNTS 
23 'CORRECT
30 PRINT CHR$(26)
35 PRINT TAB(10) "COPYRIGHT HARRY HAYMAN - 1985"
36 PRINT:PRINT:PRINT
40  PRINT TAB(20) "TO CORRECT LIST OF ACCOUNTS"
45 PRINT TAB(10) "TO EXIT PROGRAM ENTER 0 FOR ACCOUNT NUMBER"
50 PRINT:PRINT
60 INPUT "ENTER ACCOUNT NUMBER TO CORRECT";C1$
65 IF C1$="0" THEN RUN "CHECKREG"
70 INPUT "ENTER NEW DESCRIPTION FOR ACCOUNT";C2$
80 Z=VAL(C1$)
90 INPUT "IS THIS ITEM CORRECT (YES OR NO)";X$
100 IF X$="YES" THEN GOTO 120
110 GOTO 30
120 OPEN "R",#1,"B:ACCOUNTS",28
130 FIELD #1,3 AS CC1$,25 AS CC2$
140 LSET CC1$=C1$:LSET CC2$=C2$
150 PUT #1,Z
160 CLOSE #1
170 '
180 '
190 GOTO 30
200 '
210 '
#1,3 AS CC1$,25 AS C