30 MODE3:PROCA:_%=6:`%=0:B=OPENIN"BNKSTMT":IFB=0CLOSE#B:CLEAR:CHAIN"BANKACC"
   80 IFEOF#BCLOSE#B:CLEAR:CHAIN"BANKACC"
   90 REPEATINPUT#B,A$,B$,C$,D$,E$,F$:`%=`%+1:PTR#B=(`%*80):IFD$=""ANDE$=""PRINTTAB(0,_%);A$;TAB(9,_%);B$;TAB(14,_%);C$;TAB(79-(LEN(FNA(F$))),_%);FNA(F$):GOTO170
  140 IFD$=""GOTO160
  150 PRINTTAB(0,_%);A$;TAB(9,_%);B$;TAB(14,_%);C$;TAB(57-(LEN(FNA(D$))),_%);FNA(D$);TAB(79-(LEN(FNA(F$))),_%);FNA(F$):GOTO170
  160 PRINTTAB(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
  180 UNTILEOF#BOR((`%+1)*80)>EXT#B:CLOSE#0:PRINTTAB(0,24);"Output Complete - Please Press <return> ...";:A=GET:MODE7:VDU23;8202;0;0;0;:PRINTCHR$134;"RETURNING TO PARENT PROGRAM":CLEAR:CHAIN"BANKACC":END
  240 DEFPROCA:VDU23;8202;0;0;0;:CLS:PRINTTAB(0,0)"SYSTEMS bank 80 Coloumn Screen Statement":PRINTTAB(0,1)"(c) Duncan Webster 1990":PRINTTAB(0,2);"________________________________________________________________________________";:PRINT
  300 PRINT"DATE    CODE  REFERENCE                              DEBIT    CREDIT     BALANCE";:PRINTTAB(0,22);"________________________________________________________________________________";:ENDPROC
  330 DEFFNA(G$):IFINSTR(G$,"-")<>0THENH$=RIGHT$(G$,(LENG$-1))ELSEH$=G$
  350 IFVALH$=0THENH$=""
  360 IFLENH$=1THENH$="0.0"+H$:GOTO400
  370 IFLENH$=2THENH$="0."+H$:GOTO400
  380 IFLENH$>=3THENI$=LEFT$(H$,(LENH$-2)):J$=RIGHT$(H$,2):H$=I$+"."+J$:GOTO400
  390 H$="0.00"
  400 IFINSTR(G$,"-")<>0THENG$="-"+H$:=G$ELSE=H$
  420 DEFPROCB:PRINTTAB(0,24);"Press <return> to Continue ...";:C=GET:PROCA:ENDPROC