' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ŠëϠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ŪՀłՂ ((@*łШł " AłШШłШT*@*@!F 0łШԨԪ@( @(T*@*@ŪՀłՂ ((UN ","GREETINGS FROM W.V.A.C.C "] "VISUAL ALPHA-SORT","RUN ","VISUAL ALPHABETICAL SORT" "VISUAL ALPHA-SORT","RUN ","VISUAL ALPHABETICAL SORT"ISUPER FAST SORTER","RUN ","SUPER FAST APPLESOFT SORTER" "BILLBOARD","RUN ","BILLBOARD DISPLAY DEMO" "BEAGLE BROS. TIP","RUN ","BEAGLE BROS TIP"  "GREETINGS FROM W.V.A.C.C.","R "LIST THIS FILE FIRST","RUN ","LIST THIS FILE BEFORE IT'S RUN"v "BILLBOARD","RUN ","BILLBOARD DISPLAY DEMO" "GREETINGS FROM W.V.A.C.C.","RUN ","GREETINGS FROM W.V.A.C.C " "VISUAL ALPHA-SORT","RUN ","VISUAL ALPHABETICAL SORT"GNER"J "THE NUMBERS FOR MUSIC","RUN ","MUSIC NOTES WITH OCTAVE NOS." "UP & DOWN THE SCALE","RUN ","UP & DOWN THE SCALE"5 "NOVELTIES","0","" "APPLESINE","RUN ","APPLESINE" "TWIRLING CURSOR","RUN ","TWIRLING CURSOR"CZ 6 'd "SOUND OR MUSIC","0",""Yn "SPACE MUSIC+","RUN ","SPACE MUSIC+ INTRO"x "CELESTE MUSIC","RUN ","SOME WHERE OVER THE RAINBOW" "PLAY IT AGAIN SAM","RUN ","PLAY THAT TONE AGAIN SAM!" "SOUND BY WAGNER","RUN ","SOUND BY WA ","GRAPHING FUNCTIONS IN HI-RES"* 4B( "GRAPHICS","0",""f2 "ABE PIC.","RUN ","ABE PIC."< "255 HIRES COLORS","RUN ","^^255 HI-RES COLORS DEMO^^"F "3-D SHAPES","RUN ","TWO 3-D SHAPES"P "TUNNEL VISION","RUN ","TUNNEL VISION" 9 "WORKING ROUTINE","RUN ","PAUSE (WORKING) ROUTINE"@3\ "EDUCATIONAL","0","" "SOLAR SYSTEM SIMULATOR","RUN ","HI-RES SOLAR SYSTEM SIMULATOR" "LOAN AMORTIZATION","RUN ","LOAN AMORTIZATION TABLE"!  "GRAPHING FUNCTIONS","RUNERSAND LIST UTILITY"J "AMPERSAND RUN","RUN ","AMPERSAND RUN UTILITY" "TRICK FILE NAMES","RUN ","TRICK FILE NAME UTILITY" "AMPERSAND KILL-CAT","RUN ","AMPERSAND KILL-CATALOG UTILITY" "FILE ARRANGER","RUN ","FILE ARRANGER UTILITY" "WENATCHEE APPLESTAND","RUN ","WENATCHEE APPLESTAND (GAME)"F~ 8` "UTILITIES","0","" "JOYSTICK/PADDLE TESTER","RUN ","JOYSTICK/PADDLE TESTER" "ASCII SCREEN DISPLAY","RUN ","ASCII SCREEN DISPLAY" "AMPERSAND LIST","RUN ","AMPx  D$(4)&N$" DAVID HOFFMAN "_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ D @@U(U @P@*  @ @ @ @*T*U @$D@BHHB$> @ łԂՠ@U*T U  ԪłШŪՠT Q U *A(ŪըШՊժłШբ A(P ըТłЀՊЪѨՂ@  A(P@(* @ FyԊłԂՠԂԢŪ@U łШłЊԠ @*A łШШłШ A(P* Ј  P xըТłЀՊЪѨՂ@  A(P@(@ ЊAP `?łԂՠԂԢŪ @*U łШłЊԠ @ A łШШłШ A(P* Ј  P xըТłЀՊЪѨՂ  A(P@(@ ЊAP `?x  D$(4)&N$" **AND** "_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ DP*@@* (@  (@@ " "@  @   (U@* @ @P  @ @ @P @   @ Ъ P P @ @ @ P*@* (@ P   ԊЀ @P P* "@ gCc P P (U@* @ @P  @ @ @P @ @ GG"">@p P Ъ(( @ @ @ "@ ((@ @ ԊЀ "P* @ $$ ((  @  @@U(U @P@*   @ @ @*T*U @ DHDHHHB$"@  Ղՠ((T @(U@  " ( (   " P" (U@ ( @P@*U $D TT "  x  D$(4)&N$" 98801"_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ DG_#Pa()F-rdE()F-rdY d"eXcca(ԠϠՠˠӠŠԠǠŠҠǠӠӠˠ) UVW -rq-rYa()G UVW -rq-rYUVW`-r-ƠҠ)cQja(٠ŠҠĠŠ) tUVWyPbG`-r ${zP b-rG_~{P b-rG~`-r $`-rd$Pb-rG_Pb-rG_Pb-rՠŠǠ٠̮)a(ǠΠӠŠ)a(ϠĠŠԠŮ)$BS(ϠŬӠή)&@ DM6YL] MM6 SKM6Tc.Va(̬ՠŠΠΠӠנ)4`bE(Ӯ)a(ӠӠϠ)&@ `$L`-r$.`-rd$ua(ՠΠϠҮՠ̠ϠŠԠӠŮȠ̬נӠҠٮԧӠ٠ή)_B9a(ԠĬԠŠӠҠŮ٠ή)$_Bg.a($Aca(ՠĠ)F-rdE()F-rdE(ΠŠٮ)_Bca(ՠĠ)F-rdE()F-rdE(ΠŠٮ)ԱqԱ-r `$Ba(ԠӠҠӠϠҠ̠Ơ)FԱdE()FԱd"S(ӠΠu VERSION !#$%"#$%*:!sDEGREE INTERVALS1u VERNAL EQUINOX IS TO RIGHTOu AT DOUBLE DOT. PLANETS nu REVOLVE COUNTERCLOCKWISEu THE SUN (DOT AT CENTER).u ORIGINAL PROGRAM FROMu MICRO APPLE 1 BY DAVIDu PARTYKA. WE THINK THE u BUGS ARE OUT OF THIS Z1DEDN7000851003XX279:Y190:100:A$E::Z10:DE0N(5)"WOULD YOU LIKE TO BEGIN THIS PROGRAM":"AGAIN? Y OR N " S$RS$"N"1000\:0u:::::::::::::::::::::::::::::::u BIG OUTER CIRCLE IS STARSu IN 10 F5:YG5:M5X:N5Y:3:100R (5600-5640) SET UP VALUES FOR SATURN AND PLOT aSA06000AA6:PP6:EE6:PEU6:EZK6:SRDS6:JJ6:WW6:ZZ1W200:F6X:G6YTY15640XM6:YN6:0:100XF6:YG6:M6X:N6Y:3:100pZ1Z1DAY1TY15440'6XM4:YN4:0:100G@XF4:YG4:M4X:N4Y:3:100|r (5500-5540) SET UP VALUES FOR JUPITOR AND PLOT|JU05600AA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZ1W200:F5X:G5YTY15540XM5:YN5:0:100XK3:SRDS3:JJ3:WW3:ZZ1W.200:F3X:G3Y=TY15340SXM3:YN3:0:100sXF3:YG3:M3X:N3Y:3:100 (5400-5440) SET UP VALUES FOR JUPITOR AND PLOTMA05500"AA4:PP4::EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZ1W,200:F4X:G4(U@* @ @P @ GGOO >q @ @ @P @    (( @ @ @ x  D$(4)&N$"WENATCHEE WASH."_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ D 000 dL 000dL L < < < < < < <000LD`Z : X0255-28,X:62454B23:"COLOR= ";XQJ1500:XXXd ededededeLdedede`[QT}dede0dededededed ed e_}d ed ed ededededeLdedede`[edededed ed e_}d ed e٠ԠŠŠԠŠΠŠŠԠŠՠٮ)x\2Bca@E(ϠՠҠ٠ƠҠ)a(ԠϠ٠ο)GR@`;@r$`@*#r:()$M6_3a(ˠՠҠǠŠŬ)E@E()\2@*#r9()$Z4a(ӠҠϬ)_( <q FqP_:Zca(Ӡ)E@E(ҠǠ)a(Π)Vdca(ɠŠՠĠԠǠԬԠŠҠԠ)ena(ԠŠՠĠ٠͠ŠΠҠ٠Ԯ٠ή)#S(ӠΠϠŮ)&@_#S(ӠΠϠŮ)&@Tca(ϠՠԠϠ̠ӠŠŠ٠Ġ٠ϠĠԠԠŧ)G(R@-`;@r$2`@*#r9()$<3`cP a(Ġ ) c_Z`б-r$`б-r$ M6^a(ԠӠԮҬŠӠŠԠ̠ŠՠΠΠҠŮ)_ M6h a(ˠΠԠҠ˧ӠٮŠӠұr$ q-r-rq-r-rq q-r-rq-r-rqYTбc `б$K[M6oa(ՠŠĠŠԠǠŠҠӠӠˠΠ)(UVW\2UVW YYx  D$(4)&N$"535 HIGHLAND DR"_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ D`ȅ}d0000000000(00000400000 LL?OR KELLEY'S BOOKEEPING 5"MICRO-SOFTWARE/WENATCHEES#COPYRIGHT (C) 1982 JAN 4I:"=";: g hJ0YJ0Y5 l"YR ";J0;" ";I3,A2I qV179:"-";:O v^ J0Y720g I30p A20x J0 YJ0262 0: "CHANGE DATE AND RECOMPUTE? (1=YES, 0=NO) "; Z Z120  WRITTEN BY DAVE HOFFMAN !FA1A1A B0PA1% C1NY5200 RRB0; AAB0H A1A1B0Q B00^ I2I2I1k I3I3I1w A2A2A &J0X570 0J1;" ";I1,A,B0,I2 :J1 DC1NY600 N" LAST PMT = $";((R100.5))100 XJ0X640 bV179> ^6:"PRINCIPAL $";P;" AT ";I100;"% FOR ";Y;" YEARS"_ h25:"REGULAR PAYMENT = $";Re r |"NO. ";"INTEREST","AMORTIZED","BALANCE","ACCUM INTEREST" K7 KKN3 J11N1 I1((B0IN)100.5)100 C1C11 ARI1 20:I30:J00:N1N:K66:B0P:A10:A207 (Y)1270Q N1((Y(Y))12)12N] J0J01f 280u J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J O1:(9)(1) P(1)"80N" T25:"MORTGAGE AMORTIZATION TABLE" "REGULAR PAYMENT AMOUNT ";R8 ("TERM IN YEARS? ";YM 2"PRINCIPAL? ";Pn <"ANNUAL INTEREST RATE? ";I A CONVERT PERCENT TO DECIMAL FII100 x"NUMBER OF PAYMENTS PER YR.? ";N "START PRINTING WITH WHAT YEAR? ";X X(X)& C10:IT::255:(7),(7),(7)d:12:10:" WRITTEN FOR AN EPSON ":10:" OR 80 CULUMN PRINTER "xI12000:::5:8 " LOAN AMORTIZATION TABLE"20:"BY":13:"DAVID P. HOFFMAN":19:"FOR":9:"KELLEY'S BOOKEEPING LTD."    x  D$(4)&N$"FROM W.V.A.C.C."_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE ";NAME$ D)$fUʷVWij'kʷYʷf`-r $;UVW88-r rrXUVWXg hYYʸqA`-r$UʹVW88-r rrXgʹ hʸYʹ\2"S(ӠΠϠ)&@`-rd ή)cS(ӠΠϠ)&@_ 0ca(ԠӠ٠ŮĠǮ)c(UVW\2UVWYYUʹVWYʹM6)a(٠)FE(Ԡ)E@E(ӠŠĮ)<a(Ԡ)F-rE(ӠҠŬՠ)b-rE(4S(ҠŧҠƠӠӠٿ)&@9`;@r$>@p@*#rH@p@*#rR`@9()@9()$\`@9()@9()$f`@9()@9()$ kM6pdedeMZza(ԠӠԠŠ٠Ԡ٠Ӯ٠-rq-r-r`$`-r-r$_@p() _`-r-r$@p(ĠԠ)_@p() M6# a(ՠ)E@E(ҠŠٮ).%a(Ϡՠˠէ̠̠Ŭӧ)G*\22Ia(ԠŠΠөϠՠ)S(ϠŠҠȠ)'-r`-r-rd$_*a(ԧӠŠŬ٠)_`-r$qñq -rq8-rrαñα_ ñq-rq ñα-r bq/?r!gӴq,]ԠԠԠ lαqӴqP8;@rro %va(Ϯˮ)E@E(ԧӠ̠)yUVWYz_~$|fUʹVW'ij'kʹYʹ}[ ~q UVWL\|cPa(٠)Fc\2ŠΠή)zca(ՠԠŠŠĠɠ̠̠ՠנ٠ӠՠĠŠĠΠŠĠנȠ٠)Ka(ŠĠĠŠȠٮ)cS(ϠŬӠΧ)&@ &M6)0q]ҠƠӠϠ̠ԠƠ٠ҠȠ)6a(Ԡՠ٠̠Ԡ̠ϠӮ)vca(ԠנŬȠӠŠԠҠŬՠ̠̠٠ӬԠՠ̠ԠŠȠٮ)Fca(ŠԠǠŠ̠٠ŠŐa(ɧ͠ٮ٠ΧԠՠԠŠР͠ҠҠĠ٠άϮˮ)QiM6a(ĬԧӠϠήӠɠĬҠ ӠϠĠŠԠŠϠŠҠҠӮ)Xca(ȠŬȠӠӠҠ̠Š)nJa(٠ԠǠԮҠ ΠӠŠӠϠĠŠԠŠϠŠҠҠӮ)h\2(rcS(ϠՠĠŠϠҿ)&@|`;@r$r`@*#r9()$`@*#r9()$a(ӠҠϬ)_r^`@*#r9()$"_ "M68,a(ӠӠҠŠԠǠӮ)cP6a(ŠՠŠǠΠΠĠŧĠՠŠԠР)U@a(ĠϠ̠ӮՠŠ̠ĠŠӬϠՠΧԠŠԹ rO4rD4rO4rD4r M6cc%Pa(ŠŠŠ)$cS(ԠӠҠԠſ)&@`;@r$ca(ɠŬ)E@ \2#S(ϠՠĠӿ)&@`;@r$`@*#r9()$ \}_d2de%de2M[d]%]ӠӠΠӠu]ӠŠŠӠԠǠŠӠΠŠҠĠĠŠƠ̠Š;O4rC@"rC@" rC@"rC@" rC@" rC@"              x  D$(4)&N$"THIS DISK ARE"_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE ";NAME$ D `K 000!!!!LjE н` D SAVEING YOURS IN IT'S PLACE."G 22:"TYPE A KEY TO BEGIN";:756:h D$(13(4): (CR) + CTRL-Dw FILE115 D$;"SAVE A";FILE (FILE 2 <FROM BEAGLE BROS. =TIP BOOKS  :n10:10::"DANGER!!!!"::::"SAVE THIS PROGRAM TO A BLANK DISK","BEFORE YOU RUN IT!!!!" :"THIS PROGRAM PUTS 15 FILES ON YOUR","DISK IN ORDER 1-15 THEN YOU","CAN SAVE YOUR PROGRAMS IN ORDER","BY DELETEING THE APPROIATE FILE","AN x  D$(4)&N$"THE PROGRAMS ON"_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE ";NAME$ D  PVE05300IZAA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZ1W\d200:F2X:G2YkiTY15240nXM2:YN2:0:100xXF2:YG2:M2X:N2Y:3:100 (5200-5240) SET UP VALUES FOR EARTH AND PLOT EA05400AA3:PP3:EE3:PEU3:EZ (5100-5140)SET UP VALUES FOR MERCURY AND PLOT>ME05200uAA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:ZZ1W200:F1X:G1YTY15140 XM1:YN1:0:100XF1:YG1:M1X:N1Y:3:100F (5200 - 5240)SETUP VALUE FORVENUS AND PLOT HIGH RES,FULL SCREEN, PAGE 2#e (4805-4860)PLOT REFERENCE POINTS AND OUTER 10 DEGREE CIRCLEl3X140:Y96:100X141:Y96:100X248:Y96:100L10Q2136Q2XX1(L1)105.9YY1(L1)105.9FA100L1/$DT1DT04020#DT14060-::Y"ENTER # OF DAYS SINCE JAN 0,1980 ";DEcZ1DE::"ENTER # OF DAYS TO PLOT ";DN::"ENTER # OF DAYS BETWEEN PLOTS ";DADA04800:"0 NOT ALLOWED":4070 4800 INIT5.5Q180W62115%SA1TT.1/<::G:"DO YOU WANT ":r"POINT (0) OR CONTINUOUS(1) PLOTS";TYTY0TY14000:::"DO YOU WANT TO START AT":"A SPECIFIC DATE (0)":"OR THE BEGINNING OF THE YEAR (1) ";DT78A5507.046460.595/P5A5(1E5E5)2;K51E5HU5P5E5ZJ513.6Q180fW51604wJU1TT.19"DISPLAY SATURN ";SAS610825.863E6.0555A6937.541838.425P6A6(1E6E6)2K61E6U6P6E6 J6980 W33EA1TT1.059"DISPLAY MARS ";MAHS4686.980UE4.0934lA4154.936128.471P4A4(1E4E4)2K41E4U4P4E4 J4355.7Q180 W4289 MA1TT.6 "DISPLAY JUPITER ";JU S54332.125E5.04A267.72666.813)P2A2(1E2E2)25K21E2BU2P2E2UJ2131.3Q180bW2140.5sVE1TT1.5"DISPLAY EARTH ";EAS3365.256E3.0167A394.55591.445P3A3(1E3E3)2K31E3U3P3E3J3102.6Q1CTED PLANETS ARE DISPLAYED7"DISPLAY MERCURY ";MEES187.969RE1.0167gA143.40328.597}P1A1(1E1E1)2K11E1U1P1E1J177.1Q180W137.58ME1TT2.3"DISPLAY VENUS ";VES2224.701E2.00681*E1)/2 /  E1=ECCENTRICITY:U1=P1/E1:K1=1/E1f  REM A1=MINIMUM AND MAXIMUM DISTANCE FROM THE SUN  J1=LONGITUDE OF PERIHELION IN RADIANS  W1=DAYS FRON 0 DEGREES TO PERIHELION FOR 1980 TT=SCALING FACTOR TO USE FULL PLOTTING AREA IF SELE04000 ?:; D:"YOU HAVEN'T PICKED THE PLANETS YET"E N::s "CHOOSE THE PLANETS YOU WANT TO DISPLAY"y  "ENTER A 1 FOR YES AND A 0 FOR NO"  (2020-2079) GET SPECITIC VALUES FOR EACH PLANET  S1=ORBITAL PERIOD:P1=A1*(1-EP  FA IS THE RATIO OF X TO Y TO PLOT A CIRCLE AN THE APPLE INSTEAD OF AN OVALa $X1140:Y196o :::: "DO YOU WANT TO DISPLAY" :"THE SAME PLANETS AS YOUR LAST RUN" "Y OR N ";A$ : &A$"N"2000 0A$"Y"1800 :S1TERCLOCKWISE.# DSRD2V1Q2V1/ V1V1JM X(V1)RV:Y(V1)RVFAe "XXTTX1:YYTTY1k ,  (1000)DISPLAY PRIMARY PAGE,SET TEXT MODE 16300,0:16303,0 T1.5708 Q3.14159265 Q26.2831853 VL.99999999 FA2932E RV IS THE RADIUS VECTOR OR DISTANCE FROM THE SUN TO THE PLANETT VPERVEZc V1VVLt V1VVL V1(V(VV1))T3.1415927 V1 IS THE ANGLE THAT THE PLANET LIES FROM THE SUN. THE 0 POINT BEING AT THE RIGHT, INCREASING COUN * SOLAR SYSTEM *8 * SIMULATOR * BU1000fZ (100-110) PLOT X AND Y VALUESodX,Yun (200-300) CALCULATE THE X AND Y PLANET POSITIONSDZ(ZSRD)SRD D IS FOR DAYSBQ(DSRDQ2) RVA(P(1E(B)))            %n \:\:]ĠƠ٠x ]ԠҠR @p()\X\:\:]Ԡ٠Ǡ UVWY0 @p(ϠŮ)\XUVWY$ @p(Ϡ٠Ů)\X\:ӬӠĠάĠŠҠҠҠȮ)oF `%@p(ϬϬŠԠՠϮɧ͠ΠΠŠΠŠҮ)P \XZ UVWYd q]ΠƠd( @p(ϠŠҠԠϠŠԠӠŠŠΠŮ)]ӤӠԠӠƠκ~2 ]ŠƠȠӠԠӤ̠ŠĠ٠ǠӮ٠ΠӠŻŠ٠Šٮi< `%@p(\:\:]ȬŬĠ6 \X_t ]ԭԠĠĠԠԠŮ4 \X_~ ]ԭԠĠĠŠŮ ]ȠŪ \X]ԠԠ= qq/?r]͠Ԡȭ @Brp()q]ԭΠҠƠӠΠH `$ @Brp()]ƠŠӠŠΠԠĮH q`$ ]ҠӬϠϠȭŮ `/?r$ ]9 \X@p()ǠΠĠҠ1 UVW]ĭР͠ĪI qA/?r]͠ɠɠŠƠҠͨ3 \n]ԠΠҠϠɠҮΠҤ( @Brp@Y]ĠƠĭFŠV q]έΠĪ'` q]Ԡj @p()\X]Ht q/?r]ԠŠҠƠӠϠŠΠԠŮw~ q/?r`%q/?r]Ԡ͠ĠUVWP.?$r\X7$ UVWYY]ԠӠƠD. \:\:@p()\X\:\:8 ]ĠƠΠԠB UVWYL ]Π٠"Q q]Ԡ)\XqP.?$rUVWY_ @p(̠ŠŠϠŠĠԠŠǠΠάϬ)\Xd @p(ǠΠӠԠĬӠ٠ǠȠӠԠĠĠԠ)\X" @p()M@p(ŠҠΠנΠנƠӬԠӠƠҬ)\XA@p(٠ǠŠӠԠ̠)\X6q@p(Ҭ)\XUVWY+@p(ŠӬ)\XUVWYD@p(Š٠YD@p(ǠӠҠӠŠӠΠŠ)\Xq(@p(Ӭ)\XUVWY,@p(Ӭ)\XUVWY]@p(ĠàӮ)\X\:\:UVWYqL# E000L 000` ,AE:L13,0 :10:5:"TYPE AN '&' AND THEN A (CR) RETURN","FOR A CATALOG. A 'CTRL. C' WILL MAKE","A CLEAN BREAK IN THE CATALOG. ANY OTHER","KEY WILL CONTINUE THE CATALOG.""1013,76:1014,110:1015,1650KEY$(3)T256:DOS(978)T4410:AE174(157(978)):LDOS3119:DOS,L(LT)T:DOS1,(LT) L0,32:L1,12:L2,253:L3,201:L4,(KEY$)128:L5,208:L6,3:L7,76:L8,44:L9,AE:L10,76:L11,60:L12  ԠԠӠĠ٠ŠԠΠ̠٬)\XH@p(ΠԠԠԬҠҠԮŠ)\X8@p(ƠŠΠөĠϠ)\XM@p(ȠԠƠΠϠǠ@p(ԠӠΠĠҠ٠ӠԠƠŠŠϠԠΠŠҠƠ)\XS@p(ŠΠŠҠƠӬ٠Ġ٠)\X9@p(̠ŠԠӠƠŠĮ)\X\:\:P@p(ŠҠƠ)\X\:\:2@p(٠Š)\X\:\::@p()\X\:\:Wq]ĠҠӠҠԠŠԠԠԠƠҮǮ]ΠԠkϠΠϠ)Gd6?e b`.?6@r$bd6?e[ l]ŠϮƠӪ>vqq]ԠĠԠҠԠ%\]ΠĠĠҢ,@p()\X\:\:8@p(Šɠ+M6oPa(ŠƠ)"&ca(ӠԠ)<0cttdt,t6ttttxtttl<:UVWoPa()GP%a()UVW YZN`%[FXca(Ӡ)E@E()E@E(٠(ĠӠŠ)E@E()E@E(٠)GM6]ҠԠƠ(R@q]ŠԠ\x-`$]ƠԠΠŬA`%\l`%\q`%\`%Q_ ]ŠƠԠͧĬ͠.a(ԠŠҠî)cca(ŠԠ͠)+ca(ŠŠҠƠ)%ca(ŠŠƠ)"ca(ŠϭԠ)ca()ioa(ӠҠ)caҮǮ^_,_]̠̠ӠԠŠΠŠŠԠǮҠҠΠ*M6oq"\n]ŠҤEa(ŠŠҠƠ)cPa(٠Š)c6`%N@"rq]Ơ֤ϬŠĽZT]ϠԠҠάԠ٢ϠҬ٠Ġ(^]٠ǠŠǠź5h\qq@p(Ϭ)\XQ&r]ԠӠ̠ŠӠϠǠԮ|]ŠȠҠҠŮ!,\]ŠԠS6\:]̠ŠԠũ ĠϠŠǠҠŠS@\X]ŠԭԠƠŠҠŠĠΠӨũ3J]ϠԠŠƠǠr<()r%q <()r<@*rr]̠ŠΠ$Y]Р̠ŠϮ;`%q6[]ƠӠΠĠΠŠ ]נϠŠԠǮW]ŠŠŠŠӠĠϠӠՠĶ,Z1002dD$(4):D$;"CATALOG"nI D$;" SAVE ";NAME$,D1 ' 2 ( CHANGE LINE 30H ) TO LOAD, OR RUN` * A BACKSPACED FILE tbTHIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"*T 190 MAIN PROGRAM"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   ]̠ԠҠM_]ŠǠҢҠӠŠӠ ĠӠϠҠ/qqt\qqu\Q\ñq.?ròq.?r8ñrdQñ8òr8ò8òrre[tuV.?%r]ΠԠج٢ԠӬ٠ŠҠƠؠӠȠŠӠΠԠΠU]˨Ԡ®ŠĠΠؠĠ٠ԠנҠԠŠGq.?6@rd6?e`$]Ơâ٠ԠΠ̠ $ M6]נҠ<>`;@r%@p(Ԡ)@p@*r]ƠԢԠ͠H\x]Ԡ֠Ϡ֤Rq]ԠϮz]ԠƠԠЪUVW@`$q_]Ơ٠ԠҠΠРjq#r9()%Y@p@*r]ŠǠ`;@r$4 a(ɠΧԠ)c_U*`%[Q]ƠҾΠήӠͮϠŠҮҠԠͮl4`@*#r:()@*#r:()@*#r:()@*#r:()ĠӠ)E@E()E@]ŠƠ<a(Ϡ̠ǬӠŠ)E@E()E@E(ٮ)7a(ϠԠ͠׬Ӡ)E@E()E@c S()&@!`;@r$*]ҠӠ`;@r%_C UVW;@r`@*ز.?(r.?$rr<()r$h]˨˨˨ӠŠӠƠŠ̠ΠΠ٠ƠŠp]ŠŠŠӠҠŠӠҠϠŠǠҠϠΨةΠΠBa@E(@E()E@E(ٮ).a(ŬϠԠŠϭͺҮ)k_]ǠŠ̠ŠĠӠŠΠӮŠ̠ŠĠƠͮt&to.?%ra(Š)E@Gq 8qP`.?.?)r͠W`%N@"rqq"\nc]֤͠ƠԠԠͧĠĠԠҤMq\c]ԠǠϠŠŠΠ͠ՠׯϠ<a(Ҡ)E@E()E@E(ŠǠŠҬ)4a(ĠӠŠ)EàϠ6`.?$r;@r%%\:]ƠĠΧԠԬeUVW;@rd2e?a@*#rGd2e`%\DUVW/?rYYd2e?a()Gd2e(Y[] ]ϭԠӠ̠ˠǠƠȠŠĠΠӨũClUVW;@r`@*#r:()%Y]ԠʠϠĠƠԠPv@Brp@*#rq]ˠԠĠ͠Өũ7`;@r$]ƠӠΠ׬ӠҠϠŠ+0YYoPd6?e[]V:c\6\oPd6?e[]̠ŠƠԠĠננ͠6Dq.?6?r.?6?r.?6?r.?6?r[]ҮX]ҮΠЪ_bUVW;@r]' 0 0 0 dȅ000000000000000000002222LD` PROGRAM IS RUN??? 7 RUN IT AND SEE IFI YOUR RIGHT!b ^^^^^^^^^^^^^^^^^^^{ ^^^^^^^^^^^^^^^^^^^X|  THE ARMY DOES IT IN BASIC,::12?2X((1)2.55)~d"GOTCHA!": IF X=0 THEN GOSUB 12345"FOOLED YOU!":IF X > 1 THEN X = X - 1,90XX1:X: WHAT WILL HAPPEN WHEN THIS ()$`@9()$q\ _nsa()x`$`$,KQd6?eMFN_dd6?ed6?e,d6?eM4N_n?]Ġ٠̠ҠU e ,,`@:()%d e  -M6.[2M=N!<d6?ed6?ed6?edMONNnM6d6?ed6?eoP `$qqS(ȠҠ)'c_s-qM6oP a(ŠŠٯΩ)GR@+r`@9 (`  0000000000(00000400000 L L   ::0CURS$"!/-\":C1:L(CURS$):255X:10:"! PRESS ANY KEY WHEN READY"y#20:"! TO SEE THE CATALOG."(10:(CURS$,C,1)-20:(CURS$,C,1)2KEY(16384):KEY128CC1L(CL):40<(4);"CATALOG"C"CD$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"BYE!!!!!!!!!!!!!!!!!"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   / `(%"0000000000(00000400000 LLL3 #!1013,76:1014,18:1015,217ddz#?" ɭӠӧǠ šı̵ ı̴ ı̴ı̳ ı̴ ŠȠĮŧӠ Ķ̳ Ĵ̳ ķ̵ ĸ̲ Ĺ̵ ı̵ı̴ ŠǠӠ ΠŠΧҠՠ Πħ͠Ġ ̧ŠӠı̲ IJ̳" ij̲  ŠǩŠ Ġ٠Ϡ Ġ٠Ҡ ĠҠ àӠȠŠӮ Ӡ͠׮֮îî Šî ˠŠŠ٠ Ġ̭Ǡ ɭӠҠ͠Ҡ ŠҠ٠ ŠĠũ ΠΠŠ޲ɭӠӠޠ ǠӠΠɭӠ ŠŠŠ!ŠϠ""ĠԠ٠ĠΠ٠ǠҠԠӠŠŠԧӠ ˯ŠҠŠŠҠŠנŠɠΠ٠̠ΠϠĠӠ٠ԠŠΠ͡ ĠΠޠϠîɭӠǮ"ŠëϠРΠŠŠ ŠӠΠ ӠˠŠ͠׮֮îîĠҠŠȮĪ5ȅdn0000000000 00000 00000 LI` NG %NROUTINE IS NEEDED.2 &N BEAGLE BROS. IDEAW3:WW1:10:1(W(W2)20):1);"WORKING";1)KI1500W:TI:cW30100010:1:"DONE! THANK GOD!";:958:20L1 NTHIS IS A PAUSE!NROUTINE THAT CAN"NBE USED IN OTHER#NPROGRAMS WHERE A  $NPAUSE OR WORKI  x  D$(4)&N$"^^^^^^^^^^^^^^^"_NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$vD$;" SAVE";NAME$ DVILLE PUBLISHING COMPANY B0,96 UBD13,1439#zU770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240U780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96U` COPYRIGHT (C) 1979 BY WILLIAMS 38,14 HOLD1100:HOLD.13,14394U770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240U780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96U788,2:789,3:79HOLD150:HOLD#BIRD1372*8:13,14BIRDA7PBIRD1,14~"768,20:769,10:770:768,15:769,20:770#768,22:769,8:770,86BIRD1,14@7J13,14BIRDTHOLD1100:HOLD^BIRDh8r13,1439|7ȅd00000000000000000000 L` . TIP BOOK ::2:233uST$"THIS IS AN EXAMPLE OF A BILLBOARD DISPLAY....THAT KEEPS REPEATING....AND REPEATING......." L(37):SU$" ":ST$SU$ST$SU$:X1(ST$)40:L:(ST$,X,40)::5 FROM BEAGLE BROS  ~  D$(4),N$"---------------"(10)eNAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$|D$;" SAVE ";NAME$ D GOTO MENUM(F$)$300, 64 6C "","",""X "GAMES","1",""q "UTILITIES","2","" "EDUCATIONAL","3",""$ "GRAPHICS","4","". "SOUND OR MUSIC","5",""8 "NOVELTIES","6",""B 1L "GAMES","0",""=jLN;" DATA "NP(I):LNLN10:J0NP(I)dLN;" DATA ";Q$;DESC$(I,J);Q1$;CMD$(I,J);Q1$;FILE$(I,J);Q$qLNLN10zJ,I"UNLOCK ";PN$"SAVE ";PN$"LOCK ";PN$"RUN ";PN$D$"CLOSE EXECFILE"D$;"EXEC EXECFILE"20:SC$(NM,0)DESC$(M,I)UI)XNP(M)I1>]MNMMM1:510bD$;"OPEN EXECFILE":D$;"DELETE EXECFILE":D$;"OPEN EXECFILE":D$;"WRITE EXECFILE"e"2 ID$=";Q$;ID$;Q$:"3 PN$=";Q$;PN$;Q$l"DEL 1000,2000":"1000 DATA ";NMqLN1010%vI0NM:EXEC "::" EXEC":580L&C$"B"CMD$(M,I)"BRUN "::" BRUN":580|0C$"R"CMD$(M,I)"RUN "::" RUN":580:530D15:"DESCRIPTION (25 CHAR. MAX.) :"N17:1:"_________________________!":17:1SDESC$(M,I):FILE$(M,I)""DE"::"PRESS RETURN TO CONTINUE":R$::520FILE$(M,I)""ĺ"THIS WILL BE MENU #";NM1:NMNM1:CMD$(M,I)(NM):CMD$(NM,0)(M):FILE$(NM,0)"":DESC$(NM,0)"":58010:"TYPE OF FILE - XEC, RUN, UN";:C$C$(C$,1)C$"E"CMD$(M,I)""":DESC$(0,0)""E::10:"DATA STATEMENT ENTRY":34,3:I120:k"ENTERING MENU #"M" "DESC$(M,0)5:"NAME OF PROGRAM ":FILE$(M,I) FILE$(M,I)"QUIT"600*FILE$(M,I)"CAT"ĺD$;"CATALOG ** *****************************::"(HIT RETURN IF UNCHANGED)":"ENTER DISK I.D. LINE:":"";I$:I$""ID$I$:"NAME TO SAVE THIS PROGRAM UNDER: ";P$:P$""PN$P$M0:NM0FILE$(0,0)"":CMD$(0,0)PROG. DATA"tP19JwCM$(M,0)""Ģ19:11:" ; PREVIOUS MENU ":P18z|P:11:"A - ";(64NP(M));" SELECT PROG. ":35,17: BOTTOMOL1250150?************************* ** ENTER NEW DATA ---------------------";ID$;:(ID$)40ĺXJ"----------------------------------------"oL10:6:DESC$(M,0)yO34,6QT23:11:" CATALOG "^22:11:" NEXT PAGE "h21:11:"APE TO BASIC " r20:11:" / ENTER ********************** ** PROGRAM START ** ***************************** 6:::"**** FLEXIBLE MENU : BY DALE SALYER ****NESTED MENU FEATURE ADDED BY DAN TOBIAS ";(@:"------------------- ** PRINT NEXT PAGE OF ** PROGRAMS. ** ***************************** :IOLOL4:VT(IOL1)26 3:VT:(64I);:10:DESC$(M,I) INP(M)OL1: I "OLOL5: ,*** K187CM$(M,0)""F$CM$(M,0)::900: K155ĉ::I K175500^ C1CNP(M)150 (CMD$(M,C))0CMD$(M,C)"0"ġ:F$CMD$(M,C):900 19:CMD$(M,C);FILE$(M,C) : D$;CMD$(M,C);FILE$(M,C) ************************* ESC$(20,20),CMD$(20,20),FILE$(20,20)0 NP(20)@ (NM:A0NMV 2NP(A):B0NP(A){ <DESC$(A,B),CMD$(A,B),FILE$(A,B) FB,A PM0 Z300 K(16384) K128150 16368,0:CK192 K141ĉ::D$;"CATALOG": K160İ250:150)******** *************************** ** NESTED MENU FEATURE ** ADDED BY DANIEL TOBIAS ** FEBRUARY 6, 1982 ** ***************************** D$(13)(4):Q$(34):Q1$Q$","Q$$ D0ID$"WENATCHEE VALLEY APPLE COMPUTER CLUB"@PN$"HELLO" *************************** ** FLEXIBLE MENU PROGRAM ** BY DALE SALYER ** JULY 25, 1981 ** *********************          @ ŪՀԂԊՂŪЂ " AԀЪѪŪՀЊըT*@*@!F 0łШԨԪ@(@(T*@*@ŪՀłՂЪЂբT AՂ@ TŪՀԂԊՂŪЂ T *ԀЪѪŪՀЊըT*р@*!@F`łШԨԪ@(@(T*@** ԪłШŪՠЪЂբT AՂ@ TŪՀԂԊՂŪЂ T *ԀЪѪŪՀЊըT*р@*!@F`ŪըШՊժłШբ@(@(T*@** ԪłШŪՠT Q U  A(Ղ@ U*T U  @р(* @ FyԊŪըШՊժłШբ A(P @ A(P           `dF( 0000000000(00000400000 LL5TO AN ASSEMBLY ROUTINE ","THAT WAS TAKEN FROM AN 'ASSEMBLY LINES'","ARTICLE BY ROGER WAGNER-SOFTALK" n22:"TYPE A KEY";:756:: x"BLOAD BSOUND MAKER" D::10:100,9:"TONE","DURATION"<D525515MP255515Z768,P,Dn10:" ":10w(P,D2P:Dd d"THIS PROGRAM SHOWS THE EFFECT ","ON THE SOUND PRODUCED BY THE APPLE","WHEN DIFFERENT TONES AND DURATIONS ","ARE POKED IN5))255):0,I2551:3,1((Q255(Q255))255):2,Q2551:16194:I50:110:I165:110:M120:I123:110a ZI145:110:I128:110:I123:110:D$"":D$;"RUN HELLO": dQ32767(40I)M:0,1((I255(I255))255):1,I2551:4,1((Q255(Q255))255):5,Q2551:16128:C nI26I19:Q32767(16I)M:1,1((I255(I255,964 2M35:I250:110:I165:110:M120:I123:110g <M5:I250:100:M10:I165:100:M70:I123:100 FM45:I250:110:I123:110:M90:I137:110:M12:I250:100:I123:100:M24:I137:100:# PM45:I110:110:I137:110:I165:110:I222:110:M20:I22,165,7,233,1,133,7,208,220,165,5,133,7,165,6,233,1,133,6,208,208,96,165,0,133,4,165,1,133,5,165,2,133,6,165,3,133,7,173,48,192,165,5,233 (1,133,5,208,250,165,4,233,1,133,4,208,240,165,0,133,4,165,1,133,5,198,7,208,225,165,3,165,6,233,1,133,6,208,21DP::"BLOADPIC. #1 (HI-RES PG.2)":16304,0:16297,0:16302,0:16299,0m I1612816251:J:I,J:165,5,133,7,165,4,133,6,165,0,133,2,133,1,173,48,192,165,1,233,1,133,1,208,5,165,0,76,12,63,165,2,233,1,133,2,208,235,173,48,192,165,0,133     20000MYN$"Y"100PM"WHAT DID YOU SAY? Y OR N PLEASE.":YN$:YN$:19910[ N216,0p!N"RUN SELECTOR"/u TIC-TAC-TOE VERSION 1/790u COPYRIGHT (C) 1979 BY WILLIAMSVILLE PUBLISHING COMPANY.X,PY(WY)(XPX(EX)):X,PY(WY)(XPX(EX))1X7WPY(EX)3,PY(EX)3PX(WY)3wPY(EX)3,PY(EX)3PX(WY)3PX(WY)2,PX(WY)2PY(EX)3PX(WY)2,PX(WY)2PY(EX)3M"ERROR: DO YOU WANT TO CONTINUE? ":YN$:YN$MYN$"N"390F"I WIN! I WIN! DO YOU WANT TO TRY AGAIN? ";:YSN$:YSN$Y YSN$"Y"ī100mYSN$"N"ĉ::YSN$"N"ĺ"SAY YES OR NO ";:YSN$:YSN$:780"THANKS FOR A DELIGHTFUL VICTORY. BYE." "RUN SELECTOR"XPX(EX)3PX(EX)3*<MOVE(1,WN)MOVE(2,WN)MOVE(3,WN)6Ġ1:1,38PY(WN):770yMOVE(WN,1)MOVE(WN,2)MOVE(WN,3)6Ġ1:1,38PX(WN):770WNMOVE(1,1)MOVE(2,2)MOVE(3,3)6Ġ1:X138:X,X:X:770MOVE(1,3)MOVE(2,2)MOVE(3,1)6Ġ1:X138:39X,X:X:770100:YSN$"N"ĺ"TYPE 'Y' OR 'N'. ";:YSN$:YSN$:655m"THANKS FOR A PLEASANT GAME. GOOD-BYE.":800Q13:MOVE(Q,Q)0MOVE(Q,Q)2:EXQ:WYQ:2000:700QP13:MOVE(4P,P)0MOVE(4P,P)2:EX4P:WYP:2000:700PWN13MOVE(3,3)18660:lMOVE(3,1)MOVE(2,2)MOVE(1,3)18680RvEX132:WY132~MOVE(EX,WY)0MOVE(EX,WY)2:2000:700WY:EXMOVE(2,2)0MOVE(2,2)2:EX2:WY2:2000:700"I GIVE UP! DO YOU WANT TO TRY AGAIN? ";:YSN$YSN$"Y"OVE(TS,1)MOVE(TS,2)MOVE(TS,3)18EXTS:580a0MOVE(1,TS)MOVE(2,TS)MOVE(3,TS)18WYTS:600n:TS:610DWY13:MOVE(EX,WY)0MOVE(EX,WY)2:2000:700NWYXEX13:MOVE(EX,WY)0MOVE(EX,WY)2:2000:700]EXbMOVE(1,1)MOVE(2,2)ȁd2K00000000000000000000L` L L0` C *" * & *; * PROGRAM *T * BY *m * DAVE * * HOFFMANN * * (C) 1982 * * MICROSOFTWARE * * WENATCHEE WA. * *********************************D 96,3,2,76,3,0,174,245,208,202,9,240,3,1,206^ 208,202,9,240,3,1,206,5,208,136,192,48,173o TN101001{ 768,TN 769,10 770 ,:D$(4):::D$;"RUN HELLO"  ******************* * GRAPHICS * * MUSI/::D$(4):16304,0:16302,0:16299,0> I770790LJ:I,J:g 173,48,192,136,208,5( 206,1,3,240,9,202,208- 245,174,0,3,76,2,3,962TN100101<768,TNF769,10P770ZdnI770790xJ:I,J:-   }  D$(4)+N$"<><><><><><><><><><>"dNAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N${D$;" SAVE ";NAME$ D5,D,171,86,42,D#, 161,81,40,EB,161,81,40,E,153 ,76,37,F,144,72,35,F#,136,68 ,33,GB,136,68,33,G,129,64,31 ,G#,122,60,29,AB,122,60,29 2A,115,57,27,A#,108,54,26,BB,108,54,26,B,102,50,24,C,96,47,23dI  NOTES AND OCTAVE NUMBERS< FOR THE APPLE SPEAKERV::17:"OCTAVES":3"NOTE";5);"1'ST";5);"2'ND";5);"3'RD"I118 A$,T1,T2,T3A$;8);T1;5);T2;5);T3# ( C,192,96,47,C#,180,91,45 ,DB,180,91,4  _9) d16368,0::: NEW : END K THE END E));F$;5);"PADDLE-1=";3(G$));G$d 12:4:"PADDLE-2=";3(H$));H$;5);"PADDLE-3=";3(I$));I$ 2A(16287):B(16286):C(16285) 7X$" ":Y$" ":Z$" " <A127X$"ON" FB127Y$"ON" PC127Z$"ON" Z19:9);X$;9);Y$;9);Z$55"e (15):" CHECK BUTTONS - PRESS TO SEE IF O.K.":23:2:"PRESS < SPACE > KEY TO EXIT PROGRAM." 18:2);"SWITCH #0 SWITCH #1 SWITCH #2" E(16384):E160ī100 F$((0)):G$((1)):H$((2)):I$((3))" 10:4:"PADDLE-0=";3(F$M; PADDLE TESTER I n BY DAVE HOFFMANt: ::5:5:"THIS PROGRAM TESTS THE RANGE":5:"OF YOUR PADDLES OR JOYSTICK." 2:"NORMAL RANGE OF DISPLAY IS 0 TO 2   D$;" SAVE ";NAME$,D1 ' 2 ( CHANGE LINE 30H ) TO LOAD, OR RUN` * A BACKSPACED FILE DbTHIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"THE FOLLOWING FILES"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$ LG:K3 =Z1(10(1).5):PP(Q):W130:W:Z: >II ZI1(B$)P d8s iC$(B$,I,(B$)1)(B$,1,I1) (C$,40) Z1(10(1).5):PP(Q):W130:W:Z K1LG:K I 90 L APPLES...AS MUCH AS WE DO!!!...COME TO WENATCHEE'S APPLE BLOSSOM FESTIVAL IN MAY...THE APPLE CAPITAL OF THE WORLD!...BOTH KINDS!" 4(B$)40B1 5(B$)4055 6B$B$".....":60 7J140(B$):B$B$".": <I140:8:41I:(B$,I);" ":K1 TICKER TAPE+ SEE B$ IN LINE 50C TO CHANGE MESSAGEK:TLG1\ B0k Q16336:J12:J42:I140:"*";::: 2B$"...WE AT WENATCHEE VALLEY APPLE COMPUTER CLUB....HOPE YOU ENJOY THE I.A.C. DISK...APPLE ORCHARD...AND  16,254,16,161,8,171B ;4,215,4,192,8,171,6,161,2,100,8,192,4,229d <4,215,8,192,8,171,32,215,255~ FN080:D:S0N,D:N D253: 6 136,208,12,165,253,201,100,240,3,173,48,192,164 ~ 7 253,136,198,255,208,223, 198,254,208,215,198,252 8208,207,230,249,230,249,24,144,179 9 16,215,16,107,8,113,4,143,4,127,8,113,6,107,2 : 100,16,215,16,127,24,143,8,100,(126):S0S1S22561C D$:D$:A1(125):A2(126):A0A1A22561i (250,A1:251,A2:S0:"CATALOG": 3 1,96,133,252,200,177,250,133,253,166,253 4 164,253,136,169,32,133,254,169,255,133,255,202 5 208,11,165,253,201,100,240,3,173,48,192,166, :"CELESTE MUSIC DEMO"N :"CREATIVE COMPUTING"::"MARCH 82 PG.134" 1,`ȱ d0 d0 2,kqqkddd  :D$:S1(125):S2   D$;" SAVE ";NAME$,D1 ' 2 ( CHANGE LINE 30H ) TO LOAD, OR RUN` * A BACKSPACED FILE DbTHIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"ARE CAN BE 'BRUN' "NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$  0(Y6.1)):X,YJ (I135:X:Y:X(100(X8.1)):Y(80(Y6.1)):X,Y:o 223:10:"***ABRAHAM LINCOLN***"u < d COORDINATE TRANSFORMATIONS , OF REAL NUMBERS  TO HIRES POINTS  BY DAVE (1982)   ::-5,-12,-6,-11,-5,-11,-6,-9,-3,-8,-4,-6,-10,-8,-12,-10,-12,-9,-11,-7,-8,-4,-9,-3,-8,-2,-8,-1,-10,-1,-7,2,-6,3,-5,2,-4,2,-6,3,-6,4,-5,5,-7,6,-4,6,-2,13,8,9,4,2,7,-1,4,.5,4,-2,6,-4,6,-6,5,-6,6,-8,8,-10,8,-12 :X:Y:X(100(X8.1)):Y(8  150S.25.A$"APPLESINE "6X1NR0103.1415927Sk(2010(R)):(A$,X,1)u"XX1#X(A$)X1(2:3 SD$;" SAVE ";NAME$ ' / ( CHANGE LINE 30E ) TO LOAD, OR RUN] * A BACKSPACED FILE D_THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"THE FOLLOWING FILES"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   ANY KEY":756: H ASCII SREEEN DISPLAY6dH$"0123456789ABCDEF"_n:4:I116:" ";(H$,I,1);::34,2x:I116:" ";(H$,I,1)::33,32:32,4::I0255I17JI64I63ğ:JII127ĝ:JI64I159JI (J);" ";:JJ1:::" HIT ELECTOR":1000  INITIALIZE$0&770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,2020782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0:D$"":D$;"RUN S"YOU HAVE THROW A PERFECT SCORE!!!":490_ TS27ĺ"YOU ALMOST THREW A PERFECT SCORE!!":490 TS17ĺ"YOU HAVE DONE WELL!!!":490 "I THINK YOU NEED MORE PRACTICE..." "WOULD YOU LIKE TO TRY AGAIN? (Y/N) "; A$:A$"Y"190 ::23S2 ^Y18Y21S32 hS1370,400,390,380R r768,255:769,255:770:410k |768,80:769,40:770 768,100:769,40:770 768,120:769,40:770 TSTSS BB1 :(21):"SCORE = ";TS;" DARTS LEFT = ";B B0230( TS30ĺD$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"CAN BE 'BRUN' OR YOU"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   J76KQ4L"MQQ1-NQ8ĀzP::16304,0:16302,0:16297,0:X2:Y2:XRX2:XLX2:YTY2:YBY2:QZFF1:XLXLF9:XR,YTXL,YT:YBYB2:XL,YTXL,YB:XRXR2:XL,YBXR,YB:YTYTF20:XR,YBXR,YT:90Q805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF01ES(I)S3L(I)C1# P1ME4A(I)A(I)P1EH(I)12300K(])B(I)11330."STAND ";I;:" BANKRUPT":18000/139025000FA(I)C1001390P"STAND ";IU:" ...YOU DON'T HAVE ENOUGH MONEY LEFT"Z" TO STAY IN B32350I1N%A(I)0A(I)04R221260GP(I)P91220dN1(P9P(I))P9.8S2S2n1230N1((P92)S2P(I)2)WS(I)C9V1((W)C2)N2R1(N1(N1V))N2(N2G(I))N2L(I)1270N2L(I)MN2P(I).:SC10(1).252300Fj"$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"Loft768,152:769,80:770v768,128:769,160:770x768,152:769,40:770z768,144:769,80:770|768,128:769,200:770 CALCULATE PROFITSR222290R3ONADE ";P(I),P(I)0P(I)100102261024b"COME ON, BE REASONABLE!!! TRY AGAIN."l1010P(I)(P(I))1022C51105023:"WOULD YOU LIKE TO CHANGE ANYTHING?";A$$(A$,1)"Y"ė:C51:810LMIVC50::`950S(I)(S(I))963;S(I)S3A(I)L(I)C11010A\STIA(I)L(I)C1:4000"THINK AGAIN, YOU HAVE ONLY ";STI$"IN CASH LEFT AFTER MAKING YOUR LEMONADE."950:"WHAT PRICE (IN CENTS) DO YOU WISH TO""CHARGE FOR LEM);" GLASSES OF">"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(ID$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"CAN 'BLOAD' THEM AND"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   AI ::3:A8008:B80A:C06.3.1:D0ēA(C)140,B(C)80:D1pA(C)140,B(C)80::D0::24X11000:(::3:X(21),Y(21):T221:X(T)78(.314T)140:Y(T)78(.314T)802:T221:QT21:X(T),Y(T)X(Q),Y(Q):::24 VALUE = ";VMNMN1-ML%(MN)LOC9DI18JZLOCD%(DI)^B%(Z)PC4920mZZD%(DI)B%(Z)PC4860B%(Z)CC4920ZZD%(DI)$ZLOC4920.B%(Z)CC:48908DI:B%(LOC)CC=Z1289BO%(Z)B%(Z)LPC2590' ZZD%(DI):O%(Z)PC2540; O%(Z)CC2590U ZZD%(DI):ZSQ2590j O%(Z)CC:FLFL1t 2560| DI( O%(SQ)CC2 PV0:CV07 Z1289< O%(Z)CCCVCVE%(Z)F O%(Z)PCPVPVE%(Z)P ZZ VCV:MN42VVFL2 d "Z397910:E%(Z)12:Z 4800,DI18<ZSQD%(DI)PB%(Z)PC2080_ZZD%(DI)rB%(Z)PC2040 B%(Z)CC20802110 DI*I142120>I0H Z1289:O%(Z)B%(Z):Z FL0 DI18  ZSQD%(DI):O%(Z)6210:E%(Z)12:ZhLOC19āZ1418:E%(Z)12:Z:Z296910:E%(Z)12:Z:E%(27)12:E%(28)12:E%(38)12LOC82E%(63)12:E%(73)12:E%(74)12:Z8387:E%(Z)12:Z:Z327210:E%(Z)12:ZLOC89E%(77)12:E%(78)12:E%(68)12:Z8488:E%(Z)12:Z:\22:34,21bSQ1289#lV0-qTMSQAsB%(SQ)01950UvB%(SQ)0İ2010dI0İ2510sI01950VOVOVV:OTTMVOVĭ(1)0.7OVV:OTTMSQLOCOTLOC12E%(33)12:E%(23)12:E%(24)12:Z1317:E%(Z)12:Z:Z22147Z1219!Z107010-Z2ZZ1XB%(Z2)0Ē0:2Z3,Z4:3:B%(Z2)Z3,Z4eZ4Z417mZ1&Z4147:Z3Z3220Z56(WMCC)(OG1)64908OG15140:(F$,1)"Y"5720X"I'M THINKING OF A MOVE.":OV999999Z: ,22,0J:3:0:1%TZ41217224^Z,9Z,149;hZLrZ1114717\|39,Z219,ZcZzZ110:Z2314217Z133,Z:Z1225,ZZ1Z11ZZ13:Z4920422:Z1Z,8:Z1Z,157Z1Z11Z17601846Z341:Z4,32,28,63,9,9,24,36,59,63,50,0N9,33,36,36,36,18,51,51,51,14,24,45,45,13,0|48,41,45,32,36,59,63,15,36,20,45,45,21,041,45,32,28,63,63,49,54,8,24,8,24,12,12,45,0,33,36,33,33,33,20,63,63,23,0@41,45,32,28,63,23,54,8,24,8,24,36,41,45,506,53,54,54,54,54,54,37,36,36,36,36,36,44,54,54,5454,54,54,44,36,36,36,36,36,52,46,54,54,54,54,38,37,36,36,36,36,46,54,54,54,54,44,36,36,36,52,46,54,54,041,45,27,36,36,36,20,19,30,045,45,29,27,27,36,12,45,13,24,36,59,63,50,0 48,41,45,36,36,33,33,41,45,40,45,21,45,21,21,21,54,54,30,30,30,63,23,63,63,56,63,56,56,019,9,8,24,8,24,8,24,36,36,12,12,12,45,13,24,45,45,42,45,42,42,50,54,54,51,51,59,63,58,63,15,24,63,15,24,15,24,39,37,36,44,54,54,46,36,36,36,52,53,54,54,54,46,36,36,36,36,3D$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"'CALL' THE ADDRESS "NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$   X ::12X770790:B:X,B:: 173,48,192 ,136,208,5,206,1,3,240,9,202 ,208,245,174,0,3,76,2,3,96 "FREQUENCY (1 TO 255) ";F:"DURATION (1 TO 255) ";D:768,F:769,D:770::"ANOTHER TONE (Y/N)? ":A$:A$"Y"2 i d@2(000000000000(0000004000000 L} `0 SCREEN B1B1%B39B392A1A1AA39A39[ BLANK OLD CURSOR l0:A1,B1:3 PLOT NEW CURSOR  A,B630 A7A:BB19240* CHANGE SCALE TO HGR2 4::> THE END. SITION THE ORIGIN WITH THE L R U D & F KEYS Ml:3:20,20:B20:A20UvA$cA1A:B1BzA$"U"BB1:710A$"D"BB1:710A$"L"AA1:710A$"R"AA1:710A$"F"800  CHECK TO SEE IF POINT IS ON THE LO RESRT")24:14:"TYPE ANY KEY":A$:"":=(7);(7);(7)::" REMEMBER :":"60 DEF FN NUM(X)=";::" LEGAL BASIC EXPRESSION"0:"70 DEF FN DEN(X)=";::" LEGAL BASIC EXPRESSION":"TYPE 'RUN 60' TO RESTART":I12000:D8303X POWISH TO GRAPH"."THE FOLLOWING FUNCTION :"I::" (X-1)(X+2)"`" Y = ----------"u" X(X-7)"::"YOU WOULD TYPE THE FOLLOWING""60 DEF FN NUM(X)=(X-1)*(X+2) ""70 DEF FN DEN(X)=X*(X-7)""TYPE 'RUN 60' TO RESTAANT TO SHIFT THE":"ORIGIN OR CHANGE THE SCALE (Y/N) ? ";A$SA$"Y"A$"YES"90[60:"DIRECTIONS FOR RATIONAL FUNCTIONS""YOU MUST DEFINE YOUR FUNCTION ":"IN TERMS OF A NUMERATOR AND A":"DENOMINATOR FUNCTION""FOR EXAMPLE: IF YOU ILL ON THE SCREEN C,JV191V03505TH,V<^HBh:`r POKE BOTTOM OF GRAPH r|16302,0:A$z:I14:(7)::12"DO YOU WISH TO CHANGE THE FUNCTION BEING GRAPHED (Y/N)? ";AN$:AN$"Y"440:12;"DO YOU W279 :G  TRANSFER THE HGR COORD. TO THE REAL VALUE _ X(HA)S:DDEN(X)e : " DRAW THE ASYMPTOTES ,D0Ē3:H,0H,191:7:350 6YNUM(X)D:VBYS ;: @ TRANSFORM THE REAL Y ATO HGR & SEE IF IT IS BSTSTANCE" :7. REAL AXIS AT (A,B) H 0,B279,B:A,0A,191b HASH MARKS HA279S:H,B2H,B2: HA0S:H,B2H,B2: VB191S:A2,VA2,V: VB0S:A2,VA2,V: : ACTUAL GRAPHICS  H0 POSITION THE ORIGIN : S IS THE SCALE FACTOR ] DETAIL INCREASES WITH S 21:"AFTER THE BOTTOM HALF OF THE GRAPH IS ","FINISHED >> TYPE ANY KEY!" I13000:::22 "THERE IS A HASH MARK (/) ON THE AXIS FOR EACH UNIT OF DIS":, Y14:"I N H I - R E S":I13000:{ Z:23:"THERE ARE 280 HORIZONTAL DOTS. HOW MANY DOTS/UNIT DO YOU WANT? ";S _ d21:"CHANGE THE LOCATION OF THE ORIGIN BY","MOVING THE CURSOR WITH THE L-R-U-D KEYS","F=FINISHED!" x620: RE **) ** ** H *************************N 2:] <NUM(X)Xp FDEM(X)(X2)v K: P DEF FN DEN(X)=1>> IF YOU HAVE A NON-RATIONAL GRAPH U: V: X12:6:"G R AP H I N G F U N C T I O N - GRAPHING HGR FUNCTIONS L *************************k ** ** ** GRAPHING RATIONAL ** ** FUNCTIONS **** ** ** (C) 1982 ** ** MICRO SOFTWA     AY" "CONTROL RODS- ";A%,*"COOLANTS"W4"EMERGENCY LEVEL- ";EV%;"FLOW - ";EF%>"PRIMARY LEVEL - ";PV%;"FLOW - "PF%H"SECONDARY LEVEL - ";SV%;"FLOW - "SF%;R(100RL)5ĺ::"REACTOR FUEL EXHAUSTED":4000 GET NEW CONTROL VALUES  MELTDOWN!"::3000%"INDICATORS"I"REACTOR TEMP. (MAX.800) ";RT%u"HEAT EXCHANGER TEMP. (MAX. 500) ";XT%"COOLING TOWER TEMP. (MAX. 300) ";CT%"POWER OUTPUT (MAX.2000) ";GO%;"KW"KW%TTDAY%"AVERAGE POWER OUTPUT ";KW%;"KW/DPB%ĺ"PRIMARY COOLANT PUMP FAILURE - ";10PD%(PD%10)100(PD%10);"%"SB%ĺ"SECONDARY COOLANT PUMP FAILURE - ";10SD%(SD%10)100(SD%10);"%"XB%ĺ"HEAT EXCHANGER FAILURE"GB%ĺ"TURBINE FAILURE":RD%Ğ::"MELTDOWN! MELTDOWN! D$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"DONE WITH D. FUDGE'S"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$    1000L( L `2(  PROGRAM *** BY *C* DAVE *\* HOFFMANN *u* (C) 1982 ** MICROSOFTWARE ** WENATCHEE WA. ********************HD GROW "; "AS YOU MOVE. START OUT AT AN EASY","LEVEL SINCE IT CAN GET","DIFFICULT QUICKLY!":23:15:"GOOD LUCK!":15:"TYPE ANY KEY";:AN$:: ******************* * GRAPHICS * * MUSIC * * & ** X0X693000 (  INSTRUCTIONS :5:"YOU USE THE EDIT KEYS (I-J-K-M)","TO TURN YOUR SNAKE SO THAT YOU EAT","THE OPEN SQUARES WHILE AVOIDING THE","WALLS, THE SOLID SQUARES, AND HITTING","YOURSELF. YOU START OUT AS THE CENTER","WHITE SQUARE AN: :I76767703:A:I,A::232,252:233,29:: 2,0,6,0,19,0,45,45,37,36,63,63,55,46,45,37,63,63,0,45,45,37,36,63,63,55,14,0 ::12:17:HTW100"%":PAUSE11000:PAUSE:16368,0:2 G(XLYK): JXH,YI1:XLYK,J: Y0Y31G2HTHTJ! HTWG130000 4010:150c ::16302,0:1:16:7:X35:Y16:4010:IJWv 800:G0711 4010 800:G0730 XLYK,2:2XH,YI1::0,00,191279,191279,00,0:X35:Y16:150 Y((1)32):X((1)69):4000N$"Y"İ5000 2000d :::Z14:16368,0:"ENTER LEVEL OF DIFFICULTY (1 - 30)";LE:WLE2:700p dYYJ:| nXXJ: xXXJ: :150 YYJ: IJ60W2I1:Z(16384)::ZMZOZNZ1ZP Z1100,110,120,130,140:4020:4000 :D$(4):D$;"BLOAD SNAKE LOGO":PAUSE13000:PAUSE:::12:15:"S N A K E"::18:"B Y":18:10:"D A V E H O F F M A N ":X13000: H4:I16:J1:K16384:L70:M200:N204:O206:P200:::12:"WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";AN$:A   Ղՠ(@ @ @(U@ " @   (@( @  P* @" (U@ ( @P@*U BG (U*( " @@U(U @P@*@  @ @ @ @*T*U @@$D@GGHB$"@  ԀрԂр(T(@ (U@ "ԊԀ"*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@P (@  @@  P*@(@ (U@ ( @P@*U "$@ *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*" @@U(U @P@*@  @ @ @ @*T*U @@*D@HH@HB$""@ @ ԀрԂр( @ (U@ "ԊԀ"(U* @   "   "P @ (U@ ( @P@*U  #$$@ " @ @ @  (U@* @ @P @1DHHHHHB$"@  ((P"  "P P*U ((   "(  (" @ @ @ @P @  BCC "@ @ !! ! ! ! ! !!!!!!!!!        34,37,34,38,33,38,32,38,31,38,30,38,29,38,28,38,27,38,26,38,25,38,24,38,23,381v 22,38,21,38,20,38,1 9 ,38,18,38,17,38,16,38,15,3 8,14,38,13,38,12,38,12,37 1:231A,8,27,70b 28,7,29,7,30,7,31,7,3 2,7,34,10,32,13,34,16,35,16, 35,17,35,18,35,19,35,20,35,2 1,35,22,35,23,35,24,35,25,35 ,26,35,27,35,28M1l 34,28,34,29,34,30,35,30,35,31,35,32,34,32,34,33,34,34,34,35,34,36, ,2 0,3 5,20,34,20,33,20,32,2 0,31,20,30,20,29,20,28,20,27 ,20,26,20,25,20,24,20,23,20, 22,20,21 0X 21,21,22,21,23,21,24,21,25,21,26,21,27,21,27,20,27,19,27,18,27,17,27,16,27,15,27,14,27,13,27,12,27,11,27,10,27,9,270:J:I.N 4,35,4,37,5,35,5,36,5 ,37,6,35,6,36,6,37,7,36,8,36,9,36,1 0,36,11,36,12,36,12,35,12,34 ,12,33,12,32,13,32,14,32,15, 32,16,32 /S 16,33,16,34,16,35,1 6,36,17,36,18,36,19,36,20,36 D$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"'HI-RES SECRETS' PKG"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$ " " x000000000000000 000000L `?" $"1013,76:1014,165:1015,214dM"