' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`"&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 SUBROUTINE22,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İ3550818:17,1919:16,2020:15,2121;6!I2225:14,22I:IS6!15,2126:16,2027Y6!z6! MED SIZE FLOWERS & CENTERS6"11,129:10,1310:20,10:10,1311:11,1212:16,13:23,146"19,2015:13,1416:13,1419:19,20186"I1718:12,15I:IWERS LOSS 5!0:8600: BACKGRD55!5:8620: TABLEJ5!15:8640: VASEb5!15:8700: FLOWERSz5!15:8760: FLOWERS5!5:8810: LEAVES5!5! FLOWERS BACKGRD5!I725:6,32I:I:5! TABLE5!I2630:6,32I:I:5! VASE"6!16,1START 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,2NOW 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" K(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(X 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,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*IADRANT ";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 QUPTAIN ";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 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 TRACKA$" ":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 S8):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 ":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!.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)===================================>"; "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 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 VEGG51Ĵ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 GGE 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    :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((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,7S(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)0970Z7 SAGITTARIUS ARCTURUS "WK$"---- ---- ---- ---- ---- ---- ---- ----"K$"8 POLLUX SPICA "K$"---- ---- ---- ---- ---- ---- ---- ----"K$1990"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  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":"     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 -----     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     z#?   ҠˠҠFˠԠŠĠŠ !ΠŠ"ҠŠҠӠŠӠĠŠŠ ̠Š Š  ĠΠȠŠԠ ӠŠԠɠ$ ƠɠϠ ŠŠ̠ԠΠ7̠ҠԠUCT 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);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      )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"PUZZL       #(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" EMPIRE ELECTRONICS (206) 244-5200 ";:380:"----------------------------------------"C$" ":B$" "      E DRD...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 WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    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( -                    LPYPXW,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 DI