ÿ• 0,"GOTO 30ÿ• 1,"RUN  à ‘ 30  1000 ¤ BANK FILE BY DAVID GYLES ‘ 30„: ¢@8,0;HEAD$.¢@3,2;"NUMBER OF CHEQUES ON FILE:";NCHQ:¢¨$¢#0:• HEAD$~"*****BANKFILE****"  20 ¢@15,5;"OPTIONS" (¢@10,7;"1. LIST STATEMENT"2¢@10,9;"2. ENTER DATA"<¢@10,11;"3. LOAD DATA"F¢@10,13;"4. SAVE DATA "!P¢@10,15;"5. CORRECT ERRORS"U¢@10,17;"6. PRINTOUT"$V¢@10,19;"7. ERASE TRANSACTION"W¢@10,21;"8. EXIT"Z¢ "WHICH ? ";: N$~ä$[“ N$~"1" s ‘ 7000\“ N$~"2" s ‘ 2000]“ N$~"4" s ‘ 3000^“ N$~"3" s ‘ 5000_“ N$~"5" s ‘ 6000`“ N$~"6" s ‘ 8000a“ N$~"7" s ‘ 9000b“ N$~"8" s Ž c‘ 30ç¬è¤ *** SET UP *** é¼ 44òŠ C$(100,3)óŠ CHQ$(3) ôŠ N$(10)üŠ PROM$(3) P~0 r 2£ PROM$(P)› P$‡ "DATE","CHEQUE","AMOUNT" .Š F$(10)8 F~1 r 10 B£ F$(F)L›aV‡ "F1.BNK","F2.BNK","F3.BNK","F4.BNK","F5.BNK","F6.BNK","F7.BNK","F8.BNK","F9.BNK","F10.BNK" Æ‘ 30Ф *** ENTER DATA ***ÚHEAD$~"ENTER CHEQUES" ä 20é“ NCHQ~0 s ‘2050-î¢"TRAN DATE CHEQUE AMOUNT":¢@ø¢ NCHQ;q10)C$(NCHQu1,0);q20)C$(NCHQu1,1);q30)C$(NCHQu1,2):¢1ý“ NCHQ~100 s ¢@10,17;"FILE FULL":Y$~ä$: ‘ 30 I~0 r 2 ¢ PROM$(I): ” CHQ$(I)“ CHQ$(I)~"" s ‘ 30 “ CHQ$(1)~"BILLS" s 10000›0  I~0 r 2: C$(NCHQ,I)~CHQ$(I):›:NCHQ~NCHQt1 *‘ 2020¸ ¤ **SAVE**  4000+Ì „: ¢@4,10;"WRITING NEW ";FILE$;" FILE"Í ¢"CHANCE TO ABORT""Î ¢"A TO ABORT. C TO CONTINUE." Ï A$~ä$Ð “ A$~"A"s ‘ 30Ñ “ A$~"C"s ‘ 3029 Ò ‘ 3020+Õ „: ¢@4,10;"WRITING NEW ";FILE$;" FILE"Ö † FILE$,FD$à ¢# FD$; NCHQê “ NCHQ~0 s 3090ô I~0 r NCHQu1þ J~0 r 2: ¢ C$(I,J)  › J,I ƒ  ‘ 30Ÿ¬$ „:¢ "FILE TO BE LOADED/SAVED ?"ª F~1 r 10´¢ F;"...";F$(F)¾› F ò"*.BNK"Ȣɢ"ENTER 1 TO 10"Í¢ "WHICH ? "Δ NÏ“ N~0 { N}10 s 4000Û• FILE$~F$(N) Ü¢ FILE$樈¤ *** LOAD FILE *** ’ 4000*œ„: ¢@4,10;"READING IN ";FILE$;" FILE"¦ž FILE$,FD$°”# FD$; NCHQº“ NCHQ~0 s 5090Ä I~0 r NCHQu1Î J~0 r 2: ” C$(I,J) Ø› J,Iâƒ ì‘ 30p¤ ***CHANGE ERRORS***zHEAD$~"CHANGE ERRORS"{• CN$~"Y" Ž 204˜¢ "TRANS NO.?(IF CHG ERR'S FINISHED PRESS F.":¢” CN$: “ CN$~"F" s 30'¢CN~Ü(CN$): “ CN~0 { CN}NCHQ s 6040 ¬CN~CNu1#¶ I~0 r 2: CHQ$(I)~C$(CN,I): ›À¢@3,8;"CHEQUE NO. :",CNt1Ê I~0 r 2Ô¢ It1;PROM$(I),CHQ$(I) Þ›: ¢5è¢ "ANY CHANGES FOR THIS ITEM (Y/N)?";:Y$~ä$:¢ Y$ò“ Y$}"Y" s 6180*ü¢ "WHICH LINE (1-3)?";:Y$~ä$: ¢ Y$: ¢I~Ü(Y$)u1-“ I}2 s ‘ 6140 ¢ PROM$(I): ” CHQ$(I):„|‘ 6080 "$ I~0 r 2: C$(CN,I)~CHQ$(I):› .‘ 6030X¤ *** LIST CHEQUES *** Y• BAL~0bHEAD$~"LIST CHEQUES "l 20: “ NCHQ~0 s 30u¢"FILE:-";FILE$%v¢ "TO SCREEN OR PRINTER (S/P)?";{PF$~ä$(1)€“ PF$~"P" s ¢#1„… Z~20 r 100 p 20‹“ Z~20 s • X~1Œ“ Z~40 s • X~2“ Z~60 s • X~3Ž“ Z~80 s • X~4“ Z~100 s • X~5““ PF$~"P"s ¢#1”¢@10,0;"PAGE ";X2–¢ " TRAN DATE CHEQUE AMOUNT BALANCE":¢¨ CN~Zu20 r Zu18ª“ C$(CN,1)~"DEPOSIT" s • BAL~Ü(C$(CN,2))tBAL:‘ 70908«“ C$(CN,1)~"BALANCE" s • BAL~Ü(C$(CN,2))tBAL:‘ 7090"¬“ ß(C$(CN,1),2)~"DT" s ‘ 7090°• BAL~BALuÜ(C$(CN,2))I²¢ q0)CNt1;q6)C$(CN,0);q16)C$(CN,1);q25)C$(CN,2);:°4,2:¢ q31)BAL:°O,0·“ CN~NCHQu1 s ‘ 7102 ¼› CN:¢#0¾¢ "NEXT PAGE (Y/N) ":Y$~ä$¿“ Y$~"N" s ‘ 30Á“ PF$}"P"s „ Æ› Z:¢#0 Б 30@¤ PRINTOUT A• BAL~0E“ NCHQ~0 s 30 F 12000AJ¢#1:¢ Ç(13);:¢ q35)"BANK STATEMENT":¢ q35)"==============":¢FO¢ q10)"TRAN";q20)"DATE";q35)"CHEQUE";q50)"AMOUNT";q65)"BALANCE":¢T CN~Nu1r NCHQ8’“ C$(CN,1)~"DEPOSIT"s • BAL~Ü(C$(CN,2))tBAL: ‘ 80908““ C$(CN,1)~"BALANCE" s • BAL~Ü(C$(CN,2))tBAL:‘ 8090"”“ ß(C$(CN,1),2)~"DT" s ‘ 8090˜• BAL~BALuÜ(C$(CN,2))Nš¢ q10)CNt1;q20)C$(CN,0);q35)C$(CN,1);:°4,2:¢ q48)Ü(C$(CN,2));q64)BAL:°O,0Ÿ“ CN~NCHQu1 s ‘ 8110= “ CN~49 s ¢#0:„:¢"CHANGE PAPER AND PRESS ENTER.":” Y:¢#1G¡“ CN~49 s ¢ Ç(13);:¢ q35)"BANK STATEMENT":¢ q35)"==============":¢T¢“ CN~49 s ¢ TAB (10)"TRAN";q20)"DATE";q35)"CHEQUE";q50)"AMOUNT";q65)"BALANCE":¢ ¤› CN ®¢#0:‘ 30!(#„:¢@10,5;"ERASE TRANSACTION")#¢@10,8;"TRANSACTION NO ? "*#” T:T~Tu11# D~T r (NCHQu1)2# A~0 r 2<#• C$(D,A)~C$(Dt1,A)F#› AP#› DZ#• NCHQ~NCHQu1 d#‘ 30'¤ BILLS ROUTEEN '§ 11000'DATE$~CHQ$(0),' V~0 r 2 :¤ X=NO OF STANDING ORDERS -10$'“ NCHQ~100 s ¢@10,17;"FILE FULL":Y$~ä$:‘ 30.' I~1 r 28'£ CHQ$(I):› IBB' I~1 r 2: C$(NCHQ,I)~CHQ$(I):›: C$(NCHQ,0)~DATE$:NCHQ~NCHQt1L'› VQ'CHQ$(1)~"" V'‘ 2020-ø*‡ MORTG,100.00,L/INS,020.25,PENSI,020.00à.„:¢@16,4;"PRINTOUT"á.¢@16,5;"********"'ê.¢@7,8;"FROM WHAT TRANSACTION NO ?"ô.¢@13,10;"ENTER 1 TO ";NCHQþ.” N/“ N2 s ¨ /BAL~0/ BR~0rNu29/“ C$(BR,1)~"DEPOSIT" s • BAL~Ü(C$(BR,2))tBAL:‘ 120809/“ C$(BR,1)~"BALANCE" s • BAL~Ü(C$(BR,2))tBAL:‘ 12080#/“ ß(C$(BR,1),2)~"DT" s ‘ 12080/• BAL~BALuÜ(C$(BR,2)) 0/› BR5/“ N~51 s ‘ 13000:/¢#1:¢:¢:¢:¢:¢ ;/• C~N/ Z~1 r Cu1?/¢#1:¢:¢#0@/› ZA/¢#1 D/‘ 8020 È2¤ HEADERCÒ2¢#1:¢ Ç(13);:¢ q35)"BANK STATEMENT":¢ q35)"================":¢FÜ2¢ q10)"TRAN";q20)"DATE";q35)"CHEQUE";q50)"AMOUNT";q65)"BAlANCE":¢ æ2‘ 12091x@‚(0„•d9