L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-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- ( t Ϡ@跻~!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`B(J)B(I)ī30 J' R$A$(B(I))< I,B(I),A$(B(I))C I ::"THE PROGRAM GENERATED ";SUM;" ADDITIONAL NUMBERS"I I18 COUNTERI7B(I)(((1)8))1E#COUNTER0U(A$(1)"TOM"e2A$(2)"ABE"u<A$(3)"SAM"FA$(4)"JIM"PA$(5)"JOE"ZA$(6)"JACK"dA$(7)"JAKE"nA$(8)"PHIL"xI1ī155J1I1COUNTERISUMSUM1  ӍӍ̍Ӎԍ΍Ӎҍҍ΍ȍӍō΍ӍӍōōōԍҍӍЍ č΍׍ЍԍōōԠԍҍ čҍٍ׍ԍԍˍ  (B(I)) II I18)B(I)(((1)8))19(A$(1)"TOM"I2A$(2)"ABE"Y<A$(3)"SAM"iFA$(4)"JIM"yPA$(5)"JOE"ZA$(6)"JACK"dA$(7)"JAKE"nA$(8)"PHIL"xI1ī155J1I1B(J)B(I)ī30JR$A$(B(I)) I,B(I),A$    J(((1)9)))A$(1)"TOM"9(A$(2)"ABE"I2A$(3)"SAM"Y<A$(4)"JIM"iFA$(5)"JOE"zPA$(6)"JACK"ZA$(7)"JAKE"dA$(8)"PHIL"nR$A$(J)xR$J  l )"PRESS ANY KEY TO CONTINUE."3ANS$D(ANS$" "40J2P<dF"YOU MADE IT!"jP A  ٍԍčٍč   1218#)("JOHN"/2=<K12000DFKLP12TZ18`d"JOHN"nnK12000uxK{ K ҍ͠ǍϠٍ̍ō΍̠̍Ӎ͠ǍӍ΍ '%'%%/<%%/<,,<,<%%'%/,'%'=?7?>777??'--7?>7?>'--.>57575757>4??,<, -,,%%%%%%')< %'%'%'''''???7775;.>->IIIIIIR->7-@-<'---5??7--5??'$57-57->57-5??*-5;?7-->7).>-5??.-5;?-.%')< %'%%' ???-- )%????,--%;????*W*U*U*u*U*U*U*U*U*U*U*U*U*U*U*$$$$$$$$$$$$$$$$.6666666666666666$$$$$$<66666666?,-%-%-%='$$$$$$<6666666666.$$$$$$$L?.?>?7?7?6.,ee,<,?>'$$$<6666.66 $$$,5?.-I %'%%')< -,--.->5757575?.>>>7????8<<<,'%'%'%')< %'-,< %%%'),,,$%%'%'%'%'%;.>..>.>..>66575757575.>5>..>.>.>@P2Dct<\Wh%g%---.>.>>>??<<III$$$$$$$$$$$$5666666666666 6.$$56.$$56.$$@@@@@@@@@@HI9<<<<<<@@@@@@@III ''''''''6666666666666.$$$$$$$$$$$$$$ ,,,,,,,,R,,,,,,,,666.$$$$    ZE343180F:10:"GETTING THE MENU PROGRAM":(4);"RUN MENU"R1023,9Z: 2,13,15,17,18,20 C16`H"WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"pR:"3) END"\13:"PLEASE ENTER 1, 2, OR 3 ";:868fZM16:40000:ZEZNpZE0ZE443140z:"PLEASE ENTER A NUMBER 1 - 3":43100ZE1Ĭ,10,12,13,15,17,18,20+@CH(36):CV(37)SA"";ZN$:(ZN$)(((ZN$)))40003pB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:::52202x1P,LLL:3P,LLL:24(L56)P,LLL:PP238y}R,166:R1,0:R2,160:R3,0:R4,202:R5,208:R6,5:R7,173:R8,48:R9,192}R10,166:R11,0:R12,136:R13,208:R14,245:R15,198:R16,1:R17,208:R18,239:R19,96: 3,5,6,8LL:PP12!w10P,56LL:PP124wPP(K)1220:wwPxZ1$"E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F5G5A5B5C6D6E6F6G6A6"ZxZ125492_x(N$,1,2)(Z1$,Z1,2)30830dxZ1nxZ1(Z11)212:L84Z14xL8030898xT680L8:P4,T6P13,T6:T62v9P,36LL:PP12-v9P,56LL:PP12Cv9P,44LL:PP12SvPPK1220YviBwPP(K)12Vw(K)30610,30600,30590,30580,30570,30560`w10P,52LL:PP12jw10P,64LL:PP12tw10P,48LL:PP12~w10P,60LL:PP12 w10P,44) uR:Z)uZ1D100(D100255)255;u0,N(N):1,Z1BuRHuXu13P,64LLc vPP25ivx\vK030430pvK030530vPPK12vK30410,30400,30390,30380,30370,30360v9P,48LL:PP12v9P,64LL:PP12v9P,52LL:PP1fqN(24)pqZ024:N(Z):Z|q200,189,179,170,160,151,142,134,127,119,112,106,100,94,89,85,80,75,71,67,64,60,56,53,50 q0u1:0:1:LL0đbuZ40728:1,ZLL279,ZLL:Zu3:uD10025530160u0,N(N):1,255uZ1(D1002551,2)*a(A(TT)WW)7A(TT)WWF0870kbWW.2:F2Ĕ9(K0)P,(11A(TT))436LL4(K0):PP15:870c11P,(11A(TT))436LL:PP15:870f30800:TTLL0:24:"PRESS 'SPACE BAR' TO CONTINUE.";:A$::HqR300WqP3\q32000 4TT111:B(W1)C(TT)F2:822.5TT:825T611P,(11TT)436LL:PP15:817t9TT111:B(W1)D(TT)1828|:TT<TTTT(K0)>9(K0)P,(11TT)436LL(K0)4:PP15:F3:817R3:W15900WWWTT\TTW115:N$(N1$,A(TT)2PERCENT.":1000:43000U 23:958:"PRESS 'RETURN' TO SEE WHAT WAS PLAYED.";:Z$:x*LL55:P0:30000:30200:30300+TT1W11:N$(N1$,A(TT)21,2):30800:TT:2/TT111:B(W1)D(TT)F0:8170TT:8201N$(N1$,TT21,2):30800:850! "ė:550!W$"2"İ460::503cW$"1"B(W1)B(W1)(W2)W3:460::B(W1)B(W1)(W2)W3:503l503:"CORRECT"::BB1:800:503&T0:::5:"YOU ANSWERED ";B;" OUT OF ";P1;" CORRECTLY":D"FOR A SCORE OF ";(B100P1.5);" AS WRONG - 2, 3, 4, OR 5";:M$.M$""500<460:470N(M$)W1520q"NO, THAT IS NOT RIGHT.":800:21:"PRESS '1' TO HEAR THE FIRST LINE,":"PRESS '2' TO HEAR THE SECOND, OR PRESS":"'SPACE BAR' TO CONTINUE. ";:16368,0:W$ W$"W3((1)21)2B(W1)5W20B(W1)17W20432KB(W1)B(W1)(W2)W3{21:"PRESS RETURN TO HEAR THE MELODY";:W$460:470T115:D2:NB(T1):30100:T1D1::24:"PRESS RETURN TO HEAR MELODY AGAIN";:121:"WHICH NOTE W4:D(8)16D(4)9:D(11)21*D(7)14CD(3)7:D(10)19:430e(K)422,421,420,419,418,417qD(7)12D(4)7:D(11)19D(1)2:D(8)14D(5)9D(2)4:D(9)16D(6)11T115:B(T1)D(A(T1)):T1W1((1)42):W2(1).5:J(A(T1)A(T11))I113206KA(T1)A(T11)320]MV8(A(T1)A(T11))V9(5T1)320xNV8V8(A(T1)A(T11))TN$(N1$,A(T1)21,2):30800^T1(K)2416,430,403K409,408,407,406,405,404D(2)6:D(9)18D(5)11 D(1) WHICH OF THE NOTES":7 "(2-5) WAS INCORRECT":1000E :T1P1h P1:V95I1:V80:30000:30200 SS111:D(SS)C(SS):SS K((1)(S1F11)F1):30300 ,A(1)((1)111) -N$(N1$,A(1)21,2):30800 6T125@A(T1)((1)111)"STUDY THE PHRASE. WHEN YOU ARE":U "FAMILIAR WITH IT, PRESS THE RETURN KEY.": "THE COMPUTER WILL PLAY THE PHRASE WITH": "ONE INCORRECT NOTE. THE INCORRECT NOTE": "WILL NOT BE THE FIRST NOTE. YOU WILL": "BE ASKED TO IDENTIFY I11159C I11Ģ22:"AN INTERVAL OF 1 IS NOT ALLOWED.":150M 958 20:"HOW MANY PROBLEMS WOULD YOU LIKE?";:868:40000:P1ZN P11160 :"IN THE EXERCISES THAT FOLLOW, YOU WILL": "SEE A FIVE-NOTE PHRASE WRITTEN OUT.":$ S THE GREATEST NUMBER OF SHARPS"::"YOU WANT IN THE KEY SIGNATURE?";:868:40000:S1ZNk S10S16130 13:"WHAT IS THE LARGEST INTERVAL YOU WANT"::"IN THE PHRASE ( A 2ND IS INDICATED BY": "A 2, A 3RD BY A 3, ETC. ?";:868:40000:I1ZN , ONE OF THE NOTES"::"WILL BE WRONG. YOU MUST DETERMINE":u ("WHICH OF THE NOTES (2-5) WAS INCORRECT.":1000:4 n3:"WHAT IS THE GREATEST NUMBER OF FLATS "::"YOU WANT IN THE KEY SIGNATURE?";:868:40000:F1ZN xF10F16110X 8:"WHAT Ip 8192129000:A(5),B(5),C(11):D1:ZM24^N1$"D5E5F5G5A5B5C6D6E6F6G6":LL0:D(11)sT111:C(T):T ::2:15:"WRONG NOTE":5"IN THIS DRILL YOU WILL SEE A PHRASE OF "::"MUSIC AND THEN HEAR IT PLAYED.":= "WHEN IT IS PLAYED                 025%WA18B$(B$,(B$)1):400255XB$B$(A1)MY(23):25:B$" "\ZM240015g[40009yPù600,A:601,CSÒ0:ME4,E5:E1E2,E3:(21)::(4);"RUN ODELLP2"ٺ13);(4);"RUN MENU"Z݀Z:3X,110"H(16384)12740020)IXMK0:3210,110:X2101602:M2kM0:2X2,110:3:2X,110N(16384)12740020OX:40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5110:VA113(A18(B$)1)B$"":40364ĔZ344Z1(Z1)7,Z2:300501@uZ33230050INuZ31Z1(Z1)7,Z2PbuZVlu@3:5110,118:B$"":A1$"":E15:E2110:E3118:2160,110:16368,0C(23):"WHAT DO YOU WISH TO DO? ";D0:2160,110EX1622102:M3 G0:3X2,110:3.:21:B12005,12007,12009,12012,12014S."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND EAT IT":."CHASE IT OUT OF YOUR TERRITORY":0uZ1(Z$):Z3((Z$,Z,1)) ?uZX19:10#9175<'16368,0:24:13:"PRESS SPACE BAR";U'(16384)12710010q'0:E1E2,E3:ME4,E5:*:::9:"REMEMBER A "A9$" WILL"::"EAT A "A$"."*:"NOW RUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000*9175(ME NICHE":-#"YOU HAVE BEEN SUCCESSFUL":9#C30ıs#:::11:"YOU PASSED UP TOO MANY CHANCES AT FOOD":#:" YOU STARVED TO DEATH."#10000#::12:"DO YOU WANT TO TRY AGAIN?";A$#(A$,1)"N"đ:::55555#(A$,1)"Y"OO LITTLE":8Z#"YOU ARE GETTING HUNGRY..BETTER EAT":n#"YOU CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY":s#"YOU GOT AWAY FOR THE TIME BEING":v#"NO.....THAT WAS THE WRONG MOVE": x#"GOOD, IT DOES NOT OCCUPY THE SA8:M2:@0:5110,118VEME4,E5:Y118:X1230E42:3:5110X,118:3E4X,118yG0:5110X,118:3E4X,118:XI3:5110X,118:E15:E2110X:E3118:(#"THAT WAS A WASTE OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.": P#"YOU ARE T5:E2X110:E3110:ALX1101242:0:5X,118:3:5X2,118:XmQ0:ME4,E5:XE41146:3:2X,118:0T2X,118:3:14X2,118:0:14X2,118V3:15X4,118:0:15X4,118:X0:5126,118:3:2114,118ZE12:E2126:E3118:E4114:E511110E4262:3:7X,Y:0'`7X,Y:XRc3:5E420,118:E15:E2E420:E3118:dl0:5110,118qm2E4,E5nX0220E44:3:7X110,100:3E4X,110:0p7X110,100:3E4X,110:Xq3:3E4X,110:M3:E4E4X:E5110r3:5X110,110:E12118:E35:E4114:E5118:M2:.p0:ME4,E5Zq3:XE41006:2X,118:0:2X,118:3s14X2,118:0:14X2,118:3:15X4,118u0:15X4,118:w5110,118:3:2100,118:E15:E2110:E3118:E4100:E5118:M2:X0:5110,118_Y100:X3:5X,Y:X1XFR1:XE4E4362:15X,Y5:0:15X,Y5:3:XU0:5X1,Y3:2X,Y:E15:E2X1:E3Y:E4X:E5Y:M2:0:5110,118X110:Y1181101:3:4X,Y:04X,Y:XX4:Y3:478,110:E14:E278:E3110:RE1124:EY1181502:3:5X,Y:0;5X,Y:Y10(Y10)XX6:Yb3:5134,150:E15:E2134:E3150:t0:5110,118(1).904005ME4,E5X110:Y1181402:3:5X,Y:2E4,Y:05X,Y:2E4,Y:Y10(Y10)XX6E4E46:E425XĂY06,2506,2506,2580,25066 B4500,5000,6000,7500,7500T B1R1R0:9075:11000s B1B2İ9075:10000:300 9078:10000:11000 510 :(21):"A MACKINAW TROUT IS IN FRONT OF YOU,":A9$"MACKINAW TROUT":25010:5110,118X110:B1B2B5İ9000:9050:10000:CC15:9150:300OB4İ9070:10000:300_10000:300:(21):"YOU SEE A RAINBOW TROUT IN FRONT OF YOU":501 :(21):"YOU FIND A DOLLY VARDEN VERY NEAR":A9$"DOLLY VARDEN" 40000:12000 A2506,25 B4İ9070:10000:CC5:9150:300@10000:CC5:9150:300NB5520j8000:9100:10000:300:21:"ALONG COMES A CHUB":501:21:"IN YOUR VICINITY IS A BLUEBACK SALMON,":4000012000:A4505B4000,5000,9080,7020,8000440000:12000-A530,520,530,530,510,510MB4000,5000,9050,7000,8000B1B2B5İ9000:9050:10000:CC15:9150:300B4İ9100:10000:C0:30010000:300B4000,5000,9030,7020,9040 B1B2İ9000:10000:CC5:9150:300$0000 301 ,S1S11:355* -S116< 6S(6(1)1)K @S21S11\ JSS(S2)310d TS2t YS(S1)S:S1} ^S11 cS1650000 dAS(S1)300 hS(S1)500,1000,1500,2000,3000,2500 :(21):"YOU FIND YOURSELF CLOSE TO A WHITEFISH"21" Z15:Z28:Z$"AS A":30000I Z142:Z28:Z$A$" YOU CAN":30000t Z15:Z216:Z$"1 ESCAPE DEEPER":30000 Z224:Z$"2 ESCAPE SHALLOW":30000 Z232:Z$"3 IGNORE IT":30000 Z216:Z1140:Z$"4 EAT IT":30000 Z224:Z$"5 CHASE IT":3000 5120,60T Z15:Z2100:Z$"THE FISH YOU ENCOUNTER WILL LOOK LIKE ":30000 2110,126:(21):"ALTHOUGH THE FISH ARE DIFFERENT SIZE IN" "REAL LIFE, YOUR JOB IS TO DISCOVER THE ":"ACTUAL SIZE OF THE FISH.":10000 ::3:1:0:11,55:TROUT","MACKINAW TROUT","DOLLY VARDEN": :X1A:A$:XH X19241 D$(4):D$"NOMON C":::10:" TRAVELING TO ODELL LAKE..." 8164:232,0:233,64:1:3:0 D$;"BLOAD SCENES ":: Z15:Z220:Z$"AS A "A$" YOU WILL LOOK LIKE":30A SITUATION. CHOOSE THE"2 7"OPTIONS BY NUMBER."_ <:"THE FISH YOU CAN CHOOSE FROM ARE:": P:X16:A$:" "X". "A$:X :"WHICH FISH DO YOU WANT TO BE ";:A$ A(A$) A1A610& "WHITEFISH","CHUB","BLUEBACK SALMON","RAINBOW X1(600):600,0:S(6)9 C0:::Z$""::X1960"YOU WILL ROLE PLAY A FISH. AFTER ROLE":"PLAYING ALL THE FISH YOU SHOULD BE ABLE""TELL THE RELATIONSHIPS BETWEEN THE FISH": 3"YOU WILL BE GIVEN 5 OPTIONS TO DECIDE":"WHAT TO DO IN         膢 ȱ " <67 L  8ij v vo> :X20:12,100266,100iB4857:BX,120:X,97X,103:XX24:49X,120:48X6,120:X,97X,1032:34,21::N0:A$"WEST":X30:Y60:20630:A$"EAST":X240:Y60:20630<23:868:"WHERE DO YOU THINK I A::8:" I AM HIDING ON A "B$Q "NUMBER LINE. TRY TO GUESS THE POINT ON"| "WHICH I AM HIDING. YOU GET 4 TRIES."  "AFTER EACH TRY, I'LL TELL YOU IN WHICH" "DIRECTION I AM HIDING." 20500 P((1)10)1B$"VERTICAL"NG TO HIDE":120,120:B11000< M768:P767:T766:T1765S T1,32:B20:B1120 B3121:4:1B,B1:B((1)200)40:B1((1)90)20:3:1B,B1 D,E:P,D:T,E:M:  A1190,1200,2990,3000 B$"HORIZONTAL" A2B$"VERTICAL"# 0 BY 10 GRID" e0 j"4) ON A -5 BY +5 GRID" t34,0:33,40:32,0:5:868:5:"WHERE SHOULD I HIDE";:BK$:(BK$)01140 ~A(BK$):A0A5A(A)1155 1:10:"ENTER 1-4 ONLY":1140 :B112:B1::AA11175 ::21:8:"NOW I'M GOIP,P1:B16:P,P1:3:1P,P1:4:B1145::1P,P1::3D >1P,P1 ?34,20::"HI, I'M A HURKLE. I'M GOING TO HIDE.":"YOU TRY TO FIND ME.":20500 L:33,30:32,10:34,8::"1) ON A HORIZONTAL LINE"::"2) ON A VERTICAL LINE" V `"3) ON A 1:0:1:3 D$;"NOMON I,C,O"2 232,0:233,64G X110:B(1):` D$"BLOAD HURKTAB":}  START OF MAIN PROGRAM P160:P155:X2203010:6X,50:X1601070 4:1P,P1:3:PP6:P1P16:1P,P1 .4:6X,50:3:8 8B1300::4:1d COPYRIGHT MECC 1979:n HURKLE 8/8/79 FPpx AUTHOR:(MECC VERSION) KENT KEHRBERG, MIKE STEIN ASSOCIATED PROGRAMS AND FILES: HURKTAB::::12:17:"HURKLE":B112:B1::20000:12:17:"HURKLE":255 D$(13)(4)         ::ITO A FLOCK OF SCAVENGER"%On:"BIRDS."0Ox07820WO"YOU BLED TO DEATH IN THE WOODS."O:"COME BACK TO ODELL WOODS AGAIN SOMETIME SOON."O24:"PRESS SPACE BAR TO CONTINUE";:Z9$:43000O,40OJ24:"PRESS SPACE BAR TO CONTINUE";:Z9$"PLCONTINUE";:Z9$::::"YOU JUST RAN OUT OF ENERGY AND WITHOUT"fN(:"ANY FOOD YOU STARVED TO DEATH.":N2"VISIT ODELL WOODS AGAIN SOON SOMETIME."N<7950NF"YOUR INJURIES ARE TOO GREAT AND":NPR((1)2)1NZR107810Od"YOU FELL PREY z #Xα     Π ͳ  Ƞ ٠ Ҡ ͱ Ͳ ű Ӡ    ŠΠ̱ ǠŠ Š Р  ұȠӠ̱в ӱҠ&"Ϡ" Ϡ" Šˠ ՠӲб  ؠ U SHOULD HAVE IGNORED IT. YOU ARE A"::"BIG WOLF.";MEE20AM_M"GOOD, LET'S MOVE ON..."eMM"AS YOU RAN TOWARDS THE BIRD, IT"::"ESCAPED INTO THE AIR."MEE20MME007710M I3007750M&-/.---------,%-%-------%$$<<7?7>?'?<'????????>77?>?7? --????/,---'??/,-'/766--???/.--7?/.) ?--#$$$?$$$ 666?$$$.2111$$$? $$)-266??$$$--2>?? $$)-266?%011'$$$--2?5<-- ?$)-< $$$?--< $$ 666;?$ $#$ 66? $$$666%$!!!!61111. $$## 635 ??$!!!!??>$$46%$?6.$$$46>46$,=$<<'/%=/%-'$$$4666&$$$$>->7->7-76.56266? !!-)=$$$>- ??$!) $;?2-0)- ') ??- !$$<::2---0)- $;?$---)- ?7&$ --$ ??-)- ?& -6-- $$;?2--$$ 66$??$$$--26;?$,-I ?$$ -?$$$--266;?$$$--;7--'$$$--;7d)5?$$ -?$$$6.-%$666?)=$$$=?? 6) $$,? $$$6?'=''<$,$%%)7m %7?g??$$%?7566--I 66?7.--$$$--66?6--$$$$%%,,--5>'??.,????,---=?',%$$>?766>??$-%$$4=?<-=?<$????<>>-%4-=??>=>7??'      R#0":,Cǹ802,82:818,82:240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 +=ǃ 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0 +>DZ+?nj775:769,155:,@Ǻ(4);"P,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 *;ǃ 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,169 q+<ǃ 160,44,98,3,(13);(4);"RUN MENU"))7Dz PRINTERJ)8ǁZP0181:ZQ:765ZP,ZQ:ZP)9ǃ 76,5,3,2,255,255,255,255,24,176,56,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248^*:ǃ 7,152,10,10,10,10,168,169,3,153ROGRAM, OR"( :"3) END"F(13:"PLEASE ENTER 1, 2, OR 3 ";:868W(40000:ZEZNl(ZE0ZE443030(:"PLEASE ENTER A NUMBER 1 - 3":43022(ZE1Ĭ(ZE343049(:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"()1023,9)*J'5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868R'A$g'(A$,1,1)"Y"Ĭ'(A$,1,1)"N"43050':"PLEASE ANSWER WITH YES OR NO":43005 ( "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT P(37).&A"";ZN$:(ZN$)(((ZN$)))40003K&B(ZN$)0ZN$"0"40006&CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001&FZM:868:CV1(CV23):ZN(ZN$):&JCV1:36,CH:868:& END OF PROGRAM&::5&(1023)12343020ĺ%W(T1)3(T3)Ĺ36,258%W(T2)3(T3)Ĺ36,50?%WTE%WP%W23000k%W(13);(4);"RUN MENU"%Y24:"PRESS SPACE BAR TO CONTINUE";:AB$::%]18:"I CAN'T FIND ";N$;", TRY AGAIN.":23000::(4);"DELETE ";N$:216,0:5850&@CH(36):CV- CAN YOU FIND THEM?"/$&W(Z1$,1,1)"N"22450=$0W SORT X$K$:WT1T32[$DWCT1T31s$NWY$(T)Y$(C)22390$XWQ$Y$(T)$bWY$(T)Y$(C)$lWY$(C)Q$$vWC$WT$W$W"HERE ARE THE ONES TO LOOK FOR"$WT1T31$WY$(T);%WT3(T3)ZLE TO BE PRINTED.";#VC$'#VT13-#V4#VTL#V(P2(H$))2);H$R#V]#VT1Ph#VC1P|#VA(T,C)022250#V(UI$,A(T,C),1);" ";#V22260#V(UI$,((1)261),1);" ";#VC#V#WT#W$W"THERE ARE ";T31;" WORDS HERE 13 ""V",VT"6VT1P'"@VC1P;"JVA(T,C)022120U"TV(UI$,A(T,C),1);" ";`"^V22130k"hV". ";r"rVCx"|V"VT"V:"V"IF YOU WISH, YOU MAY INSERT A DITTO MASTER AT""V"THIS TIME. PRESS THE RETURN KEY WHEN YOU WANT THE"#V"PUZ!DT9!D!D REVERSE0!DT91(B(0)2)=!EQ0B(T9)T!EB(T9)B(B(0)T91)h!EB(B(0)T91)Q0p!$ET9{!.E14840!U:4:"IS YOUR PRINTER 10 OR 30 CPS?";:868!U40000:CPZN!UCP10İ51011!UCP30CP1022000!VK6122160"VT8((1)(M2.00001)(M1M21)):V9V86 \DT90B(0)1i fDA(V8T9,H8T9)0A(V8T9,H8T9)B(T91)17580t pD14930 zDO0117640 DV8117500 DV8M1M21 D17500 DT9 DY$(T3)W$(T) DT3T31 DT90B(0)1!DA(V8T9,H8T9)B(T91)B(T91)A(V8T9,H8T9)17370(C149308CO0117430CC17320KCT9\CY$(T3)W$(T)hCT3T31yCT90B(0)1DA(V8T9,H8T9)B(T91) DT9D D DIAGONALLY2*DO004DM2PB(0)1>DM1PHDH8((1)(M2.000001)1):H9H8% RDV0 0CT9:CY$(T3)W$(T)&DCT3T31;NCT9V8V8B(0)1SXCA(T9,H8)B(T9V81)[bCT9alCtvC DIAGONALLY 1}CO00CM1PB(0)1:M2M1CV9((1)(M1.00001)1):V8V9CH9((1)(M2.00001)1):H8H9CT90B(0)1CA(V8T9,H8T9)0BA(V8,T9)B(T9H81)BT9#B4B VERTICALLY=BO00MBM1PB(0)1VBM2PyBV9((1)(M1.00001)1):V8V9BH9((1)(M2.00001)1):H8H9BT9V8V8B(0)1CA(T9,H8)0A(T9,H8)B(T9V81)17200C14930CO0117260&C1715PB(0)1,@BV9((1)(M1.00001)1):V8V9OJBH8((1)(M2.00001)1):H9H8dTBT9H8H8B(0)1^BA(V8,T9)0A(V8,T9)B(T9H81)17020hB14930mBO0117090rB16980|BT9BY$(T3)W$(T)BT3T31B PLACE ITBT9H8H8B(0)1 H:22000R:H8H810\:H8M2H8H915040Ff:H8H9H9114980Op:H81Zz:15040f:V8V81p:H8H9:V8M1V8V915040:V8V9V91D84V9(M1M21)15030:V81:15040:O01:"B HORIZONTALLY'BO00,BM1P 6BM214910!9 PICK DIRECTIONAL MODE69A62A6114840N9A64(1).517650W9A54z9D8((1)(A5.00001)1):D9D8:D816930,17100,17270,17440:O0014910 :D8D81:D8A5D8D914850 :D8D9D9114910*:D814:14850>:T1A#9(W$(T))(W$(T1))1477009Q$W$(T)A9W$(T)W$(T1)O9W$(T1)Q$W9T1^9Tg9T31}9 PLACE THE WORDS9A6A59T1A9B(0)(W$(T)):XX1B(0):XY163:(W$(T),XX,1)(UI$,XY,1)B(XX)XY:148239XY9XX9B(0)PP014005.721:"DO YOU WANT A KEY";:86867C$L8(C$,1)"Y"K61q8(C$,1)"N"(C$,1)"Y"14310"8:10:17::"WORKING":@8B1AJ8X$(B)""T8B9A(P,P)l9 SORT W$ BY LENGTH OF WORD - LONGEST FIRSTv9T1A19T1TL6Z1$36(Z1$,1,1)"Y"(Z1$,1,1)"N"13650;6126"WHAT SIZE DO YOU WANT THE PUZZLE TO BE"::"(SHOULD BE SLIGHTLY LARGER THAN THE"::"NUMBER OF LETTERS IN YOUR LONGEST WORD)"::"ENTER A NUMBER 32 OR LESS?";:868x740000:PZN 7P323D$;"OPEN ";B$%3D$;"WRITE ";B$K3A10ĺ(34);A;(32);(34):13280^3(34);A;(34)r3D$;"CLOSE ";B$x442:"PLEASE TYPE A HEADING FOR YOUR PUZZLE": 5H$R575"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END";:868(W$(JK))24Ģ23:"WORDS MUST BE 24 OR LESS LETTERS LONG.":CV:868:12650Ty1958Z1r1W$(JK)"END"129002(37)21Ģ6:958:22JKd2AJK12D$;"APPEND ";B$2D$;"WRITE ";B$,3JKAO1A^3W$(JK)h3JK|3D$;"CLOSE ";B$O ADD TO THE LIST"::"OF WORDS";:868/D/C$F/(C$,1)"N"13450x 0(C$,1)"Y"Ģ23:"YES OR NO PLEASE.":12000p0:0"TYPE IN THE WORDS ONE PER LINE."::"TYPE 'END' TO STOP."1:1AOA81JKA150j1W$(JK)o1CV(37)Jt1 WISH TO SEE A LISTING OF THE"::"WORDS IN THE FILE";:868D,C$[P-(C$,1)"N"11950-(C$,1)"Y"Ģ23:"YES OR NO PLEASE.":11400-:.JK1A,.W$(JK)@.T.(37)21AJKİ23000:h.JKr.23000.'.6:"DO YOU WISH T6)(37)21Ģ6:958:!h)JK.r)112009)AJK1J0*G6111300]b*D$;"OPEN ";B$q*D$;"WRITE ";B$*A10ĺ(34);A;(32);(34):10950*(34);A;(34)*JK1A*W$(JK):JK\+D$;"CLOSE ";B$$,A6013450V,<,6:"DO YOU1:9300t'G61':Y'"TYPE IN YOUR WORDS ONE PER LINE."::"TYPE 'END' TO STOP."a (:n<(JK150z(W$(JK)(CV(37)((W$(JK))24Ģ23:"WORDS MUST BE 24 OR LESS LETTERS LONG.":CV:868:10400(958()W$(JK)"END"10700T$10:"WHAT IS THE NAME OF THE FILE YOU WANT"::"THE WORDS SAVED IN";:868V$B$%JK1(B$):(B$,JK,1)" "B$(B$,1,JK)(B$,JK1,(B$)JK)N%JK%(B$)13(B$)010100%23:"THE NAME OF THE FILE MUST BE 1 TO 12":"LETTERS LONG.";:,2,3, OR 4?";:868$40000:A5ZNA A50A55A5(A5)8800Kl 8050Z`"A011300`""4:"DO YOU WANT THE LIST OF WORDS SAVED IN"::"A FILE";:868(#C$#(C$,1)"N"10150#(C$,1)"Y"Ģ23:"YES OR NO PLEASE.":8900"$958N:"J" 1)WORDS HORIZONTALLY":QT" 2)WORDS HORIZONTALLY AND VERTICALLY":^" 3)WORDS HORIZONTALLY, VERTICALLY AND"::" DIAGONALLY":h" 4)WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER"::r20:"ENTER 11(N$):(N$,JK,1)" "N$(N$,1,JK1)(N$,JK1,(N$)JK)I JK:B$N$\ D$;"OPEN ";B$o D$;"READ ";B$w (A$ )A(A$) -JK1A 2W$(JK) <JK PD$;"CLOSE ";B$ U216,0 dA61@:4:"WHAT FORMAT DO YOU WANT THE PUZZLE TO BE"":23000 A0:G0 4\ "ARE THE WORDS FOR YOUR PUZZLE SAVED"::"IN A FILE";:868d pB$| (B$,1,1)"N"8000 8(B$,1,1)"Y"5850 j9 "WHAT IS THE NAME OF THE FILE THE WORDS"::"ARE SAVED IN";:868 24000 N$; JK THE WORDS YOU ENTER IN A DATA FILE":U $"SO THAT YOU MAY RE-USE THE SAME WORDS": "LATER ON, OR ADD TO YOUR SAVED LIST OF": "WORDS TO MAKE A LARGER WORD PUZZLE." 23000 P4:"TO RUN THIS PROGRAM YOU MUST HAVE A"::"PRINTER AVAILABLE."Y"4000+ 23:"YES OR NO PLEASE.":33905 <3400h ::"THIS PROGRAM WILL CREATE WORD PUZZLES": "FOR YOU WITH WORDS YOU HAVE ENTERED. YOU" "MAY SPECIFY HOW THE WORDS WILL BE PLACED" h"IN THE PUZZLE. IF YOU WISH, YOU MAY":& "KEEP]:'& ^#<> ? ;"8 D$(4):D$;"NOMON I,O,C":::255:B ZM23g B(35),C(35),R(35),W$(50),X$(50)s  Y$(50)~ 51000 / ::10:15:"W O R D E R" > 16 H "DO YOU WANT INSTRUCTIONS ";:868 B$ (B$,1,1)"N"ė:5800 t(B$,1,1)$3 COPYRIGHT MECC 1979 WORDER 7/17/79 FP[ AUTHOR: L. BORRY, MECC AND OTHERS2 ASSOCIATED PROGRAMS AND FILES: ONE USER-DEFINED FILE< FILES: ONE USER-DEFINED FILE  UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,.           >??>???6>>?ۓۓ:???'?$'$%%:???''$'ے----%--,---,,5>7>7777??6>665556ӛҒ:777>?>7?7>6767665.65-.-??'?$'<<$$$7>6>6>665-.--%%l $<$$$$??>77???-%----,-$$<,-$-%-,%,$$46%??7?-ےۛJIۛӓ7>665..--%-,$<<'??67>>?7>6>66-.-.-,-,$<$/--.56>67?$,JIIIII$$$$$$$$$$$$$$$$$$$$$$$$$-56666666666666666666666666666666666666666666666666666666666666666----5>??????????',----%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$6--%-%---6RRR 77?7?>'-,%--,=7??>?7???>?7??7????<<?7?6?>IIIII67??<''7?>7,$--MII,5-.--,%-66>7?7??677??6??RIJ7>7??>?7'%%---?77???7??7??7???------>???7>?????'''$%-:>?>??<'?$$%%,$5??>?------%-%-,-6?677..5=;'''$--%,%-,-%-,%--$%%%%-:>>'%<7??...6??<'''-,-$$'?IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIRRRI5.6>57555.6.65..6656.6666667>67>67>67>7?>7%--55>>>>>,%%%%%%%%%<>&%%$,,$%'?'$,,5567,$$<$$$/$'?/%=$'<$'''<<<'<$462666>67>$RҒJIII7?7?7??7??'-%$IIIIIIIIIIIIIIIIIIIIIIIIIIIII%55555555#'''<$65...65,%5-.5,777<$/..57..66>67>,$%%,$%%,$%,,,$,,ғ;4%$,$$$<$?-M+..$$%$$mII!?6'?>>??'7565>677?<<4555.&-,5-?7.6.65'?<'?>66=67'/.66.>?-555-.5--5&????7?<<*--,,...-.-$IIIIIIIIIIIIIIIIIIIIIIII:-,67>67>65----. ,$%,$46>>77?>7?.5-5-5->>>7?7??6..6?/--.5,,5,,,%?67&'67>>7?><.5--,%%%%-,<'?'?'?4?>-.55-.65.6..47?.-.ۚ--,%4-5--.-,----????7??>----..%-,4.66677'?7?-,%%-5-,,-:677777-557??.,-,-,%%%$6...RIIIIIIIIIIIIIIIIIII+,%-,,6676=<'??-5-5--,-%7?7?7555...6<<<='4.5556?/55556>><67?>.677MI!,$%%%-%,47>7-.'?7??<$$$%-,,,-?',,,=?'?7?'?<7777-%%,,---666557???'?<>>>mII 477777?77.-,%'.-%%%%%3??',-5-577.IIIIIIIIIIIIIIII7777>.5--.---5-$$'$''77>>>>$$''5,,-5-..,55=<6..-,,777..=>67.=77777.--=??>7777'?/-5677%-=?>??7?nI!%>>>66m9<,,-6<6>>>6$%%%%,47''',,,*,%-5-?<',,477>>7?>7?7,,%-,-,-->-IIIIIIII9??>7?>??..--%%-,-:7?'?>?'-,%55$IIIIIIIIIIII?>7777/MII$'<4R1???<<556>>7/,%-,$$-,,,-??I?66..65...67>>>>676666.65.6>66>>>?>>7???,.=%%%$%$$$$$$$$$$$$,$,,,,%-%------<47<47VI>-7,,---.J7?>???<'?R:?7?776-?>655-%%$,>65--%%%:7?>??>--.--????765----?Q5-...5--%???'?7?>),-,,%-,%-$%67.?>6777?>77?>$IIIIIIIII*..&''77>67/-:?7767?>6?>6---5-----------%'''<<''?<'<'$-5-.555656.666..6676>6676'$<$$'$,$,$$$'<$?'?????>77>>6656566>6>667'$'$'$$%$%$$$,$$%$%,,%-%- ,45#'>vI>-7:'?lII=>???'/.-.-%-%>?>?>'?'?''-5-5-...6.66666666666665655-,>??'?<>>>...5=>>>>>>>>>>>>>>>>>>>>.5-$$,---,,,,,,,,,?%?'''<'<''??77>6777>>7>6?;?????77?>67?>67>>7>7>677?>?>?7----------7>6?>?677?>6?>776--------------<'''?<$<<$??ڛ6?>???'?$'$%,,%---$-??????>>>>>????''''???6-5-.667>7????<'$$%,%---%>>>?$$$,----------------,--%$$$6666>$$$$$$566666>?$$$$$$.-??$6666>???????????????'$-------------%$$,--??<$'<$'<7?755.67?>7?>7?>7?>7?>7?>7?.5.%%$,----%-,%-,%-,%-,-u6?$ 626666$$$ -6? -%46666$$<?$62. -u?76&& --u??v--u??I6?--?666ve26v- %$466&26e $4-266f u$$$ruۛ e  26v- %$4666?*---/---66 -----666$---55555.6566>?<<66666$d -6? --??6-- ? -%$$46666&<?$ 6 -u>???v--6*-=766&$$$d -$ -%4666?-e$$?$6666f -66#$$$I66&6II6666?u66666$d $I$$66666-266&$ 66&$d 66&266&$ -66$ -????66.--u???d -?6e--??$----6&- --??v-- ??d -$ ---66&??-- 566&I  Ibb5 II-----????   --?6 --66'$<6=$$466-- -%466&<?$ II66uu$uu66 I16666fI  --????-I16666&$$??----J  6IR---u  4II  --&&$$$ 666-- $$$1I 66666?/--= ------b--u??--??66.---='$$66666$---6666-- $$$$666 $$$6666v  $$$$4$vd 4v66&$$ 4?----.---=$I16666 6n $4 I66666$???/---566$$$ 66666--- ???--- ??/ --&??666-- 466666--- $$$???I----????66.--??766---- ----????66.--??766m --u??666--e$$?/666.---=???766MI $$$$$ --?6666@2Oj.:To2IYlu} BTaiu,8Un~(DVh !9I^l| K k + d V         :"SEE IF YOU CAN SURVIVE.":10000:9175Cٺ(13);(4);"RUN MENU"IٿALLO"WٿAA113(A18(B$)1)B$"":40025FWA18B$(B$,(B$)1):40025VXB$B$(A1)sY23:25:B$" ";ZA23M1140015[A23M940015\40009PÑ:::(10):"YOU MADE IT....FANTASTIC"::"TRY AGAIN AS A DIFFERENT FISH AND"(QúX,R3H(16384)12740020$IXMJ0:MR2,R3:A23R150:R2110:MM8]KA24MM1mLXR2R12M0:MX2,R3:3:MX,R3N(16384)12740020OXP40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5R3:$VPON IT" .5."CHASE IT OUT OF YOUR TERRITORY":b@3:4180,118:B$"":A1$"":E2180:E3118oAMR1,R3}B16368,0C23:"WHAT DO YOU WISH TO DO?"D0:MR1,R3:A23R194:R2130:MM8EA24MM1FXR1R22G0:MX2,R3:3:MRUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000H*9175T.:(21)y.B12005,12007,12009,12012,12014."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND PREY U#(A$,1)"N"đ:::55555M#(A$,1)"Y"X(0):600,9:(4);"RUN ODELL1"W#9176'16368,0:24:13:"PRESS SPACE BAR";'(16384)12710010'0:E1E2,E3:ME4,E5:*:::(9):"REMEMBER A ";A9$;" WILL"::"EAT A ";A$;".">*:"NOW FOOD ":R#"AND USED YOUR ENERGY WASTEFULLY."::" YOU STARVED TO DEATH."c#10000:9175#"WHY CHASE FOOD AWAY?"##"THAT'S RIGHT!":#"YOU CAN'T SURVIVE ON THAT TYPE OF FOOD.":##:12:"DO YOU WANT TO TRY AGAIN?";A$U CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY.":ss#"YOU GOT AWAY FOR THE TIME BEING.":v#"NO.....THAT WAS THE WRONG MOVE.":#"YOU HAVE BEEN SUCCESSFUL.":#C30ı#:::(10):"YOU PASSED UP TOO MANY CHANCES AT 180,118:X1801002:3:11X,1006x0:11X,100:XGy3:11X,100Xz10000:9175{(#"YOU WASTED ALOT OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.":Z#"YOU ARE GETTING HUNGRY...BETTER EAT"[#d#"YOU GOT AWAY THIS TIME...":In#"YO2:3:MX,E5:4180X1,118:08vMX,E5:4180X1,118GwX1X12:Xzx3:4180X1,118:E14:E2180X1:E3118:E460:2A4(100(1))205702d0:ME4,E5:X1001702:3:19X,100:0i19X,100:j"AN OTTER WILL EAT A FISH.""n0:4168,106:XE42202:3:10X,Y3<Z0:10X,Y3:X:10000j[:::10:"AN OSPREY WILL EAT A "A$".":\"TRY AGAIN":10000:91750:ME4,E5M9:XE41003:3:MX,E5:0:MX,E5:XE4120:5715p0:4180,118qX10uXE460D0:4180,118FX118@IY1801681:3:4Y,X:0:4Y,XMJXX1:Y_L3:4168,106~MA23E14:E2168:E3106:NM8E41705790OM95800P0:8E4,E5SX(168E4)10:Y6070:3:8E4X,YU0:8E4X,Y:E4E4X:Y!X0:4$"CAUGHT BY A FISHERMAN.":10000.9175b::::(13):"THIS WAS PART OF A FISH TRAP":"YOU WERE CAUGHT....TRY AGAIN.":10000:9175|0:4180,118~X18017023:16X,93:0:16X,93:X3:4170,118:E14:E2170:E3118:118:3:5180,118*E15:E2180:E3118:<0:4180,118XXE2702:3:16X,93k0:16X,93:X100((1))11550073:4X,114:E14:E2X:E3114:A2250110:1730,50:3:1830,50:"WITH THE INSECTS WAS A HOOK. YOU WERE",Y:0:4X,Y:XX2:Y' 3:4168,106D A24100(1)1193050] E14:E2168:E3106: "YOU DID NOT MAKE IT THIS TIME":5710 0:4180,118 X180:Y1181402:3:5X,Y:0 5X,Y:XX4:Y 3:5X,Y:E15:E2X:E3Y:0:4180,00 A20& B1İ9100:10000:300< 9060:10000:300i :21:"NEAR THE SHORELINE IS AN OTTER," R194:R2110:R395:A23:M11:40000:12000 B4000,6450,6450,6500,6500 9100:10000:300 0:4180,118 X180:Y1181101:3:4X7 :21:"AT THE SURFACE LIES SOME ANIMAL PLANKTON,"S R160:R2100:R394:M13j A22:40000:12000x R51:505 :(21):"YOU SEE AN OSPREY CLOSE TO THE SURFACE," A24 R1100:R2200:R360:M9:40000:12000 B4000,3000,5700,5700,57,6000) R50:B4İ9100:C0:10000:300P B3İ9050:CC5:10000:9150:300x B5İ9170:CC10:10000:9150:300 9000:9050:CC10:10000:9150:300 DB4000,3000,4500,5500,6000 FB3İ9173:10000:300 GB4İ9174:10000:300 N524S11 JSS(S2)310 TS2- YS(S1)S:S16 ^S11F cS1450000d hS(S1)500,1000,1500,2000 :(21):"YOU SEE WATER INSECTS AHEAD OF YOU," R160:R2100:R390:A21:M12:40000:12000 A520,520,520,520,580,580 B4000,3000,4500,5000J  :(21)A(600)'C(601)8X1A:A$:# "WHITEFISH","CLUB","BLUEBACK SALMON","RAINBOW TROUT","MACKINAW TROUT","DOLLY VARDEN"C(326)S(4)E2180:E3118301,S1S11:355-S1146S(4(1)1) @S21       025%WA18B$(B$,(B$)1):400255XB$B$(A1)MY(23):25:B$" "\ZM240015g[40009yPù600,A:601,CSÒ0:ME4,E5:E1E2,E3:(21)::(4);"RUN ODELLP2"ٺ(13);(4);"RUN MENU"Z݀10:3X,110"H(16384)12740020)IXMK0:3210,110:X2101602:M2kM0:2X2,110:3:2X,110N(16384)12740020OX:40004TA1(16384)128U16368,0:A113B(B$):B0B6E4X:E5110:VA113(A18(B$)1)B$"":40364ĔZ344Z1(Z1)7,Z2:300501@uZ33230050INuZ31Z1(Z1)7,Z2PbuZVlu@3:5110,118:B$"":A1$"":E15:E2110:E3118:2160,110:16368,0C(23):"WHAT DO YOU WISH TO DO? ";D0:2160,110EX1622102:M3 G0:3X2,110:3.:21:B12005,12007,12009,12012,12014S."ATTEMPT TO ESCAPE TO DEEPER WATER":."ATTEMPT TO ESCAPE TO SHALLOW WATER":."JUST IGNORE IT":."ATTACK AND EAT IT":."CHASE IT OUT OF YOUR TERRITORY":0uZ1(Z$):Z3((Z$,Z,1)) ?uZX19:10#9175<'16368,0:24:13:"PRESS SPACE BAR";U'(16384)12710010q'0:E1E2,E3:ME4,E5:*:::9:"REMEMBER A "A9$" WILL"::"EAT A "A$"."*:"NOW RUN THE PROGRAM AGAIN AND SEE IF "::"YOU CAN SURVIVE":10000*9175(ME NICHE":-#"YOU HAVE BEEN SUCCESSFUL":9#C30ıs#:::11:"YOU PASSED UP TOO MANY CHANCES AT FOOD":#:" YOU STARVED TO DEATH."#10000#::12:"DO YOU WANT TO TRY AGAIN?";A$#(A$,1)"N"đ:::55555#(A$,1)"Y"OO LITTLE":8Z#"YOU ARE GETTING HUNGRY..BETTER EAT":n#"YOU CAN NOT KILL THIS ANIMAL AND":"YOU USED A LOT OF ENERGY NEEDLESSLY":s#"YOU GOT AWAY FOR THE TIME BEING":v#"NO.....THAT WAS THE WRONG MOVE": x#"GOOD, IT DOES NOT OCCUPY THE SA8:M2:@0:5110,118VEME4,E5:Y118:X1230E42:3:5110X,118:3E4X,118yG0:5110X,118:3E4X,118:XI3:5110X,118:E15:E2110X:E3118:(#"THAT WAS A WASTE OF ENERGY":F#"THAT FISH JUST ATE YOUR LUNCH.": P#"YOU ARE T5:E2X110:E3110:ALX1101242:0:5X,118:3:5X2,118:XmQ0:ME4,E5:XE41146:3:2X,118:0T2X,118:3:14X2,118:0:14X2,118V3:15X4,118:0:15X4,118:X0:5126,118:3:2114,118ZE12:E2126:E3118:E4114:E511110E4262:3:7X,Y:0'`7X,Y:XRc3:5E420,118:E15:E2E420:E3118:dl0:5110,118qm2E4,E5nX0220E44:3:7X110,100:3E4X,110:0p7X110,100:3E4X,110:Xq3:3E4X,110:M3:E4E4X:E5110r3:5X110,110:E12118:E35:E4114:E5118:M2:.p0:ME4,E5Zq3:XE41006:2X,118:0:2X,118:3s14X2,118:0:14X2,118:3:15X4,118u0:15X4,118:w5110,118:3:2100,118:E15:E2110:E3118:E4100:E5118:M2:X0:5110,118_Y100:X3:5X,Y:X1XFR1:XE4E4362:15X,Y5:0:15X,Y5:3:XU0:5X1,Y3:2X,Y:E15:E2X1:E3Y:E4X:E5Y:M2:0:5110,118X110:Y1181101:3:4X,Y:04X,Y:XX4:Y3:478,110:E14:E278:E3110:RE1124:EY1181502:3:5X,Y:0;5X,Y:Y10(Y10)XX6:Yb3:5134,150:E15:E2134:E3150:t0:5110,118(1).904005ME4,E5X110:Y1181402:3:5X,Y:2E4,Y:05X,Y:2E4,Y:Y10(Y10)XX6E4E46:E425XĂY06,2506,2506,2580,25066 B4500,5000,6000,7500,7500T B1R1R0:9075:11000s B1B2İ9075:10000:300 9078:10000:11000 510 :(21):"A MACKINAW TROUT IS IN FRONT OF YOU,":A9$"MACKINAW TROUT":25010:5110,118X110:B1B2B5İ9000:9050:10000:CC15:9150:300OB4İ9070:10000:300_10000:300:(21):"YOU SEE A RAINBOW TROUT IN FRONT OF YOU":501 :(21):"YOU FIND A DOLLY VARDEN VERY NEAR":A9$"DOLLY VARDEN" 40000:12000 A2506,25 B4İ9070:10000:CC5:9150:300@10000:CC5:9150:300NB5520j8000:9100:10000:300:21:"ALONG COMES A CHUB":501:21:"IN YOUR VICINITY IS A BLUEBACK SALMON,":4000012000:A4505B4000,5000,9080,7020,8000440000:12000-A530,520,530,530,510,510MB4000,5000,9050,7000,8000B1B2B5İ9000:9050:10000:CC15:9150:300B4İ9100:10000:C0:30010000:300B4000,5000,9030,7020,9040 B1B2İ9000:10000:CC5:9150:300$0000 301 ,S1S11:355* -S116< 6S(6(1)1)K @S21S11\ JSS(S2)310d TS2t YS(S1)S:S1} ^S11 cS1650000 dAS(S1)300 hS(S1)500,1000,1500,2000,3000,2500 :(21):"YOU FIND YOURSELF CLOSE TO A WHITEFISH"21" Z15:Z28:Z$"AS A":30000I Z142:Z28:Z$A$" YOU CAN":30000t Z15:Z216:Z$"1 ESCAPE DEEPER":30000 Z224:Z$"2 ESCAPE SHALLOW":30000 Z232:Z$"3 IGNORE IT":30000 Z216:Z1140:Z$"4 EAT IT":30000 Z224:Z$"5 CHASE IT":3000 5120,60T Z15:Z2100:Z$"THE FISH YOU ENCOUNTER WILL LOOK LIKE ":30000 2110,126:(21):"ALTHOUGH THE FISH ARE DIFFERENT SIZE IN" "REAL LIFE, YOUR JOB IS TO DISCOVER THE ":"ACTUAL SIZE OF THE FISH.":10000 ::3:1:0:11,55:TROUT","MACKINAW TROUT","DOLLY VARDEN": :X1A:A$:XH X19241 D$(4):D$"NOMON C":::10:" TRAVELING TO ODELL LAKE..." 8164:232,0:233,64:1:3:0 D$;"BLOAD SCENES ":: Z15:Z220:Z$"AS A "A$" YOU WILL LOOK LIKE":30A SITUATION. CHOOSE THE"2 7"OPTIONS BY NUMBER."_ <:"THE FISH YOU CAN CHOOSE FROM ARE:": P:X16:A$:" "X". "A$:X :"WHICH FISH DO YOU WANT TO BE ";:A$ A(A$) A1A610& "WHITEFISH","CHUB","BLUEBACK SALMON","RAINBOW X1(600):600,0:S(6)9 C0:::Z$""::X1960"YOU WILL ROLE PLAY A FISH. AFTER ROLE":"PLAYING ALL THE FISH YOU SHOULD BE ABLE""TELL THE RELATIONSHIPS BETWEEN THE FISH": 3"YOU WILL BE GIVEN 5 OPTIONS TO DECIDE":"WHAT TO DO IN       ??$!) $;?2'0)- ') ??? !$$<::2--50)- $;?$--?)- ?7&$ -?$ ??7)- ?& -6-- $$;?2-,6.)=$$$=?. 6) $$,?<$$$6 6--#$$$>$$$ 666%$$$.2111$$$> $$)-266??$$$--2>?. $$)-266?%0116$$$--2?56-- ?$)-- $$$?--- $$ 666;?5 $#$ 66% $$$6667$!!!!61111$ $$## 635 ??$!!!!??' $$)-266? !!?)=$$$>- %---.='???>?$'$%$dI5'MI=.$?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII<$$46666???%$$ 66$??$$$$--26;?$,-.I ?$$ -!$$$--266;?-$$$--;7--$$$--;76d)5?$$ -l$$$6.-%$667>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>>777?7?7???$->$56-....6--..55-...-.56-..55555.5-6.666.--%4?$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5565?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<--5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>.6-.555555-6&$?<<|III5'6>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.655556LIII16-6>76-MII --%$--6.--$,--6&$6.--$d LI-5?-7-*uI!L L1.M)e Lq1-uI L1&d1m &->>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/$>6?6?>?>...-%-,%%%%%----%---55----$',66>>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>-6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,------%--,,%%%%?>>>?'??>?-MQ-??6--LII 66.--<<<<'.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-..-.5-,-,6-..-...??????????>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI>?>?>?>?'?6?7??>>/?-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%546.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$--,-,-5>6----,%-----.---%-%-%-%????<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%-.5???????????????????$,.?7/-->??????????'??766%$$$=????,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+$..666>6>,6.-5-----------------------------------------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6$4766666%$$$$$<666666'$$$$,---4.6%4.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-@bd]dJ n O F t   # , 9 G T _ o } #0>HWb'$$---666=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) (1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI          1X1X13:CAP0:FL0)iL:X10:Z$"":L`mL1U:Z$Z$(95):L:27000:@(13);F$;"BLOAD CHAIN,A520":ELDN:DN4:520"MENU"L=":L:27000:Y::A,0ZYY120:Z$"UN = NOT ^O^R OPPOSITE OF":27000:Y130:22000:xi:FL0:CAP0:L1(Z$):X2((Z$,L,1)):X232ī27050iX294FL1:X1X111:CAP64:27050i:ZXX1(L1)11:ZX0ZX271ī27050iX2CAPZX,Y115iFL16384)127ī200404NLZ>NL1250:L:W161:W2185:21000:(16384)128İ20050:20030qHN16368,0:21000:RN:X161:Z$"'SPACE BAR":27000:X1171:Z$"'":27000:R0:LH1H2:W1,LW2,L:L:3R:H1175:H2191:W10:W2279:UL125:Z$Z$"U15:X150:28000PY1160::Z$"^T^R^Y ^T^H^E^S^E ^A^C^T^I^V^I^T^I^E^S":27000r20000:(13);(4);"RUN MENU"'(13);F$;"BLOAD CHAIN,A520":520"MENU" N16368,0:Y1191:Z$"PRESS":27000:20050:X1188:Z$"TO GO ON":27000*NL1(SEC1)84:(:27000:X1180:U2:28000K100I,90:101I,90:0:100I,90:101I,90:3UII5eI2551490100I,90:101I,90:20000::A,0:Y140:Z$"^U^N MEANS NOT OR":27000:U2:28000:X1104:U3:28000Y170:X150:Z$"THE OPPOSITE OF.":27000:0:106105,90:I1600:I:90:103105,90:106105,90t3:107105,90:103105,90:I1600:I:0:103105,90:3:102105,90:I1600:I:0:102105,90:3101105,90:107105,90I105:H1145:H2160:21000Y1160:Z$"UNLOADED":X11804I,90:0.<100I,90:101I,90:104I,90:3>FI1041370NPII5:1330Z100105,90:101105,90:104105,90:I1600:d0:101105,90:104105,90n3:102105,90:105105,90:I1600:Ix0102105,90:105105,903:103105,90:X1150:Z$"^SUSAN IS":27000C Y165:X1150:Z$"UNHAPPY":27000T 111210,90:_ 20000 H130:21000:Y150:Z$"^WE CAN UNLOAD THE TRUCK.":27000:X179:U6:28000 L11200:L (Y1160:Z$"LOADED":27000:I45:3 2100I,90:101I,90:10174:Z$"OPPOSITE OF TIE.":X140:27000:X140:U11:28000 Y1120:Z$"^I CAN UNTIE MY SHOES.":27000:X170:U5:28000:20000 H130:21000 Y150:X120:Z$"^MARY IS":27000 Y165:X120:Z$"HAPPY":27000 11050,90 L12500:L Y1500:23000Y ~Y170:Z$"^UNKIND MEANS NOT KIND.":27000:X10:U2:28000:X1144:U3:28000 Y1110:Z$"^SAM IS AN UNKIND PERSON.":27000 X1112:U6:28000:20000 H130:21000:Y150:Z$"^UNTIE IS THE":27000:X10:U2:28000:X1104:U3:280009 YX1112:U2:28000? LY160:Z$"MAKES A WORD MEAN":X120:27000~ VY180:Z$"THE OPPOSITE OF.":X140:27000:X140:U15:28000 `Y1120:Z$"^UNPACK IS THE OPPOSITE OF":27000:X10:U2:28000:X1110:U15:28000 jY1140:X1100:Z$"PACK.":27000 t20040:Z$"^U^N IS A PREFIX.":27000:7 X140:U2:28000c Y1100:X140:Z$"^U^N MEANS NOT":27000y $X1145:U3:28000 .Y1120:X110:Z$"AS IN THE WORD UNHAPPY.":27000 8Y1120:X1176:U2:28000:20000 B::A,0:Y140:Z$"^SOMETIMES UN":27000: d3:1:0:::A,0#n40000zY140:Z$"^A PREFIX IS FOUND AT THE":27000:Y164:Z$"BEGINNING OF A WORD.":27000SEC15Y1100:Z$"^IT ALMOST ALWAYS CHANGES":27000:Y1124:Z$"THE MEANING OF THAT WORD.":27000:20000" ::A,0:Y140:X1    RSTAND.":27000YT:Y190:Z$"^WE MUST NOW START AGAIN.":27000:EL0İ20000:DNEL:1190^:Y1110:Z$"^WE WILL GO TO THE PART":27000:Y1130:Z$"WHERE YOU WERE WORKING.":27000h20000::DNEL:1000,'iX294FL1:X1X111:CAP64:27050Oi:ZXX1(L1)11:ZX0ZX266ī27050diX2CAPZX,Y115iFL1X1X13:CAP0:FL0iL:X10:Z$"":@::16302,0:X4:1:0:X10J:Y140:Z$"^YOU DID SOMETHING THAT":27000:Y160:Z$"^I COULDN'T UNDE:R$R$D$:(D$)8ī25040Ca:X5X5I:X1X5:Z$Q$D$:27000:25010]aR$(8)R$"":25010~a:L(R$)2:L0R$"":25070a:R$(R$,L)a:H1Y115:H2Y1:W1X5:W2X5I:21000:X5X5I:25010xi:FL0:CAP0:L1(Z$):X2((Z$,L,1)):X232ī27050L5"520"DRILL6"%520"DRILL7"6520"DRILL8"F'520"SCORE"g'18:D$::16302,0:216,0:R0:LH1H2:W1,LW2,L:L:3R:H1175:H2191:W10:W2279:a:R$"":Q$"":I11:K1Q$"^":I14a16368,0:D$:(D$)13(D$)32K0:a):D((F1$,3,1)):T0NZ::Y160:Z$"^PREFIX: "P$:X1150(Z$)211:27000}d:Y1100:X180:Z$"^ACTIVITY "(DN):27000n:D1400,1410,1420,1430,1440,1450,1460,1470x520"DRILL1"520"DRILL2"520"DRILL3"520"DRILL4"520"DRIL1240.(13);:TN3ĺF$;"BLOAD CHARACTERS2"IF$;"BLOAD CHAIN,A520"zTN1290,1300,1310,1320,1330,1340,1350,10180 520"TUTOR1"520"TUTOR2"520"TUTOR3"(520"TUTOR4"2520"TUTOR5"<520"TUTOR6"F520"TUTOR7"P:F1$F$(DN5) ^LESSON 5 - ^P^R^E":27000:Y1127:Z$" 6) ^LESSON 6 - ^I^N":27000 :Y1143:Z$" 7) ^REVIEW - ^PRE-^APP ^I^I":27000:Y1159:Z$" 8) ^E^N^D":27000 :Y1181:Z$"(^PRESS 1 - 8)?":27000:X5165:25000:TN(R$)TN1TN8TN(TN)H1166:21000:$"MY FRIEND"? ::16302,0:Y125:Z$"^DO YOU WANT:":27000 :Y147:Z$" 1) ^LESSON 1 - ^U^N":27000:Y163:Z$" 2) ^LESSON 2 - ^R^E":27000 :Y179:Z$" 3) ^REVIEW - ^DRAGON ^FIRE":27000:Y195:Z$" 4) ^LESSON 4 - ^D^I^S":27000E :Y1111:Z$" R' TO CONTINUE.";* (16384)1271155b :16302,0:Y140:Z$"^WELCOME TO THE":X161:27000 :Y170:Z$"'^M^E^C^C'":X1100:27000:Y1100:Z$"PREFIX LESSONS.":X160:27000 :Y1170:Z$"^YOUR NAME?":27000:X5120:K1:25000:N9$R$ N9$""N92,Y327:Y6,Y727:Y8,Y1028Q jY,Y1030:31,33Y:31,33Y5:31,33Y10 t35,38Y:Y1,Y535:36,38Y5:Y6,Y1038:35,37Y10 y21:10:"DISKETTE 1 - VERSION 1.2" {12:"COPYRIGHT MECC-1979" |16368,0 ~24:7:"PRESS 'SPACE BA2:3,5Y:Y1,Y55:3,4Y5S 8Y,Y107:8,10Y:Y1,Y510:8,9Y5:Y6,Y109 BY,Y1012:13,15Y:13,15Y5:13,15Y10 LY,Y1017:18,20Y:18,19Y5:Y,Y1022 VY,Y124:Y2,Y325:Y4,Y526:Y6,Y725:Y8,Y1024" `Y,Y128:Y :3:1:0:SEC10:10180DDN11020,1360,1360,10000,40000N8164y232,0:233,64:A16302:F$(4):F$(5)F$;"NOMON C,I":F$;"BLOAD CHARACTERS1"T$(20,6),A$(20),P(8),C(8):X10:H1175:H2191:W10:W2279$::9:Y17 .Y,Y10  L GOODDNOW IS THE TIME FOR ALL GOONOW IS THE TIME FOR ALL GOOEENOW IS E FOR ALL GOOD MENNNOW IS THE TIME FOR ALL GOOD MEENOW IS THE TIME FOR ALL GOOD MMNOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR ALL GOOD ENOW IS THE TIME FOR ALL GOOD ENNNOW IS THE TIME FOR ALL GOOD EENOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR AL HLHLL RQ H xI !M N IL N KLIH xQR xQH xQH xQR xQH xQK$#L2N NONOW IS THE TIME FOR ALL GOOD MEN TONOW IS THE TIME FOR ALLNNNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIM$',$--576567>'?/66.-$'$?66.-6>6''''?<<'??7>'$<>?><7>>>676655-%-%-<,$,%%%-%,55-...6>7--6?7?7??>?7??>?7???'%%%%%=?<$$$%%%%%$<$$'$-%%<$-,-%-$,,,,$---,,-,%66666>76.-,%--.%$?$7?>?'$$$,$$....656&,,$%,,,,%%%'''''''?>7767>6-.%%,'$-56??,$$ے5666666&$$$LIIIIII-----,----,---%,,,,%%%-$-????/-%-,--%--5-5-.$????>???'????75>?>??$$$<$$'$$$$$,,------,----.55.5.555..<$<$<$J15>6.66?JIQQ*%%<$-,-%-$,,$-$---.65.6566.6??<'??7??>?>??'=776565.6%--%--,--,-,%$6&--%--6---%--55555-66655555555..565--$$$%$<<<<$$'$<<<<<<<<$$$$%$%%%-,,$%%%%%,,,,,,<$-$???>??7????7????????7???>???7????>???????$?76------56666.55.--6-%--5-%---.-566666666666NIIIIIII $?$$,$%????7?'$%,,$''?IIII!'$$%%%%$%%,,6-56.56ۛ$$$$'$$$<$?7676666>6666>66>??????666..66766??$<'$$$$-'$$<>6$-$$??>?',,,--%,-??''?7'??????????'???????$LIIIIIIIII166?...6666.----------$''''?$$',%$$JI.6.-----5555%$6.,---,%----ۓ66.6656.5.---???'<77?6>?>>?7?7>7776$<'$?LII $$$$<$$$$$,,>?7557776....--.-MIIII6>676>6676677666.-.--.--.--5----5----.-----ۛ$$$-$-$$'?'%-6>$4-56'666666667666----6666666666.-5----5---------56-------%----%--%----,---,--,,-,,$-<<<<<%%%,,,,,<$$$$$$$?>>>6????'$-,$$<>????66>6676666>6666766767666&$$$<$%%<$%$-<$$<<<$''''<<<$'<<<<<$'',$,$,$%$$$<=?>>>'$%$<'?76677667676757777666557777775...7777....765566?65665566....-555555-66.--.--55555-55-...---.----.%,----,--5-----%$$%$$$$%$$$$,$,--$$$$$$$$$$<'???'%$$,$$$$$$$$,$$$$$,$$$    :"PLEASE ENTER A NUMBER 1 - 3":430223ZE1ĬCZE343049}:10:"GETTING THE MENU PROGRAM...":(4);"RUN MENU")1023,9*: (4);"RUN MENU"<:"PLEASE ANSWER WITH YES OR NO":43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030'(ZN$):"JCV1:36,CH:868:8 END OF PROGRAMC::5Z(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"āA145:N%(1,A)(N%(1,A)):A::380(A$,1,1)"N"ĺ(13);4,86,108,80,97,96,96,77,87,118K' 27,37,35,42,42,53,53,65,68,59,44,46,60a@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001 FZM:868:CV1(CV23):ZN 132,132,134,138,156,160,164,173,194,178,191,205,198g' 136,144,166,168,194,181,194,210,225,221,222' 194,189,184,189,176,172,183,162,173,178,192,188,182' 10,28,66,30,54,18,40,58,64,86,88'18,34,52,68,28,48,66,34,38,54,57,53,70' 106,8EORGIA,NORTH CAROLINA2V' SOUTH CAROLINA,FLORIDAk`' MAINE,NEW HAMPSHIRE,VERMONT,MASSACHUSETTS,NEW YORKj' PENNSYLVANIA,NEW JERSEY,WEST VIRGINIA,VIRGINIA,MARYLANDl' RHODE ISLAND,CONNECTICUT,DELAWAREt' 58,50,42,74,60,96,102,82,108,76,1025~'ANA,WYOMING,UTAH,COLORADO,ARIZONA,NEW MEXICO\$' NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSAS.' MINNESOTA,IOWA,MISSOURI,WISCONSIN,MICHIGAN,ILLINOIS8' INDIANA,OHIO,KENTUCKYB' TEXAS,OKLAHOMA,ARKANSAS,LOUISIANA,TENNESSEEL' MISSISSIPPI,ALABAMA,Gl"YOUR SCORE IS ";(I3F100.5);"% CORRECT!"dv24:"PRESS SPACE BAR TO CONTINUE";:Z9$:43000:22:" ***CORRECT***":R0I3I3124:"PRESS SPACE BAR TO CONTINUE";:Z9$::585' WASHINGTON,OREGON,CALIFORNIA,IDAHO,NEVADA,' MONTA1,B1A12,B1A1,B12A12,B1A1,B12cNN%(1,ST)N%(1,ST):W5ST45QFđ:3:WA,B:WA1,B1OW5ST45Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7PQX:b4:"YOU GOT ";I3;" CORRECT ON THE FIRST"::"TRY OUT OF ";F;" ATTEMPTED.":07:Q7Q1F9R0:ST((1)N2N1):N%(1,ST)0520A 10TI$A$(ST)700gRR1:R2560&::868:I$;" IS NOT CORRECT.":"TRY AGAIN.";:5250:21:"THE CORRECT ANSWER IS: ";A$(ST)D24:"PRESS RETURN TO CONTINUE";:Z9$:&I0:ERE ARE ";N2;" STATES IN THAT REGION.":Z "HOW MANY STATES DO YOU WANT TO TRY?";:868j 40000:FZN F1FN2ĺ:"TRY A NUMBER IN THE RANGE OF 1 TO ";N2;".":450 ::3:S WA,B:WA1,B1W5Ē0:Q715:134Q7,114Q7134Q7,113QCES. TRY AGAIN":384 I30_ B1$("WMSE",B,1):B1$"W"A200:B20:S1:W2:N11:N211:450 B1$"M"A130:B10:S2:W3:N112:N213:450 B1$"S"A110:B0:S1:W4:N125:N211:450 B1$"E"A100:B5:S2:W5:N136:N213( :868:14:"TH148:N%(A,B):B:A |"DO YOU WANT DRILL ON THE:"::" 1) WESTERN"::" 2) MID-WESTERN"::" 3) SOUTHERN"::"OR 4) EASTERN": 11:"PART OF THE UNITED STATES?";:868:40000:BZN B0B5B(B)395 :"THAT ISN'T ONE OF THE CHOI+ xI$I$(C1):(C1);:C18(I$)1ġ:20S |C18ĺ" ";(8);:I$(I$,1,(I$)2)d }C124ġ:20j r : (4);"NOMON C,I,O"::(4);"BLOAD USMAP1,A$4000" ZM24 :232,0:233,64 A$(48),N%(2,48) A148:A$(A):A A12:B IS THIS?";:I$"" 5C (A1,B1A12,B1A1,B12A12,B1A1,B12b -E120:(16384)127İ90i /Ep 20 7A1,B1A12,B1A1,B12A12,B1A1,B12 <E110:(16384)127İ90 FE P30 ZC1(16384)128:16368,0:Q9(0) nC113140 COPYRIGHT MECC 19797 STATES2 7/16/79 FPP AUTHOR: MECC STAFFm ASSOCIATED FILE:USMAP10:::255::150 * FLASHING CURSER AND INPUT SUBROUTINE!! A1S(N%(1,ST)150)A:B1S(N%(2,ST)10)B 1:21:868:"WHAT STATE     00":232,0:233,64:D$;"RUN WRONG NOTE"0 h100E nD$,"RUN PREFIX"Z xD$;"RUN ODELL1"o D$;"RUN WORDER" D$;"RUN HURKLE" D$;"RUN POLYGRAPH" "(:22:"WHICH ONE";:8685 2A$:A$"1"A$"6"40X <(A$)100,110,120,130,140,150 d::12:32,5:"DO YOU WANT AN EXAMPLE OF "::"1. GEOGRAPHY"::"2. MUSIC" e32,0:12:26:A$ f(A$)1ĺD$;"RUN STATES2"' g(A$)2ĺD$;"BLOAD TABLE,A$40 22016I ::5:10:"INSTRUCTIONAL USE OF":13:"MICROCOMPUTERS"S32,5eD$(13)(4)::"1. DRILL AND PRACTICE"::"2. TUTORIAL"::"3. SIMULATION"::"4. MATERIALS GENERATION":"5. EDUCATIONAL GAMES"::"6. PROBLEM SOLVING"    0::936r*"STOP PLAYING WITH THE APPLE!!!"::"GO AND TELL DAD TO WIND UP THE CLOCK"::"AND START IT AGAIN."/:::"DOS HAS BEEN DESTROYED, YOU MUST"::"REINTIALIZE IT. TYPE:"::"PR#6"4: ADDITONAL LINES GO HERE ON, FOR EXAMPLE 1340 AND NOT TWENTY TO TWO";A^936:"HANG ON WHILST I WIND THIS APPLE UP"hAA1xQ1999:QMIN(((A100(A100))100.05)(A100)) A1200AA1200:PM1HOUR(AMIN)100:A0HOUR12HOUR0500  0:(ZD$)89ī770:"WHAT TIME DO YOU WANT THE ALARM TO GO OFF?"::"PLEASE USE 24 HOUR NOTATION FOR EXAMPLE 1340 AND NOT TWENTY TO TWO ";SET770ZB$"N":ZC$"N":ZD$"N"936-"WHAT IS THE PRESENT TIM