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