8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ  _s5!tDRAGON.MAZERs5!s5DRAGON.MOVERs5!@s5'STARTUP =!s6Ms6s6%POKERs5!s5)HORSERACE s5!s5DRAGONHIGHZs5t'*GAMMON.2.X s5!s5)MICRO.MANs5Ȫ%TESTus5t.DRAGON.DUNGEONȪ(ڪ)+ANIMALSFILE٪'P٪''ANIMALS O!O-BOOLEAN.BRAINQ"s5!s5/SUPER.STAR.TREK_#Bs5s5DOFD  "MM)s5!s5GAME.DISK.I' &PRODOS:! 2,BASIC.SYSTEM'(o! o/DUNGEON.OF.DANG:!ڪ&$MENUTUP=s5٪',HORSE.RACE.3A."SCORES >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!' ****************************** 56 NOTRACE : CLEAR : GOSUB 57: GOTO 80 57 ON (J1 = 1) GOTO 58: DIM Q(15),Q$(15),QQ(15),QQ$(15) 58 HOME 59 PRINT CHR$ (4)"OPEN SCORES": PRINT CHR$ (4)"READ SCORES" 60 FOR C = 1 TO 15: INPUT Q(C): INPUT Q$(C): NEXT C 61 5 CLEAR 9 REM *********************** 10 REM ** DUNGEON OF DANGER ** 20 REM ** ------- -- ------ ** 30 REM ************************************************* 40 REM ** TYPED IN BY MIKE LOWERY -- 9/5/84 - 9/13/84 ** 50 REM ******************* &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRESUN ANIMALS") pD$(4):D$;"RUN POKER"I zD$(4):D$;"RUN HORSERACE"b D$(4):D$;"RUN MM"l 2191 (4);"RUN DRAGON.DUNGEON" (4);"BRUN GAMMON.2.X" (4);"RUN MICRO.MAN"S$"E"2160 S$"F"21700 S$"G"2180A S$"H"2190R S$"I"2192c S$"J"2193u S$"K"ī2000 G2000 HD$(4):D$;"RUN SUPER.STAR.TREK" RD$(4):D$;"RUN DUNGEON.OF.DANG" \D$(4):D$;"RUN BOOLEAN.BRAIN" fD$(4):D$;"R---80 COLUMNS":" [F] HORSERACE---80 COLUMNS" 9" [G] MARKET MADNESS":" [H] DRAGON DUNGEON":" [I] FASTGAMMON":" [J] MICRO-MAN"  "WHICH ONE? ";:S$:S$:S$""2000 S$"A"2120 S$"B"2130 S$"C"2140 S$"D"2150 <>?B:A$:E ::::"GAME DISK: CREATED BY THE 'DISK CRASHER'":U A13::A $"SELECT ONE OF THE FOLLOWING GAMES:" .::" [A] SUPER STAR TREK---80 COLUMNS"0 8" [B] DUNGEON OF DANGER":" [C] BOOLEAN BRAIN":" [D] ANIMALS":" [E] POKER ********************7 * GAME DISK *R * BY MIKE LOWERY *m *'THE DISK CRASHER'* * 1984 * ********************(21) :0:::1040 CENTER STRING A$B(20((A$)2)):B0B1 ******** 8::57:80F 9(J11)58:Q(15),Q$(15),QQ(15),QQ$(15)L :v ;(4)"OPEN SCORES":(4)"READ SCORES" <C115:Q(C):Q$(C):C =(4)"CLOSE SCORES" >:15::"HIGH SCORES":::" 15 BEST SCORES SO FAR": ?C115:SP$""! @& ***********************D ** DUNGEON OF DANGER **b ** ------- -- ------ ** *************************************************( ** TYPED IN BY MIKE LOWERY -- 9/5/84 - 9/13/84 ** 2 *****************************************L5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E( I(71),P(8),J(108):XHVWLKM0tF(8),G(8),BH(20),E(8),BW(20),PN$(76),WP$(3),CSH(8),BP(20),BD(20):CD0FF(8),LN(8),FS$(246),LS$(246),NM$(13):WP$"WPS":1000,K13:310-TT(X7).TI(7TT)/TYXTI:XTY:Y 6H(J((L)1))130,X:8653X:X6:P(H)X:132,6:900:H:410B300:5000@B01900:SL1000:V0:M13:KE(M):TMG(K):H1B:BH(H)K1620JH:SLSLTM:M:V01900:K13000:K:1900TXBW(H):XM1610:WBD(H)10:DTMX:CSLTMD:LD:VW^LLD:LC1TY:6G(TM60);":";:1091:TM10;:1092:TM:650RL(16384)127İ3000:MvQSLH1110:M18:F(M)G(M):M}VH^970:34,0:936:48,255:785`:16297,0:132,6:133,8:48,255 tH18:132,142:X02728:128,H201:129,(X7):301:(971)3İ9000980KRC110:B0:TM120:SL((15)1):800:6008H115:L0:M18:X1G(M)12:LL1:J(L)M:X,MBM18:M1İ510:TMTM1:37):3:1095CTT(TM60):TI(60TT):TYTMTI:TMTY:DTT(TM10):TI(10TT):TYTMTI:TMIGHTBATTLESAINT SKY WIND DOLL "LS$(85)"MUSIC STORM DREAM CAT CHOICELOVE BULLETHAWK FLASH THREATBEAUTYGIRL LADY JOKER "LS$(169)"STREAKTURKEYDRIVELAD JEWEL WISH EXCUSEPRIZE ONE BANDITJET FELLA DEVIL ":X172:PN$(X)" ":X:AN"hFS$(85)" ROYAL HIGH BOLDLITTLE HOTPURPLE MAGICJUST A ANGRYDARINGTROJANDRAGON SHY FANCY"FS$(169)" FIRSTPHONEY DUSTY SASSY EASYBRIGHT MY FINE FUNNY GRAND SUGAR DANDY JOY"%LS$"STAR BOY KING PRINCEDANCERANSWERSPIRITROCKETKN15:950:C70:950:D30:950:D110:950iK1978:C89:950:C70:D30:950:C89:D120:950:C119:979C119:950:D35:950:D140:950:C89D255:950:K:FS$" WHITE HAPPY TALL DARK PROUD PEARLFAMOUS TRUENATIVE SONIC SUNNYSILVER GREATINDI:L((8)1):G(L)G(L)K1:K74K18:G(K)39800@5K:m128,H202:129,(X7):301:130,X:865132,688H:865132,6:0,C:1,D:2M110:M:K01:C119:D60:950:C89:950:C70:950(C59:D120:950:D35:950:D1;"-";D;" ":P EG(K):CE:E500C1000E:D1000C:C((C4D2)D):D4:720^ TT(C2)m TI(2TT) TYCTI:CTY: D1740:C9730:701:C1740 C(C1)2:DD2:720 E500750:EC:CD:DE  K18:G(K)5:K*K29894S PLAYERS CASH"2 j3300:X18:4000:XL l7:1):K18:K;" ";~ mC((41)61):D1K:CFF(D)621:D:FF(K)C sC((41)61):D1K:CFF(D)627:D:FF(K)C:HK:2000 uNM$;:25):K::K vM18:650:M: M25:17):KM:700:C:LL1:451:J(L)E(M1):M,K:G K118:V(J((L)1)):G(V)G(V)1} X((L)1):VJ(X):XG(V):X12530:G(V)X1:K: X5000 ]13):"APPLE RACE TRACK"::"RACE ";RC;" ";((3)5);" FURLONGS";:27) b"POST TIME": g"HORSES ODD2000' ^H;" ";NM$:K:L12200:L:p L0:K18:X(F(K)5)10):V(LX):L(L1):XLV:J(X)K:X:LV:K K18:E(K)0 X(J((L)1)):M1K:E(M)X450:M:E(K)X:K:L0:460 TT(M8) TI(8TT) TYMTI:MTY: K18:M0K7@BCDEFGHIJKLMNO:X(P(H)):48,0:V(H202):X258340:W(H868):128,V:129,(X7):301:130,X:865i B132,W:865 J132,6:48,255:X(X4):128,V:129,(X7):301:130,X:865 L132,W:865 O132,6:P(H)(X):310 TX300310:E(K)(H):48,0:900:P(H)301:640:VVW:1630LhLLD:W11650:W(W1)2:D11650:D((D1)2):1630hrXBP(H):CSH(X)CSH(X)V"HORSE ";K;" PAYS";:7100:"TO ";:7000:::1610lRC::"*** FINAL RESULTS ***":X18:7000:V01950:VCSH(X):7100::X?MFF(H):NM$FS$(M,M5):NM$(7)" ":MFF(H):NM$(8)LS$(M,M5)tNM$(1,1)" "ı:NM$NM$(2,13):NM$(13)" ":2010 16368,0:34,21:24:1):"PLAYER? ";:6000 C(V1)91:PN$(C,C)" "3080:X18:NM$PN$(1,9) PN$PN$(10):PN$(64)NM$:XV3075)26157:I(26)13869:I(27)10250:I(28)3290a$.%I(29)9252:I(30)10047:I(31)16191:I(32)11822$/%I(33)13870:I(34)7166:I(35)7$0%I(36)6939:I(37)9251:I(38)36:I(39)0$1%I(40)15131:I(41)3111:I(42)7180:I(43)39 %2%I(44)6939:I(45)8551:I(46)726%I(5)15917:I(6)14143:I(7)11565:I(8)9253_#)%I(9)10023:I(10)9511:I(11)11829:I(12)25892#*%I(13)11820:I(14)2274:I(15)3702:I(16)9509#+%I(17)21467:I(18)11946:I(19)10046:I(20)15932#,%I(21)16158:I(22)11575:I(23)16301:I(24)11839.$-%I(2969,76:970,171:971,3-"Z# TONES ROUTINEL"[#2,173:3,48:4,192:5,136h"\#6,208:7,4:8,198:9,1"]#10,240:11,8:12,202:13,208:14,246"^#15,166:16,0:17,76:18,2:19,0:20,96"% SET SHAPES"'%I(1)11296:I(2)9996:I(3)9276:I(4)11532-#(,208.!Q#944,186:945,230:946,131:947,208V!R#948,176:949,230:950,128:951,208~!S#952,242:953,230:954,130:955,165!T#956,130:957,73:958,7:959,208!U#960,234:961,133:962,130:963,230!V#964,129:965,208:966,228:967,198"W#968,128:916,72:917,41:918,3:919,170G K#920,240:921,45:922,202:923,240m L#924,28:925,202:926,240:927,21 M#928,166:929,130:930,208:931,4 N#932,162:933,7:934,198:935,129 O#936,202:937,134:938,130:939,104!P#940,74:941,74:942,74:943,130:889,240:890,9:891,10BD#892,144:893,2:894,105:895,1gE#896,202:897,76:898,121:899,3F#900,164:901,129:902,166:903,48G#904,240:905,5:906,81:907,38H#908,76:909,145:910,3:911,17I#912,38:913,145:914,38:915,104 J#861,127:862,133:863,38?=#864,96:865,160:866,0:867,132g>#868,131:869,164:870,131:871,177?#872,132:873,240:874,165:875,72@#876,41:877,4:878,240:879,35A#880,32:881,46:882,3:883,169B#884,1:885,73:886,0:887,166C#8883,39:834,133:835,39>6#836,165:837,128:838,41:839,192c7#840,133:841,38:842,74:843,748#844,5:845,38:846,133:847,389#848,165:849,128:850,74:851,74:#852,74:853,41:854,1:855,5;#856,38:857,74:858,144:859,2<#860,105:05,230:806,38:807,208?/#808,250:809,230:810,39:811,76d0#812,25:813,3:814,165:815,1281#816,41:817,7:818,9:819,82#820,10:821,10:822,133:823,393#824,165:825,128:826,74:827,744#828,74:829,74:830,41:831,35#832,5:83" $";(V10);".";:7011:V;"0 ";:9(# LOAD HI RES^)#784,96:785,169:786,0:787,133*#788,38:789,9:790,32:791,133+#792,39:793,165:794,39:795,41,#796,64:797,208:798,241:799,160-#800,0:801,165:802,48:803,145.#804,38:8W156030:V86090:V#:MV396060:V356050:V326090:V2aWP$(V,V):6020oV3:6040}V1:6040:::W83300:3270XV(X1)91:PN$(V,V)" "7010:PN$(V,V8);:bV0:cTT(V10):TI(10TT):TYVTI:VTY:%XBP(W)40907TT(V7):TI(7TT):TYVTI:VTY:`4021:VV1:2X6:8V)51:BH(W);|CBW(W):WP$(C,C);BD(W)W:16298,0:16303,0:34,0:936:pW(36)1:16368,0zV(16384):V1286010:W):VV176:16368,0:V16090:V03190* V9993190:WCSH(X)V10M W03190:CSH(X)W:BD(C)V:BCW 4000 24:34,21:10):"HIT ANY KEY TO BET":52X:27):7000:V0ı:V(CSH(X)10):WV:W1W1W9994015:WW10:" ";:4010"$";VB0ı:V0:W1B:5:"NAME? ",PN$(64)W W(PN$)1:W723075:DW72:PN$(D)" ":D:PN$(64)" "3075n CSH(V)(11RC)200u X PN$(C,C)" "3300:XV "HORSE? ";:6000:B203300:CB1:BH(C)V:BP(C)XN "WIN, PLACE, OR SHOW? ";:6000:BW(C)V v "BET",V:7:I(47)39<%3%I(48)8987:I(49)15396:I(50)13843:I(51)45m%4%I(52)15323:I(53)15436:I(54)11303:I(55)37%5%I(56)15323:I(57)15468:I(58)3111:I(59)4%6%I(60)7131:I(61)3172:I(62)10044:I(63)0&7%I(64)9179:I(65)7267:I(66)5388:I(67)1558:I(68)0d *********************<n * THE BOOLEAN BRAIN *Yx *********************q BY W.K. BALTHROP AND THE HCM STAFF VERSION 4.3.1 APPLE II SERIES APPLESOFT24576CO(1,14),CA(14),LO(2,9),RM(10,4),L(3)K sector!"b:W1W0:OGGO:BPPB:1130:I1200:49234,0:49237,0:49236,0:49235,0:K(16336)i$I."There is no escape from.....'CRASH'!":"Want to play again ( Y)es N)o )";8K$:K$"Y"K$"N"1080BK$"Y"Ĭ L::D$(4):D$;"RUN HELth":11:N$(R):CT3:LT2:RT1:970:T"South":11:N$(R):CT4:LT1:RT2:970:nRM(R,CT)11ĒOG:990vB11280:RM(R,LT)11ĒOG:1010B11270:RM(R,RT)11ĒOG:1030B11290: :49235,0:"You are zapped by a bad diskHowever, the computer is damaged due to data loss.":920e"You repair the computer and escape!""Your score= ";SC;". Play again? (Y)es N)o)";:1080"East":11:N$(R):CT1:LT3:RT4:970:"West":11:N$(R):CT2:LT4:RT3:970:&"NorI)10:R10270|p230,32:49236,0:49235,0::1180:"Congratulations -- you have reached the Central Processing Unit!"zH12:I070681024:J82448638128:K015:IJK,L(((1)3)):M(16336)::(7);::::SC(NDSCND10000):SC600ĺ"4350@>I8:T(8)1430,1440:1450:T(8)0:T(9)2T(6)0850IH350RI9:T(9)1430,1440:1450:DE11000:DE:OMR:RRM(R,DI):DI1DI3RM(RM(OM,DI),DI1)RM(RM(OM,DI),DI1)10:870\RM(RM(OM,DI),DI1)RM(RM(OM,DI),DI1)10fRM(OM,DI)RM(OM,D 350CI4:T(4)1430,1440:1450:T(4)0:T(7)2T(3)0810L350I5:T(5)1430,1440:1450:T(5)0:T(8)2T(7)0830 350I6:T(6)1430,1440:1450:T(6)0:T(9)2T(8)0850 350*I7:T(7)1430,1440:1450:T(8)2T(5)0830T(5)2770350/GT(10)1:GT(9)1770?T(5)2770H350I1:T(1)1430,1440:1450:T(1)0:T(6)2T(2)0790350I2:T(2)1430,1440:1450:T(2)0:T(6)2T(1)0790350I3:T(3)1430,1440:1450:T(3)0:T(7)2T(4)0810 T(2)2710 3503 GT(5)1:GT(6)1730C T(3)2730L 350e GT(6)1:GT(5)1730u &T(3)2730~ 0350 :GT(7)1:GT(8)1750 DT(4)2750 N350 XGT(8)1:GT(7)1750 bT(4)2750 l350 vGT(9)1:GT(10)1770 GT(G)1340R |SCSC1:GO:IG:1110:G390,420,450,480,510,540,570,600,630,660k GT(1)1:GT(2)1690{ T(1)2690 350 GT(2)1:GT(1)1690 T(1)2690 350 GT(3)1:GT(4)1710 T(2)2710 350 GT(4)1:GT(3)1710(K$"S")(K$"N"))290P ,DI(K$"E")(2(K$"W"))(3(K$"N"))(4(K$"S"))f 6RM(R,DI)Rī1040 @RM(R,DI)10R(RM(R,DI))10:270 JNDND1:1360:I110:GT(I)0:I TK(16368):16384,0 ^K$:K$"0"K$"9"350 hG(K$):G0G10 r110:NL(I):ID 34,20::1120:I13:OG:I1270,1280,1290:IV DI1:R1:SC0 230,32:49236,0:49235,0::"Direction:":"Location:":21:12:DI930,940,950,960 (7);"WHICH WAY? (N,S,E,W) ":K(16368):16384,0 "K$:((K$"E")(K$"W")PRSTUVWXYZ[\]W17:W03:PB2:BP6:OG5:GO1:B14:B00:L(0)42:L(1)85:L(2)170:L(3)213 I110:N$(I),RM(I,1),RM(I,2),RM(I,3),RM(I,4): I014:CO(0,I),CO(1,I):I:I014:CA(I):I:I19:LO(1,I):LO(2,I):I 232,0:233,3:PA768932:PV:PA,PV:PA ILO":4096(V14,NL(I)327,NL(I)3:;`:W1:AN2570wj0,2070,45210,45279,20:0,14070,115210,115279,140tW1:CS70:RW116140:CS(RW115)AN,RW(CS140)(RW115)AN,RW:RW~OG:CS72:RW20:I2511:CSIAN,RW(CS137)IAN,RW:RWRW1:IEW1:CL12:70CL,4470CL,114:210CL,44210CL,114:CLW1180:1250:BP:RW2144:0,RW(RW20)AN,RW:RWRW45115:0,RW70,RW:RWRW116139:0,RW(140RW)AN,RW:RWRW46114:72,RW210,RW:RW&RW21:I44211:^`abcdefghijklmnopqrstuvwxyz{|}~RIGINAL PROGRAM BY MIKE MAYFIELD, MODIFIED VERSIONs P **** PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL. Z **** TYPED IN BY MIKE LOWERY. MODIFICATIONS TO THE LATTER d *** (PLUS DEBUGGING) BY BOB LEEDOM - APRIL & DECEMBER 1974,( n *** WI3O SUPER STARTREK - MAY 16,1978 - REQUIRES 24K MEMORYU( **** ******* STAR TREK ******* ****2 **** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE,< **** AS SEEN ON THE STAR TREK TV SHOW.4 F **** O24,50,58,88,96,120,128,158,1660,63,28,36,0,41,45,53,23,23,23,54,6,0,27,63,23,182,190,63,28,44,40,229,27,36,0,9,45,21,254,3,55,14,45,53,23,23,63,7,0,9,45,21,182,190,63,28,44,40,229,27,36,0,9,45,21,254,195,118,45,53,23,23,63,7,0T 9,45,21,54,54,30,63,28,36,36,77,186,23,6,0 ^ 16, 10,0,22,0,30,0,41,0,52,0,63,0,76,0,88,0,124,0,137,0,150,0,73,62,14,54,190,45,5,0,17,12,45,21,190,191,23,46,45,45,0,41,45,53,23,23,173,246,63,28,7,0,73,49,191,23,46,181,33,44,28,36,0,41,45,245,219,46,45,21,54,23,63,28,4,0J 73,45,222,243,46,45,21,1962 Central Processing Control,9,10,10,10" 0,13,1,15,2,15,0,17,4,17,4,19,4,19,4,20,4,19,4,19,4,17,0,17,2,15,1,15,0,13, 15,16,17,18,19,19,20,20,20,19,19,18,17,16,156 28,16,28,50,28,88,28,120,28,158,91,36,91,104,154,130,217,88@1238,95251,95:I88102:249,I261,I:I: Keyboard Interface,5,4,8,7,Input Port,4,3,6,9,Video Processing,2,5,7,4,Sound Control Room,1,2,3,5,Ram Room,3,1,4,8,Disk Controller's Room,7,8,9,2,Disk Drive,7,6,1,3,Rom Room,6,9,5,1,Port Control,8,10,2,90,39:)49,5769,5769,4790,47:J49,9569,9569,10790,107:m49,12769,12769,11590,115:49,165133,165133,141153,141:112,43195,43195,91216,91:112,111133,111133,133153,133:175,137195,137195,99216,99:40:1450:I5D$(4):D$;"RUN HELLO":4096pJ014:RWLO(2,I)J:LO(1,I),RWLO(1,I)CA(J),RW:J:J014:RWLO(2,I)J:LO(1,I)CO(0,J),RWLO(1,I)CO(1,J),RW:J:I1460,1470,1480,1490,1500,1510,1520,1530,1540: 49,2369,2369,39]<RW50:I61501:238((I49)AN),RW269,RW:RWRW1:I:RW62124:239,RW269,RW:RWFRW125135:239((RW124)AN),RW269,RW:RW:PI19:T(I)(((1)2)1):IZ:1:0dI110:W1:I3,NL(I)nOG:1110:I xI19:T(I)1430,14W:"1320:W1:11,5041,61:A1310:W1:126,62160,62:` 1340:W1:238,61270,50:fRW63114:127,RW159,RW:RW:(RW5061:11,RW11((RW50)AN),RW:RW:RW61124:11,RW41,RW:RW2RW125135:11,RW11((136RW))AN,RW:RW:211((I20)AN),RW279,RW:RWRW1:IHRW45115:212,RW279,RW:RW{RW116139:211((RW115)AN),RW279,RW:RW:W0:RW7588:168,RW181,RW:RW:PB:RW7885:171,RW179,RW:RWW0:RW8093:49,RW62,RW:RW:PB:RW8390:51,RW59,RW:RTH A LITTLE HELP FROM HIS FRIENDS.....c x *** COMMENTS, EPITHETS, AND SUGGESTIONS SOLICITED -- *** SEND TO: R. C. LEEDOM *** WESTINGHOUSE DEFENCE & ELECTRONICS SYSTEMS CNTR. *** BOX 746, M.S. 338 *** AND SHIELD CONTROL":"IS PRESENTLY INCAPABLE OF CROSS-";c"CIRCUITING TO ENGINE ROOM!!":6220w "COMMAND: ";A$ I19:(A$,3)(A1$,3I2,3)2160\I2300,1980,4000,4260,4700,5530,5690,7290,6270pI:"ENTER ONE OF THE FOLLOWING:"" A$">!<":Z1R1:B4R1:Z2R2:B5R2:8670XvI1S3:8590:A$" * ":Z1R1:Z2R2:8670:Ib6430SE10ĭE10D(7)02060:"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IN""SPACE!":"YOU HAVE INSUFFICIENT MANEUVERING ENERGY,";:"RISE IN QUADRANT, THEN PLACE "K3" KLINGONS, &a * "B3" STARBASES, & "S3" STARS ELSEWHERE. *A$"<*>":Z1S1:Z2S2:8670:K311820I1K3:8590:A$"+K+":Z1R1:Z2R28670:K(I,1)R1:K(I,2)R2:K(I,3)S9(0.5(1)):IB311910(X8590:(G(Q1,Q2).1)10K3?S3G(Q1,Q2)100K310B3:K301590q"COMBAT AREA CONDITION RED":S2001590," SHIELDS DANGEROUSLY LOW!"6I13:K(I,1)0:K(I,2)0:I@I13:K(I,3)0:I:Q$Z$Z$Z$Z$Z$Z$Z$(Z$,17)/|*POSITION ENTERP4.5(1):Z(Q1,Q2)G(Q1,Q2);nQ11Q18Q21Q281600S9030::T0T1490"Your mission begins with your starship located""in the galactic quadrant, '";G2$;"'.":1500"NOW ENTERING ";G2$;" QUADRANT . . .":K3(G(Q1,Q2).01):B3;T9;" days. There";X0$a" ";B9;" starbase";X$;" in the galaxy for resupplying your ship.""Hit any key when ready to accept command."I(1):AA$:AA$""1300 * HERE ANY TIME NEW QUADRANT ENTERED *(Z4Q1:Z5Q2:K30:B30:S30:G50:DK7K9:B91X$"s":X0$" are "E"Your orders are as follows:"" Destroy all the ";K9;" Klingon warships which have invaded"" the galaxy before they can attack Federation Headquarters"" on stardate ";T0T9;". This gives you "80"\R1.95K32:K9K92:980;fR1.80K31:K9K91[B30:(1).96B31:B9B91G(I,J)K3100B310R(1):J:I:K9T9T9K91LB901200~G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91B91:G(Q1,Q2)G(Q1,Q2)10:Q1R(1):Q2R(1)"(8,1)1:C(8,2)1:C(9,2)10I18:D(I)0:IVA1$"NAVSRSLRSPHATORSHEDAMCOMXXX"* * SETUP WHAT EXISTS IN THE GALAXY . . . */ * K3= # KLINGONS, B3= # STARBASES, S3= # STARS *4I18:J18:K30:Z(I,J)0:R1(1)RR1.98K33:K9K93:9)S2)2)'R(R)((R)7.981.01)P * INITIALIZE ENTERPRISE POSITION *xQ1R(1):Q2R(1):S1R(1):S2R(1)I19:C(I,1)0:C(I,2)0:IC(3,1)1:C(2,1)1:C(4,1)1:C(4,2)1:C(5,2)1:C(6,2)1XC(1,2)1:C(2,2)1:C(6,1)1:C(7,1)1:CE --- NCC-1701"::::BZ$" "mJG(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)rT((1)2020)100:T0T:T925((1)10):D00:E3000:E0EP10:P0P:S9200:S0:B90:K90:X$"":X0$" is " D(D)((K(I,1)S1)2(K(I,2" ,------------- '--- ------'"k " '-------- --' / /" " ,---' '-------/ /--," " '----------------'":" THE USS ENTERPRISME LINES ARE LONGER THAN 72 CHARACTERS; THIS WAS DONEw *** BY USING "?" INSTEAD OF "PRINT" WHEN ENTERING LINES. ************************************************************** " ,------*------,"8 BALTIMORE, MD 21203' ***j *** CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN BORDERS *** LINE NUMBERS FROM VERSION STREK7 OF 1/12/75 PRESERVED AS *** MUCH AS POSSIBLE WHILE USING MULTIPLE STATEMENTS PER LINE7 *** SO NAV - (TO SET COURSE)"H" SRS - (FOR SHORT RANGE SENSOR SCAN)"u" LRS - (FOR LONG RANGE SENSOR SCAN)"" PHA - (TO FIRE PHASERS)"" TOR - (TO FIRE PHOTON TORPEDOES)"" SHE - (TO RAISE OR LOWER SHIELDS)"" DAM - (FOR DAMAGE CONTROL REPORTS)"I" COM - (TO CALL ON LIBRARY-COMPUTER)"z" XXX - (TO RESIGN YOUR COMMAND)"::1990 * COURSE CONTROL BEGINS HERE. *"COURSE (0-9)";C1:C19C11 C11C192350 " LT. SULU REPORTS: 'INCORRECT COURE =";E;" UNITS."@("NUMBER OF UNITS TO FIRE? ";X:X01990P(0EX04360k(:EEX:D(7)0XX(1)(bH1(XK3):I13:K(I,3)04670(H((H1D(0))((1)2)):H.15K(I,3)4530)"SENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,1);","K(I,2):467'K304330V'"SCIENCE OFFICER SPOCK REPORTS: 'SENSORS SHOW NO ENEMY SHIPS"'" IN THIS QUADRANT'.":1990'D(8)0ĺ"COMPUTER FAILURE HAMPERS ACCURACY"'"PHASERS LOCKED ON TARGET; ";("ENERGY AVAILABL3)3:JQ21Q21H&I0I9J0J9N(JQ22)G(I,J):Z(I,J)G(I,J)t&TJ:L13:": ";:N(L)0ĺ"*** ";:4230&r((N(L)1000),3);" ";&L:":":O1$:I:1990& * PHASER CONTROL CODE BEGINS HERE. *&D(4)0ĺ"PHASERS INOPERATIVE":1990'UVER." %dSSE:E0:S0S0&%L% * LONG RANGE SENSOR SCAN CODE *%D(3)0ĺ"LONG RANGE SENSORS ARE INOPERABLE.":1990%%"LONG RANGE SCAN FOR QUDRANT ";Q1;","Q2"."%O1$"--------------------":O1$&IQ11Q11:N(1)1:N(2)2:N(P ENGINES SHUT DOWN"P$" AT SECTOR ";S1;",";S2;" OF QUDRANT ";Q1;",";Q2"."b$ TT0T96220|$8Q1Q28Q4Q53370$TT1:3910:1320$< * MANEUVER ENERGY S/R ** *$FEEN10:E0ı%Z"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANES21#Q28X51:Q28:S28.#X503860g#"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"#" 'PERMISSION TO ATTEMP CROSSING GALACTIC PERIMETER"#" IS HEREBY *DENIED*. SHUT DOWN YOUR ENGINES.'"$"CHIEF ENGINEER SCOTT REPORTS 'WARGET COMMAND *" 1980:" * EXCEED QUADRANT LIMITS *{" X8Q1XNX1:Y8Q2YNX2:Q1(X8):Q2(Y8):S1(XQ18)" S2(YQ28):S10Q1Q11:S18"S20Q2Q21:S28"$X50:Q11X51:Q11:S11"VQ18X51:Q18:S18#~Q21X51:Q21:X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT ";j! "SECTOR ";S1;",";S2;" DUE TO BAD NAVAGATION.":3370! I:S1(S1):S2(S2)!* A$"<*>":Z1(S1):Z2(S2):8670:3910:T81!f W11T8.1(10W1)!z TTT8:TT0T96220" * SEE IF DOCKED, THEN :Z1(S1):Z2(S2):8670R & X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS1:YS2 D X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):Q4Q1:Q5Q2 b I1N:S1S1X1:S2S2X2:S11S19S21S293500 S8(S1)24(S2)326:(Q$,S8,2)" "33601! S1(S11R(1):(1).63000Or D(R1)D(R1)((1)51):"DAMAGE CONTROL REPORT: ";q 8790:G2$;" DAMAGED"::3070 D(R1)D(R1)(1)31:"DAMAGE CONTROL REPORT: "; 8790:G2$;" STATE OF REPAIR IMPROVED": * BEGIN MOVING STARSHIP * A$" "K+":8670/ I:6000:D10:D6W1:W11D61H I18:D(I)02880y D(I)D(I)D6:D(I).1D(I)0D(I).1:2880 D(I)02880 D11D11:"DAMAGE CONTROL REPORT: "; 8);:R1I:8790:G2$;" REPAIR COMPLETED."@ I:(1).23070^ RGES ";S;" UNITS OF ENERGY"[ " PRESENTLY DEPLOYED TO SHIELDS."e 1990 * KLINGONS MOVE/FIRE ON MOVING STARSHIP . . . * I1K3:K(I,3)027002 A$" ":Z1K(I,1):Z2K(I,2):8670:8590 d K(I,1)Z1:K(I,2)Z2:A$"+DAMAGED. MAXIMUM SPEED = WARP 0.2.":1990J N(W18.5):EN02590 "ENGINEERING REPORTS: 'INSUFFICIENT ENERGY AVAILABLE" " FOR MANEUVERING AT WARP ";W1;"!'" SNED(7)01990 "DEFLECTOR CONTROL ROOM ACKNOWLESE DATA, SIR!'":19903. X$"8":D(1)0X$"0.2"i8 "WARP FACTOR (0-";X$;")";:W1:D(1)0W1.22470~L W10W182490V W101990t " CHIEF ENGINEER SCOTT REPORTS: 'THE ENGINES WON'T TAKE";~ " WARP ";W1;"!'":1990, "WARP ENGINES ARE 0H)K(I,3)K(I,3)H:H;" UNIT HIT ON KLINGON AT SECTOR ";K(I,1);",";)K(I,2):K(I,3)0ĺ"*** KLINGON DESTROYED ***":4580)" (SENSORS SHOW ";K(I,3);" UNITS REMAINING)":4670)K3K31:K9K91:Z1K(I,1):Z2K(I,2):A$" ":86704**K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K906370G*>I:6000:1990r*R * PHOTON TORPEDOE CODE BEGINS HERE **\P0ĺ"ALL PHOTON TORPEDOES EXPENDED.":1990*zD(5)0ĺ"PHOTON TUBES ARE NOT OPERATIONAL.":1990+"PHOTON TORPEDOE COURSE (1-9)? ";(J.5)1(J.5)86540C8ZA$">!<":Z1I:Z2J:8830:Z316580X8J:I:D00:6650w8D01:C$"DOCKED":EE0:PP08"SHIELDS DROPPED FOR DOCKING PURPOSES.":S0:67208K30C$"*RED*":67208C$"GREEN":EE0.1C$"YELLOW"8@D(2)0677009E LAST KLINGON BATTLE CRUISER"U7"MENACING THE FEDERATION HAS BEEN DESTROYED.":7"YOUR EFFICIENTY RATING IS ";1000(K7(TT0))2;".":62907 * SHORT RANGE SENSOR SCAN & STARTUP SUBROUTINE *7IS11S11:JS21S2182(I.5)1(I.5)8N."6::B906360Q6"THE FEDERATION IS IN NEED OF A NEW SHIP COMMANDER"6"FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"6"LET HIM STEP FORWARD AND ENTER 'AYE'. ";A$:A$"AYE"56::(4)"RUN MENU" 7"CONGRADULATION, CAPTAIN! THTHE HIT!'"58I:+5B * END OF GAME *N5L"IT IS STARDATE ";T;".":62705`:"THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION ";5j"WILL BE CONQUERED.":62205~"THERE WERE ";K9;" KLINGON BATTLE CRUISERS LEFT AT"6"THE END OF YOUR MISSIOH;" UNIT HIT ON ENTERPRISE FROM SECTOR ";K(I,1);",";K(I,2);"!"Q4S062404" ":H2062004(1).6HS.0262004R1R(1):D(R1)D(R1)HS.5(1):8790 5"DAMAGE CONTROL REPORTS: '";G2$;" DAMAGED BY ;(Z$,25(G2$));(D(R1)100).0193>R1::D005720C3\1990_3f * KLINGONS SHOOTING *l3pK30ı3zD00ĺ"STARBASE SHIELDS PROTECT THE ENTERPRISE.":3I13:K(I,3)062003H((K(I,3)D(1))(2(1))):SSH:K(I,3)K(I,3)(3(0))B4SHIP;"F2"ESTIMATED TIME TO REPAIR: ";.01(100D3);" STARDATES."|2"WILL YOU AUTHORIZE THE REPAIR ORDER (Y/N)? ";A$2A$"Y"19902I18:D(I)0D(I)02I:TTD3.12:"DEVICE STATE OF REPAIR":R118#3 8790:G2$R YOUR COMMAND.'":1990210 * DAMAGE CONTROL *D1:D(6)05910{1D"DAMAGE CONTROL REPORT NOT AVAILABLE.":D0019901XD30:I18:D(I)0D3D3.11I:D3019901:D3D3D4:D31D3.92"TECHNICANS STANDING BY TO EFFECT REPAIRS TO YOUR ;X.0X0SXĺ"":1990?0XES56300"SHIELD CONTROL REPORTS: 'THIS IS NOT THE FEDERATION TREASURY.'"0"":19900EESX:SX:"DEFLECTOR CONTROL ROOM REPORT:"1" 'SHIELDS NOW AT ";(S);" UNITS PEY:A$" ":8670N/^G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):6000:1990r/r"TORPEDOE MISSED.":6000:1990/ * SHIELD CONTROL */D(7)0ĺ"SHIELD CONTROL INOPERABLE.":1990/0"ENERGY AVAILABLE = ";ES;:" NUMBER OF UNITS TO SHIELDS? "K9TT0T95400T."THAT DOES IT, CAPTAIN!! YOU ARE HEREBY RELIEVED OF COMMAND"."AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12!!".6270."STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER".""COURT MARTIAL!":D00/6Z1X:Z2,1)Y3K(I,2)5190-<I:I32-FK(I,3)0:5430Z-ZA$" * ":Z1X:Z2Y:8830:Z305280-"STAR AT ";X3;",";Y3;" ABSORBED TORPEDOE ENERGY.":6000:1990-A$">!<":Z1X:Z2Y:8830:Z304760-"*** STARBASE DESTROYED ***":B3B31:B9B91.B90YX2:X3(X.5):Y3(Y.5):,`X31X38Y31Y385490z," ";X3;",";Y3:A$" ":Z1X:Z2Y:8830,Z304920,A$"+K+":Z1X:Z2Y:8830:Z305210,"*** KLINGON DESTROYED ***":K3K31:K9K91:K906370-I13:X3K(IC1:C19C11$+C11C194850a+"ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!'"k+1990+X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):EE2:PP1+X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):XS1:YS2+."TORPEDOE TRACK:",8XXX1:YJ:"*** SHORT RANGE SENSORS ARE OUT ***"::i9rO1$"----------------------------------":O1$:I189J(I1)241(I1)24223:" ";(Q$,J,3);:J9I6850,6900,6960,7020,7070,7120,7180,7240:" STARDATE ";(T10).1:72607:" CONDITION ";C$:7260p:0" QUADRANT ";Q1;",";Q2:7260:l" SECTOR ";S1;",";S2:7260:" PHOTON TORPEDOES ";(P):7260;" TOTAL ENERGY OM Z4,Z5 (=Q1,Q2) *FH<# * CALL WITH G5=1 TO GET REGION NAME ONLY *}HF#Z54ĴZ49040,9050,9060,9070,9080,9090,9100,9110HK#9120HP#G2$"ANTARES":9210HZ#G2$"RIGEL":9210Hd#G2$"PROCYON":9210Hn#G2$"VEGA":9210Hx#G2$"CANOPUS":9210I#G2$ES":"Gb"G2$"DAMAGE CONTROL":=Gd"G2$"SHIELD CONTROL":ZGf"G2$"LIBRARY-COMPUTER":Gt" * STRING COMPARISON IN QUADRANT ARRAY *G~"Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30G"(Q$,S8,3)A$ıG"Z31:H2# * QUADRANT NAME IN G2$ FR89)A$:.F!Q$(Q$,S81)A$(Q$,190S8):KFL" * PRINTS DEVICE NAME *{FV"R18792,8794,8796,8798,8800,8802,8804,8806FX"G2$"WARP ENGINES":FZ"G2$"SHORT RANGE SENSORS":F\"G2$"LONG RANGE SENSORS":F^"G2$"PHASER CONTROL":G`"G2$"PHOTON TUBMPTY PLACE IN QUADRANT (FOR THINGS) *cE!R1R(1):R2R(1):A$" ":Z1R1:Z2R2:8830:Z308590iE!E! * INSERT IN STRING ARRAY FOR QUADRANT *E!S8(Z2.5)3(Z1.5)241E!(A$)3ĺ"ERROR":E!S81Q$A$(Q$,189): F!S8190Q$(Q$,1460(D!"DIRECTION = ";C1((X)(A))QD !"DISTANCE = ";(X2A2):H811990^D !I:1990D4!B30ĺ"FROM ENTERPRISE TO STARBASE: ":W1B4:XB5:8120D>!"MR. SPOCK REPORTS: 'SENSORS SHOW NO STARBASES IN THIS";DH!" QUADRANT.'":1990'E! * FIND E5:8290CX C11'Cb (A)(X)8330^Cv "DIRECTION = ";C1((((A)(X))(A))(A)):8460C "DIRECTION = ";C1((A)(X)):8460C A0C13:8420C X0C15:8290C C17C (A)(X)8450D "DIRECTION = ";C1((((X)(A))(X))(X)):8TION/DISTANCE CALCULATOR:"[B"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2;"."B"PLEASE ENTER":" INITIAL COORDINATES (X,Y)? ";C1,AB " FINAL COORDINATES (X,Y)? ";W1,XB XXA:AC1W1:X08350B: A08410BD X08280 CN A0C1OU HAVE NO STARBASES LEFT!":5690PA| * TORPEDOE, BASE NAV, D/D CALCULATOR *`AK304270wAX$"":K31X$"S"A"FROM ENTERPRISE TO KLINGON BATTLE CRUSER";X$AH80:I13:K(I,3)08480AW1K(I,1):XK(I,2)AC1S1:AS2:8220B"DIREC"MISSION MUST BE COMPLETED IN ";.1((T0T9T)10);" STARDATES."d@"X$"S":B92X$"":B918010@,"THE FEDERATION IS MAINTAINING ";B9;" STARBASE";X$;" IN THE GALAXY."@65690@J"YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN"#AT" THE GALAXY -- Y((Z(I,J)1000),3);#?(J:7850U?<Z4I:Z51:9030:J0(15.5(G2$)):J0);G2$;?xZ55:9030:J0(39.5(G2$)):J0);G2$;?:O1$:I::1990? * STATUS REPORT *?" STATUS REPORT: ":X$"":K91X$"S"?"KLINGON";X$;" LEFT: ";K9B@OMPUTER RECORD OF GALAXY FOR QUADRANT ";Q1;",";Q2;"."=>zu>~" 1 2 3 4 5 6 7 8">O1$" ----- ----- ----- ----- ----- ----- ----- -----">O1$:I18:I;:H807740>J18:" ";:Z(I,J)0ĺ"***";:7720? DIRECTION/DISTANCE CALCULATOR"P=" 5 = GALAXY 'REGION NAME' MAP"::7320= * SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP *=H80:G51:" THE GALAXY:":7550=j * CUM GALACTIC RECORD *=t=w:" ";7>x"C:A01990:<:H81:A17540,7900,8070,8500,8150,7400l<"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"<" 0 = CUMULATIVE GALACTIC RECORD"<" 1 = STATUS REPORT"<" 2 = PHOTON TORPEDOE DATA"<" 3 = STARBASE NAV. DATA"!=" 4 = ";(ES):7260G; " SHIELDS ";(S):7260v;H" KLINGONS REMAINING ";(K9);\I:O1$:;p * LIBRARY COMPUTER CODE *;zD(8)0ĺ"COMPUTER DISABLED.":1990;{ <"COMPUTER ACTIVE AND AWAITING COMMAND. ";A"ALTAIR":9210-I#G2$"SAGITTARIUS":9210DI#G2$"POLLUX":9210tI#Z49130,9140,9150,9160,9170,9180,9190,9200I#G2$"SIRIUS":9210I#G2$"DENEB":9210I#G2$"CAPELLA":9210I#G2$"BETELGEUSE":9210I#G2$"ALDERBARAN":9210J#G2$"REGULUS":9210 J#G2$"ARCTURUS":92100J#G2$"SPICA"gJ#G51ĴZ59230,9240,9250,9260,9230,9240,9250,9260mJ$J$G2$G2$" I":J$G2$G2$" II":J"$G2$G2$" III":J,$G2$G2$" IV":; 14 !GRASSHOPPER IS IT BLACK 22 20 !FLEA !DOG DOES IT FLY 18 19 !BIRD DOES IT JUMP 21 IS IT SMALL 17 15 !ANT IS IT A PET 16 6 !CAMEL CAN YOU RIDE ON IT 12 13 !HORSE DOES IT BREATH WATER 8 2 !FISH DOES IT LIVE IN THE DESERT 10 11 DOES IT HAVE ANTLERS 3 9 !COW 11,22 DOES IT LIVE IN THE WATER 7 5 !FROG !MOOSE 2009 Mike Lowery 1079 Reed Ralstin 788 Mike Lowery 389 ;SCOTT 67 Brian Sonnefeld 55 Craig Ralstin 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ ___ 0 ___ 0 ___ 0 ___ 0 ___ 0 ___ Q(C)0Q$(C)(95)(95)(95)3 AC10SP$" " BSP$;C;".............";Q(C);5(Q(C)9)(Q(C)99)(Q(C)999)(Q(C)9999));Q$(C) CC D23 F"HIT ANY KEY TO CONTINUE";:KEY$:q P:"Whenever you type something in, then,":"and only then, hit$(P);::30:"WEEK: ";WEJ rI140:"-";::3:13:"STOCK EXCHANGE":| |"-----STOCK------";:24:"-PRICE PER SHARE-" :" ";:24:" ";: I16:S$(I);:27:"$";S(I); S(I)0P(P,I,1)0 P(P,I,1)0Ğ " "B)UY",22,11,"S)ELL",22,24,"T)RADE",23,11,"L)OAN",23,24,"N)EXT",24,11,"P)ORTFOLOIO",24,24v , ************* 6 * MAIN MENU * @ ************* JWE1W:P1NP:TA0:TM1 T ^"--------------WALL STREET---------------"; h:3:NANP),NA$(NP),CM$(6),CV(6),CH(6)e ::I1NP:"ENTER NAME OF PLAYER #";I;:NA$(I):P(I,0,0)5000: I16:S$(I):S(I)(50(1)S(I)(1)): I16:CM$(I),CV(I),CH(I):  "1. US STEEL","2. PAN AM","3. FORD","4. SANYO","5. XEROX","6. AT&T"a8 13:14:"BY BRIAN LEE":22:13:"PRESS ANY KEY"B 2540 :"ENTER NUMBER OF PLAYERS (1-10): ";NP:NP1NP10210 :"NUMBER OF WEEKS (2 MINIMUM): ";W$:W(((W$,4))):W2Ģ2:220 PR$"(HIT ANY KEY)" S(6),S$(6),P(NP,(NP1)6,2),T( Z(21)&d ******************@n * MARKET MADNESS *Zx ******************n BY BRIAN LEE AND THE HCM STAFF HOME COMPUTER MAGAZINE VERSION 4.4.2 APPLE II FAMILY APPLESOFT ::11:11:"** STOCK MARKET **"::CBCAK40\"You are at . . . . . Level 1.">fBB4:470Hp1070hz"You found your way . . ."". . . out of The Dungeon of Danger.""You have acquired ";G;" gold peices."9501810GGG1R((GGCA70001)M1)You walk up the stairway."%460T"The Enchanted Key . . . opens the lock."] 460kL10890 MA0:K0:K4((1)41)1:H1HI820*8504H1HI>"You feel stronger . . .":460H"Your 'HIT POINTS' are restored to ";HI;"." RZ&Y0X':H((1)31)2DA12=NN1HOXX((1)81)abY((1)81)plA(X,Y,A)8wvN~AS((1)41)2A12N1SX((1)81)Y((1)81)A(X,Y,A)9NAL1L11"."The Dungeon of Danger . . . Level 2."4a"You will encounter monsters, thieves,""and gold . . . Good Luck!"BB64701030BB1ZZ1909BBZZX18Y18Z12A(X,Y,Z)((1)71)old pieces with you."E ,"Your 'Hit-Point' value is ";H1;".":460m 6"If it reaches zero, you will die" @". . . . . . . so be careful!" J:460:A$;" . . you are on your way!" TBB5:470 ^500 h r"You have arrived at . . . ."|u will be teleported to..."# @ "The Dungeon of Danger"P :DY0:MD1Z 5530 MA0:CA0:G500:M11:K0:HI20((1)151):HI(HIPL) H1HI:"Enter your characters name: " A$ 460 :"You carry a magic sword" ""and 500 g the key marked":"'Return' on the right hand":"side of the keyboard. Make sure you":"only hit it once.":: U"HIT RETURN";W$ d n:"THE DUNGEON OF DANGER" x"APPLE //e" "A FANTASY GAME" BB2 470 :A(9,9,2) "Yo32:"(";P(P,I,1);")":O "----------------";:24:"-----------------";: LW10000:I16:S(I)LWS(I)0LWS(I):LOI :HI0:I16:S(I)HIHIS(I):HGI :"LOW: $";LW;:24:"HIGH: $";HI I140:"=";: RTRT0:I16:CV(I):CH(I):CM$(I);:K22:1:"MENU:"::23:"SELECT":24:"OPTION";:h2540:KB194KN213510A$(KB128):A$"B"A1:590A$"S"A2:590A$"T"A3:590&A$"L"A4:5900A$"N"A5:590:A$"P"A6:590D510N1)SH0Ĺ34,0:(7);"YOU DON'T HAVE ENOUGH SHARES...":PR$;:2540:880("HOW MUCH PER SHARE: ";:"";N$:PS(((N$,7))):PSS(S)2PSS(S)213202"IS THIS OKAY ";NA$(P);"?";:N$:N$:N$"N"Ĺ34,0:1060-<P(P,0,0)(SHPS)0Ĺ34,0:(7);NA$(P);" PTP:2110:PQ[34,22:"DEAL WITH WHICH STOCK: ";:N$:N$:S(N$):S1S6Ĺ34,0:880 P(TP,S,1)0Ĺ34,0:(7);NA$(TP);" DOES NOT OWN THAT STOCK...";:PR$;:2540:880"SELL HOW MANY SHARES TO ";NA$(P);": ";:"";N$:SH(((N$,7)))HP(TP,S,MONEY!":PR$;:2540:880I"TRANSACTION COMPLETE...HIT A KEY";:2540P(P,S,1)P(P,S,1)SH:P(P,0,0)P(P,0,0)SHPS:P(TP,S,1)P(TP,S,1)SH34,0:880 ******************** * PART B OF PART 1 * ********************RT1:QP:T HAVE ENOUGH SHARES...":PR$:2540:880y"HOW MUCH PER SHARE: ";:"";N$:PS(((N$,7))):PSS(S)2PSS(S)21180"IS THIS OKAY, ";NA$(TP);"?";:N$:N$:N$"N"Ĺ34,0:1060P(TP,0,0)(SHPS)0Ĺ34,0:(7)NA$(TP);" DOES NOT HAVE THAT MUCH":""DEAL WITH WHICH STOCK: ";:N$:N$:S(N$):S1S6Ĺ34,0:880~P(P,S,1)0Ĺ34,0:(7)"YOU DON'T OWN ANY SHARES IN THAT STOCK":PR$:2540:880"SELL HOW MANY SHARES TO ";NA$(TP);": ";:"";N$:SH(((N$,7)))*P(P,S,1)SH0Ĺ34,0:(7)"YOU DON'NA$(TP);" BUYS SHARES FROM YOU"H."2. YOU BUY SHARES FROM ";NA$(TP){8:"ENTER CHOICE: ";:A$:(A$)1(A$)21060B(A$)1130,1270L ********************V * PART A OF PART 1 *` ********************jRT1:2110:34,22@t:1060$NP2NN$"1":TP1:1060X:"YOU MAY TRADE WITH THE FOLLOWING PLAYERS(";mTR1NP:T(TR)0TRNPTRPĺ"OR ";TR;")":T(TR)1:1040TRPT(TR)1:TR;",";:"WHICH PLAYER";:N$:TP(N$):TP1TPNP850!$:::"1. ";MENU"5:"ENTER 1-4:";:N$:A(N$):A1A4880NA960,1520,1410,340k ********************* * PART 1 OF TRADING * *********************NP2ĺ:(7);"THERE ARE NO OTHER PLAYERS!":PR$:2540:880NP2P2NN$"2":TP2:34,21::(7);"YOU HAVE NO SHARES TO TRADE...":PR$:2540:34,0:340}p:NA$(P);","::"YOU HAVE THE FOLLOWING OPTIONS:"z::"1. TRADE SHARES WITH ANOTHER PLAYER":"2. TRADE SHARES WITH ANOTHER STOCK""3. CASH SHARES INTO BANK":"4. RETURN TO :34,0:340W P(P,S,1)P(P,S,1)SH:P(P,0,0)P(P,0,0)SHS(S):P(P,S,1)0P(P,S,2)0}*PR$;:2540:34,0:TA1:BS1:21104 *******************> * --- TRADING --- *H *******************RI0:TR16:P(P,TR,1)0I1\:I880FfN$:S(N$):S1S6660)S(S)0670P(P,S,1)0ĺ(7);"YOU DON'T OWN ANY SHARES IN THAT STOCK":PR$;:2540:34,0:340 "HOW MANY SHARES";:N$:SH(((N$,7))):SH1Ĺ34,0:340 P(P,S,1)SHĺ(7);"YOU DON'T HAVE ENOUGH SHARES...":PR$;:2540,0)S(S)SH(S(S)SH.006):P(P,S,1)P(P,S,1)SH:P(P,S,2)S(S):"TRANSACTION COMPLETE...HIT A KEY";:2540:TA1:BS1:34,0:2110 **************** * --- SELL --- * ****************34,21::"--- SELL ---":"WHICH STOCK?";:N$:..":PR$;:2540:34,0:340_S(S)0ĺ(7);"THAT STOCK IS BANKRUPT.":PR$;:2540:34,0:340"HOW MANY SHARES";:N$:SH(((N$,7))):SH1Ĺ34,0:340S(S)SHP(P,0,0)ĺ(7);"NOT ENOUGH MONEY...TRY AGAIN":PR$;:2540:34,0:340?P(P,0,0)P(P,0:CV(A):CH(A):CM$(A);:IXT11000::A640,750,850,1650,2060,2110`b ***************wl * --- BUY --- *v ***************34,21:"--- BUY ---":"WHICH STOCK?";:N$:N$:S(N$):S0S7670(7);"ENTER STOCK NUMBER PLEASE.DOES NOT HAVE THAT MUCH!":PR$;:2540:1060\F"TRANSACTION COMPLETE...HIT A KEY";:2540PP(TP,S,1)P(TP,S,1)SH:P(TP,0,0)P(TP,0,0)(SHPS):P(P,S,1)P(P,S,1)SH:P(P,0,0)P(P,0,0)(SHPS)Z34,0:880d ********************* n * PART 3 OF TRADING *(x *********************=TB1Ĺ34,0:880RT1:340:34,21:"DEAL IN WHICH STOCK: ";:N$:N$:S(N$):S1S6Ĺ34,0:880P(P,S,1)0ĺ(7);"YOU DON'T OWN SHARES IN THAT STOCK!":PR$;:2540:34,0:880+"SELL HOW MANY SHARES: ";E:I140:I:"-";:.,\3:16:"PORTFOLIO"c,f:"---STOCK PLUS---";:24:"--NO. OF SHARES--";,p" CURRENT PRICE";:25:"/ORIGINAL PRICE",z:" ";:24:" ";:-S16:S$(S);:14:"$";S(S);:27:P(P,S,1);:31:"/34,0:2320+34,0:3401+  *************F+* * PORTFOLIO *[+4 *************+>:"--------------WALL STREET---------------";:ZZ16:P(P,ZZ,1)0P(P,ZZ,2)0+HP(P,ZZ,1)0P(P,ZZ,2)0P(P,ZZ,2)S(ZZ),R::3:NA$(P);::30:"WEEK: ";WO BORROW: ";:N$e*M(((N$,7))):I(((W(WE1)).01)M)::"INTEREST: $";I;:20:"TOTAL: ";MI~*::PR$:2540:1650* **************** * SKIP A TURN ** *************** + 34,21:::"ARE YOU FORFEITING YOUR TURN? ";:N$:N$"Y"******%) * PART 3 OF LOANING *B) *********************T):NA$(P);",")::"INTEREST WILL BE COMPOUNDED FOR THE":"DURATION OF THE GAME STARTING NOW UNTIL":"THE END (";)W(WE1);") WEEK(S)."*:"HOW MUCH MONEY WOULD":"YOU NEED T650-(bP(P,7,0)B0ĺ"ALL, I PRESUME..."Y(lP(P,7,0)P(P,7,0)B:P(P,0,0)P(P,0,0)B(vP(P,7,0)0P(P,0,0)P(P,0,0)P(P,7,0):P(P,7,0)0:OP1(OPOP0:"YOU HAVE OVERPAID, BUT":"IT HAS BEEN CORRECTED"(:PR$:2540:1650) ***************ING *$': *********************n'D::P(P,7,0)0ĺ"YOU DO NOT NEED TO MAKE PAYMENTS.":PR$:2540:1650'N"HOW MUCH ARE YOU GOING":"TO PAY BACK: ";:N$:B(((N$,7)))(XBP(P,0,0)ĺ(7);"YOU CAN'T AFFORD THAT LARGE A PAYMENT...";:PR$:2540:1&LIM5000j&BP(P,7,0)LIMĺ"SORRY...YOU ARE A CREDIT RISK.":"YOUR LIMIT IS ";LIM:PR$:2540:1650&"OKAY...TRANSACTION HAS BEEN APPROVED.":P(P,7,0)P(P,7,0)B:P(P,0,0)P(P,0,0)B:N$(B):2010&& *********************'0 * PART 2 OF LOAN*****************0% * PART 1 OF LOANING *M% *********************%:"HOW MUCH DO YOU NEED TO BORROW: ";:"";N$:B(((N$,7))):B01650%TTL0:Z16:TTLTTLP(P,Z,1)S(Z)::TTLTTLP(P,0,0):TTLTTLP(P,7,0)&TTL5000LIMTTL:1810 "YOU HAVE THE FOLLOWING OPTIONS:"`$:"1. MAKE A LOAN WITH THE BANK":"2. PAY BACK A LOAN"$"3. COMPOUND INTEREST ON A FUTURE LOAN":"4. RETURN TO MAIN MENU"$:"ENTER CHIOCE: ";:N$:C(N$):C1C41650$:C1770,1860,1970,340% ****S(S)SH)S(S2)P(P,0,0)P(P,0,0)S(S)SHS(S2)P(P,S2,1)I#J34,0:880b#T *****************{#^ * -- LOANING -- *#h *****************#r:NA$(P);","#|:"YOU ARE ";:P(P,7,0)0ĺ"NOT";:1680#"$";P(P,7,0);#" IN DEBT..."$$::S21S26Ĺ34,0:880Y""S(S2)0ĺ(7);"THAT STOCK IS BANKRUPT":PR$:2540:34,0:880",S(S)SHS(S2)Ĺ34,0:(7);"NOT ENOUGH SHARES TO TRADE":PR$:2540:880"6P(P,S,1)P(P,S,1)SH:P(P,S2,1)P(P,S2,1)(((S(S)SH)S(S2))):#@((S(S)SH)S(S2))(;"YOU DON'T OWN SHARES IN THAT STOCK...":PR$;:2540:34,0:880!"HOW MANY SHARES: ";:"";N$:SH(((N$,7))):SH0Ĺ34,0:880!P(P,S,1)SH0ĺ(7);"YOU DON'T HAVE ENOUGH SHARES...":PR$;:2540:34,0:880""TRADE FOR WHICH STOCK";:N$:S2(N$):P(P,S,1)P(P,S,1)SH:P(P,0,0)P(P,0,0)BSH> 34,0:880[  *********************x  * PART 2 OF TRADING *  ********************* RT1:340:34,21::"DEAL WITH WHICH STOCK: ";:N$:N$:S(N$):S1S6Ĺ34,0:880A!P(P,S,1)0ĺ(7):"";N$:SH(((N$,7))):SH0Ĺ34,0:880{P(P,S,1)SH0ĺ(7);"YOU DON'T HAVE ENOUGH SHARES!":PR$;:2540:34,0:880:"THE BANK WILL BUY YOUR SHARES FOR"TB1B(S(S)(10(1))5):"$";B;" EACH. SOUND FAIR?";:N$:N$"N"Ĺ34,0:880/ $";P(P,S,2)E-"----------------";:24:"-----------------";:-"CASH: $";P(P,0,0);:24:"INVEST: $";:I0:S16:II(S(S)P(P,S,1))::I-"LOANS: $";P(P,7,0);:24:"TOTAL: ";-T(P(P,0,0)I)P(P,7,0):T:I140:"=";:-RTRT0:.34,22!. PR$:2540:34,0:340s. 34,0:TB0:P:C1NP:P(C,7,0)P(C,7,0)(P(C,7,0)0.1):P(C,7,0)(P(C,7,0)):. WWE2350. S16:S(S)S(S)((40(1))1)20:S(S)0S(S)0/$ :WEW1Ĺ34,22::"LAST WEEK FOR TRANSACTIONS...":PR$;:34,0:2540 Z191330$U161320-Z19@ A(0)81310IZ11S1330[(Z2c2K0m<3050}FT.51450PV71400ZI61400d"I'll check."n1460xVZA(0)3480"I'll bet ";V;"."KV3060650U -"I am taking ";Z10T;" card";>Z11T1090H$"s."N.X81100aB"."iLN6qVVIy`I1j2170tBU~MDV71190Z281330I61220Z11330U131270Z2A(0)612600fT4900=p"You can't draw more than three cards."Fz840e"What are their numbers";pQ1TwU1730Q"Your new hand: "N11850Z10TU610(X10(U6))10(X10(U5))10201730H$ H$"YES"H$"Y"1208 H$"NO"H$"N"4100Y "Answer YES or NO, please."b 700p I4810v  "You win, you dirty rat!" SSP 690 * 4 >"Now we draw -- how many cards do you want"; HT RT0980\Z16570 &Z2! 0A(0)1580* :Z358 DVZA(0)B N3480_ X"I'll open with ";V;"."g bKVq l3050z v650 820 I3760  "I WIN!!" CCP "Now I have $";C;" and you have $";S;"." "Do you wish to continue"; I6470 TA(0)7370+ ^X111004 h420F rA(0)7400S |X11110\ 420n A(0)1450z X11111 I7 Z23 580 Z1 510 U13540 A(0)2500 420 Z0 K0 "I check." 620 U1C200 nS200 xP0# ) 8 C53670] "The ante is $5. I will deal."c p S5200z 3830 PP10 SS5 CC5 Z110 1740 Z "Your hand: " N1 1850 "N6 ,I2 62170 @ Jg before the draw; you open after."T <"When you fold, bet 0; to check, bet .5." A"Always press the button marked 'Return' on the keyboard after you are done":"typing in a number." F"Enough talk -- let's get down to business." P ZO1 d 3::33);"POKER"U15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"fA12500:Ar::: A(50),B(15)A(X)(10(1))B(X)X100(X100)("Welcome to the casino. We each have $200."% 2"I will open the bettinHER GAME (Y/N)";:N$:N$"Y"Ĭ21 N$"N"2480:1 :S1 *****************l1 * PEEK KEYBOARD *1 *****************1 KB(16384):KB127Ĺ16368,0:1 2540 P(W,0,0)5000Ė11:"$0";" EVEN...":2440g0t P(W,0,0)5000Ė11:"$";5000P(W,0,0);" LOSS...":24400~ 11:"$";P(W,0,0)5000;" PROFIT!"0 0 :0 TE1ĺ"TIE BETWEEN ";NA$(WR);" AND ";NA$(TR):24800 "WINNER: ";NA$(WR) 1 16368,0::"ANOT/. 34,0:WE-/8 :(7);"END OF GAME..."c/B WI0:TE0:TR0:W1NP:P(W,0,0)P(W,0,0)P(W,7,0)/G WZ16:P(W,0,0)P(W,0,0)P(W,WZ,1)S(WZ):/L P(W,0,0)WITE1:TRW:2400/V P(W,0,0)WIWIP(W,0,0):WRW/` :W1NP:NA$(W);" HAD $";P(W,0,0),0j$"Now we compare hands.".J$H$8K$I$I"My hand: "QN6[1850cN1m2170s"You have ";"KD,36906H$J$@I$K$JKMT"and I have ";^3690hBU670rUB780|H$"A FLUS"1700~B(M)B(D)780+B(M)B(D)670E"The hand is drawn."k"All $";P;" remains in the pot."t140B(M)B(D)670B(D)B(M)7801670ZZ1A(Z)100(4(1))(100(1))(A(Z)100)31740A(Z)100(A(Z) J$# J$"NO"J$"N"4080= J$"Y"J$"YES"4010G 3980Z A(0)64050z "You are now $100 richer." SS100 4070 "It's paste. $25." SS25 OO3  "Your wad is shot. So long, sucker!" d"Y"J$"YES"3890*386012A(0)73930R<"I'll give you $75 for it."]FSS75gP3950Z"That's a pretty crummy watch - I'll give you $25."dSS25nOO2xO3(O3)4090 "Will you part with that diamond tie tack":KB(K)1960*H$"Schmal"3790@H$"Straig"3810N" high,"T^"s."dj"You can't bet with what you haven't got!" O2(O2)3970"Would you like to sell your watch";J$(J$"NO"J$"N"3970)J$3(03)3670D"Would you like to buy back your tie for $50";L$J$f.J$"Y"J$"YES"3640p/3610{8CC50BOO3LV"I'm busted. Congratulations!"`jH$;I$;tH$"A flus"3750~K(K100)2080   3060 CGV03660- G035205 VC; L CG03360d (O2)(O2)3600 "Would you like to buy back your watch for $50"; J$ J$"NO"J$"N"3600 J$"Y"J$"YES"3570 3540 CC50 OO2O3350 V5 3420' Z133207 T253350? I4N "I fold."T b Z23430w "I'll see you."* KG4 SSG> CCKH PPGKR \ G3Z3350f VGKA(0)p 3480z "I'll see you, and raise you "V"." KGVT.53410+0 "No small change, please."5: 3060HD SGT03170RN 3830\X 3060kb T03200sl I3}v 3380 GTK3230 "If you can't see my bet, then fold." 3060 GGT GK3380 Z13420 G53300 Z22960h U16r H$"Full h"/| I$"ouse, "5 L B(Z)B(Z1)3010U U17c H$"Four"n I$" "t } U16 H$"Full h" I$"ouse, "  G0 "What is your bet"; T T(T)03140 K03120 G03120 & 40 2750 U122750/ B(D)627507 I6= M U112810V U11f H$"A pair"t I$" of "z  U112910 B(Z)B(Z1)2870 H$"three" I$" "" U13, 6 H$"Two p"@ I$"air, "J U12T ^ U12 U10$ B(N1)3B(N4)26204 U102600= U14M H$"Straig"Y I$"ht"e X11111r DA(N4)x ( U102 X11110< U102690F DA(N4)P H$"Schmal"Z I$"tz, "d U9n X11000x 2740 U102720 I127 B(Z)B(K)2390$ XA(Z),. A(Z)A(K):8 B(Z)B(K)EB A(K)XcL B(K)A(K)100(A(K)100)jV Kq` Zyj X0t ZNN3~ B(Z)B(Z1)2470 XX1110(ZN) DA(Z) 2760 Z X02620 B(N)3B(N3)2520 X1111 \K32160f" Spades";$p,zU09ZNN4KB(Z)B(A(Z))[ZN42230(A(Z)100)(A(Z1)100)2230UU1ZU42310X11111DA(N)H$"a Flus"I$"h,"U15 ZNN3 KZ1N4K91980"Jack";)K1020007"Queen";GK112020T"King";dK122040p"Ace";K92060K2; K(A(Z)100) K02100*" Clubs";4K12120>" Diamonds";HK22140R" Hearts";100)121740Z11840*K1Z1>A(Z)A(K)1740EKUZ101840`NA(U)nA(U)A(Z)y&A(Z)N0:ZNN4D" "Z;"-- ";N1950X" of";b2070lZ2(Z2)1920vZKB(A(Z)) *"Game rating is ";R;" = ";:5620;:G03210m"You took ";M1;" turns to find the way out,""and killed ";CA;" monsters.""HIT A KEY";:KEY$6000:1020C((1)81)D((1)81)A(C,D,2)1 $L12:K4(( WP POINTS AT 'NO' RECORD! * CL$= :N$;:"?";A$P "900:YN0280] ,PREVCURp 6A$"Y"CURRP @A$"N"CURWP J180 T ^ FOUND AN ANIMAL, IS IT CORRECT? h rR$A$: REMEMBER THE ANSWER |CL$: CLOSE THE FILEd ANIMALS PROGRAM!n ,x1460D980: INITILIZEK ` PLAY THE GAME!fpCUR1yOP$RF$;CURN$:(N$,1)"!"350RP:WP NOW HAVE QUESTION TO ASK.  RP POINTS AT 'YES' RECORD  ly passes by you, he"C "snatches . . . ";G4;" gold pieces.":N GGG4Z MA1ıy$ MA((1)41):MA2MA1. MA123808 B 460L "You search the chamber and"V 460` "you . . . . . . find a map!"j t :"You suprised t#". . . . . . empty chamber.")/Z:"There is a thief in this chamber."jA(C,D,L1)1s460G4((1)500L11):(GG4)0G4GY((1)81)Y32420". . . . . . . he suprises you."460"As he quickS1A(N,Q,L1)HS12910,2970,2930,2930,2950,2990,3010,3030,3040O NU\ Qf*11204W((1)21):W22160>H"You are in a cold and dark"R". . . . . . empty chamber."\fpz"You are in a damp and misty"ction."11206:"You are at the East wall."@1890d:"You are at the South wall."n1890:"You are at the West wall."1890:"The Dungeon of Danger-Map: Lev. ";L1Q18N18CNDQĺ"P1 ";:2060er luck next time."950$9"Another game?"R&"Enter Y)es or N)o"Z0F$v:F$"Y"J11:57::210D58:(21):(4);"RUN MENU"N:210X:"You are at the North wall."b"You cannot pass through."l v"Try another direeted,"<:G0:"and unfortunately . . . you just died."JBB5:470n:W((1)61):DY0W35370:"You lost all your gold, and you were"". . . unable to meet the demands of"". . . . . The Dungeon of Danger.":"BettT-^:"You are in East-West corridor."Rh"You can only go East or West."^r:1120d|:"You are in a North-South corridor.""You can only go North or South."1650BB2:470::DY15510"You 'Hit Points' have been deplot go up the stairway,"8"you don't have the key."I460::1120k"You are not at a stairway."z460:11201120":MA11990,"You don't have the map!"6:460:1120@:"You have ";G;" gold peices with you."J:1120(A716202(D1)01880)<DD13F1070APA61660SZ(C1)91930]dCC1gn1070uxA71620(D1)91950DD11070A61660(C1)01970CC11070:A91540K1740"You cann)ast, S)outh, W)est";"U)p, M)ap, G)old, H)it-Points"DM1$UM1M11:TL0cC1C:D1DuM1$"N"1320M1$"E"1360M1$"S"1400M1$"W"1440M1$"U"1480M1$"M"1570 M1$"G"1600M1$"H"3280:1120 1)41)1.F$" ":(8AA(C,D,L1)1B460eLA2100,4060,3580,3580,2210,2510,2560,2610,2870zVTE1TE0:1070`:H101700jDY1MDMD1tDY1MD01700~F$"R"1070A$;", what is your action or move?""N)orth, E N$(N$,(N$)1)K A$"AEIOU":"IS THE ANIMAL YOU'RE THINKING OF A";X VWL15 (A$,VWL,VWL)(N$,1)VWL5:"N"; VWL :N$;:A$ 900:YN0400 A$"Y"800   I DON'T KNOW WHAT ANIMAL IT IS, ASK HIM  / UCTURE. SINCE7 THE ANSWER TO A QUESTION MUST[ EITHER BE A YES OR NO, WE WILL TRAVERSE THE TREE EITHER LEFT OR RIGHT. IF WE DO NOT& GUESS THE ANIMAL CORRECTLY,0 WE SIMPLY GET THE NEW ANIMAL: A * APPLE COMPUTER INC. *F * *k * UPDATED: OCTOBER 1983 * *************BY WHS********   BASICALLY, THIS PROGRAM ILLUSTRATES THE USE OF A BINARY TREE STR * *Ch * ANIMALS *hr * PROGRAM THAT LEARNS *| * ABOUT VARIOUS ANIMALS * * FROM THE USER. * * * * COPYRIGHT 1978 BY *!ER10ĺ"YOUR ANIMALSFILE IS LOCKED"FER176ĺ"INPUT TOO LONG"i""HIT 'RETURN' TO CONTINUE";A$,: END THE PROGRAM6ER255ĺ"PLAYER PRESSED CONTROL-C"@"PROGRAM ANIMALS FINISHED"JCL$:T ***************************^ ER(222)'ER2551580PER7ĺCL$:1310: CREATE A NEW FILEqER3ĺ"NO DEVICE CONNECTED"ER2ĺCL$:1310: CREATE A NEW FILEER6ĺ"DISK NOT FOUND"ER4ĺ"YOUR DISK IS WRITE PROTECTED"ER9ĺ"YOUR DISK IS FULL"(ī1270 A$"N"A$"n"170%B CREATE A NEW DATA FILEH(Q2OP$\<WF$;0gF"2,4"rPWF$;1Z"DOES IT LIVE IN THE WATER":2:3dWF$;2n"!FROG"xWF$;3"!MOOSE"CL$170  ONERR PROCESSING ROUTINEANIMAL IS,";"I WILL ASK YOU A FEW QUESTIONS SO THAT"i"NEXT TIME I WILL KNOW WHAT YOUR ANIMAL"v"IS.":"DO YOU WANT TO START A NEW GAME""I.E. FORGET ALL PREVIOUS ANIMALS""ANSWER 'YES' OR 'NO' ";A$:(A$)0170910:YN0YOU ARE"8"THINKING OF. I WILL DO THIS BY ASKING"d"YOU A SERIES OF QUESTIONS ABOUT YOUR""ANIMAL, TO WHICH YOU RESPOND EITHER""YES OR NO. (ACTUALLY, A SIMPLE 'Y' OR""'N' RESPONSE IS SUFFICIENT)" "IF I DO NOT GUESS WHAT YOUR S":"GAME!"785:" **** ANIMAL LEARNING GAME ****"=BmL"DO YOU WANT INSTRUCTIONS (Y OR N)";:A$:~V(A$)0170`900:A$"N"A$"n"170j:"INSTRUCTIONS:":t"YOU WILL THINK OF AN ANIMAL, AND I WILL" ~"TRY TO GUESS WHAT ANIMAL ION SECTION &D$(4)::FRF$D$"READ ANIMALSFILE,R"gWF$D$"WRITE ANIMALSFILE,R"CL$D$"CLOSE ANIMALSFILE"OP$D$"OPEN ANIMALSFILE,L80"$"* NOTE: YOUR DISKETTE MAY NOT BE" ."WRITE PROTECTED IN ORDER TO PLAY THI %R:"WANT TO PLAY AGAIN? ";A$8\900:YN0850HfA$"Y"170NpUz z CHECK FOR YES OR NO RESPONSEYN0(A$)0ıA$(A$,1)A$"Y"A$"y"YN1:A$"Y"A$"N"A$"n"YN1:A$"N"  INITILIZAT OC:LAST1$ WF$;LAST1:Q$4 A$"Y"740H CUR:LAST:750W LAST:CURe WF$;LASTt "!"ANIM$} CL$ "I NOW KNOW ";CNT;" ANIMALS!":850   I GOT IT RIGHT!!! * 4L110::L >"I GOT IT RIGHT!!!"HER FOR A"! DANIM$;" BE";:A$4 N900:YN0570; X Z b UPDATE HEADER RECORD.a l j vOP$ RF$;0:CNT,LAST:CNTCNT1:LASTLAST2: WF$;0:CNT;",";LAST RF$;PREV:N$:OC:OW WF$;PREV:N$ R$"N"700 LAST1:OW:710::"ALL RIGHT, I GIVE UP. WHAT ANIMAL WERE"G "YOU THINKING OF";R ANIM$} :"PLEASE TYPE A QUESTION THAT WOULD" "DISTINGUISH BETWEEN A ";N$:"AND A ";ANIM$; &":";Q$: 0(Q$,1)"?"Q$(Q$,(Q$)1) ::"WHAT WOULD THE CORRECT ANSWND A QUESTION TO DISTINGUISHCD IT FROM OTHER ANIMALS, ANDhN UPDATE THE TREE STRUCTURE.rX b ORIGINAL PROGRAM IDEA:l WHO KNOWS?v  COPYRIGHT 1978 APPLE COMPUTER INC.P3UZ*d31);"HORSERACE"4x::>S(8)o"Welcome to south portland high racetrack.""Do you want directions?";X$X$"NO"310"Up to ten may play. A table of odds will be displayed. You" "may bet any + amount unL01@2$3a4 5678i9qABCDEFGH IJK ʙLMUN ݻOPQ""/RS!TDDDU V W[X fY bHZD!'`, -:_ɀ#)pJJJJ "  6  North-South corridor"@ "through a . . . . . Secret Door."L :3240R Z : "You enter an East-West corridor" "through . . . . . . Secret Door." :3240( 2 "You activated a . . . . Trap Door!"< 460, F TD((1)41)he thief . . . . ."~ 460E "as he runs out he drops . . . ."{ G4((1)400L11):" . . . ";G4;" gold pieces." "You pick up the gold peices.":GGG4 :MA1ı MA((1)41):MA2MA1 MA12380  : "You enter aYES"320d FM(I)?Z9;" PLACE HORSE # ";F;" AT ";RD(F);":1"L Z9Z91S(I^2J1Cs<Q(J)M(8)1370FNQ(J)KPW$(J);" WINS $";(RD(N))P(J)ZJ[\"Do you want to bet on the next race? "^"YES or NO: ";O$ `O$"1B !S(M(I))271240(A3M(I);:IFAAAA1ZAA1AA21205d1210sAA11000{AAA128TA"XXXX FINISH XXXX"T28720"The race results are: "Z91I811  )6 IMI I18=S(M(I))S(M(I))Y(M(I))DIMI1XL18eI18LS(M(I))S(M(I1))1090$HM(I).M(I)M(I1)8M(I1)HBILLVTS(M(8))`I18jBS(M(I))S(M(I1))tB01190~AI))S17880$ Y(M(I))S37900: *Y(M(I))S57920P 4Y(M(I))S77940f >Y(M(I))S92960u HY(M(I))7~ R970 \Y(M(I))1 f970 pY(M(I))2 z970 Y(M(I))3 970 Y(M(I))4 970 Y(M(I))5 970Y(M(I) Q(J),P(J) P(J)26704 P(J)100000690P " YOU CAN'T DO THAT!"Y 630` Jf } "1 2 3 4 5 6 7 8" "XXXX START XXXX"; I1N MI M(I)M Y(M(I))(100(1)1) Y(M(I))10860 S(RD(1).5) Y(M( V$(6)"Clickspring"3 &V$(7)"Jelly Do Not"N 0V$(8)"Night Command"Y :N18s DV$(N),,N,RD(N);":1"z NN X"----------------------------------------------------" b"Place your bets . . . Horse #, then amount." lJ1C vW$(J);"HORSE",,"NUMBER","ODDS" 5 I18:S(I)0:I> R0I A18` D(A)(10(1)1)g Ar A18 RRD(A) A V$(1)"Iron Billy" V$(2)"Ittle Do" V$(3)"Moon Lately" V$(4)"Musical Boy" V$(5)"Right Ribot"der 100,000 on one horse."R ""During the race, a horse will be shown by it's" ,"number. The horses race down the screen!" 6 @"How many want to bet"; JC T"When '?' appears, type name." ^A1C hW$(A) rA | }AA0  = `d " d i ` / H h d ` LP d / H i h s  / H i h s d` c `H c h` c `ebbb`eaace`0 `aa`a`` eWRPegfhf igg)`H)fJJffhg &g &g `栦 ` `hhHH` a`b = P h b~ )L)  R  B a`b = P h bo )е)ЭLa m oL m o     b5)6) )HL  K @L !0:L   K @P L. L IL  K@1-)N LR@)  K@ )D L LZ ` b` Ơ 赠 ` L` b LZaeb f`)` oʵ) eoo eo`8Ń ń ŃL! h`  ) 0 t ` t Lɀ)` K1: )BWELO  K @L ,-(0:Ly  K @L - L L L  栦 蕠ʩ-膠 KL@L1: S Sք Q ḀŐĥŎ ŎL`8Ńń`Ld```$8JJJJi h X ^L h X )iJJJJLa`b = P L<)i X    bLd   b eI8i   Z    bL< pƍL @ @ bL)% 8僪<;8優+L&8 8 L``")&Ŏ Q A ]``)   @  b8'0  b L  L  m oL t  t`HH``aabbhh` X0Ɗ)eL ` P~0ƊL  b    b8 tЀ~ }{hhh`  LHjSLpfq fi feqqpeffqepqfpq)8`HHHmhhh`v Tv` 0 ` `w)H ?|{{| {|h8ץw0 ` ` c ``ab  b  @ LHjPi j8 jb`aLLk`Rk`ki ila``LH ` aH``abib`exwJzjw{yzexz #wy{xiz wi(wL~#~Ѕ} }~i~C`HHH ez|{e}|e0 ) TL )0 d ) JJJJX d LH ` ` c h`   ` ` t T t`H3 8 I3 h`Ltuv`vut`L\ 1HLj8 jbhH ,` l8ll :h8`HLj i jbhH ,`8 a D a D bda`~ ` L P LI P LI P i `umvt    m 0 ` m 0 ` uvt` 0-RETUPMOC 0-REYALP :EMOH NI 4n)a`b = P n)JJJJa`b = P  X) L ` `o  o`o o`>>>NOMMAGTSAF>>>HTIW EMAG EHT TRATS OT TNAW UOY ODRO ,SLLOR FO ECNEUQES WEN A .1SUOIVERP EHT SA SLLOR EMAS EHT .2?EMAG"2" RO "1" TCELESi0`pȄpqȄqL Ya`b 4 a < Ya`b 4  /  12sqrpL5 qsp rpL5 `h hPa` b   Pa`b   Pa`b a a` L  <  `h h`L v i ` ` L  ` ` `ffg)eg#i/ iJh i` @HL9 hhjkla`b Qf%iQffjkl` L{ `Q X $% * / $ % !: / $ % \ / $ % z / $%  / $% )))L.) ?ŃL  aŃ A 2  b   bm o @ @ bL  S T  @ƍL ƍL iB TL P  ȹH TL9 P b`) h 0 ^L|) h 0 ȹ$)Lqa`b = P L i) 0  h`  iJJJJ X t ` t Lx~xx ~x)J%!x `~ @xx ~x@<1@` @p`)J@x<xp`~<xp`@xx~xx ~@x)J@A$ x ~@xx~xx<xp`~<xp`@x!Z% $` @I&  @I@i)$ @-Jx ~ xx ~@x) B x ~xx~xix ~xx~x/z=H^tx~xx `~ xH$) R*Hax~xx ~ xiKp4I$(224):I15:I$I$I$::I2$(224)"X"(224):I1$"X":I15:I1$I1$I1$:I3$": ":I14:I3$I3$I3$:_I11%(X,Y)):100=HT52F1FR:P%(19,8),107:FR20FRFR10_27:24:868:"SCORE: ";SCR;h100 CHCĺ::::"BECAUSE YOU DID NOT CATCH YOUR QUOTA OF GHOSTS, YOU HAVE LOST!!!":I117::I11300::::15:12:"G A M E O V E R"::22:4142:LE10LE10[gPK107SCRSCR800:I12:I2302001:TI,I1:I1I11:I:PK160:F11lTITI1:TI0TI10SH106:T50,20:TI1SH42:INC1qF1F11:F10ĹP%(19,8),160vY22ĹP%(X,Y),PK:Y2:PK(P%(X,Y)):100Y2ĹP%(X,Y),PK:Y22:PK(P60,65,70:PK(P%(X,Y)):P%(X,Y),RT:JU1:100JSP%(X,Y),RT:PK160620XPK186PK160:I2302025:TI,2::SCRSCR10:HTHT1:HT104800]PK42PK106TI0İ430:620bPK100PK160:INC1:TILE:LELE4:I842:I12302015:TI1,I:::SH:I123::I11200:::12:12::"GAME OVER"::22:I11000:M7000Z2010:2~I1NO:X(I)XY(I)YPKPK(I):0I(16384):I200I206ZI200DP%(X,Y),PK:Z50,55,60,65,70:PK(P%(X,Y)).NPKCOPK32PKSHJU1:Z50,55,DI%(I)1:FL%(I)1:PK(I)(P%(X(I),Y(I))):P%(X(I),Y(I)),SH:SCRSCR(((1)6)2)100:CC1:I1150151:TI1,2::CCHĢ24:12:"F";PUCPUC1:I1001605:TI,75::PUC0āI1NO:P%(X(I),Y(I)),PK(I)::P%(X,Y),PK:416368,0C24DI%(I)20,25,30,356I1((1)42):I10270DI2DI%(I)\I2I2I1:I20I24k"I25I21,I2DI%(I)I2FL%(I)2806DI%(I)I2:FL%(I)I2|:560(X(I)X)1(Y(I)Y)1ıTI1395P%(X(I),Y(I)),PK(I):X(I)20:Y(I)12:dI1NOP iY(I)22ĹP%(X(I),Y(I)),PK(I):Y(I)2:PK(I)(P%(X(I),Y(I))):390 nY(I)2ĹP%(X(I),Y(I)),PK(I):Y(I)22:PK(I)(P%(X(I),Y(I))):390 YY(I)FL%(I)12(XX(I)):390:240 XX(I)FL%(I)22(YY(I)):390:240FL%(I)20,25,30,35H:DI%(I)3::380 ! #I1(P%(X(I),Y(I)INC)):I1COI1SHI1S1ĹP%(X(I),Y(I)),PK(I):Y(I)Y(I)INC:PK(I)(P%(X(I),Y(I))):P%(X(I),Y(I)),SH:DI%(I)4::380 % 2YYJU:RT30: 7XXJU:RT60: < AXXJU:RT62: FYYJU:RT22: ,Y(I)INC)):I1COI1SHI1S1ĹP%(X(I),Y(I)),PK(I):Y(I)Y(I)INC:PK(I)(P%(X(I),Y(I))):P%(X(I),Y(I)),SH:DI%(I)2::380  I1(P%(X(I)INC,Y(I))):I1COI1SHI1S1ĹP%(X(I),Y(I)),PK(I):X(I)X(I)INC:PK(I)(P%(X(I),Y(I))):P%(X(I),Y(I)),S ";:I1PUC:24:I2:"^ ";::8:"REQ:";CH;T 24:15:"MICRO-MAN";] 100 I1(P%(X(I)INC,Y(I))):I1COI1SHI1S1ĹP%(X(I),Y(I)),PK(I):X(I)X(I)INC:PK(I)(P%(X(I),Y(I))):P%(X(I),Y(I)),SH:DI%(I)1::380  I1(P%(X(I),Y(I))) X(6)3:Y(6)14:DI%(6)1:FL%(6)1:PK(6)(P%(X(6),Y(6))):X(7)37:Y(7)10:DI%(7)3:FL%(7)3:PK(7)(P%(X(7),Y(7))):X(8)X(7):Y(8)14:DI%(8)3:FL%(8)3:PK(8)(P%(X(8),Y(8))) RT62:SH42:INC1:PK160:Z204 24:1:868: 1:24:" 2:I2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130:1:I:IN$;:24I:1:IN$;::3:5:"$":37:"$";:20:37:"$":5:"$":P%(21,12),32:IN$(I1$,9)(I3$,8)"X"(224)(160)(224)"X"(I3$,18):,IN$(I2$,2)(I$,6)(I1$,10)(224)(160)(224)(I1$,19):mIN$(I2$,2)(I3$,5)I2$(I$,9)(186)(I$,18)(I2$,2):IN$(I2$,2)(160)(I$,3)(160)I2$(I3$,26)(160)(186)(I2$,2): IN$(I2$,2)(186)I2$(186)I2$(160)(I$,7)(160).IN$I, dMC:A1717(M1O)22:A,38::AA2K nC150:C:A,38:B(QS):t xC38YO:UM:A,C:B(QS):MC:A,C B(QS):UM:A,C:UMA,CO)::UMZ CAX(XA):UM:C,Y:B(QS):MC:C,Y B(QS):UM:C,Y:UMC(XA),Y)::UMZ MC:(254 ::* *************************I**** DRAGON DUNGEON *****h* CREATED BY RAY DARRAH *(*************************2430<21:O:"SCORE=>"SC26)"MAZE EATERS=>"ME;F880:M1MN:M13M13PM1MN:M13M13 ZUMZ:MN3UMMC lost"%! "all your gold pieces."8! :PT1PT0:b! "But . . . you still have your key."h! ! "You feel into a deep . . . pit.":PT1! 460! "Luckily . . you didn't get hurt."! ! 460!" "But, in climbing out . . ."", 2720PL:TD4ĺ"You fell thru . . .":460:1720; P TD42690A Z h d "But . . . . you caught yourself"} n "from falling." x L122800 L1L11::K1 "You fell through to level 2 . . . and" G0 460 ! "you . . . . . . . . L";817::" . ";:21:" . ":20);"."::20:"M">m10:"*";::" . . . THEM . . . 200-800":10:"+";::" . . . BONUS . . . 800"10::"$";::" . . .ENERGIZER . . 50"10:": . . . DOTS . . . 10". :"REQ: THE NUMBER C)99)(Q(C)999)(Q(C)9999));Q$(C)--C5223[7"HIT ANY KEY TO CONTINUE";:KEY$a<p:::11::"M I C R 0 - M A N":::15)"BY BILL PU"::z9:">";::" . . . THE MICRO MAN"::16)"CONTROLS"::20::"I"::20:".":16::"J K RES":(4)"READ SCORES"5 C115:Q(C):Q$(C):CM(4)"CLOSE SCORES":15::"MICRO-MAN":::" 15 BEST SCORES SO FAR":C115:SP$""Q(C)0Q$(C)(95)(95)(95)#C10SP$" "&(SP$;C;"............";Q(C);5(Q(C)9)(Q(222,032,177,000,032,248,230,104,134,003,134,001,133,000 170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096(J11)5120:Q$(15),QQ(15),Q(15),QQ$(15)(4)"OPEN SCO916:P%(I,I1)1063(I19)128I::[I140:I11723:P%(I,I1)1103(I117)128I::wI166:I1:I767,I1:1013,76:1014,0:1015,3:AZ15000:9 201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,0)(I$,7)(I2$,2):eRIN$(I1$,4)(I2$,2)(160)(I2$,2)(I1$,3)(I2$,2)(160)I2$(160)WIN$IN$(160)(160)(160)(I3$,5)I2$(186)(I2$,2)(I1$,7):5115:6000I140:I118:P%(I,I1)1023(I11)128I::%I140:I1(160)(I$,6)(160)(I2$,2):b>IN$(I2$,2)(I3$,9)I2$(160)(I2$,2)(I1$,3)(I2$,2)CIN$IN$(186)I2$(186)I2$(I3$,8)(I2$,2):HIN$(I2$,2)(I$,4)(186)(I$,4)I2$(186)I2$(I$,4)MIN$IN$(160)(I$,3)(160)I2$(16(I1$,4)(IN$,4):*IN$(I2$,2)(160)I2$(160)I2$(I3$,13)I2$(I3$,5):IN$(IN$,31)(I2$,2)(I1$,2)(I2$,2)(186)(I2$,2):4IN$(I2$,2)(186)(I$,3)(186)(I$,3)(186)(I$,3)(186)(I$,7)(160)"9IN$IN$I2$(160)(I$,3)N$(I$,11)(160)(I$,6)(160)(I2$,2):IN$(I2$,2)(160)I2$(160)I2$(186)(I2$,2)(I1$,3)(I2$,2)(186)(I2$,2)IN$IN$(I1$,7)(I2$,2)(186)(I2$,2)(I1$,2)(I2$,2)(186)(I2$,2): 2060:IN$(IN$,24)"X"(IN$,26,7)),(255):16384:WH(O)4 WH32230,180,290,350K CMCMO:CMGC210o 24:O:14::"FINDING MAZES!"; :A1689617151:A,(O)4::14:25);:CMZ CSCSO:CS2CS2 60 Y(255)O:X(254)O(254)O:280::XXO Y(255)(2NNB q!ȥ q8 q i q3eeee qЙee L&&`L%0`,Y6251,CS:247,CS:250,CL:249,MC:2,BC:246,NM]4,RS:5,RS:224,NM:28,TC:3,ME:X,Y)ZXXO:YYO:920^78,(1)256:A0NMO:24:12::"WAKING THE DRAGONS!";:MX2((O)171)1:MY2((O)171)117152A,MX:17280A,MY:17408A,MX:17536A,MY::12:28);BC:AZNMO:(17152A),(17280A)::254,X:255ĭ(K$)LN(K$)GNı+RA$(13)790i\T$K$A$:(T$)GN(T$)LN((T$)((LN))(T$)LN)790}fK$T$:A$;:790pzTGZ:A2528:A,2::CL:0,380:0,3838:0,380:0,3838:7680:0,380:0,3838:0,380:0,3838:X19:Y19(K$):940,(1)256>937:(K$,A,O);::A12000::490H K$""xA$:(A$"0"A$"9")A$(13)A$(8)790 A$(8)K$""790*A$(8)(K$)OK$"":A$;:7904A$(8)K$(K$,(K$)O):A$;:790>A$(13)K$""790HA$(13)720:TCA5:23:"MAZE COLOR=>";:720:CLA::60^K$:AO(A$):K$(A$,A,O)Ă:720A$(A$,AO)(95)(A$,(A$)A):AA2:21:2A3" ";:Z:XA3A32:0,39X::AAO:SR,Z:SCHS490HSSC:24:13:K$"NEW HI-SCORE!!!":A1 9 A B C ";:34,21:"ONE SPACE AT EITHER END AND TWO SPACES BETWEEN EACH DIGITX038:(X3)3:0,39X::A$(95)"0123456789ABC"(95):23:"DRAGON COLOR=>";:720:BCA:23:"PLAYER COLOR=>";:720:MCA: :23:"TREASURE COLOR=>";:);::CS(10(K$))4plQQCS:"NUMBER OF MAZE EATERS PER MAZE=> (0-7)";:33:LN0:GN7:780:ME(K$):7);:v"STANDARD COLORS? (Y/N)";:16K$:K$"Y"K$"N"640SCZ:K$"Y"TC13:MC2:BC4:CLO:60T::" 0 1 2 3 4 5 6 7 80DA$"Y"SCZ:CSQQ:60lN:"NUMBER OF DRAGONS=>"12)"(1-64)";:20:LN1:GN64:780:NM(K$):18);X::"PLAYERS SPEED=>"7)"(0=SLOW - 9=FAST)";:16:LN0:GN9:780:24);:bRS21(K$)2:"DRAGONS SPEED=>"7)"(0=SLOW-9=FAST)";:16:780:25AGON DUNGEON":29)"CREATED BY RAY DARRAH!"k23:10:"PRESS ANY KEY TO PLAY";:12:O:"SCORE=>";SC40((HS))9)"HI-SCORE=>"HS;16384,128:A$&JSZJSO:5900:12:10:"SAME SET UP?"5)"(Y/N)";:21:A$:A$"Y"A$"N"57SCZ:NM3:CS25:CLO:ME4:RS8:CMZ:TC13:MC2:BC4:MN3@nTGZ:SR16368:A1689617151:A,(O)4:NM3:CS25:CLO:ME4:RS8:CMZ:TC13:MC2:BC4:MN3:TGZSR16368:QS16336:A1689617151:A,(O)4:::255::MN3O:14:"DR::BC:(254),(255)% |MNZ750D X,Y)ZXXO:YYO:390V 254,X:255,Yd SR,Z:80j  (768)169(769)0ĺ(4)"BLOAD DRAGON.MAZER,A$300":(4)"BLOAD DRAGON.MOVER,A$4000"  :0:0:16383:O1:GX15:Z0:GC16:SCO:SCZ:C:(254),(255):17152(246),((O)GXO)2d @17280(246),((O)GXO)2:246,(246)O:TGTGO JTGNMāA120:940,(1)256:937::MNMNO:MN4ĠMC:(MN2)217,38 T160 ^MNMNO:X19:Y19:CZ hC163:C:940,C4:(254),(255) r93755)O:280::YYO6 XX(254)OO:280::XXOR YY(255)OO:280:m 21:39:(3)" ";:160 A(QS):15:A(QS):X,Y:A(QS):Z:A(QS):X,Y:A(QS): "A(O)128128(O)128O:940,A:SCSCO:21:O ,"SCORE=>"SC;:937:. 6M8ee q  d d L@Ɉɕɍ , LAɠɛ ,,,L'A8C0}CC q+ dCC CeC dC йLCA8C0}CC q and see that"9."it contains . . . a milky liquid."?.^."Would you like a drink?"."Enter (Y)es or (N)o.":DL((1)61).D$.D$"Y"4350..:"You take a drink . . .":BB2:470:.DL34440.DL24480/H3((1)ʰ470:W((1)41):HIH14180.-JW15040<-TW25170O-^W4L125720Y-h5230}-r:"You look around . . .":460-|V((1)71)-V54250--"On the ground, at your feet, is a vial."-:BB2:470."You pick up the vial . .,W((1)91)F,460:W3ĺ:"The cavern seems empty . . .":Z,BB2:470:4500,460:"But wait . . before you proceed,":460:,""you hear a noise off in the distance.",,BB3:470,6"Cautiously, you walk towards the sound." -@BB3:r",3,6+ "Black Cat",2,4;+ "Man Eating Plant",1,2M+ "Hydra",3,6i+ "Gelatinous Cube",2,4+ "Giant Centipede",1,2+ "Giant Rat",2,4+ "Shadow",2,4+"You stumbled onto . . . . "+"a hidden cavern.":460,:4210:H10ı "Giant Fire Beetle",1,20*( "Giant Ant",1,2G*2 "Giant Tick",2,4Y*< "Mummy",3,6o*F "Nasty Orc",2,4*P "Skeleton",1,2*Z "Troll",3,6*d "Goblin",3,6*n "Vampire Bat",3,6*x "Creeping Blob",3,6* "Mad Dog",2,4+ "Large Spide Worm",6,12') "Deadly Cobra",5,10<) "Mad Elf",5,10Q) "Clay Man",4,8j) "Hairy Beast",5,10) "Mad Dwarf",4,8) "Zombie",4,8) "Berserker",5,10) "Giant Scorpion",6,12)  "Giant Cockroach",4,8) "Doppleganger",5,10*ng . . ."4(V" . . . in this chamber . . .":460Y(`" . . . . . . . . beware,":460_(j(t"it is a . . . . . ";MS$;" .":460(~4510( "Large Dragon",6,12( "Hideous Ghoul",5,10( "Lizard Man",4,8( "Manitcore",6,12 ) "Purpleteleported"1' "to an unknown location . . ."A' BB5:470:O' AA1300b' "* %";j' AAw' 460::' A43600'W((1)151):3610'W((1)151)15'AA1W'$MS$,HP,HM'.AA'8'B (L"There is something lurkiren't careful . . .":460M& "You activated some sort of trap . . .":460y& C((1)81):D((1)81):BB5:470:& "Suddenly, you feel dizzy, and pass out."& :BB2:470:3540& "When you wake up . . . you find" ' "that you were . . . . "in this corridor . . .":460-%4 :3680;%> TE1:TL1I%H K13460x%R K1::"You notice a shiny object . . . ."%\ ". . . at your feet.":460%f "You pick it up and find that . . ."%p "it is the Enchanted Key . . . .":460&z :"But, you wees and locks behind you.":460=$ W((1)81):W73300Y$ W((1)81):W83390_$ $ :"You have ";H1;" 'Hit Points(s)' left."$ 1120$ W((1)41)30$ AA1W$ MS$,HP,HM$ AA$ $ $ "There is something lurking"!%*0 # 1030# #& 460$#0 K1J#: :"You look to the ground . . ."m#D "and find the Enchanted Key!"v#N 460|#X #b 3120#l 1230#v CACB3110# # "You killed ";CA;" monsters"# ". . . . in ";M1;" turns."# $ "The door clos"6 "You are at a stairway,":"@ " . . . . . going up."@"J F"T S"^ "O ";Y"h f"r "M ";l"| y" "? ";" " "C ";" " "NS ";" " "EW ";" " 2950" "UP ";" " H1:O9:W8" B0:E5:R14# C0:PRک dCC  dCCeC L@C ݀CLAc&_Y&U d?ʽDD ʥDLA݀DDʝD轀DʝD`L@@`61)PL:H1H1H3A/&"You feel a little funny . . .":460:460N/0H10ıu/:"It was Black Magic Potion . . ."/D"which decreased you 'Hit-Points' by ";H3/N/XH3((1)10PL1)(6PL):H1H1H3/b"It was White Magic Potion . . ."(0l"which increased your 'Hit-Points' by ";H3.0vV0"The liquid had no effect on you."\0i0460::}0:W((1)41)0W245400460:47800H10ı0:"Will you (F)ight or (R)un ?"0F$:0F$"F"46000F$"R"47001454(A$"P")(A$"p")(A$" ")(A$(13))1330MP(A$"P")(A$"p")ĺ"P";UZ rd -REPEAT UNTIL CORRECTzn x18:2:" CORRECT? Y/N ";P$18:2:BL$(P$"N")(P$"n")1450109015:8:" "  (A$)271100*23:"MM";:23JA$:(A$"0")(A$"5")1230\MI(A$):A$;|A$:(A$"0")(A$"9")1230MI10MI(A$):A$; MI591230  -GET AM OR PM( 2(A$)271100<270FA$:(A$"A")(A$"a"):"ENTER TIME: HH:MM AM";$V >` -READ HOUR INTO HHFj Yt20:"HH";:20y~A$:(A$"0")(A$"1")1140HH(A$):A$;A$:(A$"0")(A$"9")1140HH10HH(A$):A$;HH12HH11140  -READ MINUTE INTO MI(A$"0")(A$"9")960*YY(A$):A$;IA$:(A$"0")(A$"9")960`YYYY10(A$):A$h  -REPEAT UNTIL CORRECT 18:" CORRECT? Y/N ";$A$.18:2:BL$8A$"N"A$"n"700B13:8:" "L15:8\A$:(A$)96A$((A$)32)6fM1$M1$A$::MM4TpM1$(MO$,MM,COUNT)ī910lzMMMM3:MM39ī880u840A$;:COUNTCOUNT1:COUNT4ī860MM(MM1)3  -READ YEAR INTO YY (A$)2770027:"YY";:27A$: INTO DD  % 20:"DD";:20D A$:(A$"0")(A$"3")750V DD(A$):A$;u A$:(A$"0")(A$"9")750 DDDD10(A$):A$; DD31DD1750 * 4 GET MONTH INTO M1$ > H(A$)27700R23:"MMM";:23:COUNT1:M1$""!;":"; bMI10ĺ"0";! lMI;3 vPM1ĺ" PM"E PM0ĺ" AM"M 18{ " UPDATE SYSTEM DATE AND TIME? Y/N "; A$ 18:2:BL$ A$"N"A$"n"āA11000:A:1610 12: " ENTER DATE: DD-MMM-YY";   -READ DAY - PRINT DATE AND TIME #  ? " DATE: ";[ DD0ĺ"":560l DD10ĺ"0";y DD;"-"; MM$;"-"; YY10ĺ"0"; &YY 0 :" TIME: "; DHH12MI0DD0ĺ"":650 NHH10ĺ"0"; XHHMM$(MO$,MM31,3) J 7 T - READ SYSTEM TIME? ^ O hMI(49042)_ rHH(49043)g |  - CONVERT 24 HOURS TO 12  HH11PM1 HH12HHHH12 HH0HH12 " THE CURRENT SETTINGS ARE:" :   MAYJUNJULAUGSEPOCTNOVDEC"! / S1$:S2$^ "* SYSTEM DATE AND TIME UTILITY *"l S2$:S1$t 10|   - READ SYSTEM DATE  "DD(49040)((49040)32)32 ,YY((49041)2) 6MM((49041)YY2)8((49040)32) @ dD$(4)/nFALSE0:TRUE1:APPLEIIEFALSE:x(21)D1860N2510TBL$" "S1$"***************************************"S2$"* *" MO$"???JANFEBMARAPR01::46061"You attack the . . . ";MS$:460Y1 "with a swing of your sword."1N((1)51)((1)CA21):HMHMN1 HM048901*"You do ";N;" 'Hit-Point(s)' of damage."14:4601>"It has . . ";HM;" 'Hit-Point(s)' left."2H:4 -UPDATE SYSTEM DATE" 949041,YY2(MM7)WMM7Ĺ49040,(MM8)32DDqMM8Ĺ49040,MM32DDy  -UPDATE SYSTEM TIME (24 HOUR CLOCK) HH12HH0A$"P"A$"p"HHHH12"49043,HH:49042,MI",:18:" SYSTEM DATE AND TIME UPDATED":O6" (DOES NOT SET CLOCK/CALENDAR CARDS)"`@A11000:AjJ2530pDN IDENTIFY MACHINE TYPEX]MACHID(49048):b15:TI$"Apple //e":MACHIDMACHID128:APPLEIIETRUE:1940 (4);"PREFIX":m.":460<BB2:470:<<R400ĺ"Incompetent Serf":V<R100ĺ"Weakling":o<R0ĺ"Apprentice":<R100ĺ"Halfling":<R200ĺ"Foot Soldier":<&R600ĺ"Warrior":<0R900ĺ"Great Warrior":<:R1500ĺ"Swordsman":=DR2500oves.";17201;"Enter difficulty level."Q;"1=Moderate 2=Difficult"];PL::p;TL0:BB2:470;"You reactivated the teleportation trap.";BB2:470:3540;"You end up back in the area where" <". . . . you last teleported fro . . . you have one more"9:@"chance in the Dungeon."[:J:MD((1)151)CA10:H1HI~:T"You shall have ";MD;" moves":^"left to find your way out":h"of The Dungeon of Danger.":rBB9:470:|3540:1110;A$;", you have depleted your m. . . . . . . . it misses!":BB2:470-9L9BB2:470:3540:DY1:H1HIo9"You have entered . . a zone"9"between . . life and death."9:BB3:4709":"I . . . . the Ancient Wizard,"9,"will restore your 'Hit-Points' to ";HI:6"and .;",":46018"and I will hack you to pieces!"?8BB2:470I84530w8:"Suddenly . . . something jumps . . ."8"in front of you . . . . . . ."8BB3:470:88460:"As you leave,"8"The ";MS$;" attacks . .":460'9460:"but . 7(72529047<MS$"Giant Spider":HP6:HM12Z7F"It's a huge man-sized crawling"7P". . . . . . . Spider . . .":4607Z". . . . . . . . . and . . ."7d45307n52907xMS$"Dark Wizard":HP8:HM14: 8"Do not pass . . . I am the ";MS$0:460,6:G4((1)3001)100:GGG4:W6"I give you . . . ";G4;" gold pieces"6"out of good will and friendship."66H4((1)10PL1)(6PL):H1H1H46 "Also, I will increase . . ."6"your 'Hit-Points' by . . . ";H4;"."7460GG4:460-5t"You search the area . . . "\5~460:"and find . . . ";G4;" gold pieces."o5CACA1:K1ı~5L1131905CAK4311055460:460552905"Halt . . . I am the Ancient Wizard."6"I will not harm you . . . . . .":46ge.":4:"You have . . . ";H1;" 'Hit-Point(s)' left."B4:M4:460q4$"You have killed the ";MS$;"."w4.48A(C,D,L1)649504BA(C,D,L1)249504LA(C,D,L1)14VG8500:A(C,D,L1)6G82504`G4((1)G8L11)75:A2G4G42 5jG0:3:W((1)71)G3". . . . . . It attacks you,":W25350d3W((1)61):W348303N((1)HPL11)((1)HPL11)348403N((1)HPPL1)3HM2N13H1H1N:460:H10ı4"and it does ";N;" 'Hit-Point(s)' of dama602R4530*2\W((1)41):CC1:DD1V2f"You quickly run out . . .":TL15560}2pN((1)21):BB2:470:W353302zH1H1N2"As you leave, the ";MS$;" attacks ":4602H10ı2"and does ";N;" 'Hit-Point(s)' of damage."3BB3:47$"t"ī160& P$"M"P$"m"2550< (4)"RUN MENU":PR$$ D$(4):IN6:UP11:C$" "* H 8::"YOUR OPTIONS ARE:"n( IN:UP8:"T - DISPLAY/SET TIME"2 IN:UP10:"M - GAME MENU"< 22::"PLEASE SELECT ONE OF THE ABOVE ";:32:C$;:32:P$F P$" "P$"~"C$P$:C$; n P$"T"Pĺ"Magic Swordsman":8=NR2500ĺ"Dungeon Master":d=X:"You fall into a deep . . dark":460=b". . . . pool . . of murky water.":BB4:470=lW((1)61)::W55780=vW35860="It is warm and soothing . . and":BB2:470#>"you climb out . . feeling relaxed."::G>MS$"Gill Monster":HP8:HM12:w>"The water is . . . icy cold.":BB5:470:>"Suddenly, you feel something warm">"rub against your legs.":BB4:470:>"It then surfaces next to you,"?"and you see arrived at . . . ." 380 PRINT 390 PRINT "The Dungeon of Danger . . . Level 2." 400 PRINT 410 PRINT "You will encounter monsters, thieves," 420 PRINT "and gold . . . Good Luck!" 430 BB = 6 440 GOSUB 470 450 GOTO 1030 460 BB = 1 470 FOR ZZ = 1 TO 9t-Point' value is ";H1;".": GOSUB 460 310 PRINT "If it reaches zero, you will die" 320 PRINT ". . . . . . . so be careful!" 330 PRINT : GOSUB 460: PRINT A$;" . . you are on your way!" 340 BB = 5: GOSUB 470 350 GOSUB 500 360 HOME 370 PRINT "You have :M1 = 1:K = 0:HI = 20 + INT ( RND (1) * 15 + 1):HI = INT (HI / PL) 250 H1 = HI: PRINT "Enter your characters name: " 260 INPUT A$ 270 GOSUB 460 280 PRINT : PRINT "You carry a magic sword" 290 PRINT "and 500 gold pieces with you." 300 PRINT "Your 'HiPLE //e" 130 PRINT 150 PRINT "A FANTASY GAME" 160 BB = 2 170 GOSUB 470 180 HOME : DIM A(9,9,2) 190 PRINT "You will be teleported to..." 200 PRINT 210 PRINT "The Dungeon of Danger" 220 PRINT :DY = 0:MD = 1 230 GOSUB 5530 240 MA = 0:CA = 0:G = 500: PRINT "and only then, hit the key marked": PRINT "'Return' on the right hand": PRINT "side of the keyboard. Make sure you": PRINT "only hit it once.": PRINT : PRINT 85 INPUT "HIT RETURN";W$ 100 HOME 110 : PRINT "THE DUNGEON OF DANGER" 120 PRINT "AP SP$ = " " 66 PRINT SP$;C;".............";Q(C); SPC( 5 - (Q(C) > 9) - (Q(C) > 99) - (Q(C) > 999) - (Q(C) > 9999));Q$(C) 67 NEXT C 68 VTAB 23 70 PRINT "HIT ANY KEY TO CONTINUE";: GET KEY$: RETURN 80 HOME : PRINT "Whenever you type something in, then," PRINT CHR$ (4)"CLOSE SCORES" 62 PRINT : HTAB 15: FLASH : PRINT "HIGH SCORES": NORMAL : PRINT : PRINT " 15 BEST SCORES SO FAR": PRINT 63 FOR C = 1 TO 15:SP$ = "" 64 IF Q(C) = 0 THEN Q$(C) = CHR$ (95) + CHR$ (95) + CHR$ (95) 65 IF C < 10 THEN% CORES"BC115BQQ(C)+BQQ$(C)2B$CJB.(4)"CLOSE SCORES"PB8ZBB::BL"SORRY, YOU DIDN'T MAKE HIGH SCORE."BV"PLEASE TYPE YOUR NAME! ":QQ$(C):QQ$(C)""QQ$(C)"???"mA"YOU NOW ARE ONE OF THE 15 BEST PLAYERS!"wA6080AQQ(C)Q(C):QQ$(C)Q$(C)ACA6120AQQ(C)Q(C1):QQ$(C)Q$(C1)ACAO06210A(4)"OPEN SCORES"B(4)"WRITE S"you drop . . . ";G4;" gold pieces,"\@ "which fall into the pool . . lost.":BB5:470:f@pO0:r@zC115@RQ(C)6070@O16100@O1:QQ(C)R@::@" C O N G R A D U L A T I O N S "@"YOUR SCORE IS ONE OF THE BEST SO FAR.">Athat it is a slimy . ."L?". . . ";MS$;" . . ready to attack!"BB2:470w?:"As you climb out . . .":460:4530?"The water is steaming . . . . HOT!":BB3:470?:"As you quickly jump out,"?G4((1)5001)100:(GG4)0G4G&@GGG4:09 * BB 480 NEXT ZZ 490 RETURN 500 FOR X = 1 TO 8 510 FOR Y = 1 TO 8 520 FOR Z = 1 TO 2 530 A(X,Y,Z) = INT ( RND (1) * 7 + 1) 540 NEXT Z 550 NEXT Y 560 NEXT X 570 H = INT ( RND (1) * 3 + 1) 580 FOR A = 1 TO 2 590 FOR N = 1 TO H 600 X = INT ( RND (1) * 8 + 1) 610 Y = INT ( RND (1) * 8 + 1) 620 A(X,Y,A) = 8 630 NEXT N 640 NEXT A 650 S = INT ( RND (1) * 4 + 1) + 2 660 FOR A = 1 TO 2 670 FOR N = 1 TO S 680 X = INT ( RND (1) * 8 + 1) 690 Y = INT ( RND (1) * 8 + 1) 700 A(X,Y,A) = 9 710 NEXTM" THEN 1570 1290 IF M1$ = "G" THEN 1600 1300 IF M1$ = "H" THEN 3280 1310 PRINT : GOTO 1120 1320 IF A = 7 THEN 1620 1330 IF (D - 1) = 0 THEN 1880 1340 D = D - 1 1350 GOTO 1070 1360 IF A = 6 THEN 1660 1370 IF (C + 1) = 9 THEN 1930 1380 C = C + 1 139INT "U)p, M)ap, G)old, H)it-Points" 1200 INPUT M1$ 1210 M1 = M1 + 1:TL = 0 1220 C1 = C:D1 = D 1230 IF M1$ = "N" THEN 1320 1240 IF M1$ = "E" THEN 1360 1250 IF M1$ = "S" THEN 1400 1260 IF M1$ = "W" THEN 1440 1270 IF M1$ = "U" THEN 1480 1280 IF M1$ = "OTO 1070 1120 PRINT : IF H1 < = 0 THEN 1700 1130 IF DY = 1 THEN MD = MD - 1 1140 IF DY = 1 AND MD = 0 THEN 1700 1150 IF F$ = "R" THEN 1070 1160 PRINT A$;", what is your action or move?" 1170 PRINT 1180 PRINT "N)orth, E)ast, S)outh, W)est" 1190 PR1) * 8 + 1) 1040 D = INT ( RND (1) * 8 + 1) 1050 A(C,D,2) = 1 1060 L1 = 2:K4 = INT ( RND (1) * 4 + 1) + 1 1070 F$ = " ": HOME 1080 A = A(C,D,L1) 1090 GOSUB 460 1100 ON A GOSUB 2100,4060,3580,3580,2210,2510,2560,2610,2870 1110 IF TE = 1 THEN TE = 0: G ";R;" = ";: GOSUB 5620 990 PRINT : IF G < = 0 THEN 3210 1000 PRINT "You took ";M1;" turns to find the way out," 1010 PRINT "and killed ";CA;" monsters." 1012 PRINT "HIT A KEY";: GET KEY$ 1015 GOSUB 6000: GOTO 1020 1020 RETURN 1030 C = INT ( RND (&&8%I(69)11565:I(70)11565:I(71)0,&'d2`"(4)"WRITE SCORES"$"C115/"QQ(C);"QQ$(C)B"CZ"(4)"CLOSE SCORES"d"7155n"::""Well you didn't make high score."""Keep trying!""::"Another game? ";N$"N$"N"İ5120::(4);"RUN MENU"#J11:5115:2010:so far!"N!"Please type your full name! ":QQ$(C):QQ$(C)""QQ$(C)"???"}!"You now are one of the 15 best players!"!7070!QQ(C)Q(C):QQ$(C)Q$(C)!C!7090!QQ(C)Q(C1):QQ$(C)Q$(C1)!C!O07140"(4)"OPEN SCORES"OF THEM WHICH YOU MUST":14)"EAT PER BOARD"4 c 7);::"INITIALIZATION IN PROGRESS";::o XO0::{ ]C115 bSCRQ(C)7065 lO17080 qO1:QQ(C)SCR v:: {"C O N G R A T U L A T I O N S" !"Your score is one of the best ound your way . . ." 900 PRINT ". . . out of The Dungeon of Danger." 910 PRINT 920 PRINT "You have acquired ";G;" gold peices." 930 GOSUB 950 940 GOTO 1810 950 GG = G + 1 960 R = INT ((GG * CA - 7000 + 1) / M1) 970 PRINT 980 PRINT "Game rating is 820 810 GOTO 850 820 H1 = HI 830 PRINT "You feel stronger . . .": GOSUB 460 840 PRINT "Your 'HIT POINTS' are restored to ";HI;"." 850 PRINT :CB = CA + K4 860 PRINT "You are at . . . . . Level 1." 870 BB = 4: GOSUB 470 880 GOTO 1070 890 PRINT "You f N 720 NEXT A 730 RETURN 740 L1 = L1 - 1 750 PRINT "You walk up the stairway." 760 GOSUB 460 770 PRINT "The Enchanted Key . . . opens the lock." 780 GOSUB 460 790 IF L1 = 0 THEN 890 800 MA = 0:K = 0:K4 = INT ( RND (1) * 4 + 1) + 1: IF H1 < HI THEN0 GOTO 1070 1400 IF A = 7 THEN 1620 1410 IF (D + 1) = 9 THEN 1950 1420 D = D + 1 1430 GOTO 1070 1440 IF A = 6 THEN 1660 1450 IF (C - 1) = 0 THEN 1970 1460 C = C - 1 1470 GOTO 1070 1480 HOME : IF A < > 9 THEN 1540 1490 IF K = 1 THEN 740 1500 PRIN