10 'CHECK REGISTER PROGRAM
20 'COPYRIGHT HARRY HAYMAN - 1985
30 'CORRBAL TO CORRECT BALANCE IN CHECKING ACCOUNT
34 X=1
35 GOSUB 1100
40 PRINT CHR$(26):PRINT:PRINT:PRINT
50 PRINT TAB(15) STRING$(40,"=")
60 PRINT TAB(18)" COPYRIGHT - HARRY HAYMAN - 1985"
70 PRINT TAB(19) "PROGRAM TO CORRECT BANK BALANCE"
80 PRINT TAB(15) STRING$(40,"=")
130 IMAGE$="\                              \    $$###,###.##"
135 IMAG$="\                              \          ###
140 A$="1.  BALANCE IN ACCOUNT #1"
150 B$="2.  BALANCE IN ACCOUNT #2"
160 C$="3.  BALANCE IN ACCOUNT #3"
170 D$="4.  STARTING BALANCE IN ACCOUNT #1"
180 E$="5.  STARTING BALANCE IN ACCOUNT #2"
190 F$="6.  STARTING BALANCE IN ACCOUNT #3"
195 G$="7.  NUMBER OF ENTRIES ON DISK"
200 PRINT USING IMAGE$;A$,CVD(X1$)
210 PRINT USING IMAGE$;B$;CVD(X2$)
220 PRINT USING IMAGE$;C$;CVD(X3$)
230 PRINT USING IMAGE$;D$;CVD(X4$)
240 PRINT USING IMAGE$;E$;CVD(X5$)
250 PRINT USING IMAGE$;F$;CVD(X6$)
255 PRINT USING IMAG$;G$;VAL(Z1$)
260 INPUT "IS THIS CORRECT";A$
265 IF A$="YES" THEN X=1
270 IF A$="YES" THEN GOSUB 1000
275 IF A$="YES" THEN GOTO 500
280 INPUT "INPUT ITEM NUMBER TO CHANGE";A
290 INPUT "INPUT THE NEW AMOUNT (WITHOUT $ SIGN)";X
300 IF A=1 THEN X1$=MKD$(X)
310 IF A=2 THEN X2$=MKD$(X)
320 IF A=3 THEN X3$=MKD$(X)
330 IF A=4 THEN X4$=MKD$(X)
340 IF A=5 THEN X5$=MKD$(X)
350 IF A=6 THEN X6$=MKD$(X)
355 IF A=7 THEN Z1$=STR$(X)
400 GOTO 40
500 X=2
510 GOSUB 1100
520 PRINT CHR$(26):PRINT:PRINT:PRINT
530 PRINT TAB(15) STRING$(40,"=")
540 PRINT TAB(19) "COPYRIGHT - HARRY HAYMAN - 1985"
550 PRINT TAB(15) "PROGRAM TO CHANGE ORIGINAL BANK BALANCE"
560 PRINT TAB(15) STRING$(40,"=")
570 A$="1.  STARTING BALANCE IN ACCOUNT #1"
580 B$="2.  STARTING BALANCE IN ACCOUNT #2"
590 C$="3.  STARTING BALANCE IN ACCOUNT #3"
600 D$="4.  STARTING BANK BALANCE IN ACCOUNT #1"
610 E$="5.  STARTING BANK BALANCE IN ACCOUNT #2"
620 F$="6.  STARTING BANK BALANCE IN ACCOUNT #3"
630 G$="7.  STARTING ENTRIES ON DISK"
640 IMAGE$="\                                        \  $$###,###.##"
650 PRINT USING IMAGE$;A$;CVD(X1$)
660 PRINT USING IMAGE$;B$;CVD(X2$)
670 PRINT USING IMAGE$;C$;CVD(X3$)
680 PRINT USING IMAGE$;D$;CVD(X4$)
690 PRINT USING IMAGE$;E$;CVD(X5$)
700 PRINT USING IMAGE$;F$;CVD(X6$)
710 IMAG$="\                                        \         ###
720 PRINT USING IMAG$;G$;VAL(Z1$)
730 INPUT "IS THIS CORRECT";A$
735 IF A$="YES" THEN X=2
740 IF A$="YES" THEN GOSUB 1000
750 IF A$="YES" THEN RUN "CHECKREG"
760 INPUT "INPUT ITEM NUMBER TO CHANGE";A
770 INPUT "INPUT THE NEW AMOUNT (WITHOUT $ SIGN)";X
780 IF A=1 THEN X1$=MKD$(X)
790 IF A=2 THEN X2$=MKD$(X)
800 IF A=3 THEN X3$=MKD$(X)
810 IF A=4 THEN X4$=MKD$(X)
820 IF A=5 THEN X5$=MKD$(X)
830 IF A=6 THEN X6$=MKD$(X)
840 IF A=7 THEN Z1$=STR$(X)
850 GOTO 520
1000 OPEN "R",#1,"B:BALANCE",58
1010 FIELD #1,9 AS Y1$,9 AS Y2$,9 AS Y3$,9 AS Y4$,9 AS Y5$,9 AS Y6$,4 AS U1$
1020 LSET Y1$=X1$:LSET Y2$=X2$:LSET Y3$=X3$:LSET Y4$=X4$:LSET Y5$=X5$:LSET Y6$=X6$:LSET U1$=Z1$
1030 PUT #1,X
1040 CLOSE #1
1050 RETURN
1100 OPEN "R",#1,"B:BALANCE",58
1110 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS Z1$
1120 GET 1,X
1130 CLOSE #1
1140 RETURN
E",58
1110 FIELD #1,9 AS X1$,9 AS X2$,9 AS X3$,9 AS X4$,9 AS X5$,9 AS X6$,4 AS Z1$
1