L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[22,21: SMILE$0: BLACKJ$16,17:22,17:15,18:21,18:17,18:23,18P$j$ PORTRAIT VALUE LOSSq$"9$,18,2021:17,22:21,22:16,23:22,23$60$@16,18:22,18:15,17:17,17:21,17:23,17$J$d SKY SUBROUTINE%nI715:6,32I:2513#12,1414:24,26145#12,1415:24,2615M#12,1316:25,2616_#12,17:26,17e#z#P ERASE FEATURES#Z11: PINK#d17,2122:16,1717:21,2217#n# PORTRAIT VALUE GAIN#9: ORANGE $18,2023:17,22:21,22:16,21:(23(1)7) "Y(21(1)8)7"X,X(3(1)1)YP"Y,Y(2(1)1)X1W"I]"w"h ABSTRACT VALUE LOSS"r5: GRAY"|I730:6,32I:I:"16,229"16,1910:21,2210"15,1911:21,2311"14,12:24,12#13,1413:24,!$0:7165: BLACK WINDOW7!.0:7180: BLACK BUSHESP!80:6750: BLACK SUNi!B5:7200: GRAY PATHo!G! ABSTRACT SUBROUTINE!15:I730:6,32I:I: BACKGROUND(WHITE)!I1100!TU(14(1))1: EXCLUDES BLACK & WHITE!TU "X 4:7180: BUSHES( 5:7200: PATH< 13:6750: SUNB Z SECOND SCENE LOSSr 5:6500: GRAY SKY 15:6550: WHITE GRASS 0:7100: BLACK CHIMNEY 0:7110: BLACK ROOF 5:7140: GRAY HOUSE 0:7155: BLACK DOOR 9:10,8:14,8:10,14:14,14@ 7:10,8:14,8:10,14:14,14G IM kH SECOND SCENE SUBROUTINE~R 7:6500: SKY\ 12:6550: GRASSf 1:7100: CHIMNEYp 2:7110: ROOFz 3:7140: HOUSE 8:7155: DOOR 9:7165: WINDOW500: GRAY SKY*0 15:6550: WHITE GRASSF: 0:6600: BLACK LEAVES`D 0:6700: BLACK TREEyN 0:6750: BLACK SUNX 5:6800: GREY PATHb  SCENIC VALUE HIGH I165 9:11,9:13,9:11,13:13,13 7:11,9:13,9:11,13:13,13 17,2122 EYES 05 16,1717:21,2217; \ SCENIC PAINTING SUBROUTINEo 7:6500: SKY 12:6550: GRASS 4:6600: LEAVES 8:6700: TRUNK 13:6750: SUN 5:6800: PATH  SCENIC VALUE LOSS& 5:6 X26:I01:18,20XI:I1) CX(14(1)1)B* CX13ī2345J+ CXi. X28:I02:10,28XI:I` HAIR AND FEATURESj HA(4(1)1)o HA1Ġ0:5020t HA2Ġ1:5020~ HA3Ġ13:5020 HA4Ġ5:5020 MOUTH 9: ORANGE CY7 HI023:6,32YI:I6 FACE SUBROUTINEE11: PINKS16,2210a15,2311o14,2412}13,251312,261512,2614X16:I04:10,28XI:I12,262112,2622 13,2523 14,2424 15,2325B0:VC0+"VALUE APPRAISED AT $";VA;"."1M SUBROUTINE FOR FRAMESiX2:I04:2,36XI:IX31:I04:2,36XI:IX2:I03:7,34XI:IX33:I03:7,34XI:I 4--BACKGROUND FOR PORTRAIT SUBROUTINE>15: WHITE1İ5200DE(Z)1İ5300.IE(Z)2Ġ9:2000CNE(Z)3Ġ9:6750USE(Z)3İ3200jXE(Z)5Ġ9:6750|ZE(Z)5İ3200]E(Z)4Ġ9:2000_E(Z)6Ġ9:2000bl VALUE BASED ON PRICE RANGEvVV((P.5S)(P)(P.5S))3VA(VV):VE(Z)6İ9000* EQUAL WORTH>VAYB:VB0:VC0Db"YOU PAID A FAIR PRICE."hy WORTH MORE"YOU MADE A REAL BUY!"K(3(1))2:VAKYB:VB0:VC0&"IT'S WORTH ";K;" TIMES WHAT YOU PAID: $";VA;"!":E(Z)а7000 h-i"HIT RETURN TO CONTINUE.";I$6j:ZQr WORTH=1/2 SUBROUTINEg|VAYB2:VB0:VC0m"IT'S WORTH ONLY HALF THE PRICE!"E(Z)1İ5200E(Z)1İ5400E(Z)2İ4200E(Z)3İ3100E(Z)4İ8580E(Z)5İ3550b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵START GAME.";I$4 !4!?44! STILLIFE (FLOWERS) SUBROUTINEZ4>!15:8600: BACKGROUNDo4H!8:8620: TABLE4R!6:8640: VASE4\!11:8760: LG & SMALL FLOWERS4f!1:8700: MID FLOWERS & CENTERS OF LG FLOWERS4p!12:8810: LEAVES4z! 5! FLOAST ONE" 3 "AUTOMATICALLY.":N3 3)"ANY PAINTING YOU CHOOSE NOT TO SELL"}3 "WILL BE ADDED TO YOUR TOTAL ASSETS (IN "3 "TERMS OF ITS REAL VALUE, WHETHER YOU"3 "KNOW ITS REAL VALUE OR NOT)":3!3)"GOOD LUCK!"3!:4!"HIT RETURN TO ILL BE TOLD HOW MANY BIDS THERE"P2 "ARE, AND WILL BE GIVEN THE AVERAGE VALUE"2 "OF ALL THE BIDS AT THE OUTSET. YOU WILL"2 "THEN BE ASKED TO CONSIDER EACH BID IN"2 "TURN. YOU WILL HAVE TO SELECT ONE OF"3 "THESE BIDS OR IT WILL GO TO THE L OF THE APPRAISAL, YOU MAY, IN YOUR"R1 "IGNORANCE, SELL THE PAINTING OR NOT AS"g1 "YOU PLEASE.":1 "HIT RETURN TO CONTINUE.";I$1 :::1 3)"IF YOU CHOOSE TO SELL A PAINTING, YOU"1 "WILL BE OFFERED FROM 1 TO 5 BIDS ON IT." 2 "YOU WWORTH LESS THAN YOU"D0 "PAID FOR IT, IT MIGHT BE WISE TO SELL IT"r0 "AND TRY TO RECOUP YOUR LOSS. OR, IF IT"0 "IS WORTH MORE THAN YOU PAID, YOU MAY"0 "WELL CHOOSE TO HOLD ON TO IT."0 :3)"IF YOU DO NOT CHOOSE TO KNOW THE RE-"$1 "SULTSRAISED AS TO ITS"?/q "REAL WORTH. YOU MAY DECIDE IF YOU WANT"Z/v "THIS INFORMATION.":/{ 3)"IF YOU ELECT TO BE TOLD THIS VALUE"/ "AND THE PAINTING TURNS OUT TO BE A FOR-"/ "GERY, YOU MAY NOT LEGALLY SELL IT. HOW-"0 "EVER, IF IT IS JUST BEYOND THE"3.N "SCOPE OF THE IMMEDIATE BIDDING)"b.S 3)"YOU MAY SPEND UP TO 3 TIMES THE MAX-".X "IMUM RANGE GIVEN FOR A PAINTING.":.] "HIT RETURN TO CONTINUE.";I$.b :::.g 3)"AFTER YOU BUY A PAINTING,IT WILL"/l "AUTOMATICALLY BE APPTBID"4-0 "THE COMPUTER WHICH REPRESENTS FROM 1 TO"N-5 "3 OTHER BIDDERS.":}-: 3)"WHEN A PAINTING IS OFFERED FOR SALE,"-? "3 NUMBERS WILL BE GIVEN TO REPRESENT THE"-D "MEAN AND RANGE OF THE BIDS FOR THAT PIC-" .I "TURE (WHICH MAY NOT BE VALIDSUBROUTINE FOR INSTRUCTIONS3, 14)"INSTRUCTIONS"e, ::3)"YOU WILL BE GIVEN THE CHANCE TO BUY", "AND SELL UP TO 5 PAINTINGS.":,! 3)"YOUR OBJECTIVE IS TO MAKE AS MUCH OF",& "A PROFIT AS YOU CAN.":-+ 3)"TO BUY A PAINTING , YOU MUST OUINE (L)+Y,Y6X:,+ VERT LINE (MID)=+Y,Y6X2:P+ VERT LIN (R)a+Y,Y6X4:v+ DIAGONAL FOR R+X2,Y4:X3,Y5:X4,Y6:+ DIAGONAL FOR N+X1,Y1:X2,Y2:X3,Y3:+ 1/2 VERTICAL (TOP R)+Y,Y3X4:, ,1425:27,3125:26,3026:27,2927**5*  PATHt**15,1825:13,1926:12,2027:11,2128:10,2229:9,2330z*,*@ LETTER SUBROUTINES*J TOP BAR*TX,X4Y:*^ CROSS BAR*hX,X4Y3:*r BOTTOM BAR*|X,X4Y6:+ VERT L6,14:15,1715:14,1816:13,1917:12,2018G)I1924:12,25I:I:R) DOORm)I2024:15,16I:I:z) WINDOW)I2023:23,24I:I:)  BUSHES)10,21:28,21:9,1222:13,22:27,2922)10,1323:26,3123:8,1424:25,3024$*95:25,25C(12,26:26,26:11,27:27,27:10,28:28,28:9,29:29,29I(W( CHIMNEYk(19,10:19,11:v( ROOF(17,2012:16,2113:15,14:14,15:17,2214:18,2315(13,16:19,2416:12,17:20,2517:11,18:21,2618(( HOUSE,)1R FORGERY']0S'b19,19:18,18:20,18:17,17:21,17:16,16:22,16:15,15:23,15'l14,14:24,14:13,13:25,13:12,12:26,12:11,11:27,11'v10,10:28,10:9,9:29,9'18,20:20,20:17,21:21,21(16,22:22,22:15,23:23,23:14,24:24,24:13,2"&623,18:I1925:22,23I:I:7&^ SUN SUBROUTINEh&h12,9:11,1310:10,1411:11,1312:12,13:~& PATH SUBROUTINE&11,3230:12,3229:13,3228&14,3227:15,3226:16,2125:24,3225&24,3224:25,3223:28,3222& 'X X OVEI:% GRASS SUBROUTINE5%I1630:6,32I:I:M% LEAVES SUBROUTINEk%23,9:22,2410:21,2511%21,2712:20,2813:19,2814%18,2915:18,2816:17,2717%16,1918:21,2218:17,1819%21,19:18,20%&, TRUNK SUBROUTINEK(Q)R2430'I(S1)I(S1)K(Q)Q" YOU HAVE KILLED"K(Q)" INDIANS"::qI(1)I(2)I(3)I(4)01620xQ1210 TO MOVE MEN:"DO YOU WANT TO MOVE MEN OR CANNONBALLS?""(1=MEN 2=CANNONBALLS)";MM0205M*' * *9 ' * PAUL BRAUN *U ' * & *q ' * GEOFFREY GENZ * ' * * ' * AGES 15 & 14 *' * *' ********************* A3,50:244,51253,51:244,56251,56:244,57251,57:244,62253,62:244,63253,63Uu' ' *********************' * *' * BOXED-IN *' * *' * BY 39,52239,53:240,52240,53:233,50238,50:233,51238,51:231,52231,55:232,52232,55:233,56238,56:233,57238,57:239,58239,61240,58240,61:233,62238,62:233,63238,63:231,60231,61:232,60232,61O244,50244,63:245,50245,63:244,5025PUSHED WILL CHANGE COLOR."::"PUSH SPACE TO CONTINUE";:A$:}~205,50205,63:206,50206,63:205,62214,62:205,63214,63218,52218,61:219,52219,61:226,52226,61:227,52227,61:220,50225,50:220,51225,51:220,62225,62:220,63225,6321100j:16:"BOXED IN":16)"--------"::"THE PURPOSE OF THIS GAME IS TO LIGHT UP ALL OF THE OUTSIDE BOXES AND KEEP THE CENTER BOX UNLIT. PUSHING CERTAIN "=t"NUMBERS LIGHT AND UNLIGHT CERTAIN BOXES.GUARENTEED THE NUMBER BOX AS THE NUMBER YOU 28: 10XC0164+YC8285;MCYCYC3KXC,XC2MCYMC,YC,XC`6pXC21374YC8285 MCYCYC3XC,XC2MCMC,YC,XC':12:9:"HAVE A NICE DAY ";N$7:20,17:XPES8<"$12,1420:11,1521:12,1622:13,1523:15,24:V<,$ PURPLE GRAPE HIGHLIGHTS<6$13,20:14,21:12,21:13,22:15,22:14,23:<@$ GREEN GRAPESX12:15)"*"55)"*":XH15)"*";32)M(3);55)"*"R15);:X141:"*";:XW\32)I(3)a32)F(3)),,M(X),C(X):X':"TOTALS",I,,M,C1<::"YOU HAVE:"e7)B"BULLETS":4)"AND"D"DAYS LEFT": PRINTS THE LAYOUT OF THE FORT:::32);F(1)32)I(1) 15);:X141:"*";:X15)"*";32)M(1);55)"*"X12  C(C3)X205! FOR STATUS2D3DD.3::^" S T A T U S R E P O R T ":"SIDE#","# OF INDIANS",,"#OF MEN"," # OF CANNONBALLS"II(1)I(2)I(3)I(4)MM(1)M(2)M(3)M(4):X14:I(X)1F(X)0XX14X,I(XNOW HAS "M(S2)" MEN"D1700:W TO MOVE CANNONBALLS lX"FROM CANNON ";C2:"TO CANNON ";C3:C20205z]C30205b" HOW MANY BALLS";X:X0205lXC(C2)ĺ" THERE ARE ONLY "C(C2)" BALLS THERE!!"vXC(C2)610C(C2)C(C2)XC(C3)2600"HOW MANY MEN?";N0N0205:DD.3h"FROM WHERE";S1:"TO WHERE";S2:S10205:S20205M(S1)Nĺ" YOU DON'T HAVE THAT MANY MEN "!M(S1)N530&M(S1)M(S1)N:M(S2)M(S2)N0" SIDE";S1" NOW HAS "M(S1)" MEN":" SIDE "S1" ,XM2YMI:I0\XM,YM2:XM1,YM5:XM3,YM5Cf1: RED MOUTHRpXM2,YM1hz10: GREY SHIELDI24:XM3,XM4YMI:I15:XM,YM3: REMOVE HUMAN'S HAND HUMAN SUBROUTINE 9: ORANGE FLESH I01:XH1,XH3YHI:I  MONSTER SUBROUTINE*12: GREEN BODYHI04:XM1,XM3YMI:I`XM,YM2:XM4,YM2zXM1,YM5:XM3,YM515: WHITE MOUTH XM2,YM14 VICTORIOUS MONSTER SUBROUTINE>12HI01:XM1,XM3YMI:I RI24:XM1"WELL, OK, WE'LL QUIT FOR NOW."D"DO LET'S PLAY AGAIN SOON.":o"DO YOU WANT INSTRUCTIONS AGAIN? ";I$I$"YES"Ĭ"DIFFICULTY LEVEL? ";C"DO YOU WISH TO DETERMINE NUMBER OF TURNS? ";I$:I$"YES"Ą" HOW MANY? ";N:20090.":PAUSE1100:PAUSE8T1Nĺ5)"A PERFECT SCORE!"ZTN1ĺ"YOU ALMOST MADE IT!"XMXPXMXHT1N3ĺ"YOU DIDN'T DO TOO WELL!"XMXHYMYHĺ"YOU WOUND UP BEING EATEN!":"DO YOU WANT TO PLAY AGAIN? ";I$"Y"(I$,1)1010!LL IN QUICKSAND!":PAUSE175:PAUSEXMXPYMYPC3ĺ3)"YOU WERE SAVED BY LUCK & QUICKSAND.":"NOTHING TO TAKE PRIDE IN.":988XMXPYMYP988T:"YOU SURVIVED!!!!"3500"YOU LASTED ";T1;" OUT OF ";N;" POSSIBLE TURNS8YMYM7\XM5XM5*fXM29XM299pYM3YM3JzYM31YM31f2000: REPOSITON HUMANlXMXHYMYHİ2100XMXHYMYHĺ"YOU'VE BEEN EATEN!"XMXHYMYH980XMXPYMYPİ2900$:XMXPYMYPĺ"THE MONSTER FEMXHYMYHD2#XMXHYMYHD38XMXHYMYHD4MXMXHYMYHD5bXMXHYMYHD6wXMXHYMYHD7 XMXHYMYHD8DD(3(1)1) D0D8*D9D14D1D5XMXM6>D5XMXM6HD3D7YMYM7 RD3D980X MONSTER'S MOVE3b2700: REMOVE MONSTER@lC1700MvC3700kXMXH6YMYHXMXH:860XMXH6YMYHXMXH:860YMYH7XMXHYMYH:860YMYH7XMXHYMYH:860 DETERMINE MONSTER'S MOVEXMXHYMYHD1X29YH31980#>XHXMYHYMİ2100[?XHXMYHYMĺ"YOU RAN RIGHT INTO HIS MOUTH! CHOMP"r@XHXMYHYMİ2100AXHXMYHYM980DXHXPYHYPė:"YOU FELL IN THE QUICKSAND-- YOU LOSE!":PAUSE1100:PAUSEGXHXPYHYPİ2900IXHXPYHYP;G2G1F11770292#G2,500,5,7,29 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4g 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 180,3,6,2,550,5,6,6G2G2S1"TOTAL PAR FOR ";F1;" HOLES IS ";G3;" YOUR TOTAL IS "." "D2D2,1505*6D,P,L(1),L(2)m@"YOU ARE AT TEE OF HOLE ";F;" DISTANCE ";D;" YARDS, PAR ";PyEG3G3PT"ON YOUR RIGHT IS ";^X1h400r"ON YOUR LEFT IS ";|X2400620  361,4,4,2,389,4,3,3,206,3,4,P(H.072)21470K21470)KK17T41530RD2D2I(42(1))1.5bD221560qD221500"YOU HOLED IT."FF1230"PUTT SHORT."D2(D2)1380D2D2I(41(1))11450"PASSED BY CUPK*IP.S. YOU HAVE BEEN SCALPED"%)20464)9 COMMANDSd):"(1) ATTACK":"(2) MOVE MEN / CANNONBALLS")D"(3) STATUS REPORT":"(4) SURRENDER")N"(5) NEW GAME ":"(6) LIST OF COMMANDS")SDD.3)X205* INT=INTERGER TAB=TABULATE REM=REMARRRENDERw("YOU SORRY SCUM-HEAD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"( "THE INDIANS HAVE TAKEN OVER THE FORT!!!"("AND YOU HAVE GIVEN THEM A CHANCE TO "("TAKE OVER THE WEST!!!!!")::::"PTAIN ";N$;".".""SHUT DOWN YOUR ENGINES'."?"I14000:I""CHIEF ENGINEER SCOTT REPORTS 'WARP ENGINES SHUT DOWN AT SECTOR ";S1;",";S2:"OF QUADRANT ";Q1;",";Q2;"'" TT0T96220"8Q1Q28Q4Q53370"TT1:3910:1320#< MANEU:Q11X51:Q11:S11.!VQ18X51:Q18:S18G!~Q21X51:Q21:S21`!Q28X51:Q28:S28o!X503860!"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"""'PERMISSION TO ATTEMPT CROSSING OF":"GALACTIC PERIMETER IS HEREBY *DENIED*":"CAW11T8.1(10W1), z TTT8:TT0T96220R SEE IF DOCKED, THEN GET COMMAND\ 1980{ EXCEEDED QUADRANT LIMITS X8Q1XNX1:Y8Q2YNX2:Q1(X8):Q2(Y8):S1(XQ18) S2(YQ28):S10Q1Q11:S18 S20Q2Q21:S28!$X5000 S8(S1)24(S2)326:(C$,S8,2)""3360k S1(S1X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT "; "SECTOR ";S1;",";S2;"DUE TO BAD NAVIGATION":I12000:I::3370 I:S1(S1):S2(S2)* A$"<*>":Z1(S1):Z2(S2):8670:3910:T81 f OF REPAIR IMPROVED":1 BEGIN MOVING STARSHIPV A$" ":Z1(S1):Z2(S2):8670& X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS1:YS2D X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):Q4Q1:Q5Q2b I1N:S1S1X1:S2S2X2:S11S19S21S29350 8);:R1I:8790:G2$;" REPAIR COMPLETED."B@ I:(1).23070^^ R1R(1):(1).63000r D(R1)D(R1)((1)51):"DAMAGE CONTROL REPORT:" 8790:G2$;" DAMAGED"::3070 D(R1)D(R1)(1)31:"DAMAGE CONTROL REPORT:" 8790:G2$;" STATE 0.2 A$" ":Z1K(I,1):Z2K(I,2):8670:8590Ud K(I,1)Z1:K(I,2)Z2:A$"+K+":8670y I:6000:D10:D6W1:W11D61 I18:D(I)02880 D(I)D(I)D6:D(I).1D(I)0D(I).1:2880 D(I)02880 D11D11:"DAMAGE CONTROL REPORT:"-LABLE". "FOR MANEUVERING AT WARP ";W1;"!'"E SNED(7)01990 "DEFLECTOR CONTROL ROOM ACKNOWLEGES ";S;" UNITS OF ENERGY" "PRESENTLY DEPLOYED TO SHIELDS." 1990 KLINGONS MOVE/FIRE ON MOVING STARSHIP. . . I1K3:K(I,3)0270182490V W101990dt "CHIEF ENGINEER SCOTT REPORTS 'THE":"ENGINES WON'T TAKE WARP ";W1;"!"n~ 1990 "WARP ENGINES ARE DAMAGED. MAXIMUM SPEED = WARP 0.2":1990 N(W18.5):EN02590 "ENGINEERING REPORTS 'INSUFFICIENT ENERGY AVAI 7"& :9);" C O U R S E"M ::"COURSE (1-9)";C1:C19C11b C11C192350 "LT. SULU REPORTS, 'INCORRECT COURSE DATA SIR!'":1990. X$"8":D(1)0X$"0.2"8 "WARP FACTOR (0-";X$;")";:W1::D(1)0W1.22470 L W10WUTER)"5" XXX (TO RESIGN YOUR COMMAND)"::1990V COURSE CONTROL BEGINS HEREo:9);" 3"9);" 4 . 2"9);" ..."9);" 5 ....... 1" 9);" ..." 9);" 6 . 8": 9);" NGE SENSOR SCAN)"<" 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)"" COM (TO CALL ON LIBRARY-COMP2:4000!# XM1,XM3YM3:4000;# XM1,YM4:XM3,YM4N#12:XM2,YM5h#PAUSE1100:PAUSE:n#PUSE" XP,XP4YP2-" PAUSE1100:PAUSE?" XP,XP4YP1W" PAUSE1100:PAUSEg" XP,XP4YPm" " DYING MONSTER SUBROUTINE" 15: WHITE" XM1,YM:4000" XM2,YM:4000" XM3,YM:4000" XM1,XM3YM1:4000# XM,XM4YM SUBROUTINE FOR HUMAN%! 15: WHITEA! I05:XH,XH4YHI:IG! b!T QUICKSAND SUBROUTINEv!^ XPPXX:YPPYY!h 0: BLACK!r XP,XP4YP5!w PAUSE1100:PAUSE!| XP,XP4YP4! PAUSE1100:PAUSE! XP,XP4YP3" PAUSE1100:PA XH2,YH20 XH,YH3:XH1,YH5:XH3,YH5B 1: RED SUITV XH1,XH2YH3e  XH2,YH4{  10: GREY SHIELD ( I24:XH3,XH4YHI:I 2 CLEANUP MONSTER SUBROUTINE 15: WHITE I05:XM,XM4YMI:I ! CLEANUP===================================>"; "COMMAND ";A$D:5m I19:(A$,3)(A1$,3I2,3)2160\I2300,1980,4000,4260,4700,5530,5690,7290,6270pI:"ENTER ONE OF THE FOLLOWING:"" NAV (TO SET COURSE)"" SRS (FOR SHORT RA10D(7)02050c:"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IN SPACE CAPTAIN ";N$;".""YOU HAVE INSUFFICIENT MANEUVERING ENERGY""AND SHIELD CONTROL IS PRESENTLY ":"INCAPABLE OF CROSS CIRCUITING TO ENGINE ROOM!!":6220%"<=S1:Z2S2:8670:K311820@I1K3:8590:A$"+K+":Z1R1:Z2R2v8670:K(I,1)R1:K(I,2)R2:K(I,3)S9(0.5(1)):IB311910X8590:A$">!<":Z1R1:B4R1:Z2R2:B5R2:8670vI1S3:8590:A$" * ":Z1R1:Z2R2:8670:I6430SE10ĭE1590'," SHIELDS DANGEROUSLY LOW"G6I13: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 ENTERPRIZE IN QUADRANT,THEN PLACE "K3" KLINGONS, & "B3" STARBASES, & "S3" STARS ELSEWHERE.A$"<*>":Z1IP"C"LOCATED IN THE GALACTIC QUADRANT, '";G2$;"'.":1500m"NOW ENTERING ";G2$;" QUADRANT. . .":K3(G(Q1,Q2).01):B3(G(Q1,Q2).1)10K3S3G(Q1,Q2)100K310B3:K301590"COMBAT AREA CONDITION ";:" RED "::S200I(1):I$:I131300A HERE ANY TIME NEW QUADRANT ENTERED(Z4Q1:Z5Q2:K30:B30:S30:G50:D4.5(1):Z(Q1,Q2)G(Q1,Q2)nQ11Q18Q21Q2816009030::T0T1490"CAPTAIN ";N$;",""YOUR MISSION BEGINS WITH YOUR STARSHED THE GALAXY"]"BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS ON STARDATE ";T0T9"THIS GIVES YOU ";T9;" DAYS. THERE ";X0$" ";B9;" STARBASE";X$;" IN THE GALAXY FOR ":"RESUPPLYING YOUR SHIP":"HIT ANY KEY TO ACCEPT COMMAND ";0B91:G(Q1,Q2)G(Q1,Q2)10:Q1R(1):Q2R(1)TK7K9:B91X$"S":Z0$" ARE "^:10"PLEASE TYPE YOUR NAME ";N$:5"CAPTAIN ";N$;",""YOUR ORDERS ARE AS FOLLOWS:"" DESTROY THE ";K9;" KLINGON WARSHIPS WHICH HAVE INVAD8:K30:Z(I,J)0:R1(1)6RR1.98K33:K9K93:980T\R1.95K32:K9K92:980mfR1.80K31:K9K91B30:(1).96B31:B9B91G(I,J)K3100B310R(1):J:I:K9T9T9K91LB901200~G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91,2)1:C(5,2)1:C(6,2)1] XC(1,2)1:C(2,2)1:C(6,1)1:C(7,1)1:C(8,1)1:C(8,2)1:C(9,2)1r I18:D(I)0:I A1$"NAVSRSLRSPHATORSHEDAMCOMXXX" * SETUP WHAT EXISTS IN GALAXY. . . / K3= # KLINGONS B3= # STARBASES S3= # STARS4I18:J19200:S0:B90:K90:X$"":X0$" IS "N D(D)((K(I,1)S1)2(K(I,2)S2)2)k R(R)((R)7.981.01)  INITIALIZE ENTERPRIZE'S POSITION Q1R(1):Q2R(1):S1R(1):S2R(1) I19:C(I,1)0:C(I,2)0:I C(3,1)1:C(2,1)1:C(4,1)1:C(4ERPRIZE---NCC-1701"\ ::::"CONVERTED TO APPLESOFT BY":"GERALD RAVARY 4/20/1980"b  Z$" " JG(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:E0E$ P10:P0P:STAR TREK":::> " ,------*------,"l " ,------------- '--- ------'" " '-------- --' / /" " ,---' '--------/ /--," " '----------------'": ::10);"THE USS ENTRY *& * ON APRIL 20,1980 *\ ************************b h N010:40);"":N " S U P E R S T A R T R E K " N010:40);"":N :N14000:N N030::N: 13);"SUPER SD6************************T* *r* SUPER STAR TREK ** ** CONVERTED TO ** APPLESOFT BY ** * * GERALD RAVA                                A$" ":8670O(*K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K906370b(>I:6000:1990(R PHOTON TORPEDO CODE BEGINS HERE(\P0ĺ"ALL PHOTON TORPEDOES EXPENDED":1990(zD(5)0ĺ"PHOTON TUBES ARE NOT OPERATIONAL":1990 )"PHOTON TORNEMY AT ";K(I,1);",";K(I,2):4670p'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):ON TARGET;"1&"ENERGY AVAILABLE = ";E;" UNITS"]&"NUMBER OF UNITS TO FIRE";X:X01990m&0EX04360&: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 E0'% PHASER CONTROL CODE BEGINS HEREP%D(4)0ĺ"PHASERS INOPERATIVE":1990_%K304330%"SCIENCE OFFICER SPOCK REPORTS SENSORS SHOW NO ENEMY SHIPS IN THIS QUADRANT":1990%D(8)0ĺ"COMPUTER FAILURE HAMPERS ACCURACY" &"PHASERS LOCKED ADRANT ";Q1;",";Q25$O1$"-------------------":O1$k$IQ11Q11:N(1)1:N(2)2:N(3)3:JQ21Q21$I0I9J0J9N(JQ22)G(I,J):Z(I,J)G(I,J)$TJ:L13:": ";:N(L)0ĺ"+++ ";:4230$r((N(L)1000),3);" ";%L:":":O1$:I:199VER ENERGY S/R **&#FEEN10:E0ıl#Z"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."#dSSE:E0:S0S0## LONG RANGE SENSOR SCAN CODE#D(3)0ĺ"LONG RANGE SENSORS ARE INOPERABLE":1990$"LONG RANGE SCAN FOR QUGE WHICH TWO POSITIONS";X,YLXY1XY1ĺ"ILLEGAL. TRY AGAIN...":510SS1:S1ĺ"ONLY ONE SPECIAL MOVE PER GAME":200T$B$(X):B$(X)B$(Y):B$(Y)T$:240 B:"YOU PLAYED ";G;" GAMESAND ORDERED THE"]Y"BOARD IN AN AVERAGE OF ";M1G;" MOVES"::999~ *** PRINT BOARD SUBROUTINE:I1134" ";B$(I);" ";B$(I1);" ";B$(I2);" ";B$(I3)I:: *** SPECIAL MOVE SUBROUTINE"EXCHAN:B$(I5)B$(I1):B$(I1)T$6400: *** PRINT BOARDT, *** DO WE HAVE A WINNER`1I116x6(I64)B$(I)200;I@:"YOU ORDERED THE BOARD IN ";M;" MOVES.":M1M1M:GG1EI115:(7):IJ:"PLAY AGAIN (Y/N)";A$:A$"Y"140)T J1I B$(J)T$160$ J4 B$(I)T$:Ie M0:S0:"HERE'S THE STARTING BOARD...":400 "POSITION TO ROTATE ";I:I0ĺ::140 I1510 I4I8I12į"ILLEGAL. AGAIN...":200 MM1:T$B$(I)B$(I)B$(I4):B$(I4)B$(I5)YOU WILL BE ASKED"> u"FOR THE POSITIONS OF THE TWO LETTERS"g x"TO EXCHANGE. REMEMBER -- ONLY ONE" }"SPECIAL MOVE PER GAME!": "TO GIVE UP AT ANY TIME,TYPE A '0'"::"GOOD LUCK! ": I116:B$(I)"0":I I116 T$((16(1)65))N TO CONTINUE";X$< d"YOU ALSO GET ONE 'SPECIAL' MOVE PER"g g"GAME WHICH YOU MAY OR MAY NOT NEED." i"THE SPECIAL MOVE ALLOWS YOU TO " k"EXCHANGE ANY TWO ADJACENT LETTERS IN A" n"ROW. TO MAKE THIS MOVE, INPUT A '-1'" s"AS YOUR MOVE AND 11."% C"HIT RETURN TO CONTINUE";X$T F"CONSEQUENTLY, IF THE BOARD LOOKED LIKE:"q KI116:B$(I)(I64):I PB$(2)"C":B$(3)"G":B$(6)"B":B$(7)"F":400 U"AND YOU ROTATED 2,THE BOARD WOULD BE:" ZI27:B$(I)(I64):I:400 _"HIT RETURRS A TO P. THE OBJECT OF THE "N 3"GAME IS TO ORDER THE LETTERS BY ROTATING"} 7"ANY FOUR LETTERS CLOCKWISE ONE POSITION" 9"YOU SPECIFY THE UPPER LEFT POSITION" <"OF THE FOUR YOU WISH TO ROTATE,I.E.," A"VALID MOVES ARE 1,2,3,5,6,7,9,10 AND B(16),B$(16). :"GAME OF 'ROTATE":W "INSTRUCTIONS (Y/N)";A$:A$"N"140"IN THIS GAME THE BOARD IS LAID OUT"I19:B$(I)" "(I):II1016:B$(I)(I):I400(-"POSITIONS ARE FILLED RANDOMLY BY THE" 2"LETTE     THE END OF YOUR MISSION",4::B9063604"THE FEDERATION IS IN NEED OF A NEW STAR-SHIP COMMANDER FOR A SIMILAR MISSION--"4"IF THERE IS A VOLUNTEER,"4"LET HIM STEP FORWARD AND ENTER 'AYE'";A$:A$"AYE"260495"CONGRATULATIONS, CAPROL REPORTS '";G2$;" DAMAGED BY THE HIT'"238I:D3B END OF GAMEc3L"IT IS STARDATE ";T:62703`:"THE ENTERPRIZE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED":62203j62204~"THERE WERE ";K9;" KLINGON BATTLE":"CRUISERS LEFT AT2(1))):SSH:K(I,3)K(I,3)(3(0))h2H;" UNIT HIT ON ENTERPRIZE FROM SECTOR ";K(I,1);",";K(I,2)w2S062402" ":H2062002(1).6HS.0262002R1R(1):D(R1)D(R1)HS.5(1):8790)3"DAMAGE CONT------------------------------"O1 8790:G2$;(Z$,25(G2$));(D(R1)100).01e1>R1::D005720o1\19901f KLINGONS SHOOTING1pK30ı1zD00ĺ"STARBASE SHIELDS PROTECT THE ENTERPRIZE":1I13:K(I,3)06200%2H((K(I,3)D(1))(STIMATED TIME TO REPAIR: ";.01(100D3);" STARDATES"0"WILL YOU AUTHORIZE THE REPAIR ORDER CAPTAIN ";N$;"?";:"(Y/N)":A$0A$"Y"19900I18:D(I)0D(I)00I:TTD3.10:"DEVICE STATE OF REPAIR":R1181"------":1990/0 DAMAGE CONTROL./:D(6)05910d/D"DAMAGE CONTROL REPORT NOT AVAILABLE":D001990/XD30:I18:D(I)0D3D3.1/I:D301990/:D3D3D4:D31D3.9/"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"50"ESXĺ"":19901.XES5630v."SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATION TREASURY.'"."":1990.EESX:SX:"DEFLECTOR CONTROL ROOM REPORT:"/"SHIELDS NOW AT ";(S);" UNITS":"PER YOUR ORDER.:Z2Y:A$" ":8670O-^G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):6000:1990q-r"TORPEDO MISSED":6000:1990- SHIELD CONTROL-D(7)0ĺ"SHIELD CONTROL INOPERABLE":1990-"ENERGY AVAILABLE = ";ES:"NUMBER OF UNITS TO SHIELDS ";X .X0,B90K9TT0T95400[,"THAT DOES IT, CAPTAIN ";N$;"!"YOUAREHEREBYRELIEVEDOFCOMM","AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12 ",6270,"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER COURT MARTIAL!":D00-6Z1X13:X3K(I,1)Y3K(I,2)5190(+<I:I3;+FK(I,3)0:5430c+ZA$" * ":Z1X:Z2Y:8830:Z305280+"STAR AT ";X3;",";Y3;" ABSORBED TORPEDO ENERGY.":6000:1990+A$">!<":Z1X:Z2Y:8830:Z304760,"*** STARBASE DESTROYED ***":B3B31:B9B91:"**8XXX1:YYX2:X3(X.5):Y3(Y.5)H*`X31X38Y31Y385490*" ";X3;",";Y3:A$" ":Z1X:Z2Y:8830*Z304920*A$"+K+":Z1X:Z2Y:8830:Z305210*"*** KLINGON DESTROYED ***":K3K31:K9K91:K906370+IPEDO COURSE (1-9)";C1:C19C115)C11C194850p)"ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!"z)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*."TORPEDO TRACK"HH () () HH":6 LIIII8);"HH () () HH":Z MIIII8);"HH () HH":~ NIIII8);"HH () HH": fI,2124,2124 I1İ2121& *XXD:IA 424);"HHHHHHHHHHHHHH"I 9X0k >::"TYPE 1 FOR NEXT ROLL";W} ?::W1ī300 @W2ī30 A IIIII8);"HHHHHHHHHHHHHH";24);"HHHHHHHHHHHHHH": JIIII8);"HH HH": KIIII8);!d5);"ROLLING DICE ROUTINE"'Z,7);"---------------------------------------"x::9);"HHHHHHHHHHHHHH"I12:K14:D(6(D)1):KD2122,2123,2123,2124,2124,2124bD2125,2122,2125,2122,2125,2124 D2122,2126,2126,2124  .5(G2$)):J0);G2$;B=xZ55:9030:J0(35.5(G2$)):J0);G2$;T=O1$:I:1990h= STATUS REPORT=" STATUS REPORT:":X$"":K91X$"S"="KLINGON";X$;" LEFT: ";K9="MISSION MUST BE COMPLETED IN ";.1((T0T9T)10):"STARDATES" >I7);Q1;",";Q2!<":Z1I:Z2J:8830:Z316580a6J:I:D00:66506D01:C$"DOCKED":EE0:PP06"SHIELDS DROPPED FOR DOCKING PURPOSES":S0:67206K30C$"*RED*":67206C$"GREEN":EE0.1C$"YELLOW"7@D(2)TAIN ";N$;"!":"THE LAST KLINGON BATTLE CRUISER MENACING"e5"THE FEDERATION HAS BEEN DESTROYED.":5"YOUR EFFICIENCY RATING IS ";1000(K7(TT0))2:62905 SHORT RANGE SENSOR SCAN & START UP SUBROUTINE5IS11S11:JS21S21$62(I.5)70 BB2 A5950" 780- BB116 790@ CC1J BB8X A61030b DD3l BB5u 780 A71070 BB5 CC1 $860 .BB7 8A10780 BBB10 L790 V" THE SCORE WAS "12(H) `K N K5700 " ";# ) / > B6(1)6F C0N D0[ A3890e BB3r A1810| DD2 BB3  *CC1 4BB1 >A2780 HBB11 R790 \CC1 fA2790 p780 zCC4 BB2 A59CORE"; K K991110) H2(H)6 KH570J " NO, IT'S "H;` K2(K2)0550 " (THE SCORE IS ALWAYS EVEN)"; & 0150 :" ..YES.." D150 NN02 XM3630 b" "; l650 vMM4(M4) " O"; M2MK15 L(K)F8(F8)% "ML(K). ,590; 6F(F8)B @KM JK15^ TMG8(G8)g ^590t hG(G8){ rK |HH12(H12) K15 (L(K)1)(L(K)4)0420 L(K)5L(K) ML(K) 590 K   "GUESS THE SASK YOU TO GUESS THE SCORE FOR THE ROLL"T F"THE SCORE WILL ALWAYS BE EVEN NUMBER" P"GUESS 99 TO STOP PLAYING. GOOD LUCK" L(7) H0 G0 F0 K15 A(12(1)) 720 F8FC G8GD HHB K   ::10. "DO YOU WANT INSTRUCTIONS?"D "(1=YES, 0=NO)";KKYK1140_(~2"THE NAME OF THE GAME IS"3" PETALS AROUND THE ROSE"7:"THE NAME OF THE GAME IS IMPORTANT":( <"THE COMPUTER WILL ROLL FIVE DICE AND":"     ":I14000:I:5690"X$"S":B92X$"":B918010t>,"THE FEDERATION IS MAINTAINING ";B9:"STARBASE";X$;" IN THE GALAXY">1I14000:I:>65690>J"YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN THE GALAXY---":I14000:I?T"YOU HAVE NO STARBASES LEFT!OU LOSE!!":13603( * END OF RUN ROUTINE *92J<T(D1S1)70qF"YOU WON!! AND YOUR TIME WAS ";TP:"DO YOU WISH TO PLAY AGAIN? (YES/NO)";:N$Z:8dN$"YES"560nNA21300M(I,J)A61300#C7M(I,J)A1:1270EM(I,J)A3fC1S:II1:M(I,J)A21300zM(I,J)A61300CM(I,J)A1 *** NOTE - WINNING *** CHECK.M(9,39)A1800 1320"ILLEGAL MOVE........ YS POSITION 2,2 **'8J2:I25BD11120CLD21170QVD31220`M(I,J)A3: *** WIPES OUT PREVIOUS CHARACTER ***jC1S:I(I1):M(I,J)A21300tM(I,J)A61300~CM(I,J)A1:1270M(I,J)A3C1S:JJ1:M(I,J)N$"C"13805"INVALID OPTION, TYPE A, B, OR C">920Db ** MAIN PROGRAM BODY **h"DIRECTION";:D:D((D))D11010D31010"SPEED";:S:S((S)):$D1D11:S1S1S:D111090. ** NOTE - CAR START! *** PRINTING ROUTINE ***'*34KI:LJ?>I111KHJ140[R(M(I,J));b\JhfopI{zIK:JL 88 NOTE NEW COURSE OPTION**D10990"OPTIONS: (A=GO, B=NEW COURSE, C=STOP)";:N$N$"A"990N$"B"560E vI110J140,R1((1)1.2):R10690HM(I,J)A2Q700_M(I,J)A3fJmI{M(2,2)A4M(9,38)A3M(9,39)A5M(2,3)A3M(3,2)A3I110:M(I,1)A2:M(I,40)A2:I J140:M(1,J)A6:M(10,J)A6:J M(15,50)A1("*")+A2("!")9A3(" ")GA4("S")U&A5("F")c0A6("-")q:D10:S10{D:10N" THE COMPUTER IS NOW DESIGNING ":X"THE OBSTACLE COURSE. PLEASE STAND BY. "b:l *** SET UP COURSE ROUTINIS THE NUMBER OF SPACES YOU "O "WISH TO TRAVEL IN A GIVEN DIRECTION. "p " * * * * * " 24:"PRESS SPACE TO CONTINUE, ESC TO END ..."; IN$:IN$" "(IN$)27460 (IN$)271380  *** INITIALIZATION *** YOU MUST FINISH ON THE POINT MARKED 'F'."S r" THERE ARE NO DIAGONAL MOVES. ": |" THERE ARE NO RIGHT TO LEFT MOVES. " "DIRECTION NO.1 IS UP.": "DIRECTION NO.2 IS LEFT TO RIGHT.": "DIRECTION NO. 3 IS DOWN. ": "AND SPEED PROGRAM " INSTRUCTIONSL ," DO YOU WANT INSTRUCTIONS (YES/NO)";:N$_ 6N$"YES"500i @:: J"THE OBJECT IS TO MOVE YOUR VEHICLE '*' " T"STARTING AT POINT 'S' AND NAVIGATE THRU " ^"THE OBSTACLES '!' TO THE FINISH 'F'. ") h" CLMN MTRX INDEX/ K PLACE HLDR FOR IL L PLACE HLDR FOR Jh M MATRIX VARIABLE N$ INPUT TO Y-N ? R1 RND # GEN VAR S SPEED  S1 TTL SPEED CNTRL  T 'TIME'RATIO (D1/S1)*100  START ----------------* d A1 VALUE FOR '*'D n A2 VALUE FOR ' '^ x A3 VALUE FOR '!'x A4 VALUE FOR 'S' A5 VALUE FOR 'F' A6 VALUE FOR '-' D DIRECTION D1 TOTAL # OF TURNS I ROW MATRIX J  :!16)"OBSTACLE"::A11)"CREATIVE COMPUTING":j(9)"MORRISTOWN, NEW JERSEY"::::2 FROM MORE BASIC COMPUTER GAMES, PAGE 117.< ADAPTED TO APPLESOFT BY TED M. SNOOKFP VARIABLES USAGE Z -----     G51ĴZ59230,9240,9250,9260,9230,9240,9250,92608H$KH$G2$G2$" I":_H$G2$G2$" II":tH"$G2$G2$" III":H,$G2$G2$" IV":HJ$" 1 2 3 4 5 6 7 8"HT$"---- ---- ---- ---- ---- ---- ---- ----"I^$"1 ANTARES $"POLLUX":9210@G#Z49130,9140,9150,9160,9170,9180,9190,9200WG#G2$"SIRIUS":9210mG#G2$"DENEB":9210G#G2$"CAPELLA":9210G#G2$"BETELGEUSE":9210G#G2$"ALDEBARAN":9210G#G2$"REGULUS":9210G#G2$"ARCTURUS":9210G#G2$"SPICA"2H#ET REGION NAME ONLYIFF#Z54ĴZ9040,9050,9060,9070,9080,9090,9100,9110SFK#9120kFP#G2$"ANTARES":9210FZ#G2$"RIGEL":9210Fd#G2$"PROCYON":9210Fn#G2$"VEGA":9210Fx#G2$"CANOPUS":9210F#G2$"ALTAIR":9210F#G2$"SAGITTARIUS":9210G#G2G2$"SHIELD CONTROL":3Ef"G2$"LIBRARY-COMPUTER":]Et" STRING COMPARISON IN QUADRANT ARRAYE~"Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30E"(Q$,S8,3)A$ıE"Z31:E2# QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)F<# CALL WITH G5=1 TO GS8):DL" PRINTS DEVICE NAME$DU"TDV"R18792,8794,8796,8798,8800,8802,8804,8806mDX"G2$"WARP ENGINES":DZ"G2$"SHORT RANGE SENSORS":D\"G2$"LONG RANGE SENSORS":D^"G2$"PHASER CONTROL":D`"G2$"PHOTON TUBES":Db"G2$"DAMAGE CONTROL":Ed"S)>C!R1R(1):R2R(1):A$" ":Z1R1:Z2R2:8830:Z308590DC!nC! INSERT IN STRING ARRAY FOR QUADRANTC!S8(Z2.5)3(Z1.5)241C!(A$)3ĺ"ERROR":C!S81Q$A$(Q$,189):C!S8190Q$(Q$,189)A$:D!Q$(Q$,S81)A$(Q$,190";C1((X)(A))9B !"DISTANCE = ";(X2A2):H811990FB !I:1990B4!B30ĺ"FROM ENTERPRIZE TO STARBASE:"W1B4:XB5:8120B>!"MR. SPOCK REPORTS, 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.":1990C! FIND EMPTY SPACE IN QUADRANT (FOR THING(A)(X)8330FAv "DIRECTION = ";C1((((A)(X))(A))(A)):8460oA "DIRECTION = ";C1((A)(X)):8460A A0C13:8420A X0C15:8290A C17A (A)(X)8450A "DIRECTION = ";C1((((X)(A))(X))(X)):8460B!"DIRECTION = CE CALCULATER"I@"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2@"PLEASE ENTER":" INITIAL COORDINATES (X,Y)";C1,A@ " FINAL COORDINATES (X,Y)";W1,X@ XXA:AC1W1:X08350@: A08410@D X08280@N A0C15:8290@X C11Ab OSMIC NUMBER IN ";N;" GUESSES."% X@ b"WANT TO PLAY AGAIN";H lZ$X vZ$"Y"280 "OK, GOODBYE FOR NOW. PLAY WITH ME AGAIN SOMETIME." dZ4460 D2450 "*";+ "*";6 "*";A "*";L "*";W "*";b "*";h s NN1| 330  *** PLAYER HAS GUESSED THE GALACTIC NUMBER &K118 0" ** "; :K D" !!! " N"THAT'S IT!!! YOU GUESSED MY CX(100(1))1 "W ,"OK, STARSEEKER, I AM THINKING OF A NUMBER. START GUESSING."q 6 *** GUESSING BEGINSz @N1 J T"WHAT IS YOUR GUESS?"; ^G hGX550 rD(GX) |D64500 D32490 D16480 D8470 DMBER, THE MORE STARS (*) I WILL TYPE."\ "ONE STAR (*) MEANS YOU ARE FAR AWAY FROM MY " " NUMBER. SEVEN STARS (*******)MEANS YOU ARE VERY," "VERY, VERY CLOSE TO MY NUMBER!!!"  *** COMPUTER 'THINKS' OF A NUMBER FROM 1 TO 100 OW HOW TO PLAY "; Z$* Z$"Y"280H *** HERE IS HOW TO PLAYN "I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100." "TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I" "WILL TYPE ONE OR MORE STARS (*). THE CLOSER"' "YOU ARE TO MY NUFZ100Jd*** STARS *** STARS *** STARS*** STARS *** STARS ***ln *** PROGRAMMED BY K.G. WELKx"WELCOME TO MY GALAXY. I'M IN CHARGE OF THE STARS HERE""PLAY MY GAME *STARS* AND GET SOME STARS FOR YOURSELF!" "WANT TO KN     jz#?XDZ   Š ҠˠҠFˠԠŠĠŠ Ơɠ!ΠŠ"ҠŠҠӠŠӠĠŠŠ ̠Š ԠĠΠȠŠԠ ӠŠԠɠ$ՠɠŠŠϠ̠ԠΠ7̠ҠBOUND TO A POSITIVE VALUE AGAIN. YOU"p "HAVE $ 10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." "(NOTE: TO GET A FEEL FOR THE MARKET RUN FOR AT LEAST" "TEN DAYS)." "TO CONTINUE, PRESS '1'";L :: S(1)100 S(2)E A TRANSACTION. TO BUY A STOCK"d "TYPE +NNN, TO SELL A STOCK TYPE-NNN, WHERE NNN IS THE" "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS"* "TO ZERO IT MAY REPRESS '1'";L:"A TABLE"_ "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES" "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE" "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION"# "MARK. HERE YOU INDICATHIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN"w "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT" "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE":"TO CONTINUE, - " ** STOCK MARKET SIMULATION **"7::@qX1_rA(((X)10)100.5)100isT50stX90}uN10vN20wE10xE20z"DO YOU WANT INSTRUCTIONS (YES-TYPE 1, NO-TYPE 2"{Z9|}~Z912206 "T    Z7 SAGITTARIUS ARCTURUS "WK$"---- ---- ---- ---- ---- ---- ---- ----"K$"8 POLLUX SPICA "K$"---- ---- ---- ---- ---- ---- ---- ----"K$1990A BETELGEUSE"HJ$"---- ---- ---- ---- ---- ---- ---- ----"rJ$"5 CANOPUS ALDEBARAN"J$"---- ---- ---- ---- ---- ---- ---- ----"J$"6 ALTAIR REGULUS"J$"---- ---- ---- ---- ---- ---- ---- ----"(K$" SIRIUS">Ic$"---- ---- ---- ---- ---- ---- ---- ----"gIh$"2 RIGEL DENEB"Im$"---- ---- ---- ---- ---- ---- ---- ----"Ir$"3 PROCYON CAPELLA"Iw$"---- ---- ---- ---- ---- ---- ---- ----"J|$"4 VEGD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                 S(I)(100S(I).5)100"I.T8T81<T81990BXT8(4.99(X)1)vA(((X)10)100.5)100S4(X)S.5997AAS(I)0"HOPE YOU HAD FUN!!"" DEDUCT ONE DAY FROM N1 AND N2X W30E119452(I1.5)(I.5)945<W310EE10SE11955n(I2.5)(I.5)955{W3W310E20C(I)(AS(I))X1(36(X).5)W3C(I)(100C(I).5)100S(I)S(I)C(I)S(I)0967C(I)0970UCT ONE DAY FROM N1 AND N2']N1N113^N2N21Qz LOOP THROUGH ALL STOCKS\I15hX1(X)xX1.25920X1.25935X1.5925X1.50935X1.75930X1.75935X10.0 BIG CHANGE CONSTANT:W3;31);C(4)K2);"CBS";7);S(5);14);P(5);23);S(5)P(5);31);C(5)UX91[ aj*360xIN10851MI1(4.99(X)1)NN1(4.99(X)1)OE11SN20861WI2(4.99(X)1)XN2(4.99(X)1)YE21\ DEDR CHG" G2);"IBM";7);S(1);14);P(1);23);S(1)P(1);31);C(1)M2);"RCA";7);S(2);14);P(2);23);S(2)P(2);31);C(2)2);"LBJ";7);S(3);14);P(1);23);S(3)P(3);31);C(3) 2);"ABC";7);S(4);14);O(4);23);S(4)P(4)C50674<"YOU HAVE USED $ ";C5;" MORE THAN YOU HAVE>"E420OCC5ZI15nP(I)P(I)Z(I)uI~841I120(135)I"********** END OF DAY'S TRADING"X1765"STOCK-PRICE--HOLDING--VALUE--NET PS50:I15&?Z(I)(Z(I).5)7DZ(I)0610LNP5P5Z(I)S(I)UX620jbS5S5Z(I)S(I)dZ(I)P(I)620f"YOU HAVE OVERSOLD A STOCK; TRY AGAIN."h420lIqT5P5S5B5(.01T5100.5)100C5CP5B5S5 4160"DO YOU WISH TO CONTINUE (YES-1,NO-2)"8Q9FQ91998_ INPUT TRANSACTIONS"WHAT IS YOUR TRANSACTION IN""IBM"Z(1);"RCA"Z(2)"LBJ"Z(3)"ABC"Z(4)"CBS"Z(5) P500NEW YORK STOCK EXCHANGE AVERAGE: "Z5" NET CHANGE: "Z6=TT(100T.5)100y"TOTAL STOCK ASSETS ARE $";TC(100C.5)100"TOTAL CASH ASSETS ARE $";CD(100D.5)100"TOTAL ASSETS ARE $"DX90K STORE CBS";32);S(5)h*kZ4Z54lZ50=mT0HrI15XwZ5Z5S(I)k|TTS(I)P(I)rIZ5(100(Z55).5)100Z6((Z5Z4)100.5)100DTCX90398"NEW YORK STOCK EXCHANGE AVERAGE: "Z53997""PR/SH" X=Y"----------------------------------------"i^"INT.BALLISTIC MISSLE IBM";32);S(1)`"RED CROSS OF AM. RCA";32);S(1)a"LOVERLY,BUMRAP,& JOKE LBJ";32);S(3)b"AMERICAN BANKRUPT CO. ABC";32);S(4)c"CENSURED BOO85 S(3)150 S(4)140- S(5)110D T8(4.99(X)1)U (X).5280^ AAg 841r "I15~ ,P(I)0 1Z(I)0 6I OC10000 P Q"----------------------------------------" RT2);"STOCK";23);"INITIAL";32);RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA SY:W(I,3)SDII1L)J1WNA$(I,J)""A$(I,J)(A(26)64)V:lI1M1:JI1MW$(I)W$(J)1030HZ$W$(I):W$(I)W$(J):W$(J)HZ$K13:HZW(I,K):W(I,K)W(J,K):W(J,K)HZ:KJ:I"HOW MANY COPIES OF THIS RT OVER";A$ B(A$,1)"Y"7502DW$(I)"":950@RJSY:KSXL\P1LNvf(A$(J,K))A$(J,K)(W$(I),P,1)790pJJDXY(SD,2):KKDXY(SD,1):PJSY:KSXP1LN:A$(J,K)(W$(I),P,1)JJDXY(SD,2):KKDXY(SD,1): W(I,1)SX:W(I,2) I1MLN(W$(I))#NT05SDDD(A(28))h SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790*SYA(L):X1SY(LN1)DXY(SD,2):X11X1L7904NTNT1:NTWL2850>"COULDN'T FIT '";W$(I);"' IN THE PUZZLE" @"DO YOU WISH ME TO STAIS...."I1M1!JI1MX(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$`:I18:DXY(I,1),DXY(I,2):I128:DD(I): 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7)520D"-";T$;"-"(X(T$)MD610@]"THAT'S TOO LONG";\_"TRY ANOTHER ONE:"480}bIZ1I1:W$(IZ)T$Ă:630l"YOU ENTERED THAT ONE ALREADY.TRY ANOTHER":480vW$(I)T$I"THAT'S IT...";M;" WORDS""NOW LET ME PONDER TH J1/ TE$(T$,J,1):TE$"A"TE$"Z"570H TE$"A"TE$"Z"530m (T$,J,1)(((T$,J,1))32:570 TE$T$T$"":500 J(T$)T$(T$,J1):580 &J1T$(T$,(T$)1):JJ1:570 0T$(T$,J1)(T$,(T$)J):JJ1:JJ1:J(T$ XY$6 "OK...ENTER A WORD AT EACH QUESTION MARK"] "TO REDO A WORD TYPE A HYPHEN(-)" "TO FINISH EARLY TYPE A PERIOD(.)" I1M T$:T$"-"II1:"REDO ";W$(I);"...":480 T$"."MI1:660 (T$)0ĺ"INPUT ERROR;REDO:":480IMUM NUMBER OF WORDS IN THE PUZZLE";M3 rM2380e w"SORRY; THERE MUST BE AT LEAST 2 WORDS":360k |~ A$(L,W),W$(M) W(M,3),DXY(8,2),DD(28) "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE" "(";TW;"CHARACTERS MAXIMUM!)" YOUR PRINTER HAVE";TWA @"DO YOU WANT A SOLUTION PRINT OUT";X$o J"WHAT IS THE WIDTH OF THE PUZZLE";W:MDW TW2TW345 W"THAT WILL NOT FIT IN ";TW;" COLUMNS.":330 YW1330 ^"THE LENGTH ";L:LWMDL cL1350% h"WHAT IS THE MAXE OVER. IF YOU DON'T WANT TO START"R P"OVER, TYPING 'NO' WILL THROW AWAY THAT"} U"PARTICULAR WORD. IF THIS PERSISTS," Z"TRY EITHER GIVING LESS WORDS OR BIGGER" d"PUZZLE DIMENSIONS!" : ,A(Z)((1)Z1) 6"HOW MANY COLUMNS DOES :52"THIS PROGRAM IS A WORD SEARCH PUZZLE"k7"GENERATOR!! IN THE COURSE OF MAKING THE PUZZLE"<"THE MACHINE MAY FIND THAT IT CAN'T PUT A"A"PARTICULAR WORD ANYWHERE AND SO WILL "F"ASK YOU IF IT SHOULD START THE WHOLE"$ K"PUZZLmd:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4     ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 :II1M0LN(W$(I)):JW(I,2):KW(I,1)< P1LNUA$(J,K)(W$(I),P,1)JJDXY(W(I,3),2):KKDXY(W(I,3),1):P(I2XY$"HERE IS THE ANSWER KEY:"<1070F:PA$(J,K)));" ";t:" ":)~" ":" "V"FIND THESE HIDDEN WORDS IN THE PUZZLE"_" "{J1M:(W$(J))01210(0)(W$(J))TW2ĺ" "W$(J):X14:" ":(X$,1)"Y"1250I1L:J1W:A$(I,J)".":JPUZZLE DO YOU WANT";NG"FOR EACH COPY HIT RETURN TO BEGIN PRINTING"`$C1N:1070::1230v.A$:1:" K":" "8T(TW2W)21:" "B" "L(TW(XY$))21);XY$V" ":" "`J1L:T);jK1W:A$(J,K)"."ĺ". ";:1140o((650 p5)vZ3(A$(I))H(A$(I),Z,1)"/"ĺ(A$(I),Z,1);:Z]XX1:X5X0:dIn::"NOW THINK OF ANOTHER ANIMAL!":130 I$"Y"Z6$"N"HZ7$"N"Z6$"Y"\Z7$"Y"Z7$"N"ĺ"PLEASE ANSWER 'YES' OR 'NO'" YX1(Q$)' (Q$,Y,1)"/"510. YG K((Q$,X2,YX2))M S   "6", "/QDOES IT SWIM/Y2/N3/", "/AWHALE", "/AROBIN", "/AGRASSHOPPER", "/ARATTLER" X:"ANIMALS I ALREADY KNOW ARE:" \ ]X0 bI1200l(A$(I),2)"/A"::"NOW THINK OF ANOTHER ANIMAL!"::130N  SUBROUTINE TO PRINT QUESTIONS[ Q$A$(K)j Z3(Q$) (Q$,Z,1)"/"ĺ(Q$,Z,1);:Z C$ C$(C$,1) C$"Y"C$"N"410 T$"/"C$ X3(Q$)1 (Q$,X,2)T$480 X  / "FOR A ";V$;" THE ANSWER WOULD BE";7 "A$[ ,A$(A$,1):A$"Y"A$"N"280n 6A$"Y"B$"N" @A$"N"B$"Y" JZ1(A$(0)) TA$(0)(Z12) ^A$(Z1)A$(K) hA$(Z11)"/A"V$ rA$(K)"/Q"X$"/"A$(Z11)"/"B$(Z1)"/"* |$,1) > A$"Y"ĺ"NOW THINK OF ANOTHER ANIMAL! "::130 "I GIVE UP! PLEASE TYPE IN THE ANIMAL YOU WERE THINKING OF: ";V$ "PLEASE TYPE IN A QUESTION THAT WOULD" "DISTINGUISH A ";V$;" FROM A ";(A$(K),(A$(K))2)  X$ SECTION2 "ARE YOU THINKING OF AN ANIMAL? ";A$8 K A$"LIST"600 A$"Y"ĺ"AW, BE A SPORT AND PLAY THE GAME!"::130 K1 400 (A$(K))0999 (A$(K),2)"/Q"170 "IS IT A ";(A$(K),(A$(K))2); A$ A$(A :* 10);"<<<< ANIMAL >>>>"::C CREATIVE COMPUTING` MORRISTOWN, NEW JERSEYf)2"THINK OF AN ANIMAL AND THE COMPUTER"3"WILL TRY TO GUESS IT."<FA$(200)PI05ZA$(I)dInN(A$(0)) x MAIN CONTROL     O PLAY AGAIN?";I$((I$,1)"N"ī1350X::" DO YOU WANT INSTRUCTIONS? ";I$x (I$,1)"Y"ė:8200:E0:R1E02RF@ FORGERY SUBROUTINEEVA0:VB1:VC1J:"THE EXPERTS SAY IT'S A PHONEY!"T"YOU CAN'T SELL IT!"^TVSP;" IN YOUR DEALINGS!":1261="YOU BROKE EVEN ANYWAY"CWTVSPTTTVSPy"PROFIT THIS GAME= $";TT;"."TTTK(R1)TK(R)TTTTTK(R1)TK(R)TK(R1):5)"HIGHEST PROFIT SO FAR= $";TK(R)TT0:"DO YOU WANT TENT $";SP;" ON PAINTINGS." -SO(SO)]3)"YOU EARNED $";SO;" IN PAINTING SALES."jCV(CV)"AND HAVE $";CV;" IN PAINTINGS UNSOLD."TVSOCVTVSPĺ"YOU LOST $";SPTV;" IN YOUR DEALINGS!":1261 TVSPĺ"YOU GAINED $";OCC(L):Z$COCO1Z)LMĺ"LAST BID--YOU MUST ACCEPT!":K1500:K:SOSOCC(L)::Za.LhBZC"YOU'VE HAD 100 CHANCES TO BUY 5 PICTURES."D"THAT'S ENOUGH FOR ANYONE!":1200::12)"FINAL SUMMATION"::SP(SP)3)"YOU SPBR1ī990CC(K)(BR)*RTRTCC(K)1KFBARTM:BA(BA)OCO1W LKbL1M"THERE ARE ";M;" BIDS. AVERAGE= $";BA;".""BID ";CO;"=$";CC(L);" (YOU PAID $";YB;", AVG.=$";BA;")""DO YOU ACCEPT?";I$ (I$,1)"Y"ė:SOSAT'S A PHONEY!":K1450:K:VXVA:CVCVVX::Z= BIDDINGOM(4(1))2XRT0cK1MvBF(3(1))1BF1BRYB(100(1))(100(1)):1010BF2BRVA(100(1))(100(1)):1010BR(YBVA(200(1))(200(1)))2 3K(3(1))2:VA0:VBKYB:VC00VXVB:905:VXVAP SELLING SECTIONeVAVXVX$(VA)xVXVBVX$"?""YOU PAID:$";YB;" APPRAISED VALUE:$ ";VX$"DO YOU WISH TO SELL? ";I$(I$,1)"N"CVCVVX::Z/VC1ĺ"NO WAY! TH00>AP8İ1750:900-HAP11İ1900:900CRAP13İ1800:900a\AP2VA0:VB0:VC0:895fAP4VA0:VBYB2:VC0:895pAP8VA0:VBYB:VC0:895rAP11VV(((P.5S)(P)(P.5S))3):VA0:VBVV:VC0:895zZ(3(1))2!{AP1?"YOU BOUGHT IT! THIS IS PICTURE #";F1;".":FF1:SPSPYBW APPRAISAL PROCESSk AP(12(1))1"YOUR PICTURE IS NOW BEING APPRAISED.""DO YOU WANT TO KNOW THE RESULTS?";I$ (I$,1)"N"ī860*AP2İ1600:9004AP4İ1650:9":"ROLLERS HERE! BID REFUSED!":"HIT RETURN TO TRY AGAIN.";I$::680d  CALCULATE COMPUTER'S BIDv W(3(1)1) K1W CBPS(D8)8 CBCB20(1):CB(CB) CBYBė:"YOU WERE OUTBID!":"HIT RETURN TO CONTINUE.";I$::Z KTING ";F1;": BUYING PHASE"=  NORMAL DISTRIBUTION ROUTINEU D0:N(65536(1)) J116:Q(N2):DD2(N2Q):NQ:J "PRICES: ";(P.5S);" ";P;" ";(P.5S) "YOUR BID? ";YBE YB3(P.5S)ĺ"THAT BID IS CRAZY! WE DON'T DIG HIGH NTING D:13:2000: FRAME2 NE(Z)(4(1))1Y SE(Z1)3E(Z)5: ALTERNATE SCENE VE(Z1)4E(Z)6: ALTERNATE STILLIFE XE(Z)1İ2100 bE(Z)2İ4000 lE(Z)3İ3000 qE(Z)4İ8500 rE(Z)5İ3400 tE(Z)6İ8900 u v"PAIN8160: N PCQ11000:CQ, U:::8200H  SET PRICES AND RANGEST E(100)h TK(50):R150u F0:CV0 SO0:SP0:TV0 Z1100 F4ī1200 P100(900(1)) S(P(1)) &P500S(P.7(1)) 0NN1 : LOOK AT PAI9:X2:Y20:8010:8030:8080:8120: AN 25:X8:Y20:8080:8120:8050: Uv 714:X14:Y20:8080:8010:8050: C <3:X20:Y20:8020:8100: T A7:X26:Y20:8080: I F4:X28:Y20:8010:8050:8080:8120: O K13:X34:Y20:8080:8120: 5::255> ART AUCTION SIMULATION GAME WITH GRAPHICSl WRITTEN IN APPLESOFT BY T. NELSON, 2/80x TITLE~1:X8:Y8:8010:8030:8080:8120: A#2:X14:Y8:8080:8010:8030:8170:8130: R(12:X20:Y8:8020:8100: T( -                      :(4);"BRUNMENU" we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::aLPYPXW,PY PX(0)S10 3:PX,PYPX5,PY9 210} X(16336)(16336)(16336)(16336)(16336)(16336):  DRAW BALL X,YX2,YX2,Y2X,Y2X,Y  :"YOU WON! YOU GOT IT OFF THE TOP!": :"TOO LOW - YOU LOST.":153:: HIT PADDLE, I17:X(16336):IO VYLOSSVY:NY156: HIT BOTTOMY "1000g ,NX1330q 61000 @NX1:VXVXDV JNX276360 T1000 ^NX552NX:VXVXDV hXBX:YBY:0:2000 rXNX:YNY:3:2000 |BXNX:BYNY 0:PX,ER THE BALL"3 PX1(0):PY156:1:PX,PYPXW,PYL BX(1)2783:BY111c VY9:VX(1)105z XBX:YBY:3:2000 NXBXVX:NYBYVY:VYVY1 (NY)140(VY)24000 NY13000 NY156300 BX(PX2)BX(PXW)280 VYVY1:NY2 BOUNCING BALL CATCHER /< MARK CROSS@F RUSTON, LAFPgdLOSS3: LOSS AT EACH BOUNCEnDV.5: SIDEWAYS SPEED-UP RATExW7: PADDLE WIDTHS(276W)255:20,00,159278,159278,00,0 936:24:"GET THE PADDLE UND    XC0:YC18:"XC4:YC18:3XC8:YC18:EXC12:YC18:WXC16:YC18:hXC0:YC23:yXC4:YC23:XC8:YC23:XC12:YC23:XC16:YC23:XC0:YC28:XC4:YC28:XC8:YC28:XC12:YC28:XC16:YC,1419,1420,1421,1422,1423,1424,14253MCYCYC3I(XCXA,XCXA2MCQ2MCW<gyXC0:YC8:wzXC4:YC8:{XC8:YC8:|XC12:YC8:}XC16:YC8:~XC0:YC13:XC4:YC13:XC8:YC13:XC12:YC13:XC16:YC13:255:::12D"DO YOU WANT TO TRY ANOTHER GAME ";N$;" ";:A$::]A$"YES"A$"Y"270vA$"NO"A$"N"999911:"YES OR NO PLEASE ! ";A$:1245#R11401,1402,1403,1404,1405,1406,1407,1408,1409,1410,1411,1412,1413,1414,1415,1416,1417,1418130:YF,XFEe:4:"MY OUTPOSTS WERE AT ";C;",";D;",";E;" AND ";F]jR1C:XA21:9:1300loR1D:1300{tR1E:1300yR1F:1300zXF165:YF165:YF,XF~1235PP1:NP1T1NMM(T)570TXM:M(P)M576 411109:7::"I GOT YOU. POST ";X;" WAS HIT."::l3:"NOW YOU ONLY HAVE ";4Z;" OUTPOSTS LEFT."XF130:YF130:YF,XF500V:14::"I WIN "N$:[8:"THAT'S YOUR LAST OUTPOST.": `9:"BETTER LUCK NEXT TIME!":XF130:YF7:"THAT'S ";Q;" DOWN AND ";4Q;" TO GO.":XF120:YF120:YF,XFN570z::"YOU WIN ";N$;", THAT'S MY LAST OUTPOST"::XF135:YF135:YF,XF1235ZZ1R1X:XA0:11:1300XF130:Z9(16336)(16336)(16336):XFZ):XFR1X:XA0:15:1300A:9:"AW DARN ! I MISSED YOU."^XF130:YF130:YF,XFg500qQQ1R1Y:XA21:11:1300Q4890XF130:Z9(16336)(16336)(16336):XF:"YOU TURKEY ! YOU GOT ONE OF MY OUTPOSTS.":EYF7100630$:M((1)25)1.?11604@MDXGXHXLXK920Vl670v:"HA, HA, YOU MISSED ME ";N$;" ! MY TURN.":XF115:YF115:YF,XF570:5:"MY TURN ! I CHOOSE ";M;" - FIRE !":XF130:Z9(16336)(16336)(16336R1K:1300R1L:1300P255::2:"TAKE YOUR BEST SHOT ";N$;" - FIRE !":{8:"SELECT POSITION (1-25) > ";Y:100Y1Y25Y(Y)513515:4::"ILLEGAL ENTRY ";N$;" - TRY AGAIN":::510R1Y:XA21:15:1300YCYDYE1 :" OK ";N$;", CHOOSE YOUR 4 POSITIONS !":] "SELECT OUTPOSTS (A,B,C,D) > ";G,H,K,L G25H25K25L25G1H1K1L1484 485 :N$;" ";G;",";H;",";K;",";L;" IS ILLEGAL. TRY AGAIN"::481 R1G:XA0:1:1300 R1H:1300 10:"21 22 23 24 25"8 XF175:YF175:YF,XFD M(100)\ Z0:Q0:P0::1500o |C((1)25)1 D((1)25)1 E((1)25)1 F((1)25)1 CD390 CE400 CF410 DE400 DF410 EF410 100 YOU WANT THE BODIES SENT!":: XF175:YF175:YF,XFC :5w "HERE IS THE FORMAT OF THE BATTLEFIELD."::: 11:"1 2 3 4 5":: 11:"6 7 8 9 10":: 10:"11 12 13 14 15":: 10:"16 17 18 19 20":: OON AT EACH OUTPOST. 2 XF175:YF175:YF,XF< :10j "YOU WILL FIRE MISSLES AT MY OUTPOSTS": "AND I WILL FIRE AT YOURS. WHOEVER": "DESTROYS ALL THE ENEMY'S PLATOONS": "FIRST IS THE WINNER. GOOD LUCK AND": "TELL ME WHEREA$"N"2600 -11:"YES OR NO PLEASE ! ";A$:35: d:10h i"YOU ARE AT WAR WITH ME AND HAVE FOUR": n"PLATOONS TO FIGHT WITH. THE BATTLE-": s"FIELD HAS 25 OUTPOSTS WHERE YOU CAN": x"HIDE YOUR PLATOONS. YOU CAN ONLY PUT": }"ONE PLAT" :10:14:"BOMBARDMENT"::=14:"MODIFIED BY"::t12:"ROBERT R. DEVINE":XF175:YF175:YF,XF:10:10:"WHAT IS YOUR NAME ? ";N$:::10:3:"DO YOU WANT INSTRUCTIONS ";N$;" ";:A$::#A$"YES"A$"Y"100 (A$"NO"     ,63:240,50240,63:233,54233,55:234,54234,55p8235,56235,57:236,56236,57:237,58237,59:238,58238,59B:21:J02:K251125:768,K:769,15:770:K,JL"DO YOU WANT TO PLAY ANOTHER GAME(Y/N)";:A$:A$"Y"60VA$"N"Ā`:21:1:213,63:214,50214,63:207,60207,61:208,60208,61:211,60211,61:212,60212,61:209,56209,59t210,56210,59$220,50225,50:220,51225,51:220,62225,62:220,63225,63:222,50222,63:223,50223,630.231,50231,63:232,50232,63:239,5023952163,61:164,52164,61:171,52171,61:172,52172,61:165,50170,50:165,51170,51:165,62170,62:165,63170,63176,50176,61:177,50177,61:184,50184,61:185,50185,61:178,62183,62:178,63183,63a205,50205,63:206,50206,63:213,500:1040LADAD1:AD20āI120:768,255:769,15:770:I:990:1150:1100U5203:150,50150,53:151,50151,53:158,50158,53:159,50159,53152,54152,55:153,54153,55:156,54156,55:157,54157,55:154,56154,63:155,56155,63r163,470RGB(G):310:490.\HB(H):340:5007f960LpGB(G):310:490azHB(H):340:500vIB(I):370:510960EB(E):250:470FB(F):280:480HB(H):340:500IB(I):370:510A1B1C1D1E0F1G1H1I1İ9960GB(G):310:490 9605BB(B):160:440JDB(D):220:460_EB(E):250:470tFB(F):280:480HB(H):340:500 960CB(C):190:450 FB(F):280:480*IB(I):370:5104960>DB(D):220:460HEB(E):250::DB(D):220:460*DEB(E):250:4703N960HXAB(A):130:430]bBB(B):160:440rlCB(C):190:450{v960BB(B):160:440CB(C):190:450EB(E):250:470FB(F):280:480960AB(A):130:430DB(D):220:4C(I):105,81102,81100,79100,77103,75105,75106,77106,79103,85::1:21:"WHICH SQUARE (1-9) 0 FOR A NEW PATTERN.";:A$:A$"0"100Z(A$):Z1520" ":Z550,600,640,690,730,790,830,880,920&AB(A):130:4300BB(B):160:4403:dC(F):106,47104,45102,45100,47100,53102,55104,55106,53106,51104,49102,49100,51:C(G):40,7546,7546,7742,8142,85:C(H):71,8070,7970,7872,7574,7576,7876,7975,8071,8071,8070,8371,8574,8576,8376,8175,80:H70,1772,1574,1576,1776,1970,2576,25: C(C):100,17102,15104,15106,17106,19105,20104,20105,20106,21106,23104,25102,25100,23: C(D):45,4545,55:44,4541,5046,50:C(E):76,4570,4570,4974,4976,5176,5374,5572,5570,5 TH0ĒH:360 ^75 hJ5788:J,72J,93:J:F rI0ĒI:390M |7k J92113:J,72J,93:J: 1:21:"PUSH SPACE FOR ANOTHER PATTERN (RETURN TO PLAY)";:A$ A$(32)100 520 C(A):40,1742,1542,2540,2544,25:, C(B):C:210 7+ J92113:J,12J,33:J:< D0ĒD:240C 7` J3253:J,37J,68:J:q E0ĒE:270x 7 J5788:J,37J,68:J: F0ĒF:300 "7 ,J92113:J,37J,68:J: 6G0ĒG:330 @7 JJ3253:J,72J,93:J:):GA(1):HA(1):IA(1)( n:21:AD0 x130:430:160:440:190:450:220:460:250:470:280:480:310:490:340:500:370:510:400 A0ĒA:150 7 J3353:J,12J,33:J: B0ĒB:180 7 J5788:J,12J,33:J: C0Ē <:5:A29:B31:70:A54:B56:70:A89:B91:70:A114:B116:70:80` FIAB:I,10I,95:I: PA9:B11:90:A34:B36:90:A69:B71:90:A94:B96:90:100 ZIAB:30,I115,I:I: dA(Y)(2(1)):AA(1):BA(1):CA(1):DA(1):EA(1):FA(1h 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0C(1)0:C(0)3:B(0)1:B(1)0(::21:255:21130E     " TOO LOW."%:ZCĺ" TOO HIGH."ADZCĺ" DEPTH OK."GNMXhb MODIFIED BY G.LARSENl 12/5/78 SAN FRANCISCO, CA.", ::"ANOTHER GAME (Y OR N)";A$< A$"Y"100s 936:5)"OK. HOPE YOU ENJOYED YOURSELF !!!":600 "SONAR REPORTS SHOT WAS "; YBĺ"NORTH"; YBĺ"SOUTH"; XFĺ"EAST"; XFĺ"WEST"; &YBXFĺ" AND"; 0ZCĺ1))% D1N::"TRIAL #";D;:X,Y,ZE (XF)(YB)(ZC)0300S 500::D :"YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" "THE SUBMARINE WAS AT ";F;", ";B;",";C:400 ,:"BOOM!!!!! YOU FOUND IT IN ";D;" TRIES! p9)"XXXXXXXXXXXXXXXXXX"7 r10)"XXXXXXXXXXXXXXXX"_ t4)"OOOOOOOOOOOOOOOOOOOOOOOOOOOOO"i v::v z20)"X" |20)"X" ~20)"XX" 20)"XOX" 15)"XXXXXXXXXXXXXXX" 16)"XXXXXXXXXXXX" : F(G(1)):B(G(1)):C(G(/WEST":4)"2- SURFACE COORDINATE NORTH/SOUTH"b _4)"3- DEPTH"::"PRESS RETURN TO CONTINUE";A$ d:"GOOD LUCK !!!!":I12000:I:936 f15)"X" h15)"X";:22)"X" j15)"X";:22)"X" l15)"XXXX";:22)"X" n15)"XOOOX";:22)"X"SS COMPUTER !!!!!!"A 2:4)"AN ENEMY SUB HAS BEEN CAUSING YOU"q <"TROUBLE. YOUR MISSION IS TO DESTROY IT." F4)"YOU HAVE ";N;" SHOTS." P"SPECIFY DEPTH CHARGE EXPLOSION POINT":"WHITH A TRIO OF NUMBERS :". Z:4)"1- SURFACE COORDINATE EAST :93627)"****** DEPTH CHARGE ******"T::11)"CREATIVE COMPUTING"u9)"MORRISTOWN, NEW JERSEY" ::"DEPTH CHARGE GAME":"DIMENSION OF SEARCH AREA ";G:N((G)(2))1 (4)"YOU ARE THE CAPTAIN OF THE DESTOYER":"U     160(C$,1)"N"4100 &"5pL768819AzN:L,NGM 3,0,8,0,21,0,48,0,36,18,55,55,9,9,60,60,54,62,9,7,0 18,62,60,39,45,36,55,63,44,44,37,39,45,46,46,44,54,39,55,46,46,52,62,62,36,55,0,63,33,36,0L12 L15& L:L:2X(J),Y(J)- L5 BA@ L15T L:2X(J),Y(J)[ Lb Ni So SW1ĺ"NO WINNER.....!";:4100H(1)5ĺA$;" IS A WINNER!";:4100B$;" IS A WINNER!";" TRY AGAIN? ";C$(C$,1)"Y"MFL?xM(1)0M(2)0ĺ"YOU'RE BOTH OUT OF MISSLES!":SW1EUH(I)H(I)1_3000423:H(1);" HITS ";M(1);" MISSLES ";H(2);" HITS ";M(2);" MISSLES"H(I)51400 3000 "YOU DUMMIES INTO EACH OTHER!" SW1  NM(I)0ı M(I)M(I)1b 23:H(1);" HITS ";M(1);" MISSLES ";H(2);" HITS ";M(2);" MISSLES "z XMX(I)A:YMY(I)B #L140 (XMXMA:YMYMB -XM278XM1YM158YM11400 25:3XM,YM <(XMX(J))R(YMY(J))R2000ABA:3XM,YA0:B2 `X(I)X(I)KA7 jX(I)278X(I)X(I)278Q tX(I)1X(I)X(I)278c ~Y(I)Y(I)KB Y(I)158Y(I)Y(I)158 Y(I)1Y(I)Y(I)158 PC(I):D(I)4 1X(I),Y(I) (X(I)X(J))R2(Y(I)Y(J))R22500 (I16288)128ı 1:1120 OA2:B1:1120, PA2:B0:1120> QA2:B1:1120P RA1:B1:1120b SA1:B2:1120t TA0:B2:1120 UA1:B2:1120 VA1:B1:1120 WA2:B1:1120 XA2:B0:1120 YA2:B1:1120 ZA1:B1:1120 [A1:B2:1120 \:D(I)4 1X(I),Y(I)& C(I1)B C20D(I)D(I)1:1060Y C235D(I)D(I)1s $D(I)0D(I)16:1000 .D(I)17D(I)1 8D(I)1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,1113,1114,1115,1116 MA1:B2:1120 NA1:B ";B$ ,X(1)20:Y(1)1200 6X(2)168:Y(2)120D @D(1)16:D(2)16^ I12:D(I)4:PC(I)q H(I)0:M(I)16 1X(I),Y(I):I 23:"PRESS ANY KEY TO START!":C$ I12 J3I 1000 I SW1H(1)5H(2)54000 500 BA( DOGFIGHT - MARK PELCZARSKI, 19802 6000D232,0:233,3UBA0:PC(1)3aPC(2)6goS2xR23"YOUR NAME? ";A$"OPPONENT'S NAME? ";B$"SPEED (1-10)? ";KR8:SW0SBA:0,0:62454 :21:A$,"     E!" GOLD","A BEAUTIFUL MAIDEN","A MAN EATING TIGER"|  "NOTHING ", "$22.59 ",A ROLLS ROYCE ",THE KEYS TO EXECUTIVE MENS ROOM" :"OPEN SESAME ","C-R-E-E-E-E-E-A-A-K ! ","WA LAH !","TA-DAH ! ":"ABRACADABRA!","CLICK !!!!!!1?!??????!!!!!!!","SURPRIS ^ h2 r:"DO YOU WANT TO PLAY AGAIN?":T |"(YES SIR! OR NO SIR!)";:Q$Z q Q$"YES SIR!"120 Q$"NO SIR!"500 :::: "HEY, I DIDN'T JUST FALL OFF A TURNIP " "TRUCK, YA KNOW!!!!!": 370/ :: "A POT OF ;D;" KEY "; K2% K2K(D)210+ @ S$(R(7)):DD1O DN1210U  ""YOU DID IT, BEHIND DOOR #";N;" IS.......... , 6R$(R(7))"!! ":360 @:"YOU LOOSE, THE REST OF THE KEYS ARE:" J TXDN:"DOOR ";X;" KEY "K(X):X;" TRIES TO OPEN THEM ALL":M "(SOME KEYS MAY OPEN MORE THAN ONE DOOR)": " SELECT A NUMBER (FROM 0 TO ";K31;"),": " AND THEN PRESS 'RETURN'":: X2N:K(X)R(K3):X TT1:T0320 :"TRIES LEFT #";T;" DOOR #"ORRISTOWN, NEW JERSEY PK(20)5 ZR(Z)(Z(1))J dX06:R$(X):X_ nX06:S$(X):Xh x:: D1:T10R(21):N3R(3):K38R(5) "THERE ARE ";N;" LOCKED DOORS,": "AND THERE ARE ";K3;" KEYS (0-"K31")": "YOU WILL HAVE ";T1 6 ** PROGRAM WRITTEN BY ** BILL INGRAM ** PUBLISHED IN 'MORE CREATIVE COMPUTING GAMES' PAGE52 *** ADAPTED TO APPLESOFT BY TED M. SNOOK(:217)"DOORS":<12)"CREATIVE COMPUTING" F10)"M     MES" DSOUND(S)(S)(S)(S)$D*BX"THATS TO HIGH..."r]" KEEP YOUR ELEVATIONS BETWEEN 1 AND 180."xbg2500@ ADAPTED BY:EJ CRAIG A. MILLSOT FROM " THE A TO ZY ^ BOOK OF COMPUTERch GA OR N)"@Q$(JQ$"Y"Q$"YES"195JT"OK! SEE YA SOME OTHER TIME"P^nh"SHORT BY",(D);" YARDS"vm:r2500|"OVER BY",(D);" YARDS"2500S16336D115SOUND(S)(S)(S)DpS16336zD150020 3000E13200.E22E57.2958@J46500(E2)JNRJUD(N)h(D)1004100xRJ04200RJ04220"GOT 'EM ";L84130"FINALLY!!"""YOU FIRED ";L;" ROUNDS...",6"HOW ABOUT ANOTHER GAME?(Y HERO--"/\ "THAT ROUND MAY HIT CAMBRIDGE!!!"7n C1Ax 2630W 3)"NEWS FLASH!"q "CAMBRIDGE COW HIT!" "BY MYSTERY MISSILE"  C0  "THATS TO LOW..." "KEEP YOU ELEVATIONS BETWEEN 1 AND 180."  2500C14HERE!" D1200:D" I110/ J11006 JC( 15)"."J2 I[< 13)"BOOM!"eA 6000F "WHEW! THAT WAS CLOSE!!"G "LETS TRY AGAIN ..BUT - BE CAREFUL!"K P 2500Z "WOW!!--YOU JUST SHOT BACKWARDS"[ "THAT SHOULD MAKE YOU A;A;" YARDS."L0F "WHAT ELEVATION DO YOU WANT TO TRY?";En :"OK - NOW PUSH RETURN TO FIRE!!"v Q$ 5000 LL1 E884000 E92E1812650 E1807000 " YOU SHOT NEARLY STRAIGHT UP..." ".. LET'S GET OUT OF LE: 45.3"6"OK !! NOW IF YOUR READY TO PLAY"J"PUSH RETURN "RQ$b936:10:"THE MAXIMUM RANGE YOU CAN""SHOOT IS 46500 YARDS.""DISTANCE TO THE SHIP IS:"R430003000(1)A(R) "IS APPROXIMATELY ""YOUR JOB IS TO GUESS THE PROPER"M"ELEVATION TO HIT THE SHIP. A HIT"q"WITHIN 100 YARDS WILL DO IT.""FOR MORE RANGE INCREASE ELEVATION.""IF YOU OVERSHOOT - LOWER THE ELEVATION.""ENTRIES ARE IN DEGREES." ".....EXAMP d"AT ANY RATE HERES HOW THE GAME GOES..."2 gW i"YOU ARE ON DUTY WITH A BOSTON"} n"COSTAL DEFENSE BATTERY AND YOU" s"ARE TRYING TO SINK AN APPROACHING SHIP." x"AN ARTILLERY SPOTTER GIVES YOU THE" }"APPROXIMATE DISTANCE TO THE SHIP"%EL CAN BE PREDICTED"C V"IF THE UPWARD ANGLE AT WHICH IT IS SHOT"q W"IS KOWN. HERE, OF COURSE, WE DO IGNORE" X"A FEW THINGS SUCH AS VELOCITY,WIND" Y"RESISTANCE, THE WEIGHT OF THE ROUND ETC" Z"PUSH RETURN TO CONTINUE" ]Q$ _936:3,ANGLE"3 O"IS THE RATIO OF THE SIDE OPPOSITE THE"W P"THE ANGLE TO THE HYPTENUSE.'"l Q"NO KIDDING!!!" R"IF ALL THIS PUFFY PHRASEOLOGY DOES'T" S"JOG YOUR MEMORY DONT DESPAIR" T"JUST BE AWARE THAT THE DISTANCE A" U"PROJECTILE WILL TRAVN 'SINE' SO"7 I"YOU MATH MAJORS IN OUR MIDST SHOULD"e J"ENJOY IT. BUT FOR THE REST OF US; HERE" K"IS A BRIEF REVIEW." L"ACCORDING TO WEBSTER, 'SINE' IS DEFINED" M"AS 'THE TRIGONMETRIC FUNCTION THAT" N"FOR AN ACUTE ANGLE IN A RIGHT TRI" 12:"***************"- D12000:D7 936? 10h ("DO YOU WANT A DESCRIPTION?(Y OR N)p 2Q$ <Q$"N"Q$"NO"200 F"THIS GAME SIMULATES THE SHOOTING OF A" G"CANNON AT A SHIP. THE PROGRAM USES THE" H"TRANSCENDENTAL FUNCTIO *** ELEVATE ***)936:7D12:"***************"_12:"* *"z 12:"* *" 12:"* *" 12:"* ELEVATE *" 12:"* *" 12:"* *" 12:"* *      HAVE ANYBODY ON THAT SIDE TO":"FIRE"/470@ FOR RIFLESKB1205x"WHICH SIDE? ";S1:S10205:T5T5(S1)1T5(S1)21170"HOW MANY ROUNDS? ";R:XM(S1)10:RX1200RB1205:BBRK(Q)((0)(.8R))1:K(Q)I(S1)K(Q)I(S1)aK(Q)15K1<cI(C2)0I(C2)0:I(C2)K(Q)0K(Q)I(C2)rhC(C2)C(C2)K1:IIK(Q):I(C2)I(C2)K(Q):C1C1K1|"THOSE SHOTS KILLED ";K(Q);" INDIANS"::470"YOU DON'T HAVE ANY CANNON BALLS LEFT ":"ON THAT SIDE"470&"YOU DON'T:A0205@A2400.E FOR CANNON ATTACK`J" WHICH CANNON ";:C2:C20309:C(C2)0395qOM(C2)0398T"HOW MANY CANNON BALLS ";:K1:K10309YC(C2)K1ĺ"YOU DON'T HAVE THAT MANY"[C(C2)K1340^ 1 CANNON BALL KILLS 15 INDIANS3ĭD01520"X14:T5(X)0:XDS300,500,700,1800,1750,1850c 1=ATTACK 2=MOVE 3=STATUSt, FOR ATTACK|1:2"HOW MANY SIDES DO YOU WANT TO ATTACK? ";P:P411904Q1P5"THIS IS ATTACK NO. "Q 6"CANNON(1) OR RIFLES(2) ";:AOMMANDS."324:"PRESS RETURN TO CONTINUE ";R$:Y"WHAT IS YOUR FIRST NAME?";A$(1)_"WHAT IS YOUR LAST NAME? ";A$(2):I(1)I(2)I(3)I(4)11620"WHAT IS YOUR COMMAND, GENERAL":10);A$(1);" ";A$(2); S:D(10(D.3))10:S:6);"THIS COMMAND ALLOWS YOU TO":6);"SURRENDER.":"(5)";:6);"THIS COMMAND ALLOWS YOU TO START":6);"A NEW GAME""(6)";:6);"THIS COMMAND PRINTS A CONCISE":6);"LIST OF COMMANDS" 6);"THIS ALSO DOES NOT USE UP ANY":6);"CLS, AS WELL AS THEIR":6);"LOCATIONS. IT ALSO SHOWS:"g6);"THE DISTANCE THE INDIANS ARE AWAY"6);"FROM THE FORT AND THE AMOUNT OF"6);"AMMUNITION LEFT."6);"THIS DOES NOT USE UP ANY OF YOUR"6);"10 COMMANDS."":"(4)";DIANS ARE"76);"GOING TO MOVE CLOSER TO THE FORT."=g24:"PRESS RETURN TO CONTINUE ";Z$:"(3)";:6);"THIS COMMAND ALLOWS YOU TO GET"6);"A STATUS REPORT WHICH SHOWS THE"6);"NUMBER OF INDIANS, MEN, AND"6);"CANNON BALOU MAY"3x6);"NOT THE SAME SIDE MORE THAN ONCE"P}6);"DURING AN ATTACK."V"(2)";:6);"THIS COMMAND ALLOWS YOU TO MOVE"6);"MEN OR CANNON BALLS FROM ONE SIDE"6);"TO ANOTHER. REMEMBER WHEN YOU " 6);"MOVE YOUR MEN, THE IN AMMO."1 c::"PRESS RETURN TO CONTINUE ";R$:O d:" YOUR COMMANDS ARE: "] i:"(1)"; j6);"THIS COMMAND ALLOWS YOU TO ATTACK" n6);"THE INDIANS. IN A SINGLE TURN" s6);"YOU MAY ATTACK 1-4 SIDES WITH"v6);"WITH RIFLES OR CANNONS. Y00"0 P"INDIANS SPLIT UP SO THAT 400 INDIANS "Z U"ARE ON EACH SIDE. YOU HAVE 120 MEN" Z"PLACED SO THAT THERE ARE 30 MEN ON EACH" \"SIDE. THERE IS ONE CANNON PER SIDE AND" _"EACH HAS 5 CANNON BALLS. YOU ALSO START" a"WITH 2300 ROUNDS OFOP AND THE"9 <"HECKAWEES INDIANS ARE ON THE WARPATH. "g A"YOU MUST HOLD THE FORT FOR 3 DAYS (10 "x B"COMMANDS)" F"IN ORDER FOR THE SEVENTEENTH CAVALRY TO" K"ARRIVE WITH RE-INFORCEMENTS TO SAVE THE" O"WEST FROM THE INDIANS. THERE ARE 16)400:I(2)400:I(3)400H I(4)400:F(2)150:F(2)150:F(3)150:F(4)150N ~ " DO YOU NEED INSTRUCTIONS?(1=YES,2=NO)";B : #B2192 (11);"INSTRUCTIONS FOR :" -:11);"****** FORT ******" 2:: 7"YOU ARE THE GENERAL OF F-TROIFIED TO APPLE II, JAN '80, BY LARRY S. ANDERSONY  CREATIVE COMPUTING, AUG'79, P.120+ FEB,'79 AT NEW ROCHELLE HIGH SCHOOL, NEW ROCHELLE,N.Y. M140:I1600:C4:D3:B2300:C(1)5:C(2)5:C(3)5:C(4)5:C120 M(1)30:M(2)30:M(3)30:M(4)30:I(1 "U YOU MAY NEED TO ALTER THIS PROGRAM TO SUIT YOURSELF!!!---L.ANDERSON 1/80l FORT AUTHORS: SETH A. COHEN DAVID L. BUTLER DAVID E. STANLEY WRITTEN IN A DIALECT OF DEC BASIC0  MOD             13602NN.24<"SHSOT DUBBED, STILL IN TRAP."=F620FPN.8PZ1300|d"ON GREEN ";D2;" FEET FROM THE PIN.":e"CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER (1 TO 13)."f:"PUTT POTENCY NUMBER ";gxIS1S11S11R SHOT WENT INTO WATER."$S1S11f"PENALTY STROKE ASSESED. HIT FROM PREVIOUS LOCATION."pJJ1{L(0)1DB620"YOUR SHOT WENT OUT OF BOUNDS."1210T31320D21(3((80(40H))(1)))1380((1)NO451092$320'.S9(S21)15:/(S9)S91040P3"YOU SLICED- ";^8L(0)L(1)hB1055vD"BADLY."F320LL(0)5V320`L(0)8jD2(D23)t1380~L(0)1320D1(.85D1)830L(0)61260"YOU1280C14760CC10'7605D95862w"BALL HIT TREE - BOUNCED IN ROUGH ";D75;" YARDS FROM HOLE."DD75620O301150J01150T01070 S9(S21)15 (S9)S91075"YOU HOOKED- ";L(0)L(2) )9 1470CS2Q(10(F1)18)(F1)(72((H1).85))18956L752VQQ1nS12(S12)1011w862"YOU MAY NOW GAUGE YOUR DISTANCE BY PER- CENT (1 TO 100)""PERCENT FULL SWING ";W:WW100W1680L(0)5035)) HD2((02(DD1)2))0RDD108709\890P^"YOU DUBBED IT. "Z`D135cb830scD2001300|d770fD220890p"TOO MUCH CLUB. YOU'RE PAST THE HOLE."zBDDD2D2271020D2201100D2.51120L(0C12690CC6650+S1S113W1AC13960U(F3)F3952bC4756k760{L(0)2862S17867D1(((30H)2.5187((30H).2515)C2)25(1)) D1(D1W) T21170>O((1).8)(2H16)((D1.0q" 0 TO 100 YARDS 29 TO 23"1rA1Tu:"WHAT CLUB DO YOU CHOOSE ";[vCaxn{C1690|}C29690C4710L(0)5740C14740C23740690S1S11"THAT CLUB IS NOT IN THE BAG."620 "ADJACENT FAIRWAY"&1690*0"TRAP"4:1690AD"WATER"KN1690XlA1629wm:"SELECTION OF CLUBS:":n"YARDAGE DESIRED SUGGESTED CLUBS"o"200 TO 280 YARDS 4 TO 1"p"100 TO 200 YARDS 19 TO 13") 620 L(X)1480( L(X)25008 L(X)3520H L(X)4540X L(X)5560h L(X)6580~ "OUT OF BOUNDS." 1690 "PGA RULES HANDICAP = 0 TO 30." 80 "FAIRWAY" 1690 "ROUGH" 1690 "TREES" 1690 6F191710 ;S10L <:"PRESS ANY KEY TO CONTINUE TO NEXT TEE":A$:[ @S101590l JL(0)11150t TX0 ^L(0)51190 h"SHOT WENT ";D1;" YARDS.IT'S ";D2;" YARDS FROM THE CUP." j"BALL IS ";(O);" YARDS OFF LINE.... IN "; |400 ";S1 #1750 $S1P2297- %S1P299= &S1P1301M 'S1P2303V (310r )"KEEP YOUR HEAD DOWN."{ *310 +"A PAR. NICE GOING." ,310 -"A BIRDIE. " .310 /P3306 0"A GREAT BIG EAGLE." 1310 2"A HOLD IN ONE."F "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, 5=PUTTING"r "WHICH ONE (ONLY ONE) IS YOUR WORST ";y T 936 T5120 S10 L(0)0 J0 Q0 S2S21 K0 F1310 ""YOUR SCORE ON HOLE ";F1;" WASASYOU PLAY."E :"ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..."T ::L(10)^ G118g G20p G30x (A0 2N.8 <S20 FF1 P"WHAT IS YOUR HANDICAP "; ZH dH30470 nH0470 w x"DIFFICULTIES AT GOLF INCLUDE: "% 936?::" GOLF ":I::"WELCOME TO THE APPLE COMPUTER COUNTRY CLUB, AN EIGHTEEN HOLE LAYOUT, LOCATED A SHORT DISTANCE FROM SCENIC DOWNTOWN CARSON CA." "THE COMMENTATOR WILL EXPLAIN THE GAME          :G$6G$"N"ī60:)B936:30OD" NICE GOING, DUMMY!":yH" YOU JUST SHOT A PREVIOUSLY":J" DESTROYED SECTOR!"PDLY14000RDLYX209&YOU JUST FRIED THE KLINGON! ":255:" ":50("YOUR MISSION IS A TOTAL LOSS!":255:" "*DLY020+"",DLY04::"COMMANDER WOULD YOU LIKE TO TRY AGAIN? " OUT OF ENERGY NO SHOTS LEFT.":L"YOUR MISSION IS A TOTAL LOSS!"::564V936bI050h SND(Z)(Z)(Z)(Z)(Z)!I":::$50:"CONGRATULATIONS, DUMMY! ":255:" ":50O&"" THE KLINGON HAS BEEN CAPTURED ":255:" ":50" AND YOU HAVE ";S;" SHOTS REMAINING! ":255:" "50,255:564 936:30:"PHASORSQ(B,A)1209B A*936[:" CONGRATULATIONS! COMMANDER! "::30:30:50,63:" ":50" YOUR MISSION HAS BEEN A SUCCESS ":255:" ":50cUPERNOVA IN SECTOR ";A;",";B;" ":+20CS;" SHOTS REMAIN."PS053023:"YOUR SHOT (X,";::"Y";::") ";:A,B:SS1A8A1B8B1424AXĭBY540Q(B,A)0578Q(B,A)1AX1X1:BY1Y1AXĭBY480":;^"PHASOR ENERGY USED TO REPLENISH SHIELDS.":SS1JrA(6)100XtA94420f|A(1)10x~A(A1.5)1AX380A1380A8380B(2)10B(B1.5)1BY390B1390B8390Q(B,A)1#:" SC YD 230 $ A18/ B18A AXSĭBYSğU "Q(B,A)0ĺ" ";] $:r ,Q(B,A)1ĺ"#";y 6B 8:1);A: :A @A18:A;:A:: B JA(2)10 LA4370 N20T:" THE ENTERPRISE HAS BEEN ATTACKED. ";Y: XSX YSY% SO530- CX5 DYC A(4)10V A(A11.5)1e ACXX1t ACXX1 X1X1 X8X8 A(5)10 A(A11.5)1 ADYY1 ADYY1 Y1Y1 Y8Y8 Q(Y,X)0ī280 X9:Y09:Q(Y,X)0 Q(0,X)1- Q(Y,0)1; Q(9,X)1I Q(Y,9)1P YW Xe X(2)10r X1190 X7190 X(X1.5)1 Y(3)10 Y1200 Y7200 Y(Y1.5)1 936 "KLINGON'S LAST KNOWN POSITION:";X;","SURROUNDING IT.":= x"THE BATTLE COMPUTER WILL KEEP YOU"k z"INFORMED OF ITS LAST KNOWN POSITION.": "GOOD LUCK AND REMEMBER THAT WE ARE" "COUNTING ON YOU, COMMANDER." :"YOU HAVE ";S" SHOTS." "HIT RETURN TO START.":A$ X0 6A$(10) 8Q(9,9)" <9361 FS(1)100> HS2070K JS2570] LS(S1.5)1 Z"YOUR MISSION, COMMANDER, IS TO CAPTURE A KLINGON BATTLE CRUISER.": d"YOU MUST NOT DESTORY THE KLINGON, YOU" i"MUST DESTROY ALL OF THE SECTORS" j ! KLINGON CAPTURE FOR 6800@ BY MICKEY E. FERGUSON_ MODIFIED FOR APPLE IIz BY JOHNNY GRAHAM 50I14:II110:SND(Z)(Z)(Z)(Z)(Z)(Z)(Z):II:"":I"" 2Z16336 4G$(10)!! ! ! ! ! !!!!!!!";N>"HUMAN'S TURN- WHICH DIRECTION (N,S,E,W, OR'X')? ";H$H2800aH$"N"YHYH7:570uH$"E"XHXH6H$"S"YHYH7&H$"W"XHXH6:2500: REPLOT HUMAN<XH0YH0XH29YH31ĺ"OUT OF BOUNDS--YOU LOSE!" =XH0YH0XHYPI:I%X4:Y2: SET CONDITIONSCXPXPX:YPYPY:MX1:MY1SHX25:HY29gXMXMX:YMYMY{XHXHX:YHYHY PLACE MONSTER2000 PLACE HUMAN2500 BEGIN HUMAN MOVEMENT LOOPT1N"MOVE NUMBER ";T;" OUT OF 20PY29PZ20PX1*PZ21PY29:PZ21PX7KPZ22PY29\PZ22PX13mPZ23PY29~PZ23PX19C3455C4455C1C1:C4C4 DRAW PITX4:Y2XPXPX:YPYPY0: BLACKI05:XP,XP4PZ12PX13PZ13PY15.PZ13PX19?PZ14PY15PPZ14PX25aPZ15PY22qPZ15PX1PZ16PY22PZ16PX7PZ17PY22PZ17PX13PZ18PY22PZ18PX19PZ19PY22PZ19PX25 PZPZ4PX25PZ5PY8-PZ5PX1<PZ6PY8KPZ6PX7ZPZ7PY8jPZ7PX13yPZ8PY8PZ8PX19PZ9PY8PZ9PX25PZ10PY15PZ10PX1PZ11PY15PZ11PX7PZ12PY15 :X31,Y23:X31,Y27:X31,Y314U15:X11,Y11T^ DETERMINE LOCATION OF PIT`cX4:Y3thPZ(23(1))1rPZ1PZ1|PZ23PZ23PZ1PY1PZ1PX7PZ2PY1PZ2PX13PZ3PY1PZ3PX19PZ4PY131,Y1u@X1,Y36:X3,Y36:X7,Y36:X11,Y36:X15,Y36:X19,Y36:X23,Y36:X23,Y36:X27,Y36:X31,Y36JX1,Y3:X1,Y7:X1,Y11:X1,Y15:X1,Y19:X1,Y23:X1,Y27:X1,Y31!TX31,Y3:X31,Y7:X31,Y11:X31,Y15:X31,Y19:X,X30Y14:X,X30Y21:X,X30Y28fY1,Y34X6:Y1,Y34X12:Y1,Y34X18:Y1,Y34X24"Y1,Y34X:Y1,Y34X30, BARS AROUND CAGE110: GREY6X1,Y1:X3,Y1:X7,Y1:X11,Y1:X15,Y1:X19,Y1:X23,Y1:X27,Y1:XTHE PIT. GOOD LUCK!"8_"HIT RETURN TO START GAME.";I$>`\: DISPLAY GRID FOR CAGEe200qX4:Y215: WHITEI035X,X30YII GROUT BETWEEN FLOOR TILES (YELLOW)13X,X30Y:X,X30Y35'X,X30Y7EVEL OF DIFFICULTY? (1-4) ";CM X:3)"DO YOU WANT TO DETERMINE THE NUMBER" Y"OF TURNS?(Y/N)";I$:(I$,1)"Y"Ą"HOW MANY? ";N ZN0N(10(1))5 [:3)"YOUR ONLY HOPE FOR SURVIVAL IS TO":"OUTWIT HIM FOR ";N;" TURNS OR LURE HIM"\"INTO 5)"IF YOU CHOOSE 2, THE MONSTER IS"L Q"SMARTER AND THE PIT IS VISIBLE."v R5)"IF YOU CHOOSE 3, THE MONSTER IS" S"SEMI-STUPID AND THE PIT IS HIDDEN." T5)"IF YOU CHOOSE 4, THE MONSTER IS" U"SMARTER AND THE PIT IS HIDDEN." V:"WHICH L- F3)"THE MONSTER IS PROGRAMMED TO MOVE"_ K"TOWARDS YOU (HE CAN MOVE DIAGONALLY TOO)": L3)"YOU MAY DECIDE HOW DIFFICULT YOU" M"WANT THE GAME TO BE:" N5)"IF YOU CHOOSE 1, THE MONSTER IS" O"SEMI-STUPID AND THE PIT IS VISIBLE."% PO IT HE'LL"1 0"SINK---AND LOSE AUTOMATICALLY!"7 1e 23)"YOU MAY MOVE NORTH, EAST, SOUTH, OR" 7"WEST BY ENTERING N,E,S OR W. IF YOU" <"ENTER ANY OTHER LETTER, YOU WILL STAY IN" A"THE SAME PLACE.": B"HIT RETURN TO CONTINUE.";I$ C SPAN OF ONLY A FEW TURNS (YOU"O $"OR THE COMPUTER MAY SELECT THE NUMBER)": (3)"YOUR MOVEMENT AND THAT OF THE MONSTER" -"TAKES PLACE ON A 5X5 GRID. SOMEWHERE" ."ON EACH GRID THERE IS A PIT FILLED WITH " /"QUICKSAND. IF ANYONE FALLS INTo :Q (10):13)"MONSTER CHASE"::14)"BY T. NELSON":15)"(JAN.1980)"dPP11200:PPj13)"MONSTER CHASE "::3)"IN THIS SIMULATION YOU'RE TRAPPED IN A""CAGE WITH A HUNGRY GREEN MONSTER WHO HAS" #"A LIFE"" " " " " """""""""