' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦeff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ՊЀР* @A@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժՊժժԂՀЊЂՀՀՊЀpXD@`abX0KbcxՀE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$<8Xu30030_8lu:936:12:14:"LOADING...."s8vu(4)"RUN MENU"8401607E25540150Q712:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$l7A$"N"A$"Y"40110|7œA$"N"1307̜300007֜"ERROR #"E" AT LINE "E1:750007ꜫ130uA$"N"13008Nu936:12::" INSERT YOUR MASTER DISK IN THE DRIV:50006Xu30000.6lu12:14:"LOADING...."B6vu(4)"RUN MENU"H6@U6JE(222)n6TE1(218)(219)2566UE69400306V12:3:"OVERFLOW ERROR, UNABLE TO CONTINUE.":401606^E133401007h12:2:"DIVISION BY ZERO, UNABLE TO CONTINUE.":LA(ZZ$)HA)ZZ$","20020-5\NRRLN20020O5fNRRRR1:ZZ$;:GOOD$GOOD$ZZ$Z5pN20020h5zNV1:1:{5NRR1GOOD$""5NRR1GOOD$(GOOD$,RR1)5NRRRR15NV:HT:868:GOOD$;5N2002060u:12::" INSERT YOUR MASTER DISK IN THE DRIVE.": ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪ:1:1:4pI1A4zI26:1:A$(I);:VI26:HT(A$(I))2:LN38(A$(I)):LA46:HA57:20000:A(I)(GOOD$):GOOD$""ġ::1304I48:1:95844 NV:HT:GOOD$""4*NRR044NZZ$4>N(ZZ$)13200904HN(ZZ$)8RR0201005RN((ZZ$)N.":.3"9. MORTGAGE AMORTIZATION TABLE.":833880A3190L330000~324:" CARE TO RUN THIS ENTRY AGAIN (Y/N)? ";3Y$3Y$"Y"ı3Y$"N"41153"::130324:7:"PRESS ANY KEY TO CONTINUE";:A$::4I4202:I:1:868:AR. ":"2. COMPUTE SALVAGE VALUE OF AN ITEM. ":"3. COMPUTE NET COST OF DISCOUNTED PAPER.":"4. PRINCIPLE ON A LOAN."::"5. REGULAR PAYMENT ON A LOAN."3:"6. LAST PAYMENT ON A LOAN."::"7. REMAINING BALANCE ON A LOAN."::"8. THE TERM OF A LOAI:61d"000 ?";(34);:4340:" -";:4340:"-";(34)A1n30000G1M1l110:": :"110:" FINANCIAL PLANNER "110:": :"1115100:16:"MENU ":3880:2"1. AMOUNT DEPRECIATED WITHIN A YE0F19PR03820!0BR3700+0CC190DBI100]0:"LAST PAYMENT: $";(D)100Bm0(4)"PR#0"}04110:34200500000 F00"PMT INTEREST PRINCIPLE BALANCE":037600(:I138:" ";:I:" "::1ZI116::T INTEREST PRINCIPLE BALANCE":D/tCC1:LBI:PRL:BBPt/~CC100.5:LL100.5:PP100.5:BB100.5/C(C)100:L(L)100:P(P)100:B(B)100/C10ĺC;" ";/C100C9ĺC;" ";/C1000C99ĺC;" ";/L,P,B/FF1"Y"3670 .WA$"N"PR0:3680w.X:5:" MAKE SURE YOUR PRINTER IS HOOKED INTO"::7:"SLOT #1 AND READY TO PRINT.".Y17:5:"DO YOU WISH TO CONTINUE (Y/N)? ";:A$:A$"Y"A$"N"3673.ZA$"N"3671.[PR1.`BA.a::(4)"PR#"PR(/j"PM3)- JJ1006-NN12:IJ12:B1I:RAI(11BN)E-RR100.5T-R(R)100u-$"AMOUNT PER PAYMENT = $"R:-.Q(RNA)100.5-8Q(Q)100-B"TOTAL INTEREST = ";Q-L5000 .V12:4:"SEND TABLE TO THE PRINTER (Y/N)? ";:A$:A$"N"A$,\ :3880:9,f " THE MORTGAGE AMORTIZATION TABLE"a,z " COMPUTE INTEREST PAYMENTS"g, s, 3880:{, C0, A$(1)"AMOUNT OF LOAN:", A$(2)"AMOUNT OF INTEREST IN PERCENT:", A$(3)"NUMBER OF YEARS:"- A3:6000:AA(1):JA(2):NA(F EACH REGULAR PAYMENT:">+ A$(4)"AMOUNT OF LOAN PRINCIPLE:"h+! A4:6000:NA(1):IA(2):RA(3):PA(4)n+* +4 Y((1(P(I100))(NR))((1I100N)N))+> "A TERM OF "(Y10.5)10" YEARS WILL SATISFY":+C "THIS LOAN SCHEDULE.",R 4110:3260 ARI1* BOBOA* J1P* :"THE REMAINING BALANCE IS $";(BO100.5)100`* 4110:3030n* :3880:* 8)"#8 THE TERM OF A LOAN"* * 3880:* A$(1)"NUMBER OF PAYMENTS EACH YEAR:"* A$(2)"ANNUAL INTEREST RATE:"+ A$(3)"AMOUNT O): A$(4)"AMOUNT OF LOAN PRINCIPLE:"M)O A$(5)"WHAT YEAR OF THE LOAN IS IT:"{)X A$(6)"HOW MANY PAYMENTS MADE THIS YEAR:")Y A6:6000:NA(1):IA(2):RA(3):PA(4):YA(5):N1A(6))b II100)l BOP)v J11N(Y1)N1) I1((BOIN)100.5)100* FOR THIS LOAN,":8( "WILL BE $";((RBO)100.5)100H( 4110:2810V( :3880:( " #7 REMAINING BALANCE ON A LOAN"( ( 3880:( A$(1)"PAYMENTS MADE EACH YEAR:"( A$(2)"ANNUAL INTEREST RATE:"(& A$(3)"AMOUNT OF EACH PAYMENT:"$AR PAYMENT:"1'^ A$(4)"PAYMENTS MADE EACH YEAR:"W'r A$(5)"AMOUNT OF LOAN PRINCIPLE:"'s A5:6000:YA(1):IA(2):RA(3):NA(4):PA(5)'| I1I:II100:BOP' J11NY' I2((BOIN)100.5)100' ARI2' BOBOA' J1( "THE LAST PAYMENTRIOD OF "Y" YEARS AT AN":C& "INTEREST RATE OF "I1"% PER ANNUM."S& 4110:2650a& :3880:& 8)"#6 LAST PAYMENT ON A LOAN"& & 3880:&" A$(1)"LIFE OF THE LOAN IN YEARS:"&6 A$(2)"ANNUAL INTEREST RATE:" 'J A$(3)"AMOUNT OF EACH REGUL AMOUNT:"3% A4:6000:YA(1):IA(2):NA(3):PA(4)e% ::R((I100)PN)(11((I100)N1)(NY))n% I1I% "REGULAR PAYMENTS OF $"(R100.5)100",":% "MADE "N" TIMES EACH YEAR ARE":% "REQUIRED TO SATISFY A LOAN OF":& "$"P" FOR A PEՂՂШժՊՠժՊՀpx4@`Rax<@GHPaaSyՊժժԂՀ $$H$$$H$$prD""I8ЊԪՊЀՀժՊՠժՊՀ@ՊժժԂՀ d$H$d$H$d<2D ""IЊԪՊЀՀժՊՠժՊՀՊժժԂՀ@'C8C'#8C#cRa<4<7xЊԪՊЀՀՀՊЀ@xժՊՠժՊՀOAN IS $";(P100.5)100)$P 4110:25107$Z :3880:_$d " #5 REGULAR PAYMENT ON A LOAN"e$n q$x 3880:$ A$(1)"LIFE OF THE LOAN IN YEARS:"$ A$(2)"ANNUAL INTEREST RATE:"$ A$(3)"NUMBER OF PAYMENTS MADE YEARLY:" % A$(4)"LOAN PRINCIPLEAYMENTS MADE YEARLY:"9# A$(2)"AMOUNT OF EACH PAYMENT:"c# A$(3)"ANNUAL INTEREST RATE ON LOAN:"#2 A$(4)"LIFE OF THE LOAN IN YEARS:"#3 A4:6000:NA(1):RA(2):IA(3):YA(4)#< PRN(11((I100)N1)(NY))(I100)$F :"THE PRINCIPLE ON THIS LA":." "DISCOUNT RATE OF ";D100;"%, THE":^" "DISCOUNT AMOUNT WILL BE $"(D1100)100:" "AND THE COST WILL BE $"(((TD1)100))100" ."" 4110:2320" :3880:" 5)" #4 PRINCIPLE ON A LOAN"" " 3880:# A$(1)"NUMBER OF P:!8 3880:!B :!L A$(1)"FUTURE VALUE OF THE NOTE:"U!V A$(2)"DISCOUNT RATE:"}!j A$(3)"NUMBER OF DAYS TO MATURITY:"!k A3:6000:TA(1):DA(2):NA(3)!t DD100!~ D1TDN360! "IF YOU PURCHASE A NOTE WORTH $"T:" "DUE IN "N" DAYS AT 1K:LL1+ S(100P(1I100)Y.5)100R "YEAR # "Y" SALVAGE VALUE IS $";S L10L0:24:7:"PRESS ANY KEY TO CONTINUE";:A$:8:1:958 S2ĂY  4110:2150  :3880: $ "#3 CALCULATE THE NET COST OF DISCOUNTED"!. 17:"PAPER" HD2ĂYR4110 \1970.f:3880:Wp" #2 CALCULATE THE SALVAGE VALUE"xz" OF AN ITEM":3880:A$(1)"ORIGINAL PRICE OF ITEM:"A$(2)"ITEM'S DEPRECIATION RATE:"A2:6000:PA(1):IA(2)K100 L0:YK1001A$(2)"PERCENT YOU WANT TO DEPRECIATE:"MA2:6000:PA(1):IA(2)Y II100hL0:Y1KrLL1 DPI(1I)(Y1)*"YEAR #"Y" DEPRECIATION IS: $";(D100.5)100>L10Ģ24:7:"PRESS ANY KEY TO CONTINUE";:A$:8:1:958:L0OR $"P:-"AND SOLD IT "Y" YEARS LATER":X"FOR $"T", THE ACTUAL DEPRECIATION":~"RATE IS ";(1000D.5)1000;"%"4110:1790:3880:" #1 AMOUNT DEPRECIATED WITHIN A YEAR":3880:A$(1)"ORIGINAL PRICE OF ITEM:" OF AN INVESTMENT"*&3880:R0A$(1)"ORIGINAL PRICE OF THE ITEM:"xDA$(2)"RESALE PRICE OF THE ITEM:"XA$(3)"ITEM'S LIFE IN YEARS:"YA3:6000:PA(1):TA(2):YA(3)blD100(1(TP)(1Y))"IF YOU PURCHASED THIS ITEM FVESTMENT IN YEARS:"6A3:6000:PA(1):TA(2):YA(3)<Bo"THE EFFECTIVE ANNUAL INTEREST RATE OF"u"YOUR INVESTMENT IS ";((TP)(1Y)1)100;" PERCENT."4110:1630:3880:" #9 ANNUAL DEPRECIATION RATE ST RATE"::"IS "I2" PERCENT.".T4110:1440<^:3880:r" #8 EFFECTIVE INTEREST RATE ON INVESTMENT"|3880:A$(1)"AMOUNT OF INITIAL INVESTMENT:"A$(2)"TOTAL VALUE AT MATURITY:"A$(3)"LIFE OF THE IN)"COMPOUNDING PERIODS EACH YEAR:"LA4:6000:PA(1):TA(2):YA(3):NA(4)mI2N((TP)(1(NY))1)100,"WHEN AN INVESTMENT OF $"P" IS":6"HELD FOR "Y" YEARS COMPOUNDING":@N" TIMES EACH YEAR, YIELDING $"T",":J"THE NOMINAL INTERE(Y$,1)"Y"ė:1210130,:3880:q" #7 NOMINAL INTEREST RATE":" ON INVESTMENTS"w3880:A$(1)"AMOUNT OF THE PRINCIPLE:"A$(2)"TOTAL OF INVESTMENT AT MATURITY:"A$(3)"YEARS UNTIL MATURITY:""A$(41I<II1001FPRNI(11((1IN)(NY)))dZ"A MINIMUM INVESTMENT OF $";(100P.5)100:d"MUST BE HELD AT AN INTEREST RATE OF "I1"%":n"PER YEAR, TO ALLOW "N" WITHDRAWLS":x"OF $"R" FOR A PERIOD OF "Y" YEARS."4110:1210ժժժժתժתժժժժժժժתժժժժժժժ?xCp>@pCpժתժժߪժ:.5)"#6 MINIMUM INVESTMENT FOR INCOME"4@3880:cA$(1)"WITHDRAWALS EACH YEAR:"A$(2)"AMOUNT OF EACH WITHDRAWAL:"A$(3)"NOMINAL INTEREST RATE:"(A$(4)"YEARS UNTIL WITHDRAWL:")A4:6000:NA(1):RA(2):IA(3):YA(4)2INA(2):YA(3):IA(4)jI1I+tIIN100?~PT(1I)(NY)z"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD":"OF "Y" YEARS AT AN INTEREST RATE OF "I1"%":"COMPOUNDED "N" TIMES EACH YEAR TO"::"YIELD $"T4110:1010:3880ENT REQUIRED TO"6" PROVIDE FUTURE VALUE":B3880:l$A$(1)"AMOUNT DESIRED AFTER Y YEARS:"8A$(2)"COMPOUNDING PERIODS EACH YEAR:"LA$(3)"NUMBER OF YEARS OF THIS INVESTMENT:"`A$(4)"NOMINAL INTEREST RATE:"aA4:6000:TA(1):RP(I((1I)(NY)1)I)F"YOU MAY WITHDRAW $";(R100.5)100Lo"FROM YOUR ACCOUNT "N" TIMES"u"EACH YEAR FOR "Y" YEARS WITHOUT""REDUCING YOUR INITIAL INVESTMENT.":4110:800:3880:" #5 INVESTMAR WITHDRAWALS FROM"7414)"AN INVESTMENT"::3880:a>A$(1)"AMOUNT OF INITIAL INVESTMENT:"RA$(2)"NOMINAL INVESTMENT RATE:"fA$(3)"WITHDRAWALS EACH YEAR:"zA$(4)"NUMBER OF YEARS:"{A4:6000:PA(1):IA(2):NA(3):YA(4)IIN100A$(4)"NUMBER OF YEARS :"EA4:6000:TA(1):IA(2):NA(3):YA(4)SIIN100mRTI((I1)(NY)1)"REGULAR DEPOSITS OF $";(R100.5)100;" FOR ":Y" YEARS(S) WILL YIELD $"T: 4110620 :3880:*5)"#4 REGUL100.5)100X:4110!b450/l:3880:{v" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOUNT":3880A$(1)"TOTAL VALUE AT MATURITY:"A$(2)"NOMINAL INTEREST RATE:"A$(3)"NUMBER OF DEPOSITS EACH YEAR:"A$(1)"AMOUNT OF REGULAR DEPOSIT:"FA$(2)"NOMINAL INTEREST RATE:"pA$(3)"NUMBER OF DEPOSITS EACH YEAR:"&A$(4)"NUMBER OF YEARS:"'A4:6000:RA(1):IA(2):NA(3):YA(4)0IIN100:TR((1I)(NY)1)ID N"FUTURE VALUE: $";(T)"NUMBER OF YEARS: "?A4:6000:PA(1):IA(2):NA(3):YA(4)MIIN100aTP(1I)(NY):"FUTURE VALUE: $";(T100.5)1004110:280:3880:" #2 FUTURE VALUE OF REGULAR DEPOSITS"15:"(ANNUITY)":3880#? MENU2Ĵ(Z$)1970,2150,2320,2510,2650,2810,3030,3260,3420M :3880:x "" #1 FUTURE VALUE OF AN INVESTMENT"~ , 63880 @A$(1)"INITIAL INVESTMENT: " TA$(2)"NOMINAL INTEREST RATE:" hA$(3)"COMPOUNDING PERIODS EACH YEAR:"|A$(4:11:"ENTER 'Q' TO QUIT":P 24:1:"ENTER SELECTION OR FOR MORE: ";X Z$w Z$" "MENU2MENU1:130 Z$" "MENU1MENU2:4050 Z$"Q"ė:40110 Z$"0"Z$"9"190 MENU1Ĵ(Z$)280,450,620,800,1010,1210,1440,1630,1790ROM AN INVESTMENT":"5. INVSTMT REQ'D TO PROVIDE FUTURE VALUE" "6. MINIMUM INVESTMENT FOR INCOME ":"7. NOMINAL INTEREST RATE ON INVESTMENTS.":"8. EFFECTIVE INTEREST RATE ON INVESTMENT":"9. ANNUAL DEPRECIATION RATE." 3880 :22 NUMBER ON THE":"KEYBOARD."( o:38802 x5000C MENU24050c 5100:16:"MENU ":3880i "1. FUTURE VALUE OF AN INVESTMENT.":> "2. FUTURE VALUE OF REGULAR DEPOSITS."::"3. FUTURE VALUE OF AN ANNUITY."::"4. REGULAR WITHDRAWLS FNING."::"INCLUDED ARE PROGRAMS WHICH EXAMINE":"INVESTMENTS, SAVINGS AND ANNUITIES," n"MORTGAGES AND LOANS, ALSO DEPRECIATION,":"AMORTIZATION SCHEDULES, AND MUCH MORE."::"SELECT A PROGRAM FROM THE MENU BY":"ENTERING THE APPROPRIATE/  40000MENU1"3980>(Z$(5),A$(6),A(6),M$(5)a25:9:"BANKING AND FINANCIAL"vF15:"UTILITIES"P3880Z:"THIS SERIES OF PROGRAMS IS DESIGNED TO"^ d"AID CONSUMERS AND BUSINESSES IN LONG":"OR SHORT RANGE FINANCIAL PLAN              1,CALORIE REQUIREMENTS1 1,CALORIE COUNTERE 1,FOOD VALUEST(A)3ĺ"EXEC";A$(A)) hER(222):20D  DATA FOR DESCRIPTIONK 2g  THE NUTRITION MONITOR  TO HELP KEEP YOUR BODY HEALTHY DATA FOR PROGRAM NAMES 1-APPLESOFT 2-BINARY 3-TEXT FILE  4  1,IDEAL BODY WEIGHT KEY TO CONTINUE.";:A$:8 #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; 6AN1QA2ĺ"RUN COPY" @AN2ĺ"RUN MENUQ" JT(A)1ĺ"RUN"A$(A) TT(A)2ĺ"BRUN";A$(A) ^T":VTV1(X):HT12.5:110D VTV1(X)2:HT15.4:A$"WHICH ONE?":110` A$:KB(A$):A$""240u KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN330 310 "::10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANYHT20((A$)2):110:[ N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110:i QA1210 A$(X)") BACK-UP PROGRAM DISK":VTV1(X):HT12.5:110:XX1:220 A$(X)") TWO BACK-UPS MADE":VTV1(X):HT12.5:110:XX1 A$(X)") QUI499:Q532:Q632:Q764 d150U nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2Aw xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY PUBLISHING 1985":110 :N:X1N:A$:VTV(X):F  360*"BLOAD MS2,A$4000"D(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8PX05:V1(X1)14.0(X1.2): ZQ7:Q17.7:Q21:Q3100:Q  :" ";:I.4NI421:I:3:" ";:37:" ";:IJ>N21:3:I337:" ";:IgHN1:1::I139:" ";:IRNI222:I:1:" ";:39:" ";:I\N23:1:I139:" ";:I:fNA$"WE STRONGLY SUGGEST THAT YOU"pN10:6zN20240 NA$"MAKE A BACKUP COP100:KB13330:936:12:14:"WRITING..."::ER(222):ER:10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"RUN MENU" fKBKB128:16368,0: :5l@:8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."A24:7:"PRESS TO CONTINUE.";B100:KB13320:936:12:14:"READING...":JK24:7:"PRESS TO CONTINUE.";.L0:TR,2:4358:(255)0200o :X04:320:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200: <330:DR,1:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: F320:(4);"RUN MENU,D1" c dKB(16384):KB128100MENU,D1"w 2320:DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 4330:49386,0:49385,0:255,0 6INIT:(255)0200 8DR,1:CMD,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)020D,2:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200 X04:DR,1:CMD,1:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200::DR,2:CMD,2:DH,143:XXTS(X)TE(X):TR,XX:4355:(255)0200:: ":(4)"RUN ";::".":24:7:"PRESS TO CONTINUE.";o 100:24:1:868:14:"WRITING";:49387,0:49385,0:255,0 INIT:(255)0200 DR,1:CMD,1:TR,0:DH,143:4355:(255)0200:TR,1:4355:(255)0200:TR,2:4358:(255)0200\ DR,2:CM347 :10:"ONE OR TWO DRIVES (1,2 OR 3 TO EXIT)? ";S A$:A(A$):A1A312_ A334f Ar A150 :8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."0 :" INSERT ";::"DUPLICATE";::" DISK IN DRIVE ";::"TWO 50043520(4);"BLOAD MENUC,D1"INIT4352:DR47082:VOL47083:TR47084:SC47085:BC47091:CMD47092:ER47093:DL47088:DH47089:BC,0:VOL,254:DL,0 TS(0)3:TE(0)9:TS(1)10:TE(1)16:TS(2)17:TE(2)23:TS(3)24:TE(3)30:TS(4)31:TE(4)   );"RUN MENU" :10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"RUN MENU" IN MENU"?";:RP$:RP$""ī629955;RP$"N"RP$"Y"ī62995G;RP$"N"5110;936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī63000;63000;:936:12:14::"LOADING....":<(4);"RU0:16368,0::F:8:24:"PRESS ANY KEY TO CONTINUE";:16368,0s:(16384)128Ģ24:6:868:16368,0::A(9)1įTA(150)50,5: 7160:@62995:JZ$:Z$"N"5110:TZ$"Y"8000:^62995;:12:"ARE YOU SURE YOU WANT TO QUIT,001,198,002,208,241,096":7100>91013,76:1014,0:1015,3:p9I1(POK$)41:IJ,((POK$,I43,3)):I:9:16336,0:JNāL1A(50):KA(6):X:X1:A(16336):D$(K);:L::9KA(6):X1:X:D$(K);:(16384)1287140:A(16336):7124,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248,230,104,134,003,134,001,133,000":71009J802:POK$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133MES, TO LOTTERIES AND SWEEPSTAKES! IF YOU SHOULD LOSE ALL YOUR MONEY YOUR IOU WILLBE ACCEPTED (AS LONG AS YOU PAY IT BACK WITH INTEREST). GOOD LUCK!":K07:"TO EXIT THE GAME AT ANY TIME TYPE":"CTRL-C.":6400770608J767:POK$"201,08:" THIS IS THE ";::"CASINO!"::::8:"YOU AND THE APPLE ARE IN CONTEST TO SEE WHO WILL BUILD HIS $100 BANKROLL INTO $1000 FIRST. MONEY IS MADE AND LOST";6"THROUGH A SERIES OF GAMES OF CHANCE - - "7"FROM HORSE RACING AND DICE GA:MA(5)10:M(IP)M(IP)MN:J1N:M(J)M(J)M:J:M$"WHAT A BONANZA! EVERYONE PAYS YOU "(M)" DOLLARS.":K0:63805l:MA(5)10:M(IP)M(IP)MN:J1N:M(J)M(J)M:J:M$"THIS OUGHT TO MAKE YOU MAD. GIVE EVERYBODY "(M)" DOLLARS.":K0:63806v"YOU HIT THE JACKPOT! COLLECT "(M)" DOLLARS.":K0:M(IP)M(IP)M:63804D:M(IP)M(IP)100:M$"PLEASE ACCEPT THIS $100 BONUS!":K0:63804N:M$"YOU JUST LOST THIS TURN!":K0:63804X:M$"PAY $100 TAX TO THE BANK!":M(IP)M(IP)100:K0:6380v5b(P2)2Pĺ"YOU WIN ";2M;" DOLLARS.":M(IP)M(IP)2M:6950i3"YOU LOSE ";M;" DOLLARS.":M(IP)M(IP)Mu3&7150:30:M10A(5)10:M(IP)M(IP)M:M$"WHY DON'T YOU SWEETEN THE POT BY GIVING THE BANK "(M)" DOLLARS.":K0:6380J4::MA(5)1050:M$VEN, YOU COLLECT TWICE YOUR BET.":"PRESS ANY KEY TO ROLL DICE."::N$(IP);", HOW MUCH WILL YOU BET ?";2IPNB$(A(4)5):69102B$:(B$)169002M(B$)10::22:M;" DOLLARS":71502X9:X114:JIP:7110:PK:X120:7110:PPK<35:14: A F E W -- YOU MUST PAY THE BANK TEN TIMES THE ROLL OF ONE DIE.":"PRESS ANY KEY TO ROLL DIE, ";N$(IP);".":7150:JIP:X116:X6:7110:MK10:M(IP)M(IP)M:6860g2:"E V E N S T E V E N -- YOU MAY BET UP TO $90 AND ROLL TWO DICE. IF THE TOTAL IS E100. FOR ANY OTHER TOTAL, YOU WIN $100TOUCH ANY KEY TO ROLL DICE, ";N$(IP);".":7150:JIP:X6:X11407110:MK:X120:7110:MMK0M7M100:M(IP)M(IP)M:67900M100:M(IP)M(IP)M05:12:"YOU LOSE ";M;" DOLLARS.":7150:1:"L O S E A F E W -- THE BANK WILL PAY YOU TEN TIMES THE ROLL OF ONE DICE":"PRESS ANY KEY TO ROLL DICE ";N$(IP);".":7150:JIP:X116:X6:7110:MK10:M(IP)M(IP)M:6790d0:"U N L U C K Y S E V E N -- ROLL TWO DICE. IF THE TOTAL IS SEVEN YOU LOSE $ C O M E E A S Y G O -- THE BANK WILL PAY YOU 10 TIMES THE ROLL OF 2 DICE. PRESS ANY KEY TO ROLL DICE,":N$(IP);".";:7150:JIP:X6:X114:7110:MK:X120:7110:M(MK)10:M(IP)M(IP)M.5:12:"YOU WIN ";M;" DOLLARS.".7150:/:"W I N A TIE...SO LET'S ALL PLAY ANOTHER HAND!":7150:1:6:958:HM0:6560d-T:K0:MA(5)1050{-^JA(N):JIP6750-hM$"SHOW THAT YOU ARE A GOOD NEIGHBOR AND GIVE "N$(J)" "(M)" DOLLARS."-rM(IP)M(IP)M:M(J)M(J)M:6380.|:"E A S Y D(J)HNHND(J),JD,P(I)P(I)HN:P(I)20ĺ"STRAIGHT!";:6680a,"HIGHEST ROLL = ";P(I);v,P(I)HMHMP(I)},"I,,K0:I1N:P(I)HMKK1:JI,6I,@K1Ė1:22:N$(J);" WINS THE POT OF $100":M(J)M(J)100:7150:L-J1:22:"WE HAVE+D(1)D(2)P(I)10D(1)8+D(1)D(3)P(I)10D(1)T+D(2)D(3)P(I)10D(2)r+P(I)0ĺ"A PAIR!";:6640+J13:(D(1)D(2)1D(1)D(3)2)(D(1)D(2)1D(1)D(3)2)P(I)20:6640+HND(1):D(1)D(2):D(2)D(3):D(3)HN:J,HND(1):J23: ANY KEY TO ROLL DICE.":7150:I1N:M(I)M(I)20:I:HM0*I1N:XI34:1:X:N$(I);:M13:X110M6:JI:7110:D(M)K:M:P(I)0:TI1350:TI:16:X:958:D(1);" ";D(2);" ";D(3);" ";+D(1)D(2)D(1)D(3)ĺ"THREE OF A KIND!";:P(I)30D(1):6680312:1:X:N$(J);:7110:D(J)K:X1X16:7110:D(J)D(J)K:25:X:"YOUR TOTAL IS ";D(J);:Je)64609*:"P O K E R P A R T Y -- EACH PLAYER PAYS $20 AND ROLLS THREE DICE. THE BEST POKER HAND (THREE OF A KIND > STRAIGHT >PAIR) WINS $100.":"PRESS(PK0:J1N:D(J)HNKK1%(ZJf(dK1Ė1:22:N$(HM);" WINS THE POT!":M(HM)M(HM)100:7150:(n1:22:"WE'VE GOT A TIE! THOSE HIGH ROLLERS WILL ROLL AGAIN!":7150:1:6:958(xJ1N:D(J)HND(J)0:J:6540[)X3J3:X1(J(J2)2)100 PRIZE. TO ROLL DICE, PRESS ANY KEY ON YOUR TURN.":7150'2J1N:M(J)M(J)20:X3J3:X1(J(J2)2)312:1:X:N$(J);:7110:D(J)K:X1X16:7110:D(J)D(J)K:25:X:"YOUR TOTAL IS ";D(J);:J'<HND(1):HM1:J2N:D(J)HNHND(J):HMJ(FJM$A2$N$(IP)", "M$A2$:J1(M$)38:T(J(J4)4)10200,5:1:8:(M$,J,40);:TI155:TI:J:M$""t&:7150& K25660&K36080&?'(:"H I G H R O L L E R -- EVERYONE ANTES $20 AND ROLLS TWO DICE. THE HIGHEST TOTAL TAKES THE $:6330%M$"PAY TO "1%JA(N1):JIP6350v%M$M$"EVERYONE":M(IP)M(IP)KNM:J1N:M(J)M(J)KM:J:6370%JN1M$M$"THE BANK":M(IP)M(IP)KM:6370%M$M$N$(J):M(IP)M(IP)KM:M(J)M(J)KM%M$M$" "(M)" DOLLARS."%h&70$t"HORSE NUMBER ";K;" ";=$~"WINS THIS RACE!":7150:$M$""::4:9::"THE FORTUNE TELLER SAYS:":K1:M10A(5)50$A(5)5M$"HOLD A SWEEPSTAKES.":K2:6380$A(5)5M$"HOLD A LOTTERY.":K3:6380%A(2)2M$"COLLECT FROM ":K1J);:M(J)M(J)20:J:5:18#B"H O R S E R A C E S !"#L1:22:"EVERYONE HAS BET $20,":"THE WINNER WILL RECEIVE $100.":7150#V#`I13:KA(6):D(K)D(K)1:D(K):K3:6180:D(K)35ĂI:6230$j1:22:958:KNĺN$(K);" ";:M(K)M(K)100:62"K"J9"7150:J1N:K03:L$(J,K)"":K:J:"$T250,3:" ";::" ";::R$;(8);(8);" /";::" ";::R$;(8);" <>";:T245,6".T255,3:(8);(8);"><";:#8:J16:2:J3:J;:11:D(J)11:6180:J3:39:".";:J:J1N:1:J3:N$(:J:J16:KA(6):J62:8:D$(K);:D(K)1:J:L!J1N:L$(J,0)""6160!K1(L$(J,0)):11J:14K6:L1550:L:D(((L$(J,K),1)))1D(((L$(J,K),1)))1M(J)M(J)50:"$50";:6140!"---";:T255,60:6150"T30102:TT,10:T255T,10:T :12:"L O T T E R Y"::"IF BOTH THE NUMBERS ON YOUR TICKET ARE AMONG THE SIX NUMBERS ROLLED, YOU WILL RECEIVE $50 FOR THAT TICKET.":"HERE WE GO . . ." J1N:1:11J:N$(J);:20:L$(J,1);:26:L$(J,2);:32:L$(J,3):J:71500!:J16:D(J)0)"$300 ON SPOT "S$(J):M(J)M(J)300:6060QS$(J)"YOU LOSE WITH SPOT "S$(J)z(S$(J))1S$(J)"MAYBE NEXT TIME!"J:1:17:958:X17:JIPN:1:X:N$(J);" - ";S$(J);:XX1:J:IP1āJ1IP1:1:X:N$(J);" - ";S$(J);:XX1:J7150:STRAIGHT!":6060z(S$(J)"G"(D(1)HND(3)HN))(S$(J)"H"(D(3)HND(5)HN))(S$(J)"I"(D(2)HND(4)HN))(S$(J)"J"(D(4)HND(6)HN))S$(J)"$150 FOR BET ON "S$(J):M(J)M(J)150:6060S$(J)"@"S$(J)"G"6050+K(S$(J))64:D(K)HNS$(J1N:S$(J)"P"5980\HK15:D(K)D(K1)S$(J)"$200 FOR A PAIR":M(J)M(J)200:K5:6060RK:S$(J)"SORRY, NO PAIRS!":6060\S$(J)"S"6010fK14:D(K)D(K1)1D(K)D(K2)2S$(J)"$450 FOR THE STRAIGHT":M(J)M(J)450:6060pS$(J)"NO N$(J);" - ";:XX1<B$:B$"@"B$"K"B$"P"B$"S"5910F 5890`K1N:B$S$(K)5890} K:B$;:S$(J)B$:J:HN1*7150::X810:1:X:868:X:X16:L15:D(X)A(6):X62:8:D$(D(X));:TI150:TI:L:D(X)HNHND(X)4X:>J YOUR BETS:";3JIPN:1:X:N$(J);" - ";:XX1BJN5830eB$(64A(11)):B$"K"B$"P"o5850B$:B$"@"B$"K"B$"P"B$"S"58505830K1N:B$S$(K)5800K:B$;:S$(J)B$:JIP1HN1:5930J1IP1:1:X:ATCH, YOU WIN $200. THE 3RD BET IS<>FOR A STRAIGHT IF 3 CONSECTIVE DICE APPEAR IN NUMERICAL ORDER, YOU WIN $450."~7150 1:17:958:30:"A-F $300":30:"G-J $150":32:"P $200":32:"S $450":I1N:M(I)M(I)10:S$(I)"":I:X17:24:10:"PLACE IF THE HIGH NUMBER APPEARS IN A,B,C,D,E OR F YOU WIN$300. LETTERS G,H,I AND J COVER TWO SPOTS. IF YOU BET G,YOU COVER SPOTS A"v"AND C AND CAN WIN $150."t7150:1:17:958:"ANOTHER BET IS <

