dZZ$"..ACC":YY$"..BAL"&n6,1sxL$"-------------------------------------------------------------------"808,100: DISABLE RUN/STOPAL$(1000):B$""" "(142)""(0)5"80 COLUMNS ONLY !!!":15FO$(143): FLASH OFF %!11,0,71,24_" " " " < < < W" " " "7)"BY COLIN LAVOIE. ";,03Q$B,04QD,H,O4C,$E,E,D,F,L,ICB6I$E,P,D,F," ",O3Q$B,QD,F,R,R,R,O4$Ef@G,O,$E,A,M,.HG,I$BO5CO4H$B," "JQR,QR,M,F,A,I,$E,G,C,D,F,H,IC,I$E,ETD,F,L,O3Q$B,QD,L,O4IC,I$E,E^D,F,.,HC,H$E,.,Q$E,IA$B,.hH$E,HA,.,.D,.$B,"XOXO"rEND,END,END |16" A$,B$,C$:A$"END"440> "V1T0"A$:"V2T0"B$R A$:A$""440[ C$;d 390{  0,0,9,0,0,2,3095 E.:BU10  --- MAIN MENU ---  25,6,55,24 "ACCOUNT:"ZZ$ "---"FO$" MAIN MENU --- !" 1. ENTER TRANSACTIONS/!" 2. SAVE TRANSACTIONSM!" 3. VIEW TRANSACTIONSi!&" 4. FILE MAINTENANCE!0" 5. SET ACCOUNT FILE!:" 6. QUIT!D!N"PRESS (1-6"FO$")!O"(FOR THE FIRST TIME PRESS '5')!XA$:A$""600 "bA(A$): A1 A6 6007"l A6 E0 808,110:10,0,79,24:5260N"v A6 E0 1300p" A 650,1300,2020,2530,4890" --- ENTERING TRANSACTIONS ---""0,0,79,24""ACCOUNT:"ZZ$""""---"FO$" ENTERING TRANSACTIONS ---"# --- PRINT BUFFER CONTENTS ---5#E0"BUFFER EMPTY":820N#"BUFFER CONTENTS...Y#""L$d#T1E#"DATE: "(AR$(T),6);#" DESCRIPTION: "(AR$(T),7,20);# " AMOUNT: "(AR$(T),27,8);#" "(AR$(T),3)""# T#*L$$4 --- USER INPUTS DATA ---$>""L$ $H+$R""L$6$\"";Z$f"DATE 010193";: DA$$p13)"DESCRIPTION ***";: DE$$z47)"AMOUNT 000";: AM$$$ --- SET TRANSACTION TYPE ---$"PRESS: + FOR DEPOSIT%" - FOR WITHDRAWAL3%A$: A$"+" A$"-" 940H%A$"+"T$"DEP"]%A$"-"T$"WDR"p%64)""T$% --- FORMAT THE DATA ---%DA$(DA$,6)%L(DA$)%L51030%DA$DA$(" ",6L)%DE$(DE$,20)%L(DE$)&DE$DE$(" ",20L).&$AM$(AM$,7);&.L(AM$)U&8AM$(" ",7L)AM$s&BAM$(AM$,5)"."(AM$,2)}&L"";&V""L$&`"DATE: "DA$" DESCRIPTION: "DE$" AMOUNT: "AM$" "T$""&j""L$&t&~"ARE YOU SURE [Y/N"FO$"] ?'A$:A$""1160/'A$"Y" A$(13) 1200@'A$"N"1240J'1160l' --- WRITE TO DATA ARRAY ---v'EE1'AR$(E)DA$DE$AM$T$' EBU1 1300: SAVE TO DISK FILE'" "'"ANOTHER ENTRY [Y/N"FO$"] ? (A$:A$""1260)(A$"Y" A$(13) 6509(A$"N"460C( 1260d( --- WRITE TO DISK FILE ---j(z((0,0,79,24(2"ACCOUNT:"ZZ$""(<"---"FO$" SAVE TRANSACTIONS ---(F(PE." BUFFER EMPTY": 1:460 )ZEBU"*** BUFFER FULL ***?)d"V1 T0 O3 WC":"V2 T0 O3 WE":"V3 T0 O3 WG "U)n"TRANSACTIONS:"E`)x""L$k)T1E)"DATE:"(AR$(T),6);)" DESCRIPTION:"(AR$(T),7,20);)" AMOUNT:"(AR$(T),27,8);)" "(AR$(T),3)"")T)L$*"SAVE TRANSACTIONS [Y/N"FO$"] ?0*A$:A$""1490A*A$"Y"1530Q*A$"N"460[*1490*"SAVING TRANSACTIONS ";* #2,(ZZ$)*5190:DR621600*2,A$*"2*,A$"EMPTY"1610*6(ZZ$)*@ #2,(ZZ$),W:1620+J#2,(ZZ$)+TDS.DS$:+^T1E(+h".";6+r2,AR$(T)=+|TD+2J+g+ --- UPDATE BALANCE ---+ --- GET THE BALANCE ---+"UPDATING BALANCE "+ #2,(YY$)+5190:DR621760+2,BA$+2+BA(BA$), --- ADD/SUB TRANSACTIONS ---,T1E7,A((AR$(T),27,8))c,(AR$(T),3)"WDR"AA1: SUBTRACTION},BA(BA100A100)100,T,&E.: ZERO THE BUFFER,0 --- REFORMAT BALANCE VALUE ---,:BA$(BA),DL(BA$),NP(BA$,".") -XP.BA$BA$".00":1910(-b((BA$,3),1)"."19108-lBA$BA$"0"]-v --- RESAVE BALANCE TO DISK ---h-(YY$)y- #2,(YY$),W-DS.DS$:-2,BA$-2- --- TO MENU OR MORE ENTRIES ----"PRESS [RETURN] TO ENTER MORE-A$:A$""1990.A$(13)650.4607. --- VIEW TRANSACTIONS ---=.M.0,0,79,24U.Y1m. "ACCOUNT:"ZZ$""."---"FO$" VIEW TRANSACTIONS ---. .*"WHICH MONTH 00";:A$.4.>"SEARCHING....H #2,(ZZ$).R5190:DR622:460/\2,B$2/fB$"EMPTY""FILE IS EMPTY !!!":2380D/pA$"00"2310N/z2200X/2,B$b/YY1w/(B$,2)A$2230/ST642380/2180/"DATE:"(B$,6);/" DESCRIPTION:"(B$,7,20);/" AMOUNT:"(B$,27,8);/" "(B$,3);0" #"Y0221002,B$$0YY1;0 "DATE:"(B$,6);]0 " DESCRIPTION:"(B$,7,20);z0 " AMOUNT:"(B$,27,8);0$ " "(B$,3);0. " #"Y08 ST6423800B 22900L 20V 52)"===== =="0` #2,(YY$)0j DS.DS$:0t 2,A$1~ 2 1 L(A$)1 L8247021 A$(" ",8L)A$Q1 36)"CURRENT BALANCE:"A$W1 {1 "ANOTHER MONTH [Y/N"FO$"] ?1 A$:A$""25001 A$"Y"20201 A$"N"4601 --- FILE MAINTENANCE ---1 1 25,6,55,241 "ACCOUNT:"ZZ$""$2 "---"FO$" FILE MAINTENACE ---*2 A2 " 1. COLLECT DISKa2( " 2. ALTER CURRENT BALANCEx22 " 3. ERASE A FILE2< " 4. ALTER DATA ON DISK2F " 5. MAIN MENU2P 2Z "PRESS (1-5"FO$")2d A$:A$""26602n A(A$):A1A44603x A 2690,2810,3060,3280,46013 --- COLLECT DISK ---73 O3 "ACCOUNT:"ZZ$""j3 "--- COLLECT DISK ---p3 3 "THIS MAY TAKE A FEW MINUTES !3 3 "CONTINUE [Y/N"FO$"] ?3 A$:A$""27703 A$"Y"15,8,15,"V":15:25303 A$"N"2530 4 2770-4 --- ALTER CURRENT BALANCE ---<4 #2,(YY$)V4 5190:DR622:2530a4 2,CB$h4" 2n4, 46 "ACCOUNT:"ZZ$""4@ "---"FO$" ALTER CURRENT BALANCE ---4J 4T "CURRENT BALANCE: "CB$4^ " NEW BALANCE: "CB$ 5h "";B$*5r " NEW BALANCE: "B$05| Q5 "THIS IS OKAY [Y/N"FO$"] ?e5 A$:A$""2960v5 A$"N"28605 A$"Y"30005 29605 (YY$)5 #2,(YY$),W5 DS.DS$:5 2,B$5 25 25305 --- ERASE ALL TRANSACTIONS ---$6 #2,(ZZ$):5190:DR622:2530*6 B6 "ACCOUNT:"ZZ$""n6 "---"FO$" ERASE ALL TRANSACTIONS ---t6& 60 0,0,9,0,0,4,30956: "V1 T0 O3 WC":"V2 T0 O3 WE":"V3 T0 O3 WG "6D 0,0,9,0,0,2,3095 7N "CAUTION !!! - THIS WILL ERASE ALL OF "ZZ$7X *7b "PROCEED [Y/N"FO$"]>7l A$:A$""3180O7v A$"N"2530`7 A$"Y"3220j7 3180p7 7 "SAY GOOD-BYE TO YOUR DATA !!!7 (ZZ$)7 (YY$)7 ZZ$"..ACC":YY$"..BAL"7 4607 --- ALTER DATA ON DISK ---7 X07 8 0,0,79,24&8 "ACCOUNT:"ZZ$""N8 "---"FO$" ALTER DATA IN DISK ---T8 k8 0,0,9,0,0,4,30958 "V1 T0 O3 WC":"V2 T0 O3 WE":"V3 T0 O3 WG "8* 0,0,9,0,0,2,309584 "AFTER YOU ALTER A TRANSACTION8> "YOU MUST CREATE AN UPDATE TO9H "CORRECT THE BALANCE.9R D9\ "THIS OPTION HAS ROOM FOR ONLYh9f "1000"FO$" TRANSACTIONS !!!n9p 9z "LOADING...";9 #2,(ZZ$)9 5190:DR.2:25309 2,B$9 B$"EMPTY""FILE IS EMPTY !!!":2: 1:25309 35209 2,B$: XX1: AL$(X)B$$: ST643560.: 35105: 2B: "DONEH: n:"USE: [NO SCROLL"FO$"] TO PAUSE:" [SPACE"FO$"] TO STOP: 5:$:.T1X:8B$AL$(T):B"DATE:"(B$,6);:L" DESCRIPTION:"(B$,7,20); ;V" AMOUNT:"(B$,27,8);;`" "(B$,3);+;j" #"T?;tA$:A$""3720P;~A$" "3730V;\;|;17)"(ENTER '0' FOR MENU);17)"(ENTER 'S' TO SAVE CHANGES);"TRANSACTION #";A$;A(A$);A$"S"4660;A.2530<A100025)"NOT POSSIBLE !!!":3760J<AX25)"THERE ARE ONLY"X;FO$" FILES !!!":3760P<h<"ACCOUNT:"ZZ$""<"---"FO$" ALTER TRANSACTION #"A" ---< <B$AL$(A)<""L$<(AD$(1)(B$,6)<2"DATE: "AD$(1);<<AD$(2)(B$,7,20)=F" DESCRIPTION: "AD$(2);'=PAD$(3)(B$,27,8)A=Z" AMOUNT: "AD$(3);T=dAD$(4)(B$,3)d=n" "AD$(4)o=x""L$= --- USER CHANGES DATA ---=""L$==""L$="";="DATE "AD$(1)"";: AD$(1)=L(AD$(2))3>13)"DESCRIPTION "AD$(2)"";: AD$(2)f>47)"AMOUNT "AD$(3)"";: AD$(3)>(AD$(3))3AD$(3)"MIN 1.00":"";:4050>> --- CHANGE TRANSACTION TYPE --->"PRESS: + FOR DEPOSIT>" - FOR WITHDRAWAL!?A$: A$"+" A$"-" 4110:?A$"+"AD$(4)"DEP"S?"A$"-"AD$(4)"WDR"j?,64)""AD$(4)?6 --- FORMAT THE DATA ---?@AD$(1)(AD$(1),6)?JL(AD$(1))?TL54200?^AD$(1)AD$(1)(" ",6L)?hAD$(2)(AD$(2),20)@rL(AD$(2))5@|AD$(2)AD$(2)(" ",20L)L@AD$(3)(AD$(3),8)\@L(AD$(3))b@:@(AD$(3),L2,1)".": GOOD DECIMAL@AD$(3)(" ",8L)AD$(3)@:4420@:@(AD$(3),L1,1)".": MUST ADD A '0'AAD$(3)AD$(3)"0"AAD$(3)(AD$(3),8):AAD$(3)(" ",8L)AD$(3)WA:4420: ZERO IS ADDED]A:A (AD$(3),"."). : ** NO DECIMAL **AL(AD$(3))AAD$(3)(" ",7L)AD$(3)A&AD$(3)(AD$(3),5)"."(AD$(3),2)B0: ** DECIMAL INSTALLED **B::BD""L$+BN"DATE: "AD$(1);JBX" DESCRIPTION: "AD$(2);dBb" AMOUNT: "AD$(3);tBl" "AD$(4)Bv""L$BB"ARE YOU SURE [Y/N"FO$"]BA$:A$""4500BA$"N"3590BA$"Y"4540B4500C --- PUT NEW TRANACTION IN PLACE ---=C --- FIRST CLEAR TRANSACTION VARIABLE ---KCAL$(A)""VCT14oCAL$(A)AL$(A)AD$(T)vCT|CC"MORE CHANGES [Y/N"FO$"]C A$:A$""4620CA$"N"4660C A$"Y"3590C*4620C4D>"SAVE CHANGES [Y/N"FO$"]DHA$:A$""4680'DRA$"N"25308D\A$"Y"4720BDf4680eDp --- SAVE CHANGES TO DISK ---kDzD"SAVING CHANGES...";D(ZZ$)D #2,(ZZ$),WD5190:DR.2530DT1XD2,AL$(T)DTD2D"DONEDE"MORE CHANGES [Y/N"FO$"]"EA$:A$""48503EA$"Y"3590DEA$"N"2530NE4850mE --- SET ACCOUNT FILE ---sE$E."ACCOUNT:"ZZ$""E8"---"FO$" SET ACCOUNT FILE ---EBEL"..ACC*"EV F`"WHICH ACCOUNT ..ACC ";:A$FjA$(A$,16)'Ft #2,(A$)1F~51908F2eFDR.ZZ$A$:YY$"..BAL"(A$,6,11):460kF:FDR62: FILE NOT FOUNDFF"DO YOU WANT TO CREATEFA$" (Y/N"FO$")FB$:B$"Y"B$"N"5070FB$"N"460 GZZ$A$:YY$"..BAL"(A$,6,11): #2,(ZZ$),W*G51908G:DR.KG:2,"EMPTY":2jG : #2,(YY$),W:2,"0.00":2rG:GDR26DR742:5040: WRITE PROTECT OR NO DISK.TRY AGAING(DR72ZZ$"..ACC":YY$"..BAL":2: DISK FULL.MAIN MENUG2G<460HF --- DISK DRIVE ERRORS ---'HPDRDS3HZDR.