10 'CHECK REGISTER PROGRAM
20 'COPYRIGHT HARRY HAYMAN -1985
30 'STARTER TO START THE NEW YEAR
40 PRINT CHR$(26):PRINT:PRINT:PRINT
50 PRINT TAB(40) "COPYRIGHT HARRY HAYMAN - 1985"
60 PRINT TAB(10) "DO YOU REALLY WANT TO START THE NEW YEAR?"
70 PRINT:PRINT TAB(10) "USE A NEW DISK OR ALL YOUR ENTRIES WILL BE WIPED"
80 PRINT TAB(10) "  IF YOU RUN THIS PROGRAM"
90 PRINT:PRINT:INPUT  "DO YOU WANT TO START THE NEW YEAR - YES OR NO";GG$
100 IF GG$="YES" THEN GOTO 120
110 RUN "CHECKREG"
120 PRINT CHR$(26)
130 PRINT TAB(20) "CHECK REGISTER PROGRAM"
140 PRINT TAB(20) "TO START THE NEW YEAR"
150 PRINT TAB(30) "COPYRIGHT - HARRY HAYMAN - 1985"
160 PRINT:PRINT:PRINT
170 INPUT "INPUT THE BALANCE IN CHECKING ACCOUNT #1 ";X1
180 INPUT "INPUT THE BALANCE IN CHECKING ACCOUNT #2 ";X2
190 INPUT "INPUT THE BALANCE IN CHECKING ACCOUNT #3 ";X3
200 INPUT "INPUT THE BANK BALANCE IN CHECKING ACCOUNT #1 ";X4
210 INPUT "INPUT THE BANK BALANCE IN CHECKING ACCOUNT #2 ";X5
220 INPUT "INPUT THE BANK BALANCE IN CHECKING ACCOUNT #3 ";X6
230 ZZ=0
240 PRINT:PRINT:PRINT
250 GOSUB 310
260 ZZ=0
270 ON ERROR GOTO 290
280 KILL "B:ENTRIES"
290 'BLANK
300 RUN "CHECKREG"
310 OPEN "R",#1,"B:BALANCE",58
320 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS ZZ$
330 LSET X1$=MKD$(X1):LSET X2$=MKD$(X2):LSET X3$=MKD$(X3)
340 LSET X4$=MKD$(X4):LSET X5$=MKD$(X5):LSET X6$=MKD$(X6):ZZ$=STR$(ZZ)
350 PUT #1,1
360 PUT #1,2
370 CLOSE #1
380 RETURN

340 LSET X4$=MKD$(X4):LSET X5$=MKD$(X5):LSET X6$=MKD$(X6):ZZ$=STR