10 MODE7:ONERRORPROCA 20 *FX200,3 30 VDU23;8202;0;0;0;:PROCB:PROCC:PROCD:VDU23;8202;0;0;0;:REPEATPROCE:PROCF(1,10,10):_%=FNA(8,10,25,12):IF_%=1ANDA$<>""PROCG:UNTILFALSE 40 IF_%=2ANDA$<>""PROCH:UNTILFALSE 50 IF_%=3PROCI:UNTILFALSE 60 UNTILFALSE 70 DEFPROCF(`%,a%,b%):RESTORE470:REPEATREADB$,c%:IFc%=`%PRINTTAB(a%,b%);CHR$134;B$ 80 IFc%=`%b%=b%+1 90 UNTILB$="END":ENDPROC 100 DEFFNB(a%,b%,d%,e%):f%=1:*FX4,2 110 REPEATPRINTTAB(a%,b%);CHR$132;CHR$157;TAB((a%+d%),b%);CHR$156:*FX15 120 C$=GET$:g%=VALC$:IFC$=CHR$13GOTO160 130 IFg%=0THENg%=-1 140 PRINTTAB(a%,b%);SPC2:IFg%=1ANDf%1THENa%=a%-d%:f%=f%-1 160 UNTILC$=CHR$13:*FX4,0 170 PRINTTAB(0,15);:=f% 180 DEFPROCC:*KEY14 1|M 190 *KEY15 0|M 200 *KEY12 0|M 210 *KEY13 1|M 220 ENDPROC 230 DEFFNA(a%,b%,d%,e%):h%=(b%-1):*FX4,2 240 REPEATPRINTTAB(a%,b%);CHR$132;CHR$157;CHR$134;TAB((a%+d%),b%);CHR$156:*FX15 250 C$=GET$:g%=VALC$:IFC$=CHR$13GOTO300 260 IFg%=0THENg%=-1 270 IF(b%+g%)>e%PRINTTAB(a%,b%);SPC2:b%=(h%+1):GOTO300 280 IF(b%+g%)<(h%+1)PRINTTAB(a%,b%);SPC2:b%=e%:GOTO300 290 PRINTTAB(a%,b%);SPC2:b%=b%+g% 300 UNTILC$=CHR$13:*FX4,0 310 =(b%-h%) 320 DEFPROCJ(B$,i%):PRINTTAB(0,24);SPC39;:IFB$="1"B$="PROCESSING" 330 IFB$="2"B$="ACCEPTED" 340 IFB$="3"B$="*** OVERRIDE ***" 350 PRINTTAB(0,24);CHR$134;CHR$136;B$;:TIME=0:REPEATUNTILTIME>i%:ENDPROC 360 DEFFNC(D$):IFINSTR(D$,"-")<>0THENB$=RIGHT$(D$,(LEND$-1))ELSEB$=D$ 370 IFVALB$=0THENB$="" 380 IFLENB$=1THENB$="0.0"+B$:GOTO420 390 IFLENB$=2THENB$="0."+B$:GOTO420 400 IFLENB$>=3THENE$=LEFT$(B$,(LENB$-2)):F$=RIGHT$(B$,2):B$=E$+"."+F$:GOTO420 410 B$="0.00" 420 IFINSTR(D$,"-")<>0THEND$="-"+B$:=D$ELSE=B$ 430 DEFPROCK:INPUT#B,G$,H$,I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,S$,T$,U$,V$:INPUT#B,A$,W$,X$,Y$,Z$,_$,`$,a$,b$:ENDPROC 440 DEFPROCL:PRINT#C,G$,H$,I$,J$,K$,L$,M$,N$,O$,P$,Q$,R$,S$,T$,U$,V$:PRINT#C,A$,W$,X$,Y$,Z$,_$,`$,a$,b$:ENDPROC 450 DEFPROCM:VDU23;8202;0;0;0;:ENDPROC 460 DEFPROCN:VDU23,0,10,64;0;0;0;:ENDPROC 470 DATA"Transactions Menu",1 480 DATA"Account Enquiries",1 490 DATA"Account Maintenence",1 500 DATA"Create New Account",2 510 DATA"Reset Statement File",2 520 DATA"Amend Account Details",2 530 DATA"Insert Regular Payments",2 540 DATA"Amend/Delete RP Records",2 550 DATA"Return to Main Menu",2 560 DATA"Show Account Details",3 570 DATA"Statement to Screen",3 580 DATA"Statement to Printer",3 590 DATA"Show Regular Payments",3 600 DATA"Return to Main Menu",3 610 DATA"Enter Transactions Mode",4 620 DATA"Run Regular Payments",4 630 DATA"Return to Main Menu",4 640 DATA"USER NAME",5 650 DATA"ADDRESS 1",5 660 DATA"ADDRESS 2",5 670 DATA"ADDRESS 3",5 680 DATA"ADDRESS 4",5 690 DATA"ADDRESS 5",5 700 DATA"POST CODE",5 710 DATA"",5 720 DATA"BANK NAME",5 730 DATA"BANK BRCH",5 740 DATA"ADDRESS 1",5 750 DATA"ADDRESS 2",5 760 DATA"ADDRESS 3",5 770 DATA"ADDRESS 4",5 780 DATA"ADDRESS 5",5 790 DATA"POST CODE",5 800 DATA"ACCOUNT NUMBER",6 810 DATA"ACCOUNT TYPE",6 820 DATA"CASH CARD NAME",6 830 DATA"DEBIT CARD NAME",6 840 DATA"CHEQUE BOOK YN",6 850 DATA"GUARANTEE LIMIT",6 860 DATA"OVERDRAFT LIMIT",6 870 DATA"ARCHVE FILENAME",6 880 DATA"REGULR PAYMENTS",6 890 DATA"BAL BROUGHT FWD",6 900 DATA"BANK SORT CODE",6 910 DATA"ACCOUNT No",7 920 DATA"TRANS DATE",7 930 DATA" AMOUNT",7 940 DATA" BALANCE",7 950 DATA"",7 960 DATA"",7 970 DATA"REFERENCE",7 980 DATA"ACCOUNT BALANCE",8 990 DATA"OVERDRAFT LIMIT",8 1000 DATA"FUNDS AVAILABLE",8 1010 DATA"",8 1020 DATA"CHEQUE BOOK",8 1030 DATA"DEBIT CARD",8 1040 DATA"",8 1050 DATA"ACCOUNT NUMBER",8 1060 DATA"ACCOUNT NAME",8 1070 DATA"",8 1080 DATA"CODE",8 1090 DATA"GUARANTEE",9 1100 DATA"CASH CARD",9 1110 DATA"AMOUNT",10 1120 DATA"BALANCE",11 1130 DATA" CODE",12 1140 DATA"TRANSACTION",12 1150 DATA" EXTENSION",12 1160 DATA" AMOUNT",12 1170 DATA"",12 1180 DATA"REFERENCE",12 1190 DATA"",12 1200 DATA"",12 1210 DATA"SUSPENSION TAG",12 1220 DATA"PROCEED",13 1230 DATA"DELETE",13 1240 DATA"ABANDON",13 1250 DATA"AMEND",13 1260 DATA"SUSPENSION",14 1270 DATA"ANOTHER",15 1280 DATA"FINISH",15 1290 DATA"TAG",16 1300 DATA"CODE",17 1310 DATA"AMOUNT",18 1320 DATA"REFERENCE",19 1330 DATA"ENTER RUN DATE",20 1340 DATA"END",0 1350 DEFPROCE:FORj%=4TO22:PRINTTAB(4,j%);SPC34:NEXT:ENDPROC 1360 DEFPROCO(b%,k%):FORj%=b%TOk%:PRINTTAB(4,j%);SPC34:NEXT:ENDPROC 1370 DEFPROCI:REPEATPROCE:PROCF(2,8,7):l%=FNA(6,7,29,12):IFl%=1PROCP:CLEAR:RUN 1380 IFl%=2PROCQ 1390 IFl%=3PROCR 1400 IFl%=4PROCS 1410 IFl%=5PROCT 1420 UNTILl%=6:ENDPROC 1430 DEFPROCH:REPEATPROCE:PROCF(3,8,8):m%=FNA(6,8,28,12):IFm%=1PROCU 1440 IFm%=2CLEAR:CHAIN"BANK80" 1450 IFm%=3PROCV 1460 IFm%=4PROCW 1470 UNTILm%=5:ENDPROC 1480 DEFPROCG:REPEATPROCE:PROCF(4,8,10):n%=FNA(6,10,28,12):IFn%=1PROCX 1490 IFn%=2PROCY 1500 UNTILn%=3:ENDPROC 1510 DEFPROCP:PROCE:*FX4,1 1520 PROCF(5,3,5):G$=FND(13,5,23):H$=FND(13,6,23):I$=FND(13,7,23):J$=FND(13,8,23):K$=FND(13,9,23):L$=FND(13,10,23):M$=FND(13,11,10):N$=FND(13,13,23) 1530 O$=FND(13,14,23):Q$=FND(13,15,23):R$=FND(13,16,23):S$=FND(13,17,23):T$=FND(13,18,23):U$=FND(13,19,23):V$=FND(13,20,10):o%=FNE(9,22):IFo%=2ENDPROC 1540 PROCE:PROCF(6,3,5):*FX4,1 1550 A$=FND(19,5,18):IFA$=""PRINTTAB(19,5);SPC18:GOTO1550 1560 W$=FND(19,6,18):X$=FND(19,7,18):Y$=FND(19,8,18) 1570 Z$=FND(19,9,2):IFZ$<>"Y"ANDZ$<>"y"ANDZ$<>"N"ANDZ$<>"n"GOTO1570 1580 _$=FND(19,10,8):p%=VAL_$:PRINTTAB(20,10);SPC10;TAB(20,10);p%:_$=STR$p%:`$=FND(19,11,8):q%=VAL`$:PRINTTAB(20,11);SPC10;TAB(20,11);q%:`$=STR$q%:a$=FND(19,12,8):b$=FND(19,13,8):c$=FND(19,14,15):PRINTTAB(20,14);FNC(c$):P$=FND(19,15,9):o%=FNE(9,19):IFo%=2ENDPROC 1590 PROCO(16,22):PROCJ("CREATING ACCOUNT RECORD",100):C=OPENIN"BNKDATA":CLOSE#0:IFC<>0IFFNF("ACCOUNT ALREADY EXISTS",0)<>9ENDPROC 1600 C=OPENOUT"BNKDATA":PROCL:CLOSE#C:PROCJ("2",200):PROCJ("",0):PROCJ("CREATING STATEMENT",100):B=OPENIN"BNKSTMT":CLOSE#B:IFB<>0IFFNF("STATEMT ALREADY EXISTS",0)<>9ENDPROC 1610 B=OPENOUT"BNKSTMT":PTR#B=0:PRINT#B,"","BBF","BALANCE BROUGHT FORWARD","","",c$:PTR#B=80:r%=r%+1:CLOSE#B:PROCJ("2",250):PROCJ("",0):ENDPROC 1620 DEFFND(a%,b%,e%):j%=0:IFa%<>0THENa%=a%+1 1630 e%=e%-1:E$="":F$="":IFa%=0ANDb%=0PROCM:=F$ 1640 PRINTTAB((a%-1),b%);CHR$135;:PROCN:REPEAT 1650 E$=GET$:IFE$=CHR$13GOTO1700 1660 IFE$=CHR$127ANDj%<1VDU7:GOTO1650 1670 IFE$=CHR$127PRINT;CHR$127;:F$=LEFT$(F$,(LENF$-1)):j%=j%-1:GOTO1700 1680 IFj%>=e%VDU7:GOTO1650 1690 F$=F$+E$:PRINT;E$;:j%=j%+1 1700 UNTILE$=CHR$13:PROCM:=F$ 1710 DEFFNE(a%,b%):PRINTTAB(a%,b%);CHR$134;"CONFIRM";TAB((a%+13),b%);CHR$134;"ABANDON":=FNB(a%-2,b%,13,2) 1720 DEFPROCD:PRINTTAB(12,12);CHR$134;CHR$136;"Please Wait";CHR$137:G$="":H$="":I$="":J$="":K$="":L$="":M$="":N$="":Q$="":R$="":S$="":T$="":U$="":V$="":A$="":W$="":X$="":Y$="":Z$="":_$="":`$="":a$="":b$="":P$="":O$="":s%=0:d$="":D=FALSE:e$="":f$="":g$="":h$="":r%=0:TIME=0:REPEATUNTILTIME>150 1730 B=OPENIN"BNKDATA":IFB=0CLOSE#0:ENDPROC 1740 IFEOF#BCLOSE#0:ENDPROC 1750 PROCK:CLOSE#B:B=OPENIN"BNKSTMT":IFB=0CLOSE#B:ENDPROC 1760 IFEOF#BCLOSE#0:ENDPROC 1770 PTR#B=0:r%=0:REPEATINPUT#B,E$,F$,i$,j$,k$,h$:r%=r%+1:PTR#B=(r%*80):UNTILEOF#BOR((r%+1)*80)>EXT#B:CLOSE#B:ENDPROC 1780 DEFFNF(l$,i%):PROCJ(("REJECTED *** "+l$),i%):VDU7:m$=GET$:PROCJ("",0):IFm$="O"ORm$="o"PROCJ("3",200):=9 1790 =0 1800 DEFPROCX:PROCE:PRINTTAB(3,5);CHR$134;"TRANSACTIONS MODE EMULATION":PRINTTAB(3,6);CHR$134;"(C) Duncan Webster 1990":REPEATPRINTTAB(3,21);CHR$134;"READY";CHR$135;:PROCN:n$=FND(9,21,6):o$="":PROCZ(n$):PROCE:IFLEFT$(n$,1)="D"PROC_(p$,o$) 1810 IFLEFT$(n$,1)="P"PROC`(p$,o$) 1820 IFLEFT$(n$,1)<>"D"ANDLEFT$(n$,1)<>"P"ANDn$<>"EXT"PROCa("INVALID TRANSACTION CODE") 1830 UNTILn$="EXT":CLOSE#0:D=FALSE:ENDPROC 1840 DEFPROCa(l$):PROCO(4,22):PRINTTAB(29,5);"REJECTED";TAB(3,13);CHR$134;l$:VDU7:PROCJ("",0):ENDPROC 1850 DEFPROCb:PRINTTAB(29,5);CHR$134;"ACCEPTED":ENDPROC 1860 DEFPROC_(p$,o$):PRINTTAB(3,5);CHR$134;"DEPOSIT ";o$:IFD=TRUEGOTO1900 1870 B=OPENUP"BNKSTMT":IFB=0CLOSE#0:PROCa("STATEMENT NON EXISTENT"):ENDPROC 1880 IFEOF#BCLOSE#0:PROCa("STATEMENT EMPTY"):ENDPROC 1890 PTR#B=(r%*80):D=TRUE 1900 PROCF(7,3,8):PRINTTAB(15,8);CHR$135;A$ 1910 PRINTTAB(16,9);e$:q$=FND(15,9,9):IFq$<>""e$=q$ 1920 IFe$=""ORe$=" "GOTO1910 1930 PRINTTAB(16,9);SPC21;TAB(16,9);e$:r$=FND(15,10,10):PRINTTAB(16,10);FNC(r$):IFp$="ATM"ANDX$<>""o$=X$ 1940 IFp$="DRC"ANDY$<>""o$=Y$ 1950 IFp$="PYC"ANDY$<>""o$=Y$ 1960 PRINTTAB(4,15);o$:q$=FND(3,15,33):IFq$<>""o$=q$ 1970 PRINTTAB(4,15);SPC33;TAB(4,15);o$:t%=FNE(9,19):IFt%=2PROCa("TRANSACTION ABANDONED"):ENDPROC 1980 PROCO(19,20):PTR#B=PTR#B+80:PTR#B=PTR#B-80:u%=VALr$:v%=VALh$:j%=v%+u%:h$=STR$j%:PRINT#B,e$,p$,o$,"",r$,h$:r%=r%+1:PTR#B=(r%*80):PROCb:PRINTTAB(15,11);CHR$135;FNC(h$):ENDPROC 1990 DEFPROC`(p$,o$):PRINTTAB(3,5);CHR$134;"PAYMENT ";o$:IFD=TRUEGOTO2030 2000 B=OPENUP"BNKSTMT":IFB=0CLOSE#0:PROCa("STATEMENT NON EXISTENT"):ENDPROC 2010 IFEOF#BCLOSE#0:PROCa("STATEMENT EMPTY"):ENDPROC 2020 PTR#B=(r%*80):D=TRUE 2030 PROCF(7,3,8):PRINTTAB(15,8);CHR$135;A$ 2040 PRINTTAB(16,9);e$:q$=FND(15,9,9):IFq$<>""e$=q$ 2050 IFe$=""ORe$=" "GOTO2040 2060 PRINTTAB(16,9);SPC21;TAB(16,9);e$:r$=FND(15,10,10):PRINTTAB(16,10);FNC(r$):IFp$="ATM"ANDX$<>""o$=X$ 2070 IFp$="DRC"ANDY$<>""o$=Y$ 2080 IFp$="PYC"ANDY$<>""o$=Y$ 2090 PRINTTAB(4,15);o$:q$=FND(3,15,33):IFq$<>""o$=q$ 2100 PRINTTAB(4,15);SPC33;TAB(4,15);o$:t%=FNE(9,19):IFt%=2PROCa("TRANSACTION ABANDONED"):ENDPROC 2110 PROCO(19,20):PTR#B=PTR#B+80:PTR#B=PTR#B-80:u%=VALr$:v%=VALh$:j%=v%-u%:h$=STR$j%:PRINT#B,e$,p$,o$,r$,"",h$:r%=r%+1:PTR#B=(r%*80):PROCb:PRINTTAB(15,11);CHR$135;FNC(h$):ENDPROC 2120 DEFPROCZ(n$):o$="":p$="":IFRIGHT$(n$,3)="CSH"o$="CASH":p$="CSH" 2130 IFRIGHT$(n$,3)="CHQ"o$="CHEQUE":p$="CHQ" 2140 IFRIGHT$(n$,3)=" SO"o$="STANDING ORDER":p$="SO" 2150 IFRIGHT$(n$,3)="OTH"o$="MISCELLANEOUS":p$="OTH" 2160 IFRIGHT$(n$,3)="INT"o$="INTEREST":p$="INT" 2170 IFRIGHT$(n$,3)="SAL"o$="SALARY":p$="SAL" 2180 IFRIGHT$(n$,3)="CSQ"o$="CASH & CHEQUES":p$="CSQ" 2190 IFRIGHT$(n$,3)="TFR"o$="FUNDS TRANSFER":p$="TFR" 2200 IFRIGHT$(n$,3)="BGC"o$="BANK GIRO CREDIT":p$="BGC" 2210 IFRIGHT$(n$,3)="VIS"o$="VISA":p$="VIS" 2220 IFRIGHT$(n$,3)=" MC"o$="MASTERCARD":p$="MC" 2230 IFRIGHT$(n$,3)="AMX"o$="AMERICAN EXPRESS":p$="AMX" 2240 IFRIGHT$(n$,3)="DNR"o$="DINERS CLUB CARD":p$="DNR" 2250 IFRIGHT$(n$,3)="ATM"o$="CASH DISPENSER":p$="ATM" 2260 IFRIGHT$(n$,3)=" DD"o$="DIRECT DEBIT":p$="DD" 2270 IFRIGHT$(n$,3)="COR"o$="CORRECTION":p$="COR" 2280 IFRIGHT$(n$,3)=" BP"o$="BILL PAYMENT":p$="BP" 2290 IFRIGHT$(n$,3)="CHG"o$="ACCOUNT CHARGES":p$="CHG" 2300 IFRIGHT$(n$,3)="MTG"o$="MORTGAGE":p$="MTG" 2310 IFRIGHT$(n$,3)="EFT"o$="EFTPOS UK":p$="EFT" 2320 IFRIGHT$(n$,3)="PSV"o$="PAYSAVE":p$="PSV" 2330 IFRIGHT$(n$,3)=" FE"o$="FOREIGN EXCHANGE":p$="FE" 2340 IFRIGHT$(n$,3)="EUR"o$="EUROCHEQUE":p$="EUR" 2350 IFRIGHT$(n$,3)="PLN"o$="PERSONAL LOAN":p$="PLN" 2360 IFRIGHT$(n$,3)="DRC"o$="DEBIT CARD":p$="DRC" 2370 IFRIGHT$(n$,3)="PYC"o$="PAYMENT CARD":p$="PYC" 2380 ENDPROC 2390 DEFPROCA:PROCJ("",0):CLOSE#0:PROCE:w%=0:VDU6:VDU3:*FX15,0 2400 IFERR=&BFTHENw%=9:PRINTTAB(15,11);CHR$134;"Disc Full" 2410 IFERR=&BDTHENw%=9:PRINTTAB(10,11);CHR$134;"Access Violation" 2420 IFERR=&CCTHENw%=9:PRINTTAB(15,11);CHR$134;"Bad Name" 2430 IFERR=&A8THENw%=9:PRINTTAB(12,11);CHR$134;"Broken Directory" 2440 IFERR=&C7THENw%=9:PRINTTAB(14,11);CHR$134;"Disc Error" 2450 IFERR=&C6THENw%=9:PRINTTAB(15,11);CHR$134;"Disc Full" 2460 IFERR=&D6THENw%=9:PRINTTAB(15,11);CHR$134;"Not Found" 2470 IFERR=&CETHENw%=9:PRINTTAB(12,11);CHR$134;"Bad Directory" 2480 IFERR=&FETHENw%=9:PRINTTAB(12,11);CHR$134;"Bad Command" 2490 IFERR=&A9THENw%=9:PRINTTAB(10,11);CHR$134;"Bad Free Space Map" 2500 IFERR=&98THENw%=9:PRINTTAB(10,11);CHR$134;"ADFS Compaction Reqd" 2510 IFERR=&C3THENw%=9:PRINTTAB(15,11);CHR$134;"ADFS (locked)" 2520 IFw%=0CLS:PRINTTAB(10,11);"";:REPORT:PRINT;" (";ERL;")":w%=9 2530 PRINTTAB(3,15);CHR$134;"SYSTEMS must Re-Boot PRESS RETURN":*FX15 2540 A=GET:CLS:CLEAR:CHAIN"BANKACC":STOP:ENDPROC 2550 DEFPROCV:PROCE:PRINTTAB(12,8);CHR$134;"READY PRINTER":IFFNE(9,11)=2ENDPROC 2560 PROCE:PRINTTAB(10,12);CHR$134;"Printing Statement":B=OPENIN"BNKSTMT":IFB=0CLOSE#B:ENDPROC 2570 IFEOF#BCLOSE#B:ENDPROC 2580 PTR#B=0:r%=0:*FX15,0 2590 *FX15 2600 VDU2:VDU21:FORu%=0TO7:PRINT:NEXT:E=FALSE:PRINT"SYSTEMS bank VERSION 3a (c) Duncan Webster 1990":PRINT"STATEMENT OF ACCOUNT for ";N$:PRINTO$;" branch":PRINT:PRINTG$:PRINTH$'I$'J$:IFK$<>""PRINTK$ 2610 IFL$<>""PRINTL$ 2620 PRINTM$:PRINT:PRINT"Account Number ";A$;" Account Type: ";W$:PRINT"_______________________________________________________________________________":PRINT:PRINT"DATE CODE REFERENCE DEBIT CREDIT BALANCE":PRINT:REPEAT 2630 INPUT#B,s$,t$,p$,u$,v$,w$:r%=r%+1:PTR#B=(r%*80):IFu$=""ANDv$=""PRINTTAB(0);s$;TAB(8);t$;TAB(14);p$;TAB(79-LEN(FNC(w$)));FNC(w$):GOTO2670 2640 IFu$=""GOTO2660 2650 u$=FNC(u$):PRINTTAB(0);s$;TAB(8);t$;TAB(14);p$;TAB(50-LENu$);u$;TAB(79-LEN(FNC(w$)));FNC(w$):GOTO2670 2660 PRINTTAB(0);s$;TAB(8);t$;TAB(14);p$;TAB(62-LEN(FNC(v$)));FNC(v$);TAB(79-LEN(FNC(w$)));FNC(w$) 2670 UNTILEOF#BOR((r%+1)*80)>EXT#B:CLOSE#B:PRINT"_______________________________________________________________________________":PRINT:PRINT"CSH-Cash CHQ-Cheque SO-Standing Order OTH-Miscellaneous INT-Interest SAL-Salary" 2680 PRINT"CSQ-Cash/Cheques TFR-Funds Transfer BGC-Bank Giro Credit VIS-Visa MC-Mastercard":PRINT"AMX-American Express DNR-Diners Club ATM-Cash Dispenser CHG-Charges EFT-EftPos":PRINT"DD-Direct Debit COR-Correction BP-Bill Payment PSV-Paysave FE-Foreign Exchange" 2690 PRINT"BBF-Balance Brought Forward BCF-Balance Carried Forward EUR-EuroCheque PLN-Loan":PRINT" PYC-Payment Card DRC-Debit Card":FORu%=0TO10:PRINTSPC10:NEXT:*FX15 2700 VDU3:VDU6:VDU3:ENDPROC 2710 DEFPROCU:PROCE:PROCF(8,4,5):PROCF(9,20,9):PROCF(10,17,15):PROCF(11,30,15):IFZ$="Y"E$="Yes"ELSEE$="No" 2720 PRINTTAB(16,9);CHR$135;E$:IFY$=""E$="No"ELSEE$="Yes" 2730 PRINTTAB(16,10);CHR$135;E$:PRINTTAB(30,9);CHR$135;_$:IFX$=""E$="No"ELSEE$="Yes" 2740 PRINTTAB(30,10);CHR$135;E$:PRINTTAB(19,12);CHR$135;A$:PRINTTAB(19,13);CHR$135;W$:PRINTTAB(20,5);CHR$135;FNC(h$):IF`$="O"PRINTTAB(20,6);CHR$135;"None":GOTO2760 2750 PRINTTAB(20,6);CHR$135;`$ 2760 u%=VALh$:v%=(VAL`$*100):j%=u%+v%:x$=STR$j%:PRINTTAB(20,7);CHR$135;FNC(x$):B=OPENIN"BNKSTMT":IFB=0CLOSE#B:ENDPROC 2770 IFEOF#BCLOSE#B:ENDPROC 2780 f%=22:x%=1:IFr%<7THENf%=f%-(7-r%) 2790 REPEATPTR#B=(80*r%)-(80*x%):INPUT#B,E$,t$,F$,u$,v$,w$:IFt$=""t$="None" 2800 IFu$=""ANDv$=""PRINTTAB(4,f%);CHR$135;t$;TAB(38-LEN(FNC(w$)),f%);FNC(w$):GOTO2830 2810 IFv$=""PRINTTAB(4,f%);CHR$135;t$;TAB(24-LEN(FNC(u$)),f%);FNC(u$);TAB(24,f%);"_";TAB(38-LEN(FNC(w$)),f%);FNC(w$) 2820 IFu$=""PRINTTAB(4,f%);CHR$135;t$;TAB(24-LEN(FNC(v$)),f%);FNC(v$);TAB(24,f%);"+";TAB(38-LEN(FNC(w$)),f%);FNC(w$) 2830 x%=x%+1:f%=f%-1:UNTILf%<=15ORPTR#B=0:CLOSE#B:PROCJ("PRESS RETURN",0):A=GET:PROCJ("",0):ENDPROC 2840 DEFPROCS:PROCE:B=OPENUP"BANKREG":IFB=0CLOSE#B:B=OPENOUT"BANKREG" 2850 IFEOF#BPTR#B=0:GOTO2870 2860 PTR#B=EXT#B 2870 PROCF(12,3,5) 2880 y$=FND(15,5,6):IFLEFT$(y$,1)<>"D"ANDLEFT$(y$,1)<>"P"PRINTTAB(15,5);SPC7:GOTO2880 2890 IFLEFT$(y$,1)="D"z$="DEPOSIT"ELSEz$="PAYMENT" 2900 o$="":PROCZ(y$):PRINTTAB(15,6);CHR$135;z$:IFp$="PYC"ANDY$<>""o$=Y$ 2910 IFp$="DRC"ANDY$<>""o$=Y$ 2920 IFp$="ATM"ANDX$<>""o$=X$ 2930 PRINTTAB(15,7);CHR$135;o$:D$=FND(15,8,10):PRINTTAB(15,8);CHR$135;FNC(D$):PRINTTAB(3,11);CHR$135;o$:p$=FND(3,11,33):IFp$=""p$=o$ 2940 PRINTTAB(3,11);SPC(LENo$+1);TAB(3,11);CHR$135;p$:PRINTTAB(21,13);CHR$134;"OFF";TAB(29,13);CHR$134;"SET":y%=FNB(19,13,8,2):IFFNE(9,15)=2CLOSE#B:ENDPROC 2950 PRINT#B,y$,D$,p$,y%:PRINTTAB(9,17);CHR$134;"ANOTHER";TAB(22,17);CHR$134;"FINISH":IFFNB(7,17,13,2)=2CLOSE#0:ENDPROC 2960 PROCE:GOTO2870:ENDPROC 2970 DEFPROCT:PROCE:PROCF(12,3,5):PROCO(12,14) 2980 AA$=FND(15,5,4):IFLENAA$=1GOTO2980 2990 IFAA$="ALL"PROCc:ENDPROC 3000 PROCZ(AA$):PRINTTAB(15,7);CHR$135;o$:BA$=FND(15,8,10):IFBA$=""GOTO3020 3010 PRINTTAB(15,8);CHR$135;FNC(BA$) 3020 B=OPENIN"BANKREG":IFB=0CLOSE#B:ENDPROC 3030 IFEOF#BCLOSE#B:ENDPROC 3040 C=OPENOUT"NEW":z%=0:REPEATINPUT#B,y$,D$,CA$,y%:IFz%=9GOTO3150 3050 IFBA$=""ANDAA$=""PROCd:GOTO3110 3060 IFBA$=""ANDAA$=RIGHT$(y$,3)PROCd:GOTO3110 3070 IFBA$=""ANDAA$=RIGHT$(y$,2)PROCd:GOTO3110 3080 IFBA$=D$ANDAA$=""PROCd:GOTO3110 3090 IFBA$=D$ANDAA$=RIGHT$(y$,2)PROCd:GOTO3110 3100 IFBA$=D$ANDAA$=RIGHT$(y$,3)PROCd:GOTO3110 3110 IFz%<>0ANDz%<>9THENz%=FNA(3,13,13,16) 3120 IFz%=1THENz%=0 3130 IFz%=2GOTO3160 3140 IFz%=4PROCe 3150 PRINT#C,y$,D$,CA$,y%:IFz%=4THENz%=FNG 3160 UNTILEOF#BORz%=3:IFEOF#BANDz%<>3ANDz%<>9PROCE:PRINTTAB(8,11);CHR$134;"No more matches found";TAB(12,13);CHR$134;"Press Return";:A=GET 3170 CLOSE#0:IFz%=3OSCLI"DELETE NEW":ENDPROC 3180 *DELETE BANKREG 3190 *RENAME NEW BANKREG 3200 ENDPROC 3210 DEFPROCd:z%=0:PROCE:PROCF(12,3,5):PROCO(12,14):IFLEFT$(y$,1)="D"PRINTTAB(15,6);CHR$135;"DEPOSIT" 3220 IFLEFT$(y$,1)="P"PRINTTAB(15,6);CHR$135;"PAYMENT" 3230 PRINTTAB(3,11);CHR$135;CA$:PROCZ(y$):PRINTTAB(15,7);CHR$135;o$:PRINTTAB(15,8);CHR$135;FNC(D$):E$=RIGHT$(y$,2):IFE$="SO"ORE$="DD"ORE$="BP"ORE$="MC"ORE$="FE"PRINTTAB(15,5);CHR$135;RIGHT$(y$,2):GOTO3250 3240 PRINTTAB(15,5);CHR$135;RIGHT$(y$,3) 3250 PROCF(13,5,13):z%=1:ENDPROC 3260 DEFPROCc:PROCE:PRINTTAB(5,11);CHR$134;"Delete All Regular Payments":IFFNE(9,14)=2ENDPROC 3270 B=OPENIN"BANKREG":CLOSE#B:IFB=0ENDPROC 3280 OSCLI"DELETE BANKREG":ENDPROC 3290 DEFPROCe:PROCO(12,22):PROCF(14,3,13):IFy%=1THENDA$="OFF"ELSEDA$="SET" 3300 PRINTTAB(3,14);CHR$135;DA$:PRINTTAB(16,5);y$ 3310 E$=FND(15,5,6):IFE$<>""y$=E$ 3320 IFLEFT$(y$,1)<>"D"ANDLEFT$(y$,1)<>"P"GOTO3310 3330 PRINTTAB(16,5);SPC7;TAB(16,5);y$:o$="":PROCZ(y$):IFLEFT$(y$,1)="D"z$="DEPOSIT"ELSEz$="PAYMENT" 3340 PRINTTAB(15,6);CHR$135;z$:PRINTTAB(15,7);SPC18;TAB(15,7);CHR$135;o$:E$=FND(15,8,11):IFE$<>""D$=E$ 3350 PRINTTAB(16,8);SPC15;TAB(16,8);FNC(D$):E$=FND(3,11,33):IFE$<>""CA$=E$ 3360 PRINTTAB(4,11);SPC33;TAB(4,11);CA$ 3370 E$=FND(3,14,4):IFE$<>"SET"ANDE$<>"OFF"ANDE$<>"ON"ANDE$<>""GOTO3370 3380 IFE$<>""DA$=E$ 3390 IFDA$="ON"DA$="SET" 3400 PRINTTAB(4,14);DA$:IFDA$="SET"y%=2ELSEy%=1 3410 ENDPROC 3420 DEFFNG:PROCF(15,5,16):z%=FNA(3,16,13,17):IFz%=1THENz%=0 3430 IFz%=2THENz%=9 3440 =z% 3450 DEFPROCW:PROCE:PROCF(16,3,4):PROCF(17,7,4):PROCF(18,14,4):PROCF(19,21,4):f%=6:B=OPENIN"BANKREG":IFB=0CLOSE#B:ENDPROC 3460 IFEOF#BCLOSE#B:ENDPROC 3470 REPEATINPUT#B,t$,D$,p$,y%:IFy%=1THENDA$="OFF"ELSEDA$="SET" 3480 IFy%=1THENAA%=131ELSEAA%=132 3490 IFVALD$>999999PRINTTAB(3,f%);CHR$AA%;DA$;TAB(8,f%);t$;TAB(15,f%);"Too BG";TAB(22,f%);LEFT$(p$,16):GOTO3510 3500 PRINTTAB(3,f%);CHR$AA%;DA$;TAB(8,f%);t$;TAB(21-(LEN(FNC(D$))),f%);FNC(D$);TAB(22,f%);LEFT$(p$,16) 3510 f%=f%+1:IFf%>21ANDNOTEOF#BPROCJ("PRESS RETURN",0):F=GET:PROCJ("",0):PROCO(5,22):f%=6 3520 UNTILEOF#B:CLOSE#B:PROCJ("PRESS RETURN",0):F=GET:PROCJ("",0):ENDPROC 3530 DEFPROCY:PROCE:PRINTTAB(7,8);CHR$134;"Apply Regular Payments":IFFNE(8,11)=2ENDPROC 3540 PROCO(10,12):PROCF(20,7,11) 3550 s$=FND(22,11,8):IFs$=""GOTO3550 3560 PROCE:PRINTTAB(7,8);CHR$134;"Applying Regular Payments":PRINTTAB(7,10);CHR$134;"to statement. PLEASE WAIT":B=OPENIN"BANKREG":IFB=0CLOSE#B:ENDPROC 3570 IFEOF#BCLOSE#B:ENDPROC 3580 C=OPENUP"BNKSTMT":PTR#C=(r%*80):REPEATINPUT#B,t$,D$,p$,y%:IFy%=2GOTO3650 3590 PTR#C=PTR#C+80:PTR#C=PTR#C-80:u%=VALD$:v%=VALh$:IFLEFT$(t$,1)="D"j%=v%+u% 3600 IF LEN(t$)<=4 THEN code$=RIGHT$(t$,2) ELSE code$=RIGHT$(t$,3) 3610 IFLEFT$(t$,1)="P"j%=v%-u% 3620 h$=STR$j%:IFLEFT$(t$,1)="D"PRINT#C,s$,code$,p$,"",D$,h$ 3630 IFLEFT$(t$,1)="P"PRINT#C,s$,code$,p$,D$,"",h$ 3640 r%=r%+1:PTR#C=(80*r%) 3650 UNTILEOF#B:CLOSE#B:CLOSE#C:ENDPROC 3660 DEFPROCQ:PROCE:PRINTTAB(4,8);CHR$134;"Make Sure Statement is Printed":IFFNE(9,10)=2ENDPROC 3670 PRINTTAB(8,14);CHR$134;"Carry Forward Balance":PRINTTAB(13,16);CHR$134;"YES";TAB(22,16);CHR$134;"NO":BA%=FNB(11,16,8,2):PROCJ("OVERWRITING STATEMENT",0):B=OPENOUT"BNKSTMT":IFBA%=2PRINT#B,"","","","","","0"ELSEPRINT#B,"","BCF","BALANCE CARRIED FORWARD","","",h$ 3680 PTR#B=80:r%=1:CLOSE#B:PROCJ("ACCEPTED",100):PROCJ("",0):ENDPROC 3690 DEFPROCR:PROCE:PROCF(5,3,5):PRINTTAB(13,5);CHR$135;G$;TAB(13,6);CHR$135;H$;TAB(13,7);CHR$135;I$;TAB(13,8);CHR$135;J$;TAB(13,9);CHR$135;K$;TAB(13,10);CHR$135;L$;TAB(13,11);CHR$135;M$ 3700 PRINTTAB(13,13);CHR$135;N$;TAB(13,14);CHR$135;O$;TAB(13,15);CHR$135;Q$;TAB(13,16);CHR$135;R$;TAB(13,17);CHR$135;S$;TAB(13,18);CHR$135;T$;TAB(13,19);CHR$135;U$:PRINTTAB(13,20);CHR$135;V$:E$=FND(13,5,23):IFE$<>""G$=E$ 3710 PRINTTAB(14,5);SPC23;TAB(14,5);G$:E$=FND(13,6,23):IFE$<>""H$=E$ 3720 PRINTTAB(14,6);SPC23;TAB(14,6);H$:E$=FND(13,7,23):IFE$<>""I$=E$ 3730 PRINTTAB(14,7);SPC23;TAB(14,7);I$:E$=FND(13,8,23):IFE$<>""J$=E$ 3740 PRINTTAB(14,8);SPC23;TAB(14,8);J$:E$=FND(13,9,23):IFE$<>""K$=E$ 3750 PRINTTAB(14,9);SPC23;TAB(14,9);K$:E$=FND(13,10,23):IFE$<>""L$=E$ 3760 PRINTTAB(14,10);SPC23;TAB(14,10);L$:E$=FND(13,11,10):IFE$<>""M$=E$ 3770 PRINTTAB(14,11);SPC11;TAB(14,11);M$:E$=FND(13,13,23):IFE$<>""N$=E$ 3780 PRINTTAB(14,13);SPC23;TAB(14,13);N$:E$=FND(13,14,23):IFE$<>""O$=E$ 3790 PRINTTAB(14,14);SPC23;TAB(14,14);O$:E$=FND(13,15,23):IFE$<>""Q$=E$ 3800 PRINTTAB(14,15);SPC23;TAB(14,15);Q$:E$=FND(13,16,23):IFE$<>""R$=E$ 3810 PRINTTAB(14,16);SPC23;TAB(14,16);R$:E$=FND(13,17,23):IFE$<>""S$=E$ 3820 PRINTTAB(14,17);SPC23;TAB(14,17);S$:E$=FND(13,18,23):IFE$<>""T$=E$ 3830 PRINTTAB(14,18);SPC23;TAB(14,18);T$:E$=FND(13,19,23):IFE$<>""U$=E$ 3840 PRINTTAB(14,19);SPC23;TAB(14,19);U$:E$=FND(13,20,23):IFE$<>""V$=E$ 3850 PRINTTAB(14,20);SPC23;TAB(14,20);V$:PROCE:PROCF(6,3,5):PRINTTAB(19,5);CHR$135;A$;TAB(19,6);CHR$135;W$;TAB(19,7);CHR$135;X$;TAB(19,8);CHR$135;Y$;TAB(19,9);CHR$135;Z$;TAB(19,10);CHR$135;_$;TAB(19,11);CHR$135;`$:PRINTTAB(19,12);CHR$135;a$;TAB(19,13);CHR$135;b$;TAB(19,14);CHR$135;"Not Applicable";TAB(19,15);CHR$135;P$ 3860 E$=FND(19,5,18):IFE$<>""A$=E$ 3870 IFE$=" "GOTO3860 3880 PRINTTAB(20,5);SPC18;TAB(20,5);A$:E$=FND(19,6,18):IFE$<>""W$=E$ 3890 PRINTTAB(20,6);SPC18;TAB(20,6);W$:E$=FND(19,7,18):IFE$<>""X$=E$ 3900 PRINTTAB(20,7);SPC18;TAB(20,7);X$:E$=FND(19,8,18):IFE$<>""Y$=E$ 3910 PRINTTAB(20,8);SPC18;TAB(20,8);Y$ 3920 E$=FND(19,9,2):IFE$<>""ANDE$<>"Y"ANDE$<>"N"GOTO3920 3930 IFE$<>""Z$=E$:PRINTTAB(20,9);Z$ 3940 E$=FND(19,10,8):IFE$<>""_$=E$ 3950 p%=VAL_$:PRINTTAB(20,10);SPC10;TAB(20,10);p%:_$=STR$p%:E$=FND(19,11,8):IFE$<>""`$=E$ 3960 q%=VAL`$:`$=STR$q%:PRINTTAB(20,11);SPC10;TAB(20,11);`$:E$=FND(19,12,8):IFE$<>""a$=E$ 3970 PRINTTAB(20,12);SPC10;TAB(20,12);a$:E$=FND(19,13,8):IFE$<>""b$=E$ 3980 PRINTTAB(20,13);SPC10;TAB(20,13);b$:E$=FND(19,15,9):IFE$<>""P$=E$ 3990 PRINTTAB(20,15);SPC11;TAB(20,15);P$:IFFNE(10,17)=2CLOSE#0:CLEAR:RUN 4000 PROCJ("AMENDING ACCOUNT",0):C=OPENOUT"NEW":PROCL:CLOSE#C:*DELETE BNKDATA 4010 *RENAME NEW BNKDATA 4020 PROCJ("ACCEPTED",250):PROCJ("",0):ENDPROC 4030 DEFPROCB:CLS:PRINT"‘šÿ¯¯êµêµÿ¯¯ªï¿¥ÿ¯¯ê¿ÿïµÿ¯¯†BANK ":PRINT"‘š¯¯ÿª¯ïµ¯¯ÿ êµ ÿ¯ 굯굯¯ÿ†ACCOUNT ":PRINT"‘š¯¯¯ª¯¯¥¯¯¯ ª¥ ¯¯¯ª¥ ª¥¯¯¯†MANAGER ":PRINT"” ¼¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬´";:FORCA%=1TO19:PRINT"” µ ”µ"; 4040 NEXT:PRINT"” ­¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¥";:PRINTTAB(3,5);CHR$134;"COPYRIGHT (C) DUNCAN WEBSTER 1990":ENDPROC