10MODE7:PROCA:*LOAD !screen 20REM*FX200,3 30VDU23;8202;0;0;0;:PRINTTAB(8,9);CHR $134;"INFO Bank Manager (1)":PRINTTAB(8, 10);CHR$134;"INFO Bank Manager (2)":PRIN TTAB(8,11);CHR$134;"INFO Bank Manager (3 )":PRINTTAB(8,12);CHR$134;"SYSTEMS Bank Manager" 40PRINTTAB(8,13);CHR$134;"INFO call c osting (1)":PRINTTAB(8,14);CHR$134;"INFO call costing (2)":PRINTTAB(8,15);CHR$13 4;"SYSTEMS call costing" 50PRINTTAB(8,16);CHR$134;"INFO Filese rver (1)":PRINTTAB(8,17);CHR$134;"INFO F ileserver (2)":PRINTTAB(8,18);CHR$134;"S YSTEMS Fileserver" 55PRINTTAB(8,19);CHR$134;"Info BB Dat abase (1)":PRINTTAB(8,20);CHR$134;"Info BB Database (2)":PRINTTAB(8,21);CHR$134; "SYSTEMS BB Database" 60`%=FNA(6,9,26,21) 70IF`%=1 MODE0:VDU14:*TYPE T.BANKGD1 80IF`%=2 MODE0:VDU14:*TYPE T.BANKGD2 90IF`%=3 MODE0:VDU14:*TYPE T.BANKGD3 100IF`%=4CHAIN"BANKACC" 110IF`%=5 MODE0:VDU14:*TYPE T.PHONGD1 120IF`%=6 MODE0:VDU14:*TYPE T.PHONGD2 130IF`%=7CHAIN"PHONECS" 140IF`%=8 MODE0:VDU14:*TYPE T.SERVGD1 150IF`%=9 MODE0:VDU14:*TYPE T.SERVGD2 160IF`%=10CHAIN"WOAH" 161IF`%=11 MODE0:VDU14:*TYPE :2.T.BASE GD1 162IF`%=12 MODE0:VDU14:*TYPE :2.T.BASE GD2 163IF`%=13 OSCLI"DR.2":CHAIN"BBDBASE" 170RUN 180DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 190REPEATPRINTTAB(£%,a%);CHR$129;CHR$1 57;CHR$134;TAB((£%+b%),a%);CHR$156:*FX15 200A$=GET$:e%=VALA$:IFA$=CHR$13GOTO250 210IFe%=0THENe%=-1 220IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO250 230IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO250 240PRINTTAB(£%,a%);SPC2:a%=a%+e% 250UNTILA$=CHR$13:*FX4,0 260=(a%-d%) 270DEFPROCA:*KEY14 1|M 280*KEY15 0|M 290*KEY12 0|M 300*KEY13 1|M 310ENDPROC