5INPUT "MONTH?"; m$:?:INPUT "YEAR? "; y$:?:INPUT "NEW FILE? (y OR n) "; n$:?:INPUT "BALANCE? "; x:?
10 b$=m$+y$: p$=CHR$(4):INPUT "CHECK OR DEPOSIT? (c OR d) "; c$:?:IF c$="d" GOTO 50
20INPUT "CHECK NO.? "; ea$:?:INPUT "TO WHOM? "; fa$:?:INPUT "FOR WHAT? "; ga$:?
25INPUT "TAX-DEDUCTIBLE? (y OR n) "; ha$:?:INPUT "AMOUNT? "; ja:?:IF ja=0 THEN ? "ERROR":GOTO 10
30 xa=x-ja:INPUT "MORE? (y OR n) "; i$:?:IF i$="y" GOTO 110
40IF i$="n" THEN ? "Balance is "; xa: eb$="END":GOTO 3000
50INPUT "DATE? "; ea$:?:INPUT "FROM WHOM? "; fa$:?:INPUT "FOR WHAT? "; ga$:?
55INPUT "TAXABLE? (y OR n) "; ha$:?:INPUT "AMOUNT? "; ja:?:IF ja=0 THEN ? "ERROR":GOTO 10
60 xa=x+ja:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xa: eb$="END":GOTO 3000
110INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 150
120INPUT "CHECK NO.? "; eb$:?:INPUT "TO WHOM? "; fb$:?:INPUT "FOR WHAT? "; gb$:?
125INPUT "TAX-DEDUCTIBLE? (y OR n) "; hb$:?:INPUT "AMOUNT? "; jb:?:IF jb=0 THEN ? "ERROR":GOTO 110
130 xb=xa-jb:INPUT "MORE? "; i$:?:IF i$="y" GOTO 210
140IF i$="n" THEN ? "Balance is "; xb: ec$="END":GOTO 3000
150INPUT "DATE? "; eb$:?:INPUT "FROM WHOM? "; fb$:?:INPUT "FOR WHAT? "; gb$:?
155INPUT "TAXABLE? (y OR n) "; hb$:?:INPUT "AMOUNT? "; jb:?:IF jb=0 THEN ? "ERROR":GOTO 110
160 xb=xa+jb:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xb: ec$="END":GOTO 3000
210INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 250
220INPUT "CHECK NO.? "; ec$:?:INPUT "TO WHOM? "; fc$:?:INPUT "FOR WHAT? "; gc$:?
225INPUT "TAX-DEDUCTIBLE? (y OR n) "; hc$:?:INPUT "AMOUNT? "; jc:?:IF jc=0 THEN ? "ERROR":GOTO 210
230 xc=xb-jc:INPUT "MORE? "; i$:?:IF i$="y" GOTO 310
240IF i$="n" THEN ? "Balance is "; xc: ed$="END":GOTO 3000
250INPUT "DATE? "; ec$:?:INPUT "FROM WHOM? "; fc$:?:INPUT "FOR WHAT? "; gc$:?
255INPUT "TAXABLE? (y OR n) "; hc$:?:INPUT "AMOUNT? "; jc:?:IF jc=0 THEN ? "ERROR":GOTO 210
260 xc=xb+jc:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xc: ed$="END":GOTO 3000
310INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 350
320INPUT "CHECK NO.? "; ed$:?:INPUT "TO WHOM? "; fd$:?:INPUT "FOR WHAT? "; gd$:?
325INPUT "TAX-DEDUCTIBLE? (y OR n) "; hd$:?:INPUT "AMOUNT? "; jd:?:IF jd=0 THEN ? "ERROR":GOTO 310
330 xd=xc-jd:INPUT "MORE? "; i$:?:IF i$="y" GOTO 410
340IF i$="n" THEN ? "Balance is "; xd: ee$="END":GOTO 3000
350INPUT "DATE? "; ed$:?:INPUT "FROM WHOM? "; fd$:?:INPUT "FOR WHAT? "; gd$:?
355INPUT "TAXABLE? (y OR n) "; hd$:?:INPUT "AMOUNT? "; jd:?:IF jd=0 THEN ? "ERROR":GOTO 310
360 xd=xc+jd:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xd: ee$="END":GOTO 3000
410INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 450
420INPUT "CHECK NO.? "; ee$:?:INPUT "TO WHOM? "; fe$:?:INPUT "FOR WHAT? "; ge$:?
425INPUT "TAX-DEDUCTIBLE? (y OR n) "; he$:?:INPUT "AMOUNT? "; je:?:IF je=0 THEN ? "ERROR":GOTO 410
430 xe=xd-je:INPUT "MORE? "; i$:?:IF i$="y" GOTO 510
440IF i$="n" THEN ? "Balance is "; xe: ef$="END":GOTO 3000
450INPUT "DATE? "; ee$:?:INPUT "FROM WHOM? "; fe$:?:INPUT "FOR WHAT? "; ge$:?
455INPUT "TAXABLE? (y OR n) "; he$:?:INPUT "AMOUNT? "; je:?:IF je=0 THEN ? "ERROR":GOTO 410
460 xe=xd+je:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xe: ef$="END":GOTO 3000
510INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 550
520INPUT "CHECK NO.? "; ef$:?:INPUT "TO WHOM? "; ff$:?:INPUT "FOR WHAT? "; gf$:?
525INPUT "TAX-DEDUCTIBLE? (y OR n) "; hf$:?:INPUT "AMOUNT? "; jf:?:IF jf=0 THEN ? "ERROR":GOTO 510
530 xf=xe-jf:INPUT "MORE? "; i$:?:IF i$="y" GOTO 610
540IF i$="n" THEN ? "Balance is "; xf: eg$="END":GOTO 3000
550INPUT "DATE? "; ef$:?:INPUT "FROM WHOM? "; ff$:?:INPUT "FOR WHAT? "; gf$:?
555INPUT "TAXABLE? (y OR n) "; hf$:?:INPUT "AMOUNT? "; jf:?:IF jf=0 THEN ? "ERROR":GOTO 510
560 xf=xe+jf:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xf: eg$="END":GOTO 3000
610INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 650
620INPUT "CHECK NO.? "; eg$:?:INPUT "TO WHOM? "; fg$:?:INPUT "FOR WHAT? "; gg$:?
625INPUT "TAX-DEDUCTIBLE? (y OR n) "; hg$:?:INPUT "AMOUNT? "; jg:?:IF jg=0 THEN ? "ERROR":GOTO 610
630 xg=xf-jg:INPUT "MORE? "; i$:?:IF i$="y" GOTO 710
640IF i$="n" THEN ? "Balance is "; xg: eh$="END":GOTO 3000
650INPUT "DATE? "; eg$:?:INPUT "FROM WHOM? "; fg$:?:INPUT "FOR WHAT? "; gg$:?
655INPUT "TAXABLE? (y OR n) "; hg$:?:INPUT "AMOUNT? "; jg:?:IF jg=0 THEN ? "ERROR":GOTO 610
660 xg=xf+jg:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xg: eh$="END":GOTO 3000
710INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 750
720INPUT "CHECK NO.? "; eh$:?:INPUT "TO WHOM? "; fh$:?:INPUT "FOR WHAT? "; gh$:?
725INPUT "TAX-DEDUCTIBLE? (y OR n) "; hh$:?:INPUT "AMOUNT? "; jh:?:IF jh=0 THEN ? "ERROR":GOTO 710
730 xh=xg-jh:INPUT "MORE? "; i$:?:IF i$="y" GOTO 810
740IF i$="n" THEN ? "Balance is "; xh: ei$="END":GOTO 3000
750INPUT "DATE? "; eh$:?:INPUT "FROM WHOM? "; fh$:?:INPUT "FOR WHAT? "; gh$:?
755INPUT "TAXABLE? (y OR n) "; hh$:?:INPUT "AMOUNT? "; jh:?:IF jh=0 THEN ? "ERROR":GOTO 710
760 xh=xg+jh:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xh: ei$="END":GOTO 3000
810INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 850
820INPUT "CHECK NO.? "; ei$:?:INPUT "TO WHOM? "; fi$:?:INPUT "FOR WHAT? "; gi$:?
825INPUT "TAX-DEDUCTIBLE? (y OR n) "; hi$:?:INPUT "AMOUNT? "; ji:?:IF ji=0 THEN ? "ERROR":GOTO 810
830 xi=xh-ji:INPUT "MORE? "; i$:?:IF i$="y" GOTO 910
840IF i$="n" THEN ? "Balance is "; xi: ej$="END":GOTO 3000
850INPUT "DATE? "; ei$:?:INPUT "FROM WHOM? "; fi$:?:INPUT "FOR WHAT? "; gi$:?
855INPUT "TAXABLE? (y OR n) "; hi$:?:INPUT "AMOUNT? "; ji:?:IF ji=0 THEN ? "ERROR":GOTO 810
860 xi=xh+ji:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xi: ej$="END":GOTO 3000
910INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 950
920INPUT "CHECK NO.? "; ej$:?:INPUT "TO WHOM? "; fj$:?:INPUT "FOR WHAT? "; gj$:?
925INPUT "TAX-DEDUCTIBLE? (y OR n) "; hj$:?:INPUT "AMOUNT? "; jj:?:IF jj=0 THEN ? "ERROR":GOTO 910
930 xj=xi-jj:INPUT "MORE? "; i$:?:IF i$="y" GOTO 1010
940IF i$="n" THEN ? "Balance is "; xj: ek$="END":GOTO 3000
950INPUT "DATE? "; ej$:?:INPUT "FROM WHOM? "; fj$:?:INPUT "FOR WHAT? "; gj$:?
955INPUT "TAXABLE? (y OR n) "; hj$:?:INPUT "AMOUNT? "; jj:?:IF jj=0 THEN ? "ERROR":GOTO 910
960 xj=xi+jj:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xj: ek$="END":GOTO 3000
1010INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 1050
1020INPUT "CHECK NO.? "; ek$:?:INPUT "TO WHOM? "; fk$:?:INPUT "FOR WHAT? "; gk$:?
1025INPUT "TAX-DEDUCTIBLE? (y OR n) "; hk$:?:INPUT "AMOUNT? "; jk:?:IF jk=0 THEN ? "ERROR":GOTO 1010
1030 xk=xj-jk:INPUT "MORE? "; i$:?:IF i$="y" GOTO 1110
1040IF i$="n" THEN ? "Balance is "; xk: el$="END":GOTO 3000
1050INPUT "DATE? "; ek$:?:INPUT "FROM WHOM? "; fk$:?:INPUT "FOR WHAT? "; gk$:?
1055INPUT "TAXABLE? (y OR n) "; hk$:?:INPUT "AMOUNT? "; jk:?:IF jk=0 THEN ? "ERROR":GOTO 1010
1060 xk=xj+jk:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xk: el$="END":GOTO 3000
1110INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 1150
1120INPUT "CHECK NO.? "; el$:?:INPUT "TO WHOM? "; fl$:?:INPUT "FOR WHAT? "; gl$:?
1125INPUT "TAX-DEDUCTIBLE? (y OR n) "; hl$:?:INPUT "AMOUNT? "; jl:?:IF jl=0 THEN ? "ERROR":GOTO 1110
1130 xl=xk-jl:INPUT "MORE? "; i$:?:IF i$="y" GOTO 1210
1140IF i$="n" THEN ? "Balance is "; xl: em$="END":GOTO 3000
1150INPUT "DATE? "; el$:?:INPUT "FROM WHOM? "; fl$:?:INPUT "FOR WHAT? "; gl$:?
1155INPUT "TAXABLE? (y OR n) "; hl$:?:INPUT "AMOUNT? "; jl:?:IF jl=0 THEN ? "ERROR":GOTO 1110
1160 xl=xk+jl:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xl: em$="END":GOTO 3000
1210INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 1250
1220INPUT "CHECK NO.? "; em$:?:INPUT "TO WHOM? "; fm$:?:INPUT "FOR WHAT? "; gm$:?
1225INPUT "TAX-DEDUCTIBLE? (y OR n) "; hm$:?:INPUT "AMOUNT? "; jm:?:IF jm=0 THEN ? "ERROR":GOTO 1210
1230 xm=xl-jm:INPUT "MORE? "; i$:?:IF i$="y" GOTO 1310
1240IF i$="n" THEN ? "Balance is "; xm: eo$="END":GOTO 3000
1250INPUT "DATE? "; em$:?:INPUT "FROM WHOM? "; fm$:?:INPUT "FOR WHAT? "; gm$:?
1255INPUT "TAXABLE? (y OR n) "; hm$:?:INPUT "AMOUNT? "; jm:?:IF jm=0 THEN ? "ERROR":GOTO 1210
1260 xm=xl+jm:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xm: eo$="END":GOTO 3000
1310INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 1350
1320INPUT "CHECK NO.? "; eo$:?:INPUT "TO WHOM? "; fo$:?:INPUT "FOR WHAT? "; go$:?
1325INPUT "TAX-DEDUCTIBLE? (y OR n) "; ho$:?:INPUT "AMOUNT? "; jo:?:IF jo=0 THEN ? "ERROR":GOTO 1310
1330 xo=xm-jo:INPUT "MORE? "; i$:?:IF i$="y" GOTO 1410
1340IF i$="n" THEN ? "Balance is "; xo: ep$="END":GOTO 3000
1350INPUT "DATE? "; eo$:?:INPUT "FROM WHOM? "; fo$:?:INPUT "FOR WHAT? "; go$:?
1355INPUT "TAXABLE? (y OR n) "; ho$:?:INPUT "AMOUNT? "; jo:?:IF jo=0 THEN ? "ERROR":GOTO 1310
1360 xo=xm+jo:INPUT "MORE? "; i$:?:IF i$="n" THEN ? "Balance is "; xo: ep$="END":GOTO 3000
1410INPUT "CHECK OR DEPOSIT? "; c$:?:IF c$="d" GOTO 1450
1420INPUT "CHECK NO.? "; ep$:?:INPUT "TO WHOM? "; fp$:?:INPUT "FOR WHAT? "; gp$:?
1425INPUT "TAX-DEDUCTIBLE? (y OR n) "; hp$:?:INPUT "AMOUNT? "; jp:?:IF jp=0 THEN ? "ERROR":GOTO 1410
1430 xp=xo-jp:? "Balance is  "; xp:? "END":GOTO 3000
1450INPUT "DATE? "; ep$:?:INPUT "FROM WHOM? "; fp$:?:INPUT "FOR WHAT? "; gp$:?
1455INPUT "TAXABLE? (y OR n) "; hp$:?:INPUT "AMOUNT? "; jp:?:IF jp=0 THEN ? "ERROR":GOTO 1410
1460 xp=xo+jp:? "Balance is "; xp:? "END"
3000IF n$="n" GOTO 3025
3005? p$; "OPEN "; b$
3010? p$; "WRITE "; b$
3020? x:GOTO 3030
3025? p$; "APPEND "; b$
3030? ea$:? fa$:? ga$:? ha$:? ja:? xa
3040? eb$:IF eb$="END" GOTO 3180
3045? fb$:? gb$:? hb$:? jb:? xb
3050? ec$:IF ec$="END" GOTO 3180
3055? fc$:? gc$:? hc$:? jc:? xc
3060? ed$:IF ed$="END" GOTO 3180
3065? fd$:? gd$:? hd$:? jd:? xd
3070? ee$:IF ee$="END" GOTO 3180
3075? fe$:? ge$:? he$:? je:? xe
3080? ef$:IF ef$="END" GOTO 3180
3085? ff$:? gf$:? hf$:? jf:? xf
3090? eg$:IF eg$="END" GOTO 3180
3095? fg$:? gg$:? hg$:? jg:? xg
3100? eh$:IF eh$="END" GOTO 3180
3105? fh$:? gh$:? hh$:? jh:? xh
3110? ei$:IF ei$="END" GOTO 3180
3115? fi$:? gi$:? hi$:? ji:? xi
3120? ej$:IF ej$="END" GOTO 3180
3125? fj$:? gj$:? hj$:? jj:? xj
3130? ek$:IF ek$="END" GOTO 3180
3135? fk$:? gk$:? hk$:? jk:? xk
3140? el$:IF el$="END" GOTO 3180
3145? fl$:? gl$:? hl$:? jl:? xl
3150? em$:IF em$="END" GOTO 3180
3155? fm$:? gm$:? hm$:? jm:? xm
3160? eo$:IF eo$="END" GOTO 3180
3165? fo$:? go$:? ho$:? jo:? xo
3170? ep$:IF ep$="END" GOTO 3180
3175? fp$:? gp$:? hp$:? jp:? xp
3178? "END"
3180? p$; "CLOSE "; b$