> FOR PAIRS. IF TWO DICE NEXT TO ONE ANOTHER M0XB$"N"5780b1:17:958:"IN SWEEPSTAKES EVERYONE ANTES $10. EACHPLAYER BETS ON THE OUTCOME OF THE ROLL OF 6 DICE. THERE ARE THREE TYPES OF BETS.":7150l1:17:958:"ONE WAY IS TO BET ON WHERE THE HIGHEST NUMBER ROLLED WILL APPEAR.0W&12:X6:5650:11:"B";:23:"D";:35:"F":5650:11:" I J "01:14::"P=PAIR";:1:15:"S=STRAIGHT"::X16:X62:8:D$(X);:X:D1:17:"DO YOU NEED SWEEPSTAKES INSTRUCTIONS ?";NB$SB$"Y"B$"N"ī570O ----O O":D$(6)"O O----O O----O O"dI16:X4117:D$(I)(D$(I),X1)R$(D$(I),X4):X:I:5X:" ";:17X:" ";:29X:" ":X0::9:"S W E E P S T A K E S !"::5::" G H ":5650:5:"A";:17:"C";::29:"E":565 O R T U N E !,SWEEPSTAKES!,HIGH ROLLER,JACKPOT,LOTTERY,HORSE RACE,MAD MONEY,F O R T U N E !,LOTTERYR$(10)(8)(8)(8):D$(1)" ---- 0 ---- ":D$(2)" 0---- ----0 "D$(3)" O---- O ----O ":D$(4)"O O---- ----O O"$D$(5)"O O---- ,UNLUCKY SEVEN,LOSE A FEW EVEN STEVEN,SWEEPSTAKES!,DAILY DOUBLE,POT LUCK,HIGH ROLLER,POKER PARTY,LOTTERY,F O R T U N E !,JACKPOT,$100 BONUS,OFF TO THE RACES,SWEEPSTAKES!,LOSE THIS TURNd LOTTERY,F O R T U N E !,TAX TIME,BONANZA,LOSE THIS TURN,FX11830,20X19X2!ITI1300:TI:GNY2(Y116)3:I15:Y1:Y::" ";:T1012010:TT,5:T::Y1:" ";:T1101010:TT,5:T:I POKER PARTY,F O R T U N E !, SWEEPSTAKES!,LOVE A NEIGHBOR,EASY COME EZ GO,WIN A FEW, SWEEPSTAKES!1(A(2)1)192)rIPNA(30)2555308|IPN5520[(16384)128Ĺ16368,0:5530t:Y1:Y:" ";:5480JJ100:I15A(4):J1JJ:J:JJJJ100:Y1:Y::" ";:YX:Y1X1::X1:X:" ";:TX2X11840,20:X1X119:X122X12:XX1 TX219:A$:4:X:A$;:23:A$:A$;:X^16368,0:X12:X2:1:22:N$(IP);",":N$(IP)"APPLE"ĺ" PRESS ANY KEY FOR YOUR SELECTION":5480c"PLEASE WAIT WHILE I SELECT!"hYX:Y1X1::X1:X:" ";:TX2(X113)10X2(X113)2:TT,6:T:XA(18)1:X(6)):T1$T$5400<"T$T$"-"T1$:I1N:L$(I,0)""5440a,J1(L$(I,0)):T$L$(I,J)5400h6J@I:"YOU RECEIVE TICKET NUMBER ";T$:J120:A(16336):J:J:::A2$:J118:" ";:3:" ";:20:" ";:22:" ";:39:" ":J:A2$:!TX21N:M(J)HMKK1JHK1ĺ"SINCE THERE'S A TIE, KEEP GOING";:}:N$(HN);" WINS THIS GAME WITH":HM;" DOLLARS!"T1100:TT,5:T255T,5:T"WOULD YOU LIKE TO PLAY AGAIN ?";B$:B$"Y"Ĭ62995T$(48A(5)):T1$(48A20,6870,6880,5660,6200,6960,6440,6550,6080,6280,6970,6980,6200,5660,6990,6080,6280,7000,7010,6990,6280,5660,6440,6970,6080,6200,7020,6280,6080IPIP1:IPN51105100HMM(1):HN1:J2N:M(J)HMHMM(J):HNJJHM1000ıK0:J)))T$:M(IP)M(IP)10:TI11000:TI:51102 UB$C ZB$"N"5240T dB$"Y"5230^ i5110 n"OK":5400:L$(IP,0)L$(IP,0)"X":L$(IP,(L$(IP,0)))T$:M(IP)M(IP)10:TI11000:TI:5110 x7150 5450GN6550,6280,5660,6740,6780,6810,5660,68B:M(IP)M(IP)110PB:"YOU CAN PAY BACK ";PB;" IOU NOTE(S) AT":"110 DOLLARS EACH.":TI12000:TI:5110 <L$(IP,0)"XXX"5240 F"WOULD YOU LIKE TO BUY A LOTTERY TICKET FOR $10 "; KIPN5205* P"OK":5400:L$(IP,0)L$(IP,0)"X":L$(IP,(L$(IP,0(IP)IO(IP)1:M(IP)M(IP)100:M(IP)05130 "YOU MUST BORROW MONEY TO CONTINUE TO PLAY AND PAY IT BACK TO THE BANK ... PLUS INTEREST!":TI12000:TI:5110 IO(IP)0M(IP)1105180 (PB(M(IP)110):PBOI(IP)PBIO(IP)h 2IO(IP)IO(IP)PB$"Y"İ7030' B$"Y"B$"N"ī50903 IP1N ::"PRESENT BANKROLLS IOU'S ";::"----------------------------------------";:J1N:N$(J);:20:M(J);:35:IO(J):J:5290 ::"IT IS ";N$(IP);"'S TURN.":M(IP)05150+ IOB$:N(B$):N1N45060" B$- I1N 6:868:"WHO IS PLAYER #";I;", 6 LETTERS MAX ";:N$(I):(N$(I))6:7:1:868:5::5080 M(I)100:IO(I)0:LO$(I,0)"":I:N$(I)"APPLE":M(I)100:IO(I)0:NN1:"DO YOU NEED INSTRUCTIONS ?"; B$: 4 GAMBLER PROGRAM/A(X)((1)X1)_:14:"WELCOME TO"::14::"THE CASINO":j28000N$(6),M(6),D(6),IO(6),LO$(6,3),L$(5,3)A2$" ":5610:7070:"HOW MANY PLAYERS (UP TO 4) ? ";                   z#p???     ՠΠŠӠƠɠ!ŠϠ6ՠ Ӳ)Ѡ̠Ҡ2ԠŠ"ŠΠà16336) 8OIBOVO55%VOY OF THIS"N12:7 N202402NA$"DISKETTE">N14:15IN20240mNA$"PRESS ANY KEY TO CONTINUE."xN19:8N20240N19:35NA$NN - SUBROUTINE TO PRINT TEXT WITH CLICKS.OOOI1(A$)$O(A$,I,1);.OX(  THE FINANCIAL PLANNERI  TO HELP YOU MAKE FINANCIAL DECISIONSe DATA FOR PROGRAM NAMESv 1-APPLESOFT 2-BINARY 3-TEXT FILE  1  1,FINANCIAL PLANNER  1,THE CASINO 1,RUSTY NAIL N936 *N3:3::I337(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK";F 6_ @AN1ĺ"RUN MENUQ"} A::12:14:"LOADING..." JT(A)1ĺ"RUN"A$(A) TT(A)2ĺ"BRUN";A$(A) ^T(A)3ĺ"EXEC";A$(A) hER(222):20 | DATA FOR DESCRIPTION 2A$):A$""240# KB1KBN1240S VTV1(X)2:HT25.5:A$(KB):110::AKB::a AN321j 310 "::10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANY KEY TO CONTINUE.";:A$: #:12:13:"FORMATTING..."@ )(4)"INIT HELLO,D1":ISHING 1985":110D :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") QUIT":VTV1(X):HT12.5:110 VTV1(X)2:HT15.4:A$"WHICH ONE?":110 A$:KB(1)14.0(X1.2):E ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764N d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY PUBL 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<FV(1)10.6:V(2)11.8 PX05:V1(X     ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               ЀР@A@ ԠЪРЀЀЀРЀЀЀՂԪЀРՀԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀРՀРтՀЊЀРԪЀՂРՀԂЀР* @A@AЀРՀ  120<:IA:230,32:16300,0:16297,0:16302,0:16304,0iF"BLOAD QUIT TITLE,A$2000"qZA$d::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"n110x60 TARGETA0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* ՂՂШЂЀ          0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* ՂՂШЂЀ          ЀЪ0ժՂЀЀЂՀՊЀdD@dOHLqՀ`ЀЪժՂЀЀЂ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ЀЪԪժժժժժժժժժժժժժժժՀժՂЀЀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@ժЪՂЀ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ          RP(I((1I)(NY)1)I)F"YOU MAY WITHDRAW $";(R100.5)100Lo"FROM YOUR ACCOUNT "N" TIMES"u"EACH YEAR FOR "Y" YEARS WITHOUT""REDUCING YOUR INITIAL INVESTMENT.":4110:800:3880:" #5 INVESTMAR WITHDRAWALS FROM"7414)"AN INVESTMENT"::3880:a>A$(1)"AMOUNT OF INITIAL INVESTMENT:"RA$(2)"NOMINAL INVESTMENT RATE:"fA$(3)"WITHDRAWALS EACH YEAR:"zA$(4)"NUMBER OF YEARS:"{A4:6000:PA(1):IA(2):NA(3):YA(4)IIN100A$(4)"NUMBER OF YEARS :"EA4:6000:TA(1):IA(2):NA(3):YA(4)SIIN100mRTI((I1)(NY)1)"REGULAR DEPOSITS OF $";(R100.5)100;" FOR ":Y" YEARS(S) WILL YIELD $"T: 4110620 :3880:*5)"#4 REGUL100.5)100X:4110!b450/l:3880:{v" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOUNT":3880A$(1)"TOTAL VALUE AT MATURITY:"A$(2)"NOMINAL INTEREST RATE:"A$(3)"NUMBER OF DEPOSITS EACH YEAR:"A$(1)"AMOUNT OF REGULAR DEPOSIT:"FA$(2)"NOMINAL INTEREST RATE:"pA$(3)"NUMBER OF DEPOSITS EACH YEAR:"&A$(4)"NUMBER OF YEARS:"'A4:6000:RA(1):IA(2):NA(3):YA(4)0IIN100:TR((1I)(NY)1)ID N"FUTURE VALUE: $";(T)"NUMBER OF YEARS: "?A4:6000:PA(1):IA(2):NA(3):YA(4)MIIN100aTP(1I)(NY):"FUTURE VALUE: $";(T100.5)1004110:280:3880:" #2 FUTURE VALUE OF REGULAR DEPOSITS"15:"(ANNUITY)":3880#? MENU2Ĵ(Z$)1970,2150,2320,2510,2650,2810,3030,3260,3420M :3880:x "" #1 FUTURE VALUE OF AN INVESTMENT"~ , 63880 @A$(1)"INITIAL INVESTMENT: " TA$(2)"NOMINAL INTEREST RATE:" hA$(3)"COMPOUNDING PERIODS EACH YEAR:"|A$(4:11:"ENTER 'Q' TO QUIT":P 24:1:"ENTER SELECTION OR FOR MORE: ";X Z$w Z$" "MENU2MENU1:130 Z$" "MENU1MENU2:4050 Z$"Q"ė:40110 Z$"0"Z$"9"190 MENU1Ĵ(Z$)280,450,620,800,1010,1210,1440,1630,1790ROM AN INVESTMENT":"5. INVSTMT REQ'D TO PROVIDE FUTURE VALUE" "6. MINIMUM INVESTMENT FOR INCOME ":"7. NOMINAL INTEREST RATE ON INVESTMENTS.":"8. EFFECTIVE INTEREST RATE ON INVESTMENT":"9. ANNUAL DEPRECIATION RATE." 3880 :22 NUMBER ON THE":"KEYBOARD."( o:38802 x5000C MENU24050c 5100:16:"MENU ":3880i "1. FUTURE VALUE OF AN INVESTMENT.":> "2. FUTURE VALUE OF REGULAR DEPOSITS."::"3. FUTURE VALUE OF AN ANNUITY."::"4. REGULAR WITHDRAWLS FNING."::"INCLUDED ARE PROGRAMS WHICH EXAMINE":"INVESTMENTS, SAVINGS AND ANNUITIES," n"MORTGAGES AND LOANS, ALSO DEPRECIATION,":"AMORTIZATION SCHEDULES, AND MUCH MORE."::"SELECT A PROGRAM FROM THE MENU BY":"ENTERING THE APPROPRIATE.  40000MENU1"3980>(Z$(5),A$(6),A(6),M$(5)a25:9:"BANKING AND FINANCIAL"vF15:"UTILITIES"P3880Z:"THIS SERIES OF PROGRAMS IS DESIGNED TO"^ d"AID CONSUMERS AND BUSINESSES IN LONG":"OR SHORT RANGE FINANCIAL PLAN                 `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L :!8 3880:!B :!L A$(1)"FUTURE VALUE OF THE NOTE:"U!V A$(2)"DISCOUNT RATE:"}!j A$(3)"NUMBER OF DAYS TO MATURITY:"!k A3:6000:TA(1):DA(2):NA(3)!t DD100!~ D1TDN360! "IF YOU PURCHASE A NOTE WORTH $"T:" "DUE IN "N" DAYS AT 1K:LL1+ S(100P(1I100)Y.5)100R "YEAR # "Y" SALVAGE VALUE IS $";S L10L0:24:7:"PRESS ANY KEY TO CONTINUE";:A$:8:1:958 S2ĂY  4110:2150  :3880: $ "#3 CALCULATE THE NET COST OF DISCOUNTED"!. 17:"PAPER" HD2ĂYR4110 \1970.f:3880:Wp" #2 CALCULATE THE SALVAGE VALUE"xz" OF AN ITEM":3880:A$(1)"ORIGINAL PRICE OF ITEM:"A$(2)"ITEM'S DEPRECIATION RATE:"A2:6000:PA(1):IA(2)K100 L0:YK1001A$(2)"PERCENT YOU WANT TO DEPRECIATE:"MA2:6000:PA(1):IA(2)Y II100hL0:Y1KrLL1 DPI(1I)(Y1)*"YEAR #"Y" DEPRECIATION IS: $";(D100.5)100>L10Ģ24:7:"PRESS ANY KEY TO CONTINUE";:A$:8:1:958:L0OR $"P:-"AND SOLD IT "Y" YEARS LATER":X"FOR $"T", THE ACTUAL DEPRECIATION":~"RATE IS ";(1000D.5)1000;"%"4110:1790:3880:" #1 AMOUNT DEPRECIATED WITHIN A YEAR":3880:A$(1)"ORIGINAL PRICE OF ITEM:" OF AN INVESTMENT"*&3880:R0A$(1)"ORIGINAL PRICE OF THE ITEM:"xDA$(2)"RESALE PRICE OF THE ITEM:"XA$(3)"ITEM'S LIFE IN YEARS:"YA3:6000:PA(1):TA(2):YA(3)blD100(1(TP)(1Y))"IF YOU PURCHASED THIS ITEM FVESTMENT IN YEARS:"6A3:6000:PA(1):TA(2):YA(3)<Bo"THE EFFECTIVE ANNUAL INTEREST RATE OF"u"YOUR INVESTMENT IS ";((TP)(1Y)1)100;" PERCENT."4110:1630:3880:" #9 ANNUAL DEPRECIATION RATE ST RATE"::"IS "I2" PERCENT.".T4110:1440<^:3880:r" #8 EFFECTIVE INTEREST RATE ON INVESTMENT"|3880:A$(1)"AMOUNT OF INITIAL INVESTMENT:"A$(2)"TOTAL VALUE AT MATURITY:"A$(3)"LIFE OF THE IN)"COMPOUNDING PERIODS EACH YEAR:"LA4:6000:PA(1):TA(2):YA(3):NA(4)mI2N((TP)(1(NY))1)100,"WHEN AN INVESTMENT OF $"P" IS":6"HELD FOR "Y" YEARS COMPOUNDING":@N" TIMES EACH YEAR, YIELDING $"T",":J"THE NOMINAL INTERE(Y$,1)"Y"ė:1210130,:3880:q" #7 NOMINAL INTEREST RATE":" ON INVESTMENTS"w3880:A$(1)"AMOUNT OF THE PRINCIPLE:"A$(2)"TOTAL OF INVESTMENT AT MATURITY:"A$(3)"YEARS UNTIL MATURITY:""A$(41I<II1001FPRNI(11((1IN)(NY)))dZ"A MINIMUM INVESTMENT OF $";(100P.5)100:d"MUST BE HELD AT AN INTEREST RATE OF "I1"%":n"PER YEAR, TO ALLOW "N" WITHDRAWLS":x"OF $"R" FOR A PERIOD OF "Y" YEARS."4110:1210:.5)"#6 MINIMUM INVESTMENT FOR INCOME"4@3880:cA$(1)"WITHDRAWALS EACH YEAR:"A$(2)"AMOUNT OF EACH WITHDRAWAL:"A$(3)"NOMINAL INTEREST RATE:"(A$(4)"YEARS UNTIL WITHDRAWL:")A4:6000:NA(1):RA(2):IA(3):YA(4)2INA(2):YA(3):IA(4)jI1I+tIIN100?~PT(1I)(NY)z"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD":"OF "Y" YEARS AT AN INTEREST RATE OF "I1"%":"COMPOUNDED "N" TIMES EACH YEAR TO"::"YIELD $"T4110:1010:3880ENT REQUIRED TO"6" PROVIDE FUTURE VALUE":B3880:l$A$(1)"AMOUNT DESIRED AFTER Y YEARS:"8A$(2)"COMPOUNDING PERIODS EACH YEAR:"LA$(3)"NUMBER OF YEARS OF THIS INVESTMENT:"`A$(4)"NOMINAL INTEREST RATE:"aA4:6000:TA(1):΍ЍΠՍALUE OF AN ITEM. ":"3. COMPUTE NET COST OF DISCOUNTED PAPER.":"4. PRINCIPLE ON A LOAN."::"5. REGULAR PAYMENT ON A LOAN."1:"6. LAST PAYMENT ON A LOAN."::"7. REMAINING BALANCE ON A LOAN."::"8. THE TERM OF A LOAN.":2"9. MORTGAGE AMORTIZ" -";:4340:"-";(34)"0n30000(0.0M010:": :"l010:" FINANCIAL PLANNER "010:": :"0005100:16:"MENU ":3880:1"1. AMOUNT DEPRECIATED WITHIN A YEAR. ":"2. COMPUTE SALVAGE VBR3700/CC1"/DBI100H/"LAST PAYMENT WAS...";(D)100BX/4110:3420b/5000j/A$p/x/ F0/"PMT INTEREST PRINCIPLE BALANCE"/3760/(:I138:" ";:I:" "::/ZI116::I:0d"000 ?";(34);:4340:INCIPLE BALANCE"2.tCC1:LBI:PRL:BBPb.~CC100.5:LL100.5:PP100.5:BB100.5.C(C)100:L(L)100:P(P)100:B(B)100.C10ĺC;" ";.C100C9ĺC;" ";.C1000C99ĺC;" ";.L,P,B.FF1.F203820 / A$(3)"NUMBER OF YEARS:"&- JJ100N-NN12:IJ12:B1I:RAI(11BN)]-RR100.5l-R(R)100-$"AMOUNT PER PAYMENT = $";R-.Q(RNA)100.5-8Q(Q)100-B"TOTAL INTEREST = ";Q-L5000-VA$-`:BA.j"PMT INTEREST PR,\ :3880:9,f " THE MORTGAGE AMORTIZATION TABLE"?,p g,z " COMPUTE INTEREST PAYMENTS"m, y, 3880:, " PLEASE USE DECIMAL POINTS.", 3880:, C0, A$(1)"AMOUNT OF LOAN:", A$(2)"AMOUNT OF INTEREST IN PERCENT:"-F EACH REGULAR PAYMENT:">+ A$(4)"AMOUNT OF LOAN PRINCIPLE:"h+! A4:6000:NA(1):IA(2):RA(3):PA(4)n+* +4 Y((1(P(I100))(NR))((1I100N)N))+> "A TERM OF "(Y10.5)10" YEARS WILL SATISFY":+C "THIS LOAN SCHEDULE.",R 4110:3260 ARI1* BOBOA* J1P* :"THE REMAINING BALANCE IS $";(BO100.5)100`* 4110:3030n* :3880:* 8)"#8 THE TERM OF A LOAN"* * 3880:* A$(1)"NUMBER OF PAYMENTS EACH YEAR:"* A$(2)"ANNUAL INTEREST RATE:"+ A$(3)"AMOUNT O): A$(4)"AMOUNT OF LOAN PRINCIPLE:"M)O A$(5)"WHAT YEAR OF THE LOAN IS IT:"{)X A$(6)"HOW MANY PAYMENTS MADE THIS YEAR:")Y A6:6000:NA(1):IA(2):RA(3):PA(4):YA(5):N1A(6))b II100)l BOP)v J11N(Y1)N1) I1((BOIN)100.5)100* FOR THIS LOAN,":8( "WILL BE $";((RBO)100.5)100H( 4110:2810V( :3880:( " #7 REMAINING BALANCE ON A LOAN"( ( 3880:( A$(1)"PAYMENTS MADE EACH YEAR:"( A$(2)"ANNUAL INTEREST RATE:"(& A$(3)"AMOUNT OF EACH PAYMENT:"$AR PAYMENT:"1'^ A$(4)"PAYMENTS MADE EACH YEAR:"W'r A$(5)"AMOUNT OF LOAN PRINCIPLE:"'s A5:6000:YA(1):IA(2):RA(3):NA(4):PA(5)'| I1I:II100:BOP' J11NY' I2((BOIN)100.5)100' ARI2' BOBOA' J1( "THE LAST PAYMENTRIOD OF "Y" YEARS AT AN":C& "INTEREST RATE OF "I1"% PER ANNUM."S& 4110:2650a& :3880:& 8)"#6 LAST PAYMENT ON A LOAN"& & 3880:&" A$(1)"LIFE OF THE LOAN IN YEARS:"&6 A$(2)"ANNUAL INTEREST RATE:" 'J A$(3)"AMOUNT OF EACH REGUL AMOUNT:"3% A4:6000:YA(1):IA(2):NA(3):PA(4)e% ::R((I100)PN)(11((I100)N1)(NY))n% I1I% "REGULAR PAYMENTS OF $"(R100.5)100",":% "MADE "N" TIMES EACH YEAR ARE":% "REQUIRED TO SATISFY A LOAN OF":& "$"P" FOR A PEOAN IS $";(P100.5)100)$P 4110:25107$Z :3880:_$d " #5 REGULAR PAYMENT ON A LOAN"e$n q$x 3880:$ A$(1)"LIFE OF THE LOAN IN YEARS:"$ A$(2)"ANNUAL INTEREST RATE:"$ A$(3)"NUMBER OF PAYMENTS MADE YEARLY:" % A$(4)"LOAN PRINCIPLEAYMENTS MADE YEARLY:"9# A$(2)"AMOUNT OF EACH PAYMENT:"c# A$(3)"ANNUAL INTEREST RATE ON LOAN:"#2 A$(4)"LIFE OF THE LOAN IN YEARS:"#3 A4:6000:NA(1):RA(2):IA(3):YA(4)#< PRN(11((I100)N1)(NY))(I100)$F :"THE PRINCIPLE ON THIS LA":." "DISCOUNT RATE OF ";D100;"%, THE":^" "DISCOUNT AMOUNT WILL BE $"(D1100)100:" "AND THE COST WILL BE $"(((TD1)100))100" ."" 4110:2320" :3880:" 5)" #4 PRINCIPLE ON A LOAN"" " 3880:# A$(1)"NUMBER OF POW MANY COPIES DO YOU WANT?";MM0(4);"PR#1"=E$(27)JG$(35)WU$(36)eL$(124)qT$(9)GG$;D$;"PR#1"(14);:E$;(69);:18)"WEEKLY SCHEDULE"" FOR THE WEEK ";DT$;" THRU ";EDT$ (15)(10); E$;65540XCB6:B6CB6DbBB$(A);" AT ";C;:B6ĺ" PM ":5750Jl_v" XXXXXXXXXXXX"lA$(A,B)(A$(A,B))12ĺ"MUST BE LESS THAN 13 CHARACTERS":573055406390" DO YOU WANT A PRINTED COPY?";AD$:AD$"N"6520" H6I4:10:EA;18);E;0I6ĺ21);"PM";C24);A$(A,I);I_4:3::"TYPE":e13:4::"FOR"::21:"PRESS TO RETURN TO THE MENU"&BE$:BE$""53800B(BE$):B7BB6:5710DB6BB6NB1B1h[r"TYPE THE NUMBER OF YOUR CHOICE PRESS TO RETURN TO THE SUMMARY"q|AA$:AA$""5200~A(AA$)A9İ63000A85790A0520065103:18::BB$(A):I116EI6:I6EI6EAE:I12EAI"FRIDAY","SATURDAY","SUNDAY"&6510,C::4)"1-MONDAY"Z":4);"2-TUESDAY"r,:4)"3-WEDNESDAY"6:4)"4-THURSDAY"@:4)"5-FRIDAY"J:4)"6-SATURDAY"T:4)"7-SUNDAY"^:4)"8-FINISH"c:4)"9-QUIT THE PROGRAM");2);x:$I139:"=";::0I116EI7VI6:5290TI6VI6hV;:V10ĺ1);sJ17J1ĺ2);(A$(J,I),3);:"PRESS FOR MENU":AN$ "MONDAY","TUESDAY","WEDNESDAY","THURSDAY",?";Z$:5380,:6510:8:4:"READING ";Z$>D$;"OPEN";Z$P D$;"READ";Z$[I17gJ116(A$(I,J): DAY,WEEK2(A$(I,J))1A$(I,J)" ": FILL SPACES<:FD$;"CLOSE";Z$P:6510Z:2);dI17n(BB$(I),3 SCHEDULE FILE ?":AB$::AB$"Y"Ą"WHAT IS THE NAME OF YOUR SCHEDULE FILE?";Z$:5110rAB$"N"AB$"Y"ī5080:"WOULD YOU LIKE TO SAVE THE SCHEDULE?"::AC$:AC$"Y"AC$"N"ī5090:AC$"N"F1:5380 " WHAT WOULD YOU LIKE TO CALL YOUR FILE8ī280;"DT$""DT$" ":EDT$""EDT$" "a EDITED AND FIXED BY JAKE SCOTToGG$(13){D$(4)A$(8,20)I17BB$(I)IUW$"WEEKLY SCHEDULE":6510:7:"DO YOU WANT TO USE A PREVIOUSLY CREATED " 756 :10l " THIS PROGRAM WORKS ON A MONDAY THRU":"SUNDAY BASIS. PLEASE ENTER MONDAYS DATE" 12:"IN THE FORM MM/DD/YY":12:13:"";DT$ (DT$)8ī270 13:"NOW THE FOLLOWING SUNDAYS DATE MM/DD/YY":13:32:"";EDT$(EDT$):" TO DISK OCCURS WITHIN THE PROGRAM AS ":"SOON AS YOU TELL PROGRAM YOUR FINISHED " " ADDING DATA TO YOUR WEEK!!! ": : " YOU ARE NOW READY TO ENTER YOUR FIRST":"SCHEDULE. INSERT YOUR DATA DISK AND HIT":" ANY KEY.130M30000,6֜"ERROR #"E" AT LINE "E1:665000?6ꜫ1300S6œA$"N"130^6̜30000}6֜"ERROR #"E" AT LINE "E1:650006ꜫ1300u(4)"RUN MENU"6@6JE(222)6TE1(218)(219)2566E25540150712:1:"DO YOU REALLY WA:"LOADING...."#5vu(4)"RUN MENU")5@65JE(222)O5TE1(218)(219)256a5E25540150512:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$5A$"N"A$"Y"401105œA$"N"1305̜300005֜"ERROR #"E" AT LINE "E1:550006ꜫ\NRRLN2002004fNRRRR1:ZZ$;:GOOD$GOOD$ZZ$;4pN20020I4zNV1:1:\4NRR1GOOD$""z4NRR1GOOD$(GOOD$,RR1)4NRRRR14NV:HT:868:GOOD$;4N2002040u:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::50004Xu300305lu12:141:A$(I);:VI26:HT(A$(I))2:LN38(A$(I)):LA46:HA57:20000:A(I)(GOOD$):GOOD$""ġ::130j3Iz38:1:95833 NV:HT:GOOD$""3*NRR034NZZ$3>N(ZZ$)13200903HN(ZZ$)8RR0201003RN((ZZ$)LA(ZZ$)HA)ZZ$","200204ATION TABLE.":23880"2190-230000_224:" CARE TO RUN THIS ENTRY AGAIN (Y/N)? ";g2Y$u2Y$"Y"ı2Y$"N"41152"::130224:7:"PRESS ANY KEY TO CONTINUE";:A$::2I4202:I:1:868::1:1:2pI1Ac3zI26:ī5080a:9:"ARE YOU SURE THAT YOU WANT TO QUIT??":AB$:AB$"N"AB$"Y"ī63000:AB$"N"ıtAB$"N"ī5190:(4);"RUN MENU")GG$;D$;"OPEN";Z$& D$;"DELETE";Z$8D$;"OPEN";Z$KD$;"WRITE";Z$V(I17b2J116o<A$(I,J)wF:PD$;"CLOSE";Z$Z:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::dn:L20((W$)2):L::W$::xAB$"N"E$;G$;vT$;L$;wJ17*xI1146y(95);=zID{ Q|(124);X}Ji~MX130::qMUE$;(65);E$;(78);E$;(34)(13)D$;"PR#0"6520I18T$;E$;G$;L$;E$;U$;IF1ı K116E$;G$;%T$;L$;0J17<I114H(95);OIUb(124);iJtE$;U$~6330$K7ĺ12)K6;.K6ĺ12)K6;8I18BT$;E$;G$;L$;E$;U$;1);A$(I,K);LIV`6330j6330tKuNT TO QUIT NOW (Y/N)? ";:A$77A$"N"A$"Y"40110G7œA$"N"130R7̜30000q7֜"ERROR #"E" AT LINE "E1:{750007ꜫ1300"N"A$"Y"401107œA$"N"1307̜300007֜"ERROR #"E" AT LINE "E1:750007ꜫ130M(N$(Z);"'S BALL IS PARTLY COVERED":UN$(Z);"'S BALL IS COMPLETELY COVERED":wN$(Z);"'S BALL IS BURIED.":N$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":"KERSPLASH" N$(Z);"'S BALL IS IN THE DRINK.":"ONE STROKSA(Z)890,900,910,920,930,940,950,960,970PzN$(Z);"'S BALL IS SITTING HIGH":wN$(Z);"'S BALL IS SITTING LOW ":N$(Z);"'S BALL IS SITTING VERY LOW":N$(Z);"'S BALL IS LOW, NEAR THE LIP":N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:U "IT'S RAINING LIGHTLY":WG1:WI(1)1:k*WI0ĺ"CALM"::4WI1ĺ"LIGHT";:>WI2ĺ"MODERATE";:H"STRONG";:RWI7(1)2:WI1WI0\WI3WI3fWI(WI):)p34,20:SA(Z)9(1)1:T":WI(1)WI:WI(2)WI:W850:"THE WIND IS ";:810:" FROM THE SOUTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI: 850:"THE WIND IS ";:810:" FROM THE WEST.":WI(1)WI:)850:"THE WIND IS ";:810:0,800C850:"THE WIND IS ";:810:" FROM THE NORTH.":WI(2)WI:850:"THE WIND IS ";:810:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:850:"THE WIND IS ";:810:" FROM THE EAST.":WI(1)WI:850:"THE WIND IS ";:810:" FROM THE SOUTHEASQ3(1)*RO(Z)0:DI(DIQ)(10SC):DI(2DI3)IDI:700lWO1I(8(2CL))IX(Z)DI1:700WO0I(7CL)IDI:700J12:"":N014:Q(16336)::::APY:1630WG0:WI(1)0:WI(2)0:WI720,730,740,750,760,770,780,79C7CC(2(1))!0CL7ID15^:DI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))pDHC(Z)5B1NDIDI(CB)XWG0(CL5WO0)DIDIWGbSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))lSA(Z)0vQ0:RO(Z)2Q5(1) RO(Z)045AN(Z)136IDIDWI(1):DWDWWI(1)WAN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2)AN(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)AN(Z)315IDIDWI(2):DWDWWI(2)&C((HC(Z)1)2)(1):C3(4WI(1))-AN180AN225ANAN(4WI(1))QAN225AN315ANAN(4WI(2))mAN315ANAN(4WI(1))AN45ANAN(4WI(1))AN(Z)AN:DI0:ID15:DW19:B2(1):B1B1B1B1AN(Z)45IDIDWI(2):DWDWWI(2)$AN(Z) TANAN(20B(1)):370/ ^C.39C1.6370e hANAN(10(1)B):C(1):C.99ANAN(10(1)B) rC0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L2400 |ANAN(CB) CL7460 AN45AN136ANAN(4WI(2)) AN136AN180ANAN6:R5ı= R4(1)31:I039:B(1):B.33RR1:R0R0Y B.66RR1:R39R39s R,I)12Ġ2:R,I::{ : B1:C2(1):C1B1 "HC(Z)10350 ,HC(Z)18330 6C.5C1.5370 @ANAN(HC(Z)(1)B):370 JC.89C1370),W%(2))12W%(1)31W%(2)33180G A2(1)5:B2(1)5:C3(1)6 2:W%(1)1,W%(1)AW%(2):W%(1)1,W%(1)AW%(2)B1:X1B:W%(1),W%(1)CW%(2)X:X: I(G%1)(4(1)):J(X%4)(5(1)):I,J)4210 15:I,J:H(1)I:H(2)J R(1)150 C:I:! B%,A:C:I: PL2:C(1)1:D(1)0:X(1)1:Y(1)18:C(2)2:D(2)0:X(2)1:Y(2)18:C(1):X(1),Y(1):SC(11(1))5::N$(1)"FRED":N$(2)"PESTO":1280 WT((1)6)1:WT5ı" 1050:W%(2)(1)39:W%(1),W%(2))15W%(1),W%(2))4W%(13170:B%,A%)12A%080D ZAA%1:BA%1:CB%3B%:A,BC::: d8:I1(11(1)5):A2(1):B%25(1)7:C025:B%,C)12AAC:C25:120 nC:I: xB%,A:C:I I1(11(1)5):A2(1):B%25(1)7:C39141:B%,C)12ACA:C14:  010ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":h&"PAR";:I19:(8(3I)):PA(I);::(38):TP:&I139:"-";:::&P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::P&:6:"PRESS ANY KEY FOR NEXT HOLE.":3'GH9(Z)1:D(Z):X(Z),Y(Z):2750:1940W%D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y_%:Iz%ST(Z)ST(Z)1:Z:1760%F0:J1PL:FFIH(J)::FPL1760%Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:%GH920504&GH$:HP(HP$)!$HP0HP1001811P$HP(HP$)(40100):KHP23:(HP$)11780w$&D(Z)4:I1HP:XX(Z)XI:YY(Z)YI$01090$:X0X0$DX39X39$N1130$XY0Y0$bY39Y39$l(X)(X(Z))(Y)(Y(Z))1920"%vDX,Y):D0IKIH00:II)#C(Z):X(Z),Y(Z):II1100:II0#IT#"DIRECTION?(0-360 DEGREES)";ANk#AN1AN3601790#AN(AN23.1415928)360:XI(AN):YI(AN)#A1:B1:C%2(1):C%1A1#C%2(9):C%1B1 $"HOW HARD WILL YOU HIT IT?(0-100%)";HPEY TO CONTINUE.";:WB$:::1280~":12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1760""Z1PL:IH(Z)1ĂZ:1950"C(Z):X(Z),Y(Z)":N$(Z);"'S PUTT.""I110"15:X(Z),Y(Z)#"";:II11 ROUGH":1700!RO(Z)0k!D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":880!F0:G1PL:FFOG(G)::FPLZPL:Z:1740!" ";::"PRESS ANY KEY TO CONTINUE.";:WB$::::Z:1280 "" ";::"PRESS ANY K):D8İ660" TD0RO(Z)RO(Z)1S ^D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:Ia hD2İ980i rO0 |X(Z)X:Y(Z)Y:D(Z)D ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2120 !D(Z)0ĺN$(Z);" IS IN THE00%) ";SW$:(SW$)01360.(SW$)1001520USW(SW$):SW90SW50(80(1)1)`34,20470:C0:C(Z):DD(Z):I1DI:XX(Z)XI:YY(Z)YI:X0X0"X39X39,Y0Y06Y39Y39@(X)(X(Z))(Y)(Y(Z))1620 JD(Z)D:DX,YWO0O:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1400s"DIRECTION?(0-360 DEGREES)";ANAN360AN01490280:AN(AN23.1415928)360:XI(AN):YI(AN)AP0AP0AP39AP39"HOW HARD WILL YOU SWING?(0-1L$"I"CL$"C"1340'dCL$"Q"31909nCL$"C"1070Gx24:868jCL$"W"ĺ"WHICH WOOD(1-4) ?";CL$"I"ĺ"WHICH IRON(1-9) ?";CS0:XX$:1:CL(XX$)48CL11410CL$"W"CL41410CL91410WO0:CL$"W"WO5CL:WO1";(W);" YARDS FROM THE PIN.")'I110<(15:X(Z),Y(Z)T)"";:II1100:IIw*C(Z):X(Z),Y(Z):II1100:II~+I2WI9(1)1:710<ZZė:ZZ0F24:868P"WOOD, IRON, CADDIE, OR QUIT (W/I/C/Q)";:CL$:1ZCL$"Q"CL$"W"CSC75(1):0BA6(1):BA.5SC6(1)2:IBA5SC10(1)4:[SC9(1)3:vZ1PL:OG(Z)1ī1710 W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)ST(1)0İ2290N$(Z);"'S TURN. (";BALL$(C(Z));" BALL)":"YOU ARE tF(1):I16F.05YYB:6~I15F.1YYB:<XHL1180,1200,1220,1250zBA6(1):BA2SC5(1)2:SC73(1):BA6(1):BA4SC5(1)2:SC75(1):BA6(1):BA5SC11(1)4:BA1SC5(1)2: ::GW$:q<14:"DIRECTIONS:":"0 = UP 90 = RIGHT 180 = DOWN 270 = LEFT":4:"(VALUES ARE IN DEGREES - 0=360)">7::"PRESS ANY KEY TO CONTINUE";::GW$:?ZZ1:1340BI6ıLF(1):I16F.05XXA:VI15F.1XXA`jI6ı., - LAST UPDATE 11/05/85 - VERSION 3.5 0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* ՂՂШЂЀ          50iB0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$uB:u30000BDu44033,16BNu:936:12:14:"LOADING...."BXu(4)"RUN MENU" THE GAME IS OVER FOR EVERYONE.)"VAX 24:8::"PRESS ANY KEY TO BEGIN";::WB$:2350oAb G%1B%4(1)20:Al B%(1)2020:Av 24:868:"DO YOU REALLY WANT TO QUIT NOW (Y/N)";:QQ$A QQ$"N"QQ$"Y"Ģ23::3190A QQ$"Y"ĉ:30000B 13 "@! )@& "LIKELY TO BRING DISASTER."/@+ Z@0 " IF YOU WISH TO CHANGE CLUBS OR "`@5 @: "DIRECTION, ENTER A ZERO FOR YOUR SWING."@D :"THE PROGRAM MAY BE ABORTED BY ENTERING "::"'Q' AT THE GOLF CLUB PROMPT.(IF ONE MAN"@I !AN "QUITS,1? ::" THE HARDEST YOU CAN SWING A CLUB AND"7? e? "ACHIEVE A PREDICTABLE RESULT IS 90%. A"k? ? "SWING OF GREATER THAN 90% WILL AFFECT"? ? "YOUR SHOT. AN OVERSWING MAY RESULT IN"? @ "A SPECTACULAR SHOT, BUT IT IS JUST ASLL CAUSE AN ERRATIC RESULT. THIS IS"+> N> "REFLECTED IN THIS GAME TOO."}> :" TO GET A LISTING OF CLUBS AND CLUB"> :"USE THE CADDIE FUNCTION IT CAN BE"> :"VERY HELPFUL."> 23:8:"PRESS ANY KEY TO CONTINUE":ZX$:ZX$""ī3155 "RECOMMEND THAT YOU PLAY AS A 'SCRATCH'"::"(THAT'S SLANG FOR A 0 HANDICAP GOLFER;"^= = "A RANK AMATEUR!). THE UPPER REACHES OF"= "THE HANDICAP ARE UNPREDICTABLE AT BEST."= = " ANY ATTEMPT TO OVERSWING A GOLF CLUB"= %> "WI DEGREES."`< :16:"0 DEGREES"::21:"I":21:"I":3:"270 DEGREES <-----*-----> 90 DEGREES"< 21:"I":21:"I"::15:"180 DEGREES"< (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$:::< " UNTIL YOU GET THE HANG OF THE GAME WE"< X=ICAP).7;J :" FOR ALL PURPOSES WITHIN THE GAME THE"f;T "TOP OF THE SCREEN IS NORTH, AND ITS";^ "DIRECTION IS 0 DEGREES WHEN YOU HIT.";h "THE RIGHT SIDE OF THE SCREEN IS 90 DE-";r "GREES, THE BOTTOM IS 180, AND THE LEFT" <| "IS 270S":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):" AND UNDER":" (23):(8)::"PRESS ANY KEY TO CONTINUE";::WB$::::, " THOSE DISTANCES WILL, OF COURSE, VARY":6 "WITH THE EFFECTS OF WIND AND YOUR SKILL";@ "(HAND---"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"Z9 "5) 150 YARDS"9 7:25:"IRONS":22:"------------"::22:"1) 220 YARDS":22:"2) 205 YARDS":22:"3) 190 YARDS":22:"4) 175 YARDS":22:"5) 160 YARDS"Z: (22):"6) 145 YARD4:X(16336)::F1300K:::O8 " THERE ARE A FEW THINGS YOU SHOULD "|8 "KNOW ABOUT THIS GOLF GAME. IF YOU ARE"8 "UNFAMILIAR WITH GOLFING, HERE IS A "8 "CHART OF CLUB/DISTANCE RELATIONSHIPS:"8 F9 (7):(4):"WOODS":"---------2:VD%1G%32:T%2(1)16:B%18(1)11:2530^7 T1%39:T%21(1)16:G%1:B%(1)15:25307 12:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:25307 T1%39:T%2(1)16:G%1:B%18(1)11:2530!8 K120:J19@5:0,140,92,160:186,140,279,160:6:93,140,185,160qJ1:41,10,51,139:227,10,237,139:2:134,10,144,139O4:I2253993:JII364:J,140J,140(IJ)41::T216,0::::255:60000I99R1:VA(2,I)II1:: ( I1(A$):I1$(A$,I,1):I1$" "Č810XI1$;:I1$"."I1$"?"I1$"!"āI11120:^#d(xA$(A$,40):I2(37)1:(A$)2((A$)2)A$A$" "}I1(A$)2:I2:21I:(A$,I)(A$,I);:24:I124::P(16336)(16336):::I039:0,47I::-LI1(37)1:I2(36)1dQI1(A$):I1:I2:(A$,I,1);:(16384)1281115~V:(16384)1281105[I11::I1:I2:I1(A$)::" ";::(8)(A$,I,1);:810,160:811,19:812,32:813,228:814,251:815,96)9:VA(A,I)1290%BVA(A,I):295["::A$"THERE'S NOTHING THERE!":1300:868:270'19:A$:A$;:A$"1"A$"3"270)C(A$)1:C(A)ĺ:A$"THAT'S WHERE YOU GOT IT FROM!":1300:868:270,:868:2000:1800:260:60000$"POLE "(91)" ] TO POLE "(91)" ] ?":1200:7]A$:A$;:A$"1"(A$"3"A$"Q")270nA$"Q"28524:1:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";:YYZ$:YYZ$"Y"YYZ$"N"Ģ23::282YYZ$"Y"998YYZ$"N"270A(A$)1:I0:J09:VA(I,J)1:::I99R1:VA(0,I)I::A0:190021::A$"+ POLE 1 + POLE 2 + POLE 3 + ":130034,22OP2(R1)122::A$"MOVES "(MO)" OPTIMUM "(OP):1400:3:23:1:A843:A$"HOW MANY RINGS WOULD YOU LIKE TO WORK WITH? (1-10) -- ":1300:868:A$:R(A$):R1R10ĺ:12:5::"*ERROR* - TYPE A DIGIT, 1-10."::210RR1VA(2,9):HC(9):I04:A:HC(I)A:HC(I5)A:3,5,6,1,2:16008I02YPING A Q WHEN":"IT ASKS YOU FOR YOUR FIRST POLE CHOICE!"::sA$"I WILL JUDGE YOUR PERFORMANCE AGAINST THIS MINIMUM NUMBER OF MOVES.":1200::::A$"HIT A KEY TO START "(91)" ]":1400xA$"/-\!":100:30:1100:255:16368,01500::163IRST POST TO BE FROM 1 TO 10.":1200:::A$"THERE IS A FORMULA FOR THE LEAST NUMBER OF MOVES POSSIBLE WHICH IS:":1200:n:A$" (2^N)-1 = NUMBER OF MOVES":1400:::A$" WHERE N IS THE NUMBER OF RINGS TOTAL.":1200::>p"YOU MAY QUIT ANYTIME BY TA TIME.":1200::x _A$"HIT A KEY PLEASE "(91)" ]":::1400:29:A$"/-\!":100:1100:255:1500:16368,0 dA$"INSTRUCTIONS CONTINUED":1400::A$"----------------------":1400::5yiA$" YOU MAY CHOOSE THE NUMBER OF RINGS ON THE F0:::A$"1) THERE ARE THREE POSTS, AND YOU START OUT ON THE LEFTMOST ONE. YOU MUST MOVE THE RINGS TO THE RIGHTMOST ONE.":1200: ZA$"2) A LARGER RING MAY NOT BE STACKED ON A SMALLER ONE.":1200:::A$"3) YOU MAY MOVE ONLY ONE RING AT P5:A$" TOWERS OF HANOI IS AN INTERESTING PUZZLE. YOU MUST START OUT WITH A NUMBER OF RINGS ON A POST, AND GET THEM TO ANOTHER POST. THERE ARE RULES GOVERNING HOW YOU MAY MOVE THE RINGS ":1200 UA$"WHICH ARE AS FOLLOWS:":1203536:4,3537:10,374:10,3735 <A$"INSTRUCTIONS? "(91)" ]":10:12:1300:A$"YN":30:25:1100:AN$((16384)128):16368,0:255 A FAN$"N"200 HAN$"Y"ĺ::60 K1500:A$"TOWERS OF HANOI":1400::A$"---------------":1400 L...................................................... HERE'S MORE! d 1014,68:1015,8:1013,76 (:::48,32:1000:255 -48,160:1,382:1,383:1,3845:1,3844:2,451:2,4538 2A$"TOWERS OF HANOI":1400:3:8:! 74,3510:4,3511:4,? --------------- TOWERS OF HANOI ---------------  012 35604012 564 :0403`................................................. CUTE, EH? F && '8&&&''@`..........!! ! ! ! ! !!!!!!!!!""" " "  p`936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$|jꥫ60000k936t12:14:"LOADING...."~(4)"RUN MENU"====== BY TMH --- ====== V PUT BIG ONTO SMALL!":1300:868:.20204PI1:0:OFA934:OF,E1313,OF36,E1323:OF48,E1313,OF87,E1323:1(A1):OF37,E1313,OF47,E1323HC(B):OFC934:OF36B4,1313P,OF48B4,P1323:VA(A,E)1:VA(C,P)B:MOMO1:0:OF,I,OF36,I12:OF48,I,OF89,I12:1(A1):OF37,I,OF47,I12:1920tvHC(E):OF36(E4),2I,OF48E4,12I}I:I09:VA(A,I)12005VA(A,I)BijEI:2010:2002I09:VA(C,I)12015$VA(C,I)Bĺ:A$"YOU CAN'T"(100(MOOP)OP100)"% EFFICIENT.":1300::!:A$"PLAY AGAIN? "(91)" ]":1200:14:A$"YN":30:1100:255:AN$((16384)128):16368,0:AN$"Y"200"AN$"N"1825&::60000lOFA934:I1113013:EVA(A,(I11)13):E11910Iq::16304,0:21:A$"THAT'S IT!":1400> :I120:2260:I12000:::A$"TOWERS OF HANOI END":1400::A$"-------------------":1400:::"YOU HAVE WON!":::A$"MOVES "(MO)" OPTIMUM NUMBER "(OP)".":1400::0A$"YOU ARE