775,191:%: 10' 775,167:3 (147)I 6,7:5,4:(28)U 30120c(147):{::::::(158)((18),,,"********************"2(18),,,"*CHECKING ACCOUNT*"<(18),,,"*COMMODORE 128*" F(18),,,"*COMPUTER VERSION*"/P(18),,,"********************">Z::(30)md(18),,,"PLEASE ENTER CURRENT DATE-": Z$i Z$ "" 90no(15);(18),,"PLEASE ENTER YOUR PROGRAM PASSWORD NUMBER-": WPp 2,8,2,",S,R":2,PW: 2,8,2nq WP PW ::(15),,"INCORRECT PASSWORD NUMBER SPECIFIED!":(15),,"CHECKING ACCOUNT ACCESS DECLINED.": 4: 15000s PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1 3,8,2,"@0:,S,W"3,Z$: 3,8,2+ 5,8,4,",S,R":5,T: 5,8,47(147)N 3,8,2,",S,R"X3,Z$d 3,8,2 2,8,2,",S,R":2,PW: 2,8,2(18),,,"*************************"(18),,,"*CHECKING TRANSACTIONS*" (18),,,"*************************" :(158)8 2,8,2,",S,R":2,OZ$: 2,8,2^ 2,8,2,",S,R":2,OA$: 2,8,2 2,8,2,"ű,S,R":2,OB$: 2,8,2 2,8,2,",S,R":2,OC$: 2,8,2 2,8,2,"Ա,S,R":2,OE$: 2,8,2 2,8,2,",S,R":2,OF$: 2,8,2!! 2,8,2,"Ԫ,S,R":2,OH$: 2,8,2/!,,,OZ$:L!,,"ACCOUNT NUMBER",,OH$W!(28){!(18),,,"********************"!(18),,,"*ACCOUNT HOLDER*"!(18),,,"********************"!(158)!,,,OA$!,,,OB$!,,,OC$!,,,OE$ ",,,OF$""(5)C"(18),,,"ACCOUNT TRANSACTION DATE"O"(158)Z",,,Z$c" 7""(147): 6,7: 5,4:(5)","6(18),,,"********************""@(18),,,"*CHECKING ACCOUNT*""J(18),,,"*SELECTION MENU*"#T(18),,,"********************"&#^:,,,Z$:K#h(18)"PREVIOUS ACCOUNT BALANCE"U#iZ Ta#j(158){#r "#$########.##";Z#s(5)#(18),,"LETTER",,"OPTION"#(158),,"A",,"CHECK AND FEES ENTRIES"#(158),,"B",,"DEPOSIT AND CREDIT ENTRIES"$(158),,"C",,"PRINT REPORT"U$(158),,"D",,"CORRECT DATA - ADDITIONAL ENTRIES"x$(158),,"E",,"ACCOUNT REPORT"$(158),,"F",,"SAVE PRESENT DATA"$(158),,"G",,"TERMINATE PROGRAM"$(5)%(18);(15),,"PLEASE SELECT A LETTER OPTION-": Y$% 6,7: 5,4,% Y$ "A" 1000B% Y$ "B" 2000X% Y$ "C" 3000n% Y$ "D" 4000% Y$ "E" 5000%  Y$ "F" 18000% Y$ "G" 6000% Y$ "" 900%(147)% &(18);(15),,,"PLEASE SELECT CORRECT KEY":(7)& 3: 190000&(147):(30)& PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1&::::::&(18),,"***CHECK AND FEES ENTRIES***"&::V' A$ "" ::(15);(18),"PLEASE USE THE ADDITIONAL ENTRIES OPTION FOR YOUR NEXT CHECK ENTRY.": 4: 19000'(18);(15),,"DO YOU WISH TO CONTINUE WITH THIS OPTION (Y/N)?": X$' X$ "Y" 1100'$ X$ "N" 19000'. X$ "" 1900'L(147)(V(18),,"***CHECK AND FEES ENTRIES***"!(`m(a(28)"FOR ACCURATE RECORD INPUT THIS OPTION MUST BE USED ONLY ONCE..."(b(28)"PLEASE USE *ADDITIONAL ENTRIES OPTION* TO INPUT FURTHER DATA DURING PROGRAM"(c:(7);)d PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1})e:,"THE MAXIMUM AMOUNT OF CHECK ENTRY CHARACTERS IS # 250":)j(18)"PREVIOUS ACCOUNT BALANCE")t(158): "#$########.##";Z)~:)(18),,,"PLEASE ENTER FIRST CHECK NAME-": A$*5*(18),,,"PLEASE ENTER FIRST CHECK AMOUNT-"=* AI* 10000~*(18),,,"PLEASE ENTER SECOND CHECK NAME- ": B$**(18),,,"PLEASE ENTER SECOND CHECK AMOUNT-"* B* 10000*(18),,,"PLEASE ENTER THIRD CHECK NAME-": C$+2+(18),,,"PLEASE ENTER THIRD CHECK AMOUNT-":+  CF+ 10000z+(18),,,"PLEASE ENTER FOURTH CHECK NAME-": D$+(+2(18),,,"PLEASE ENTER FOURTH CHECK AMOUNT-"+< D+F 10000+P(18),,,"PLEASE ENTER FIFTH CHECK NAME-": E$+Z.,d(18),,,"PLEASE ENTER FIFTH CHECK AMOUNT-"6,n EB,x 10000u,(18),,,"PLEASE ENTER SIXTH CHECK NAME-": F${,,(18),,,"PLEASE ENTER SIXTH CHECK AMOUNT-", F, 10000,(18),,,"PLEASE ENTER SEVENTH CHECK NAME-": G$,,-(18),,,"PLEASE ENTER SEVENTH CHECK AMOUNT-"4- G@- 10000s-(18),,,"PLEASE ENTER EIGHT CHECK NAME-": H$y--(18),,,"PLEASE ENTER EIGHT CHECK AMOUNT-"- H- 10000-(18),,,"PLEASE ENTER NINETH CHECK NAME-": I$-"(.,(18),,,"PLEASE ENTER NINETH CHECK AMOUNT-"0.6 I<.@ 10000o.J(18),,,"PLEASE ENTER TENTH CHECK NAME-": J$u.T.^(18),,,"PLEASE ENTER TENTH CHECK AMOUNT-".h J: PW 1.1 .i 1700.r 19000. 1..l(147)/v(18);(15),,,"*PLEASE SELECT CORRECT KEY*"-/::(7)8/ 1010K/(147):(30)/ PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1/::::::/(18),,"****DEPOSIT AND CREDIT ENTRIES***"/t0 K$ "" ::(15);(18),"PLEASE USE THE ADDITIONAL ENTRIES OPTION FOR YOUR NEXT DEPOSIT ENTRY.": 4: 19000|0:0(18);(15),,"DO YOU WISH TO CONTINUE WITH THIS OPTION (Y/N)?": BB$0 BB$ "Y" 21000  BB$ "N" 19000 1 BB$ "" 2900D14(147):(18),,"***DEPOSIT AND CREDIT ENTRIES***"N15(7)T1>1H(18)"PREVIOUS ACCOUNT BALANCE":(158): "#$#######.##";Z:::(5)1I(28)"FOR ACCURATE RECORD INPUT THIS OPTION MUST BE USED ONLY ONCE..."D2J(28)"PLEASE USE *ADDITIONAL ENTRIES OPTION* TO INPUT FURTHER DATA DURING PROGRAM"J2K2L PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 12M:,"THE MAXIMUM AMOUNT OF DEPOSIT ENTRY CHARACTERS IS # 200"3\::(158):3f(18),,"PLEASE ENTER FIRST DEPOSIT NAME-": K$@3pq3z(18),,"PLEASE ENTER FIRST DEPOSIT AMOUNT-"y3 K3 100003(18),,"PLEASE ENTER SECOND DEPOSIT NAME-": L$33(18),,"PLEASE ENTER SECOND DEPOSIT AMOUNT-"3 L4 10000:4(18),,"PLEASE ENTER THIRD DEPOSIT NAME-": M$@4q4(18),,"PLEASE ENTER THIRD DEPOSIT AMOUNT-"y4 M4 100004(18),,"PLEASE ENTER FOURTH DEPOSIT NAME-": N$4 4 (18),,"PLEASE ENTER FOURTH DEPOSIT AMOUNT-"4 N5$ 10000:5. (18),,"PLEASE ENTER FIFTH DEPOSIT NAME-": O$@58 q5B (18),,"PLEASE ENTER FIFTH DEPOSIT AMOUNT-"5L O: PW 2.2 5V 24505` 190005 15 5T (147)5^ (18);(15),,,"***PLEASE SELECT CORRECT KEY***"5h :(7)6r 2010p6 PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 16 (147):(158)::::6 (18),,,"*********************"6 (18),,,"*PRINT REPORT*"6 (18),,,"* OPTION MENU *" 7 (18),,,"*********************".7 ::(5)W7 (18),,"LETTER",,"OPTION"::(158)7 ,,"A",,"PRINT FORMER CHECKING RECORD":,,"B",,"PRINT CURRENT CHECKING DATA":,,"C",,"CHECKING ACCOUNT MENU"7 :(5) 8 (15);(18),,"PLEASE SELECT A LETTER OPTION.": PS$/8 PS$ "A" PW .1: 20000F8 PS$ "B" 3017\8 PS$ "C" 290s8 PS$ "" 30158 ::(15);(18),,,"*PLEASE SELECT CORRECT LETTER*":(7): 4: 30018 (147):(5)8 :A9 PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1c9 (18),,,"******************"9 (18),,,"*CHECKING ACCOUNT*"9 (18),,,"*PRINTED REPORT*"9 (18),,,"******************"9 ::(7) : (28)"UPON COMPLETION OF CURRENT CHECKING ACCOUNT TRANSACTIONS...."d: (15)"IN ORDER TO AVOID POSSIBLE LOSS OF PRESENT ACCOUNT DATA": "IT IS RECOMMENED THAT THE PRESENT ACCOUNT DATA SHOULD BE SAVED BEFORE PRINTING" ; "THROUGH THE SAVE CURRENT DATA OPTION AVAILABLE ON THE PROGRAM MAIN MENU."; (5); :i; (18);(15),,"PLEASE RE-CONFIRM THE PRINTED REPORT OPTION (Y/N)?": QQ$; QQ$ "Y" 3300; QQ$ "N" 19000; QQ$ "" 3950; (147)%< PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 15< :::::< (28);(15)"PLEASE NOTE THAT CURRENT CHECKING ACCOUNT DATA WILL BE ERASED."< "THE MAIN PROGRAM MENU SELECTION OPTIONS WILL RE-APPEAR ON YOUR MONITOR...."= "MOMENTAIRILY AFTER THE ACCOUNT PRINT REPORT IS COMPLETED."#= (5)+= :K= ,,"PLEASE TURN ON PRINTER"o= ,,"AND INSERT PRINTING PAPER."{= :::= (18);(15),,"PLEASE PRESS THE 'A' KEY WHEN READY"= PP$=* PP$ (65) 3360I>/ A$ "" K$ "" ::(15);(18),,"THERE IS CURRENTLY NO DATA AVAILABLE IN PROGRAM.": 4: (147): 290b>4 (147)::::::>> (18),,,"*********************">H (18),,,"*ACCOUNT REPORT*">R (18),,,"*NOW BEING PRINTED*"?\ (18),,,"*********************": PW 4.4 3460%?] CT ABCDEFGHIJ8?_ DT KLMNOB?f 1,4?p 1,"*****************************************************************"?z 1,,,"CHECKING ACCOUNT REPORT"? 1,,,OA$? 1,,,Z$@ 1,"*****************************************************************"7@ 1,"FINANCIAL INSTITUTION",OZ$T@ 1,,"ACCOUNT NUMBER",OH$@ 1,"*****************************************************************"@ 1@ 1,,,"ACCOUNT CHECK ENTRY TRANSACTIONS"A 1,"-----------------------------------------------------------------"$A 1AA 1, A$,,"ENTRY NUMBER 1"[A 1, "#$#######.##";AxA 1, B$,,"ENTRY NUMBER 2"A 1, "#$#######.##";BA1, C$,,"ENTRY NUMBER 3"A1, "#$#######.##";CA1, D$,,"ENTRY NUMBER 4"B$1, "#$#######.##";DB.1, E$,,"ENTRY NUMBER 5"7B81, "#$#######.##";ETBB1, F$,,"ENTRY NUMBER 6"nBL1, "#$#######.##";FBV1, G$,,"ENTRY NUMBER 7"B`1, "#$#######.##";GBj1, H$,,"ENTRY NUMBER 8"Bt1, "#$#######.##";HB~1, I$,,"ENTRY NUMBER 9"C1, "#$#######.##";I1C1, J$,,"ENTRY NUMBER 10"KC1, "#$#######.##";JC1,"-----------------------------------------------------------------"C1,,,"ACCOUNT DEPOSIT ENTRY TRANSACTIONS"D1,"-----------------------------------------------------------------"D13D1, K$,,"ENTRY NUMBER 1"MD1, "#$#######.##";KjD1, L$,,"ENTRY NUMBER 2"D1, "#$#######.##";LD1, M$,,"ENTRY NUMBER 3"D1, "#$#######.##";MD1, N$,,"ENTRY NUMBER 4"D1, "#$#######.##";NE1, O$,,"ENTRY NUMBER 5")E1, "#$#######.##";O0E1{E1,"*****************************************************************"E1E PW 4.4 E 1,,,"CHECKING ACCOUNT REPORT BALANCE" F1,"*****************************************************************"4F1,"FORMER CHECKING ACCOUNT BALANCE"NF1, "#$#######.##";Z{F1,"CHECKING TRANSACTIONS ACCOUNT TOTAL"F#1, "#$#######.##";CTF(1,"DEPOSIT TRANSACTIONS ACCOUNT TOTAL"F-1, "#$#######.##";DTG21,"REVISED CHECKING ACCOUNT BALANCE"!G71, "#$#######.##";T(G<1QGA1,,"*CHECKING REPORT COMPLETED*",Z$[GF 1,4cGG:GK(18),,,"********************"GP(18),,,"*PRINTED COPY*"GU(18),,,"*IS NOW COMPLETED*"HZ(18),,,"********************": PW 0 H[ 2,8,2,"@0:,S,W"&H\2,T2H] 2,8,2dH_ 2,8,2,",S,W":2,PW: 2,8,2: 3:: 139pHn(147)Hx(18);(15),,,"**PLEASE SELECT PROPER KEY**":(7)H 3066H(147):(5)/I PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1?I 6,4: 5,7II::OItI(18),,,"*********************"I(18),,,"* CORRECT DATA MENU *"I(18),,,"*ADDITIONAL ENTRIES*"I(18),,,"*********************"I::(7)iJ A$ "" K$ "" ::(15);(18),"THERE ARE CURRENTLY NO ACCOUNT TRANSACTIONS PRESENT IN PROGRAM.": 3: 290J(18)"TO INSURE PROPER CORRECTION OF EXSISTING RECORD DATA OR ADDITIONAL ENTRIES-"K(18)"PLEASE REFER TO THE *ACCOUNT STATUS REPORT* FOR PROPER NUMBER INPUT"K:8K(18),,"LETTER",,"OPTION"@K:pK(28),,"A",,"CORRECT OR ADD CHECK ENTRIES"K(28),,"B",,"CORRECT OR ADD DEPOSIT ENTRIES"K(28),,"C",,"PROGRAM MAIN MENU"K::(31) L"(18);(15),,,"PLEASE SELECT A LETTER KEY-": XX$$L, XX$ "A" 4300;L6 XX$ "B" 4600SL@ XX$ "C" 19000jLJ XX$ "" 4950vL(147)L PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1L:M(18),,,"**********************"4M(18),,,"* CORRECT CHECK DATA *"ZM(18),,,"*ADDITIONAL ENTRIES*"M(18),,,"**********************"M:M(18),,"PLEASE ENTER A RECORD NUMBER FROM 1 TO 10 ONLY-"MM BBN& BB 21160,21210,21260,21310,21360,21410,21460,21510,21560,21610'N+ 40003N(147)N PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1N:N (18),,,"**********************"N(18),,,"*CORRECT DEPOSIT DATA*"O (18),,,"*ADDITIONAL ENTRIES*"=O*(18),,,"**********************"EO4:{O>(18),,"PLEASE ENTER A NUMBER FROM 1 TO 5 ONLY-"OH CCOIOR CC 22150,22200,22250,22300,22350OW 4000OV(147)4PW PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1(147)`H::::::::::1aR(18);(15),,"****PLEASE SELECT PROPER KEY****":(7): 3 KO T 7250qHKK KKT: 7255!qRKK TKK5qW(147);(28):]q\(18),,,"************************"qa(18),,,"*ACCOUNT RECONCILIATION*"qf(18),,,"************************"qk:qp(158)"YOUR DATA DISK RECORDED BALANCE IS-"ru "#$#########.##";T:;rz"YOUR FINANCIAL INSTITUTION STATEMENT BALANCE IS-"Wr "#$#########.##";KO]rr(7);(7);(7);(7);(28)"AT THIS PRESENT TIME YOUR FINANCIAL STATEMENT BALANCE"s"IS IN ARREARS WITH THE REVISED ACCOUNT BALANCE IN DISK RECORD NUMBER #";RE:Ns(5),"PLEASE SELECT THE FOLLOWING ACCOUNT RECONCILIATION OPTIONS"s,"WHICH WILL ASSIST YOU IN RECONCILING YOUR CHECKING ACCOUNT"::(158)"THE CURRENT AMOUNT OF ACCOUNT ARREARS IS-":(5)s "#$########.##";KK::Ct(158);(18);(15),"PLEASE USE THE *A* KEY FOR THE ACCOUNT RECONCILIATION OPTIONS"Mt GV$gt GV$ (65) 7330t(147): 6,7: 5,2t::tPW 1.1u PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1u:(158)6u(18),,,"************************"^u(18),,,"*ACCOUNT RECONCILIATION*"u(18),,,"************************"u:u(18),,"LETTER",,"OPTION"u::(30)u,,"A",,"REVIEW ACCOUNT RECORDS"v,,"B",,"RECONCILE STATEMENT""v,,"C",,"DISK OPTION MENU"*v:hv(5);(15);(18),,,"PLEASE SELECT A LETTER OPTION": DV$v DV$ "A" 7450v DV$ "B" 7500v DV$ "C" 7445v  DV$ "" 7440 w(7);(15);(18);(28),,,"PLEASE SELECT CORRECT KEY": 3: 7340w: 15000/w 20080::PW 1.1w(5);(15),"DO YOU REQUIRE ANOTHER RECONCILIATION RECORD REVIEW (Y/N)?": YN$w$ YN$ "N" : 7340w) YN$ "Y" 7450w. YN$ "" 7475;x3(7);(15);(158);(147),,,"PLEASE SELECT CORRECT KEY": 3:(147)::::,,,"PLEASE RECONFIRM...": 7455TxLPW1.1:(147);(28)xQ OA$"" 2,8,2,",S,R":2,OA$: 2,8,2: 2,8,2,"Ţ,S,R":2,OK$: 2,8,2: 7515xV 7520y[ 2,8,2,",S,R":2,T: 2,8,2: 2,8,2,"ԱΣ,S,R":2,KO: 2,8,2.y\ 2,8,2,",S,R":2,OZ$: 2,8,2Wy] 2,8,2,"Ԫ,S,R":2,OH$: 2,8,2]y`yj(18),,,"*********************"yo(18),,,"*RECONCILE STATEMENT*"yt(18),,,"*********************"::zy(158)"CURRENT STATEMENT BALANCE",OK$,OA$:(5)*z~ "#$########.##";KO:::(30)|z"THE REVIEW FORMER RECORDS OPTION IS AN INVALUABLE TOOL IN INFORMING YOU OF"z"WHICH TRANSACTIONS HAVE BEEN POSTED ON YOUR DATA DISK AFTER THE FINANCIAL"z"STATEMENT CLOSING DATE."9{::(5);(15),,"DO YOU WISH TO CONTINUE WITH THIS OPTION (Y/N)?": YN$P{ YN$ "Y" 7600g{ YN$ "N" 7340~{ YN$ "" 7590{(7);(15);(18);(28),,,"PLEASE SELECT CORRECT KEY": 3: 7570|(147):,,"ARE THERE ANY CHECKING AND FEES TRANSACTIONS">|,,"FOLLOWING YOUR STATEMENT CLOSING DATE (Y/N)?": YN$U| YN$ "Y" 7630l| YN$ "N" 7650| YN$ "" 7625|(7);(15);(18);(28),,,"PLEASE SELECT CORRECT KEY": 3: 7600| 1150:(147)$}PW 2.2:(147):,,"ARE THERE ANY DEPOSIT AND CREDIT TRANSACTIONS"`},,"FOLLOWING YOUR STATEMENT CLOSING DATE (Y/N)?": YN$w} YN$ "Y" 7680} YN$ "N" 7685} YN$ "" 7675}(7);(15);(18);(28),,,"PLEASE SELECT CORRECT KEY": 3: 7650} 2140~PW 1.1~ 5300: 4#~  5570: 4e~ KO T KOKOABCDEFGHIJKLMNO:KKKOT: 7720~ KO T KOKOABCDEFGHIJKLMNO:KKTKO~( KO T 7901x::(147);(7);(7)"YOUR RECONCILIATION STATEMENT STILL REFELECTS AN ARREARS IN THE AMOUNT OF-";}: "#$########.##";KK:p(15);(2),,"PLEASE RE-CHECK YOUR TRANSACTIONS"z 10:PW 3.3: 7065(147);(30)::: 2,8,2,"Ţ,S,R":2,OK$: 2,8,2(147)(18),,,"************************"&(18),,,"*ACCOUNT RECONCILIATION*"P(18),,,"************************"::(158),"ACCOUNT RECONCILIATION DATE",,OK$:(15);(5),,,"CONGRATULATIONS!!"::(158)"YOUR DATA DISK RECORDED BALANCE IS-" "#$#########.##";T:2 "YOUR RECONCILIATION STATEMENT BALANCE IS-"N "#$#########.##";KOn(7): 1:(7): 1:(7)t(30),"YOUR PRESENT BALANCE ON THE RECONCILIATION STATEMENT"","IS NOW IN AGREEMENT WITH YOUR DATA DISK RECORDED BALANCE."'L,(5);(15),"DO YOU REQUIRE A RECONCILIATION PRINTED REPORT (Y/N)?": YN$h1 YN$ "N" : 150004 YN$ "Y" PW 4.4: 7991ڂ5 YN$ "" (147);(7);(15),,,"PLEASE SELECT CORRECT KEY": 3: 79017 (147): 2070078Z$"": 1,4:1,,,"ACCOUNT RECONCILIATION REPORT":1:1,,,OK$: 3380e91:1,"THE CURRENT DATA DISK BALANCE IS-":1,"#$########.##";T;1:1,"THE RECONCILIATION OPTION STATEMENT BALANCE IS-"փ<1,"#$########.##";KO=1: 1,4:: 15000R@(147),,,"*DELETE FILE OPTION*":::(18),,,"******************":(18),,,"*CHECKING ACCOUNT*"~E(18),,,"******************":::::J(15);(18),,"PLEASE RECONFIRM THIS OPTION Y/N?": YN$фO YN$ "Y" 8100T YN$ "N" 15000Y YN$ "" 8200:::(7)h(15)"PLEASE BE SURE TO REMOVE THE ORIGINAL PROGRAM DISK FROM THE DISK DRIVE."::…(18)"INSERT YOUR DATA DISK WITH THE COPY OF THIS PROGRAM THAT YOU REQUIRE DELETED."ʅ:(18),,"PLEASE PRESS THE -A- KEY WHEN READY." GV$! GV$ (65) 81259"CHECKING ACCOUNT"Y(147)::::::::::(15);(18),"THE REQUESTED FILE HAS BEEN ERASED FROM YOUR DATA DISK." 3: 15000Æ (147): (15);(18),,,"*PLEASE SELECT THE PROPER KEY*": (7): 3: 8000'z' PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1'(18),,"DO YOU PREFER ANOTHER ACCOUNT ENTRY (Y/N)?": W$̇$' W$ "Y" .' W$ "N" 11000: 190003' W$ "" 115008'::: 10010%*(147)* PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1+:::::::::(7) +(18);(15),,"***********************************"+(18);(15),,"*PRESENT ENTRIES ARE NOW CANCELLED*"S+(18);(15),,"***********************************"\+ 3t+ PW 1.1 7650+ PW 2.2 7684 +,(147),ۉ-(18);(15);"*PLEASE PRESS THE PROPER KEY*":(7) --(18);(15);"*PLEASE RE-ENTER YOUR OPTION*":(7)-*.(147). PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1.:::ˊ.(18),,,"**COMPLETE ACCOUNT REPORT**"Պ.::/,,,"PLEASE REMOVE THE PROGRAM DISK"&/,,,"AND INSERT THE DATA DISK."::W/,,"PLEASE USE THE SCROLL KEY TO READ DATA."_&/:0/(18);(15),,"*PLEASE PRESS THE 'A' KEY WHEN READY*":/ SS$D/ SS$ (65) 12090ʋN/(147)X/ 5,8,4,"á,S,R"Pb/5,ZZ$,Z$,T,AC$,A$,A,B$,B,C$,C,D$,D,E$,E,F$,F,G$,G,H$,H,I$,I,J$,J,AD$,K$,K,L$,L,M$,M,N$,N,O$,O,XZ$,ZX$l/ ZZ$: Z$: "#$#######.##";T: AC$: A$: "#$#######.##";A: B$: "#$#######.##";Bv/ C$: "#$#######.##";C: D$: "#$#######.##";D: E$: "#$#######.##";E: F$: "#$#######.##";F{/ G$: "#$#######.##";G: H$: "#$#######.##";H: I$: "#$#######.##";I: J$: "#$#######.##";J/ AD$퍔/ K$: "#$#######.##";K: L$: "#$#######.##";L: M$: "#$#######.##";M: N$: "#$#######.##";N/ O$: "#$#######.##";O:,,,XZ$: (18) ZX$(147)>::(158)$>(18),,,"********************"H>(18),,,"*FORMAT DISK OPTION*"l>(18),,,"********************"t>:>,,,"PLEASE REMOVE PROGRAM DISK">,,,"AND INSERT NEW DATA DISK."è>>(18);(15),,,"CAUTION....">:(7) >,,,"ALL DATA ON THIS"*>,,,"DISK WILL BE ERASED."2?:n ?(18);(15),,"PLEASE RE-VERIFY THIS OPTION-(Y/N)": P$? P$ "Y" 16300 ? P$ "N" 15000*? P$ "" 169004?:>?(18),"*PLEASE PRESS THE 'A' KEY WHEN READY*"H? Q$R? Q$ (65) 16200?(147)-?:::::P?(18),,,"*******************"s?(18),,,"* DISK FORMATTING *"?(18),,,"* OPTION SELECTED *"?(18),,,"*******************"ê?::?(15),,," PLEASE WAIT " ?(15),,," MOMENTARILY "::=?(18),,"DATA DISK FORMAT NOW IN PROCESSING..."y?::,,"APPROXIMATE PROCESSING TIME -THIRTEEN MINUTES-"? 15,8,15,"N:CHECKING ACCOUNT,01": 15,8,15ë?"CHECKING ACCOUNT",81?KO0: 2,8,2,"ԱΣ,S,W":2,KO: 2,8,2:OK$ "NO PRESENT ENTRY": 2,8,2,"Ţ,S,W":2,OK$: 2,8,2:X?ZZ$ "NO PRESENT ACCOUNT ENTRIES"e?Z$ "-"o?T 0}?AC$ "-"?A$ "-"?A 0?B$ "-"?B 0?C$ "-"¬?C 0Ϭ?D$ "-"٬?D 0@E$ "-"@E 0@F$ "-"@F 0@G$ "-"@G 0+@H$ "-"5 @H 0B@I$ "-"L@I 0@J$ "********************************************************************************"@J 0٭@AD$ "PLEASE USE THE SCROLL KEY-" AK$ "TO TEMPORARILY HALT SCREEN DATA DISPLAY" AK 0BAL$ "PRIMARY DATA FILES ON THIS DISK-"LAL 0(AM$ "ARE PRESENTED IN SEQUENTIAL FILE FORMAT"2AM 0xA1,F$:1,F:1,G$:1,G:1,H$:1,H:1,I$:1,I:1,J$:1,J:1,AD$:1,K$:1,KA1,L$:1,L:1,M$:1,M:1,N$:1,N:1,O$:1,O:1,XZ$:1,ZX$: 1,8,2A 19071A 2,8,2,",S,W":2,OZ$: 2,8,2ܰA 2,8,2,",S,W":2,OA$: 2,8,2A 2,8,2,"ű,S,W":2,OB$: 2,8,2*A 2,8,2,",S,W":2,OC$: 2,8,2QA 2,8,2,"Ա,S,W":2,OE$: 2,8,2vA 2,8,2,",S,W":2,OF$: 2,8,2A 2,8,2,"Ԫ,S,W":2,OH$: 2,8,2A(147)ñA:::::::::A(18),,"PLEASE ENTER THE BEGINNING BALANCE FOR THIS ACCOUNT-"A T(A 2,8,2,",S,W"1A2,T=A 2,8,2SA(147):::::A(18),,"****PASSWORD NUMBER SELECTION****"A::(7)˲A,,"IN ORDER TO ACCESS THIS CHECKING ACCOUNT PROGRAM"A,,"YOU MUST SELECT A PROGRAM PASSWORD NUMBER."A:;A,,"PLEASE RECORD YOUR PROGRAM PASSWORD NUMBER"oA,,"OTHERWISE PROGRAM ACCESS WILL BE DECLINED."wA:A(15);(18),,"PLEASE SELECT YOUR PROGRAM PASSWORD NUMBER-": PWӳA PW 0 16845A 2,8,2,",S,W":2,PW: 2,8,2: 30500 B(147)B:KB(18);(15),,,"*PLEASE SELECT CORRECT KEY*":(7)W"B 16010chB(147)qrB::::|B(18),,,"*************************"ôB(18),,,"*COMPLETE ACCOUNT REPORT*"촐B(18),,,"*************************"B:8B(15);(18),,"PLEASE ENTER YOUR PROGRAM PASSWORD NUMBER-": WP]B 2,8,2,",S,R":2,PW: 2,8,2ڵB WPPW :: (15),,"INCORRECT PASSWORD NUMBER SPECIFIED!": (15),,"CHECKING ACCOUNT ACCESS DECLINED.": 4: 15000B(18),,"LETTER",,"OPTION" B::(158)/B,,"A",,"COMPLETE ACCOUNT REPORT"NB,,"B",,"DISK OPTION MENU"\B::(5)B(18);(15),,,"PLEASE SELECT LETTER OPTION-": R$B R$ "A" 17300B R$ "B" 15000ضB R$ "" 17900䶔C(147)C:::C(18),,,"*COMPLETE ACCOUNT REPORT*"#C::KC,,"PLEASE REMOVE THE PROGRAM DISK"qC,,"AND INSERT THE DATA DISK"::C,,"PLEASE USE THE SCROLL KEY TO READ DATA"C:ڷC(18);(15),,"PRESS THE 'A' KEY WHEN READY"C S$C S$ (65) 17380 C(147)$C 5,8,4,"á,S,R"D5,ZZ$,Z$,T,AC$,A$,A,B$,B,C$,C,D$,D,E$,E,F$,F,G$,G,H$,H,I$,I,J$,J,AD$,K$,K,L$,L,M$,M,N$,N,O$,O,XZ$,ZX$ D ZZ$: Z$: "#$#######.##";T: AC$: A$: "#$#######.##";A: B$: "#$#######.##";BRD C$: "#$#######.##";C: D$: "#$#######.##";D: E$: "#$#######.##";E: F$: "#$#######.##";FD G$: "#$#######.##";G: H$: "#$#######.##";H: I$: "#$#######.##";I: J$: "#$#######.##";JĹD AD$,D K$: "#$#######.##";K: L$: "#$#######.##";L: M$: "#$#######.##";M: N$: "#$#######.##";N]D O$: "#$#######.##";O:,,,XZ$: (18) ZX$v*DRSST: RS0 17410+D 5,8,44D:(18),,"*PRESS THE 'A' KEY TO CONTINUE PROGRAM*"$5D PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1->D T$GHD T$ (65) 17470VRD: 15000bE(147)jE:F(18);(15),,,"*PLEASE SELECT PROPER KEY*":(7) F:F 17010ǻPF(147):(30)1QF PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 19ZF:\dF(18),,,"*******************"nF(18),,,"*SAVE PRESENT DATA*"xF(18),,,"*******************"뼂F:(158);(15),,"PLEASE INSERT YOUR DATA DISK IN THE DISK DRIVE.":)F(18);(15),,"PLEASE RE-CONFIRM THIS OPTION (Y/N)": UU$AF UU$ "Y" 18200YF UU$ "N" 19000qF UU$ "" 18900yG:G 2,8,2,"Σ,S,R":2,RE: 2,8,2"G(5),"THE PRESENT NUMBER OF RECORDS ON THIS DATA DISK IS #";RE;'G:(15);(30),"THE MAXIMUM AMOUNT OF RECORDS ALLOWED IN THIS PROGRAM IS # 300"N,G(158):RE 0UG A$ "" K$ "" ::(15);(18),,"THERE IS CURRENTLY NO DATA PRESENT IN PROGRAM.": 4:(147): 290(VG PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1]XG:(18),,"PLEASE PRESS THE -A- KEY WHEN READY."gYG GV$ZG GV$ (65) 18265[G:^G(18),,,"*****************"̿hG(18),,,"*CURRENT DATA IS*"rG(18),,,"*NOW BEING SAVED*"|G(18),,,"*****************": 320002GZZ$ "ACCOUNT BALANCE"YGAC$ "ACCOUNT CHECK TRANSACTIONS"GAD$ "ACCOUNT DEPOSIT TRANSACTIONS"GXZ$ "***END OF RECORD***"GZX$ "********************************************************************************"iG PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1G 2,8,2,"@0:,S,W":2,T: 2,8,2G#1,"á",D0,U8®G1,ZZ$:1,Z$:1,T:1,AC$:1,A$:1,A:1,B$:1,B:1,C$:1,C:1,D$:1,D:1,E$:1,EN¸G1,F$:1,F:1,G$:1,G:1,H$:1,H:1,I$:1,I:1,J$:1,J:1,AD$:1,K$:1,KG1,L$:1,L:1,M$:1,M:1,N$:1,N:1,O$:1,O:1,XZ$:1,ZX$G 1,8,2G 19000I(147)I(18);(15),,,"*PLEASE SELECT PROPER KEY*":(7)II 180108J(147): 6,7: 5,4z9J PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1LJ(18),,,"********************"VJ(18),,,"*CHECKING ACCOUNT*"`J(18),,,"*SELECTION MENU*" jJ(18),,,"********************"kJzlJ PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1tJ,,,Z$vJ(18)"PREVIOUS ACCOUNT BALANCE":(158)wJ "#$#######.##";ZxJ(5)yJ(18)"REVISED ACCOUNT BALANCE"zJ(5),{JT Z ABCDEFGHIJKLMNOE|J "#$#######.##";TO}J(5)Y~J 390~JRE 0:Z$ "NO PRESENT ENTRIES"ŀJ 2,8,2,"Σ,S,W":2,RE: 2,8,2ŁJ 2,8,2,"Ԣ,S,W":2,RE:2,Z$: 2,8,2:_ƃJA$ "-":AA$ "0.00":B$ "-":BB$ "0.00":C$ "-":CC$ "0.00":D$ "-":DD$ "0.00":E$ "-":EE$ "0.00":F$ "-":FF$ "0.00"ƄJG$ "-":GG$ "0.00":H$ "-":HH$ "0.00":I$ "-":II$ "0.00":J$ "-":JJ$ "0.00":K$ "-":KK$ "0.00":L$ "-":LL$ "0.00"-DžJM$ "-":MM$ "0.00":N$ "-":NN$ "0.00":O$ "-":OO$ "0.00"edžJZZ$ "0.00":CT$ "0.00":DT$ "0.00":TT$ "0.00"LJJNR301: 1,8,2,"ϲ,L,"(250)LjJ 19092ljJ#1,(NR)NJJ#1,(NR)NjJ 19092njJ1,(255);ǍJ 19092ǎJ 19092ǏJ 1ǐJ 19092ȑJ 15ȒJ 19350ȓJȔJ DS1 DS50 DS,DS$:: 2:(15),,,"UNABLE TO CONTINUE DISK FORMATTING!":,,"PLEASE RETRY THIS OPTION.":: 19099ȕJțJ 4:"ϲ": 16000ȜJ(147):(18),,,"PERSONAL ACCOUNT INFORMATION":-ɦJ(18),"PLEASE ENTER YOUR FINANCIAL INSTITUTION NAME-": OZ$FɰJ OZ$ "" 19110qɺJ(18),"PLEASE ENTER YOUR NAME-": OA$J OA$ "" 19130J(18),"PLEASE ENTER YOUR STREET ADDRESS OR BOX NUMBER-": OB$J OB$ "" 19150J(18),"PLEASE ENTER YOUR TOWN OR CITY NAME-": OC$7J OC$ "" 19170{J(18),"PLEASE ENTER THE NAME OF YOUR STATE OR PROVINCE-": OE$K OE$ "" 19190 K(18),"PLEASE ENTER YOUR ZIP CODE-": OF$K OF$ "" 19210)K(18),"PLEASE ENTER YOUR CHECKING ACCOUNT IDENTIFICATION NUMBER-": OH$B(K OH$ "" 19230N2K:(7)N A$ "" K$ "" 20051CN(28);(15);(18);(7),,,"CAUTION....!"1HN:(158)"THERE ARE CURRENTLY NEW CHECKING TRANSACTIONS PRESENT IN PROGRAM---"7INMN"PLEASE NOTE THAT THE PRINT FORMER RECORD OPTION IS NOW UNAVAILABLE"RN"AT THIS PRESENT TIME.": 7: 19000SN::WN(15);(5),,"PLEASE INSERT YOUR DATA DISK IN THE DISK DRIVE."XN:S\N(5),"TO MOMENTARILY HALT DATA DISPLAY PLEASE USE THE *SCROLL KEY*":(158):aN(15);(30),,"PLEASE PRESS THE -A- KEY WHEN READY"fN GV$kN GV$ (65) 20070pN(147):uN(18);(158),"RECORD NUMBER",,"ACCOUNT TRANSACTION DATE":zN 2,8,2,"Ԣ,S,R"&N2,RE,Z$2ՄNRS ST@ՉN,RE,,,Z$UՎN RS 0 20095cՓN 2,8,2:՘N:(5);(15),,"PLEASE SELECT A RECORD NUMBER FOR REVIEWING-": REձN #3,"ϲ",L250նN#3,(RE),1ջN 20200N3,A$,AA$,B$,BB$,C$,CC$,D$,DD$,E$,EE$,F$,FF$,G$,GG$,H$,HH$)N 202009N#3,(RE),1EN 20200YN 3,8,3: 20225iN DS20 N,"THE RECORD NUMBER REQUESTED IS NOT WITHIN PROGRAM PERIMETERS!"::: PW 1.1 7455N 4:: 200056OA (AA$):B (BB$):C (CC$):D (DD$):E (EE$):F (FF$):G (GG$):H (HH$)QO #3,"Ģ",L250a O#3,(RE),1mO 20300O3,I$,II$,J$,JJ$,K$,KK$,L$,LL$,M$,MM$,N$,NN$,O$,OO$,ZZ$,CT$,DT$,TT$,Z$O 20300O#3,(RE),1$O 20300)O 3,8,3: 20325LO DS20 XQO,"THE RECORD NUMBER REQUESTED IS NOT WITHIN PROGRAM PERIMETERS!": 4:: 20005eOI (II$):J (JJ$):K (KK$):L (LL$):M (MM$):N (NN$):O (OO$):Z (ZZ$):CT (CT$):DT (DT$):T (TT$) jO(147);(15);(5),,,"FORMER CHECK TRANSACTIONS"CoO(158),"TRANSACTION DATE",Z$,"RECORD NUMBER #";RENtO(30)c~O(18)A$: 20355|كO "#$########.##";AوO B$ "" :(18)"NO SECOND ENTRY": 20365:: :(18)B$: 20365ٍO "#$########.##";B,ڒO C$ "" :(18)"NO THIRD ENTRY": 20375:: :(18)C$: 20375EڗO "#$########.##";CڜO D$ "" :(18)"NO FOURTH ENTRY": 20385:: :(18)D$: 20385ڡO "#$########.##";DڦO E$ "" :(18)"NO FIFTH ENTRY": 20395:: :(18)E$: 20395۫O "#$########.##";EY۰O F$ "" :(18)"NO SIXTH ENTRY": 20405:: :(18)F$: 20405r۵O "#$########.##";FۺO G$ "" :(18)"NO SEVENTH ENTRY": 20415:: :(18)G$: 20415ۿO "#$########.##";G#O H$ "" :(18)"NO EIGHT ENTRY": 20425:: :(18)H$: 20425S(18),,,"PLEASE ENTER FOURTH CHECK NAME-": D$|HSRS(18),,,"PLEASE ENTER FOURTH CHECK AMOUNT-"\S DfSpS(18),,,"PLEASE ENTER FIFTH CHECK NAME-": E$zS$S(18),,,"PLEASE ENTER FIFTH CHECK AMOUNT-",S ES PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1SS(18),,,"PLEASE ENTER SIXTH CHECK NAME-": F$SS(18),,,"PLEASE ENTER SIXTH CHECK AMOUNT-" S FSHS(18),,,"PLEASE ENTER SEVENTH CHECK NAME-": G$NSS(18),,,"PLEASE ENTER SEVENTH CHECK AMOUNT-"S GST(18),,,"PLEASE ENTER EIGHT CHECK NAME-": H$TT(18),,,"PLEASE ENTER EIGHT CHECK AMOUNT-"$T H.T88T(18),,,"PLEASE ENTER NINTH CHECK NAME-": I$>BTnLT(18),,,"PLEASE ENTER NINTH CHECK AMOUNT-"vVT IWT PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1`TjT(18),,,"PLEASE ENTER TENTH CHECK NAME-": J$tTO~T(18),,,"PLEASE ENTER TENTH CHECK AMOUNT-"WT J]TV(18),,"PLEASE ENTER FIRST DEPOSIT NAME-": K$VV(18),,"PLEASE ENTER FIRST DEPOSIT AMOUNT-"V KV V(18),,"PLEASE ENTER SECOND DEPOSIT NAME-": L$V{V PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1V(18),,"PLEASE ENTER SECOND DEPOSIT AMOUNT-"V LVV(18),,"PLEASE ENTER THIRD DEPOSIT NAME-": M$V&V(18),,"PLEASE ENTER THIRD DEPOSIT AMOUNT-".W M4WiW(18),,"PLEASE ENTER FOURTH DEPOSIT NAME-": N$o&W0W(18),,"PLEASE ENTER FOURTH DEPOSIT AMOUNT-":W NDWNW(18),,"PLEASE ENTER FIFTH DEPOSIT NAME-": O$XWbW(18),,"PLEASE ENTER FIFTH DEPOSIT AMOUNT-""lW OmW PW 0 : (15),,,"NO SYSTEM PASSWORD NUMBER PRESENT..."::,,,"PLEASE REBOOT THIS PROGRAM.": 1vWu(147)u:::::::u(5)u(18),,,"*************************"u(18),,,"*CHECKING ACCOUNT*"7u(18),,,"*COMMODORE 128 VERSION*"`u(18),,,"*80 COLUMN REPORT*"u(18),,,"*************************"u 2v 6,3: 2: 6,5: 2 v 15000$wZ$ "NEW ACCOUNT".w 3,8,2,",S,W"8w3,Z$: 3,8,2:%BwTC$ "**ACCOUNT CHECK TRANSACTIONS**"ALwZ$ "NO PRESENT ENTRY"QwYR$ "--------------------------------------------------------------------------------"VwA$ "#"`wA 0jwB$ "#"twB 0~wC$ "#"wC 0wD$ "#"wD 0wE$ "#"wE 0wF$ "#"(wF 05wG$ "#"?wG 0LwH$ "#"VwH 0cwI$ "#"mxI 0z xJ$ "#"xJ 0xRE$ "*****END OF RECORD****"(x 4,8,4,"á,S,W"2x4,TC$:4,Z$:4,YR$:4,A$:4,A:4,B$:4,B:4,C$:4,C:4,D$:4,D:4,E$:4,ES7x4,F$:4,F:4,G$:4,G:4,H$:4,H:4,I$:4,I:4,J$:4,J:4,RE$a