' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` ";SR:(" SR1A$"BY ACCOUNT NUMBER"L" SR2A$"BY CARD/CHECK NUMBER"d" SR3A$"BY MONTH"" SR4A$"BY DOLLAR AMOUNT":SR5" SR53010" X1R:N15:WK(X,N)(W$(X,N)):N,X: ** CONVERT STRINGS TO DIGITS **# :"SORT IN PROGRESS": SW1:2000:SW0: ** READ FILE **K! 936:8:"* SORT ";F$;" RECORDS *"x! :"WHICH FIELD DO YOU WANT TO SORT ON?"! 10:"1 = ACCOUNT NUMBER":10:"2 = CR CARD/CHECK NUMBER":10:"3 = MONTH":10:"4 = DOLLAR AMOUNT"" ::"ENTER YOUR SELECTION:$;"CLOSE BALANCES") D$;"OPENBALANCES"D D$;"WRITEBALANCES,R0"K 0c D$;"CLOSEBALANCES"m 2300 ** SORT SETUP ** H0:K0:J0:V0:R0:CM0:F0: SORT VARIABLES :"INITIALIZING SORT TABLE": X0150:YY05:WK(X,YY)0::#!" X124:N112# BAL(X,N),$ N,XE) D$;"CLOSE BALANCES"k` LIST FILE SUMMARY AFTER POSTINGj PRTYPE1İ5100t PRTYPE2SW1:800:SW0 10500: RETURN TO MAIN MENU ** INITIAL RECORD ** ER(222):216,0:ER51998 DBALANCES"!D$;"READ BALANCES"5X124:N112CBAL(X,N)LN,XeD$;"CLOSE BALANCES"qSW1ı ** UPDATE YTD BALANCES ** X1Z:BAL(W(X,1),W(X,3))BAL(W(X,1),W(X,3))W(X,5) X D$;"OPEN BALANCES" D$;"WRITE BALANCESOMPRESSED FILE TO DISK **7IS1:R0:SW1:1050:SW0V CLOSE POSTED RECORD FILEwD$;"WRITE POSTED ";F$;",R0"R2D$;"CLOSE POSTED ";F$ ** READ YTD BALANCES **2500::10::"READING YEAR-TO-DATE FILES": D$;"OPEN ER TO WORK AREA **S!W$(DL,1)" ":W$(DL,2)" ": ** FLAG FOR LATER COMPRESSING **]#2071w% ** COMPRESS FILE **'N0:S0(SS1*NN1.NR2205/W$(N,1)" "W$(N,2)" "2090X16:W$(S,X)W$(N,X):X2088 ** WRITE C18:"RECORD ALREADY POSTED":2070V18:868:"DELETED: ";W$(DL,6);" $";W$(DL,5)bR2R21D$;"WRITE POSTED ";F$;",R";R2W$(DL,1):W$(DL,2):W$(DL,3):W$(DL,4):W$(DL,5):W$(DL,6)D$ ZZ1:X15:W(Z,X)(W$(DL,X)):X: ** TRANSFPOSTED ";F$;" FILE"::F15:"WHICH RECORD # DO YOU WANT TO POST?"|16:868::"ENTER RECORD # OR TYPE 'END': ";DL$DL$"END"ĝ:2085DL(DL$):DL$"":DLRĢ18:"NO SUCH RECORD. HIGHEST RECORD IS ";R:2070"W$(DL,1)" "W$(DL,2)" ";"OPEN POSTED ";F$;",L40":D$;"WRITE POSTED ";F$;",R0"F0:R20ND$r:8:"* POST ";F$;" RECORDS *":"POSTING A RECORD WILL:"::" - DELETE RECORD FROM ";F$;" FILE"" - ADD AMOUNT TO Y-T-D BALANCES"" - WRITE RECORD TO ;",R";X<W$(X,1),W$(X,2),W$(X,3),W$(X,4),W$(X,5),W$(X,6)CXVD$;"CLOSE";F$bSW1ım2060 D$;"OPEN POSTED ";F$;",L40" D$;"READ POSTED ";F$;",R0" R2:2065 ER(222):216,0:ER51998 D$;"CLOSE POSTED ";F$D$):"LOCATED IN LINE #";(218)(219)256.I ** DELETE RECORDS **QZ0v:10::"READING ";F$;" FILE":D$;"OPEN";F$;",L40"D$;"READ";F$;",R0"RR0Ğ:" NO RECORDS STORED IN ";F$::BZ1:2050X1RD$;"READ";F$";:NN:2NN125050:780,NN:781,50:782:NNKNN12000:NN:936w"ANOTHER MISSION? HIT RETURN";A$::400BEATEN THE PREVIOUS HIGH SCORE ":"OF ";PT;" WITH YOUR SCORE OF ";TM GCGC1:GC1ĺ:"IF YOU'VE BEEN PLAYING THE EASY GAME":"YOU'RE A WINNER! NOW WE'LL ADVANCE TO":"THE HARD GAME":HD$"H" TMPTPTTM 4007:::NN1100:"** CRASH **140,15880,15880,12060,12060,10010,100U3:106,66114,66114,74106,74106,66y108,68112,72:108,72112,68: ::NN250015:"** WINNER **";:780,NN:781,10 782:NN:N1500:N::D TMPTė:10::"CONGRATULATIONS!"::"YOU'VE 0v180,120180,140200,140200,110245,110245,60235,60235,100180,100180,80140,80140,60120,60120,80100,80100,80100,40160,40160,60200,60200,80215,80215,40265,40265,130220,130220,158160,158*220,158160,158160,140140,140)MO$(4);:XN)MO$(5);:XN)MO$(6);v2XN)MO$(7);:XN)MO$(8);:XN)MO$(9);:XN)MO$(10);:XN)MO$(11);:XN)MO$(12)2X1130:"=";:X2:L02X124:NM$(X)N$(X):X2X124:PK1:V$NM$(X):102N112:BAL(X,N)043623PBAL(X,N):4130N"1PQ1ĺ(2);(31)21PQ2ĺ(27);(20)C1PQ3ĺ(15)1PK30:V$"YEAR-TO-DATE SPENDING ANALYSIS":15:PK35:V$"TODAY'S DATE: "(MT)"/"(D)"/"(Y):151XN7:XJ10"21)"EXPENSE DESCR'";:XJ)MO$(1);:XN)MO$(2);:XN)MO$(3);:XN2000: ** READ CARD FILE **E0 ** ADD CURRENT CARDS TO BALANCE **Z0BZ1BZ0:4325d043900F$"CHECK #":2000: ** READ CHECK FILE"0BZ1BZ0:4332043900SW0: ** SHUT OFF SWITCH ** 0PRTYPE155000D$;"PR#1"1(9);"BC1:106/PTA:4295:B5:V$(TA):PK51BC1:15S/4395: SHUT OFF PRINTER/C(P10)(P100)(P1000)(P10000):/ ** YEAR TO DATE SPENDING **/X112:TL(X)0:X: INIT RPT VAR/SW1:2250: ** READ YTD FILE **0F$"CARD #":BAL(X,MT)AV(X)X$"BELOW AVG"C.BAL(X,MT)AV(X)X$"EQUALS AVG"W.V$X$:PK70:15h.PK0:SY0:X.X180:"-";:X:.PK1:V$"** TOTALS **":10.PTL(MT):4295:B5:V$(TL(MT)):PK20BC1:10 /PTL(MT1):4295:B5:V$(TL(MT1)):PK36C1):10!-PPC(X,2):4295:B3I-V$(PC(X,2))"%":PK(46BC1):10^-AV(X)0ĺ:4270t-PAV(X):4295:B5-V$(AV(X)):PK(51BC1):10-PPC(X,3):4295:B3-V$(PC(X,3))"%":PK(61BC1):10-BAL(X,MT)AV(X)X$"ABOVE AVG".,PK1:V$NM$(X):10:-,BAL(X,MT)04247G,PBAL(X,MT):4295:B5m,V$(BAL(X,MT)):PK(20BC1):10,PPC(X,1):4295:B3,V$(PC(X,1))"%":PK(30BC1):10,BAL(X,MT1)04255,PBAL(X,MT1):4295:B5 -V$(BAL(X,MT1)):PK(36B;(30)H+36,24:"TREND ANALYSIS FOR THE MONTH OF ** ";MO$(MT);" **":V+XM4:XP2+"ACCOUNT DESCR'";:8)"CURR MO";:XP)"% TOT";:XM)"LAST MO";:XP)"% TOT";:XM)"AVG MO";:XP)"% TOT";+XM)"CUR VS. AVG"+X180:"=";:X:+X124.5)100:TATAAV(X):TL(MT)0PC(X,1)((BAL(X,MT)100)TL(MT))v*yTL(MT1)0PC(X,2)((BAL(X,MT1)100)TL(MT1))}*zX*{X124:TA0PC(X,3)((AV(X)100)TA)*|NM$(X)N$(X):X*}PRTYPE1ī5200*~D$;"PR#1"*(9);"90N"+PQ1ĺ(2)BZ1BZ0:4212:)r4390: ** ADD CHECKS TO BALANCES **[)tSW0: ** SHUT OFF SWITCH **)wX124:N1MT:AV(X)AV(X)BAL(X,N):TL(N)TL(N)BAL(X,N):BAL(X,N)(BAL(X,N)100.5)100:N,X: *CROSSFOOT & SUM* @*xX124:AV(X)AV(X)MT:AV(X)(AV(X)100:TL(0)0:X112:TL(X)0:AV(X)0:AV(X12)0:X: INIT RPT VARb(jSW1:2250: ** READ YTD FILE **(lF$"CARD #":2000: ** READ CARD FILE **(mBZ1BZ0:4208(n4390: ** ADD CR CDS TO BALANCES **(pF$"CHECK #":2000: ** READ CHECK FILE **)qCC(X)0:X: INIT RPT VARIABLESE' SW1:2000:SW0: ** READ FILE **'IR:I0Ģ24::"NO RECORDS IN ";F$::X11000:X:4130'PRTYPE1İ5100'PRTYPE2SW1:800:SW0'"10500: RETURN TO MAIN MENU'h ** TREND ANALYSIS **=(iTA0:AV(0)0$"CARD #":41002&RP2FL2:F$"CHECK #":4100B&RP3ī4200R&RP4ī4300z&RP6FL1:F$"POSTED CARD #":5700&RP7FL2:F$"POSTED CHECK #":5700&RP5İ280:4050&D$;"RUN TRAC GRAPH ROUTINE"& ** LIST FILE **'T0:X05:ILE".%"3 = TREND ANALYSIS & AVERAGE MONTH"W%"4 = YEAR TO DATE SPENDING PROFILE"x%"5 = HI-RES SPENDING GRAPH"%"6 = LIST POSTED CREDIT CARD FILE"%"7 = LIST POSTED CHECK FILE"%15::"ENTER SELECTION :";RP:%270&RP1FL1:FX$::X$"Y"SW1:1050:SW0%$ 270=$ X$"Y"X$"N"3055L$ 280:3050o$ 10500: * RETURN TO MAIN MENU$ ** REPORT OPTIONS **$:$12:"** REPORT OPTIONS **"$:"1 = LIST AND TOTAL CREDIT CARD FILE"%"2 = LIST AND TOTAL CHECK F:22.# X1R:N15:W$(X,N)(WK(X,N)):N,X{# X$"":IR:"PRINT SORTED LIST ON PRINTER? "::"ENTER 'Y' OR 'N' :";X$:# X$"Y"PRTYPE1İ5100# X$"Y"PRTYPE2SW1:800:SW0# R0$ "SAVE SORTED LIST ON THE DISK?"::"ENTER 'Y' OR 'N' :";"HOME FINANCE MANAGEMENT"/B'I039:"=";:IB'"THIS IS YOUR PERSONAL SYSTEM FOR MANAG-":"ING CREDIT CARDS, CHECKS AND OVERALL":"HOME FINANCES."B$':"YOU'LL BE ASKED TO SELECT FROM THESE ":"OPTIONS:"C)'10:"ADD":10:"POST":10:"SORT":10:E1Rī5740$A5792: CLOSE FILEEAER(222):216,0:ER51998YAD$;"CLOSE ";F$AD$:E10Ğ:"NO RECORDS IN ";F$::X11000:XAXX0:10500: RETURN TO MAIN MENU A' * DISPLAY INTRODUCTION SCREENA':A'XL(54):XH(55)B'7:/@vB1E11:(RE1)100E1E1100:I100:5760N@{(RE1)100I(RE1):E1Rc@ZB1E1:XXXX1}@D$;"READ ";F$;",R";Z@W$(XX,1),W$(XX,2),W$(XX,3),W$(XX,4),W$(XX,5),W$(XX,6)@@D$:PRTYPE1SW1:5100:SW0@PRTYPE2SW1:800:SW0 AURN TO MENU/?D *LIST POSTED CARD/CHECK FILES_?ET0:E10:X05:CC(X)0:X: INIT VARIABLESj?I5790?ND$;"OPEN ";F$;",L40"?SD$;"READ ";F$;",R0"?XR?bR0ī5792?l ** PRINT RECORD 100 AT TIME?nXX0@q:"READ 100 RECORDS OF ";F$:L(I);:I::ZT89>"PRESS RETURN FOR NEXT 3 MONTHS";XX$@>Nf>"PRESS RETURN TO GO TO MENU";XX$p>5630>X1R:WK(X,1)(W$(X,1)):WK(X,2)(W$(X,3)):WK(X,3)(W$(X,5))>BAL(WK(X,1),WK(X,2))BAL(WK(X,1),WK(X,2))WK(X,3):X: ?10500: RET(N$(X),10);1=INN2:ZTZT9:PBAL(X,I):5340j=36,ZTC1:BAL(X,I);:TL(I)TL(I)BAL(X,I):I::ZT8=X18Ą"PRESS RETURN FOR REST OF REPORT";XX$=X=YY039:"-";:YY:>"**TOTALS**";:ZT8:INN2:ZTZT9:PTL(I):5340:36,ZTC1:T(P10)(P100)(P1000)(P10000):L<| **YTD SPENDING-SCREEN VERSIONW<:ZT8<36,5:"YEAR-TO-DATE SPENDING ANALYSIS":36,5:"TODAY'S DATE: ";MT;"/";D;"/";Y<N1123:"DESCR";<INN2:ZTZT9:36,ZT:MO$(I);:I::ZT8 =X124:X18Ą"HIT RETURN FOR LAST PART OF REPORT ";XX$7;XL;"** TOTALS **";x;PTL(MT):5340:B5:36,9BC1:TL(MT);;PTL(MT1):5340:B5:36,21BC1:TL(MT1);;PTA:5340:B5:36,32BC1:TA;"PRESS RETURN TO GO TO MENU ";XX$:5630(<C6,(17BC1):PC(X,1);.:BAL(X,MT1)05285J:PBAL(X,MT1):5340:B5k:36,(20BC1):BAL(X,MT1);:PPC(X,2):5340:B3:36,(28BC1):PC(X,2);:AV(X)0ĺ:5305:PAV(X):5340:B5:36,31BC1:AV(X):PPC(X,3):5340:B30;:XP2`9_"DSCR";:36,9:"CUR MO";:36,18:"%";:36,21:"LST MO";:36,29:"%";:36,32:"AVG MO"w9dX039:"=";:X:9iX1249n(NM$(X),9);9sBAL(X,MT)052609xPBAL(X,MT):5340:B59}36,8BC1:BAL(X,MT);9PPC(X,1):5340:B3:3MMARY28D24::"HIT RETURN FOR CARD TOTALS";X$:Q8F::10:"* CARD TOTALS *"8H4:X15:PCC(X):980:CD$(X);:36,(15BC1):CC(X):X8K24::"HIT RETURN TO CONTINUE";X$:8O:8P8U36,4:"TREND ANALYSIS FOR ** ";MO$(MT);" **"9ZXM4,2)):CC(CC)CC(CC)W: *GRAND TOTALS AND CR CD TOTALSg7,T(T100.5)100:CC(CC)(CC(CC)100.5)100t7.PW:9807036,27BC1:W7251357<X038:"-";:X:7>PT:9807@36,1:"*** TOTALS ***";:36,26BC:T8BFL15195: SKIP CARD SU24::"HIT RETURN TO CONTINUE";X$::5:958:CTR1;6X;U636,3:(W$(X,6),10);u636,17(W$(X,1)):W$(X,1);636,23(W$(X,2)):W$(X,2);636,27(W$(X,3)):W$(X,3);6 36,30(W$(X,4)):W$(X,4);6(W(W$(X,5))57*TTW:FL1CC(W$(XT:T0:XXTYY$5J15:CC(J)0:D5:7);F$;" SUMMARY REPORT"_5OM3ĺ7)"SORTED ";A$|5:"# * PAID TO * A# ";5FL1ĺ"CARD# ";5FL2ĺ"CHECK#";5 " MO DY AMOUNT"::CTR05 34,(37)15XX1:XIī518036CTRCTR1:CTR16R:WK(X,1)(W$(X,1)):WK(X,2)(W$(X,3)):WK(X,3)(W$(X,5))u4(BAL(WK(X,1),WK(X,2))BAL(WK(X,1),WK(X,2))WK(X,3):X:4)PQ3ĺ(18)4+(9);"40N"4-PQ2ĺ(27);(19)4.PQ3ĺ(18)4/D$;"PR#0"40:BU1:10002: ** RETURN TO MENU5X0:YY29503B14:PK((N9)BC1):V$(BAL(X,N)):10I3 TL(N)TL(N)BAL(X,N)\3 N:PK0:SY0:c3 X{3X1130:"-";:X:3PK1:V$"** TOTALS ** ":103X1123PTL(X):42953B14:PK((X9)BC1):V$(TL(X)):103X:3%4395:4&X1AX-LOCAL,21. TAX-STATE,22. TAX-FEDERAL,23. VACATION,24. WATERrM +JAN,FEB,MAR,APR,MAY,JUN,JLY,AUG,SEP,OCT,NOV,DECM+MASTERCHARGE = $,VISA CARD = $,AM EXPRESS = $,GASOLINE = $,OTHER CARDS = $ESS EXP,4. CLOTHES ADULT,5. CLOTHES KIDS,6. DONATIONS,7. ELECTRICITY,8. ENTERTAINMENTL*9. FOOD,10. GIFTS,11. HOBBY-ADULT,12. HOBBY-KIDS,13. HOME-GAS,14. HOME-MAINT',15. INSURANCE,16. INVESTMENTS,17. LIQ/CIG'S,18. MORTGAGE=M+19. TELEPHONE,20. TE FILE TO BE USED."AK|)10:"1 = CREDIT CARDS":10:"2 = CHECKS"jK)20::"ENTER YOUR SELECTION :";FL:K)FL1FL2İ280:10630K)FL1F$"CARD #"K)FL2F$"CHECK #"K)OM1000,2000,3000,4000ZL*1. AUTO EXPENSE,2. BOOKS/MAGS.,3. BUSIN (DELETE) RECORDS"iJ@)10:"3 = SORT RECORDS ":10:"4 = REPORT/LIST OPTIONS":10:"5 = END THE SESSION"JJ)11::"ENTER YOUR SELECTION: ";OM:JT)270J^)OM5ĺ"ALL DONE":Jh)OM1OM5İ280:10570Jm)OM4ī10660Kr)15:"ENTER THE NUMBER OF THD$(X):XZI(BAL(24,12),W$(150,6),W(75,13),TL(12),NM$(24),AV(24),PC(24,3),WK(150,5),CC(5)rI) *** MAIN LOOP ***|I)936I")I0I,)13:"* MAIN MENU *"J6)3:"ENTER THE NUMBER OF THE OPTION YOU WANT":"TO USE.":10:"1 = ADD RECORDS":10:"2 = POSTTHE REPORT HEADING DATE: ":GHP(22:868::"IN MO,DAY,YR :";MT,D,Y:cHZ(MT12D31İ280:10320H( * FILL CONSTANT ARRAYSH(D$"": CTRL-DH(D$;"NOMON I,O,C"H(N$(24),MO$(13),CD$(5)H(X124:N$(X):XH(X112:MO$(X):XI(X15:C,G (10::"ENTER YOUR SELECTION :";PRTYPE:OG(PRTYPE1PRTYPE2İ280:10250G(PRTYPE2ĺ:"1= CENTRONICS COMPATIBLE":"2= CENTRONICS 737":"3= EPSON MX-80 PRINTER":"ENTER SELECTION ";PQ:PQ1PQ310270G<( * ACCEPT REPORT DATEHF(20::"ENTER N THE SCREEN."EF'24::"HIT RETURN TO CONTINUE ";X$::32,0:33,40gF' * ACCEPT OUTPUT DEVICE TYPEoF':F'8:"* INTIALIZATION SCREEN *"F'3:"ENTER THE REPORT OUTPUT DEVICE":"YOU WISH TO USE."F(:10:"1 = SCREEN ONLY":10:"2 = PRINTER"ACTION FROM ITS":"ACTIVE FILE AND UPDATE THE YEAR-":"TO-DATE BALANCES. NOTE: EACH"E'"'POSTED' TRANSACTION WILL BE WRITTEN":"TO AN AUDIT TRAIL FILE FOR FUTURE":"REFERENCE."E':13:"* * *"F':"FOR EACH OPTION, FOLLOW THE ":"INSTRUCTIONS OTURN TO CONTINUE ";X$:*Dt':33,37:32,3@D~':13:"* ADD *"D':"USE THE 'ADD' OPTION TO ENTER DETAIL":"EXPENSE TRANSACTIONS INTO THE CREDIT":"CARD AND CHECK FILES."D'8:13:"* POST *"UE':"USE THE 'POST' OPTION TO REMOVE":"A DETAIL TRANS"REPORT":10:"END THE SESSION"hC.':"TRAC WILL MAINTAIN YOUR EXPENSE DATA":"IN THE FOLLOWING FILES:"C8':10:"CREDIT CARD FILE":10:"CHECK FILE":10:"YEAR-TO-DATE FILE"CB'10:"POSTED CREDIT CARD FILE":10:"POSTED CHECK FILE"DL'24::"HIT REΠΠǠŠӢԠҠӠԠԠӠ٠٠ϠŠԠԠԠҤΠԲύԍύ ԠŠӠŠנĠ΢ԠҠӠԮ̢ԠӠ̠Š٠ΠԠӠԠŠӢԠΠŠ̠ӠҢԠ  $""255 "D$;"OPEN BALANCES"9'D$;"WRITE BALANCES"M,X124:N112[1BAL(X,N)d6N,X};D$;"CLOSE BALANCES""END OF JOB" NTER THE $AMOUNT WHICH YOU WISH TO":"SUBTRACT FROM THE BALANCE ";S{BAL(A,M)BAL(A,M)S:BAL(A,M)(BAL(A,M)100.5)100"THE NEW BALANCE IS ";BAL(A,M):"PRESS RETURN TO ENTER ANOTHER CHANGE":"OR 'E' TO END AND WRITE TO DISK ";XX$:XX124:N112BAL(X,N)#N,X<D$;"CLOSE BALANCES"F:10"ENTER ACCT # AND MONTH TO DISPLAY THE":"BALANCE YOU WISH TO DISPLAY/CHANGE"::"ENTER SELECTION: A,M:";A,M "FOR ACCT #";A;", MONTH ";M:"THE BALANCE IS $";BAL(A,M)C:"EUMBER TO BE CHANGED, AND":"THEN THE AMOUNT TO BE SUBTRACTED FROM":"THE OUTSTANDING BALANCE.":"PRESS RETURN TO RETRIEVE THE BALANCES":"OR 'E' TO SKIP TO THE END OF THE PROG.";XX$:XX$""400D$;"OPEN BALANCES"D$;"READ BALANCES" XT BALANCES IN ERROR **" D$(4) :"HAVING MADE DELETIONS FROM THE POSTED":"FILES, YOU WILL NOW PROBABLY WANT TO":"REVERSE THE EFFECT OF THE BAD ENTRIES" "ON THE BALANCES FILE."^:"YOU CAN DO THIS BY SELECTING THE MONTH,":"THE ACCOUNT NO REDO";X$ UX$""503 ZF15:W$(R,F)"0":FI _W$(R,6)"DELETED"U dD$(4)o iD$;"OPEN ";F$;",L40" nD$;"WRITE ";F$;",R";R xF16:W$(R,F):F D$;"CLOSE ";F$ :"DELETE ANOTHER? Y/N ";XX$ XX$"Y"50 ** REVERSE/SUBTRACD CARD #"& (N2F$"POSTED CHECK #"2 -D$(4)^ 2::"ENTER RECORD # TO VIEW/DELETE ";Rx 7D$;"OPEN ";F$;",L40" <D$;"READ ";F$;",R";R AF16:W$(R,F):F FD$;"CLOSE ";F$ K:5:F16:W$(R,6): P:"PRESS RETURN TO DELETE OR 'R' TFIELD IS" "SET TO 'DELETED' AND ALL OTHER FIELDS":"ARE SET TO ZERO. THEN THE RECORD IS":"WRITTEN BACK OUT TO DISK IN ITS PROPER":"POSITION."::"PRESS RETURN TO BEGIN ";XX$: "1= CARDS":"2= CHECKS" :"ENTER 1 OR 2 ";N #N1F$"POSTEMARK THEM AS DELETED."::"YOU MUST RETRIEVE A RECORD BY ITS" "PHYSICAL RECORD NUMBER. THE RECORD IS":"THEN DISPLAYED AND YOU ARE ASKED TO":"CONFIRM THAT THIS IS THE RECORD WHICH":"YOU WISH TO DELETE. IF YOU CONFIRM ":"THAT IT IS, THEN THE NAME W$(150,6),BAL(24,12)p:"DO YOU WANT TO CORRECT P)OSTED OR":"B)ALANCES FILES? P/B ";XX$:XX$"B"200 :6:"DELETE RECORDS FROM POSTED FILES"= :"THIS PROGRAM ALLOWS YOU TO RETRIEVE":"INDIVIDUAL RECORDS FROM THE POSTING":"FILE AND TO      LSW1ı3QBU1:10500: ** RETURN TO MAIN MENUTER(222):216,0:ER51998gD$;"CLOSE";F$yD$;"OPEN";F$D$;"WRITE";F$;",R0"0D$;"CLOSE";F$R0:1040("CHECK APPLESOFT MANUAL PG. 136 FOR ERR":"THE ERROR IS #";(222: **INPUT**+D$;"OPEN";F$;",L40"HIS01080: DIRECT EDITa$D$;"WRITE";F$;",R0"h)Iu.XR1I8D$;"WRITE";F$;",R";X=W$(X,1):W$(X,2):W$(X,3):W$(X,4):W$(X,5):W$(X,6)?IS01095BXGD$;"CLOSE";F$IIS0ı 0)(P1000)(P10000):6(9);"40N": CTRL I 40NED$;"PR#0"QSW1ı}::BU1:10002: ** RETURN TO MENU ** ** ADD TO CURRENT FILE **1950D$;"OPEN";F$;",L40"D$;"READ";F$;",R0"R D$;"CLOSE";F$ IR:200):15 zX#|X170:"-";:X:0PT:980kPK1:V$" *** TOTAL ***":10:PK(52BC1):V$(T):15FL1990: ** SKIP CR CD SUMMARY **:X15:PCC(X):980:CD$(X);:V$(CC(X)):PK(15BC1):15:990B9:C(P10)(P10K(46(W$(X,3))):V$W$(X,3):10FfPK(52(W$(X,4))):V$W$(X,4):10WkW(W$(X,5))lTTW:FL1CC(W$(X,2)):CC(CC)CC(CC)W: ** GRAND TOTAL AND CR CD TOTALS"mT(T100.5)100:CC(CC)(CC(CC)100.5)100pPW:980uV$(W):PK(52BC128:V$"ACC":10:PK36:V$FF$:10:PK44:V$"MO":10:PK50:V$"DAY":10_@PK56:V$"AMOUNT":15vCX170:"=";:X:HX1IMPK1:V$(X):10RPK9:V$W$(X,6):10WPK(31(W$(X,1))):V$W$(X,1):10\PK(41(W$(X,2))):V$W$(X,2):10 aPRINT SUMMARY **%!YYT:TYY(XX0)4%D$;"PR#1"E'(9);"100N"U*(2);(30)s425)F$;" SUMMARY REPORT"927)"TODAY'S DATE ";MT;"/";D;"/";Y;OM3ĺ27)"SORTED ";A$<FF$(F$,7)E>:PK1:V$"SEQ":10:PK12:V$"** PAID TO **":10:PK(W$(I,5))57Ģ23:"NOT A NUMBER..PLEASE REENTER":240:"LAST ACCT#";W$(I,1);" CD#";W$(I,2);" DT ";W$(I,3);"/";W$(I,4);" AMT $";W$(I,5)IS0XI:1050:IIS:IS0:20420323:868:23:"INVALID ENTRY.. PLEASE REENTER":  ** PB22:868:"PAID TO: ";::"--------------";:10:"";W$(I,6):c270:W$(I,6)""W$(I,6)" "(W$(I,6))14Ģ23:"MAX 14 CHARS ALLOWED..PLEASE REENTER":23522:25:868:"AMOUNT:";W$(I,5)270:(W$(I,5))0ĺ"":2406(W$(I,5))48IT?";I:W$(IS,1)"":204< W(W$(I,1)):W24W1İ280:205[ 21:868:F$;:"";W$(I,2)d 270 W(W$(I,2)):FL1(W1W5)İ280:225 21:25:868:"MONTH,DAY:";W$(I,3),W$(I,4) 270 WM(W$(I,3)):WD(W$(I,4)):WM12WD31İ280:230UT DATA ** 100 II1:8 19:868:"REC #";I^ 20:868::"ACCOUNT # ";W$(I,1)g 270 W$(I,1)"END"ĝ:II1: W$(I,1)"REDO"II1:II(I0):204 W$(I,1)"REDO"II1:II(I0):204 W$(I,1)"EDIT"ISI:"RECORD # TO ED" RECORDS *":" nN112:N$(N);4 x20:N$(N12); NA x FL1Ğ:"1=MC 2=VSA 3=AMEX 4=GAS 5=OTHER" FL2Ğ:"ENTER CHECK# 999 FOR CASH ENTRY" "TYPE ACCOUNT#, 'REDO', 'EDIT' OR 'END'": 34,(37): ** INP7 2F156 7TKWK(H,F):WK(H,F)WK(V,F):WK(V,F)TK< Ff HT$W$(H,6):W$(H,6)W$(V,6):W$(V,6)T$p KHHM| PH187 U30 WJJ1 YJK23 [25 _:"SORT COMPLETED": a d ** WRITE ACCOUNTS ON SCREEN ** i:8::"* ADD ";F$;** HEADER ROUTINE ** ( ';' PRINTING8 PKSY)V$;P SYSY(PKSY)(V$)V q  END OF LINE PRINTING PKSY)V$ PK0:SY0  MR: ** SORT ROUTINE ** M(M2):M095 J1:KRM HJ VHM (WK(H,SR)WK(V,SR)8E" 130N";""2 *************************R ** APPLE T.R.A.C. **r ** MICRO-SPARC, INC. ** ** P.O. BOX 325 ** ** LINCOLN MASS 01773 ** ** COPYRIGHT (C) 1981 ** ************************* 10000:                        $ D$;"WRITE";F$;",R0"! 04 D$;"CLOSE";F$: p D$"OPENPOSTED CARD #":D$" DELETE POSTED CARD #" D$"OPENPOSTED CHECK #":D$" DELETE POSTED CHECK #"   D$(4)$D$;"OPENBALANCES"<D$"DELETEBALANCES"S(D$;"OPENBALANCES"k2D$;"WRITEBALANCES"}<I1288:0:FD$;"CLOSEBALANCES"PF12ZF1F$"CARD #"dF2F$"CHECK #"nD$;"OPEN";F$xD$"DELETE"F$ D$;"OPEN";F z #??    !Ġ"ˠԠӠàӠGŠǠҠӠ Ԡ  **/*********************Բ Ϡ ŠŠ Ӡ*********************/***  ͠ˠ****Ԡé**٠ϭìà**ά*C INC.":;:"PRESS RETURN FOR CATALOG OF PROGRAMS ";X$O:D$;"CATALOG"DOR CATALOG OF PROGRAMS ";X$:D$;"CATALOG"D"HIT RETURN TO CONTINUE =>";:758::3::"THIS DISK AND ITS PROGRAMS ARE ":"PROTECTED BY COPYRIGHT LAW AND":"NO COPIES ARE TO BE MADE FOR OTHER""THAN YOUR PERSONAL USE AND/OR BACK-UP":"COPIES." :::"COPYRIGHT (C) 1980 BY MICRO-SPARS' ALLOWS YOU TO DELETE CHECK OR CARD TRANSACTIONS FROM THE POSTED FILE. TO USE IT, RUN THE PROGRAM, AND SPECIFY WHICH RECORD YOU WOULD LIKE TO DELETE.":"THIS ALLOWS YOU TO REMOVE TRANSACTIONS THAT YOU HAVE MISTAKENLY ENTERED AND POSTED"%:USING 'TRAC PLUS **.":"THIS WILL RESET ALL AMOUNTS TO ZERO, SO BE SURE TO TRANSFER THE PROGRAMS BEFORE ENTERING ANY CHECK OR CREDIT CARD DATA."18::"PRESS RETURN FOR NEXT PAGE ";XX$:3:7:"THE PROGRAM CALLED 'DELETE POSTING ERRORENTRIE:"IF YOU ARE USING OTHER PROGRAMS IN THE TRAC SYSTEM, THEN YOU MUST HAVE ALL TRAC PROGRAMS ON THE SAME DISK. WHEN TRANSFERRING 'TRAC PLUS **' TO A NEW DISK, YOU SHOULD ALSO TRANSFER THE PROGRAM CALLED 'RESET DATA FILES";" AND RUN";:"IT ONCE BEFORE Y BE USED WITH FILES CREATED BY PREVIOUS VERSIONS OF TRAC. :"WE SUGGEST THAT YOU USE 'TRAC PLUS **' FOR YOUR FINANCIAL RECORDS, AND ONLY RE-FER TO THE OTHER VERSIONS OF TRAC FOR PROGRAMMING TIPS."::"HIT RETURN TO CONTINUE ->";:758::3PAGE ";X$ :3:::"******NOTE - THE PROGRAM 'TRAC PLUS **' IS THE LATEST VERSION OF TRAC. IT WAS PUBLISHED IN NIBBLE VOLUME 2 NUMBER 8. THIS VERSION ALLOWS PRINTING TO EITHER SERIAL OR PARALLEL PRINTERS, OR TO THE < "SCREEN. 'TRAC PLUS **' MASTRATION DATA, YOU CAN RESET":"THE FILES FOR YOUR OWN DATA BY RUNNING":"THE SHORT 'RESET DATA FILES' PROGRAM":"CONTAINED IN THE CATALOG." :"USE ";::" 2,15,81 ";::" FOR THE CURRENT":"DATE TO EXERCISE THE DEMO FILES."::"PRESS RETURN FOR NEXT D":B Z"CREDIT CARDS TO HISTORY WHEN THEY HAVE":"BEEN CLEARED."k d:"PRESS RETURN FOR NEXT PAGE ";XX$ n:3::"THIS DISK CONTAINS DEMONSTRATION DATA":"IN THE THREE DATA FILES FOR TESTING":"THE REPORT WRITER. AFTER RUNNING WITH" x"THE DEMONLY. THIS IS ":"ACCOMPLISHED BY USING THE 'ADD DATA'":"OPTION WHEN YOU FIRST USE TRAC." P:"THE YEAR-TO-DATE FILE IS ADDED-TO BY":"DELETING RECORDS FROM THE CREDIT CARD":"AND CHECK FILE, MUCH AS YOU WOULD DO ":"IN POSTING CANCELLED CHECKS AND BILLEP  :3D$(4)(4:"THE PROGRAMS ON THIS DISK ARE:":7:15:"TRAC PLUS **":9:19:"AND":11:15:"SPACE MAZE"218::"PRESS RETURN FOR NEXT PAGE ";XX$<:3:5X F"TRAC MUST HAVE DATA IN IT'S FILES IN":"ORDER TO OPERATE CORRECT     15,2232:15,2233:15,2334:15,2435:16,2436\15,2334:15,2435:16,2436~&16,2337:18,1938:21,2238016,2337:18,1938:21,2238:D:8::"NIBBLE DISKETTE VOL 1 #1":10::NI14000:I::::38:21,2238:CD:8::"NIBBLE DISKETTE VOL 1 #1":10::ZNI14000:I:::4,2624I14:13,27I24:II14:13,27I24:II13:14,2628I:I14,2629:14,2330:25,2630:14,2331:26,31I14:15,2531I:I24:II13:14,2628I:IR14,2629:14,2330:25,2630:14,2331:26,31lI14:15,2531I:I15,2232:15,223315,2334:15,2435:16,243615,2334:15,2435:16,2436&16,2337:18,1938:21,2238 016,2337:18,1990,200,210,220Z:580& APPLE.12P20,2220:19,2021:18,1922r20,2220:19,2021:18,1922y116,1822:22,2422:15,2523:14,262416,1822:22,2422:15,2523:14,2624I14:13,27I24:II14:13,27I24:14,1524:7,825:14,1525:7,1526:8,1427B T((1)15)1` ^3,429:3,1530:3,1531q h((1)15)1 r35,387:34,398:34,359:38,399:34,3910:34,3911:34,3512:34,3513:34,3914:35,3815:38,3914|Z130,140,150,160,170,180,13:7,84:7,85:14,155:7,156:8,157: ((1)15)1g "7,89:3,410:7,1510:3,411:7,1511x ,((1)15)1 63,413:3,1514:3,1515:7,816:14,1516:7,817:14,1517:7,1518:8,1419 @((1)15)11 J3,421:3,1522:3,1523:7,8:28,3114:3 0:25,2615:24,2714:25,2813:] 13:15,2524:J13:16,2424J:J:} 13:J14:17,2327J:J: 13:18,2232:18,2233:17,2334:16,2435: : Z110 Z1İ400 ((1)15)1) 7,81:7,152:7,15 3.2.1. "I P:"PRESS ANY KEY TO CONTINUE =>";:A$::(4)"RUN PART2"p 0:32,3323:30,3424:31,3525: 0:28,2924:27,3025:28,3126: 0:25,2625:24,2726:25,2827: 0:32,3317:30,3416:31,3515: 0:28,2916:27,3015---"~ F8:" NIBBLE DISKS ARE NOW SUPPLIED IN":"16 SECTOR (DOS 3.3) FORMAT. ALL":"PROGRAMS WILL OPERATE CORRECTLY IN A" K"DOS 3.3 ENVIRONMENT - SEE INSTRUCTIONS":"IN THE INDIVIDUAL ARTICLES FOR":"INFORMATION ON ADAPTING THE PROGRAMS":"FOR DOS[ 230c:I112:4::958:I:X(16336):X(16336):"IMPORTANT NOTE":J110:::(I1700::3:12:"IMPORTANT NOTE"2I112:4::958:X(16336):X(16336):I:"--------- ----":J110::: <I1700::4:12:"--------- -     120,10120,30130,30:120,20125,20:140,30140,10146,20152,10152,30158,30158,10168,10168,30:158,20168,20:173,10183,10173,30183,30:198,10188,10188,30198,30:188,20193,2010,8080,8080,100100,100100,140120,140120,120180,12M1190:M2100:700:M1230:M2250:700:B780,M1:781,M2:782:f3:0,0279,0279,1590,1590,070,1060,1060,2070,2070,3060,30:75,3075,1085,1085,2075,20:90,3090,10100,10100,30:90,20100,20H115,10105,10105,30115,30:130,1000:M1170:M2250:700:M1190:M275:700:M1203:M272:700M1230:M275:700:M1126:M2250:700:M1170:M2250:700:M1190:M275:700M1203:M275:700:M1230:M275:700:M1126:M2250:700:M1170:M2250:700'M1190:M2100:700:M1203:M2100:700: ";PT; TM0Č936::10)"OUT OF FUEL";:10)" ":4001NXXOYYO300i0:XO,YO:NS$"N"300780,150:781,10:782,XOX:YOY:100:210 THE 500 SUBRTNE SETS UP THE MUSIC. M1=PITCH. M2=DURATION. 700 PLAYS IT.9M1255:M2250:7V1(1).95VVVV1/(1)75VVVV1CXXOHV:YYOVVTMTM1:21:10)"FUEL LEFT= ";TM:TM100Ģ21:868:10)"FUEL LEFT= ";TM22:868:"HORIZ =";HV;:25)"VERTICAL =";VV3:X,Y:PT0267 23:4)"PREVIOUS RECORD SCORE IS:S WERE SET TO INDICATE PRESENCE IN THE MAZE...THEREFORE MUST BE OUTSIDE.gZ0:: RESET Z EACH TEST X15:Y90:HV0:VV0:TM600:XO15:YO90:936(2)150HVHV1(2)75HVHV1(1)150VVVV1HD$"E"240(1).05HVH(X180X200)(Y60Y100)Z8M(X140X180)(Y60Y80)Z9u(X100X160)(Y40Y60)Z10(X100X120)(Y60Y80)Z11(X106X114)(Y66Y74)3000: BRANCH TO WINHZ04000: BRANCH TO CRASH...NO FLAG0Y158)Z66(X200X220)(Y110Y140)Z6_(X220X265)(Y110Y130)Z6(X245X265)(Y40Y110)Z6(X215X245)(Y40Y60)Z6(X215X235)(Y60Y100)Z6(X180X235)(Y80Y100)Z6&M GOES TO THE CRASH SUBRTNE.Bd(X10X80)(Y80Y100)Z1jn(X60X100)(Y100Y120)Z2x(X80X100)(Y120Y158)Z3}(X100X140)(Y140Y158)Z4(X120X180)(Y120Y140)Z5 (X160X220)(Y14AKING UP THE MAZE b IF X AND Y ARE SENSED, THEN Z IS SET THE NUMBER OF THE RECTANGLE. AT THE END OF THE TEST, Z IS TESTED. IF Z IS GREATER THANc ZERO IT MEANS X AND Y ARE IN BOUNDS. IF Z=0 THEN NO X AND Y HAVE BEEN SENSED IN BOUNDS AND THE PROGRAY OR N";NS$:"EASY OR HARD GAME? TYPE 'E' OR 'H'";HD$u &500:"DO YOU WANT STARWARS MUSIC EACH GAME?":"Y OR N ";M$ (:2000 -M$"N"İ500 2200 a THE FOLLOWING SUBROUTINE TESTS WHETHER X AND Y ARE CONTAINED IN THE SERIES OF 11 RECTANGLES MHE CENTER OF THE MAZE":: "BE CAREFUL! IN THE HARD VERSION OF THE":"GAME YOUR SHIP IS PULLED BY HOSTILE ":"MAGNETIC FORCES.. SO TAKE CARE " !"NOT TO CRASH!!!!!!!!!!!!!!!!!!!!!!!!!!!"5 ":"DO YOU WANT YOUR SHIP SIGNAL SOUNDS? ":"TYPE 5:796,174:797,12:798,3:799,76< 800,14:801,3:802,96F 936 7::10:"** SPACE MAZE **":23:4:"COPYRIGHT 1980..MICRO-SPARC INC.": 9:"YOU WILL PILOT A SPACE CRUISER THRU THE":"STAR MAZE TO REACH THE PRIZE DILITHIUM":"CRYSTALS AT TG SUBROUTINE GOES INTO MEMORY BLOCK HEX $30E (782). THE TONES RESPOND TO POKE 0 TO 255 PITCH= POKE780,P DURATION=POKE781,D 782,173:783,48:784,192:785,136:786,208:787,5:788,206:789,13:790,3! 791,240:792,9:793,202:794,208:795,24x " 60N"- *************************M ** SPACE MAZE **m ** MICRO-SPARC ** ** P.O. BOX 325 ** ** LINCOLN MASS 01773 ** ** COPYRIGHT C 1980 ** *************************W THE FOLLOWIN        àЍڠЍ֠ӍϮЍؠӍ!ɠЍàӍЍ٠ō"