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`Y SIPES":M;u20:11:"COPYRIGHT (C) 1979"::10:"ALL RIGHTS RESERVED"`DuG11000:G:V20050-*N(MX80MX60)(MY55MY35)ī20100V4N(MX155MX135)(MY30MY0)ī20100>N(MX200MX180)(MY55MY35)ī20100RNN"":OO1:NH1:13500:G11000:G:18000:ST0::u10:4::"WELCOME TO THE APPLESOFT STADIUM":15:13:"BY GARTOT" 4423:TA$(0)B4HT3303:23:HT8:I(HT31):HTS424:TA$(1);}4HT3303:24:HT8:II(HT31);:HT56:"PLAY AGAIN (Y OR NO) ?";L$6L$"Y"Ľ:106PF1:KI820:KM130135:KI,KM:KM:KI:3:PL8: NMY609)ĺ:TA$(1);" WINS":139906T3TA$(0);" WINS":13990<4`4I(9)I(9)R(0):II(9)II(9)R(1)4TA0I((I))R(TA)I((I)):R(TA)04TA1II((I))R(TA)II((I)):R(TA)0416301,0:4421:"INNING":21:11:"1 2 3 4 5 6 7 8 9 ";(I)1:23:TA$(TA)" IS AT BAT":G11000:G::16302,0:V,3::6:"END OF GAME"63:TA$(0);"'S SCORE = ";I(9);" BAT AVG = ";BH(0)AB(0)@3TA$(1);"'S SCORE = ";II(9);" BAT AVG = ";BH(1)AB(1)E3II(9)I(9)ĺ:"IT'S A TIE":13990J3II(9)I(:120052I9ī13100"213500J2(16287)127(16286)127ī13045U213043k21:0,0:62454:32:12000:21:12KI220232:KM130135:KI,KM:KM:KI2TA0TA1:II.5:130653TA1TA0:II.5 3I9ī13100<322:"INNING: APPLESAUSE(  BY THOMAS LAURITSEN 2 3":PR$(10)" 4 5 6"PR$(1)" * *":PR$(4)PR$(1):PR$(6)PR$(1):PR$(9)PR$(1):PR$(5)"***************************":X SUPER-NIMb PUBLISHED BY SOFTSIDEl FEB. 1980v CONTRIBUTED TO 534254152":(G$)64ij: ENTRY ERRORPG(J)((G$,J1,1)):R(J)((1)J)oLM$(15):J115:LM$(J): 1,2,3,4,5,6,12,23,45,56,14,25,36,123,456MT(15):J115:MT(J): 32,16,8,4,2,1,48,24,6,3,36,18,9,56,7/PR$(0)" 1 I18:J240I:PI,J:DU,I:BE::;~PI,230:DU,255:BE:TK1300:L(CL)::fP13000::PI768:DU769:BE770:CL16336:B$(7):QG791:Q1792:QL793:Q2794:Q3799:QA41:QX73%G$"0112102312030334102301322330321510032334031230212331320Y GAME!"::1170:"HIT ANY KEY WHEN YOU ARE READY TO PLAY.":1110dLX(1):X(16384):X1281100tV16368,0:`PI,255:DU,190:BE:PA150::DU,127:BE:PI,190:DU,255:BE:jPI,180:K13:DU,75:BE:PA150:::PI,228:DU,255:BE:!tY WINS THE GAME."::5:"YOU CAN VARY MY LEVEL OF SKILL,"8"AND CAN ALSO VARY THE INITIAL NUMBER":"OF SECTIONS, FROM 2 TO 6. YOU HAVE":"YOUR CHOICE, AFTER SEEING THE INITIAL":"DISPLAY, OF GOING FIRST OR SECOND."AB"THEORETICALLY, YOU CAN WIN EVER VERTICALLY.":$5:"WHEN IT IS YOUR TURN TO PLAY, CHOOSE";:"FIRST THE SECTION OF THE DISPLAY WHERE":"YOU WISH TO MOVE, AND THEN SPECIFIC":"PIECES, WHICH YOU CAN PICK BY NUMBER.":9.5:"THE PLAYER WHO TAKES THE LAST PIECE":"OF THE ENTIRE DISPLA768,J:769,K:770:":W4:850:5:"IN THIS GAME, YOU AND I TAKE":"TURNS REMOVING PIECES FROM A DISPLAY":"SHOWN ON THE SCREEN. FROM 1-3 PIECES""MAY BE REMOVED AT EACH TURN, BUT IF":"2 OR 3, THEY MUST BE ADJACENT EITHER":"HORIZONTALLY OR."::7:"SO LONG UNTIL NEXT TIME!":(7):@980:970:980:U990:970:990:l1000:970:1000:J15:K(16336)::2140,60:3140,100:W140,60:I13:J1003010:K5:1020::J3010010:K5:1020:::0:I811:I:940:X8:990:I1324:I:950::32:990:0:I18:I:960::1000wI15:(7)::I13000:1110:21:"WANT TO PLAY ANOTHER GAME? ";:A$:A$"Y"āI770906:J::::1180:160+::11:7:"IT'S BEEN FUN PLAYING WITH YOU  (( @ @ @ P*@@* (@  (@@ " "@  @   (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 "   @@U(U @P@*  @ @ @ @*T*U @$D@BHHB$> @ @T 0p@L@l LL@ |Lp0|@||P$L @@@ @p`0 @@@@DTD@T@@@DT@ 8x@ @|   @ | x8|@||P `4@t@@``@ @@ @ @< @   @ P @@  @```p3B`<D   @? p3 DE@P@@@@@PP@@P@PPPP`P@(U@* @ @P @ GGOO >q @ @ @P @  hKp`PKp`Hx4U5 H4U5 xU4U5 `wL4X5 wL4K5 K4X5 `z{I1z{I10I` 0f4 f 5E4 4@E5 5ɐ@ `fLf0imɏm`L!pn8Bnnmmmmxy I`{HzhQ`P0ZKp )` )``i)``eSUS8H*hjLpU8PH*hj[PSmLpSUm[U )mS;86   )mUɠ!8S4U5H 0/oomom )rn     )?Bn   )n !p   n/Jp0 m ` oo8ooo)ooo o,00Lonɰ !prn0}mm'm"m`)Ipm8Ipm ނmm`n Bn}nnm'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( и C `:i,0 `ɠ`5ɠ`84Ii<85Ii=44?<=752xy ?e<=?=?>z{>L}`xy 4?e=<?z{>Lɿu3H 1h 1 1H 1h 1 1hLHxy h``=ȱ=mȱ=ȱ=ȱ="0JȘe==>i>:i,0 LIȘe==>i>m:i,0 LI``ͽmm Lͽm L 6 Z5 Z4 Z3 Z2 ZLZ1+0`1+`0 Z/ Z. Z- Z, Z Z`:i| ,0`iL)0\H 18@@8AA`ABff0ff0fPfAfB f0f@f` Z`"B&F*J.N2R6V:Z`     N`$,$ ,0`8Hh` %P 0f"@f Pff !"#& `,09JJJJm2 08 32)m3 08 43JJJJm4 4`8 5458 5668 6`P,P0&`A@pd) *m@@` $ 'u 'j I I  . .  I I" !."!.""I"!I!`8L `0415 Mf0f1(58140` `p?ʩJKieiei e`O M9 &N&Oj9*m!!m""L7,Q,TLi)m##m !m$$m")) )^   "! "!`)L7``@`@`````aa@a@aaaaa`LL7  %`,@JM )0L{LwiL$L,ɛ,,ɓ ]jL{L$L@0L7@ɈHɕ ,7,2,a$]a aL7L7BB)J` *m=m   8@L@LLL@  L8 @ 0F  @@L0 `@ TTT@pp~~~}}}|||{{{zzzzyyyxxxwwwwvvvvuuuutttttsssssssrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrssssssstttttuuuuvvvvwwwwxxxyyyzzzz{{{|||}}}~[@@ @* $$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @  !!!!!!!"""""""#######H@(                        ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPH `p`hH8 ȸH0HH@H𠸸hH(41zIeɐp6GW%n141zIe41zIe 8FXɐp6GW%n141zIeƇX@nK^%嶏Wf9B8uӏ`_0Γ 0 ` GHESS$" ", (PL$(C),5)"APPLE"10007 10000A 9000V QT((1)3024)e LOOP1QT} PWPW1:PW25PW1 4:WH$(PW);" ":SPEAK(16336):SPEAK(16336) PAUSE11.7LOOP:PAUSE:LOOP FF(0)!WH$(PW)"FREE SPIN"$,LOOP,1);LOOP::@23:"THE PUZZLE IS : ";::ITZA$:KCST1(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"YD$"Y"Ģ22:RE$CC1:C3C134,1:2:868:PL$(C);"'";(PL$(C),1)"S"ĺ"S";" TURN":34,2::"TOP MONEY IS $"MV(G)" ";:30:"PUZZLE #";PZ:34,1QQQ126:IP(QQ)0:QQZT((1)QA1):REAL$REAL$(ZT):ITZA$ITZA$(ZT):UP(ZT)13411002:UP(ZT)116:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:138 (REAL11001/cLOOP13:GT(LOOP)0:FS(LOOP)0:LOOPXdPZ16:LOOP13:CASH(LOOP)0:LOOPreUL$"":GG1:G3G3fSTST1:ST3STST3gCC1xG2āLOOP124:WH$(LOOP)WI$(LOOP):LOOPG3āLOOP124:WH$(LOOP)WJ$(LOOP):LOOPPW07OT":"NECESSARILY DENOTE A PROPER NAME."W`22:"THREE PLAYERS:";PL$(1),PL$(2),PL$(3)a(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"Ģ22:868:"DISPLAY ANSWERS (Y/";::"N";::") ?";:YD$:b22:868:"PRESS ANY KEY TO BEGIN..."::"VOWELS COST $250 EACH, BUT CONSONANTS ARE FREE."7:"IF YOU WANT THE COMPUTER TO PLAY ONE OR MORE OF THE THREE PLAYERS, SIMPLY TYPE ";::"APPLE";::" AS THE PLAYER'S NAME(S)."(8::"NOTE";::": THE DESCRIPTION ";::"A PERSON";::" DOES NTHE NBC-TV GAME SHOW 'WHEEL OF FORTUNE.' IN THIS GAME, YOUR OBJECT IS TO SOLVE PUZZLES LIKE YOUWOULD SOLVE WHEN PLAYING 'HANGMAN.' YOUEARN MONEY EACH TIME YOU GUESS";56" COR- RECTLY, BUT IF YOU HIT ";::"BANKRUPT";::", YOU LOSE IT ALL!":UPT,700,500,350,400,550,300,200,900,200,400,300,BANKRUPT,600,250,200,LOSE A TURN,350,2000,500,250,300,800,1500321:11:"INSTRUCTIONS (";::"Y";::"/N) ?";:YN$:4YN$"N"Ģ20:958:22:965::"WHEEL OF FORTUNE":::"THIS GAME IS BASED ON FREE SPIN,200,300,400,500,100,200,300,175,7501MV(2):LOOP124:WI$(LOOP):LOOP:1000,BANKRUPT,600,250,200,1000,150,300,400,750,450,LOSE A TURN,800,150,900,250,BANKRUPT,400,550,300,200,900,200,400,300n2MV(3):LOOP124:WJ$(LOOP):LOOP:2000,BANKR-807,3:808,240:809,9:810,202:811,208:812,245:813,174:814,0:815,3n.816,76:817,31:818,3:819,96/FL$"TNSRHLDCFPMWYBGVKQXJZ"-0MV(1):LOOP124:WH$(LOOP):LOOP:750,BANKRUPT,350,250,600,400,150,200,250,400,LOSE A TURN,450,150,200,100,mmmm}}~mmmmmmmmmmmllllkkkkjjjiihhhggffeeddccbaa``_^^]\\[ZZYXXWVUUTSRRQPOONMMLKJJIHGGFEEDCCBAA@??>>=<<;;::9988777665554444333322222222222222222222233334444555667778899::;;<<=>>??@AABCCDEEFGGHIJJKLMMNOPPQRRSTUUVWXXYZZ[\\]^^_``aabccddeeffgghhhiijjjkkkkllllmmmmmmeeee~}}|{zzyxwwvuutssrqqpoonnmllkkjjiihhgggffeeeddddccccbbbbbbbbbbbbbbbbbbbbbccccddddeeeffggghhiijjkkllmnnoopqqrsstuuvwwxyzz{|}~~eeeeeeeeeeeeedddddccccbbbaaaa``___^^]]]\\[[ZZYYXXWWVVUUTTSSRRQQPOONNMMLLKKJJIIHHGGFFEEDDCCBBBAA@@@??>>>>===<<<<;;;;;:::::::::::::::::::::::::;;;;;<<<<===>>>>??@@@AABBBCCDDEEFFGGHHIIJJKKLLMMNNOPPQQRRSSTTUUVVWWXXYYZZ[[\\]]]^^___``aaaabbbccccdddddeeeeeeee]]]]~~}}||{{zzyyxxwwvvuuttssrrrqqpppoonnnnmmmllllkkkkkjjjjjjjjjjjjjjjjjjjjjjjjjkkkkkllllmmmnnnnoopppqqrrrssttuuvvwwxxyyzz{{||}~~]]]]]]]]]]]]]]]]\\\\\\\[[[[[ZZZZYYYYXXXXWWWVVVUUUUTTTSSSRRRQQQPPOOONNNMMMLLLKKKJJJJIIIHHHGGGGFFFFEEEEDDDDDCCCCCCCBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCDDDDDEEEEFFFFGGGGHHHIIIJJJJKKKLLLMMMNNNOOPPPQQQRRRSSSTTTUUUUVVVWWWXXXXYYYYZZZZ[[[[[\\\\\\\]]]]]]]]]]] ";:VO$X0F(VO$"A"VO$"E"VO$"I"VO$"O"VO$"U")ĺ(7);:21170GL15:GG$(L)(CN$,L,1):L:GG$(6)VO$0HL16:LOOP1(REAL$):(REAL$,LOOP,1)GG$(L)Ģ16:LOOP:GG$(L);:1980ILOOP,L$1J8:1:868:"FOR $5000, WHAT'S IS : ";::IT$(ZT):b/BL115:L:868:L:8:"NOW, TYPE FIVE CONSONANTS, ALL AT ONCE ";:CN$/CL15:KN$(CN$,L,1):KN$"@"KN$"["(KN$"A"KN$"E"KN$"I"KN$"O"KN$"U")ĺ(7);:1:L5:L:2114/DL:9:8680E8:"NOW, INPUT THE VOWEL ANY KEY WHEN READY.":11001c. QQ126:IP(QQ)0:QQ:ZT((1)QA1):REAL$REAL$(ZT):UP(ZT)2080w.*11002:UP(ZT)1.>16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:2112.?(REAL$,LOOP,1);.@LOOP::/A23:"THE PUZZLEHAN THE REST OF YOU!":6000[-"AND NOW, IF YOU'RE READY, WE'LL GO FOR THE BONUS ROUND."- "YOU'LL HAVE A PUZZLE ON WHICH YOU CAN GUESS SIX LETTERS -- FIVE CONSONANTS ANDONE VOWEL. IF YOU CAN GUESS THE PUZZLE,YOU'LL WIN $5,000 CASH.".:"PRESST(1):GW1:GT(2)GTGTGT(2):GW2=,GT(3)GTGTGT(3):GW3,"WITH A TOTAL OF $"GT;",":PL$(GW)" IS THE WINNER FOR TODAY!",LOOP110:198:LOOP,PAUSE11000:PAUSE,-(PL$(GW),5)"APPLE"ĺ"IT LOOKS LIKE THE COMPUTER IS SMARTER T USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001F+145+IP(1)Ģ10:10050:"ONLY VOWELS LEFT...I'LL GUESS.":12:100:RE$:255:8000+11:"I'LL SPIN...":PAUSE1200:PAUSE:(37):868:1001++ END OF DAY+:!,GTGP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:CASH(C)CASH(C)AMTw*LOOP:20:(GU$)64:GU$;:1*UL$UL$GU$*IZITIP((GU$)64)0:1030*SS115:SOUND(16336)(16336)(16336):SS=+FS(C)FS(C)FS(C)1:11:"I'LLUSE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001[)WH$(PW)"LOSE A TURN"145l)8:868:11)GUESS$(FL$,CC,1):CCCC1:DD1(UL$):GU$(UL$,DD,1)1011)DD:IZIT0:11:"I'LL GUESS...";GU$:PAUSE1200:PAUSE:(37):868U*LOO(WH$(PW))AMT(WH$(PW))(WH$(PW)"BANKRUPT"Č771:CASH(C)0:9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001(WH$(PW)"BANKRUPT"145<)WH$(PW)"LOSE A TURN"İ9000:FS(C)FS(C)FS(C)1:11:"I'LL N.....":PAUSE1150:PAUSE:(37):8682'9000G'QT((1)3024)'LOOP1QT:PWPW1(24(PW24)):4:WH$(PW);" ":SPEAK(16336):SPEAK(16336):PAUSE11.7LOOP:PAUSE,LOOP:FF(0)'WH$(PW)"FREE SPIN"FS(C)FS(C)1:1000(45 & GHESS$""GHESS$"S"159& GH$"G"GU$RE$IP(1)āPA1012:PA:868:PA:10:"WE'VE REACHED A DRAW. THE SOLUTION IS BELOW. CASH ACCUMULATED ADDED TO VALUE OF NEXT GAME.":16:RE$:9503:101& 260& COMPUTER SECTION('11:"MY TURSH(C)CASH(C)250:9000:200v%GHESS$"G"Ģ11:"TYPE YOUR ANSWER. INCLUDE ALL SPACES. ";GUESS$:GUESS$REAL$8000&GHESS$"G"GUESS$REAL$Ģ10:868:11:868:12:868:"SORRY, THAT'S WRONG!":PAUSE1650:PAUSE:(37):868:((IP(1))1)266,1?";:ZZ$:K$FS(C)Ģ(37):868:(37):868:ZZ$"Y"FS(C)FS(C)1:158T$145$IP(1)Ģ10:10050:"ONLY VOWELS LEFT-YOU MUST GUESS!":GHESS$"G":263$11004:GHESS$:(37):868:(37):868:GHESS$(GHESS$,1)%GHESS$"B"CASH(C)250CA"B"CASH(C)CASH(C)AMT"#LOOP2#ZY1:11000N#20:(GU$)64:GU$;:1^#UL$UL$GU$}#IZITIP((GU$)64)0:260#SS115:SOUND(16336)(16336)(16336):SS $FS(C)Ģ11:"WOULD YOU LIKE TO USE A FREE SPIN CARD (Y/";::"N";::") UESS$"I"GUESS$"O"GUESS$"U")GH$"B"ĺ"YOU CAN'T DO THAT, THAT'S A VOWEL.";(7):PAUSE1400:PAUSE:(37):868:200"GUESS$"A"GUESS$"Z"Č198:1:200"7000#LOOP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:GHESS$FS(C)FS(C)1:1582!(WH$(PW))AMT(WH$(PW))k!WH$(PW)"BANKRUPT"Č771:CASH(C)0:11000:9000:250!WH$(PW)"LOSE A TURN"250!8:868!11:"INPUT GUESS....";:GUESS$:GUESS$(GUESS$,1):IZIT0:(37):868z"(GUESS$"A"GUESS$"E"G , *** TALLY SCORING CHOICES ***JN15:D1(N)D(N):N:SF0wJ0:N14: PUT DICE IN NUMERICAL ORDERD1(N)D1(N1)1530J1:TD1(N):D1(N)D1(N1):D1(N1)TN:J01500J113:S(J)0:JI2D(1)D(I)1730/ ***FROM CREATIVE COMPUTING MAY,82P ***ENTERED BY:KEVIN HESTER2,0,504> 118,154,125,143,124,140,120,132,115,127rH 122,122,130,118,135,122,148,125,155,120,162,117,170,112R 175,110,183,114,190,118,190,125,195,135,203,143,212,150,219,159p49235,0:49232,0z ***BY:JOHN HITCHCOK 5,136268I,140273,1403X35:Y0?K139HA,BUX,YA,BaXA:YBw K19X120:Y159~K  37,6,41,8,56,10,73,13,79,17,106,22,114,27,117,43* 130,46,130,50,110,55,102,58,91,67,75,70,58,724 42,58,25,56,15,5239,0:49236,0360,0279,0279,1590,1590,0I140,0140,159Z0,80279,80{175,10183,20167,20175,1015,9530,9530,10515,10515,9512,965,965,10412,104:5,10010,100245,135260,135260,145245,145245,135&27FB1::K17:K:0,0:62454:Z1250:Z:K:21:1:958:"URGENT MESSAGE...ALL BASES DESTROYED....SUGGEST YOU SURRENDER IMMEDIATELY.....";:D21:958:"GREAT JOB,CAPTAIN..YOU HAVE DESTROYED ALL THE ENEMY BOMBERS AND WIN THE WAR!";:NX49FIGHTER"#D%(P,8)2T$"TANKER"?21:958:"TYPE...";T$V"FUEL...";D%(P,9)r"WHEAPONS...";D%(P,10)OK11000:K500&21:958:"TRIANGLE BASE ATTACKED":Z11000:Z:TB1:021:958:"FIGHTER BASE ATTACKED":Z11000:Z:ISSION"rK1500:K |500N23:958:"CAPTAIN,YOU ARE OUT OF RANGE"cK1500:K:500j 21:958:"IDENTIFY WHICH PLANE(1-7)?";K1250X(RK):RS,0(X48)(X56)PX48:1750X0:K:500D%(P,8)1T$"11000:Z:500:21:958:"REFUEL WHICH PLANE(1-6)?";GK1250Y"X(RK):RS,0q,(X48)(X57)16006X0:K:500@JPX48T((D%(P,5)D%(7,5))5)((D%(P,6)D%(7,6))5)1670^D%(P,9)75h23:958:"NOW REFULED...RESUME MC;" HITS....";$HC0ĺ"GOOD JOB"8HC0ĺ"KLUTZ"IZ11000:ZWHC0:500z23:958:"WHEAPONS DEPLETED"Z11000:Z50021:958K15:(7);:K"WHAT A DUNDERHEAD...YOU WERE TOO CLOSE AND WERE SHOT DOWN."Z*QR:s6*11:" TO ";::"SPIN";::", TO GUESS THE PUZZLE";:CASH(C)250ĺ" OR TO BUY A VOWEL ";y6*6 N---------------- WHEEL OF FORTUNE JOE ISHAM ---------------- 8:.5B'QR15:(7);:PAUSE155:PAUSE,QR:_5*8:1:"YOUR CASH IS $"CASH(C)" ":9000:5*16368,0:16384,128:16368,0:FF(((78)(79)256)):5*QR1(REAL$):QR$(REAL$,QR,1):QR$" "QR$"-"QR$"'"IP((QR$)64)IP((QR$)64)16H(CM)0/4%CM::1:29::"GRAND TOTAL":34,2P4%CM13:GT(CM)GT(CM)CA(CM)4%2CM:31:CM:2CM:33:0(GT(CM)10000)(GT(CM)1000)(GT(CM)100)(GT(CM)10));GT(CM):CM:4%PAUSE11000:PAUSE:5'11:"PRESS RETURN TO SPIN ";ZZ$:(37):86 3YLL:]3@:PL$(C);" WINS!!!":LOOP15:198:LOOP:9499:PAUSE11000:PAUSE:PZ:20003(#:3:31:1:4:31:2:5:31:3::2C:31:C:3)#2C:33:0(CASH(C)10000)(CASH(C)1000)(CASH(C)100)(CASH(C)10));CASH(C):4%:CM13:CMCCASSE=2p21:958::"PRESS C TO PLAY AGAIN, Q TO QUIT ";:YN$Z2q::YN$"C"FF(0)::m2rYN$"Q"6000s2W2XLL1(UL$):(UL$,LL,1)GUESS$Ģ11:"SORRY, YOU'VE USED A USED LETTER.":PAUSE11000:PAUSE:(37):868:LL(UL$):LL:11000::255 YOUR GUESS?":9:868:GU$:9:868f1KGU$RE$Ģ8:868:"SORRY, THE ANSWER WAS...":16:RE$:21251L16:RE$:8:868:"RIGHT!!!!!":GTGT50002M20:"TODAY, YOU WON...$";GT:"CONGRATULATIONS!!!!!":LOOP15:198:LOOP:PAUSE1500:PAU YOU SUM ALL DICE."' F' "9.FULL HOUSE - IF YOU HAVE 3 OF ONE"s' " DICE AND 2 OF ANOTHER,"' " SCORE 25 POINTS."'& '0 "10.SM.STRAIGHT-IF YOU HAVE A SEQUENCE"': " OF 4 DICE, SCORE 30 PTS."(DR MORE, A 35 POINT BONUS IS ADDED.":3390:936[& A$"L O W E R S E C T I O N"::2380:a& & "7.3 OF A KIND- IF YOU HAVE 3 OF A KIND,"& " YOU SUM ALL DICE."& & "8.4 OF A KIND- IF YOU HAVE 4 OF A KIND,"' " ALL 'ONES'."1%r "2.TWOS - SUM OF ALL 'TWOS'."W%| "3.THREES- SUM OF ALL 'THREES'."|% "4.FOURS - SUM OF ALL 'FOURS'."% "5.FIVES - SUM OF ALL 'FIVES'."% "6.SIXES - SUM OF ALL 'SIXES'."% :"IF THE TOTAL FOR THE UPPER SECTION IS"/& "63 OICE TWICE MORE"=$6 "BEFORE SELECTING YOUR SCORING CATAGORY"k$@ "PLAYERS SCORE IN THE FOLLOWING MANNER."$J "EACH OF THE THIRTEEN CATEGORIES HAS A"$T "RULE FOR SCORING. THEY ARE:"$^ :A$"U P P E R S E C T I O N"::2380: %h "1.ACES - SUM OFX:8# 936:"YAHTZEE IS A POPULAR GAME IN WHICH EACH"f# "PLAYER SCORES THE VALUE OF HIS DICE IN"# "ONE OF SEVERAL SCORING CATEGORIES."# "YOU BEGIN YOUR TURN BY ROLLING"#" "ALL FIVE DICE. IF YOU LIKE, YOU CAN"$, "RE-ROLL ANY OR ALL THE D"13 CHANCE"" "LOWER TOTAL"1" "YAHTZ BONUS"E" "GRAND TOTAL";o" X1N2:1:XX20N2X9:N22XXXX3" N21XX21" XX:X;:X" X15:X41:33:X;:X" " " *** RULES ***" 22:1:868:23:1:868:# XX1SP50:X PLAYERS >>"! " 1 ACES"+! " 2 TWOS"Z15:D2(Z)02160HY2:XX5:Z1D1(I)5I1910lI:1920%v1940=SC(PP11)11940`S(11)40:2030: CHECK STRTSI15:D2(I)0:I:D2(1)D1(1):J1I25D1(I)D2(J)1980JJ1:D2(J)D1(I)I:J41670I13:D2(4)D2(I)4I2010I:2030K4:1650-D1(1)D1(2)D1(1)D1(3)1870OD1(2)D1(3)D1(2)D1(4)1870t&(D1(3)D1(4)D1(3)D1(5))18900D1(1)D1(2)1880: CHECK FULL HOUSE:SC(PP9)11880DS(9)25:1880ND1(4)D1(5)1850XK3:1660bI14:D1(5)SC(PP13)1S(13)TTL:I15: CHECK UPPER HALFUSC(PPD1(I))11710qS(D1(I))S(D1(I))D1(I)xI~I2D1(1)D1(I)1770II1:I517401800I3: CHECK 4/KINDD1(2)D1(I)1810II1:I61780 "II1:I61560(,SC(PP12)11640F6SC(PP18)1SC(PP18)0b@SC(PP18)SC(PP18)100{JSC(PP9)1S(9)25TSC(PP10)1S(10)30^SC(PP11)1S(11)40hSC(PP12)1S(12)50rSC(PP8)1S(8)TTL|SC(PP7)1S(7)TTLG18Č9122^VT:6:NG;12);G$;24);CP;34);CL;<h4999Rr:(7);(7);(7)jw"THE WORD WAS ";W$|22:"YOU GOT IT IN ";NG;" GUESSES":23::40:CP5 ************************ PLAY AGAIN? ****************0:S(I)0:2I15:G$(I)WO$(I)M(I)2:S(I)28CI15NJ15jIJM(J)0S(I)04110G$(I)WO$(J)M(J)1:S(I)1:4120JI"I15:S(I)2CPCP1,6I15:S(I)1CLCL1@JVTNG3:VT20VT21 TNG$ (G$)5ĺ(7):3040: I15:G$(I)(G$,I,1):D 34,3J************************ SCORE GUESS *****************************G$"?????"Ģ22::"THE WORD WAS: ";W$::4230G$W$4210CP0:CL0 I15:M(I)4:" # ";:12:"GUESS";:20:"POSITION";:31:"LETTER "GH:34,3RR35,21X  ************************ INPUT GUESS ***************************** NGNG1 34,22 23:24:" " 23:"ENTER A 5 LETTER WORD ";:******CNUNė:12::(7);"ALL WORDS HAVE BEEN USED UP":10999ZI((1)(NNU)1)gW$W$(I)zW$(I)W$(NNU)W$(NNU)W$ I15:WO$(I)(W$,I,1):NUNU1 NG0*34,0:4:4:"GUESS";:20:"CORRECT ";:31:"CORRECT";>4. YOUR LAST 18 GUESSES ARE ALWAYS DISPLAYED." `:"5. IF YOU GIVE UP, TYPE '?????' AND THE COMPUTER WILL REVEAL THE SELECTED WORD." j40 ************************ SELECT WORD ***********************D SHOULD BE A WORD." L:"3. AFTER EACH GUESS, THE COMPUTER WILL TELL YOU HOW MANY LETTERS IN YOUR GUESS ARE IN THEIR CORRECT POSITION IN THE WORD. AND HOW MANY LETTERS ARE CORRECT, BUT NOT IN THE CORRECT POSITION."7 V:" AS POSSIBLE." $408 .:12::" RULES OF PLAY ": 83:"1. ALL WORDS ARE FIVE LETTER ,NON- CAPITALIZED NON-HYPHENATED WORDS FROM G.C. MERRIAM'S NEW COLLEGIATE DICTIONARY (1975)." B:"2. YOUR GUESS MUST BE FIVE LETTERS ANOMPUTER RANDOMLY SELECTS ONE OF OVER 250 FIVE LETTER WORDS. :" YOUR PROBLEM IS TO GUESS THE WORD. AFTER EACH GUESS, THE COMPUTER WILL GIVEYOU INFORMATION REGARDING HOW GOOD YOUR GUESS WAS. YOUR OBJECTIVE IS TO GUESS THE WORD IN AS FEW TURNS ";:8::"PRESS RETURN TO CONTINUE";::A$: ************************ PRINT INSTRUCTIONS *****************************  :4:11:" WORD MASTERMIND ": 7? " WORD MASTERMIND IS A LOGIC AND VOCABULARY GAME. THE C ************************** WORD MASTERMIND ** PROGRAMMED BY KEN SCOTT ** VERSION 1.0 9/18/82 ***************************** :10000************************** SHORT SUBROUTINES *****************************3 (24:"              + ++* A$"G O O D L U C K"::2380:1+4 h+> 24:A$"HIT RETURN TO CONTINUE":(40(A$))2:A$;+H C$:C$(13)3400+R 16368,0:23:1:868:SS .* "THE COMPUTER WILL ADVISE YOU OF THE"]* "POSSIBLE SCORING CHOICES IF YOU DESIRE."* :"THE GAME CONTINUES UNTIL ALL CATEGORIES"* "ARE FILLED. THE SCORING ENDS AFTER SIX"* "GAMES OR WHEN YOU REQUEST.":+ "FOR ONE TO FIVE PLAYER'S"EACH TURN, A PLAYER MUST CHOOSE"K) "ONE OF THESE CATEGORIES, EVEN IF IT"c) "SCORES A ZERO.":) :"YAHTZEE BONUS'S";::" WILL BE GIVEN") "AUTOMATICALLY. THE PLAYER ONLY") "HAS TO CHOOSE THE APPROPRIATE") "CATEGORY FOR THE SCORE."* /(N "11.LG.STRAIGHT-IF YOU HAVE A SEQUENCE"^(X " OF 5 DICE, SCORE 40 PTS."d(b (l "12.YAHTZEE -IF YOU HAVE 5 OF A KIND,"(v " SCORE 50 POINTS."( ( "13.CHANCE -SUM OF ALL DICE.":3390:936 ) "AFTER P18:HL:SC(PP18);-Z19:HL:SC(PP17);Kd2800:JJ:HL:TL:2790:yn *** PRINT SCORING POSSIBILITIES *** xJ2:50,127:I113SC(PPI)11460J121440S(I)01460J:I6ĢJ2HL:S(I);JJ1:I:50,255: LOWER SCORE I,SC(PP18)11320`SC(PP16)T:SC(PP17)SC(PP16)SC(PP14):1330(SC(PP16)T:SC(PP17)SC(PP16)SC(PP14)SC(PP18): TOTAL SCORE29:HL:SC(PP14);<17:HL:SC(PP16);FSC(PP18)1Ģ18:HL:" ":1370 FLASH SCORES"TL9čHL,JJ21JT0:I16:SC(PPI)0TTSC(PPI)kI:SC(PP14)T: UPPER SCORESC(PP15)0:T631270SC(PP15)35:8:HL:50,63:35;:SC(PP14)SC(PP14)SC(PP15): BONUS T0:I713:SC(PPI)0TTSC(PPI):)):(A$)3T1T10(((A$,3,3)))-t1160|~2790:22:34,22:35,22:"WHAT ROW # DO YOU WISH TO SCORE?";T:34,0:35,24T1T131150SC(PPT)11150SC(PPT)S(T)JT1:T6JJ2JJJ:TLS(T) JJ:HL:TL:HL1,JJ21: "HIT RETURN TO END SERIES":23809(16384)1271050R$(16384)1601080f.16368,0:GAME816368,0::"CONGRATUATIONS, YOU WON ";NAME$(P(D(1)),P(D(1))N(D(1)))BL V *** PLAYER SCORING ***`(A$)11150#jT((A$,2,2C(X)SC(XX17):T(X)TSC(X):XN936:8:A$"GAME AND SERIES TOTALS":2380:fX1N2:XX(X1)18NAME$(X);:12:SC(XX17);2);T(X)SC(XX17)375ĺ"CONGRATUATIONS - A PERFECT GAME!!"X:A$"HIT SPACE BAR FOR NEXT GAME":2380!A$820!pD(T)((1)6)1:D2(T)1(zXUTTLD(1)D(2)D(3)D(4)D(5):2110:1490{J1J11:21:21:"ROLL# ";J1:580X121:35:X:" ":X1:HL:PLPLROUND *** SCORE GAME TOTALS ***X1N2:XX(X1)18:TSC(X)TSJ13580 (A$,1)"R"580: *** RE-ROLL DICE ***K (A$)1820g*A$(A$,2,(A$)1):83042790:35,22:34,22:23:1:"DICE TO RE-ROLL?";A$:34,0:35,24>(A$)0820HX15:D2(X)0:XRX1(A$)\T((A$,X,1))fT1T5J2:I113:I7JJ2-SC(PPI)1670?J:HL:" ";LJJ1:IcSC(PP14)1700u8:HL:" ";SC(PP18)172018:HL:" ";(A$)0580(A$,1)"P"7501390:580(A$,1)"S"7701110:920ROLL DICE *** &2460; 02070:J11:21:21:"ROLL# ";J1E :1490] D22:868:23:868 N22:1:"ENTER: P FOR POSSIBILITIES, S FOR SCORE" X23:34,22:35,22:J13620 b8:A$:630 l8:"R FOR ANOTHER ROLL: ";A$ v34,0:35,24:2790ROUND113> 24:8:"R O U N D ";ROUND;" G A M E ";GAME;`  *** PLAYER LOGIC LOOP ***m PL1N2 PP(PL1)18:HL20N2PL9:N22HLHL3 N21HLHL8 7:HL1,1 20:1:868 21:868::NAME$(PL);"'S TURN";:  *** ":X) ^12:A$"PLAYER ORDER":2380:5 hX1N2W r"PLAYER ";X;" ";NAME$(X)j |X:2450:936p   *** GAME LOGIC LOOP *** GAME16 I118N2:SC(I)1:I 2510: DISPLAY SCOREBOARD  *** ROUND LOGIC LOOP *** 0. A$"(ENTER ONLY RETURN WHEN DONE)":2380; :X15_ "ENTER NEXT PLAYER'S NAME:";A$p (A$)0330 (A$)10300 "ONLY 10 LETTERS PLEASE";(7):250 " ,NAME$(X)(A$,1,10) 6TSC(X)0 @X JN2X1 TX121:X:35:" + BY":2380+ x17:A$"LEE EKBLADH":2380G 19:A$"06/16/82":2380Q 2800y 22:"DO YOU WANT INSTRUCTIONS?";A$ A$""150 (A$,1)"Y"190 2810:2450 936 255 *** PLAYER SELECTION *** A$"PLAYER SELECTION":238#  :BSC(90),TSC(5),T(5),D(5),D1(5),D2(5),N(5),P(5),S(13)LSP15S( s2 ***** INTRODUCTION *****}<936FP9:A$"Y A H T Z E E":2380Zd11:A$"COPYRIGHT 1978 APPLE COMPUTER INC.":2380 n15:A$"ADAPTED FOR APPLE II                      8/82 * % * *> ******************D r ::16382:X(13),Y(13):IN1:F1:FS1:56 46,12084,9646,72:49235,0:49236,0:49238,0:S0:BL0: XH,YH:X(10)XH:Y(10)YH:YHYH1:XHXH1: X1,Y1:X(11)X1:Y(11)Y1:Y1W1 ******************5 * *O * BASEBALL *i * * * BY *  * *  * DOUG *  * COLLINS * * * * 6/1SES)f+ WO$(): LETTERS OF WORD SELECTEDAp+ S(): LETTER SCOREXz+ VT: VERTICAL TABp+ W$: WORD SELECTED+ W$(): ARRAY OF WORDSN*!+ A$: GENERAL ANSWER STRING: + CL: CORRECT LETTERU+ CP: CORRECT POSITIONe + G$: GUESS*+ G$():LETTERS OF GUESS4+ I: GENERAL INDEX>+ J: GENERAL INDEXH+ N: NUMBER OF WORDSR+ NU: NUMBER OF WORDS USED\+ NG: NUMBER OF GUES00INITIALIZE$$'1000INSTRUCTIONS:.'2000SELECT WORDP8'3000INPUT GUESSfB'4000SCORE GUESSwL'CP510040V'5000PLAY AGAIN? `'YES10030j'1016************************* LIST OF VARIABLES ****************************I):INU0d10:"RANDOMIZING RANDOM NUMBER GENERATOR PRESS ANY KEY TO START GAME."RN(1):KB(16384):16368,0:KB12879997080?'*********************** MAINLINE ***************************** '70NG,YOURS,YOUTH,YUCCA,YUMMYP~ ZEBRA,ZEROS,ZESTY,ZINGY,ZIPPY,ZONAL,ZONES,ZOOMSVWX************************ INITIALIZATION *****************************b:l10:"SETTING UP ARRAY OF WORDS TO GUESS."vN:W$(N)I1N:W$(@LUDDER,UMBER,UNDER,UNION,UNTIE,UPPER,URBAN,URGES,USING,USUALVVALID,VAPOR,VERSE,VESTS,VIDEO,VIGOR,VITAL,VOTER,VOUCH,VYING`WATER,WAVER,WEAVE,WHICH,WHILE,WINCE,WITCH,WOMEN,WOOLY,WRISTjXEBEC,XENON,XEROXtYACHT,YEARN,YEAST,YIELD,YODEL,YOUQUAFF,QUALM,QUART,QUEER,QUEUE,QUEST,QUICK,QUIET,QUILT,QUOTA}.RABID,RACER,REACH,REBID,RIDER,RIVAL,ROOMY,ROUGH,RULED,RUNGS8SAVOR,SCARE,SERUM,SHILL,SIEVE,SOOTH,SPARK,STEEP,SURLY,SWELLBTAPER,TENTH,TEPID,THINK,TITLE,TOOTH,TOTEM,TRACE,TUBER,TWINEKS,MEDAL,MEANS,MILKY,MISTY,MIXER,MOIST,MORON,MOOCH,MUSESyNADIR,NASTY,NEARS,NEVER,NIFTY,NINTH,NOTCH,NOTED,NUDER,NUDGEOASIS,OCCUR,ODDLY,OFFER,OGIVE,OLDER,OPTIC,OTHER,OUNCE,OVERTPACER,PEACH,PHOTO,PILED,PLANT,PORCH,PRONG,PSYCH,PUFFY,PYLON<$DIOT,IGLOO,IMAGE,INANE,INFER,INGOT,IRATE,ISSUE,ITCHYuJAWED,JEANS,JETTY,JEWEL,JIFFY,JOIST,JOLLY,JOUST,JUDGE,JUICEKABOB,KAYAK,KEMPT,KHAKI,KINKY,KNACK,KNOCK,KNOWN,KOALA,KUDOSLANKY,LARGE,LEARN,LEAST,LEECH,LEVER,LOOSE,LOVES,LOYAL,LURID8MAR,EBONY,ECHOS,EDGER,EERIE,ELATE,EMPTY,ERROR,EVENTqFACES,FACIT,FAVOR,FEVER,FLASH,FORGE,FRAIL,FREAK,FROND,FURRYGIVEN,GLIDE,GORGE,GOING,GOOSE,GOUGE,GREET,GRIST,GROUT,GUESTHAPPY,HAREM,HAVEN,HEARD,HINGE,HOIST,HOTEL,HOVER,HUSKY,HYENA4ICING,IOR,AGING,ALONG,ANGRY,ANVIL,ASPIC,AWFUL,AXIOMmBARGE,BEAST,BICEP,BLADE,BLEAK,BOARD,BROWN,BUILD,BUNCH,BUSHYCEDAR,CHOIR,CHOPS,CIVIL,CLONE,COINS,CRAFT,CREAK,CROWN,CURSEDANDY,DEVIL,DIRGE,DIVOT,DRAFT,DRAIN,DRINK,DOUSE,DOWNY,DYING0EARLY,EASES*************YES0"::10R"DO YOU WANT TO PLAY AGAIN (Y/N)? ";::A$jA$"Y"YES1:5999A$"N"ĺ(7):5030op************************ WORD DATA STATEMENTS *****************************z 251,ABYSS,ABOUT,ACT@,9FUdo$/666-??-$???$46--'$666?$,-=?76--6>?/?$,-=?766.-%$? $X(RK):RS,0Eʃ(ϴ8ͨX5)H()$HH)X000ރ0D%(P,1)HH1D%(P,3)0:D%(P,4)1:500H2D%(P,3б:%P410H3D(,)1D(,)00H4D:958:"SCRAMBLE WHICH PLANE(1-7)?"1RK1250C\X(RK):RS,0lf(X48)(X58)XX48:D%(X,0)1:510xpK:500z21:958:"WHICH PLANE(1-9)?";K1250X(RK):RS,0(X48)(X58)P$(X):P(P$):X0:P:940X0:K:500FC157D%(9,0)0İ1830/TB1FB11850@FC1571860`21:1:958:"COMMAND=";FCj1880s240X211X0:840 X200X0:890X198X0:1250 X214X0:1090*X210X0:15504X201X0:1700>510$H210)0İ1830'vFC126D%(14,0)0İ1840>FC130D%(13,1)4pFC135D%(11,1)1:D%(11,2)3:D%(12,2)3:740FC138D%(10,0)0İ1840FC140D%(13,0)0İ1840FC142D%(9,2)3:740FC155D%(12,0)0İ1830FC156D%(11,0)0İ1830(13,2)3:7401:FC87D%(8,1)3:D%(8,2)3:740nDFC100D%(14,0)1:D%(15,0)1:D%(14,2)5:D%(15,2)3:740NFC102D%(9,1)2:D%(10,1)4:D%(10,2)3:D%(12,1)3:740XFC115D%(10,1)3:D%(13,1)3:740bFC120D%(8,0)0İ1830 lFC125D%(15, X(RK):RS,0! X127770' 3 FCFC1l FC2D%(8,0)1:D%(9,0)1:D%(10,0)1:D%(10,1)3:740 FC20D%(11,0)1:D%(12,0)1:D%(13,0)1:740 FC52D%(8,1)2:D%(9,1)4:D%(11,1)3:740 &FC70D%(12,1)1:740 0FC80D%(13,1)4:D%%(R,0)1 D%(R,9)15ĺ(7);7 DXD%(R,2)D%(R,3)N DYD%(R,2)D%(R,4)e D%(R,5)D%(R,5)DX| D%(R,6)D%(R,6)DY D%(R,5)3D%(R,5)276D%(R,5)0:D%(R,0)1 D%(R,6)3D%(R,6)156D%(R,6)0:D%(R,0)1 D%(R,7)D%(R,5),D%(R,6) R%(R,1)4D%(R,3)1:D%(R,4)1? @D%(R,1)5D%(R,3)0:D%(R,4)1c JD%(R,1)6D%(R,3)1:D%(R,4)1 TD%(R,1)7D%(R,3)1:D%(R,4)0 ^D%(R,1)8D%(R,3)1:D%(R,4)1 hD%(R,2)1D%(R,9)D%(R,9)1 rD%(R,2)1D%(R,9)D%(R,9)2 |D%(R,9)0D,8)4:D%(R,9)1000:D%(R,10)0$ R. 18808 0:1D Rб5W%R0аĴ7 D(,)ɱĴ7 0%R7%R,5),D%(R,6):3 D%(R,1)1D%(R,3)0:D%(R,4)1 "D%(R,1)в%R3б:%R41,%R1г%R3б:%R4а D,1)7 xD%(R,2)1:D%(R,4)12 R13D%(R,4)0S R8D%(R,5)250:D%(R,6)130x R7R14D%(R,5)40:D%(R,6)100 R8D%(R,7)R R7D%(R,7)8 R7D%(R,8)1:D%(R,9)75:D%(R,10)3 R7D%(R,8)2:D%(R,9)1500:D%(R,10)1 R7D%(RQ  24576,D$(4):RS16368:RK16384JD%(15,10):232,0:233,64R(:z2:12:11:"RADAR UNIT INITALIZING"<D$"BLOAD AWAC SHAPES"FR115PR10D%(R,0)1dR12R13D%(R,1)2 nR13D%(R,5)250:D%(R,6)10:D%(14,1)5:D%(15              AFTER ";:IN1ĺ"A HALF INNING IS":54M2IN1" AND A HALF INNINGS IS":54j3IN10SC(1)SC(0)3274"THE SCORE AFTER "IN1" INNING";:IN1ĺ" IS":545"S IS"6SC(0)" TO "SC(1):RF:FFL:FLR:500:56778:3148F9F1-9:15OUT":500:S0:BL0:OO1:O347))55:*33:BL447p+BL0::"BALL FOUR":500:S0:FF1:FB0FB1:55,SB0SB1:55-TB0TB1:55.SCSC1:55/O3560FB0:SB0:TB0:BL0:S0:O0::A1A0:ININ1:51'1A1:"THE SCORE:XX1:YY.35:3:X,Y:B12:B:Z:B12:R(16336):B:c!:"THE COUNT IS "BL" AND "S:500:"Z119:0:X,Y:3:XX1:YY1:X,Y:B19:B:Z:"":#14:O347$55%14:O347&55'33:S347!(:"STRIKE THREE - YOU'RE Y1Y11:E:8:6,1116:] X5:Y96:Z177:0:X,Y:3:XX1:YY.179:X,Y:Z:R(16336): Z113:0:X,Y:3:XX.142:YY1:X,Y:B12:B:Z:"": Z136:0:X,Y:3:XX1:YY.278:X,Y:B16:B:Z:"":; X5:Y96:3:X,Y:Z160:0:X,Y8:16,216:J Z142:0:X,Y:3:XX1:YY.63:X,Y:B16:B:Z:"": 0:16,216:15:19,216:8:X16:Y117:E15:X1,Y1:X1X11:Y1Y11:E: Z138:0:X,Y:3:XX.947:YY1:X,Y:B16:B:Z:"": 0:X16:Y117:E15:X1,Y1:X1X11:Z:R(16336):L Z123:0:X,Y:3:XX.87:YY1:X,Y:B15:B,Z:"": 0:1,616:8:Y116:X16:E15:X1,Y1:X1X11:Y1Y11:E: Z114:0:X,Y:3:XX.143:YY1:X,Y:B14:B:Z:"": 0:Y116:X16:E15:X1,Y1:X1X11:Y1Y11:E:Y11:X1X11:= X2,Y2:X(12)X2:Y(12)Y2:Y2Y21:X2X21:l X3,Y3:X(13)X3:Y(13)Y3:Y3Y31:X3X31: X5:Y96:3:X,Y:Z176:0:X,Y:XX1:YY.179:3:X,Y:Z:B13:R(16336):B: X5:Y96:3:X,Y:Z157:0:X,Y:XX1:YY.39:3:X,Y:W\A$"Y"845=f12:9:"RADAR UNIT INITIALIZING"Hp(13)\zD$;"RUN AWACS":"TYPE ANY KEY FOR MORE DATA";:A$:16368,0:: ***BY:JOHN HITCHCOCK ***PUBLISHED IN CREATIVE COMPUTING ***ENTERED BY:KEVIN HESTER 7 3"-" 6 4"F " 5"r*:"F FIRE A WEAPON FROM PLANE(1-6)"4:"R REFUEL PLANE (1-6)">:"I IDENTIFY STATUS OF PLANES(1-7)"H900MR:12:"CAPTAIN,ARE YOU READY?(Y OR N)";:A$ 900H "FOLLOWING IS A LIST OF THE COMMANDS AVAILABLE TO YOU:"r :"S 'SCRAMBLE'AN AIRCRAFT (1-7)" :"V CHANGE THE VELOCITY (1-3)" :"H CHANGE THE HEADING (1-8):" " 1" " 8 2" " NTS MAY OCCUR IF YOU DO NOT RESPOND TO THE COMMAND REQUEST IN THE APPROPRIATE TIME."a ::900 "TO GIVE A COMMAND,YOU MUST TYPE THE LETTER OF THE COMMAND.WHEN ASKED,YOU MUST TYPE THE NUMBER OF THE PLANE TO "; "WHICH THE COMMAND IS DIRECTED."F THE ENEMY IN ORDER TO DESTROY THEM."/ l900 "A 'BEEP'SIGNALS THAT ONE OF YOUR AIRCRAFT IS LOW ON FUEL.YOU MUST USE THE IDENTIFY COMMAND TO FIND WHICH ONE."T :"SINCE WE ARE IN THE MIDST OF BATTLE,NOT ALL OF OUR EQUIPMENT IS WORKING.STRANGE EVE0" 2. THE SPEED OF YOUR AIRCRAFT"H :" 3. THE HEADING OF EACH PLANE"k D" 4. REFUELING OF EACH PLANE" N" 5. FIRING OF 'PROXIMITY DEVICES'" X" 6. AN 'IDENTIFY' COMMAND"& b:"YOU MUST CAUSE YOUR PLANES TO APPROACH WITHIN A CERTAIN DISTANCE ORE COMMANDING A FLEET OF SIX FIGHTER PLANES AND ONE REFUELING TANKER. YOU MUST DEFEND YOUR TWO BASES FROM AN ATTACK BY AN UNDETERMINED NUMBER OF ENEMY FIGHTER BOMBERS." :"YOU CAN CONTROL THE FOLLOWING ITEMS:" &" 1. WICH PLANES ARE IN THE AIR"#  D$(4):3:12:9:"...A..W..A..C..S..."e22:"DO YOU NEED INSTRUCTIONS (Y OR N)? ";A$u2A$"Y"510<A$"N"ī110F20nD$;"RUN AWACS"" GREETINGS, COMMANDER. WELCOME TO THE CONTROL BRIDGE OF A.W.A.C.S." :"YOU A     z#XǴ   !̠ƠŠ0 ĠĠ Š%  ӠƠŠԠǠŠŠŠŠϠ"ҠŠϠ̧͠ӠĠ ̮ؠ3 Ӡį)Π Ҡ Įà!"ΠˠǰàӠӠӠӠ ̠ ̠̮Š16368,0::90Y(ZP91,96,101,106V[C1:WZ22:C22,24,26,28:CC1:C4C4r\X1,Y)8XX1::111]X2,Y)8XX2::111^0:X,Y:7:XX1:X,Y:W_SS1:39`C1:WZ22:C22,24,26,28:CC1aX.75,Y.1073)8XX.75:Y2bTB((54)8)10:Z120:X,Y:88:0:Q1B:Q:X,Y:7:XX1:YY.143:Z:Y19Y22SS1:39rUBLBL1:42VYY.01:B((26)5)2:Z120:X,Y:88:0:Q1B:Q:X,Y:7:XX1:YY.072:Z:Y19Y22SS1:39WBLBL1:42 X(16384)127Ĺ3,256:19,2137:19,2138:xPB((34)4)0:Z120:X,Y:88:0:Q1B:Q:X,Y:7:XX1:Z:Y19Y20Y21SS1:39QBLBL1:42RYY.01:B((54)8)10:Z120:X,Y:88:0:Q1B:Q:X,Y:7:XX1:YY.143:Z:Y19Y22SS1:39SBLBL1:48:BB4=MW1B:W:B32:0:W1213:X(W),Y(W):W:CL:Z:N::15:X20:Y10:X,Y:Z114:XX1:YY1:X,Y:Z:Z114:XX1:YY1:X,Y:Z:Z114:XX1:YY1:X,Y:Z:Z114OXX1:YY1:X,Y:Z:19,2110:19,2111:23,2534:23,2533:23,257:2Z:BB4:ZHX1X(1):Y1Y(1):X2X(2):Y2Y(2):X3X(3):Y3Y(3):Z112:16:SB1İ17:BB3nITB1İ18:BB3JW1B:W:B24:0:W1113:X(W),Y(W):W:CL:Z:FB0:TB0:SB1TB1KSB1:B32:LX2X(2):Y2Y(2):X3X(3):Y3Y(3):Z112:17:TB1İ1H")BR$:R$:B((22)750):X11B:X1ACP80,82,84,86,1050DB16:XHX(0):YHY(0):X1X(1):Y1Y(1):X2X(2):Y2Y(2):X3X(3):Y3Y(3):Z112:15:FB1İ16:BB2ESB1İ17:BB2FTB1İ18:BB1 GW1B:W:B16:0:W1013:X(W),Y(W):W:CL::X46:Y1921:X,Y:Y,X:8:X16:X,16:X=:A0Ġ1:60D;6<24,20:24,21:24,19:15:X23:Y20:Y10:Y1((232)5):Y1Y12:YYY1:P((4)6):P0P1=P5P1>P3YY2?P2YY3@P4YY1A:"PRESS FOR PITC147:X,Y:Y,X7 46,96:64,119:64,73:82,82:82,110P (4);"RUN BASEBALL" ASEBALL.X". |X8385:Y9597:X,Y:Y,XL X04:Y9398:X,Y:Y,Xn X4547:Y118122:X,Y:Y,X X4547:Y7074:X,Y:Y,X 46,12084,9646,72 X181183:Y9193:X,Y:Y,X X145147:Y4547:X,Y:Y,X X145147:Y145Y,X& X4547:Y118122:X,Y:Y,XF X4547:Y7074:X,Y:Y,X^ 46,12084,9646,72 X181183:Y9193:X,Y:Y,X X145147:Y4547:X,Y:Y,X X145147:Y145147:X,Y:Y,X 46,96:64,119:64,73:82,82:82,110 (4);"RUN BX,Y:) "Z185:YY1:Z15XX.2:370? ,Z25XX.3:370U 6Z35XX.5:370k @Z45XX.7:370 JZ55XX.9:370 TZ65XX1.1:370 ^Z75XX1.3:370 hXX1.5 rX,Y: |X8385:Y9597:X,Y:Y,X X04:Y9398:X,Y:;:CH$:CH$ 5 230,64:3:171,101,96167,181D X171:Y10i Z185:YY1:Z10XX1.5:280 Z20XX1.3:280 Z30XX1.1:280 Z40XX.9:280 Z50XX.7:280 Z60XX.5:280 Z70XX.3:280 XX.2   (4);"IN#0"#(4);"PR#0"+:Y(" TO PLAY THE GAME ALL YOU DO IS PRESS"2"THE TO PITCH THE BALL THEN"<"PRESS IT AGAIN TO SWING THE BAT. THE"F"COMPUTER DOES THE REST." 24:"PRESS THE KEY TO CONTINUE"    1  B$(20),Z$(10)6 "HANGMAN BY RICK LONGBRAKE"I X(3)175 1TN(X)a I1 Nm A$ u( I<B(A$)d I1 20nB$(I)"-"x I:"HANGMAN-----THE WORD GAME-----"  6000"YOUR WORD HAS ";B;" LETTERS" """ " " " " """"""PR$(J)::MX4810, J510:7);PR$(J):9*34,15:r4OK0:QL,QA:Q1,S(I):Q2,MT(J):QG:(Q3)MT(J)OK1x>H:W5R:\(175)256(176)8157đ:890f12:15:W5ĺ"YOU WIN!":910p"I WIN!":910z0:8:980:990:1010:98":750+SB(J,B)ST$(J)ST$(J)"X ":750BST$(J)ST$(J)". "J:J2:K1:L1:770:J3:L7:770:J7:K4:L1:770:J8:L7:770:780PR$(J)""(ST$(K),L,6)" * "(ST$(K1),L,6)" * "(ST$(K2),L,6): ::2:MX4Ģ5J04:7);oTB0:J16:TB(J)0:T%S(J):B05:TT%2:T%T:SB(J,B)(TT%):TB(J)TB(J)SB(J,B)::TBTBTB(J)::MV700TM0:T%MV:B05:TT%2:T%T:MB(B)(TT%):TMTMMB(B):J16:ST$(J)"":B501:JI730MV730MB(B)ST$(J)ST$(J)"O 10X:: PROGRAM ERRORfbMVMT(J):S(I)S(I)MV:680::2:"I'VE REMOVED "TM" PIECE";:TM1ĺ"S";l"FROM SECTION "I".":1140:P12000::TB01030vMV0:680:300P11000:IR(MX)1:S(I)650JR(13)1:820:OK660610SORRY ABOUT THIS NEXT MOVE, BUT...":1120:560h&TB5Ė3:"I DON'T THINK MUCH OF YOUR CHANCES!":11300P1500::Q1,SUM:I1MX:Q2,G(S(I)):QG:G(S(I))(Q3)580::: PROGRAM ERRORDWG(Q3):J115:820:OK600NG(S(I)MT(J))WG614:"IT'S MY TURN. "B$::P11500::TB5DF3510QDF1((1).5TB7)640QL,QX:Q3,G(S(1)):J2MX:Q1,(Q3):Q2,G(S(J)):QG:J:SUM(Q3)SUMTB5āP11000::::15:15:"I GIVE UP! ":1160:1170::840SUM640.TB3Ė3:"$:(A$,1)"Q"ĉ:::920:J115:LM$(J)A$İ820:450@y::5:"THAT MOVE DOES NOT COMPUTE!":::1160:410OK440MVMT(J):S(I)S(I)MV:680:6:"YOUR MOVE IS DISPLAYED ABOVE. ":1140:P1200::TB0840MV0:6804:18:(CS$,7,6)kTB(I)1ĺ:2:"NOT MUCH CHOICE! I'LL MOVE FOR YOU. "B$B$:1170:MVS(I):S(I)0:680:470:"THE PIECES IN SECTION ";I;" ARE SHOWN ABOVE.":34,20"ENTER YOUR MOVE AS 1-3 ADJACENT DIGITS":"IN ASCENDING ORDER, & HIT 'RETURN': ";ACTION "I" !"B$B$:P14500::360Q@::4:"ENTER SECTION #, OR Q FOR QUIT: ";lJA$:A$"Q"ĉ:::920TI1MX:A$(I)S(I)ĺB$:360^:330hCS$"":B501:SB(I,B)CS$CS$(6B)" ":380rCS$CS$". "|:34,15::18:(CS$,6):S(3)0- MVR(42)10:J115:MVMT(J)240H :S(2)63MV:MV0:680o :11:"WANT TO GO FIRST? ";:1140 A$:A$"Y"300 A$"N"490 "270 ,:13:"IT'S YOUR TURN. "B$!6I1MX:TB(I)TBāP11000:::3:"I GUESS YOU WILL CHOOSE SE7:"3) AN ADVANCE PLAYER"::7:"ENTER 1,2,OR 3: "B$;X A$:DF13:A$(DF)ĺB$:200c :180 :12:7:"ENTER # OF SECTIONS (2-6):"; A$:MX26:A$(MX)ĺB$::230 :210 J36:S(J)0::MV0:S(1)63:J3MX:S(J)R(19)45::MX2::12:11:"*** SUPER-NIM ***"5 1170:::1180o 12:10:"WANT INSTRUCTIONS? ":1100:X217ĺB$:1040 ::10:7:"I CAN PLAY AT DIFFERENT LEVELS OF":7:"SKILL. TELL ME IF YOU ARE:":5 7:"1) A BEGINNER":7:"2) AN INTERMEDIATE PLAYER":9,54,45,36,4,0. Z(175)256(176)8157130 d232,32:233,3::::0:I15:I:120::I01284:I:120::I115:I:120: nI1511:I:120::I18:I:120::6:1140,90:I15:(7)::140 x1140,90:J15:K(16336)::1140,90:! 9,88,48,46,36,17,37,55,14,9,39,172,171,33,44,86,104,34,44,54,1,88,48,14,36,53,40,54,0,219,155,36,44,45,222,43,45,54,73,33,36,63,9,45,0  P 219,219,34,36,53,53,53,37,36,9,54,14,33,36,45,18,36,45,54,6,0,34,36,0,219,19,36,63,84,41,37,9,54,46,37,36,63,73,4* SUPER-NIM0 A MULTI-DIMENSIONAL GAMEg2I770906:J:I,J:KKJ::K8431ij: DATA ERROR< 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,169,0,73,0,141,31,3,96,0,5,0,12,0,47,0,63,0,84,0,87,0 F 219,219,27,56,46,62,          :(7)H10::"*** ";::"PLEASE DON'T FEED THE TROLL";:::" ***"YA12000:A_eyX TROLL'S GOLDb PUBLISHED BY SOFTSIDEl JAN. 1980v CONTRIBUTED TO APPLESAUSE BY THOMAS LAURITSEN9z(7)&"TROLL'S GOLD",R"IF YOU ARE FOOLHARDY ENOUGH TO"z"DESCEND TO THE LOWEST AND INMOST""REACHES OF A CAVE IN HABITED""BY A NASTY TROLL, JUST TO""STEAL HIS GOLD...""PRESS RETURN";A$E(E1)(A(P51)2)JE8(E1)(A(P50)2)JEFJ05490P5000Z"5100d,PPJs6P365500}@5000J5200TTP4000^5300r|5000G1520057005300D0:X5,X3Y2:X4,X3Y1p)(A(P51)2)5490i"UP, DOWN, RIGHT (OR IN), LEFT (OR OUT), OR STAY?";D$:E0:E$(D$,1):E$"U"E6yE$"D"E6E$"R"E$"I"E1E$"L"E$"O"E1J0:(E0)(P1)(G1)4500(E6)(A(P)2)JE(E6)(A(P6)2)J A FEW THOUSAND?"" A11000:A(2 4110<DP6F2200P2400ZXX3dYY3jx0:X3,YG1Ġ0:X5,X2Y2:X4,X3Y1FP12:X3,YxG1Ġ13:X5,X3Y2:X4,Y1(A(P)2)(A(P6)2)(A(P50)2LD YOU LIKE TO TRY AGAIN? ";B$3(B$,1)"N"ĝ:;50C:K10u"* * * * YOU WIN * * * *"{" YOU ARE VERY RICH!!!!!!!!!!!"A11000:A(7):"BY THE WAY...."A11000:A"CAN YOU LOAN ME10-:10:::"SOME PEOPLE NEVER LEARN!!"5:g"THE SIGN AT THE ENTRANCE TO THE CAVE SAID.":"* PLEASE DON'T FEED THE TROLL *":"THE TROLL JUST ATE YOU FOR DINNER!"" * * * YOU LOSE ! * * *""WOUT)2TT6 3800/A(T51)2TT1:3730JA(T51)2TT1:3730YtT303800h~T303800vTP4000A(T6)2TT6TP4000TP4000300032002I110:(7):I:30003200I11000:I::X3,Y 9:X3,Y $ 3000. 30008 3100B CTPP C03370Z 3400e* C(C)s4 C63600}> 3700H T73500R T73500\ A(T)2TT6f TP4000 T13600 T13600 A(T50)2TT1 TP4000  A(  A90110  DA(A)'  A(A)02  A(D)1< " 2200F , 2400N . 15] 1 D402880p 6 15:X1,X1Yz ; 2890 @ Y,Y1X J A O DT6 DT6 2200 2400 XX3 YY3  0:X3,Y & 0:X3,Y v  9:X7  Z3X13 Z4X19-  Z5X25;  Z6X31A  V ( D(((1)80)7)k 2 D(((1)80)7)} < A(D)12610 F A(D)2 P 2200 Z 2400 B90110 B90110 2600 A(B)D 0:X,Y D40čX,Y1 B    D81Y29:2390  Y35# V + ` ZD3 j ZDB t Z492530L ~ ZZ6Z Z62430h Z(Z.2)u Z1X4 Z2X10 Z3X16 Z4X22 Z5X28 Z6X34 2590 ZD44 ZZ6 Z62540 Z(Z.2) Z2A(A30)1 \A f& D4922805 D492280I D13Y6:2390^ D19Y12:2390s D25Y18:2390 D31Y24:2390 D36Y36:2390 Y30:2390 D57Y5:2390 D63Y11:2390 D69Y17:2390  D75Y23:23905200  2,2)5İ1001 2,2)5İ100; 2700E L5300O 3300Y v2800c 1000p A1110} A1110 A(A)0 A A736 A(A)1 A A5256 A(A)1 *A(A6)1 4A(A12)1 >A(A18)1 HA(A24)1 R A(110)# 6000-6000>2G0:P1:T36D<NP2000XZ1000jd:15:4,360|n:15:4,360xI6366:1,36I:II1376:0,36I:I"5:2,2:2,3:3,3:3,4:4,4:4,5:5,5@13:32,3435:33,345000      2LQ451555:3:1190,LQ:1:1190,LQ:LQ:12005{2BM(1)1āLQ901555:3:6195,LQ:1:6195,LQ:LQ:BM(1)0:120052BM(2)1āLQ301555:3:6135,LQ:1:6135,LQ:LQ:BM(2)0:120052BM(3)1āLQ901555:3:675,LQ:1:675,LQ:LQ:BM(3)0169279,90 &/24:5125,150:070/BM(1)1Ĕ6195,90N:/BM(2)1Ĕ6135,30dD/BM(3)1Ĕ675,90jN/p22O3O0:16301,0:1302022LQ451555:3:175,LQ:1:175,LQ:LQ:120052LQ101555:3:1145,LQ:1:1145,LQ:LQ:1200545'SK112L'1:6S2,S3:S2S2S1:S3S3S1:3:6S2,S3:135,150195,90V'SK:w.175,45:1145,10:1190,45.3:3135,150:6138,85.135,150195,90135,3075,90135,150.3135,150:3195,90:3135,30:375,90 /135,1690,90:135,2-3G'S2135:S330&L'SK110:S16bV'1:6S2,S3:S2S2S1:S3S3S1:3:6S2,S3:75,90135,30l`'SK:vt' 1-2~'S2195:S390'SK115:S14'1:6S2,S3:S2S2S1:S3S3S1:3:6S2,S3:195,90135,30'SK:' H-1'S2135:S3150:S1AGUE"CO270010-0:2CO,90>TI150:TIe1:2CO,90:12000:CO:16302,0:o' 3-H'R(TA)R(TA)1'S275:S390'SK110:S16$'1:6S2,S3:S2S2S1:S3S3S1:3:6S2,S3:1:6S2,S3:3)'75,90135,150:SK:B' (3)0(t BM(2)1İ10050:10000:BM(2)0R~ BM(1)1İ10100:10050:10000:BM(1)0r 10150:10100:10050:10000{ 10516301,0:21:(1):958"TIME-OUT COW ON THE FIELD !!!" "WHAT D'YOU EXPECT,":"THIS IS THE FARM LE1)0:10100:10050,BM(2)1:10150:101005105B TRIPLE^ BM(3)1İ10000:BM(3)0 BM(2)1İ10050:10000:BM(2)0 BM(1)1İ10100:10050:10000:BM(1)0$ BM(3)1:10150:10100:10050_ 105` Q110:"":Qj BM(3)1İ10000:BM220021004 SINGLE7>BM(3)1İ10000:BM(3)0[HBM(2)1BM(3)1:BM(2)0:10050RBM(1)1BM(2)1:BM(1)0:10100\BM(1)1:10150105 DOUBLEBM(3)1İ10000:BM(3)0BM(2)1İ10050:10000:BM(2)0BM(1)1BM(3)1:BM(1:BH(TA)BH(TA)1@((BR)1400,1400,1500,1500,1600,1600,1700Sx(6).952200]2100p(5).952300(4).822002100@(6).952400J(5).82300T(3).72200^2100(9).92400(6).82300(1).75 NT1200 125,1500 MXMXBA:MYMYBRL 0:4MX,MY:1:4MX,MYt MY55MY20İ20000:NH1NH0:105 MY8MX8MX2701300 NT  FO1ST2FO0:1062 FO1āG120:X(16336):G:FO0:10518000:ST0:AB(TA)AB(TA):J:3! 'PLPL4:PL,130PL,135x )STST1:ST3ST0:OO1:"":13500:G11000:G:18000:PL8:AB(TA)AB(TA)1:105 .105 LBY j105  MX134:MY150 BR(((3)BS1)1):BA(((1)2)1) (6).5BABA1 (BABR)1FO1BX,BY:0,0:1:4BX,BY2 (16287TA)1271050B PI0ī1000L 1100t 1:24:5125,150:16:3:5125,150 1:5125,150:24:3:5125,150:0:3135,150 PI01000 $BYQQBY154TI(16336):TI(16336):1200 &J120:TI(16336)PO4O,135 13000:PI09 1:6138,85:3:1138,85h CO(8):CO.998İ5005:::::12000:105 BS(1TA1):(16286TA)127PI1:1016 1040 1:1138,85:3:6138,85 BX135:BS1((BS10)3):BS13BS13 BY90159BS1:0:4:(TA$(K))8ī19 K::z 6:"DIFFICULTY LEVEL :"::8:"MAJOR LEAGUE = 1":8:"BUSH LEAGUE = 2"::"WHICH ? ";ZZ ZZ1QQ145:100 (QQ143 d13070: f1:0,0:62454 i0:1:16302,0:X(8):3 t12000 xPO220:O0ēPO4O,130a8192:::255:6,15,79B BASEBALL.SHAPE ,A7952,L241 x(4)"BLOAD BASEBALL.SHAPE":7952:232,16:233,31 TA0:PL8:33,40:255:30010::4"TEAM NAME MUST BE LESS THAN 9 LETTERS": K01:"TEAM NAME PDL(";K;") ";:TA$(K)              "YOU GOT LUCKY THIS TIME, YOU BROKE EVEN!"wSTAKE500ĺ"YOU WON $";STAKE500::"JUST TRY TO COLLECT . . . SUCKER!"}SS TRIPLE BET ***18="YOU WON TRIPLE YOUR BET!"ES3O6150h*** END OF GAME ***yDL11000:::311);"G A M E O V E R"8"FINAL TOTAL $";STAKE::STAKE500ĺ"YOU LOST $";500STAKE*STAKE500ĺ;"TOTAL $";STAKE;" ";')DL14000:9+STAKE06800C.4075_8*** HUMAN WINS BET ***g=18zB"YOU WON!"LS1V6150*** HUMAN WINS DOUBLE BET ***18 "YOU WON DOUBLE YOUR BET!"S26150*** HUMAN WINTTL7COM36200-TTLGUESSCOM46400F*** HUMAN LOSES ***j18:"YOU LOSE . . . . SUCKER!"sS1*** TALLY SCORE ***BETBETSBET0ĺ"YOU WON $";BETBET0ĺ"YOU LOST $";BET1STAKESTAKEBET$24:"BET $";20)"ENTER YOUR GUESS:";GUESS$LzGUESS$((GUESS$))ĺ(7);:21:958:6000`GUESS(GUESS$)GUESS2GUESS12ĺ(7);:21:958:600024:6:BET;*** ROLL DICE ***1000TTLR(1)R(2)TTL7COM16200TTL7COM266000ĺ"IF YOU'RE NOT GOING TO BET,":"I'M NOT GOING TO ROLL!"S(7);:DL11500:g17:958:4080:"ENTER COMMAND:";COM$COM$((COM$))ĺ(7);:19:958:5050COM(COM$)COM1COM4ĺ(7);:19:958:5050COM46050p:$(BET$,4)"QUIT"6800?BET$((BET$))ĺ(7);:5030OBET(BET$)rBET0BET101BETSTAKE5050BET100ĺ"HOUSE LIMIT $100"BETSTAKEBET100ĺ"YOU DON'T HAVE THAT MUCH DUMMY!"BET0ĺ"YOU THINK I'M THAT STUPID?";BET(1)--UNDER SEVEN"(16);"(2)--SEVEN"D16);"(3)--OVER SEVEN"b16);"(4)--GUESS NUMBER"5);"******************************"34,8STAKE50024:"BET $";20);"TOTAL $500";35,2317::"HOW MUCH DO YOU BET";:BETF YOU'RE REAL ADVENTUROUS YOU CAN EVEN"S "TRY TO GUESS THE EXACT NUMBER OF THE"m "TOTAL ON THE DICE."{ 24:10: "HIT ANY KEY TO BEGIN";::A$  :10);"S U P E R D I C E"  :5);"******************************"7);"COMMANDS:);"BY BRIAN SCHWINCK"% 255:""6 DL12000:? :3h *"THIS IS A COMPUTERIZED DICE GAME." :"I WILL ROLL TWO DICE, AND YOU MUST GUESS"; "IF THE TOTAL OF THE DICE WILL BE UNDER" "SEVEN, EQUAL TO SEVEN, OR OVER SEVEN."' :"IZ110 Y700,800- R(Y)(6(1)1)O $R(Y)100,200,300,400,500,600i .A110:P(16336):p 8Z BY1āDL12000: LY V *** MAIN PROGRAM *** ::10 80 10);"S U P E R D I C E" 100:14 11 *** WHITE DIE #1 *** + X069 10X:10H " "N T c DL130:i  *** WHITE DIE #2 ***  *X06 410X:20 >" " H R \DL130: f *** DISPLAY DICE ***  Y12  ,ROLLED A THREE 6100( @200. JA ROLLED A FOURJ 200Z 11:Y101c " "s 15:Y105| " "  ROLLED A FIVE 100 400  XROLLED A SIX b400 l13:Y101 v" " 13:Y105 " " ~ *************************?*** SUPER DICE ***^*** BY BRIAN SCHWINCK ***}************************* 2000dROLLED A ONEn13:Y103x" "ROLLED A TWO11:Y105" "15:Y101" "      %(R$,1)"C"221*%(R$,1)"R"2297%D0217M%D0:(34).5216g%32:34:XX9:25:35%19:23:XX5:25:35%(20).5220%32%Z144:0:X,Y:XX.383:YY1:3:X,Y:B13:B:Z:"":35%19:27:35%O3D0:226 9$(R$,2,1)"F"243b$OO1:(R$,2,1)"G"FB1(43).70FB0:OO1:D1:DP(A)DP(A)1:196p$FB0210~$O3210$FB1SB1TB1ė:"THE RUNNERS ADVANCE":500$FB0:TB1SC(A)SC(A)1:TB0$SB1TB1:SB0$SB1%O3O3:D0194#X6R$"OGR":1942#X8R$"OGL":194H#(R$,1)"F"ī238y#49239,0:49234,0:16299,0:230,64:D0:201#O3209#SB1TB1ĺ"THE RUNNERS ADVANCE":500#TB1TB0:SC(A)SC(A)1#SB1SB0:TB1#210$(R$,1)"H"24#"X6X9(9).25R$"HDC":194C"X8(3).25R$"HDC":194Z"X8R$"HSC":194u"X6X9R$"HSC":194"X6R$"HSR":194"(4).4191"X6R$"OFR":194"X8R$"OFL":194"X6X9R$"OFC":194#X6X9R$"OGC":3X6(8).11R$"HHR":194B!B13X8(4).30R$"OFR":194j!B13X6X9(4).1R$"HHC":194!B13X6X9(7).05R$"HTC":194!B13X8(5).15R$"OFR":194!B13X6(8).10R$"HTR":194!X6(5).25R$"HDR":1948R$"HSL":194* X6X9R$"HSC":194A X8R$"HSR":194R (4).4171i X8R$"OFR":194 X8R$"OFL":194 X6X9R$"OFC":194 X6X9R$"OGC":194 X8R$"OGR":194 X8R$"OGL":194 (16).55187!B113X6X9(4).15R$"HHC":194JB13X6X9(7).06R$"HTC":194oB13X8(4).07R$"HTL":194B13X8(8).05R$"HTR":194X8(5).25R$"HDR":194X6X9(9).25R$"HDC":194X8(3).25R$"HDL":194 X(4).4151(X7R$"OFR":194?X7R$"OFL":194VX7R$"OFC":194mX7R$"OGC":194X7R$"OGR":194X7R$"OGL":194(16).55167B13X8(8).10R$"HHR":194B13X8(4).25R$"HHL":194!B.06R$"HTC":1946B13X7(4).07R$"HTL":194[B13X7(8).05R$"HTR":194{X7(5).25R$"HDR":194X7(9).25R$"HDC":194X7(3).25R$"HDL":194X7R$"HSL":194X7R$"HSC":194X7R$"HSR":194$"HHL":194)W.95X6R$"OFR":194BW.95R$"OFL":194YX7R$"OGR":194kR$"OGL":194~(16).55147B13X7(8).15R$"HHR":194B13X7(4).30R$"HHL":194B13X7(4).2R$"HHC":194B13X7(7)(34).25122$xP3R$"OGC":1946yR$"OGL":194[zW(12):W.40X7R$"HSR":194t{W.35R$"HSL":194|W.62X7R$"HDR":194}W.57R$"HDC":194~W.67X7R$"HTR"W.62R$"HTC":194W.81X7R$"HHR" W.91RSS1:39*oE15:Q(16336):E:R$""ApY18R$"FL":194fqY19(19).75X6R$"FR":194rY19(19).53X8R$"FL":194sY21(91).5R$"FR":194tY19Y21(94).2R$"FB":194u(Y17)118,134,154,174vB5122 w1116h0:Q1B6:Q:X,Y:7:XX1:YY.1428:X,Y:WDiSS1:39ijC1:WZ22:C22,24,26,28:CC1kX.85,Y.0613)8XX.85:YY.0613::111lX1.7,Y.1226)8XX1.7:YY.1226::111m0:Q1B6:Q:X,Y:7:XX1:YY.0723:X,Y:W nY.1073::111>bX1.5,Y.2146)8XX1.5:YY.2146::111qc0:Q1B6:Q:X,Y:7:XX1:YY.1428:X,Y:WdSS1:39eC1:WZ22:C22,24,26,28:CC1fX.75,Y.1073)8XX.75:YY.1073::111gX1.5,Y.2146)8XX15:YY.2146::@>>.,,,555%''/$,5.$>.,,46%$-->>.,,46%$%%--%????????6----->''%557$7'$$$$$$$$,566666666>$$$$$$$$$7.>?$<66-5677%%-55%''$-6.$$??,$?666%$$0&D0226!&D0:(16).5225*&216D&29:30:XX6:25:35V&(18).5228f&29:31:35o&220|&O3234&D0234&D0:(12).5233&225&20:21:XX9:25:35&(10).5236&227&20%'Z117:0:X,Y:3:XXUIT":"WHILE YOU'RE AHEAD!!!":L"WHAT'S WRONG AFRAID A DUMB MACHINE IS"m"SMARTER THAN YOU ARE???":Z"TOTAL OF ";Z;" GAMES"6t:"HUMAN WON ";W;" GAMES"X~:"COMPUTER WON ";L;" GAMES"(16):"DO YOU WANT TO PLAY ANOTHER SERIES";:Q$(Q$,1)"Y"100(Q$,1)"N"Ģ16:958:"";:1160:WLĺ"THAT'S JUST LIKE YOU HUMANS TO Q :(3))$"SUPER HILO GAME #";Z12.200_8*** SERIES OVER PRINT FINAL SCORES ***jB:(3)L"***************************************"V"************** GAME OVER **************"`"***************************************"j::*** ANOTHER GAME? ***)Z1001080\(12):"DO YOU WANT TO PLAY ANOTHER GAME";:Q$r(Q$,1)"Y"1050(Q$,1)"N"1080"":"MESS AROUND, MESS AROUND PRETTY SOON""YOU WON'T BE AROUND!!!"A13000:A12:958:980*************"=p"***************************************"iz(8):"YOU GUESSED IT IN ";C;" GUESSES"|M(10(1))1K620,630,640,650,660,670,680,690,700,710S$" "(A$,1)"I"S$"N ""NOT TOO BAD FOR A";S$;A$;"!!"WW1*******************************"A(8):"THE NUMBER WAS ";R(Z)K LL1f**** ANOTHER GAME? ***o4960>*** CORRECT GUESS - HUMAN WINS ***H:(3)R"";\"***************************************"f"************** HUMAN WINS :A$"DINGLEDORF!!":NGR(Z)ĺ"YOUR GUESS WAS TOO HIGH YOU ";A$:290y"YOUR GUESS WAS TOO LOW YOU ";A$:290:(3)"";"***************************************""****** YOU RAN OUT OF GUESSES!!! ******"  "********NM(10(1))1AXM620,630,640,650,660,670,680,690,700,710Jb720blA$"WASTERLING!!":wvA$"LESS-ON!!":A$"MORON!!":A$"IMBECILE!!":A$"VERMIN!!":A$"WOMBAT!!":A$"TURKEY!!":A$"IDIOT!!":A$"DUMMY!!" IT TOGETHER OR LOG OFF!":I "REMIND ME NOT TO LET YOU PLAY AGAIN!":r "FOR A SECOND I THOUGHT I HAD SOME" "COMPETITION...BUT THAT JUST GOES TO" &"SHOW EVEN COMPUTERS CAN BE MISLED!": 0*** CHECK NO. OF GUESSES *** :C8740 DDGET!":& "NO WAY KNUCKLE-HEAD!":C "TRY AGAIN NO-MIND!":j "WAS THAT A JOKE OR SOMETHING?": "YOU MUST BE LOONEY!": "WHAT PLANET DID YOU COME FROM ANYWAY?": "ARE YOU THAT DUMB OR ARE YOU THAT BAD" "A TYPIST?": "GETIOR HUMAN";:G TCV(37)@ ^G1G100ĺ(7);:CV:868:330P hGR(Z)830~ r*** INCORRECT GUESS --- INSULT HUMAN *** | I(10(1))1 I430,440,450,460,470,480,490,510,520,530 560 *** RANDOM INSULT *** "WRONG MENTAL MI*** PICK RANDOM NUMBER ***< *** CHECK PREVIOUS NO.'S ***D C0N ZZ1e R(Z)(100(1))1r Z1290 Y1Z1 R(Y)R(Z)240 Y "*** HUMAN GUESSES NUMBER *** , 6A140:"-";:: @CC1 J"WHAT IS YOUR GUESS INFER0 "THIS IS A GAME OF HILO"E "I KNOW A NUMBER FROM 1 TO 100"h "YOU HAVE UP TO 8 CHANCES TO" "GUESS MY NUMBER. THE MORE" "GAMES YOU PLAY THE BETTER THE" "ODDS -- I WILL NEVER REPEAT A" "NUMBER IN ONE SERIES OF GAMES." n  *** HILO VERSION 2 ***?*** PROGRAM WRITTEN ***^*** BY BRIAN SCHWINCK ***l(:10:80210);"S U P E R H I L O"<15:11);"BY BRIAN SCHWINCK"F255P""ZA11000:d::3nR(100) xZ0:L0:W     ,Y:3:285h-X5:Y96:Z1129:0:X,Y:3:XX1:YY.075:X,Y:Z:B13:R(16336):B:0:X,Y:3:285- (R$,2,1)"H"268- (87).5X5:Y96:Z1269:0:X,Y:3:XX1:YY.065:X,Y:Z:B110:R(16336):B:0:X,Y:3:285H. X5:Y96:Z1239:17:R(16336):B:0:X,Y:3:285,X5:Y96:Z1149:0:X,Y:3:XX1:YY.46:X,Y:B13:B:Z:B17:R(16336):B:0:X,Y:3:285,(R$,2,1)"S"265 -(38).5X5:Y96:Z1129:0:X,Y:3:XX1:YY.075:X,Y:Z:B13:R(16336):B:0:XY96:Z1159:0:X,Y:3:XX1:YY.299:X,Y:Z:B15:R(16336):B:0:X,Y:3:285+X5:Y96:Z1119:0:X,Y:3:XX1:YY.46:X,Y:B13:B:Z:B15:R(16336):B:0:X,Y:3:285#,(9).5X5:Y96:Z1189:0:X,Y:3:XX1:YY.269:X,Y:Z:B,2,1)"H"257w*(45).5X5:Y96:Z1209:0:X,Y:3:XX1:YY.406:X,Y:Z:B110:R(16336):B:0:X,Y:3:285*X5:Y96:Z1229:0:X,Y:3:XX1:YY.275:X,Y:Z:B110:R(16336):B:0:X,Y:3:285*(R$,2,1)"T"260U+(19).5X5:262)(R$,1)"R"2741)(R$,2,1)"S"254)(10).5X5:Y96:Z1109:0:X,Y:3:XX1:YY.275:X,Y:Z:B13:R(16336):B:0:X,Y:3:285)X5:Y96:Z189:0:X,Y:3:XX1:YY.405:X,Y:Z:B13:R(16336):B:0:X,Y:3:285*(R$7((R$,1)"R"248^(X5:Y96:3:X,Y:Z1140:0:X,Y:XX1:YY.35:3:X,Y:Z:"":37(X5:Y96:3:X,Y:Z1176:0:X,Y:XX1:YY.022:3:X,Y:Z:"":37(X5:Y96:3:X,Y:Z1140:0:X,Y:XX1:YY.35:3:X,Y:Z:"":37)(R$,1)"C"1:YY.06:X,Y:B19:B:Z:"":35c':"FOULED ";:(R$,1)"B"ĺ"BACK":Z1300:Z:SS1:241'(R$,1)"L"ĺ"OFF TO THE LEFT":SS1:Z1300:Z:241'"OFF TO THE RIGHT":SS1:Z1300:Z'S3S2:500'39'OO1((R$,1)"C"24Y"ė:130A$"N"710::"QUIT SCREWING AROUND!!!"J(7);:660R:[100"BETTER LUCK NEXT TIME.......SUCKER!!!!!"255N***********";=b"****************************************"Pl"";v:"YOU'VE JUST BEEN BLOWN UP BY THE ENEMY!!"15);"YOU LOSE!!":"THE TARGET'S COORDINATES WERE ";A;", ";B:"WOULD YOU LIKE TO PLAY AGAIN?";:A$ A$"0 "****************************************"; J13I "";X &K170:K_ 0Jx ::16);"YOU WIN!": D"YOU HIT THE TARGET IN ";S;" TRIES!"::660 N:"****************************************"; X"*************** BOOM!!! *****(P): AX450 470( BY490W "ONE OF YOUR COORDINATES WAS RIGHT.":300d BY460 "NEITHER OF YOUR COORDINATES WERE RIGHT.":300  "****************************************"; "************ DIRECT HIT!!! *************"; REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23% ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USEDT"302"5(68:FB1SC(A)SC(A)1:5)SB1SC(A)SC(A)1R5*TB1SC(A)SC(A)1k5+TB0:SB1SB0:TB1z5,FB1SB15-FB1:72:76:SB0:TB1:3145.CL:(R$,2,1)"D"3085/68:SB1SC(A)SC(A)150TB1SC(A)SC(A)161TB0:SB1SB0:T95,4 68:SC(A)SC(A)1:FB1SC(A)SC(A)1D4!SB1SC(A)SC(A)1\4"TB1SC(A)SC(A)1u4#TB0:SB1SB0:TB14$FB1SB14%FB1:72:76:SB04&B45:TB0:X3X(3):Y3Y(3):Z112:18:W1B:W:0:X(13),Y(13):CL:Z:3145'CL:(R$,2,1)"(16336):B:0:X,Y:3:2853X5:Y96:Z1159:0:X,Y:3:XX1:YY.46:X,Y:B12:B:Z:B17:R(16336):B:0:X,Y:3:285314:78:X(0)22:Y(0)37:X(1)33:Y(1)22:Y(2)11:X(2)18:X(3)7:Y(3)26:A0CL6:2873CL14CL:(R$,2,1)"H"2X,Y:3:XX1:YY.219:X,Y:Z:B15:R(16336):B:0:X,Y:3:2852X5:Y96:Z1119:0:X,Y:3:XX1:YY.46:X,Y:B13:B:Z:B15:R(16336):B:0:X,Y:3:2853(3).5X5:Y96:Z1189:0:X,Y:3:XX1:YY.200:X,Y:B12:B:Z:B17:R.5X5:Y96:Z1219:0:X,Y:3:XX1:YY.275:X,Y:Z:B110:R(16336):B:0:X,Y:3:2851X5:Y96:Z1183:0:X,Y:3:XX1:YY.41:X,Y:B12:B:Z:B110:R(16336):B:0:X,Y:3:2851(R$,2,1)"T"283D2(19).5X5:Y96:Z1139:0:0(R$,2,1)"S"277~0(76).5X5:Y96:Z1109:0:X,Y:3:XX1:YY.375:X,Y:Z:B13:R(16336):B:0:X,Y:3:2850X5:Y96:Z1109:0:X,Y:3:XX1:YY.245:X,Y:Z:B13:R(16336):B:0:X,Y:3:2850(R$,2,1)"H"280]1(87)сB15:R(16336):B:0:X,Y:3:2858/SB0SB1:47/(19).5X5:Y96:Z1199:0:X,Y:3:XX1:YY.146:X,Y:Z:B15:R(16336):B:0:X,Y:3:285/X5:Y96:Z1199:0:X,Y:3:XX1:YY.146:X,Y:Z:B17:R(16336):B:0:X,Y:3:2850:X,Y:3:XX1:YY.065:X,Y:Z:B110:R(16336):B:0:X,Y:3:285_. (R$,2,1)"T"272. (19).5X5:Y96:Z1149:0:X,Y:3:XX1:YY.146:X,Y:Z:B15:R(16336):B:0:X,Y:3:285%/X5:Y96:Z1149:0:X,Y:3:XX1:YY.146:X,Y:Z: 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 "@ @           <@ @ <``|@ @ ` @  <@ 0 @   @Lp |` @ p?? LDB*@"a@#( L*D8pxx||@ xpx|@ @ x|x@|x|xxx| x@@  @ @Lx |x @ x4aCpB D!a"!`B"!"!",D "!@D@ @@@@p@@@@@8`p||@ `8<@ @ <|p@|p|p`p| p@  @  < @ 8L DPdA@@AAA@0A@Pd `@ @ @  E PPP@  @   @ PE0@@@ @0@@ PP @PD@PP@@P@@@@@@            Q7550h 650* L1317:10,13L:L4 2800I A59:5,8A:Ah B2125:15,18B:B:2800} A59:5,8A:A B2125:15,18B:B 3000 C59:15,18C:CN D2125:5,8D:DX 3020 C59:15,18C:C D2125:5,(10(1))1A 15"F M726200P M13000>Z M23020Ld M33050Zn M43100hx M53200r 3300 N(10(1))1 N72800 N13400 N23500 N33600" N43700, N538006 3900T QMNZ QZ500^ 2,35A AB2832'22,25B.&B801620E:A2024RD22,25AYNAfXB2024sb32,35BzlBv1700  12 I039 0,39I I 1 J525 5,18J J K1232( 22,35K2 K < M 400 A1216# 22,25A* "A7 ,B2832D 632,35BK @BT J400a TA1216n ^22,25Au hA rB2832 |32,35B B 1500 A1216 32,35A A B2832 22,25B B 1550 A121631050 E1317 5,8E% E2 F1317? 15,18FF FP 1280[ A59f 5,8Am Az B2125 15,18B B 300 C59 15,18C C D2125 5,8D D 1240 A2024 27,30A A POINT IS ";Z 9 "HIT ANY KEY TO ROLL DICE";:I$B ""L 2550Y L1317f 10,13Lm Lv 300 A59 $5,8A .A 8B2125 B15,18B DB G1000 LC59 V15,18C `C jD2125 t5,8D ~D UR BET"# ""P "YOUR BANK ROLL IS NOW ";ST;" DOLLARS"g I14000:I:8015 &:"YOU LOSE ";S;" DOLLARS ON YOUR BET" ("" +"YOUR BANK ROLL IS NOW ";TS;" DOLLARS" 0I14000:I 5SS :8015 :"YOURX51100 1170( ,Y(10(1))16 6Y7300D @Y11500R JY21550` TY31620n ^Y41700| hY51780 r1850 ZXY Z7500 Z11500 Z2550 Z3550 Z12550 650 :"YOU WIN ";S;" DOLLARS ON YOt 8000 12+(I039720,39I><IUAX11000:X:""\F1hPJ525tZ5,18J{dJnK1232x22,35KKX(10(1))115X7140X11000X21240X31050X41280       A$:A$:A$"Y"A$"N"332,9MA$"N"ė:C9N(4);"RUN SET UP"V9JQ12500::2638F"PRESS TO CONTINUE";:P$:P$::56c8G::"THE FINAL SCORE WAS "SC(0)" TO "SC(1)8HIN10ĺ"IN "IN1" INNINGS"8I:"THE ";:SC(0)SC(1)ĺ"VISITING TEAM WON":3318J"HOME TEAM WON"8K6:"DO YOU WANT TO PLAY AGAIN (Y/N)"9L7:>TB1ď23,257:23,256P7?:"THE SCORE IS "SC(0)" TO "SC(1)" WITH "O" OUTS"s7@"IN THE ";:A0ĺ"TOP ";:3227A"BOTTOM ";7B"OF THE "IN;:IN1ĺ"ST INNING":3267CIN2ĺ"ND INNING":3267DIN3ĺ"RD INNING":3268EIN4ĺ"TH INNING":3B162FB1SB1$63FB1:72:314@6468:TB1SC(A)SC(A)1Y65TB0:SB1SB0:TB1h66FB1SB1q67FB168TB1(78).75SC(A)SC(A)1:294693146:A0CL6:3166;CL16<CL:FB1ď23,2534:23,25336=SB1Ď19,2110:19,21117P#::"BLOAD RAID.PIC,A$2000"6 "BLOAD DATA"<O"BRUN D/1":11000:I:"EXEC DSTART":J Lwi`,/Kpj>  LCvt |{` & Z >8 ,P,R,U,W  ` &8@ ,T  `ΜLwi```  `=  0LN^ 8 L N N0           q Mp ILLL  : ) : ) : ) : ) :      )K ML`pe e`pee` e - -  ,` L Zj )5 00L``-Wjk-W&kk& `0P,jiji(jij `,`jei߅ N jei߅ N jei߅ N ` l    Lbe88e )xy z{z{ з0pLeme eji 54 yj4 0 L e8 e eji 4 e4j4Pf8f f}0ffm f}@f  fm  8 8   0fm f  0f8 f  0f fm 0f f8 00Lf f f>`_0Γ 0 `541 =(008<@`Im0xy z{I1z{I1i xy z{I1z{I10I` 0f4 f 5E4 4@E5 5ɐ@ `fLf0  - - -    !"jjj`,PL``j7$Hjh0 'Hjh1 '֭  n7jjHjh hh``0&0*&0*50~5.~*.~*mm 4<&<*&<*1<~1.~*.~*mm"=`ɠ0i`8`  `J)01  n`&&i A&p9em&0 'ٽ1 'Ϭp8p01 @ n`&&i& >`9em&0 'ٽ1 'Ϭ`8`01 ` n`0L$0 '\P1 'S nPo oP%MQU]Y,00L! ` %8%Ii$`N(}8(}0}@0} >N N >,N0 >`01L/ 8 80 8$&F&i <& em&0 'ٽ1 'Ϭ8LH,0PTX\(A(E(I(M(Q(U(Y(]AEIMQUY](B(F(J(N(R(V(Z(^BFJNRVZ^(C(G(K(O(S(W([(_CGKOSW[_P@PDPHPLPPPTPXP\@DHLPTX\PAPEPIPMPQPUPYP]AEI9,0=0L `I7@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_(@(D(H(L(P(T(X(\@D,0048<(!(%()(-(1(5(9(=!%)-159=("(&(*(.(2(6(:(>"&*.26:>(#('(+(/(3(7(;(?#'+/37;?P P$P(P,P0P4P8P< $(,048"&*.26:>#'+/37;?#'+/37;?( ($(((,(0(4(8(< $(,I    ɪBL ࠐ 8頪Lz ixy z{1N{ e L L` L` L` L` L` `L L L L z L h LwiLh80&  ϸ0GZjv}}vjZG00GZjv}}vjZG0ϸER" ("3) RUN PROGRAM FROM L         MQU]Y,00L! ` %8%Ii$`N(}8(}0}@0} >N N >,N0 >`01L/ 8 80 8$&F&i <& em&0 'ٽ1 'Ϭ8J0 0 ,j0jLDmj800Llj8j)j`΍j$jj)jj)8j iΉj`j`(O(S(W([(_CGKOSW[_P@PDPHPLPPPTPXP\@DHLPTX\PAPEPIPMPQPUPYP]AEI 8ljjjj 8ljjj j j j`j l DmLLlj)rm lmjjzm lmjjj)jj)j j߅NjIj 8 N` 8 Lllljmll`j`8j08j100Ej10 J0& 081jjjjjjͨj͸j𲭨j͸j ` jj` )j ejjJJJJJjjjjj H)jjhj H)**jh)`jjjjj`j8jIijj8jIimjj`jj& `jj 8ljjjjLhLjթLhNO7i 8i9iLi,H,0 ,09i h`` ]jLi I o ` =e>LI*.26:>#'+/37;?#' /k jjj /kjjj /kjj{ԍ%P !"H hi `Lwi  !!   Vj,P,R,T,W h  >{   6i9i;i :i jLiLWjLhɛLɔ6iɱLi   Lh23456X  Z&h QP?  $7 @@xXpxHH@@xx@HpphhhXXXPPPHHH@@@pppXXXPPPHHH@@@p((((((0h0pp0p000hh0ppp00000(((0@pHHpHHHXXHpXp``p```hh`phppppXpX``X@`@00@H0H@@HpxppXXx`@ xKPȨhH(0)k”QuBȨhH( \f_0PIpnt VY>y+J(^4@Dfop Ra %uIbp[O   z@l }KO2 00000HH0H0PP0P```TJ^J^OlOlOlOlOOCCTTTTeeJJ^JsT^^^^OOOOOOOOOOCTCTCTT^^sJYY^YeOeOOeOOeJCCCCT^YY^sJYYYYYYeeeeeeeJJCJCJCYYYsJ^Y^Y^YYeeOOOOllTTCTCTCTJeTsJYYYYeOeOeOOCCCCCCCYYYYYsTOlOOlJ^^^^YCTTCTTCTOlCsTJJJJJJlllllllTTeTeTeJJJs           `'