' +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ՠЪРЀЀЀРЀЀЀՊԪЀРՂժ9 lE(I,J)v:JI3D$"WRITE "F$",R0"GCLIENT$","FYE$YD$"CLOSE "F$b610u:::CLIENT$FYE$:"ASSETS:":3)"CASH";:26:NUME(2,45):QW1:7000:3)"ACCTS REC.";:26:NUME(2,39):QW1:7000:*3)"ACCTLECTION :";:B$:B$"M"B$"S"B$"B"1804= B$"M"610PB$"B"İ20000EF$""ė:12:" YOU HAVE NOT DECLARED A LEDGER FILE.":10000:610G:10:11:"PLEASE STAND BY..."MD$"OPEN "F$",L300"ND$"WRITE "F$",R1"XI12b:J04::1:2:I138:" ";:I@I223:I:2:" ";:39:" ";:I^23:2:I138:" ";:I:}7:12:"DO YOU WANT TO :" 10:7:" B) BEGIN A NEW FILE." :7:" S) SAVE DATA TO OLD FILE.": 7:" M) RETURN TO MENU."::- 18:14:"SE1:7000:6000`:12:"ARE YOU SURE YOU WANT TO DELETE THIS"::"MONTH'S DATA (Y/N)? ";~B$:B$"Y"B$"N"1711B$"Y"610:12:6:"CURRENT MONTH DATA DELETED..."J035:E(1,J)0JE(1,43)010000:610";T34);"Y.T.D"A^::"SALES";:NUME(1,0):10:QW1:7000:ahNUME(2,0):26:QW1:7000:r:"EXPENSES";:NUME(1,43):10:QW1:7000|NUME(2,43):26:QW1:7000::"NET";:10:NUME(1,0)E(1,43):QW1:7000: NUME(2,0)E(2,43):26:QW500ACAC15&E(1,AC)E(1,AC)D<E(2,AC)E(2,AC)DRE(2,45)E(2,45)DbAC351550xE(1,43)E(1,43)DE(2,43)E(2,43)D1210,::(4):CLIENT$::FYE$6:"PROFIT AND LOSS SUMMARY:"@:17)"CURRENT":J17);" MONTH,42)D:12100AC140E(2,41)E(2,41)D:1210TAC240E(1,48)E(1,48)D:1210xAC150E(2,46)E(2,46)D:1210AC250E(2,48)E(2,48)D:1210AC160E(1,45)E(1,45)D:1210AC500E(1,0)E(1,0)D:E(2,0)E(2,0)D:1210AC361 ->??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(`%ЀРЪ FOR":9- "EACH MONTH, AS WELL AS THE ENTIRE YEAR.":h- "A SUMMARY OF THE MENU COMMANDS FOLLOWS:"s- 10000- "1. LOAD DATA"::- "IF YOU WISH TO ACCESS LEDGER DATA THAT":- "YOU HAD SAVED FROM SOME EARLIER TIME, ":. "INSERT THE 936,226 ,@ ,J `,T 12:4:"DO YOU NEED INSTRUCTIONS (Y/N)? ";:QQ$:QQ$"N"QQ$"Y"2900p,h QQ$"Y"ı,r :5:"THIS FINANCIAL UTILITY ALLOWS THE SMALL":,| "BUSINESS OWNER TO MAINTAIN ALL OF THE":- "NECCESSARY FINANCIAL INFORMATION,144:925,245:926,189:927,239:928,2:929,73l+ 930,48:931,168:932,169:933,0:934,76:935,235:936,26v+ RAM0+ (57344)32RAM1+ RAMı+ 772,52:773,237:774,32:775,231:776,227+" 789,83:790,224+, 919,92:920,219,6 935,242:240:896,16:897,201:898,46:899,176:900,5:901,169:902,32* 903,157:904,239:905,2:906,202:907,240:908,4:909,228:910,208:911,144* 912,233:913,162:914,1:915,189:916,239:917,2:918,32:919,95:920,19.+ 921,232:922,228:923,208:924867,201:868,58:869,240:870,238:871,201:872,48:873,144:874,234:875,104) 876,157:877,239:878,2:879,202:880,240:881,31:882,192:883,0:884,208) 885,205:886,232:887,24:888,144:889,16:890,189:891,239:892,2:893,201=* 894,36:895,1:839,72Y( 840,104:841,72:842,201:843,45:844,208:845,14:846,189:847,239:848,2( 849,201:850,45:851,144:852,22:853,202:854,208:855,240:856,104:857,24( 858,144:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,8M) :810,16:811,133:812,208l'n 813,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,16'x 822,248:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,200 ( 831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,:782,162:783,196:784,133:785,129t&P 786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155&Z 795,133:796,132:797,136:798,177:799,155:800,133:801,131:802,136:803,177'd 804,155:805,201:806,16:807,144:808,2:809,169:"ENTER '1' TO RE-REVIEW EXPENSE ACCOUNTS"::6:"OR PRESS SPACE BAR TO EXIT.";::B$:B$"1"B$" "2550}% B$"1"2315% %< 768,165:769,82:770,72:771,32:772,43:773,37:774,32:775,222:776,27$&F 777,104:778,133:779,82:780,169:781,69YABLE";$ "120 ACCT REC-OTHER";:21:"220 ACCRUED TAXES"k$ "130 INVENTORY";:21:"230 ACCRUED WAGES"$ "140 EQUIPMENT";:21:"240 CAPITAL STOCK"$ "150 DEPOSITS";:21:"250 RET. EARNINGS"$ "160 OTHER ASSETS";:21:"500 SALES"l% 18:1#j #t W2135$#~ W;" ";A$(W)+# W[# 20:1:"PRESS ANY KEY":"TO CONTINUE";:B$# ::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":# "100 CASH";:21:"200 NOTES PAYABLE"$ "110 ACCTS RECEIV.";:21:"210 ACCTS PAT1T20ĺ::6::(7)"ACCOUNTS ARE NOT IN BALANCE":@"6000J" 2315S" 610" ::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":" 34,2" W120"$ W;" ";". W10ĺ" ";"8 A$(W)"B W"L 32,20"V 33,19"` 00:!3)"PROFIT AND LOSS";8!NUME(2,0)(E(2,43))C!PLNUMX!26:QW1:7000:!T2E(2,36)E(2,38)E(2,47)E(2,42)E(1,48)E(2,48)PL!T2T2(1):NUMT2(1)!:"TOTAL ":26:QW1:7000:!T1(100T1.5)100:T2(100T2.5)1006"YABLE";:26:NUME(2,38):QW1:7000:[ p3);"ACCRUED TAXES";:26:NUME(2,47):QW1:7000: z3);"ACCRUED WAGES";:26:NUME(2,42):QW1:7000: 3);"CAPITAL STOCK";:26:NUME(1,48):QW1:7000:!3);"RETAINED EARNINGS";:26:NUME(2,48):QW1:70AL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45)R T1NUMg*26:QW1:7000:r410000>:::CLIENT$HFYE$R:"LIABILITIES AND CAPITAL:"\:3);"NOTES PAYABLE";:26:NUME(2,36):QW1:7000:$ f3);"ACCOUNTS PAS REC-OTHER";:26:NUME(2,40):QW1:7000:\3)"INVENTORY";:26:NUME(1,46):QW1:7000:3)"EQUIPMENT";:26:NUME(2,41):QW1:7000:3)"DEPOSITS";:26:NUME(2,46):QW1:7000: 3)"OTHER ASSETS";:26:NUME(1,45):QW1:7000:G:"TOTԪՊЀԪՂՀՊЀ@xЀЪժՂЀЀЂՀՊЀpXD@`abX0KbcxՀЀЪ0ժՂЀЀЂՀՊЀdD@dOHLqՀ`ЀЪժՂЀЀЂ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr ՀRENT MONTH, AS":5/& "WELL AS YEAR-TO-DATE.":10000\/0 "3. ADD CURRENT MONTH'S DATA"::/: "THIS OPTION ALLOWS YOU TO ENTER THE":/D "FINANCIAL DATA FOR THE CURRENT MONTH.":/N "THE YEAR-TO-DATE TOTALS ARE UPDATED": 0X "WITH THE DISK WITH THE DATA FILE AND":T. "USE THIS OPTION TO LOAD THE OLD DATA.":10000~. "2. REVIEW ACCUMULATED EXPENSES"::. "THIS OPTION PRINTS THE AMOUNTS PAYED":. "OUT FOR YOUR VARIOUS EXPENSES. EXPENSES":/ "ARE DISPLAYED FOR THE CUR49050:;F#12:"UNABLE TO WRITE ON WRITE-PROTECTED DISK"D;P#9150S;Z#E59070;d#12:" ERROR IN READING DATA FROM THIS FILE.":9150;n#E89090;x#12:" I/O ERROR - CHECK YOUR DISK DRIVE.":9150;#E2559140<#12:1:"DO YOU REALLY WA":23:14::"**ABORTED**";::II12000:II::610E:p10000::610w:XNUM1000000ĺ"$ ";((NUM100.5)(QW));::bX(NUM1000000):cX10ĺ"$ ";:dX9ĺ"$";:vX;",";((NUM100.5)(QW));::(#:E(222):2#E1(218)(219)256;<#EP19$SP236609.Q98MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253b9L19::D$;T$y9VF$(T$,(T$)5):9`BSCH,V1):TSCH,V)9jN64:BSC13N809tBSC10N329~BSC11N489X015:H,V)XT$T$(XN):9:3:F$"96,I1)9)35608 "8 T$OP$Y8 JX21VSEL1:J:1:" ";::VSEL:1:9588 I21:1::" ";:2:T$;:8VI:H737:3680:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V18BSC10TSC0SP09BSC10TSC0SPS::XXX1ĺN$;7 7 :07 VSEL0VSEL24g7 VSEL:1:37):6::" CHOICE :";::16368,0:A$7 A$(13)ĢVSEL:15::A$;" ";:7 TSC14,2VSEL2):BSC14,2VSEL1)7 A$MAX$A$"A"37408 I0462:(5,I)TSC5,I1)BSC)(4,I1)1,V)4FILE$" ":LTRLTR1:XXX176H TEST$N$:N$(LTR)s6R 1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$6\ TEST$" "N$" "VSELV21:34906f " ";:50,63192(LOCK$" ")6p XXX0ĺ" ";::"*";::FILE$;6z XXX1ĺFILE$;7 :" ";S RETURN TO ABORT.";C5 4:1:" CHOOSE THE DESIRED DATA FILE :"a5 X1452:(5,X)11)ĂX5 LTR64:XX1:VX442::V21:15 LOCK$" ":0,V)10LOCK$":"5 XXX05 1,V)1FILE$BL$5* 1,V)2FILE$BL$54 1,V)9FILE$BL$ 6> :10000&4 "9. PRINT STATEMENTS"::S4 "SENDS A FINANCIAL STATEMENT TO YOUR":j4 "PRINTER.":10000s4 6104 D$(4):CA$"CATALOG":OP$"OPEN ":BL$" "4 MAX$"W":4 :1::D$;CA$5 24:1:"SELECT LETTER OR PRESE BOOKS DON'T BALANCE":E3 "THE PROGRAM WILL LET YOU KNOW.":10000o3 "8. DISPLAY ACCOUNTS AND NUMBER"::3 "DISPLAYS THE CODES THIS PROGRAM USES AS":3 "SHORTHAND FOR THE THE VARIOUS ACCOUNTS":4 "EXPENSES, AND ASSETS A COMPANY MAY HAVE"10000/2 "6. SAVE CURRENT MONTH TO DISK"::_2 "SAVES YOUR CURRENT LEDGER DATA TO DISK":2 "UNDER THE FILE NAME YOU SPECIFY.":100002 "7. REVIEW BALANCE SHEET DATA"::2 "DISPLAYS YOUR ASSETS VS YOUR LIABILTIES":3 "AND CAPITAL. IF THRES SALES WITH EXPENSES, AND":G1 "THE NET DIFFERENCE.":10000o1 "5. DELETE CURRENT MONTH DATA"::1 "DOES JUST WHAT IS SAYS IT DOES, NAMELY,":1 "DELETES THE CURRENT MONTH FROM MEMORY.":2 "(DOES NOT DELETE IT FROM DISK HOWEVER).":NEW DATA. NOTE: THE DATA FOR":Q0b "THE LAST MONTH WILL BE LOST WHEN NEW":p0l "DATA IS ENTERED.":100000v "4. DISPLAY P&L RESULTS"::0 "DISPLAYS PROFIT AND LOSS RESULTS FOR":0 "THE CURRENT MONTH AND YEAR-TO-DATE. IT":%1 "COMPAԪՊЀԪՂԪԪՂԂՂЀԪՂЪ@'C8C'#8C#cRa<4<7xժЪՂЀ$;:GOOD$GOOD$ZZ$K40020%K:8KRR1GOOD$""VKRR1GOOD$(GOOD$,RR1)bKRRRR1{KœV:HT:868:GOOD$;K̜40020A$ZZ$K40020K:KRR1GOOD$""KRR1GOOD$(GOOD$,RR1)KRRRR1KœV:HT:868:GOOD$;L̜40 DISK IN THE DRIVE."::10000)J:u30000FJNu:12:14:"LOADING...."ZJvu(4)"RUN MENU"nJ@V:HT:GOOD$""wJJRR0JTZZ$J^(ZZ$)1340090Jh(ZZ$)8RR040100Jr((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"40020J|RRLN40020KRRRR1:ZZ10lIN14:"ENTER YOUR COMPANY'S NAME: "::">";:V16:HT3:LN20:LA32:HA90:40000:CL$GOOD$:CL$""20100wIN9000IN18:"ENTER THE FISCAL YEAR END DATE:"::">";:V20:LN10:40000:FY$GOOD$:FY$""20120IN1861J0u:12::" INSERT YOUR MASTER"0"A$"9"ė:12:"NOT A LEGAL FILE NAME, PLEASE TRY AGAIN":10000:20000VH>N20100qHHND$"RENAME "F$",GUMBY"HRND$"RENAME GUMBY,"F$HSN9000I\N:11:2:"THERE IS ALREADY A FILE BY THAT NAME"::" ON THIS DISK, PLEASE DELETE IT FIRST.":10000:6T21:10600:QW1:NUMPL:70003G,PLE(2,0)E(2,43)TG,(FILLER$,12);:QW1:7000:dG,I122::uG$,(4);"PR#0"~G.,610G N:10:"ENTER A FILENAME (UP TO 20 LETTERS): "G*N12:">";:V12:HT3:LN20:LA32:HA90:40000:F$GOOD$JH4NA$(F$,1):A$(FILLER$,12);+F+PLE(2,43)E(2,26)E(2,0)CF+QW1:NUMPL:7000:ZF+:"PROVISION FOR"oF+A$"FEDERAL TAX"F+NUME(1,27):T21:10600:NUME(1,26):QW1:7000F+(FILLER$,12);:NUME(2,26):QW1:7000:F+:A$"NET PROFIT"F+PLE(1,0)E(1,43)G++ER+TEE(1,43)E(1,26)NE\+A$"TOTAL EXPENSE":T21:10600:QW1:NUMTE:7000eEf+TEE(2,43)E(2,26)Ep+(FILLER$,12);:QW1:NUMTE:7000:Ez+E+CPE(1,43)E(1,0)E(1,26)E+"PROFIT BEFORE"E+A$"FEDERAL TAX":T21:10600:QW1:NUMCP:7000 F+D"3D*A$"SALES":T21:10600:NUME(1,0):QW1:7000_D*(FILLER$,12);:NUME(2,0):QW1:7000:eD+qD +I135D+:E(2,I)0ī11070D +I26ī11070D*+::A$A$(I):T21:10600:NUME(1,I):QW1:7000D4+(FILLER$,12);:NUME(2,I):QW1:7000:D>+IEHE(1,46)E(2,46)E(1,45)E(2,41)6C*QW1:7000:" ";C*A$"TOTAL LIAB & CAP":T19:10600:NUME(2,36)E(2,38)E(2,47)E(1,48)E(2,48)E(2,42)NUMC*QW1:7000:C*:(FILLER$,26);:"INCOME STATEMENT"C*D*(FILLER$,25);MO$;:(FILLER$,19);"YT*A$"RETAINED EARNINGS":T19:10600:NUME(2,48):QW1:7000:|B*A$"OTHER ASSETS":T21:10600:NUME(1,45):QW1:7000:" ";B*A$"PROFIT AND LOSS ":T19:10600:NUME(2,0)E(2,43):QW1:7000: C*A$"TOTAL ASSETS":T21:10600:NUME(2,45)E(2,39)E(2,40)7000:" ";GAX*A$"ACCRUED WAGES":T19:10600:NUME(2,42):QW1:7000:Ab*A$"EQUIPMENT":T21:10600:NUME(2,41):QW1:7000:" ";Al*A$"CAPITAL STOCK":T19:10600:NUME(1,48):QW1:7000:Av*A$"DEPOSITS":T21:10600:NUME(2,46):QW1:7000:" ";):5+>)"ENTER MONTH":8>)":";MO$N>):"ENTER YEAR":]>)":";YEAR$>)"ADJUST ROLLER. DEPRESS RETURN WHEN READY ":>)B$:>)(4);"PR#1">)(FILLER$,(70(CLIENT$))2);:CLIENT$?):(FILLER$,19);:"BALANCE SHEET AN7=)FILLER$" "B=)::9=)"MAKE SURE YOU HAVE A PRINTER THAT IS"::"PROPERLY HOOKED UP AND READY TO PRINT."=)=)20:"DO YOU REALLY WANT A PRINT-OUT (Y/N)? ";:N$=)N$"Y"N$"N"Ģ19::10661 >NT TO QUIT NOW (Y/N)? ";:A$6<#A$"N"A$"Y"9100F<#A$"N"610Q<#30000p<#"ERROR #"E" AT LINE "E1:{<#10000<#610<'24:7:"PRESS ANY KEY TO CONTINUE";:A$::Of+TEE(2,43)E(2,26)fOp+(FILLER$,12);:QW1:NUMTE:7000:lOz+O+CPE(1,43)E(1,0)E(1,26): CURRENT PERIOD PROFIT BEFORE TAXO+"PROFIT BEFORE" P+"FEDERAL TAX";:T21:10600:(FILLER$,NEEDED);:QW1(2,0):QW1:7000:N+$N +I135:N+:E(2,I)0ī11070KN +I26ī11070N*+::A$(I);:T21:10600:(FILLER$,NEEDED);:NUME(1,I):QW1:7000N4+(FILLER$,12);:NUME(2,I):QW1:7000:N>+INH+NR+TEE(1,43)E(1,26)'O\+"TOTAL EXPENSE";:T21:1060D$""#MRR1GOOD$(GOOD$,RR1)/MRRRR1HMœV:HT:868:GOOD$;SM̜40020̜40020AZZ$pM40020xM:MRR1GOOD$""MRR1GOOD$(GOOD$,RR1)MRRRR1MœV:HT:868:GOOD$;M̜40020W1:7000N*(FILLER$,12);:NUME020ALOADING...."'Lvu(4)"RUN MENU";L@V:HT:GOOD$""DLJRR0MLTZZ$bL^(ZZ$)1340090{Lh(ZZ$)8RR040100Lr((ZZ$)LA(ZZ$)HA)ZZ$","ZZ$":"40020L|RRLN40020LRRRR1:ZZ$;:GOOD$GOOD$ZZ$L40020L:MRR1GOO6:NUME(2,41):QW1:7000:K&3)"DEPOSITS";:26:NUME(2,46):QW1:7000:& 3)"OTHER ASSETS";:26:NUME(1,45):QW1:7000:&:"TOTAL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45)& T1NUM: TOTAL ASSETS'*26:QW1:$ %FYE$%:"ASSETS:":K%3)"CASH";:26:NUME(2,45):QW1:7000:~%3)"ACCTS REC.";:26:NUME(2,39):QW1:7000:%3)"ACCTS REC-OTHER";:26:NUME(2,40):QW1:7000:%3)"INVENTORY";:26:NUME(1,46):QW1:7000:&3)"EQUIPMENT";:2AR-END DATE : ";FYE$E$(FYE$)20ĺ"SORRY, THAT'S TOO LONG.":1921]$D$"OPEN "F$",L300"t$D$"WRITE "F$",R0"$CLIENT$","FYE$$D$"CLOSE":D$$D$;"CLOSE ";F$$XYZ1XYZ0:3020$610$ PRINT BALANCE SHEET DATA%:::CLIENTF$",L300""#ND$;"WRITE ";F$",R1"-#XI12:#b:J049F#lE(I,J)N#v:Jw#I:B$"S"Č936:D$"CLOSE":D$:610#D$:936:14:"ENTER YOUR COMPANY'S NAME: ";CLIENT$#(CLIENT$)30ĺ"SORRY, THAT'S TOO LONG.":1921$:"ENTER THE FISCAL-YE$"RENAME BOOBOO,"F$N")936:12:"THERE IS ALREADY A FILE BY THAT NAME ON":"*" THIS DISK. PLEASE DELETE IT FIRST.":II12000:II:9500"DF$""1869"E936:12:" YOU HAVE NOT DECLARED A LEDGER FILE.":II12000:II:610 #MD$:D$;"OPEN ";! :7:" S) SAVE DATA TO OLD FILE.":K! 7:" M) RETURN TO MENU."::k! 18:14:"SELECTION :";:B${! B$"M"610!B$"B"XYZ2:2990!B$"B"B$"S"Ģ17::1804!&::10:11)"PLEASE STAND BY":1860!'D$"RENAME "F$",BOOBOO""(DՂՂШԪԪՂԂՂpx4@`Rax<@GHPaaSyԪՂЪ $$H$$$H$$prD""I8ժЪՂЀԪՊЀԪՂԪԪՂԂՂЀ@ԪՂЪ d$H$d$H$d<2D ""IժЪՂЀ., - LAST UPDATE 11/05/85 - VERSION 3.5 936 9"ACCOUNT MONTHLY Y.T.D.":EI135bE(1,I)0E(2,I)0ī1080A$(I):NUME(1,I):(5):QW1:7000NUME(2,I):(24):QW1:7000:$CNTRCNTR2.CNTR20ī11008IB1140L:24:7::"PRESS ANY KEY TO:(10):12)"PLEASE STAND BY"7pD$;"OPEN";F$",L300"NzD$;"READ";F$",R1"YI12f:J049t::E(I,J)|:JID$"READ "F$",R0"CLIENT$,FYE$D$;"CLOSE";F$:610 PRINT ACCUMULATED EXPENSESCNTR0U WANT TO ";::"QUIT";::" NOW?";:QQ$DQQ$"Y"QQ$"N"ī780V QQ$"Y"610a430000> ROUTINE TO RECALL DATA FROM DISKH:(10):"ARE YOU SURE YOU WANT TO RECALL DATA?";:B$IXYZ0JB$"N"610KR3270\F$(T$,6)f:"9) PRINT STATEMENTS."A:5:"H) HELP."::5:"Q) QUIT."_22:15::"SELECTION";:gB$~B$"H"ZC1:2930B$"Q"780B(B$)B1B9ī750B830,970,1180,1570,1700,1790,1960,2310,10640( 936:12:" ARE YOU SURE YOS."+5:"3) ADD CURRENT MONTH'S DATA."N5:"4) DISPLAY P&L RESULTS."w5:"5) DELETE CURRENT MONTH DATA."5:"6) SAVE DATA/OR START A NEW FILE."5:"7) REVIEW BALANCE SHEET DATA."5:"8) DISPLAY ACCOUNTS AND NUMBERS."5:1:2:I239:" ";:I=mI223:I:2:" ";:39:" ";:Ipn24:2:I239:" ";:I:6:2:I239:" ";:Io:3:(40(CLIENT$))2:CLIENT$:4:(34(FYE$))2:"FYE : "FYE$u95:"1) RECALL DATA."5:"2) REVIEW ACCUMULATED EXPENSETO' ERROR ROUTINE ON A/C NO.P:"THERE IS NO SUCH A/C AS NO. ";ACxI15:(7);:PAUSE110:PAUSE:IPAUSE11500:PAUSE&0:D * * * MAINLINE * * *E31N50: INITIALIZEX2890b:c9000l| E(2,47)=ACCRUED TAXES6 E(1,48)=CAPITAL STOCKS E(2,48)=RET. EARNINGSf E(I,0)=SALES| ZERO FILL A/C'SI12:J049::E(I,J)0:JI10,76:11,0:12,3: FOR PRINT USING ROUTINEED$" , 0.00": DIT(5)"ACCT REC-OTHER"EAA$(6)"FIXED ASSETS":AA$(7)"ACCRUED WAGES"K"h6 E(I,43)=TOTAL EXPENSES@ E(I,44)=NOT USEDJ E(2,45)=CASHT E(1,45)=OTHER ASSETS^ E(1,46)=INVENTORYh E(2,46)=DEPOSITSr E(1,47)=NOT USED@ A$(29)"TRASH":A$(30)"TRAVELING EXP":A$(31)"WAGES & COMM"| A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT" A$(35)"UNITED PARCEL":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX"AA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$E"? A$(17)"MISC. EXP.":A$(18)"OFFICE EXP":A$(19)"POSTAGE"x A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L" A$(23)"SELL EXP-R.L.":A$(24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC" A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE"E"C A$(5)"BAD DEBTS":A$(6)"CONTRIBUTIONS":A$(7)"DEPRECIATION" A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEALTH INSUR." A$(11)"HEAT":A$(12)"INSURANCE":A$(13)"INTEREST" A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGESS, INC." PFYE$"05/14/85"] d936:10:10)CLIENT$::6)"GENERAL LEDGER TRANSACTIONS" n2620: PRINT USING MACHINE LANGUAGE SET-UP xD$(4): CONTROL-D A$(1)"MDSE.-MATERIALS" A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSŧӠϮ 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 C@9B"= %> "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":"---------40:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:25306 B0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:2530/7 12:C0:I039:CC.49:C,C20I::VD%(1)39:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:2530]5d G%32:25305n 12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:25305x B%(1)16:G%1:T1%39:T%21(1)16:2530]6 12:S:SS.33:S17,SI::I21;120,26I::B%(1)6:T%24(1)13:G%32:25304F 12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:25304P B%17(1)13:T1%39:T%14(1)10:G%1:2530M5Z 12:I01739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:25303( B%(1)12:G%1:T1%39:T%12(1)10:253032 B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:2530K4< 12:S40:I039)21:G%32:2530C2 B%10(11(1)):G%1:T%9(1)21:T1%39:25302 12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:25302 B%5(1)17:G%1:T%12(1)16:T1%39:2530S3 C0:12:I016:0,14I::I :: 1 GH118:2520:1280q1 :I12(1)1:I2550,2570,2590,2610,2620,2630,2650,2670,2690,2700,2710,27301 1170:60:100:170:230:210:I1PL:X(I)T1%:Y(I)T%::1 300002 12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1UMBER ON THE LIST!":2460"0 :I0 :13:"WHAT SIZE COURSE DO YOU WANT TO PLAY?"::12:"1) PITCH & PUTT":12:"2) SHORT COURSE":12:"3) REGULATION":12:"4) THE MONSTER"0 24:12:"ENTER A NUMBER :";:24:28:HL$:HL(HL$)0 HL4HL1ī25001" "f/ C(I)1C(I)14ĺ"SORRY, TRY A NUMBER ON THE LIST":2460/ GG(C(I))0:21:"SORRY, THAT COLOR IS TAKEN.":2460/ GG(C(I))10 C(I)1C(I)9C(I)3C(I)5C(I)11C(I)6C(I)14:21:" TRY A N(9) ORANGE":" (5) GREY (11) PINK":" (6) BLUE (14) AQUA":" (3) PURPLE"v. ::I1PL. 20:" WHAT COLOR BALL WILL ";N$(I);" USE ";:C$(I):C(I)(C$(I)))/ C(I)1C(I)14ĺ" ":0ĺ" TRY AGAIN PLEASE, 0-30 ONLY."::23906-j I_-t PA(18):SC(PL,18):HL(18),BALL$(14)-~ BALL$(1)"MAGENTA":BALL$(9)"ORANGE":BALL$(3)"PURPLE":BALL$(5)"GREY":BALL$(11)"PINK":BALL$(6)"BLUE":BALL$(14)"AQUA"f. :9::" (1) MAGENTA "NAME? ";N$(I):7:" "},V :9:" YOUR HANDICAP(0-30)? ";HC$(I):HC(I)(HC$(I)),[ HC(I)0HC(I)30ĺ" ":" "/-` HC(I)0HC(I)3251PA(GH)3&+W250W471PA(GH)4:+ W470PA(GH)5M+ TPTPPA(GH):_+ PB$"Y"2040j+$ 30000+. :5:8:"NUMBER OF PLAYERS (1-7)? ":5:33:PL$:+8 PL(PL$):(PL$)1(PL$)72350+B N$(PL):I1PL=,L :7:" PLAYER #";I"'S ";:*(DI)1ININ(DI)R*IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0o*D(Z)D:DX,Y):D8İ660*D0RO(Z)RO(Z)1*D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I*YAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y*D2İ980*O0 +WY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39U)fX(Z)0X(Z)5(1)j)pY(Z)39Y(Z)39)zY(Z)0Y(Z)5(1)))VE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2300)470:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38  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* ՂՂШЂЀ            (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%(1`O@P-Q`LOčPQ`2LHA>VDP (ED Z c(0x8x D- ܸDD#L H8?E Vk *f???0xE ݀ ݀ ݀Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE 519044033,16::936:12:14::"LOADING....":O(4);"RUN MENU"U"Z:6510:10:" SCHEDULE NOW WRITTEN TO ";Z$::=d`n:L20((W$)2):L::W$::fxzAB$"N"ī5080936:12::"BE SURE YOUR MASTER DISK IS IN DRIVE 1!":23:7::"PRESS ANY KEY TO CONTINUE";::TE$:TE$""ī63000AB$"N"(34)(13)D$;"PR#0")6520/:I18RT$;E$;G$;L$;E$;U$;YI_epF1ıGG$;D$;"OPEN";Z$ D$;"DELETE";Z$D$;"OPEN";Z$D$;"WRITE";Z$(I172J116<A$(I,J)F:PD$;"CLOSE";Z$7)K6;.K6ĺ12)K6;#8I18GBT$;E$;G$;L$;E$;U$;1);A$(I,K);NLITV^`6330hj6330otK{uE$;G$;vT$;L$;wJ17xI114y(95);zI{ |(124);}J~MX130::MUE$;(65);E$;(78);E$;;G$:MV1130:(34);::E$;U$$f1pMU1MMIz" ";TH17hT$;4);BB$(H);oHuK116E$;G$;T$;L$;J17I114(95);I(124);JE$;U$6330$K7ĺ12  z #?????     ՠ ԠŠ"Ӡ   ՠ Ӳ)̠ҠMծԠ Ѡ Πà6:NUME(2,41):QW1:7000:K&3)"DEPOSITS";:26:NUME(2,46):QW1:7000:& 3)"OTHER ASSETS";:26:NUME(1,45):QW1:7000:&:"TOTAL ASSETS";:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,41)E(2,46)E(1,45)& T1NUM: TOTAL ASSETS'*26:QW1:$ %FYE$%:"ASSETS:":K%3)"CASH";:26:NUME(2,45):QW1:7000:~%3)"ACCTS REC.";:26:NUME(2,39):QW1:7000:%3)"ACCTS REC-OTHER";:26:NUME(2,40):QW1:7000:%3)"INVENTORY";:26:NUME(1,46):QW1:7000:&3)"EQUIPMENT";:2AR-END DATE : ";FYE$E$(FYE$)20ĺ"SORRY, THAT'S TOO LONG.":1921]$D$"OPEN "F$",L300"t$D$"WRITE "F$",R0"$CLIENT$","FYE$$D$"CLOSE":D$$D$;"CLOSE ";F$$XYZ1XYZ0:3020$610$ PRINT BALANCE SHEET DATA%:::CLIENTF$",L300""#ND$;"WRITE ";F$",R1"-#XI12:#b:J049F#lE(I,J)N#v:Jw#I:B$"S"Č936:D$"CLOSE":D$:610#D$:936:14:"ENTER YOUR COMPANY'S NAME: ";CLIENT$#(CLIENT$)30ĺ"SORRY, THAT'S TOO LONG.":1921$:"ENTER THE FISCAL-YE$"RENAME BOOBOO,"F$N")936:12:"THERE IS ALREADY A FILE BY THAT NAME ON":"*" THIS DISK. PLEASE DELETE IT FIRST.":II12000:II:9500"DF$""1869"E936:12:" YOU HAVE NOT DECLARED A LEDGER FILE.":II12000:II:610 #MD$:D$;"OPEN ";! :7:" S) SAVE DATA TO OLD FILE.":K! 7:" M) RETURN TO MENU."::k! 18:14:"SELECTION :";:B${! B$"M"610!B$"B"XYZ2:2990!B$"B"B$"S"Ģ17::1804!&::10:11)"PLEASE STAND BY":1860!'D$"RENAME "F$",BOOBOO""(D500:P J035 :E(1,J)0' J5 E(1,43)0> 610X  OPTION TO SAVE DATAw ::1:2:I138:" ";:I I223:I:2:" ";:39:" ";:I 23:2:I138:" ";:I: 7:12:"DO YOU WANT TO :" 10:7:" B) BEGIN A NEW FILE."((2,0)E(2,43):26:QW1:7000:(6000H DELETE CURRENT MONTH DATA:(10):7)"ARE YOU SURE YOU WANT TO":(7)::"DELETE";::" CURRENT MONTH DATA?";:B$B$"Y"B$"N"1710B$"Y"ī610 :(10):10);"DELETING CURRENT DATA":P1T":J17);" MONTH";)T34);"Y.T.D"V^::"SALES";:NUME(1,0):10:QW1:7000:vhNUME(2,0):26:QW1:7000:r:"EXPENSES";:NUME(1,43):10:QW1:7000|NUME(2,43):26:QW1:7000::"NET";:10:NUME(1,0)E(1,43):QW1:7000:NUMEING..." JT(A)1ĺ"RUN"A$(A); TT(A)2ĺ"BRUN";A$(A)V ^T(A)3ĺ"EXEC";A$(A)h hER(222):20n r | DATA FOR DESCRIPTION  2  GENERAL LEDGER  KEEP TRACK OF YOUR BUSINESS EXPENSES DATA FOR PROGRAM NAMES1-AP:24:7:"PRESS ANY KEY TO CONTINUE.";:A$:K #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOAD5:1102 VTV1(X)2:HT15.4:A$"WHICH ONE?":110N A$:KB(A$):A$""240c KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN321 AN1300, ":::(4)"BRUN INITFDOS,A$8000":10:5:"INSERT BLANK DISK IN DRIVE ONE"UBLISHING 1985":110G :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)") CREATE WORK DISK":VTV1(X):HT12.5:110:XX1  A$(X)") QUIT":VTV1(X):HT12.(X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q 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 P 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<QA0FV(1)10.6:V(2)11.8 PX05:V1     !!  ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               NS FOR A SMALL":T6 "BUSINESS. FIRST, YOU MUST INITIALIZE A"::"LEDGER FILE.":6 ZC1Ģ24:" PRESS ANY KEY TO CONTINUE.";:B$:30206 15::868:" DO YOU WISH TO START A LEDGER FILE? ";:QQ$6 QQ$"Y"QQ$"N"ī29607 QQ$"Y"ī61LE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE.F5J 936z5T 12:" DO YOU NEED INSTRUCTIONS (Y/N)?";:QQ$5^ QQ$"Y"QQ$"N"ī28905h QQ$"Y"ı5r 936::"THIS FINANCIAL UTILITY PERFORMS ALL THE":6| "NECCESSARY LEDGER FUNCTIOOVE POKES ARE FOR RAM APPLESOFT. BELOW IS ADJUSTMENT FOR LANGUAGE CARD OR ROM APPLESOFT4 772,52:773,237:774,32:775,231:776,2274" 789,83:790,2244, 919,92:920,21946 935,242:936,226<5@ : SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTIC916,239:917,2:918,32:919,95:920,19x3 921,232:922,228:923,208:924,144:925,245:926,189:927,239:928,2:929,733 930,48:931,168:932,169:933,0:934,76:935,235:936,263 RAM03 (57344)32RAM1: TEST FOR RAM APPLESOFTX4 RAMı: AB87,24:888,144:889,16:890,189:891,239:892,2:893,2012 894,36:895,240:896,16:897,201:898,46:899,176:900,5:901,169:902,322 903,157:904,239:905,2:906,202:907,240:908,4:909,228:910,208:911,144&3 912,233:913,162:914,1:915,189:44:859,53:860,189:861,239:862,2:863,201:864,32:865,240:866,81 867,201:868,58:869,240:870,238:871,201:872,48:873,144:874,234:875,1041 876,157:877,239:878,2:879,202:880,240:881,31:882,192:883,0:884,20882 885,205:886,232:8200S0 831,208:832,248:833,166:834,208:835,136:836,185:837,0:838,1:839,720 840,104:841,72:842,201:843,45:844,208:845,14:846,189:847,239:848,20 849,201:850,45:851,144:852,22:853,202:854,208:855,240:856,104:857,24D1 858,11:802,136:803,177d/d 804,155:805,201:806,16:807,144:808,2:809,169:810,16:811,133:812,208/n 813,168:814,136:815,177:816,131:817,153:818,240:819,2:820,136:821,160x 822,248:823,160:824,0:825,185:826,0:827,1:828,240:829,3:830,37:774,32:775,222:776,27n.F 777,104:778,133:779,82:780,169:781,69:782,162:783,196:784,133:785,129.P 786,134:787,130:788,32:789,76:790,24:791,160:792,4:793,177:794,155/Z 795,133:796,132:797,136:798,177:799,155:800,133:801,13ER ASSETS";:21:"500 SALES"- 18::"ENTER '1' TO RE-REVIEW EXPENSE ACCOUNTS OR PRESS SPACE BAR TO RETURN TO MENU "::::B$- B$"1"ī2315- -2 SUBROUTINE TO ESTABLISH PRINT USING FORMAT.< 768,165:769,82:770,72:771,32:772,43:773,110 ACCTS RECEIV.";:21:"210 ACCTS PAYABLE"b, "120 ACCT REC-OTHER";:21:"220 ACCRUED TAXES", "130 INVENTORY";:21:"230 ACCRUED WAGES", "140 EQUIPMENT";:21:"240 CAPITAL STOCK", "150 DEPOSITS";:21:"250 RET. EARNINGS"- "160 OTH+j +t W2135&+~ W;" ";A$(W)-+ Wx+ 20::"PRESS SPACE BAR ":"FOR BALANCE SHEET":"ACCOUNTS ":+ :B$+ ::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":+ "100 CASH";:21:"200 NOTES PAYABLE"-, "N BALANCE":*6000 * 2315)* 610t* ::::"A/C DESCRIPTION";:X(36):20X);:"A/C DESCRIPTION ":* 34,2: FREEZE TOP* W120*$ W;" ";*. W10ĺ" ";*8 A$(W)*B W*L 32,20: SET LEFT EDGE*V 33,19: SET WIDTH+` ): P&L)PLNUM.)26:QW1:7000:h)T2E(2,36)E(2,38)E(2,47)E(2,42)E(1,48)E(2,48)PL)T2T2(1):NUMT2(1)):"TOTAL ":26:QW1:7000:)T1(100T1.5)100:T2(100T2.5)100 *T1T20ĺ::6::(7)"ACCOUNTS ARE NOT ITAXES";:26:NUME(2,47):QW1:7000:[(z3);"ACCRUED WAGES";:26:NUME(2,42):QW1:7000:(3);"CAPITAL STOCK";:26:NUME(1,48):QW1:7000:(3);"RETAINED EARNINGS";:26:NUME(2,48):QW1:7000:(3)"PROFIT AND LOSS";)NUME(2,0)(E(2,43)7000:;'4:24:7::"PRESS ANY KEY TO CONTINUE.";::B$N'>:::CLIENT$X'HFYE$z'R:"LIABILITIES AND CAPITAL:"'\:3);"NOTES PAYABLE";:26:NUME(2,36):QW1:7000:'f3);"ACCOUNTS PAYABLE";:26:NUME(2,38):QW1:7000:$(p3);"ACCRUED 2:"IMPROPER FILE NAME - PLEASE TRY AGAIN.":24:" PRESS ANY KEY TO CONTINUE.";:A$:610D#936:12::"**ERROR** YOU'D BETTER RECONSIDER THAT!":II11000:II::936:D%XYZ1610,2930Dh) SUBROUTINE TO DETERMINE NEEDED FILLER Er)CH(36):N C(#E(222)C2#E255780)C3#E618608C<#E89040CF#936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.";:II12000:II:9500CP#E4E99100CZ#936:12:"YOUR DISK IS WRITE-PROTECTED OR FULL.":II12000:II:610C#E119200]D#936:1:9B23:14::"**ABORTED**";::II12000:II::610tBp:24:7::"PRESS ANY KEY TO CONTINUE.";::B$::610BXNUM1000000ĺ"$ ";((NUM100.5)(QW));:BbX(NUM1000000)BcX10ĺ"$ ";BdX9ĺ"$";BvX;",";((NUM100.5)(QW));:> TEST$N$:N$(LTR)Z>H 1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$>R TEST$" "N$" "VSELV21:3480>\ " ";:50,63192(LOCK$" ")>f XXX0ĺ" ";::"*";::FILE$;>p XXX1ĺFILE$;>z :" ";::XXX1ĺN$;> ? X1452:(5,X)11)ĂX?= LTR64:XX1:VX442::V21:1a= LOCK$" ":0,V)10LOCK$":"k= XXX0= 1,V)1FILE$" "= 1,V)2FILE$" "=* 1,V)9FILE$" ">4 1,V)4FILE$" ":LTRLTRȺ"HIT ANY KEY TO CONTINUE.";:QQ$::O< CA$"CATALOG":OP$"OPEN ":NO$"NOMON"s< MAX$"W":D$(4):D$;NO$"C,I,O"< 255::::1::D$;CA$< 24:"SELECT LETTER OR PRESS RETURN TO ABORT.";:3:< 4:" CHOOSE THE DESIRED DATA LEDGER FILE : "= MAND #8."<; :"COMMANDS #2,#3,#4, AND #7 WILL DISPLAY":m; "VARIOUS SUMMARY INFORMATION ABOUT YOUR":; "BUSINESS. FINALLY, COMMAND #9 WILL"; :"PRINT A MONTHLY ACCOUNTING STATEMENT.":; 3260:936:; 610%< 24:" ";::A) IS USED TO ADD":G:N "INFORMATION ON THE CURRENT MONTH. EACH":x:X "ENTRY (SUCH AS EXPENSES, ASSETS, ETC.)"::b "IS REPRESENTED WITHIN THE PROGRAM BY A"::l "SPECIFIC ACCOUNT CODE. TO GET A LIST OF": ;v "ALL THE ACCOUNT CODES, USE COMCOMMAND #6 TO SAVE ANY":H9 "CHANGES YOU MAKE TO YOUR DATA BEFORE"{9 :"YOU QUIT. WHEN YOU WANT TO BEGIN A NEW":9& "MONTH, USE COMMAND #5 TO DELETE THE OLD":90 3260:936:9: "DATA FROM THE PREVIOUS MONTH."::D "COMMAND #3 (ADD DATENU CONTAINS NINE COMMANDS FOR":U8 "FOR ADDING TO/CHANGING/AND DISPLAYING":8 "YOUR MONTHLY FINANCIAL DATA. BE SURE TO":8 "EXECUTE COMMAND #1 (RECALL DATA) TO":8 "LOAD IN YOUR CURRENT MONTH'S DATA. ALSO":9 "BE SURE YOU USE 077 936:12:" WHAT DO YOU WANT TO CALL IT?";F$7 (F$)30Č936:12:" FILE NAMES CAN ONLY BE 30 CHARS LONG.":II12000:II:29907 XYZ2XYZ0:18317 90007 XYZ1:936:12:" INITIALIZING NOW...":1831$8 936::"THE M+(FILLER$,12);/Q+PLE(2,43)E(2,26)E(2,0)GQ+QW1:NUMPL:7000:^Q+:"PROVISION FOR"rQ+"FEDERAL TAX";Q+NUME(1,27):T21:10600:(FILLER$,NEEDED);:NUME(1,26):QW1:7000Q+(FILLER$,12);:NUME(2,26):QW1:7000:Q+:"NET PROFIT";R+DED);:QW1:NUMTE:7000.Pf+TEE(2,43)E(2,26)VPp+(FILLER$,12);:QW1:NUMTE:7000:\Pz+P+CPE(1,43)E(1,0)E(1,26): CURRENT PERIOD PROFIT BEFORE TAXP+"PROFIT BEFORE"P+"FEDERAL TAX";:T21:10600:(FILLER$,NEEDED);:QW1:NUMCP:7000Q:O+O +I135*O+:E(2,I)0ī11070;O +I26ī11070O*+::A$(I);:T21:10600:(FILLER$,NEEDED);:NUME(1,I):QW1:7000O4+(FILLER$,12);:NUME(2,I):QW1:7000:O>+IOH+OR+TEE(1,43)E(1,26)P\+"TOTAL EXPENSE";:T21:10600:(FILLER$,NEE48)E(2,42)NUM N*QW1:7000:5N* TO PRINT P&L_N*:(FILLER$,26);:"INCOME STATEMENT"eN*N*(FILLER$,25);MO$;:(FILLER$,19);"YTD"N*"SALES";:T21:10600:(FILLER$,NEEDED);:NUME(1,0):QW1:7000O*(FILLER$,12);:NUME(2,0):QW1:70003):QW1:7000:M*"TOTAL ASSETS";:T21:10600:(FILLER$,NEEDED);:NUME(2,45)E(2,39)E(2,40)E(1,46)E(2,46)E(1,45)E(2,41)M*QW1:7000:(FILLER$,2);N*"TOTAL LIAB & CAP";:T16:10600:(FILLER$,NEEDED);:NUME(2,36)E(2,38)E(2,47)E(1,48)E(2,LER$,2);[L*"RETAINED EARNINGS";:T16:10600:(FILLER$,NEEDED);:NUME(2,48):QW1:7000:L*"OTHER ASSETS";:T21:10600:(FILLER$,NEEDED);:NUME(1,45):QW1:7000:(FILLER$,2);M*"PROFIT AND LOSS ";:T16:10600:(FILLER$,NEEDED);:NUME(2,0)E(2,41:7000:bKb*"EQUIPMENT";:T21:10600:(FILLER$,NEEDED);:NUME(2,41):QW1:7000:(FILLER$,2);Kl*"CAPITAL STOCK";:T16:10600:(FILLER$,NEEDED);:NUME(1,48):QW1:7000:Lv*"DEPOSITS";:T21:10600:(FILLER$,NEEDED);:NUME(2,46):QW1:7000:(FIL7000:(FILLER$,2);cJD*"ACCRUED TAXES";:T16:10600:(FILLER$,NEEDED);:NUME(2,47):QW1:7000:JN*"INVENTORY";:T21:10600:(FILLER$,NEEDED);:NUME(1,46):QW1:7000:(FILLER$,2); KX*"ACCRUED WAGES";:T16:10600:(FILLER$,NEEDED);:NUME(2,42):QW:dI&*"ACCOUNTS RECEIVABLE";:T21:10600:(FILLER$,NEEDED);:NUME(2,39):QW1:7000:(FILLER$,2);I0*"ACCOUNTS PAYABLE";:T16:10600:(FILLER$,NEEDED);:NUME(2,38):QW1:7000:J:*"ACCTS REC-OTHER";:T21:10600:(FILLER$,NEEDED);:NUME(2,40):QW1:CE SHEET AND INCOME STATEMENT"`H*:(FILLER$,(70((MO$)2(YEAR$)))2);:MO$;", ";YEAR$::H*"CASH";:T21:10600:(FILLER$,NEEDED);:NUME(2,45):QW1:7000I*(FILLER$,2);:T16:"NOTES PAYABLE";:10600:(FILLER$,NEEDED);:NUME(2,36):QW1:700019::10661G)N$"N"610!G)6G)"ENTER MONTH":CG)":";MO$YG):"ENTER YEAR":hG)":";YEAR$G)"ADJUST ROLLER. DEPRESS RETURN WHEN READY ":G)B$:G)(4);"PR#1"G)(FILLER$,(70(CLIENT$))2);:CLIENT$H):(FILLER$,19);:"BALANTHIS SELECTION"::"WITHOUT A PRINTER, THE PROGRAM WILL"F):"STOP AND YOU WILL HAVE TO PRESS THE"::"'RESET' KEY TO RETURN TO THE GREEN"::"VALLEY MENU."F)F)20:"DO YOU REALLY WANT A PRINT-OUT (Y/N)? ";:N$ G)N$"Y"N$"N"ĢEEDEDTCH"E|)NEEDED0NEEDED1(E)EE) * * * MAINLINE * * *{E)FILLER$" "E):SNu:936:12:14:"LOADING...."RSvu(4)"RUN MENU"PLE(1,0)E(1,43)GR+T21:10600:(FILLER$,NEEDED);:QW1:NUMPL:7000]R,PLE(2,0)E(2,43)~R,(FILLER$,12);:QW1:7000:R,I122::R$,(4);"PR#0"R.,610S0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO C;::"."3K24:7:"PRESS TO CONTINUE.";fL100:KB13330:936:12:14:"WRITING..."::ER(222):ER:10:15:"COPY ABORTED"::5:"INSERT SOURCE DISK IN DRIVE ONE":100:(4);"PR#6" 4);"RUN MENU" 16368,0::5^@:8:5:"INSERT ";::"SOURCE";::" DISK IN DRIVE ";::"ONE";::"."A24:7:"PRESS TO CONTINUE.";B100:KB13320:936:12:14:"READING...":J:8:5:"INSERT ";::"TARGET";::" DISK IN DRIVE ";::"ONE":4358:(255)0200h :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);"PR#6" c dKB(16384):KB128100 fKBKB128:"p 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)0200:TR,2D,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)"PR#6";::".":24:7:"PRESS TO CONTINUE.";o 100:24:1:868:16:"COPYING";: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)     ESS ANY KEY TO CONTINUE."+~O19:8:20400;O19:35:A$AOoO - SUBROUTINE TO PRINT TEXT WITH CLICKS.uO{OOI1(A$)O(A$,I,1);OX(16336)OIOO"SS ANY KEY TO CONTINUE."#N19:8.N20400:N19:35BOA$MO20010vOA$"DO NOT SAVE DATA TO THIS DISK."$O7:5.O204008OA$"PLEASE FORMAT A WORK DISK AT"BO9:6LO20400VOA$"THE MAIN MENU."`O11:13jO20400tOA$"PR `` `@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  ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Ap תժתժժժժժתժժߪժժժ            OW 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.E ": 756! :9w "THE PROGRAM ALSO SAVES YOUR SCHEDULE TO":"YOUR DATA DISK, ANY FORMATTED APPLE" "DISK WILL SUFFICE FOR THIS PURPOSE.":::"AS SOON AS YOU ENTER THE PROGRAM, PLACE"V "YOUR DATA DISK INTO THE DRIVE. THE SAVE" " THE EVENING."% ~ "TO ACCESS ONE OF THE HOURS OF THE DAY,":"YOU TYPE THE NUMBER AT THE LEFT OF THE " "SCREEN WHICH CORRESPONDS TO THE HOUR OF":"THE DAY IN THE NEXT COLUMN OF NUMBERS." :::" HIT ANY KEY TO CONTINU SIMPLE TO USE. ALL YOU DO IS":" GO ALONG DAY BY DAY AND TYPE IN THE " "IMPORTANT TIMES OF THE DAY YOU HAVE TO":" REMEMBER FOR EACH DAY OF THE WEEK." "THE HOURS OF THE DAY START AT 7 O'CLOCK":"IN THE MORNING AND END AT 10 O'CLOCK IN" Zbd" THIS IS A SCHEDULING PROGRAM WHICH ":" WILL HANDLE A SCHEDULE FOR ONE WEEK."hin"IT WAS DEVISED TO HELP YOU KEEP TRACK":"OF THE IMPORTANT EVENTS THAT YOU HAVE"x" INCORPORATED INTO YOUR BUSY WEEK."}H "IT IS VERYˬī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ı(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::  :: GG(14)x12:15);"F O R E !":II11500:II::::::::" WOULD YOU LIKE INSTRUCTIONS (Y/N)? ";WB$:WB$"Y"WB$"N"30(WB$"N"23502:2760<4:IG%G%5:B%3,B%9I::X%B%F13:I15(2) PA%39(1):E(2,45)D:12104<AC200E(2,36)E(2,36)D:1210XFAC110E(2,39)E(2,39)D:1210|PAC210E(2,38)E(2,38)D:1210ZAC120E(2,40)E(2,40)D:1210dAC220E(2,47)E(2,47)D:1210nAC130E(1,46)E(1,46)D:1210 xAC230E(2,42)E(218:"ACCOUNT: ";AC;:18:"AMOUNT :";:V18:HT27:LN5:LA46:HA57:40000:D(GOOD$)(18:1:"ACCOUNT: ";AC;:868:18:"AMOUNT ";:NUMD:QW1:7000:)23:1:"IS THIS CORRECT (Y/N)? ";:Q$:Q$"N"Q$"Y"1321*Q$"N"12102AC100E(2,45)D$16:1:958#B$"N"610;B$"A"İ2315:1190hAC(B$):AC1(AC35AC100)İ520:1220AC100AC110AC120AC130AC140AC150AC1601300AC200AC210AC220AC230AC240AC250AC5001300AC361300 520:1220U:"NEGATIVE VALUES MAY BE ENTERED IF YOU"::"WISH TO CHANGE AN ERRONEOUS VALUE, OR"::"IF YOU WISH TO DECREMENT A VALUE (SUCH"::"AS CASH.)"15:1:95815:1:868:"ENTER ACCOUNT NUMBER:";V15:HT23:LN4:LA48:HA78:40000:B$GOO B1140L10000VCNTR0,`:::I6j1140Pt:"TOTAL EXPENSES: "cu"MONTHLY : ";~NUME(1,43):(12):QW1:7000::"Y.T.D. : ";:NUME(2,43):(12):QW1:7000:6000:" ENTER 'N' TO QUIT, 'A' LIST ACCOUNTS.":D$;"CLOSE";F$:610"-CNTR039f"ACCOUNT MONTHLY Y.T.D.":rI135E(1,I)0E(2,I)01080A$(I):NUME(1,I):(5):QW1:7000NUME(2,I):(24):QW1:7000:$CNTRCNTR2.CNTR2011008IB1B9750DB850,980,1190,1580,1710,1790,1960,2310,10640NR3270qf:(10):12)"PLEASE STAND BY"pD$;"OPEN";F$",L300"zD$;"READ";F$",R1"I12:J049::E(I,J):JID$"READ "F$",R0"CLIENT$,FYE$DATA."/5:"7) REVIEW BALANCE SHEET DATA."[5:"8) DISPLAY ACCOUNTS AND NUMBERS."{5:"9) PRINT STATEMENTS.":5:"H) HELP."::5:"Q) QUIT."22:15::"SELECTION";:B$B$"H"ZC1:2930B$"Q"ė:9100B(B$):4:(34(FYE$))2:"FYE : "FYE$(u9A5:"1) LOAD DATA."l5:"2) REVIEW ACCUMULATED EXPENSES."5:"3) ADD CURRENT MONTH'S DATA."5:"4) DISPLAY P&L RESULTS."5:"5) DELETE CURRENT MONTH DATA."5:"6) SAVE THIS MONTH'S ED$" , 0.00" @ :"THERE IS NO SUCH A/C AS NO. ";ACF 0L :T N70^ X2890f b: l:1:2:I239:" ";:I mI223:I:2:" ";:39:" ";:I n24:2:I239:" ";:I:6:2:I239:" ";:I!o:3:(40(CLIENT$))2:CLIENT$":AA$(1)"NOTES PAYABLE":AA$(2)"FEDERAL INC TAX"~ AA$(3)"ACCTS PAYABLE":AA$(4)"ACCTS RECEIVABLE":AA$(5)"ACCT REC-OTHER" AA$(6)"FIXED ASSETS":AA$(7)"ACCRUED WAGES" I12 :J049 ::E(I,J)0 :J I 10,76:11,0:12,3 (24)"SELL EXP-CHRIS":A$(25)"TAX-SOC SEC"j A$(26)"TAX-FED INC.":A$(27)"TAX-OTHER":A$(28)"TELEPHONE" A$(29)"TRASH":A$(30)"TRAVELING EXP":A$(31)"WAGES & COMM" A$(32)"WATER":A$(33)"FREIGHT-IN":A$(34)"FREIGHT-OUT"1 A$(35)"UNITED PARCELEAT":A$(12)"INSURANCE":A$(13)"INTEREST"l A$(14)"LAUNDRY":A$(15)"LEGAL EXPENSE":A$(16)"MASTER CHARGE" A$(17)"MISC. EXP.":A$(18)"OFFICE EXP":A$(19)"POSTAGE" A$(20)"RENT":A$(21)"REPAIRS":A$(22)"SELL EXP-G.L"* A$(23)"SELL EXP-R.L.":A$2620 xD$(4), A$(1)"MDSE.-MATERIALS"l A$(2)"ACCOUNTING":A$(3)"ADVERTISING":A$(4)"AUTO EXPENSE" A$(5)"BAD DEBTS":A$(6)"CONTRIBUTIONS":A$(7)"DEPRECIATION" A$(8)"ELECTRICITY":A$(9)"ENTERTAINMENT":A$(10)"HEALTH INSUR.") A$(11)"HC 36864D:12:4:"PLEASE INSERT YOUR DATA DISK NOW":10000MZC0X9000k A$(35),AA$(7)x E(2,49):590FCLIENT$"YOUR BUSINESS, INC."PFYE$"YEAR-END"d:10:10)CLIENT$::6)"GENERAL LEDGER TRANSACTIONS" n                     40:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:25306 B0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:2530/7 12:C0:I039:CC.49:C,C20I::VD%(1)39:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:2530]5d G%32:25305n 12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:25305x B%(1)16:G%1:T1%39:T%21(1)16:2530]6 12:S:SS.33:S17,SI::I21;120,26I::B%(1)6:T%24(1)13:G%32:25304F 12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:25304P B%17(1)13:T1%39:T%14(1)10:G%1:2530M5Z 12:I01739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:25303( B%(1)12:G%1:T1%39:T%12(1)10:253032 B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:2530K4< 12:S40:I039)21:G%32:2530C2 B%10(11(1)):G%1:T%9(1)21:T1%39:25302 12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:25302 B%5(1)17:G%1:T%12(1)16:T1%39:2530S3 C0:12:I016:0,14I::I :: 1 GH118:2520:1280q1 :I12(1)1:I2550,2570,2590,2610,2620,2630,2650,2670,2690,2700,2710,27301 1170:60:100:170:230:210:I1PL:X(I)T1%:Y(I)T%::1 300002 12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1UMBER ON THE LIST!":2460"0 :I0 :13:"WHAT SIZE COURSE DO YOU WANT TO PLAY?"::12:"1) PITCH & PUTT":12:"2) SHORT COURSE":12:"3) REGULATION":12:"4) THE MONSTER"0 24:12:"ENTER A NUMBER :";:24:28:HL$:HL(HL$)0 HL4HL1ī25001" "f/ C(I)1C(I)14ĺ"SORRY, TRY A NUMBER ON THE LIST":2460/ GG(C(I))0:21:"SORRY, THAT COLOR IS TAKEN.":2460/ GG(C(I))10 C(I)1C(I)9C(I)3C(I)5C(I)11C(I)6C(I)14:21:" TRY A N(9) ORANGE":" (5) GREY (11) PINK":" (6) BLUE (14) AQUA":" (3) PURPLE"v. ::I1PL. 20:" WHAT COLOR BALL WILL ";N$(I);" USE ";:C$(I):C(I)(C$(I)))/ C(I)1C(I)14ĺ" ":0ĺ" TRY AGAIN PLEASE, 0-30 ONLY."::23906-j I_-t PA(18):SC(PL,18):HL(18),BALL$(14)-~ BALL$(1)"MAGENTA":BALL$(9)"ORANGE":BALL$(3)"PURPLE":BALL$(5)"GREY":BALL$(11)"PINK":BALL$(6)"BLUE":BALL$(14)"AQUA"f. :9::" (1) MAGENTA "NAME? ";N$(I):7:" "},V :9:" YOUR HANDICAP(0-30)? ";HC$(I):HC(I)(HC$(I)),[ HC(I)0HC(I)30ĺ" ":" "/-` HC(I)0HC(I)3251PA(GH)3&+W250W471PA(GH)4:+ W470PA(GH)5M+ TPTPPA(GH):_+ PB$"Y"2040j+$ 30000+. :5:8:"NUMBER OF PLAYERS (1-7)? ":5:33:PL$:+8 PL(PL$):(PL$)1(PL$)72350+B N$(PL):I1PL=,L :7:" PLAYER #";I"'S ";:*(DI)1ININ(DI)R*IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0o*D(Z)D:DX,Y):D8İ660*D0RO(Z)RO(Z)1*D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I*YAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y*D2İ980*O0 +WY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39U)fX(Z)0X(Z)5(1)j)pY(Z)39Y(Z)39)zY(Z)0Y(Z)5(1)))VE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2300)470:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38@0ic i[ 0``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 C@9B"= %> "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 YARD  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 TARGETA ЂՀՊЀ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* ՂՂШЂЀ! ! ! ! !!!!!!!!!        I&\NI222:I:1:" ";:39:" ";:IDfN23:1:I139:" ";:I:JpNUzN20010{NA$"WE STRONGLY SUGGEST THAT YOU"N10:6N20400NA$"MAKE A BACKUP COPY OF THIS"N12:7N20400NA$"DISKETTE"N14:15N20400NA$"PREPLESOFT2-BINARY&3-TEXT FILE0 1L 1,GENERAL LEDGER_ 1,THE CASINOq1,RUSTY NAIL| N20090*N9364N3:3::I337:" ";:I>NI421:I:3:" ";:37:" ";:IHN21:3:I337:" ";:IRN1:1::I139:" ";:ЀЪ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*ԪԪՂԂՂԪՂԪՂЪ ՂՂШЂЀ"" " " " " """""""""