' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- ( 0  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`~`?pq?~~~~~s~p$"$$"*p|?~g` <> ""~{?x` h>""&""*"$""""$"pw~Op`?w{|aqA~@pp~~`~||wp<  <& "`x?~o@ """"s?~x`O ""<"< """ <xg|_?|@~?~g{|ca~`@``|~x~?||g """@x?|O """""@w~~x`ox " "" $ """" "~g|_?~|~os?~cA~|x``}|~x|o  "88p~|_~>>>g|~x?`O" x~@p`q>"8 @G|~`||Ow?~g~~x??x}OpG~?|x~p~x||`@y|~~@p`y|}_w?~g~~o}|x?`~p??x}_x~?}||`~x?p$<.$.">x~@@{x?>@?|@p`} ".< .*, $<  >$< ~yg~o|Oy||`?~?~p?xy|~?~y~p`|p?@$"$" """"x?~@?sx"""""p|p`? ""*"* "* $" $ """* "$"" {?o~Ox_{}|`|?~`?py?|~~~{~@~$"$$" 2>"""p|@?wp   " >""|yp` ""*"* **" $> ""*"$" @s?~o_@psy|ayNU"z #   ҠǠŠӠ  ǠԠííŠà ȠŠ  ®ʠŠŠҠ Ӡ  ˧ӠŠ" ˠƠŠӠ îʠҠŠ ʮР٭٠ Ӡ ԠϠ" ϠŠҠ" ǠӠ!ՠ! РР !Ġ Ӡ Š"ϠŮŮàҮʲ Ӡ ŠŠҠ  N $$$$$?????.-???-- <<< '0>07$<7', <,5%5>655-,$$$$$??,---->?7666667??<<$$%%%-...66>>>>'''?$$$%%%--...666>>>>?'''MI2--...";iCH$:CH$(13)5120r 600pN0ĺ"SORRY, THERE ARE NO RECORDS...":J11000::600u:"WOULD YOU LIKE TO SORT BY:":z" 1) PROGRAM NAME" " 2) RY, THERE ARE NO RECORDS...":J11000::600<C0:X1NMCC1:C1ėg:X;::" ";T$(X,1)" ";T$(X,2);" ";PT$((T$(X,3)));" ";T$(X,4);" ";T$(X,5)C7510023:"PRESS TO CONTINUE...";CH$:CH$(13)5080PRESS TO CONTINUE...";7P$:P$(13)4320=G34,023:1:958::"END OF SEARCH...";::"PRESS ...";P$:P$(13)4360600X(Q$):X1XNĢ10:400:600&:"RECORD NUMBER: ";X04230-N0ĺ"SOR80 rX1N&|T$(X,CH1)Q$4330,H:"RECORD NUMBER: ";Xa:"NAME: ";T$(X,1)~:"LANGUAGE: ";T$(X,2):"PGM TYPE: ";PT$((T$(X,3))):"DATE ENTERED: ";T$(X,4):"DISK LOCATION: ";T$(X,5)CH1434023:"EYWORD FOR SEARCH: ";$CH1MX46CH2MX35:F"CH3MX10U,CH4MX1d6CH5MX8s@CH6MX5J350:200:Q$I$TCH5İ250:Q$I$:Q$""ĺ:"ILLEGAL DATE FORMAT!":X11000::4000^:15)::"SEARCHING"::34,2hCH143: " 1) RECORD NUMBER"=" 2) PROGRAM NAME"V" 3) LANGUAGE"s" 4) PROGRAM TYPE"" 5) DATE ENTERED"" 6) DISK LOCATION"::"WHICH CHOICE (1-6): ";CH$:CH(CH$):CH1CH64090CH::"KNTERED: ";T$(CH,4)60 :"DISK LOCATION: ";T$(CH,5)D: 32,0::uD "O.K. TO DELETE (Y/N): ";:325:CH$"N"600N X15:T$(CH,X)T$(N,X)::NN1:600N0ĺ"SORRY, THERE ARE NO RECORDS...":J11000::600:"WOULD YOU LIKE TO SEARCH BY:"INGYOU WISH TO DELETE ? "' MX4:3500 200S CH(I$):CH1CHNİ400:3000Y t "RECORD NUMBER: ";CH :X15:X;".":::32,4 3:"NAME: ";T$(CH,1) :"LANGUAGE: ";T$(CH,2) :"PGM TYPE: ";PT$((T$(CH,3)))& :"DATE EMX10Q3MX1!Q4MX8/Q5MX5=350:200KQ4İ250[T$(CH,Q)I$:"MORE CHANGES (Y/N): ";:325:CH$"Y"2000600 N0ĺ"SORRY, THERE ARE NO RECORDS...":J11000::600 :"WHAT IS THE RECORD NUMBER OF THE LIST,2))4:"PGM TYPE: ";PT$((T$(CH,3)))K>:"DATE ENTERED: ";T$(CH,4)nH:"DISK LOCATION: ";T$(CH,5)|R32,0::\:"NUMBER OF ITEM TO CHANGE (1-5): ";fCH$:Q(CH$):Q1Q52150pQ::"CHANGE TO WHAT: ";zQ1MX35:Q2F:"WHAT IS THE RECORD NUMBER OF THE LISTINGYOU WISH TO CHANGE ? "TMX4:350h200:I$""600CH(I$):CH1CHNİ400:2000 "RECORD NUMBER: ";CH:X15:X;".":::32,4 3:"NAME: ";T$(CH,1)*:"LANGUAGE: ";T$(CH0:200:T(I$):T1TNT1060.BT$(N1,3)I$@LT$(N1,4)DT$ZV:"DISK LOCATION: ";z`MX5:350:200:T$(N1,5)I$jNN1t:"MORE ENTRIES (Y/N): ";~325:CH$"Y"1000600N0ĺ"SORRY, THERE ARE NO RECORDS...":J11000::60000,7000 2"THIS WILL BE PROGRAM # ";N1:T"WHAT IS THE PROGRAM NAME ?"uMX35:350:200:T$(N1,1)I$7:"LANGUAGE TYPE: ";MX10:350:200:T$(N1,2)I$$9:"PROGRAM TYPE:":.X1NT:" ";X;") ";PT$(X)::8MX1:352) CHANGE LISTING"- "3) DELETE LISTING"H "4) SEARCH LISTINGS"b "5) PRINT LISTINGS"{ "6) SORT LISTINGS" "7) EXIT PROGRAM" 32,0 20:"CHOICE (1-7): "; CH$:CH(CH$):CH1CH7730:CH1000,2000,3000,4000,5000,601MX:(8);::J :"SORRY, INVALID RECORD NUMBER !":X11000::P  "TODAY'S DATE (MM/DD/YY): ";:MX8:350:200:250:I$""510 DT$I$ X: b9)"MASTER PROGRAM CATALOG":16)DT$ l32,8 v: "1) ENTER LISTING" "DD1DD31305H "MM2((YY4)4YY)((YY400)400YY)DD28305n '(MM4MM6MM9MM11)DD30305 ,I$("00"(MM),2)"/"("00"(DD),2)"/"("00"(YY),2): 1I$"": ECH$:CH$"Y"CH$"N"325 JCH$: ^X1MX:(95);::X205 (I$)MX205) A32A902052 A$;D I$I$A$:205W MM0:DD0:YY0p K(I$):K6K8305 MM(I$):J1K ((I$,J,1))0(I$,J,1)"0"DDYY:YYJ1 :DD0305 DD((I$,DD,2)):YY((I$,YY)) MM1MM12305  dCL$:216,0z nPT$(1)"GAME":PT$(2)"BUSINESS":PT$(3)"UTILITY":PT$(4)"TEXT FILE":PT$(5)"EDUCATION":PT$(6)"OTHER" xNT6 500 A$"":I$"" A$:A$(A$,1):A(A$) A13ĺ: A8(I$)0I$(I$,1,(I$)1):A$;(95);A$; A8) MASTER CATALOG`D$(4):OP$D$"OPEN":CL$D$"CLOSE":RD$D$"READ":WR$D$"WRITE"i90(D$;"UNLOCK PROGRAMS"2OP$;"PROGRAMS":RD$;"PROGRAMS"<N:T$(N50,5):N0100FX1N:Y15PMX35:200:T$(X,Y)I$:::100 ZN0        ALSO, IT IS A GOOD IDEA8 TO SET HIMEM BELOWS THE TABLE'S STARTINGo ADDRESS TO PROTECT ITu TE";N9$;",A";BA;",L";ABA2"j:6t115,M1:116,M2J~(4)"RUN MENU"PVq WHEN USING THE TABLE AT A LATER DATE, SET THE BEGINNING ADDRESS OF THE SHAPE TABLE IN MEMORY LOCATIONS $E8 & $E9, LOW BYTE FIRST"2"START OVER. R WILL RESET THE COORDINATES";~$"TO ALLOW YOU TO BEGIN THE SHAPE AT A":"POINT OTHER THAN THE CENTER.".8"RESPOND TO ALL QUESTIONS (Y/N)":B"PRESS TO CONTINUE...";LA$:A$(13)1100V::`"BSAVRIGHT, AND DOWN RESPECTIVELY. THE ARROW KEYS MAY ALSO BE USED, IF DESIRED."T"THE SPACE BAR WILL MOVE THE CURSOR IN THE DIRECTION DESIRED. TO CHANGE FROM""PLOT TO NO-PLOT USE THE X KEY. THE C""KEY WILL CLEAR THE SHAPE SO YOU MAY6(A$)123A$((A$)32)3A$"Y"A$"N"940=A$:E:"SHAPE TABLE GENERATOR WILL HELP YOU DRAWHI-RESOLUTION SHAPE TABLES FOR USE IN YOUR PROGRAMS."N"THE KEYS I, J, K, AND M CONTROL DIREC- TION AND ARE USED FOR UP, LEFT, 480 H=R23:958:"ENTER X: ";A$:X(A$):X0X39850q\23:958:"ENTER Y: ";A$:Y(A$):Y0Y39860{fMAX0p450zD10210A(X1)4A(X1)0210A(X1)0D12:XX1:930D11A,TR:AA1:TR0:250A$:(A$)9D0Y0470D1X39470/D2Y39470@D3X0470XO:X,Y:15:CčX,YkD770,780,790zYY1:800XX1:800 YY1:800XX1 TY4CD:A(MA)TY:MAMA1*470423:958:"RESET? (Y/N): ";:940>A$"N"Ė1:A$"R"820 X(7);:480? bCC:C$"PLOT ":CC$"NOPLOT"W lC$"MODE: "C$:480} v23:958:"CLEAR? (Y/N): ";:940 A$"N"Ė1:480 400 D$"UP ":D0:480 D$"DOWN ":D2:480 D$"LEFT ":D3:480 D$"RIGHT":D1:480 ECTION: ";D$;:1; A$:(A$)96(A$)123A$((A$)32)U F(16336)(16336)g A$(27)150w A$"X"610 A$"C"630 A$"I"A$(11)660 &A$"M"A$(10)670 0A$"J"A$(8)680 :A$"K"A$(21)690 DA$" "700 NSNNSNSN1:"SORRY, SHAPE TABLE IS FULL":1120E  ENTER SHAPEK h 22:"SHAPE NUMBER: ";SNu MA0:L0} 15 X20:Y20  SET UP INITAL MODES C$"MODE: PLOT":D$"UP ":C1:D0 OX,Y):2:X,Y 23:958:23:C$;" DIRD1C D1D11  ' A,TR1 AA1? "TR0:D10H ,220] 6A,TR:AA1:A,0l @AA1:A,0w JLAA1 TBA(SN2)1,((ABAL)256) ^BA(SN2),MOD(ABAL) h23:958:"ANOTHER SHAPE (Y/N): ";:940 rA$"N"11203 |SNSN1:BA1,0# P"NAME OF TABLE ? ";N9$4 Z(N9$)080J dSN1:ABA2(N2)] n233,(BA256)o x232,MOD(BA){ A(500) 400 A(MA)255 A1A TR0:D10 X0MAX CA(X) C0890 C255310 TR8D1C255270 TRTR8v ! SHAPE TABLE GENERATOR?M1(115):M2(116):8192H970d(MOD(Q)Q(Q256)2562"WHAT IS THE BEGINNING (DECIMAL) ADDRESS OF THE TABLE? ";A$:BA((A$)):BA256BA6553650<"HOW MANY SHAPES ? ";N$:N((N$)):N160 FBA,N:   N9??`--%,-5.-???-- <<< '0>07$<7', <,5%5>655-,$$$$$??,---->?7666667??<<$$%%%-...66>>>>'''?$$$%%%--...666>>>>?'''MI2-- TO PLAY, TO END"]>::"ANY 5)& D3DC(J,1),DC(J,2):DC(J,2)1602 NHIHI1C XTTHTHTTTT bTT500NP6e lTT750NP7 v30:22:"SCORE: ";TT:  DRAW BORDER AND SEA :3:0,20279,20 0:1 0,0279,0279,1590,1590,0 TT0 BB159:LB0:RB2),SP(X,2): 2001 T9((1)10):T91T91T SP(X,3)T9:SP(X,1)((1)200) SP(X,2)((1)155):SP(X,2)25SP(X,2)155520  &Q24:Q:2SP(X,1),SP(X,2):1:1:"": 0Q411:Q:2SP(X,1),SP(X,2): :TTTT(SP(X,2)2SP(X,3)0 |J1DC, DC(J,2)157MIMI1:410Z T9T91:DC(T9,1)DC(J,1):DC(T9,2)DC(J,2)` j DCT9 1:23:"MISSES: ";MIHI:1:22:"HITS: ";HI T80 X13:2SP(X,1),SP(X,2):SP(X,1)SP(X,1)SP(X,3):SP(X,1)275SP(X,1)4 2SP(X,1C(J,1),DC(J,2)< ,DC(J,2)DC(J,2)3:DC(J,2)157T81:360S 63DC(J,1),DC(J,2) @X13:DC(J,1)SP(X,1)5DC(J,1)SP(X,1)6350 JDC(J,2)SP(X,2)6DC(J,2)SP(X,2)350 T550:500:SP(X,1)1:2SP(X,1),SP(X,2) ^ h rT90:DC0T8044SHSH3:SH4SH275:PAPA1:23:31:"PASS: ";PAJ 1SH,19:PANP800g KB(16384):KB128270 16368,0: RESET STROBE DC5270 DCDC1:DC(DC,1)SH:DC(DC,2)21 3DC(DC,1),DC(DC,2) DC0āJ1300::370 J1DC "3D DEPTH CHARGE0M1(115):M2(116):8000O(SP(3,3),DC(5,2)e2"BLOAD SUB.OBJ"y<232,32:233,78F800d:700:650nX13:500:xSH275:1SH,19:PA1:23:31:"PASS: ";PAX13:2SP(X,1),SP(X,2):2 1SH,19:    13,22,31,16,25,34,19,28,37@ 11,24,37,12,25,38,13,26,39a 17,24,31,18,25,32,19,26,33 11,25,39,13,25,37,17,25,33,19,25,31221,24,27,22,25,28,23,26,29,21,25,29,23,25,27zf 31,32,33,34,35,36,37,38,39,31,34,37,32,35,38,33,36,39,31,35,39,33,35,37p 11,21,31,12,22,32,13,23,33z 14,24,34,15,25,35,16,26,36 17,27,37,18,28,38,19,29,39 11,22,33,14,25,36,17,28,39HE GAMES!":(4);"RUN MENU"% 34,0-60R X149:R(X)0:(X3)3Xĺ".";]*Y134R(X)R(X)B(P(X,Y,1),P(X,Y,2))>Y:XHR 11,12,13,14,15,16,17,18,19,11,14,17,12,15,18,13,16,19,11,15,19,13,15,17,\ 21,22,23,24,25,26,27,28,29,50 CW(752):CWCW1:752,CWX20:1:958:"WELL, CHALK ONE UP FOR THE CAT....."u:"PLAY AGAIN (Y/N): ";CH$:CH$"Y"CH$"N"760CH$:CH$"N"Ĺ34,0::::"YOU WON: ";(750):"I WON: ";(751):"CAT WON: ";(752)::"THANKS FOR T13:"(";P(X,Y,1);"-";P(X,Y,2);") ";::FYW(750):YWYW1:750,YWs"YOU WON.....THAT WAS A GOOD GAME":75020:1:958:Y13:"(";P(X,Y,1);"-";P(X,Y,2);") ";::IW(751):IWIW1:751,IW"I WON.....JUST CAN'T KEEP UP, CAN YOU ?":70:200T :L13:P173:(11(P3)):(L8):YPP2:M$(B(L,Y));" ";::::: X20:1:958:T$M1$:M1$M2$:M2$T$:M1$;:L13:P19:B(L,P)0Ă::730 b800 lX149 vR(X)27ġ:670 R(X)3ġ:700  (20:1:958:Y2 ^X149:R(X)CF390= hY13:LP(X,Y,1):PP(X,Y,2)Y rB(L,P)0B(L,P)1:450` |Yg X~ CF18CF18:350 C0:L13:P19:B(L,P)0CC1:T(C,1)L:T(C,2)P : T((2)27):T1TC430 B(T(T,1),T(T,2))1 500:603): ";% CH$:L(CH$):L1L3210A L:"POSITION (1-9): ";` CH$:P(CH$):P1P9230g P B(L,P)0ĺ(7):200 B(L,P)9 500 600: SEE IF WINNER " , 6 SEE IF COMP CAN WIN @ JB(2,5)0B(2,5)1:450 TCF DE11200 DE :"LEVELS ARE 1, 2, AND 3, LEFT TO RIGHT.":"POSITIONS ARE NUMBERED (ON EACH LEVEL) 1 THROUGH 9 FROM THE TOP-LEFT TO THE BOTTOM-RIGHT CORNER.":15:34,5:: X.5İ500:200 B(2,5)1:500 20:1:958:"LEVEL (1-0:: Z18);"QUBIC"= d:"WOULD YOU LIKE X'S OR O'S: ";Z nM$:M$"X"M$"O"110 xM$:M$(9)M$:M$(1)"X":M$"X"M$(1)"O" X(2):X.5ĺ::"I WIN THE TOSS....I GO FIRST !":150 :"YOU WON THE TOSS OF THE CHIP......YOU GO FIRST !"  QUBIC*750,0:751,0:752,0NB(3,9),R(49),P(49,3,2),T(27,2)a(IW0:CW0:YW02X149:Y13:A:P(X,Y,1)(A10):P(X,Y,2)AP(X,Y,1)10::<M$(0)".":M1$"CHECKING FOR WINNER":M2$"I'M THINKING"F: PL13:P19:B(L,P)     820:"I WON.......JUST CAN'T KEEP UP, CAN YOU?":820A 690p*20:"WELL, CHALK ONE UP FOR THE CAT....."4:"PLAY AGAIN (Y/N): ";>CH$:CH$"Y"CH$"N"830HCH$:34,0::CH$"Y"ĺ:(4);"RUN MENU"RRR(7)B(1)B(5)B(9)+ R(8)B(3)B(5)B(7)1 d :X193:17:Y02:M$(B(XY));" ";:::: X19:B(X)0Ă:800 600 X18 R(X)27760 R(X)3780 : 690 20:"YOU WON.....THAT WAS A GOOD GAME":820 690 Y0:X19:B(X)0YY1:C(Y)X( F X(10(2)):X1XY500Q XC(X)k B(X)1:690:700:130 XR(1)B(1)B(2)B(3) bR(2)B(4)B(5)B(6) lR(3)B(7)B(8)B(9) vR(4)B(1)B(4)B(7) R(5)B(2)B(5)B(8) R(6)B(3)B(6)B(9) 350 JX173:B(X)0520# T5 ^R(5)CF380N hX283:B(X)0520T rf |R(6)CF410 X393:B(X)0520  R(7)CF440 X194:B(X)0520  R(8)CF470 X372:B(X)0520  CF18CF18:230"0ĺ(7):130 B(X)92 700: SEE IF WINNER; 600A V SELECT A MOVE\ e CF2w R(1)CF260 X13:B(X)0520 R(2)CF290 X46:B(X)0520  "R(3)CF320 ,X79:B(X)0520 6 @R(4)CFH$"N"80s ZCH$::"POSITIONS ARE NUMBERED 1 THROUGH 9 FROM THE TOP-LEFT TO BOTTOM-RIGHT CORNER.":15:34,5:: dCH$"Y"İ690:130 nX((2)10):X1X9110 xB(X)1:690 20:"YOUR MOVE (1-9): "; X$:X(X$):X1X9140 X:B(X) TIC-TAC-TOE3X19:B(X)0::M$(0)"."M:15);"TIC-TAC-TOE"s(:"WOULD YOU LIKE X'S OR O'S: ";2M$:M$"X"M$"O"50<M$:M$(9)M$:M$(1)"X":M$"X"M$(1)"O"F:"WOULD YOU LIKE TO MOVE FIRST (Y/N): "; PCH$:CH$"Y"C16336)$:FQĺ#$FQ0:255:A255:M5NLES T. FARNSWORTH, THE NOTED TEXAS MILLIONAIRE, HAS ANNOUNCED HIS SUPPORT FOR THE PRESIDENT AND CON- TRIBUTED $4500 TO THE PARTY AT A MORNINGPRESS CONFERENCE."#SS4500:PP1##137:X1(S$):(S$,X,1);:(S$,X,1)" "1500$SOUND(THE MID-EAST. THIS IS EXPECTED TO REFLECT IN PRESIDENTIAL SUPPORT AT THE POLLS THIS FALL."l"xP(P.8)r""CD$" RECENT PUBLIC OPINION POLLS SHOW THE PRESIDENT HAS HAD A 10% DROP IN VOTER SUPPORT.""P(P.9)"#CD$" TODAY, CHARED REPORTS SHOW THAT THE RATE OF INFLATION HAS SLOWED CONSID-ERABLY DUE TO THIS ADMINISTRATION'S EFFORTS TO REDUCE GOVERNMENT SPENDING."!ZP(P1.2)!d^"nCD$" THE ARABS HAVE AGAIN RAISED OIL PRICESIN RETALIATION TO GOVERNMENT CONCESSIONSIN SS(S3) ( 2CD$" THE PRESIDENT HAS SUCCESSFULLY PRE- VENTED A MID-EAST CRISIS BY HIS SKILLFULHANDLING OF FOREIGN AFFAIRS. THIS IS EXPECTED TO HAVE A GOOD EFFECT ON HIS RE-ELECTION DRIVE." <P(P1.4) F!PCD$" RECENTLY RELEAS BONDS AS A RESULT OF THE REACTION."1A(A2)7 CD$" THE CAMPAIGN PRACTICES OF THE PRESI- DENT CAME UNDER CLOSE SCRUTINY TODAY BY THE NATIONAL BOARD OF REVIEW (N.B.R) AND THE PRESIDENT'S PARTY HAS BEEN FINED $"CD$CD$((S3))"." SIVE DISAGREEMENT OVER DOMESTIC POLICY. YOU LOSE HALF YOUR VOTERS."ZP(P2):DDP`$CD$" THE NEW ECONOMIC POLICIES ANNOUNCED TODAY BY THE PRESIDENT HAVE PRECIPITATEDA FALLING-OUT BY BANKERS, AND THE PRESI-DENT HAS LOST HALF OF HIS BANKD$" YOUR BROTHER WAS FOUND TO BE IN CAHOOTS WITH A SPY RING FROM BOTSWANA. YOU HAVE LOST ONE HALF OF YOUR VOTERS AND ONE THIRD OF YOUR BONDS."A(A.66):P(P2):DDPGCD$" TODAY THE ENTIRE PRESIDENTIAL CABINET RESIGNED IN A MASOF YOUR FINANCES. GOOD LUCK."(`1050Bj CAMPAIGN DISASTERSdtCD((1)10):CD1CD91140~CD1200,1230,1260,1290,1330,1360,1390,1420,1450S$"************ NEWS FLASH ************"CD$"":::1480:Cg8"POOR JOB, ";N$;".":"YOU WERE SUPPOSED TO WORK AT THE JOB, NOT JUST SIT BACK AND TAKE THE PAY."qB1050L"YOUR PARTY'S BANKBOOK GREW QUITE A BIT. YOU'RE AN EXCELLENT PRESIDENT, BUT YOUR DETRACTORS ARE ASKING FOR A"V"CONGRESSIONAL REVIEW KE THE HALL OF FAME, BUT YOU DIDN'T MAKE MANY ENEMIES EITHER."((P8)(1(1)13)1000);" PEOPLE WOULD LIKE TO SEE YOU DEAD,""BUT WE ALL HAVE LITTLE PROBLEMS NOW AND THEN.""":"SO LONG FOR NOW."$J110000:."RUN MENU"FEELING, AUTOCRATIC RULE IS REMINISCENT OF CHICAGO DURING THE AGE OFBOSS TWEED.""THE VOTERS (THAT ARE STILL LEFT) FIND YOU A VERY UNLIKABLE GUY. YOU WILL BE LUCKY TO GET ANY JOB IN THIS COUNTRY IN THE FUTURE.":1050>"WELL, YOU DIDN'T MAD1Pĺ:720+P110A1100S250011009L71080IP1101000^L10D1301000mP131020|L101020"A TRULY REMARKABLE PERFORMANCE !!":"SURELY NONE OF YOUR PREDECESSORS COULD HAVE DONE A MORE NOBLE JOB.":1050U"YOUR UN8-MONTH TERM OF OFFICE, YOU HAVE OFFENDED OVER "(D1)" PEOPLE.":1480:YpP0P1fzL(AP)S$"YOU BEGAN WITH A RATIO OF "(BR)" BANK":1480:S$"BONDS TO EVERY VOTER, AND YOU ENDED WITHA RATIO OF "(L)" BONDS PER VOTER.":1480 868:P 4:22:868:Z%*24:94C((1)8)1:{>:"SORRY, MR. PRESIDENT, BUT I CANNOT DO WHAT YOU WISH.":H"YOU HAVE BEEN IMPEACHED ON GROUNDS OF MENTAL INCOMPETENCE. YOUR TERM IS HERE-BY ENDED.":R1050\LfS$"IN YOUR 4OF OFFICE BUT YOU HAVE"@"ALSO BEEN DECLARED NATIONAL FINK."J1050S$"MR. PRESIDENT, WE ONLY HAVE $"(S):1480:S$"IN THE TREASURY. WE CANNOT CONDONE":1480:S$"DEFICIT SPENDING.":1480::1:18:868:S 2:16:868:A3:19:PC:D0II((D)19(1)11):D0:140<D209P710SP1(D1110(PZ))hPC:D1D1D:140:"YOU ALIENATED ";D;" PEOPLE IN ONE":"MONTH !":"DUE TO EXTREME MISMANAGEMENT YOU HAVE ":"NOT ONLY BEEN IMPEACHED ""AND THROWN OUT EACH PERSON CAN ONLY SPEND $10 FOR THE PROJECT.":1480:490J0SSD:770S:820xDYC:HDY:E0:C6FLCP:HHFLN820XC4E(SC)bSSEH:770l820vP0P1I(((1)P)2)1C(Q20)Q((1)101):Q(Q15)*DPRESIDENT, YOU KNOW WE NEED MORE BONDS IN THE BANK TO BACK THAT TYPE OF SOLICITATION VENTURE. PLEASE RECONSIDERTHE AMOUNT.":1480::490DSİ760:490D10P560;&:S$"BUT YOU ONLY HAVE "(P)" PEOPLE TO DO":1480:S$"THE SOLICITING. ER USUALLYDOES IT): ":FQ1:1480<"";Q$:Q(Q$):Q0830OQSİ760:440_SSQ:C1:h770S$"HOW MUCH DO YOU WISH TO SPEND ON":1480:S$"SOLICITING DONATIONS? ":FQ1:1480"";D$:D(D$):D0570D0830D(2A)ĺ:S$"MR. ":FQ1:1480("";Q$:Q(Q$):Q0830AQĺ:S$"MR. PRESIDENT, THE PARTY ONLY HAS "(A):1480:S$"BONDS IN THE BANK.":1480::390AAQ:SSYQ:C0:Q0İ770 S$"HOW MUCH MONEY SHOULD BE SPENT TO KEEP OUR VOTERS HAPPY? ($20 PER VOT1)11):YC17DJS$"BONDS ARE NOW SELLING AT $"(Y)".":1480::|TS$"HOW MANY BONDS DO YOU WISH TO BUY? ":FQ1:1480^"";Q$:Q(Q$):Q0830hYQSİ760:340rAAQ:SSYQ:C0|:Q0İ770 S$"HOW MANY BONDS DO YOU WISH TO SELL? 480;:S$"THE PARTY NOW HAS "(A)" BANK BONDS.":1480q:S$"YOU RECEIVED $"(H)" IN DONATIONS.":1480"E0ĺ:S$"KICKBACKS PAID OUT AMOUNTED TO $"(E):1480,:S$"YOU NOW HAVE $"(S)" IN THE TREASURY":1480:6Z0860 @C((P2):770 :S$"BAD NEWS, MR. PRESIDENT. A RECENT NEWS POLL SHOWS THAT YOU HAVE LOST HALF OF YOUR POTENTIAL VOTERS DUE TO A SURPRISE ANNOUNCEMENT FROM YOUR OPPOSITION.":1480:S$"THE NUMBER OF PEOPLE IN YOUR CAMP NOW STANDS AT "(P)".":1E, AND "(D)" VOTERS":1480V S$"WERE ALIENATED. HOWEVER, "(I)" VOTERS":1480{ S$"HAVE JOINED OUR SIDE.":1480 (1).2İ1130:770 FLĺ:S$"AN ANONYMOUS CONTRIBUTOR HAS JUST DONAT-ED $"(FL):1480:FL0 Q0260 FL1 P(1((1)20):H((1)3000):E((1)391):S3000HE:Y3:A(HY):I5:Q1V xBR(AP)d 770:220 :S$"MR. PRESIDENT, OUR OFFICIAL SOURCES":1480 PPI:ZZ1:770 S$"REPORT THAT ONLY "(Z)" MONTHS REMAIN":1480 S$"UNTIL ELECTION TIMUCCESS."/ <23:"PLEASE ENTER YOUR NAME: ";N$J F(N$)0Ģ23:868:60 P:1:"TREASURY FUNDS:":"BONDS IN BANK:":"FAVORABLE VOTERS:":"MONTHS TIL ELECTION:" Z5:"<--> <--> <--> <--> <--> <--> <--> <-->" d20:34,6:H nD10:P10:Z48:P100 TO BE 48 MONTHS FROM NOW.)":: 2" YOU CAN MAKE MONEY FOR THE PARTY (WHICH IS ONE OF YOUR MANY JOBS) BY BUYING AND SELLING BANK BONDS, BUT BE CAREFUL NOT TO ALIENATE TOO MANY VOTERS,BECAUSE THEY DO ALL OF YOUR WORK AND ARETHE KEY TO YOUR S$ BIG GOVERNMENT=:13);"BIG GOVERNMENT":::" YOU ARE THE PRESIDENT (WE WON'T SAY OFWHICH NEARBY COUNTRY) AND YOU HAVE TO MAKE THE EVERYDAY DECISIONS THAT WILL" ("ENSURE THAT YOU WILL BE RE-ELECTED NEXT ELECTION (WHICH HAPPENS           N1BYh<<<<$,,55 -.6>><<<<,055,,<07<<< %%..$? $<'$%%%..6>< '0>07$<7', <,5%5>655-,$$$$$??,---->?7666667??<<$$%%%-...66>>>>'''?$$$%%%--...666>>>>?'''MI2--5X,YHXX25:Y426X,YXX25:Y47 7X,Y ` XX30:Y47j STX,Yt M47:STZ,YY62:STZ,Y%17706Y47:STZ,Y<BVZX20X4020gY31:STZ,YxY42:STZ,Y&Y53:STZ,Y0Y64:STZ,Y:DlZX15X4515vZX30Y47:STZ,Y:1960Y31:STZ,YY42:STZ,Y ZX15X4515'ZX3015508Y34:STZ,YIY62:STZ,YS1560dY47:STZ,Yjp"@ZX20X4020JY34:STZ,YTY47:STZ,Y^Y62:STZ,YhrZX15X4515ZX301760Y34:STZ,Y Y XX30%Y38:STX,Y6Y56:STX,Y<GXX15XY34:STX,Yc(XX15t2Y47:STX,Y<XX15FY62:STX,YPxXX20Y38:STX,YXX20STX,YXX20Y56:STX,YXX20STX,YOST YOUR ENTIRE STAKE!":6b"TRY AGAIN (Y/N): ";SlA$:A$"Y"A$"N"620cvA$"Y"220~"HOPE YOU HAD FUN!!!"115,M1:116,M2:(4)"RUN MENU"3X2080X,10X,75X80,10X80,75X160,10X160,75(C1)1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400[CACB56023:868:"YOU WIN !!!!!"QQM&580023:868:"SORRY, BUT YOU LOSE !":QQMDDE12500::260N:X"SORRY, FRIEND, BUT YOU L"";M$7 M$"QUIT"ĉ::"THANKS FOR PLAYING!"::610T M(M$):M0ĺ(7);:410y M0Ģ23:868:"CHICKEN !":270 M$Q$470 MQ470 23:868:"SORRY, BUT YOU ONLY HAVE $";Q$:280 130:CR 130:R4480 STR X180H290 @670 JX20' T130:R43400 ^STR| h(A1)1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400 rX100 |130:R4380 STR (B1)1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400 22:14:958:OUR BET WILL ALLOW YOU TO END THE GAME EARLY."Y 23:"PRESS TO CONTINUE...";p I$:I$(13)210x : 21:"STAKE:" 22:"YOUR WAGER: $" Q100 70 21:8:868:Q$ Q.02590 "130:AR ,130:BR 6AB1OT YOU THINK THE NEXT CARD DEALT WILL HAVE A VALUE BETWEEN THE FIRST TWO." :"IF YOU DO NOT WISH TO PLACE A BET,":"ENTER '0' FOR YOUR BET.": "TIES WITH YOUR UPPER AND LOWER CARDS AREAUTOMATICALLY WON BY THE HOUSE."/ :"ENTERING 'QUIT' AS Y n((Q$,3))46Q$Q$"0"" xA R((1)17):R2R14130G M "ACEY-DUCEY IS PLAYED IN THE FOLLOWING":"WAY:"::"THE DEALER (COMPUTER) DEALS TWO CARDS"K "FACE UP. YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING ON WHETHER OR N  M1(115):M2(116):8192JC$(14):232,32:233,78:"BLOADCARDS"v2,3,4,5,6,7,8,9,10,JACK,QUEEN,KING,ACE(X214:C$(X):20:1<150FQ(Q100.5)100PQ$(Q):Q0Q$""Z(Q)0Q$"0"Q$dQ(Q)Q$Q$".00":120     L $rM)`` ??#$DA8?? OF POOR":N$;" WAS DONE IN THE"P$(P(1));" WITH THE ";W$(P(2));"."$:"NOW, THE QUESTION IS 'WHO DID IT' ?":.X17:X;") ";S$(X)::=8"WHAT IS THE CULPRIT'S NUMBER ? ";IQB1760:N1770   3**Z20802094I03604f>Y(80Z(I57.3)):X(140Z(I57.3))tHI0ēX,Y~RX,Y\::::X(140Z(I57.3))HI0ēX,YRX,Y\::770:Y3Y1RN:Y3Y2Y3Y29770:X3X1RN:X3X2X3X2\3:0,160X3,Y3:279,160X3,Y3n2:0:Z110{1X3,Y3Z116SO(S):SO(S):SO(S)1X3,Y30:0,160X3,Y3:279,160X3,Y3RN((2)11):RN10RME !!":115,M1:116,M20D:(4)"RUN MENU"DNLB10:B5B4NXL5LobI((2)361):I1I359610lY1L(I57.3)20:X1L(I57.3)20vLL1:Y2L(I57.3)20:X2L(I57.3)20Y1(80Y1):Y2(80Y2):X1(140X1):X2(140X2)A$(X)A$(Y):A$(Y)T$:F::"WE HAVE A WINNER IN ROUND # ";R:"FINAL SCORES:"::X1N:A$(X);" SCORED ";S(X);" POINTS"::::"CARE TO PLAY AGAIN (Y/N): ";A$:A$"Y"A$"N"540&A$"Y"R0:1600:8:"THANX FOR THE GAUP3B20:410" UP4B10:410* B00 c S(X)S(X)B:23:" ":23:H$(B10)l 590 (20X):15:868:A$(X);": ";S(X)  X1N S(X)250Ă:240 X1N1:YX1NS(X)S(Y)TS(X):S(X)S(Y):S(Y)T:T$A$(X):23:"SHOT ? ";+ CH$:CH$(27)ĉ::440E "T(CH$):T1T3280L ,T_ 6T320,330,340 @P1.6:P2.6:P3.6:P4.6:350 JP1.99:P2.77:P3.43:P4.0001:350 TP1.95:P2.75:P3.45:P4.05 ^U(2) hUP1B50:410 rUP2B30:410 |N::X1N6 :"NAME OF PLAYER #";X;:" ? ";A$(X)A S(X)0N ::790` 21:"ROUND:" 32,14:21:X1N:A$(X);": 0"::32,0 RR1:21:7:" ";:9:R X1N (20X):15:868::A$(X);":";::" ";S(X) 23:" ":VALUE"/ n"---- ---- -- ----";27);"-----"Z x" 1";10);T$(1);25);"50 PTS OR MISS" " 2";10);T$(2);25);"10, 20 OR 30" " 3";10);T$(3);25);"ANYTHING" W(10):R0:M0 :"NUMBER OF PLAYERS (1-3): "; N$:N(N$):N1N3170 ER PRACTICE": P"THE OBJECT OF THE GAME IS TO BE THE FIRST PLAYER TO ACCUMULATE 250 CREDITS BY FIRING A PHASER AT A TARGET." Z:"THE ZONES ON THE TARGET HAVE POINT VALUES OF 10, 20, 30, AND 50 POINTS." d:"SHOT TYPE OF SHOT";27);"  M1(115):M2(116):74993"BLOADOBJ.PP"G232,76:233,29T(S163362T$(1)"OVERARM":T$(2)"SIDEARM":T$(3)"UNDERARM"<H$(0)"MISS !":H$(1)"10 POINTER !":H$(2)"20 POINTER !":H$(3)"30 POINTER !":H$(5)"BULLSEYE !" F:13);"PHAS      N-----;???g---?? ->>>> $%,$%,$%d65.65.6'''{4hn:ALASKA,UTAH,NEVADA,ARIZONA,NEW MEXICO,WYOMING,MONTANA,SOUTH DAKOTA,NORTH DAKOTA,IDAHO,IOWA,KANSAS,NEBRASKA,OKLAHOMA,WISCONSIN2R1,150:(16287)128ı/DU0:3:TT5ZNR1XR1(X12)UY1:TT100:SFSF1oX23:28:868:TbR1,135R1,Ul0,192:1,10:768v0:R1,135R1,U:X1(A$)(A$,X,1);(A$,X,1)" "Ĺ0,(1)5050:1,20:768:55:Y9155:X1R16X1R16Y8138:FL1MX10R16X10R16Y9138:FL1b0,96:1,10:768X1,Y1X1,Y8:X10,Y1X10,Y9FL2ı400FL1T(TM):23:28:868:T0:FL2470R(0)102R1,150&R1R 0T(X1$,4)"DEEP"ĺ"DEEP ";/ ^"GRATITUDE."` h::"WOULD YOU LIKE TO PLAY AGAIN (Y/N): "; rCH$:CH$"Y"CH$"N"370 |CH$"Y"90 115,M1:116,M2::(4)"RUN MENU" T0T2 M.5:T0M1(1((T)100))  3:FL0(Y81O YOUR BRAVERY AND SKILL IN COMBAT, YOU HAVE BEEN AWARDED (BY ACT"l ,X1$"OF CONGRESS), THE STATE OF " 6X((1)33):X1X15310 @X1$X1$ST$(X):(X1$)37X1$X1$" IN":(X1$)35X1$X1$" DEEP":X1$:350 JX1$:(X1$,2)"IN"ĺ"IN "; UGH POWER LEFT TO DESTROY THE EARTH. "R "YOUR SCORE OF ";T;" JUST WASN'T GOOD"f "ENOUGH.":360 "CONGRATULATIONS.....YOU HAVE SUCCESFULLYDEFENDED THE EARTH AGAINST THE ZARGONS. " "YOUR SCORE OF ";T;" WAS VERY COMMENDABLE.":F ""THANKS T5 XABC 1X,Y:5300 (2).1İ430; 1X,YA J 400n SF2T(TM):23:28:868:T SF0:TPA:AB:BTP:CC : T2000270& "THIS HAS BEEN A SAD DAY FOR EARTH. ALL":"HAS BEEN LOST. THE ZARGONS HAD":"ENOCOMING...........":640::::A$"..........GOOD LUCK !":640:255W <"BLOADARC.OBJ"k F232,32:233,78 PST$(15):X115:ST$(X): Z:T0:R1((0)):Y20:A0:B265:C5 d:0:1:2R1,150 n:23:6:"ENERGY UNITS STOLEN: ";T xY20130dž ATTACK OF THE ZARGONS7M1(115):M2(116)A8192(768,166:769,1:770,164:771,0:772,173:773,48:774,192:775,136:776,208:777,253:778,202:779,208:780,245:781,96B 2:100:A$"ATTACK OF THE ZARGONS":10:640:::A$" THEY ARE      +(l20:"PRESS TO CONTINUE...";E(vCH$:CH$(13)1910[(:(4)"RUN MENU"..";'CH$:CH$(13)1790('::F'34,0:CP(37):1:35,7:^'"ROOM: ";P$(P(1))z'&"CARRYING: ";W$(P(2))'0"VICTIM: ";N$'::"VISIBLE: ";'DR(P(1),0)01890'NX1R(P(1),0)'XW$(R(P(1),X));" ";:(b:35,24:37,CP:34,7:DON'T THINK THAT WEAPON ISIN THIS CASE !":v&XP(2)ĺ:"SORRY, SIR, BUT I AM NOT CARRYING THAT WEAPON !"::&R(P(1),0)R(P(1),0)1:R(P(1),R(P(1),0))P(2):P(2)0&&R((1)11):R1R101760&'23:"PRESS TO CONTINUE.T0ı'%@R(P(1),Y)R(P(1),R(P(1),0))A%^R(P(1),0)R(P(1),0)1G%hY%r(I$)61710%|P(2)0ĺ:"SORRY, BUT I AM NOT CARRYING ANYTHING, SIR !":%X16%(I$,(I$)4)W$(X)1720%(I$,(I$)5)W$(X)1720%-&:"SORRY, SIR, I "SORRY, SIR, BUT THERE SEEMS TO BE NO WEAPONS IN THIS ROOM.....PERHAPS SOME- WHERE ELSE ?":v$Y1R(P(1),0)$R(P(1),Y)X1580$$":"SORRY, SIR, BUT I DON'T SEE THAT WEAPON IN THIS ROOM !":$,TP(2):P(2)R(P(1),Y):R(P(1),Y)T%6IS IN USE AT":"THIS TIME. TRY AGAIN LATER...."8#C#P(1)XI#[#(I$)61520f#X16#(I$,(I$)4)W$(X)1530#(I$,(I$)5)W$(X)1530##:"SORRY, SIR, I DON'T THINK THAT WEAPON ISIN THIS CASE !":c$R(P(1),0)0ĺ:(I$)3)P$(X)1400"Zo"d:"SORRY, I CANNOT GO THERE, SIR. IT DOES NOT SEEM TO BE IN SHERLOCK'S HOME !"w"n:"xXP(1)ġ::"SIR, WE SEEM TO BE IN THE ";P$(X):"ALREADY !":860"X61450"1760:R414502#:"SORRY, THE ";P$(6);" S$(I);" HAS A PERFECT ALIBI,":"SIR !"::A!C(2)P(2)1210S!C(3)I1230h!C(1)P(1)1190r!1140! C(3)I1230!C(1)P(1)1190!C(2)P(2)1210!(1140!2(I$)41380!<X110!F(I$,(I$)2)P$(X)1400"P(I$,H I$"V"ĉ::"HAVE A GOOD VACATION, SIR....HURRY BACK SOON !":1920S :300f :1760:X$(R) "THE ";P$(P(1));" WAS NOT THE CORRECT":"ROOM !":: :1760:X$(R) W$(P(2));" IS THE WRONG WEAPON, SIR !":: :1760:X$(R),!C(3)I1230t:"CONGRATULATIONS, SIR....YOU SOLVED THE CASE (PERSONALLY, SIR, I NEVER DOUBTED YOUR VERACITY FOR A MINUTE.)."~:"WOULD YOU LIKE ANOTHER ASSIGNMENT, OR ARE YOU DUE FOR A VACATION (A/V): ";I$:I$"A"I$"V"1160 I$W$(P(2));".";$:"NOW, THE QUESTION IS 'WHO DID IT' ?":Y.X17:X;") ";S$(X)::8"WHAT IS THE CULPRIT'S NUMBER (1-7): ";=I$:I(I$):I1I71085B:1760:R31090LR1110,1250,1290V:C(1)P(1)1190`C(2)P(2)1210jP(2)0ĺ"SORRY, BUT YOU AREN'T CARRYING A MURDER WEAPON....REMEMBER THE RULES, SIR !"::e:Q15:Z(Z3)2Q1101760:RQ11020V$(R):"ACCORDING TO YOU, THE MURDER OF POOR":N$;" WAS DONE IN THE" P$(P(1));" WITH THE ";REPORT, SIR, THAT YOU HAVE JOINED ";N$;" IN THAT"_"GREAT PRECINCT HOUSE IN THE SKY.":"CHALK UP ANOTHER MURDER TO ";S$(C(3));".":"BY THE WAY, THE MURDER WEAPON WAS THE":W$(C(2));" AND IT WAS DONE IN THE":P$(C(1));".":1900],10HZ1ULR1810\4f"COMMAND ? ";I$JpI$"*"İ990:930gz(I$,2)"GO"İ1330:930(I$,4)"TAKE"İ1470:930(I$,4)"DROP"İ1650:930:"SORRY, SIR, BUT I DON'T UNDERSTAND WHAT YOU MEAN BY ";I$5::"SORRY TO 1760:C(1)R1760:R6730)C(2)R<1760:R7750oC(3)R:UL50:1760:P(1)R:P(2)0:1760:ULULRX110:R(X,0)0:F(X)0: X161760:R6790 F(R)1790*TR:F(R)141760:R(R,R(R,0)1)T:R(R,0)R(R,0)1>::37NEXT VICTIM.":" BY THE WAY, EVERY GOOD DETECTIVE HAS A LITTLE NOTEBOOK HE CARRIES AROUND WITHHIM. IT MIGHT BE A GOOD IDEA IF YOU DID TOO."23:"REVIEW THE INSTRUCTIONS AGAIN (Y/N): ";CH$:CH$"Y"CH$"N"710CH$"Y"300 ND 'DROP ' AND THE NAME OF THE WEAPON."1 " AS A FINAL NOTE, THE KILLER HAS AN AVERSION TO GETTING CAUGHT. AS TIME GOES ON, YOU MAY GET KILLED BY THE KILLER, SO TRY TO DISCOVER WHO DID THE DASTARDLY DEED BEFORE YOU BECOME THE WEAPONS AND MOVE THEM FROM ROOM TO ROOM BY TYPING 'TAKE ' AND THE NAME OF THE WEAPON. FOR EXAMPLE, TOPICK UP THE GUN, THE COMMAND WOULD BE 'TAKE GUN'."1780+" YOU CAN ONLY CARRY ONE WEAPON AT A TIME. YOU CAN DROP ANY WEAPON WITH THE COMMAM YOU THINK THE MURDER HAPPENED IN. FOR"v"EXAMPLE, IF YOU THINK THE MURDER TOOK PLACE IN THE DEN, YOU MUST ANNOUNCE IT IN THE DEN. ALSO, YOU MUST BE CARRYING THE MURDER WEAPON YOU THINK WAS USED TO DO THE DIRTY DEED.":" YOU MAY PICK UP "."b:" WHEN YOU WISH TO VENTURE A GUESS AS TOWHO DID IT, ENTER '*' AS YOUR COMMAND. EVERYONE WILL THEN COME TO THE ROOM YOU ARE IN FOR THE BRILLIANT ANNOUNCEMENT."+l:" SOME OF THE COMPLICATIONS ARE THAT YOUMUST ANNOUNCE YOUR THEORY IN THE ROOE")"OLIVE PITTS";20);"FRUIT GROWER"L&"HEAVES";20);"FAMILY BUTLER"j0"SPOT";20);"FAMILY DOG"::" ALL OF THE ABOVE HAD A MOTIVE TO KILL"DN$;"."N1780X" YOUR JOB IS TO GO FROM ROOM TO ROOM AND DECIDE WHO KILLED POOR ";F$; LAY SCATTERED THROUGHOUT THE HOUSE. THE POSSIBLE SUSPECTS (AND THEIR OCCUPATIONS) ARE:":"MR. MISER";20);"MILLIONAIRE""MRS. SIPPY";20);"HOUSEWIFE""CISSI SIPPY";20);"HOUSEWIFE'S DAUGHTER""COL. KENTUCKY";20);"RESTAURANT MAGNATSE ARE AS FOLLOWS:"6X192:P$(X);20);P$(X1)::" YOU MAY ENTER ANY ROOM IN THE HOUSE":"BY TYPING 'GO ' AND THEN THE NAME OF":"THE ROOM."1780" THE MURDER WEAPONS ARE:":X152:W$(X);20);W$(X1):]:" THESE ITEMSQ1$Q$"POOR ":(N$)2239Q$Q1$:420<Q$Q$"HAPLESS "Q$;"VICTIM, ";N$;",":"REFUSES TO ANSWER ANY OF THE QUESTIONS POSED BY THE POLICE, SO YOU HAVE NOTHINGMORE TO GO ON EXCEPT YOUR WIT, COURAGE,""AND CUNNING."::" THE ROOMS IN THE HOUCRIME TOOK PLACE SOMEWHERE IN AN OLD DESERTED MANSION KNOWN ONLY AS ";(34);"SHER-"h"LOCK'S HOME";(34);" (ONCE OWNED BY THE LATE"r"JOHN SPENCER SHERLOCK III, RICH AND FAMOUS MYSTERY AUTHOR)."|1780Q$" THE ":(N$)1939420'"BAFFLED BY THIS COMPUTER-ASSISTED"J"CRIME, YOU, AS THE WORLD'S FOREMOST":"AUTHORITY ON COMPUTER CRIME (WHAT WE IN":"THE TRADE REFER TO AS 'C.C.'), HAVE"T"BEEN CALLED IN TO DISCOVER THE ANSWER."V^:" THE ONLY ESTABLISHED FACT IS THAT THE :7);"WELCOME TO SHERLOCK'S HOME":6" THE OBJECT OF THE GAME IS TO GUESS":(34);"WHO DUNNIT";(34);". THE COMPUTER WILL CHOOSE"$@"THE KILLER, WHERE THE CRIME WAS":"COMMITTED, AND THE MURDER WEAPON.":"BECAUSE THE LOCAL POLICE ARE COMPLETELY":ITE..."" X$(2)"WRONG AGAIN..."@ X$(3)"ARE YOU KIDDING ?"U X$(4)"WRONGO !"n X$(5)"SINCE WHEN ?" X$(6)"THINK AGAIN..." X$(7)"GOOD TRY, BUT..." X$(8)"THINK SO, HUH ?" X$(9)"I DOUBT IT..." "X$(10)"BAD JUDGEMENT..."$,NING OUT.....DO YOU HAVE THE ANSWER ?"n V$(9)"GETTING CLOSE, HUH ? COULD BE DANGEROUSAROUND HERE SOON..." V$(10)"THE SURGEON GENERAL HAS WARNED THAT TOO MANY THEORIES WITH THE KILLER NEARBY COULD BE HAZARDOUS TO YOUR HEALTH." X$(1)"NOT QUTING OUR TIME....."H V$(5)"OH, NO.....NOT ANOTHER THEORY...... " V$(6)"THE KILLER IS GETTING CLOSER....I HOPE YOU HAVE THE ANSWER...." V$(7)"SOMEONE IN THIS ROOM MAY KILL YOU IF YOUDON'T HAVE THE CORRECT ANSWER..."& V$(8)"TIME IS RUNN$F$(R):F$N$:1760:N$N$" "L$(R)1 ZR(10,6)t dV$(1)"O.K. EVERYONE IS HERE....WHAT'S THE BIG ANNOUNCEMENT ?" nV$(2)"LAY IT ON US, OH EXALTED DETECTIVE......" xV$(3)"THINK YOU GOT THE ANSWER ? WE'LL SEE..." V$(4)"I HOPE YOU ARE NOT WASEDROOM,ATTIC,GUEST ROOM,BASEMENTN (GUN,WRENCH,ROPE,CANDLESTICK,KNIFE,POISON 2MR. MISER,MRS. SIPPY,CISSI SIPPY,COL. KENTUCKY,OLIVE PITTS,HEAVES,SPOT <X110:F$(X)::X110:L$(X): FX110:P$(X)::X16:W$(X)::X17:S$(X):$ P1760:\  SHERLOCK'S HOMEe FRED,JOHN,CARL,ZEKE,ARCHIBALD,FRANCINE,AGATHA,WILLIAM,MORTIMER,FANNYSMITH,ABERCROMBIE,HARKENFARKER,SNERD,WHOSITS,SPITZINPOT,PEEZINPEPPER,BELEAKE,GYTOPE,PEON LIVING ROOM,DEN,DINING ROOM,STUDY,KITCHEN,WATERCLOSET,B          NU"OTHER GAME (Y/N): ";1A$:A$"Y"A$"N"470EA$:A$"N"540O:30f34,0:35,22:1:1Q13:ZQ10:R17:(Q1)7R:1:868(Z(F(Q,R)2)):Y1F(Q,R):"*";::R7ĖZ::Q;:::35,24:34,21:24:1:::(4)"RUN ME)F(Q,R):F(Q,R)0:Q3Q%500MM1:M128ĺ"SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN 128 MOVES.":540Q12:R17:F(Q,R)0210:34,0::8:"YOU HAVE PERFORMED THE TASK IN ";M;" MOVES":"WOULD YOU LIKE ANR CHOICE.":210: 6"PLACE DISK ON WHICH NEEDLE (1-3): ";W @S$:N(S$):N1N3320^ JNz TQ17:F(N,Q)0Ă:360 ^DF(N,Q)ĺ"SORRY, BUT YOU CAN'T MAKE THAT MOVE!":210 hU17:F(N,U)0ĂU rUU1 |Q13:QN400F(Q,R)DF(N,U(D1)2)0((D1)2)S290R "YOU MAY ONLY TYPE ";:J1S:J21;:JSĺ", ";_ ::210 "Q13:R17:F(Q,R)DĂ::"SORRY, BUT THAT DISK IS NOT BEING USED IN THIS GAME.":210 ,F(Q,R1)0ĺ"THAT DISK IS BELOW ANOTHER ONE. MAKE":"ANOTHE$ "PRESS TO BEGIN...";; A$:A$(13)170A h Y7:QS11:F(1,Y)Q21:YY1:q 500 "WHICH DISK WOULD YOU LIKE TO MOVE: "; D0 S$:S$(8)ĺ:210 DD10(S$):(S$)0230 D1ĺD;:230 (S$) (N IDENTIFY A DISK BY":"THE NUMBER OF ASTERISKS WITH WHICH IT":"IS MADE.": "THE NEEDLES ARE NUMBERED FROM LEFT TO":"RIGHT, 1 TO 3. WE WILL START WITH THE":"DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE":"THEM TO NEEDLE 3." :"GOOD LUCK!!!!": MANY DISKS (MAXIMUM OF 7): ";; PS$:S(S$):S1S780J ZS:::M0 d:"IN THIS GAME, WE WILL REFER TO DISKS BY":"A NUMERICAL CODE.": n"3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE, 7 THE NEXT, AND SO ON, "L x"UP TO 15. YOU CA TOWERSF(3,7)AQ13:R17:F(Q,R)0::::e(9);"TOWERS OF HANOI PUZZLE":2"YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT TOWER, ONE AT A TIME,"<"NEVER PUTTING A LARGER DISK ON A":"SMALLER ONE.": F"HOW         D0:0,30Q:0,30Q1:,30Q:0,30Q1:9)(M9M13)530Z&Y1X:MM(Y)530a0Yq:M(X)M:X:D0:0,30Q:0,30Q1:C10C14C13"C13C15)CAH,H3Q:H,H3Q1PZ1100:g(16287)128362rG(X)CHH5:X:X14:M(X)0M((2)15):M13530M0(M4M9)(M9M13)530&Y1X:MM(Y)5300Y:M(X)M:X:5,8Q:5,8Q1& J10,13Q:10,13Q1> T15,18Q:15,18Q1D ^V hX14:G(X)0s jCH(16384):CH128370 l16368,0:CH155ġ:270 r0 |H,H3Q:H,H3Q1 Z1100: C((0)17) C1C1 C3C7C4 C11C6C90Ġ14:X1RW:HH3:H,Q:> RR0Ġ11:X1RR:HH3:H,Q:L RR4120 "CONGRATULATIONS, YOU DID IT IN ";T:"TURNS!": 23:"PRESS TO CONTINUE..."; CH$:CH$(13)280 ":::(4)"RUN MENU" ,10 60,3Q:0,3Q1 @ ENDS THE":"GAME."# d520:255:2 nQ4:T0:F xQQ5:Q37Q1T H0:TT1g 580:300:360u RW0:RR0 X14:F(X)0 G(X)M(X)RRRR1:F(X)1 X14:Y14 G(Y)M(X)YXF(X)0RWRW1:F(X)1 : H17 RWNE THAT WAS A CORRECT COLOR,":"BUT IN THE WRONG POSITION, YOU WILL SEE":"A SMALL TURQUOISE DOT, AND FOR EVERY" Z"ONE THAT WAS THE CORRECT COLOR AND ALSO":"IN THE CORRECT POSITION, YOU WILL SEE A":"SMALL PINK DOT." _:"PRESSING AT ANY TIMECOLOR YOUWISH APPEARS, PRESS THE PADDLE BUTTON," <"AND YOU CAN CHANGE THE NEXT SQUARE.":"WHEN ALL FOUR SQUARES ARE COMPLETED,":"YOU WILL SEE HOW MANY SQUARES WERE THE" F"RIGHT COLOR, AND IF THEY WERE IN THE":"RIGHT POSITION.":p P"FOR EVERY O MASTERMIND1009:15);"MASTERMIND":("THE OBJECT OF MASTERMIND IS TO GUESS THECORRECT COLOR COMBINATION OF FOUR"0 2"SQUARES. THE COMPUTER WILL ALLOW YOU TOCHANGE THE COLOR OF EACH POSITION BY USEOF THE GAME PADDLES. WHEN THE !!!   . L. WYATT **( ** ALL COMMERCIAL **D ** RIGHTS RESERVED ** H$:CH$"Y"CH$"N"5001CH$"Y"ė:C0:190j:8:10:"THANX FOR THE GAME !!":1:1:"RUN MENU"Z$"":X110:Z$Z$A$(X)" "::36,20(Z$)2&X1(Z$):(Z$,X,1);:(Z$,X,1)" "Ĺ0,(1)8050:1,20:7680:::: Y A  X1300:2 530:9:1:868:10:550C 20:1:868 C13ĺ"VERY GOOD. YOU GUESSED IT IN ONLY ";C:"GUESSES !!!":490 "GOOD TRY...BUT YOU COULD DO BETTER.":"IT TOOK YOU ";C;" GUESSES THIS TIME." :"TRY AGAIN (Y/N): ";C ,N((1)11):N1N10300< 6A$(N)"X"A$(N)"O":410J @A$(N)"X"W JMN300` T410s ^A$(N)"O"390 hA$(N)"O" rN((1)11):N1N10370 |A$(N)"X"A$(N)"O":410 A$(N)"X" MN370 CC1 X110:A$(X)"O"210:: X110:A$(X)"X":> 8:10:"1 2 3 4 5 6 7 8 9 0"G 530k 9:1:868:X1300::10:550 20:"TO CHANGE: "; CH$:CH$(27)ė::490 (CH$)48(CH$)57240 N(CH$):N0N10 :MN A$(N)"O"320 "A$(N)"O""CHANGED. HOWEVER, THE GODS MAY NOT":550` Z$"SMILE GRACIOUSLY UPON YOUR EFFORTS, AND":550 Z$"THE POSITIONS MAY CHANGE ON THEIR OWN.":550 Z$"...GOOD LUCK !":20:550 Z$"P.S.: TO QUIT THE GAME, PRESS .":22:550 255:X13000$"X X X X X X X X X X":6:5409 PZ$"TO THIS:":8:540_ ZZ$"O O O O O O O O O O":10:540 dZ$"IN AS FEW MOVES AS POSSIBLE.":12:540 nZ$"TO CHANGE A POSITION, PRESS THE NUMBER":14:550 xZ$"OF THAT POSITION. IT WILL THEN BE":550* Z$  :768,166:769,1:770,164:771,0:772,173:773,48:774,192:775,136:776,208:777,253:778,202:779,208:780,245:781,96175(Z$"THE OBJECT OF THE ANCIENT GAME OF":2:5402Z$"FLIP FLOP":540<Z$"IS TO CHANGE THIS:":540 FZ! ! ! !!!!!!LIP FLOP,MASTERMIND,TOWERS,SHERLOCK'S HOME,ATTACK OF THE ZARGONS,PHASER PRACTICEo ACEY-DUCEY,BIG GOVERNMENT  TIC-TAC-TOE,QUBIC,DEPTH CHARGE  SHAPE TABLE GENERATOR  OPENING CEREMONIES,MASTER CATALOG EXIT PROGRAMSAMS  180 :70@ 21:"CHOICE OR FOR MORE: ";CH$Q CH$(13)ım CH(CH$):CH1CHNPıy 34,0: 21:1:868 CHNPĉ::"HAVE A NICE DAY!":260 A$"NOW LOADING "P$(CH):20(A$)2);A$ "RUN";P$(CH) P F  ::NP15:G11:M15+P$(NP)@(X1NP:P$(X):Z2:14);"APPLE GAMES"j<20:34,3:F"GAME PROGRAMS:"P:ZX1G:X10ĺ" ";dX;") ";P$(X)nx180:"MISCELLANEOUS:"::XG1M:X;") ";P$(X)!!! ! 6X12,Y34X9,Y32X7,Y29X6,Y28X6,Y24ZTX6,Y24X9,Y19X12,Y17X16,Y15`^24X15,Y26X15,Y27X17,Y28X40,Y28X44,Y30X47,Y32X49,Y35X50,Y38X50,Y40X49,Y43X47,Y46/JX47,Y46X44,Y48X40,Y50X16,Y50X11,Y48X10,Y46X10,Y44X11,Y42X16,Y41X38,Y41X40,Y39X40,Y38X38,Y36X16,Y316,Y32X19,Y30X27,Y36X40,Y15X50,Y15X50,Y50X40,Y50X40,Y34X32,Y50X23,Y50X15,Y34X15,Y50X5,Y50X5,Y15X15,Y15X28,Y36p@X16,Y15X39,Y15X44,Y16X45,Y18X45,Y20X44,Y22X39,Y24X17,Y6X9,Y64X10,Y62X15,Y60X36,Y60X38,Y59X40,Y56X40,Y50X16,Y50X12,Y48X12,Y48X9,Y46X7,Y43X5,Y39X5,Y31X7,Y27X9,Y24X12,Y22X16,Y20X19,Y30X40,Y30X40,Y40X19,Y40X16,Y38X15,Y36X15,Y34X25X6,Y22X11,Y17X13,Y16X16,Y15(X19,Y23X38,Y23X40,Y25X40,Y27X23,Y29X15,Y29X15,Y27X16,Y25X17,Y24X19,Y232ZxX16,Y20X50,Y20X50,Y59X48,Y63X46,Y66X43,Y68X39,Y70X15,Y70X10,Y68X9,Y616,Y15X39,Y15X44,Y17X49,Y22X50,Y25X50,Y28X49,Y31X47,Y33X44,Y34X39,Y35X15,Y35X15,Y37X16,Y39X19,Y40X40,Y40X45,Y42X46,Y44X46,Y46X45,Y48X40,Y50*X40,Y50X16,Y50X13,Y49X6,Y42X5,Y40X5,Y50,Y31X50,Y39X48,Y43X46,Y46X43,Y48X39,Y50X15,Y50X15,Y70X5,Y70X5,Y20VX15,Y30X36,Y30X39,Y32X40,Y34X40,Y36X39,Y38X36,Y40X15,Y40X15,Y30`X5,Y5X15,Y5X15,Y50X5,Y50X5,Y5:XY28X40,Y28X39,Y25X38,Y24X36,Y23X14,Y23c X14,Y23X11,Y21X11,Y17X14,Y15 X18,Y34X40,Y34X40,Y40X18,Y40X16,Y39X15,Y37X15,Y36X16,Y35X18,Y34 `LX5,Y20X39,Y20X43,Y22X46,Y24X48,Y27X279,X:420::3 17:XABST:1X,167:420::W P(16384):16368,0:P155ıh "RUN MENU"n 6 X14,Y15X39,Y15X43,Y17X48,Y21X50,Y26X50,Y50X14,Y50X10,Y48X8,Y46X6,Y43X5,Y39X5,Y37X6,Y34X10,Y30X14,:X16:Y83:1400:8 JX65:Y85:1000:X66:Y86:1000:` TX115:Y85:1500:X116:Y86:1500: ^X165:Y85:1300:X166:Y86:1300: hX215:Y85:1600:X216:Y86:1600: rQ(1)10:Q5STST |ST(ST)CA:AB:BC  28:XABST:2:B160:ST1:370 400" 70( N X30:Y15:1000:X31:Y16:1000:t X80:Y12:1100:X81:Y13:1100: "X130:Y12:1100:X131:Y13:1100: ,X180:Y15:1200:X181:Y16:1200: 6X195:Y15:1300:X196:Y16:1300: @X15:Y82:1400 dX110:A(X)0:2 nZ((1)15):Z1Z10110C xA(Z)0110S C:Z5ĒC1\ 420 A(Z)1:Z270,280,290,300,310,320,330,340,350,360 W110:A(W)0110 0 A0:B90:ST1:370 400 A0:B279:ST1:370 410 A0a  OPENING CEREMONIES5"BLOAD ONE SHPS"I233,78:232,32O(y2:22:10);"PRESS FOR MENU":1<3:X0169:0,X279,X:FC((1)8):C1((1)8)PC10C13C14C17C0C3C4C7100ZC13CC3C170" " " " " """"""""" H(175)(176)256:H77A(4)"RUN OPENING CEREMONIES" X췩뷩   %췭,T,W,R,P`""