TRANSACTION"JU)@256, "your choice ";: TE$: 10100: 10180:@270,TE$;:: 10105Jl*Y$:Y$""10755J*Y$"Y"10765 : 10730J* C$(K)D$(8(D$)," ")CN$" "AM$: 10015J* KJ*"ENTRY NOT FOUND": "HIT enter FOR MENU";PE: 10015K"* 10500: PT$"N" 20020 : K*!SB0:T0::" LIST DATA"::"1. LIST ALL ENTRIES ","2. LIST DEPOSITS ","3. LIST OUTSTANDING CHECKS","4. LIST DEBITS"K*&L$: L$"" 10790K*+ (L$)1 (L$)4 10785K*0K*5 K1 XL$*:MK$(C$(K),9,3):MZ(MK$): 10845L;*? L$"1" 10530LM*DR1210555LU*I KL*N (L$)1 "TOTAL ";: W$;TL*S"HIT enter FOR MENU";PE:10015L*X"OUT OF MEMORY":"TO ENTER MORE DATA,":"CREATE A NEW FILE":XX1: 10835M*] L$"2" MK$"DEP" 10530:M=*b L$"3" MZ0 10530:Mc*g L$"4" MK$"DBI" 10530:Mi*lMr*qSB1M*v:"IF YOU HAVE CREATED A FILE AND HAVE NOT SAVED IT TO DISK, RETURN TO MAIN MENU AND DO SO."N*{:"1. RUN SPREADSHEET ","2. RETURN TO MENU"N**LD$: LD$"" 10880NT* LD$"2" 10015 : LD$"1" 10Na* 10880N*:" COCO-ACCOUNTANT"::"1. SPREADSHEET ","2. CHECKBOOK":"3. ACCOUNTING PROGRAM"N*CU$: CU$"" 10900O(* CU$"1" 30 : CU$"2" 10000 : CU$"3" 23000 : 10900ON :"INPUT FROM TAPE OR DISK":20080: 21000:"FILE NAME";NF$:"PREPARE "KR$:"AND PRESS ";PEP*N*T$ZE$:"SEARCHING FOR "NF$:"I",#KD,NF$:#KD,Z:#KD,Y:"THIS FILE CONTAINS"Z"ENTRIES":"AND "Y" ACCOUNTS":L1Y:#KD,AN$(L):L:A0Z1:#KD,A$P]N4 2760: B$AD$(A$(32,32),32):C$1(B$)PxN>@480,"ENTRY NO. "A1;PNH APNR#KDPN\ 110PNf 45PNp"ARE YOU SURE? (Y/N)"PNzSR$:SR$""20090PNSR$"Y"PN 45Q+NB$T$(32,32):C$2(B$): (C$)0 "ERROR": 30000QDNC$(C$,3):T$UP$:Q]R "(T)APE OR (D)ISK"QyRT9$: T9$"" 21010QR T9$"T" KD1 : KD1QR& T9$"T" KR$"RECORDER" : KR$"DISK DRIVE"QR0 T9$"T" T9$"D" 21010QR: T9$"T" RRD"WANT A DIRECTORY? (Y/N)"R9RNW9$: W9$"" 21070RLRX W9$"Y" RqRb: "HIT enter TO CONTINUE";PE:RY؞:"LOAD COCO-ACCOUNTANT":"ARE YOU SURE?"RYUR$: UR$"" 23010RY UR$"Y" 10895RY 200RY"ACCOUNT/BAS",RRZ 230103&  @ V+ 42$% 42%$31bӍ]з!eb:$7V'% $\G&_45\/&(:%!:v myXIjq&\9 ZM& 5@%$0:8X0:P&9 %+ '/- ':|种XIj&qZZ9c%IR$742HߦZ& 424~ߦZ&O      5f52942HF>85ߦ,/42Ʀ0_ & \' \'$ &kXIj&qZZ9c%IR$742HߦZ& 424~ߦZ&O      5f52942HF>85ߦ8$'[X199"THIS IS THE LAST ENTRY"8M'`:"DATE (M/D ONLY)";D$:D$""101708y'e(D$)5"MONTH AND DAY ONLY":100658'j"TYPE OF ENTRY":"1. DEPOSIT":"2. OUTSTANDING CHECK":"3. DEBIT TRANSACTION"9'o@256, "your choice ";: TE$: 10100: 10180:@270,TE$;:: 101059='t (TE$)3 100,1: 10095:: 9'y TE$"CK" "CHECK NO. ";CN$: 10190:CN$(4(CN$),32)CN$: 101159'~ TE$"DP" CN$"DEP " : TE$"DB" CN$"DBIT"9' "AMOUNT";AM$9':"IS THIS CORRECT? (Y/N)": ' CH$"G" 10755:#'Y$:Y$""10130:5'Y$"Y"10150:;':P' 200,1: 10065:]' 10155:'C$(X)D$(8(D$)," ")CN$" "AM$:'CH$"G"10015:' X:'XX1:AX1:'10015:'ą TE$"1" TE$"DP" : TE$"2" TE$"CK" : TE$"DB";'ɐ;%'΅ (CN$)4 CN$(CN$,4):;+'Ӑ;'؞:"INPUT FROM TAPE OR DISK":10510: 21000: "ENTER FILE NAME";NF$: (NF$)8 NF$(NF$,8);'ۇ "PREPARE "KR$: "AND HIT enter";PE<+'ݙ "I",#KD,NF$: #KD,DS$: #KD,TD$: #KD,BP: #KD,X:"THIS FILE CONTAINS"X"ENTRIES": K1 X: #KD,C$(K)(<:"BANK STATEMENT DATA">(A BP0 10510>5(F: "BALANCE PER BANK";BP>u(K "STATEMENT DATE (M/D/Y)";DS$: "TODAY'S DATE (M/D/Y)";TD$>~(PFL0>(U 10015>(Z:"RECONCILING CHECKBOOK":DB0:DP0:CK0:TB0:TD0:TC0>(_ K1 X?(dAM((C$(K),14)):TZ$(C$(K),9,3)?O(i TZ$"DEP" DPDPAM : TZ$"DBI" DBDBAM : (TZ$)0 CKCKAM?(n TZ$"DEP" TDTD1 : TZ$"DBI" TBTB1 : (TZ$)0 TCTC1?(s K?(x?(}"BANK BALANCE ";: W$;BP?("DEPOSITS ";: W$;DP@("OUTST. CHECKS ";: W$;CK@1("OTHER DEBITS ";: W$;DB@]("TRUE BALANCE ";: W$; BPDPCKDB@(: PT$"Y" "PRINT THIS? (Y/N)" : 10835@(PR$: PR$"" 10395@( PR$"Y" 10015@("POSITION PAPER": "AND HIT enter";PEAE( Y1 4:#2: Y:#2,25)"BANK STATEMENT RECONCILIATION":#2:#2,(79,"="):#2:A(#2,"STATEMENT DATE: "DS$,,"RECONCILIATION DATE: "TD$:#2:#2, (79,"="):#2A(#2, "TRANSACTIONS:"TCTBTD,"CHECKS:"TC,"DEPOSITS:"TD,"DEBITS:"TBB'(#2:#2," BALANCE PER BANK"(44,".");:#2, " "W$; BPBJ(#2:#2," DEPOSITS":#2Bx(À K1 X: (C$(K),9,2)"DE" 10485B(ȋ KB(͇#2:#2," TOTAL DEPOSITS"(46,".");:#2, " "W$;DP:#2C(҇#2,5)"OUTSTANDING CHECKS":#2: K1 X: ((C$(K),9))0 10485C!(׋ K:#2Cg(܇#2," TOTAL CHECKS OUTSTANDING"(35,".");:#2, W1$;CK:#2C(#2,5)"DEBITS":#2: K1 X: (C$(K),9,2)"DB" 10485C( K:#2:#2," TOTAL DEBITS"(46,".");:#2, W1$;DB:#2DD(#2," TRUE BALANCE"(46,".");:#2, " "W$;BPDPCKDB:#2:#2,(79,"=")DQ( 10015Di(AM((C$(K),14))D(#2," "(C$(K),12)" ";:#2, W$;AMD(D) "PRINTER ON LINE (Y/N)";PT$: PT$"Y"PT$"N":10500D) D)"ARE YOU SURE? (Y/N)"E)SR$:SR$""10515E$)SR$"Y"E0)10015EH)"AM((C$(K),14))Ed)'(C$(K),12);: W$;AMEo),TTAMEy)1RR1E)6E);: PAGING SUBROUTINEE)@"CONTINUE (C) OR MENU (M)"E)ECJ$:CJ$""10565E)JCJ$"C"10575:CJ$"M"10015:10565F)OR0F )TF)YF()^CH$:CH$""10590F>)cCH$"Y":10015FW)h:"SORTING BY DATE"F_)mNXFm)rII1:JJNF)wIII:JJJ:S1F)|F$(C$(I),2):NX$(C$(J),2):M1$(C$(I),(C$(J),"/")1,2):M2$(C$(J),(C$(J),"/")1,2)G) 31((F$)1)(M1$)31((NX$)1)(M2$) 10640GA)E$C$(I):C$(I)C$(J):C$(J)E$GN)S(S)Gi) S1 II1 : JJ1G{) IJ 10620G) I1JJ 10660G)PP1:SS(P,1)I1:SS(P,2)JJG)JJI1G) IIJJ 10615G) P0 10685H)IISS(P,1):JJSS(P,2):PP1H) 10615H9) 65494,0:"SORT COMPLETED": 10835Hd)ž:"CORRECT AN ERROR": 200,1: 10510H)lj "DATE";DT$: "AMOUNT";MAH)̇"SEARCHING": K1 XH)GD$(C$(K),(DT$)):AM((C$(K),14))H)օ GD$DT$ AMMA 10530 : 10770I)ۇ"IS THIS THE RIGHT ENTRY? (Y/N)"I8)RN$: RN$"" 10720IW) RN$"Y" 10730 : 10770Is):"INPUT CORRECT DATA"I)"DATE (M/D ONLY)";D$I)(D$)5"MONTH AND DAY ONLY":10735J )"TYPE OF ENTRY":"1. DEPOSIT":"2. OUTSTANDING CHECK":"3. DEBIT/C&:COCO-ACCOUNTANT&4 :BY MICHAEL J. HIMOWITZ&Y:(C) 1983 FEDERAL HILL SOFTWARE&n:BALTIMORE, MD.&{ 10895& 2500: 155,80:A256(27)(28)580:CV32:1A:2A3:4A9: AN$(48),AT(48),JT(12,49), MT(12),XT(12)' !UP$"+ ":A0:B0: 2760:ZE$AD$:T$ZE$:I1'6#W$"#,###.##":B1'B(PT$"Y"'-RK0:R0:T0:TT0:GT0::(32,255);:(8,175);:"COCO SPREADSHEET";:(8,175);:(32,191);::"1. LOAD DATA FROM TAPE OR DISK":"2. PRINT SPREADSHEET ","3. RUN CHECKBOOK"(2 70(7CH$: CH$"" 55(>< (CH$) 20000,120,10895(HA 45(xF NF$"" @448,"FILE: "(NF$,8)" ";:(~K(P:"INPUT FROM TAPE":365:"PREPARE TAPE":"ENTER FILE NAME";NF$:NF$(NF$,7))QU"I",#1,NF$:#1,X:#1,Y: L1 Y:#1,AN$(L): L:"THIS FILE CONTAINS"X"ENTRIES":"AND "Y" ACCOUNTS":K1X:#1,C$(K))jZ@480,"ENTRY NO. "K;)q_K)zd#1)n 385::"ALPHABETIZING ACCOUNTS":UQ1: 485)s45*xT$ZE$::"ZEROING OUT ACCOUNTS": 460::"THIS IS A BIG SUMMARY.":"IT TAKES A WHILE": A0 Z1*8}@480,"ENTRY NO."A1;*M 2760: 20120*oAM((C$,23,8)): M1 MM* ((C$,2))M 145* M: M12 M12*M$(C$,21,1)* M$"X" XT(M)XT(M)AM: 160+ M$"Z" M$"X" MT(M)MT(M)AM+ NT1 Y+&AZ$(AN$(NT),2)+B (C$,21,2)AZ$ 180+K NT+dJT(M,NT)JT(M,NT)AM+l A+:"WHEW!":: "HIT ENTER FOR PRINTOUT";PE+Þ:"TODAY'S DATE (MM/DD/YY)";TD$+Ȁ G1 5:#2: G:TL$"SUMMARY REPORT AS OF "TD$,L(TL$):L80(TL$):L(L2),P҇#2,L)TL$:#2: G1 2:#2,(78,"="):#2,ׇ#2," JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC":#2,܀ NT1 Y, (AN$(NT),11,1)"Z" #2,(AN$(NT),2)" ";-) (AN$(NT),11,1)"Z" #2,(AN$(NT),2)"* ";-8 M1 MM-U#2,"######";JT(M,NT);-b M:#2-k NT-#2:#2: 265:#2:#2:ZO27:OW1:KB2: 305:KB0-#2:#2:#2,(78,"="): 530: 45.  #2,"EXP ";: M1 MM:#2,"######";MT(M);:M:#2.D M1 MM:GTGTMT(M):TTTTXT(M): M: TT0 285.~#2,"INC ";: M1 MM:#2,"######";XT(M);:M:#2.#2,"NET ";: M1 MM:#2,"######";XT(M)MT(M);: M:#2.#2:#2:#2,"TOTAL EXPENSES ";:#2, "#######";GT/>" TT0 #2,"TOTAL INCOME ";:#2,"#######";TT:: 300/s'#2,"NET ";:#2,"#######";TTGT/,#2:#2:/1:#KB,ZO)"THESE ARE YOUR ACCOUNTS":#2:ZO0: H1 Y 4: #KB, 12)AN$(H)27)AN$(H1)42)AN$(H2)57)AN$(H3): H06KB00; OW1 0@OW00vE"(1) MENU (2) CHANGE ACCOUNTS": 355: PT$"Y" "(3) LIST ACCOUNTS TO PRINTER"0JV$:V$""3300O(V$)45,34000T PT$"Y" V$"3" KB2: 3050Y3300^ 3551cOP(65314): OP4 OP6 PT$"Y" : PT$"N"1h10m"ARE YOU SURE? (Y/N)"1GrSR$:SR$""3701VwSR$"Y"1_|451:"JUST A MINUTE PLEASE . . . .":"I'M CHECKING DATES"1T$ZE$:MM1: A0 Z1: 2760: 201201M2((C$,2))1 M2MM MMM22 @480,"ENTRY NO."A1;2 A228 355: PT$"N" 455 : 2E:K1X2Q101752cR12102752jK2"HIT enter FOR MENU";PE:452:"ACCOUNTS":2€L1YSTEP2:AN$(L)" "AN$(L1):2lj"HIT enter FOR MENU";PE:452̀ M1 MM3MT(M)0:XT(M)03ր NT1 Y3-JT(M,NT)03< NT: M:3DT03QL1Y13yR1$(AN$(L),2):R2$(AN$(L1),2)3 R1$R2$ 5153E$AN$(L):AN$(L)AN$(L1):AN$(L1)E$3T13L3@480,"PASS NO. "UQ;:UQUQ13T14853 4:"ANOTHER COPY? (Y/N)"41GF$: GF$"" 5354D GF$"Y" 4!"POSITION PAPER": "AND HIT enter TO PRINT";PE:TT0:GT0: 2004 AD(A256):AD$(AD)(A256AD):4'6200:C$(200),SS(20,2)4'W$"#,###,###.##":W1$"["W$"]":A1:B15 ' 105005'RK0:R0:T0::(32,255);:(8,175);:"COCO CHECKBOOK ";:(8,175);:(32,191);:"A. INPUT STATEMENT DATA","B. INPUT CURRENT DATA","C. LIST CURRENT DATA ","D. RECONCILE "6T'$"E. LOAD FILE FROM TAPE OR DISK","F. SAVE FILE TO TAPE OR DISK","G. CORRECT AN ERROR","H. SORT ENTRIES BY DATE","I. RUN SPREADSHEET"6}'): DS$"" "STATEMENT DATE "DS$6'. TD$"" FL0 "TODAY'S DATE "TD$ : TD$"" FL1 "FILE DATE "TD$7'3 NF$"" @480,"FILE: "(NF$,8);7A'8CH$:CH$""10040 : (CH$)65 (CH$)73 100157'= ("ABCDEFGHI",CH$) 10300,10055,10785,10330,10200,10235,10690,10600,108707'B100157'G X A 4307'L: X200 108407'Q"ENTRY NO. "X7'V"HIT TO RETURN TO MENU"A& THURSDAY 4/27&G 2000: 155,80:A256(27)(28)578:CV32&n1A:2A3:4A9:6A15&UP$"+ ":A0:Z0: 2760:ZE$AD$:T$ZE$:I1& AT(48), AN$(48)&W$"#,###.##":A1:B1& 7000&U2$(32,255):U3$(32,191)'ZT0:I0:RK0:R0:T0:: U2$;:(4,175);:" COCO-ACCOUNTANT II 64K ";:(4,175);: U3$;:"A. ENTER PAYMENTS FROM KEYBOARD":"B. LOAD DATA FROM TAPE/DISK":"C. SAVE DATA ON TAPE/DISK"(("D. LIST PAYMENTS BY MONTH":"E. LIST PAYMENTS BY ACCOUNT":"F. LIST PAYMENTS BY PAYEE/SOURCE";(I*"G. YEAR SUMMARY":"H. SORT BY DATE"(-"I. CORRECT ERROR":"J. LIST ALL PAYMENTS":"K. ACCOUNTS":"L. CONVERT FILE ":"M. TAX OPTIONS";(/CH$: CH$"" 47)-2 ("ABCDEFGHIJKLM^",CH$) 105,200,300,400,500,700,900,12000,14000,18000,3300,40000,9000,23000)6F30)Fi AZ 900)]n:"ENTRY NO. "A1)jx 25000)} D10 AA1:ZA1: 30) 2760)B$AD$(A$(32,32),32))C$1(B$)) A) 30*@Ȟ:"INPUT FROM TAPE OR DISK":10000: 22100:"FILE NAME";NF$:"PREPARE "KR$:"AND PRESS ";PE*T$ZE$:"SEARCHING FOR "NF$:"I",#KD,NF$:#KD,Z:#KD,Y:"THIS FILE CONTAINS"Z"ENTRIES":"AND "Y" ACCOUNTS":L1Y:#KD,AN$(L):L:A0Z1:#KD,A$+ ׁ 2760: B$AD$(A$(32,32),32):C$1(B$)+%@480,"ENTRY NO. "A1;+- A+6#KD+>ZA+G30+,:"SAVE ON TAPE OR DISK":10000: 22100: "FILE NAME";: NF$+1"PREPARE "KR$: "AND PRESS enter";PE+6"RECORDING"Z"ENTRIES":"IN FILE "NF$+@"O",#KD,NF$+J#KD,Z,O#KD,Y:L1Y:#KD,AN$(L):L,DTT$ZE$: A0 Z1:2760:22200,PY#KD,C$,k[@480,"ENTRY NO. "A1;,s^ A,h#KD:30,:"LIST CHECKS BY MONTH",T0,"MONTH (1-12)";M,M1M12410,:T$ZE$: A0 Z1: 2760: 22200-((C$,2))M 10200-(R1010300-0‹ A-LJ@332,"TOTAL EXP:";:@342,"#####.##";T: I0 @364,"INCOME";:@374,"#####.##";I:@396,"NET";:@406,"#####.##";IT-Ɂ 15000-̇"PRINT THIS? (Y/N)":10400-΁10000-T0:I0:T$ZE$.=ч#2:#2,"********** ALL PAYMENTS IN MONTH "M" **********":#2.{֞:"PRINTING MONTH "M:T$ZE$: A0 Z1: 2760: 22200.ۅ((C$,2))M 10600. A/9#2:#2,"TOTAL EXP"(14," ");:#2,"#####.##";T: I0 #2,"INCOME"(17,32);:#2,"#####.##";I:#2,"NET "(18,32);:#2,"#####.##";IT/T#2:#2:10700:30/:"LIST CHECKS BY ACCOUNT":"YEAR, MONTH OR RETURN (Y/M/R)"/CH$:CH$""505/CH$"Y"515:CH$"M"570:30/"ENTIRE YEAR":"WHICH ACCOUNT?";CA$0'T$ZE$::T$ZE$: A0 Z1:2760:222000D (C$,21,2)CA$102000VR10103000^ A0@336,"TOTAL";:@342,"#####.##";TIZT0 150000!"PRINT THIS? (Y/N)":10400:100000$T0:I0:ZT0:T$ZE$1 :#2,"********* ALL PAYMENTS TO ACCOUNT "CA$" *********":#21F+T$ZE$: A0 Z1:2760:222001c0(C$,21,2)CA$106001k3 A15#2:#2,"TOTAL"(18," ");:#2,"#####.##";TIZT:#2:10700:301:"WHICH MONTH (1-12)";M:M1M125701?"WHICH ACCOUNT ";CA$2AT$ZE$2.D:T$ZE$: A0 Z1:2760:222002ZI((C$,2))M(C$,21,2)CA$102002lNR10103002tS A2X10800:15000:"PRINT THIS? (Y/N)":10400:10000:T0:I0:ZT02[T$ZE$3]#2:#2,"****** PAYMENTS TO ACCOUNT "CA$" IN MONTH "M" ******":#2:#23:bT$ZE$: A0 Z1:2760:222003fg((C$,2))M(C$,21,2)CA$106003ll3xv110003:"LIST BY PAYEE OR SOURCE":"MONTH, YEAR, OR RETURN (M/Y/R)"3CH$:CH$""7053ƅCH$"M"720:CH$"Y"800:304Љ"WHICH MONTH (1-12)";M:M1M127204DՉ"WHICH PAYEE";CA$:CA$(CA$,8)4lڞ:T$ZE$: A0 Z1:2760:222004߅((C$,2))M(C$,12,(CA$))CA$102004R10103004 A410800: 15000:"PRINT THIS? (Y/N)":10400:100005T0:I0:ZT05H#2:#2,"***** PAYMENTS PAID TO "CA$" IN MONTH "M" *****":#25nT$ZE$: A0 Z1:2760:222005((C$,2))M(C$,12,(CA$))CA$106005 A5 110005 "PAYEE";CA$:CA$(CA$,8)::T$ZE$: A0 Z1:2760:222006%(C$,12,(CA$))CA$102006,*R101030064/ A6m>10800:15000:"PRINT THIS? (Y/N)":10400:100006~AT0:I0:ZT06C#2:#2,"******** ALL PAYMENTS PAID TO "CA$" ********":#26HT$ZE$: A0 Z1:2760:222007 M(C$,12,(CA$))CA$106007R A7W110007BMD0::"YEAR TO DATE SUMMARY"7XL1Y:AT(L)0:L7T$ZE$: A0 Z1:2760:22200:AM((C$,23,8))7Z$(C$,21,2)7L1Y7Z$(AN$(L),2)AT(L)AT(L)AM7L7@480,A1;7ދ A7:8E!"#$%&'4 BAS(PRCK64 BAS@ACCOUNT BAS SPRCK BASFCT64 BAS(PRCK64 BAS@X08 L1Y8= (AN$(L),11,1)"Z" QZ$"* ": QZ$" "8 EX0 (AN$(L),11,1)"X" #MD,(AN$(L),10)QZ$;:#MD,"##,###.##";AT(L):RR18 EX1 (AN$(L),11,1)"X" #MD, (AN$(L),10)QZ$;:#MD,"##,###.##";AT(L):RR19  MD0 R12103009!L: EX1 104092 EX1: 10009@TT0:IT09N L1 Y9o (AN$(L),11,1)"Z" 10469 (AN$(L),11,1)"X" ITITAT(L) : TTTTAT(L)9 L9 MD2 #2:#29L:#MD,"TOTAL EXP ";:#MD,"##,###.##";TT:-Q IT0 #MD,"INCOME ";:#MD,"##,###.##";IT:gS IT0 #MD,"NET ";:#MD,"##,###.##";ITTT:T MD2 #MD:#MD:#MD,(44,"*"): 30:V15000:"PRINT THIS? (Y/N)";:`CH$:CH$""1120:jCH$"Y"1140:30;t:10000:"TODAY'S DATE (M/D/Y)";TD$;S~#2:#2,"********** YEAR SUMMARY AS OF "TD$" **********":#2;iMD2:#MD: 995; AD(A256):AD$(AD)(A256AD):< :"TO SET UP NEW ACCOUNTS OR CHANGE OLD ACCOUNTS, PRESS 'A'. FOR MAIN MENU, PRESS ANY OTHER KEY."< U$:U$""3010<( ̅U$"A"30<` ֞:"1. NEW ACCOUNTS":"2. CHANGE EXISTING ACCOUNTS" TO BEGIN";HE=z !BY1:B483600= "YB 48= #= $"ACCOUNT NO."Y:"ACCOUNT NAME";NA$:NA$"XXX"3155= %NA$(NA$,9)> &"2-LETTER CODE";CD$:AN$(Y)NA$(10(NA$)," ")(CD$,2)>9 0AN$(Y):"IS THIS CORRECT?">O :V$:V$""3130>f ?V$"Y"3150:3140> D"CORRECTED ";:3108> NZ$"2"V$"2"JX$"1"3400> QY> SYY1:BY1:3300? O20::"THESE ARE YOUR ACCOUNTS:": H1 Y 2:O2O21: 44000:AN$(H)" "AN$(H1)?% H?` "(1) MENU (2) CHANGE ACCOUNTS":"(3) PRINT THIS LIST"?v V$:V$""3320? (V$)30,3400,3350? 3320@/  10000:#2:#2:#2,28)"THESE ARE YOUR ACCOUNTS":#2:#2: L1 Y 4:#2,15)AN$(L)30)AN$(L1)45)AN$(L2)60)AN$(L3): L:#2:#2@s H:"1. ADD ACCOUNTS":"2. CHANGE EXISTING ACCOUNTS":"3. MENU":@ RZ$:Z$""3410@ \(Z$)3105,3500,30@ f3410@ :"CHANGE ACCOUNTS"::"ENTER NAME OF ACCOUNT YOU WISH TO CHANGE";NA$A "NEW NAME OF ACCOUNT";NN$:NN$(NN$,10):"NEW 2-LETTER CODE";LC$:NM$(NN$,10)(10(NN$)," ")LC$:NM$:"IS THIS CORRECT? (Y/N)A Y$:Y$""3504A Y$"Y"3502A H1Y:(AN$(H),(NA$))NA$AN$(H)NM$:3300A HB' "ACCOUNT NOT FOUND":"HIT FOR MENV";PE:30By:"YOU HAVE ASSIGNED ALL ACCOUNTS":"1. CHANGE EXISTING ACCOUNTS":"2. MENU"BJX$:JX$""3605B(JX$)3500,30CX:"OPTIONS"::"DO YOU WANT TO FLAG CHECKS":"WHICH ARE SUBJECT TO SALES TAX?":"(Y/N)CbSL$:SL$""7010C7lSL$"Y"SL$"N"7010Cuv"DO YOU WANT TO FLAG":"TAX DEDUCTIBLE CHECKS?":"(Y/N)"CTX$:TX$""7040CTX$"Y"TX$"N"7050C:"IS PRINTER ON LINE? (Y/N)"CPT$: PT$"" 7061CDD#(:"TAX OPTIONS"::"1. TAX DEDUCTIBLE EXPENSES":"2. CHECKS SUBJECT TO SALES TAX"D\#2SE$:SE$""9010Dt#<(SE$)9300,9200D#F 9010D#TS0::"SALES TAX RATE IN YOUR STATE (%)";PR:PR1(PR100): 32000E:$T:"TAX DEDUCTIBLE PAYMENTS":"1. LIST ALL DEDUCTIBLE PAYMENTS":"2. LIST DEDUCTIBLES BY ACCOUNT":"3. MENU"EU$^DD$: DD$"" 9310Es$h (DD$) 9400,9600,30E$r 9310E$:"TAX DEDUCTIBLE PAYMENTS"E$T$ZE$: A0 Z1:2760:22200: (C$)2 9430 : (C$,5,1)"D" 10200F $̅ R12 10300FD$֋ A:15000:"PRINT THIS? (Y/N)": 10400: 10000FL$T0F$#2:#2,"********* DEDUCTIBLE EXPENSES *********":#2F$T$ZE$: A0 Z1:2760:22200: (C$,5,1)"D" 10600F$ A:11000G% Z1 9300 : : "WHICH ACCOUNT?";CA$::"DEDUCTIONS: "CA$G%T0:T$ZE$: A0 Z1:2760:22200: (C$)2 9630 : (C$,5,1)"D" (C$,21,2)CA$ 10200G% R12 10300G% A: 10800:15000:"PRINT THIS? (Y/N)": 10400: 10000H&%#2:#2,"***** DEDUCTIBLE EXPENSES: ACCT. "CA$" *****":#2Ht%T$ZE$: A0 Z1:2760:22200:(C$,5,1)"D"(C$,21,2)CA$10600H% A:11000H'"ARE YOU SURE? (Y/N)"H'SR$:SR$""10010H'$SR$"Y"H'.30H'A$C$:(A$,5,2)" ":AM((C$,23,8))I'ه(A$,23);:"####.##";AMI:'݅ (C$,21,1)"Z" 10220I' (C$,21,1)"X" IIAM : (C$,21,1)"Z" ZTZTAM : TTAMI'RR1I'I(<: PAGING SUBROUTINEI(="CONTINUE (C) OR MENU (M)"I(@CJ$:CJ$""10304J (ACJ$"C"10310:CJ$"M"30:10304J(FR0J(KJ (PJ9(CH$:CH$""10400JL(CH$"Y":30Jc)h: PRINTER ROUTINEJ)mA$C$:(A$,5,2)" ":AM((C$,23,8)):FL$(C$,21,1)J)s#2,(A$,23);:#2,"#####.##";AMJ)u (C$,21,1)"Z" 10630K:)| (C$,21,1)"X" IIAM : (C$,21,1)"Z" ZTZTAM : FL$"X" TTAMK@)K`)̇#2,(44,"*"):#2:#2:K*0"TOTAL"(17," ");:"#####.##";TIZT:T0:K*#2:#2,"TOTAL"(18," ");:#2,"#####.##";TIZT:#2:10700:T0:30K. 42000K.NXL.II1:JJNL.III:JJJ:S1L|.F$(C$(I),2):NX$(C$(J),2):M1$(C$(I),(C$(J),"/")1,2):M2$(C$(J),(C$(J),"/")1,2)L/ 31((F$)1)(M1$)31((NX$)1)(M2$) 12060L/E$A$(I):A$(I)A$(J):A$(J)E$L/S(S)M/ S1 II1 : JJ1M/& IJ 12030M*/0 I1JJ 12100MK/:PP1:SS(P,1)I1:SS(P,2)JJMV/DJJI1Mj/N IIJJ 12020M|/X P0 12150M/bIISS(P,1):JJSS(P,2):PP1M/l 12020M/v"SORT COMPLETED": 200,20: 20020N*2Ȟ:" LOAD DATA FROM TAPE OR DISK"::"1. LOAD A NEW FILE":"2. ADD TO CURRENT FILE"Nw2LF$: LF$"" 13010 : LF$"1" 200 : LF$"2" 13100 : 13010N3,:"APPEND A FILE": 10000: 22100N36 "FILE NAME";NF$: (NF$)8 NF$(NF$,8)N3; KD1 NF$NF$"/DAT"O+3@ "PREPARE "KR$: PRESS enter";PE:?"SEARCHING "+NF$O6RK1::"CORRECT AN ENTRY": "ENTER DATE EXACTLY AS IT APPEARSIN THE FAULTY ENTRY, I.E. '0412'";: "DATE: ";NC$: NC$"" 30O6 (NC$)4 200,2: 14000O6 "AMOUNT OF TRANSACTION";VQP6"CURRENT DATA"P,6T$ZE$: A0 Z1:2760:22200PU6L$(C$,(NC$)):VG((C$,23,8))P{6 L$NC$ VGVQ 14017 : 14025P6 10200:"IS THIS THE ENTRY? (Y/N):P6YN$: YN$"" 14019 : YN$"Y" 14030 : YN$"N" 14025 : 14019P6ɋ AQ6ʇ"CHECK NOT FOUND":20020Q&6ˁ10200QC6·"CORRECTED ENTRY NO. "AQP6Ӂ 25000Q6 CR$"Y" 2760:B$AD$(A$(32,32),32):C$1(B$): 30Q7 14030Q: PT$"N" 20020 : QFP:T$ZE$: A0 Z1: 2760: 22200QFZ10200RFdR1210300R Fn AR-Fx"HIT enter FOR MENU";PE:30RAN :"ACCOUNTS":RhN*L1Y2:AN$(L)" "AN$(L1):RN4"HIT enter FOR MENU";PE:30RR"OUT OF MEMORY":"TO ENTER MORE PAYMENTS,":"CREATE ANOTHER FILE.": 18040SS "DATE ";D$: (D$)5 "DO NOT USE YEAR": 21500S'T D$"" 30SmT "CK NO., CRCD OR 'INC':";CN$: (CN$)4 "TOO LONG": 21510ST "PAYEE OR INCOME SOURCE";P$:P$(P$,8): "ACCOUNT"; AC$:AC$(AC$,2): "AMOUNT";AM$:SU"ACCOUNT": : CC1 2100:: : "ACCOUNT"TU "NEXT COPY";JI: 22000T4VT"(T)APE OR (D)ISK"TPVWTD$: TD$"" 22103TnV^ TD$"T" KD1 : KD1TVc TD$"T" KR$"RECORDER" : KR$"DISK DRIVE"TVe TD$"T" TD$"D" 22103TVf TD$"T" TVh"WANT A DIRECTORY? (Y/N)"U"VrV9$: V9$"" 22130 : V9$"Y" UGV|: "HIT enter TO CONTINUE";PE:UhV: SUBROUTINE FOR RETRIEVINGUVB$T$(32,32):C$2(B$): (C$)0 "ERROR": 30000UVC$(C$,3):T$UP$:V(Y؞:"BEFORE LOADING THE SPREADSHEET- CHECKBOOK PROGRAM, BE SURE YOU HAVE SAVED YOUR FILE ON DISK."VcY:"1. LOAD SPREADSHEET-CHECKBOOK","2. RETURN TO MENU"VYGM$: GM$"" 23020 : GM$"2" 30VY GM$"1" "SPRCK/BAS",RVZ 23020Va "MONTH";D1: D10 : D112 200,1: 25000W*a "DAY ";D2: D21 D231 200,1: 25010WUaD1$((D1),2): D110 D1$"0"D1$WaD2$((D2),2): D210 D2$"0"D2$Wa "CHK NO., CRDCRD OR INC";CN$: (CN$)4 CN$(CN$,4)Xaƅ (CN$,3)"INC" "INCOME SOURCE";P$: (P$)8 P$(P$,8)XaЅ CN$"INC" 25070XPaډ "PAYEE";P$: (P$)8 P$(P$,8): 25100X]a䁥 25100Xa "INCOME ACCOUNT CODE";AC$: (AC$)2 AC$(AC$,2) : (AC$)2 200,1:"must be two letters":goto 25070Ya (AC$,1)"X" "FIRST LETTER MUST BE 'X'": 25070Yb 25130Yb "2-LETTER ACT CODE";AC$: (AC$)2 AC$(AC$,2) : (AC$)2 200,1:"must be two letters": 25100Yb (AC$,1)"Z" "non summarized account"Zb (AC$,1)"X" 200,1:"can't use income code": 25100Zb 25130ZSb*"AMOUNT";AM$: (AM$)7 200,1:"AMOUNT TOO LARGE": 25130Zb4 (AM$)7 AM$(7(AM$),"0")AM$Zb> (AC$,1)"Z" (CN$,3)"INC" (AC$,1)"X" TD$"N":TS$"N": 25220ZbH"TAX DEDUCTIBLE? (Y/N)";[ bRTD$: TD$"" 25170[,b\ TD$"Y" TD$"N" 25170[9ba" "TD$[]bf"SUBJECT TO SALES TAX? (Y/N)";[ybpTS$: TS$"" 25200[bz TS$"Y" TS$"N" 25200[b" "TS$[b"IS THIS CORRECT? (Y/N)"[bCR$: CR$"" 25230[b CR$"Y" 25000\b TD$"Y" TV$"D" : TV$"Z"\?b TS$"Y" SV$"T" : SV$"Z"\jb (CN$)4 CN$CN$(4(CN$),32)\b (P$)8 P$P$(8(P$),32)\bA$D1$D2$" "CN$" "P$" "AC$" "AM$\bQJ$TV$SV$:(A$,5,2)QJ$\b]v>UP$"+ ":DOWN$"- ":A0: 2760:ZERO$AD$]#vHI1:TE$ZE$]-vRII1]Av\B$T$(32,32)]jvfC$2(B$): (C$)0 "ERROR":]vpT$UP$:C$(C$,3): 10200]v I4 30290]yB$T$(32,32):C$2(B$): (C$)0 "ERROR": 30000]y"C$(C$,3):T$UP$:^} 32010^Z} T$ZE$: A0 Z1:2760:@480,A1;: 31000:(C$,6,1)"T"TSTS((C$,23,8))^`}^h}:^}TXTS(TSPR):"TOTAL SALES TAX PAID:";:"####.##";TX_%}"LIST THESE CHECKS? (Y/N)":10400::T0:T$ZE$: A0 Z1:2760:22200:(C$,6,1)"T"10200 _}2 A:"TOTAL"(17,32);: "#####.##";T:"TOTAL PURCHASES"" ";:"#####.##";TSPR:"SALES TAX"(13," ");:W$;TX:15000_}R1010300`]}"PRINT THIS? (Y/N)":10400: 10000:#2,"******* CHECKS SUBJECT TO SALES TAX *******":#2:T0:T$ZE$: A0 Z1:2760:22200:(C$,6,1)"T"10600`} A:#2:#2,"TOTAL"(18,32);:#2,"#####.##";T:#2,"TOTAL PURCHASES ";:#2,"#####.##";TSPRa!}#2,"SALES TAX ";:#2,"#####.##";TX:#2:10700:#2:#2: 30a@:"CONVERT FILE FROM 32K FORMAT.":"INPUT FROM TAPE OR DISK":10000: 22100:"FILE NAME";NF$:"PREPARE "KR$:"AND PRESS ";PE bLJT$ZE$:"SEARCHING FOR "NF$:"I",#KD,NF$:#KD,Z:#KD,Y:"THIS FILE CONTAINS"Z"ENTRIES":"AND "Y" ACCOUNTS": L1 Y:#KD,AN$(L): L: A0 Z1:#KD,A$bYL 41000bO 2760: B$AD$(A$(32,32),32):C$1(B$)bc@480,"ENTRY NO. "A1;bh Abr#KDbwZAbɜ|30c (YZ(A$): YZ10 YZ$"0"((YZ),2) : YZ$((YZ),2)cj2W4(A$,"/"):W4W41:XZ((A$,W4,2)): XZ10 XZ$"0"((XZ),2) : XZ$((XZ),2)c85ߦ,/42Ʀ0_ & \' \'$ &kXIj&qZZ9c%IR$742HߦZ& 42"Z" (A$,P7,1)"D" 45020h#ҋh9W6$"ZZ": 45030hMW6$(A$,P7,2)hS3&  @ @k+ 42$% 42%$31bӍ]з!eb:$7V'% $\G&_45\/&(:%!:v myXIjq&\9 ZM& 5@%$0:8X0:P&9 %+ '/- ':|种XIj&qZZ9c%IR$742HߦZ& 424~ߦZ&O      5f52942HF>85ߦ,/42Ʀ0_ & \' \'$ &kXIj&qZZ9c%IR$742HߦZ& 424~ߦZ&