30MODE3:PROCA:`%=6:£%=0:B=OPENIN"BNKS TMT":IFB=0CLOSE#B:CLEAR:CHAIN"BANKACC" 80IFEOF#BCLOSE#B:CLEAR:CHAIN"BANKACC" 90REPEATINPUT#B,A$,B$,C$,D$,E$,F$:£%= £%+1:PTR#B=(£%*80):IFD$=""ANDE$=""PRINTT AB(0,`%);A$;TAB(9,`%);B$;TAB(14,`%);C$;T AB(79-(LEN(FNA(F$))),`%);FNA(F$):GOTO170 140IFD$=""GOTO160 150PRINTTAB(0,`%);A$;TAB(9,`%);B$;TAB( 14,`%);C$;TAB(57-(LEN(FNA(D$))),`%);FNA( D$);TAB(79-(LEN(FNA(F$))),`%);FNA(F$):GO TO170 160PRINTTAB(0,`%);A$;TAB(9,`%);B$;TAB( 14,`%);C$;TAB(68-(LEN(FNA(E$))),`%);FNA( E$);TAB(79-(LEN(FNA(F$))),`%);FNA(F$) 170`%=`%+1:IF`%>=22THEN`%=6:PROCB 180UNTILEOF#BOR((£%+1)*80)>EXT#B:CLOSE #0:PRINTTAB(0,24);"Output Complete - Ple ase Press <return> ...";:A=GET:MODE7:VDU 23;8202;0;0;0;:PRINTCHR$134;"RETURNING T O PARENT PROGRAM":CLEAR:CHAIN"BANKACC":E ND 240DEFPROCA:VDU23;8202;0;0;0;:CLS:PRIN TTAB(0,0)"SYSTEMS bank 80 Coloumn Screen Statement":PRINTTAB(0,1)"(c) Duncan Web ster 1990":PRINTTAB(0,2);"`````````````` ```````````````````````````````````````` ``````````````````````````";:PRINT 300PRINT"DATE CODE REFERENCE DEBIT CREDIT BALANCE";:PRINTTAB(0,22);"`````````` ```````````````````````````````````````` ``````````````````````````````";:ENDPROC 330DEFFNA(G$):IFINSTR(G$,"-")<>0THENH$ =RIGHT$(G$,(LENG$-1))ELSEH$=G$ 350IFVALH$=0THENH$="" 360IFLENH$=1THENH$="0.0"+H$:GOTO400 370IFLENH$=2THENH$="0."+H$:GOTO400 380IFLENH$>=3THENI$=LEFT$(H$,(LENH$-2) ):J$=RIGHT$(H$,2):H$=I$+"."+J$:GOTO400 390H$="0.00" 400IFINSTR(G$,"-")<>0THENG$="-"+H$:=G$ ELSE=H$ 420DEFPROCB:PRINTTAB(0,24);"Press <ret urn> to Continue ...";:C=GET:PROCA:ENDPR OC