' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` 00>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( 0Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u0 XJ(K10) J(K10)J(L10), J(L10)X5 L,KB K1I1_ J(K10)J(K11)13330f Ko R9Iu ~* P904 Z9115> I1V(Z9,1)H I2V(Z9,2)R I3V(Z9,3)\ I4V(Z9,4)f J14p W(1,J)M(I1,J)z W(2,J)M(I2,J)  W(3 J(I)J(I1)3110. CI13040,3060,3080> PP2:3090N PP4:3090X PP6_ Im& C23170v0 R90: I3CD 3180N IX PPR9b l J1Cv J(J10)J(CJ1) J K1I LK1I J(K10)J(L10)3270 UM ";P9;" POINTS "& F2:S1S1P98 S11211320I" S9312880Z, F0:C0:S90d6 1450v@ C$"GO"1830J 1450| P0 C13170 S9152990 PP2 3010 S9313010 PP2 QQ2:C2QQQQC2 ICQQ1700Z I(M520)I9$d J(C)M(I9,4)-n P90<x S9M(I9,2)F 2800N J9\ LV(B9,1)f 2650s J91K9 I9I(J930) I(I9)P92770 J9 I(M520)I9 J(C)M(I9,4) S9S9M(I9,2) "APPLE PLAYED ";C$(M(I9,1)) S9;" SPERHAPS YOU COULD TRY YOUR LUCK AT ONE"V&"OF OUR OTHER TABLES. BUT, WATCH OUT FOR"&"THE ROULETTE WHEEL. IT EATS MONEY!" && 9999&D911000::' GOOD ... ON TO THE NEXT TABLE")!2500!(#:100:6:"THAT WAS GOOD! IF YOU ARE READY FOR SOME MORE TYPE 'RUN' ...ANYTIME!"!2#:::" I ONLY WANT 10 % OF YOUR WINNINGS ! ! !":::" THAT'S REASONABLE, ISN'T IT ?"!&255!' J1M uA$(J)"999"9000N z:6)A$(J),B$(J),"? ";:10:Q$(NUM128):Q$_ Q$"B"9000p Q$"R"3055 Q$"T"6070 Q$C$(J)6090 :" NOPE, IT IS ";C$(J) 12:6010 :" THE ANSWER IS ";C$(J) 12:6010 !:" VERY(M),"? ";:10:Q$(NUM128):Q$0 Q$"B"9000H Q$"R"ĉ:255:560Y Q$"T"3100l Q$C$(M)3120 :"WITH ";A$(M);" VS ";B$(M);" YOU ";C$(M) 12:3040 ** TELL THE ANSWER :" THE ANSWER IS '";C$(M);"'":12& 30400  pL) = DEALER'S UP CARD3 ** C$(L) = CORRECT PLAYJ A$(L),B$(L),C$(L)t ** COMING TO THE END OF THE TABLE ? A$(L)"N"ML1:6000 ** COMING TO THE END OF ALL TABLES ? A$(L)"999"6000  I120 MX(I) :6)A$(M),B$I120:X(I)I: ** THE QUESTIONS ARE ASKED IN GROUPS OF 20 AND RANDOMIZED WITHIN THAT GROUP. THEREFORE EVERY RUN IS DIFFERENTJ119Y((1)(21J))JTX(J):X(J)X(Y):X(Y)T  L120 ** A$(L) = PLAYERS HAND ** B$(HIT 'S' = STAND 'D' = DOUBLE DOWN 'P' = SPLIT PAIRS 'T' = TELL ME 'R' = RULES 'B' = 'BYE' IF YOU WANT TO STOP"R:"YOUR HAND","DEALER SHOWS","YOU PLAY"\34,10 ** RANDOMIZE INDEX **I1R:Z(0):EW THE RULES (Y/N)?":10:NUM217550K6:" NOW FOR THE HARD PART...!!"*:"ENTER A NUMBER BETWEEN 1 AND 50";R:R1R50ĺ"TRY AGAIN!!":8109 ** R IS USED TO INITIALIZE THE RANDOM # GENERATOR>:2:" ANSWER AS FOLLOWS: ":H" 'H' = 99 2 THROUGH 9 (EXCEPT 7)"g5:6:"WHEN YOU PLAY BLACK JACK FOLLOW THE ABOVE RULES ",:" COMPLETELY !! ":" D O N ' T FOLLOW HUNCHES ! ! ! ":" AND N E V E R TAKE INSURANCE ! ! ! "::5%6:" DO YOU WANT TO REVI:" NEVER SPLIT 44, 55, OR 10 10"P::" SPLIT AGAINST DEALER'S CARD":" 22 3 THROUGH 7 33 4 THROUGH 7"" 66 2 THROUGH 6 77 2 THROUGH 7"$" ,A5,A6 HIT IF YOU CAN'T DOUBLE"M"A7 STAND IF DEALER HAS 2,7,8, OR A"u:"A7 HIT IF DEALER HAS 9 OR 10":"A8 STAND"56:"NOW I'LL SHOW YOU WHEN TO SPLIT PAIRS"::" ALWAYS SPLIT ACES (AA) AND EIGHTS (88)"! 4,5 OR 6 "" A6 2 THROUGH 6 A7 3 THROUGH 6 A8 6"56::" NOTE :";::" WHEN YOU CAN'T DOUBLE DOWN":"ON YOUR 'SOFT' HANDS. DO AS FOLLOWS:"!::"A2,A3,A4% CORRECT FOR WEEK ";IJ`24:" << PRESS THE SPACE BAR TO CONTINUE >>";feX(16384):X1271125tj16368,0t PRINT NEW RATINGSxQIy:~:3:" << RATINGS AFTER WEEK ";Q;" - ";A2;" >> ":"===================================== " K" )C1,2,2,3,3,129( 1,2,2,3,4,08,1,2,3,3,3,09,1,2,3,3,4,08Y( 1,2,3,4,4,08,1,2,3,4,5,05( 1,1,2,3,6,1,2,2,3,6,1,2,3,3,6,1,2,3,4,4 ( 1,2,3,3( "1","2","3","4","5","6"(  " A"," 2"," 3"," 4"," 5"," 6"," 7"," 8") " 9", "10"," J"," Q",0,1,2,4,6,3,5,0,1,2,5,6,3,4,0M' 1,3,4,5,2,6,0,1,3,4,6,2,5,0,1,3,5,6,2,4,0' 1,4,5,6,2,3,0,2,3,4,5,1,6,0,2,3,4,6,1,5,0 ' 2,3,5,6,1,4,0,2,4,5,6,1,3,0,3,4,5,6,1,2,0' 1,1,1,2,3,09,1,1,2,2,3,12,1,1,2,3,3,12 ( 1,1,2,3,4,08,1,2,2,2,3,09,:" IT IS MY DEAL "&&M1M:Y1M:C&NN$;"'S CARDS ARE : ":N&I16b&K2IY:L2IMm&.J14&BM(I,J)D(K,J)&VY(I,J)D(L,J)&`J&jI;" ";C$(Y(I,1))&~I&& 1,2,3,4,5,6,0,1,2,3,5,4,6,0,1,2,3,6,4,5,0' 1,2,4,5,3,6," YOU DREW THE ";C$(I1)*% J(52(1)1)8%JI5900F% J1D(J,1)e%*"APPLE DRAWS THE ";C$(J1)}%4D(I,4)D(J,4)6020%>D(J,4)D(I,4)5990%H"CUT AGAIN !":5810%fM0:%M1:%M06100%:NN$;" IT IS YOUR DEAL ":%6110&)J$XD(I,3)((J1)13)18$bD(I,4)J13((J1)13)_$lD(I,2)D(I,4):D(I,2)10D(I,2)10j$vI(J)1q$Iw$$"PLEASE CUT FOR DEAL (#1 TO 52)";I$I1I525870$" BE SERIOUS NOW ";NN$:5810$I(I)5830$I1D(I,1)%NN$;@PPR(I,5)#J#TI,L&#rL138#|DW(L,4)S(1)C#I13S#S(I)S(I)DZ#Ie#I13#W(LI1,4)S(I)5600#I#PPS(4)##L##I152#I(I)0#&I#0I152#:J(52(1)1)#DI(J)05690$ND(I,15"PQ(I,J)Q(I,J)D"ZJ,I*"nI1115"xJ15N"W(J,4)Q(I,J)5300U"Jd"PPQ(I,6)j"q"I|"L12"DW(L,4)R(1,1)"I14"J14"R(I,J)R(I,J)D"J,I"I14"K14""W(KL1,4)R(I,K)5460",K # !tJW(I,4)!~J(J)J(J)1$!I0!I113U!J(I)15060,5060,5050,5040,5030_!PP6i!PP4s!PP2z!I!I15!JI5!W(I,4)W(J,4)5140!KW(I,4):W(I,4)W(J,4):W(J,4)K!J,I!2DW(1,4)Q(1,1)!<I111"FJ1,2)154720 fPP2! pK,J,I, I129 JI13F KJ14S LK15} W(I,2)W(J,2)W(K,2)W(L,2)154820 PP2 L,K,J,I S0 I15 SSW(I,2) $I .S154940 8PP2 LI113 VJ(I)0 `I!jI15W(I1,3)4600I#C04570-PP4FW(4,3)W(5,3)4600PPP1Z4600sW(4,3)W(5,3)4600}PP5I14JI15 W(I,2)W(J,2)154640PP2 J,I>I13HJI14RKJ15 \W(I,2)W(J,2)W(K0"2 POINTS FOR ME"$S1S126S11211320<Y"2 POINTS FOR YOU ";NN$eS2S22wS21211360}P00C14480:I14DW(I,4)114460NW(I,3)W(5,3)4460XPP1b4480lII13 W(I,3)K0I1J$J(I)P94100.KK1:B9I(I)AIPK14130Vv"Z3730,3770,3810,3850,3890JU(38(1))14T:"UP CARD IS ";C$(D(U,1)):rI14|W(5,I)D(U,I)IT9W(5,4)W(5,4)114340M0431C97:Z33930"C911:Z4,39309 C91:Z5C3930V2B9(J(1))1c<B9I(B9)iFrZP90~dI115nJ(I)0xII1JK14LV(I(I),K)M(L,4)C94020J(I)J(I)1KP9J(I)P9J(I)I,J)M(I3,J) W(4,J)M(I4,J), W(5,J)253 J; C0E 4380S V(Z9,7)Pb P9PP9Pj Z9r J0~ I115V(I,7)P93620JJ1I(J)I$I.J13690BB9I(1)LjC95:Z1~3930C98:Z23930 D MAY MOVE ANY ONE"+/"PIECE ONE SPACE."Y/" WHITE MAY ONLY MOVE UP, DOWN, OR TO"/"THE RIGHT. BLACK MAY MOVE IN ANY DIREC-"/"TION. NO PIECE MAY MOVE TO A SPACE"/"OCCUPIED BY ANOTHER PIECE."/:" << PRESS THE SPACE BAR TO CONTINUEl//v/" THE PLAYING FIELD FOR THE FRENCH"]/"MILITARY GAME IS SHOWN ABOVE. YOU WILL"/"PLAY WHITE AND WILL START WITH THREE"/"MEN LOCATED AT 1, 2, AND 4. BLACK HAS"/"ONLY ONE MAN, WHICH STARTS AT 6. WHITE"/"HAS THE FIRST MOVE AN$/" / ! \!/ ! \"J&/" 1----3----6----9----11"n0/" \ ! /!\ ! /":/" \ ! / ! \ ! /"D/" \ ! / ! \ ! /"N/" \!/ ! \!/"X/" 4----7---10"b/34,113:Y3:%+Y31820:28,30Y3:Y3:C+Y32931:28,30Y3:Y3:a+Y31820:37,39Y3:Y3:t. INSTRUCTIONSz.." 2----5----8"." /!\ ! /!\"/" / ! \ ! / ! \"/" / ! \ ! / ! \"'0:11006'* SQUARE 1;*Y31820:1,3Y3:Y3:W*Y379:10,12Y3:Y3:u*Y31820:10,12Y3:Y3:*Y32931:10,12Y3:Y3:*Y379:19,21Y3:Y3:*Y31820:19,21Y3:Y3:*Y32931:19,21Y3:Y3:+Y379:28,30Y"" "LOS ANGELES ";!" 7" "SAN FRANCISCO";="$ "; !H!R"ST.LOUIS ";%!\;!f"WASHINGTON ";A!pW!z"CHICAGO ";]!s!"GREEN BAY ";y!!"DETROIT ";!!"MINNESOTA ";!!"TAMPA BAY ";!!"ATLANTA ";!!"NEW ORLEANS ";D "; # "CINCINNATI ";) ? "OAKLAND ";E [ "DENVER ";a w "KANSAS CITY ";}  "SEATTLE ";  "SAN DIEGO ";  "N.Y. GIANTS ";  *"DALLAS "; 4!>"PHILADELPHIA2190,2210,2230,2250,2270,2290,2310,2330-C"BALTIMORE ";I_"NEW ENGLAND ";e{&"MIAMI ";0:"BUFFALO ";DN"N.Y. JETS ";Xb"PITTSBURGH ";lv"HOUSTON "; "CLEVELANM11K128&E(K)E(M1)1694/M1K6K@Z1M1`1740:G(M1):E(M1)1000:Jf} PRINT TEAM NAMESZ11790,1810,1830,1850,1870,1890,1910,1930,1950,1970Z1101990,2010,2030,2050,2070,2090,2110,2130,2150,2170'Z120NGES FOR SEASON >> "::"========================================"s"TEAM RATING TEAM RATING";"------------------- -------------------";:34,5:A128G(A)((E(A)Y(A))P.5)P:AJ128J15Ģ6J14Ė22E:\J12:"INSERT THE DATA TAPE":"START IN RECORD MODE":"THEN PRESS RETURN ";:ST$sOE:A11500:A:E}R:12T::"THE NEW RATINGS ARE STORED":YA12000:A RATING CHANGES:A128:Y(A):AB:::3:" << RATING CHA(A1P.5)P,XX36:A110A11XXXX1CA11A10XXXX1XA110XXXX1dXX:A1pY(M1)1{Y(K)1J24:" << PRESS THE SPACE BAR TO CONTINUE >>";X(16384):X127152516368,0@ STORE NEW RATINGS ON TAPE ";A2;" >> ":@7"========================================"J<34,4RAY0^FJ128oPY(J)11510xZM1JdK(M(J,W))nM(J,W)01420xM1KKJZ1M11740" AT ";Z1K1740A1E(M1)E(K)F1 A1E(M1)(E(M1)P.5)P/X1ĺY(M1):1280:E(M1)JY(M1)1000Q J24:" << PRESS THE SPACE BAR TO CONTINUE >>";X(16384):X127129616368,0( PRINT PREDICTIONS-WI10:2:" << PREDICTION FOR WEEK ";W;"==="5"TEAM RATING TEAM RATING";f"------------------- -------------------";p34,5A128:Y(A)E(A):AJ128J15Ģ6J14Ė22M11K128Y(K)Y(M1)1240M1KKZ1M11740;B$(G1);" AND: ";B$(G2):11506j" UNASSISTED":1150Yt" ASSISTED BY: ";B$(G1):1150~T2(G)T2(G)1:T3(G1)T3(G1)1:T3(G2)T3(G2)1:1540A2(100(1))1:(A24)A2411701200C1180,1190"SAVE ";B$(6);" REBOUND":940"SAAR'..NICE GOING ":::j :THIS PROGRAM WAS REVISED BY ALEX MASSIMO,FOR THE APPLECORPS OF SAN DIEGO. :LINE 0 IS SET AT SPEED=150,YOU MAY CHANGE IT IF YOU SO DESIRE.TOTAL PAR FOR ";F1;" HOLES IS ";G3;" YOUR TOTAL IS ";G2:1800PG1F11766Y292::"DON'T FORGET TO TIP THE CADDY !":"COME BACK..REAL SOON..YOU ALL !"255::">>>>>>>>>>>>>>>>>>>*<<<<<<<<<<<<<<<<<<<"::9)::" A 'P400620B 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2p 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 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?"1450"PASSED BY CUP."*"D2D24,1505G6D,P,L(1),L(2)Q>::@"YOU ARE AT TEE OF HOLE ";F;" DISTANCE ";D;" YARDS, PAR ";PEG3G3PS:T"ON YOUR RIGHT IS ";^X1h400m:r"ON YOUR LEFT IS ";|X2S11P(H.072)21470'K214701KK1?T41530ZD2D2I(42(1))1.5jD221560yD221500:::" YOU HOLED IT ! ":::FF1230"PUTT SHORT."D2(D2)1380D2D2I(41(1))1S5PUTTING((1)N1360&2NN.2J<"SHSOT DUBBED, STILL IN TRAP."SF620\PN.8fZ1300d"ON GREEN ";D2;" FEET FROM THE PIN.":e:"CHOOSE YOUR PUTT DISTANCE POTENCY......"f:8)"NUMBER ( 1 TO 13 ) ?"gxIS1S11IT"=,1:4:"DAY ";D;" ";:20:"PROFIT IS ";M;" "C6T@I12000:I^T::^"WOULD YOU LIKE TO PLAY AGAIN ";A$h(A$,1)"N"Ĭr:12|"WELL THEN, ITS BEEN FUN ";N$TI11000:I::k"CONGRATULATIONS !! YOU HAVE MINED A MILLION DOLLARS IN ONLY ";D;" DAYS!"s: OPEN DISK FILE #21530BD1400BD13801290 ROUTINE TO INPUT M$,B$,C$,R$,B,AND C TO FILE 2 AND THEN CLOSE RITE T$P CLOSE 18Z"WELL ";N$;" YOU JUST BROKE";B_1410fd"CONGRATULATIONS!!! YOU TIED";pn1410x"YOU DIDN'T BREAK";" THE RECORD""OF $";C;" MINED IN ";B;" DAYS""BY ";M$;" ON ";R$I11500:I1600D.DAT" AS FILE1530&CM14004CM1380AD365.24f  ROUTINE TO READ CLOCK AND DATE"HEY OLD TIMER, WHAT'S YOUR NAME";N$:: DISK COMMAND TO OPEN "GOLD.DAT" AS FILE #1( WRITE N$2 WRITE D< WRITE MF WME IT IS RUN."A 024:" << PRESS THE SPACE BAR TO CONTINUE >>";Z 1(16384)12712550h 116368,0p 1:v $1,0" THE PROGRAM STORES WHAT IS HAS"R0"LEARNED IN AN ARRAY THAT MAY BE SAVED"j0"ON DISC OR TAPE."0" IF THIS ARRAY IS NOT SAVED OR IS NOT"0"RELOADED THE PROGRAM WILL START FROM"0"THE BEGINNING IN LEARNING HOW TO PLAY" 0"EVERYTIHE SPACE BAR TO CONTINUE >>";6z0(16384)12712410D016368,0J0u0" THE GAME IS VERY EASY TO WIN THE"0"FIRST FEW TIMES IT IS PLAYED, BUT IT"0"WILL LEARN FROM ITS MISTAKES AND BECOME"0"INCREASINGLY MORE DIFFICULT TO BEAT."%OR 7. BLACK WINS BY"A>0"REACHING 1 OR BY EVADING BEING PINNED"VH0"FOR 20 MOVES."R0" WHITE CAN ALWAYS WIN IF HE PLAYS"\0"CORRECTLY AND DOES NOT MAKE ANY MIS-"f0"TAKES. BUT IF YOU WANT TO RESIGN JUST"k0"TYPE 0,0"p024:" << PRESS T >>";/(16384)12712270,/16368,020_ 0" WHITE WINS THE GAME BY PINNING THE"0"BLACK PIECE SO THAT BLACK HAS NO MOVE." 0"THIS USUALLY OCCURS WITH BLACK TRAPPED"*0"AT 11, BUT IF BLACK PLAYS POORLY IT MAY"40"BE PINNED AT 5 *> <*> <*> <*> <*> <*> <*> <*>"%K4:I10731093:I,32:I768,32:Ir>I12021843128:I,32:I18,32:IH1335,65:1337,80:1339,80:1341,76:1343,69R1589,139:1591,137:1593,142:1595,135:1597,132:1599,143:1601,141\I20122026: * *3' ********************* I' * HORSE RACE *6' * *R' * BY *n' * * ' * GEOFFREY GENZ * ' * & * ' * PAUL BRAUN * ' * * ' * AGES 14 & 15 *'X$"WHEN YOU RUN OUT OF MONEY YOU WILL BE LOANED $500. WHEN YOU HAVE ENOUGH MONEYYOUR LOANS WILL BE PAID BACK.":X$:X$"PRESS ANY KEY TO CONTINUE"::X$;:X$:240' ' *********************' * *X$:X$"YOU CHOOSE A HORSE, HOW MUCH MONEY, AND TO WIN, PLACE OR SHOW (W,P OR S).":X$::X$"BETTING TO WIN PAYS FULL ODDS, TO PLACE PAYS HALF ODDS ON A 1ST OR 2ND PLACE HORSE AND SHOW PAYS 1/3 ODDS ON A 1ST, 2ND, OR 3RD PLACE HORSE.X$:I0I1:X(I)X(II)1590$JII,I:T 2,3,2,3,2,2,1,2,1,2,3,3,0,3,0,3,3,3,2,3,2,3,3,0,1,0,1,0,0,3,2,3,1,0,1,1,1,1,0,1,0,0,1,2,1,1,2,-9,-9|:X$"WELCOME TO THE GENZ-BRAUN RACE TRACK":X$::X$"TODAY WE WILL HAVE THE THREE YEAR OLDS 6FURLONG RACES":,RIGHT WING,LEFT DEFENSE,RIGHT DEFENSE,GOALKEEPERn!v:"ANY OTHER INPUT WILL HAVE EXPLANATORY INSTRUCTIONS."v!90! DONATED BY KEVIN ARMSTRONG! 2 FOR UPPER RIGHT CORNER"H &" 3 FOR LOWER LEFT CORNER"v 0" 4 FOR LOWER RIGHT CORNER" b"AT THE START OF THE GAME,YOU WILL BE ASKED FOR THE NAMES OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER:"1!l:"LEFT WING,CENTER TO 3.*"SHOT 1 FOR SLAPSHOT"O" 2 FOR WRISTSHOT"s" 3 FOR BACKHAND"" 4 FOR SNAP SHOT""AREA WHERE YOU WILL AIM"" 1 FOR UPPER LEFT CORNER" " T2(T),T3(T)T:E"SHOTS ON NET ":A$(7);":";S2:B$(7);":";S3Ku:"THIS IS A SIMULATED HOCKEY GAME.""QUESTION RESPONSE""PASS NUMBER OF PASSES YOU"" WOULD LIKE TO MAKE"" FROM 0,A$(7);":";H(9)/6:10);"SCORING SUMMARY":?@25);A$(7)]J"NAME","GOALS","ASSISTS"{T"----","-----","-------"^I15:A$(I),T(I),T1(I)hI:r25);B$(7)|"NAME","GOALS","ASSISTS""----","-----","-------" T15:B$(T),D IT REBOUNDS ALL THE WAY TO CENTER ICE"1260]"GLOVE SAVE ";A$(6);" AND HE HANGS ON"g1540L:N130:(7);:N:"THAT'S THE SIREN":15);"FINAL SCORE:"H(8)H(9)1580"A$(7);":";H(9),B$(7);":";H(8):1590,B$(7);":";H(8)";A$(6);" AND "A$(6)" COVERS"="ON THE LOOSE PUCK!":1450Y"SKATE SAVE BY ";A$(6)A$(6)" WHACKS THE LOOSE PUCK INTO THE STANDS"1540"STICK SAVE BY ";A$(6);" AND HE CLEARS IT OUT HIMSELF"260"KICKED OUT BY ";A$(6)("AN AND HE IS HURT"BP"THE DEFENSEMAN ";B$(5);" COVERS UP FOR HIM"LZ1540rdS11390,1410,1440,1470,1490,1520n"STICK SAVE BY ";A$(6)x"AND CLEARED OUT BY ";A$(4):260"OH MY GOD!! ";B$(G);" RATTLES ON OFF THE POST""TO THE RIGHT OF INTO THE CROWD"1540K "SKATE SAVE ON A LOW STEAMER BY ";B$(6):260v"PAD SAVE BY ";B$(6);" OFF THE STICK""OF ";A$(G);" AND ";B$(6);" COVERS UP"(15402"WHISTLES ON OVER THE HEAD OF";B$(6)<260FB$(6);" MAKES A FACE SAVE!!VE ";A$(6);" FOLLOW UP":940/S1(6(1))1@C1220,1380fS11230,1260,1290,1300,1330,1350"KICK SAVE AND A BEAUTY BY ";B$(6)"CLEARED OUT BY ";B$(3)260"WHAT A SPECTACULAR GLOVE SAVE BY";B$(6)"AND ";B$(6);" GOLFS IT 2400%32,16:A$"MORE DATA":2400A 32,18:A$"IS IN":2400c*32,20:A$"PREPARATION":2400o432,1:w` 11j X1(A$)t (A$,X,1)~ T125:T X  100:1:"MY DATA":2:"INDICATE":3:"THAT YOU ARE":4:"CORRECT."9 6ING"&X(16384):X177X1852030416368,0BKEYX176HXKEYP2500pA$"DATA NOT":2400 32,3:A$"CONSISTENT":240032,5:A$"WITH":240032,7:A$"INFORMATION":240032,9:A$"ON THAT":240032,11:A$"PLANET":.)%:YOU MAY WISH TO CHANGE LINE # 25.ASIGN BY ALEX AND CHRIS MASSIMO.M$:THIS PROGRAM WAS ADAPTED FOR THE APPLE"n$:BY ALEX AND CHRIS MASSIMO.$:DONATED TO THE APPLECORPS OF SAN DIEGO.$ :IF YOU WISH TO CHANGE THE SPEED, REDO LINE # 139.%:IF YOU WISH DIFFERENT RANDOM FIGURES*BORDER EXPANSION-(15%)-INCREASES"Q#@ "POPULATION AND LAND, DEPENDS ON PRESENT"p#J "POPULATION OF KINGDOM !"#T 22:"IF YOU ARE READY TO RULE APPLE KINGDOM,"#^ :"TYPE A 'Y' AND GIVE IT A GO,GOOD LUCK !"#h A$#r A$"Y"20#| $:TITLE DE(15%)-DECREASES HARVEST TO 1"<" "OR 2 BUSHELS PER ACRE !"k" 23:"TO CONTINUE HIT ANY KEY !":K$:2840q" " :8:"*GRAIN SHIPMENT-(15%)-INCREASES GRAIN""" "STORAGE, DEPENDS ON THE SIZE OF THE"", "KINGDOM ( ACRES OF LAND ) !""1 :"#6 "CE ACREAGE"! "UP TO 15% !"$! N! :"*ATTACK BY HUNS-(10%)-MAY REDUCE"}! "POPULATION UP TO 40%, STORAGE UP TO 10%"! "AND LAND UP TO 2% !"! ! "*RAIN-(15%)-INCREASES HARVEST TO 7, 8"! "OR 9 BUSHELS PER ACRE !"! " "*DROUGHT-23:" TO CONTINUE HIT ANY KEY !":K$:26990 S :9)"<*> RANDOM FACTORS <*>" :"*PLAGUE-(10%)-MAY REDUCE POPULATION" "UP TO 80% !" "*THEFT-(10%)-MAY REDUCE GRAIN STORAGE" "UP TO 10% !" ! "*EARTHQUAKE-(10%)-MAY REDUDERFEEDING-THE RULER MAY STARVE OFF"RZ "2 PERSONS PER YEAR WITHOUT ILL EFFECT."~d "EACH STARVATION OVER 2 INCREASES THE"n "CHANCES OF FOOD RIOTS BY 5% EACH."x "A FOOD RIOT MAT RESULT IN A LOSS OF UP" "50% OF THE GRAIN IN STORAGE !"* 8  :4? "*OVERFEEDING-A FOOD SURPLUS OCCURS WHEN"n( "MORE GRAIN IS ALLOTED FOR FOOD THEN THE"2 "MINIMAL REQUIREMENT. THERE IS ABOUT"< "A 50% CHANCE OF GAINING 1 PERSON FOR"F "EACH 20 BUSHELS OVER THE MINIMUM."K :$P "*UNXIMUM"" "OF 2 ACRES PER YEAR."( R "*LAND PRICE-VARIES BETWEEN 3 AND 6"k "BUSHELS PER ACRE. q  "*POPULATION-VARIES BETWEEN 20 TO 40 %"  "*GRAIN LOSS-VARIES BETWEEN 0 AND 50 %" 23:" TO CONTINUE HIT ANY KEY !":K$:258 GAME CONSTANTS <*>" G "*FOOD-EACH SUBJECT REQUIRES A MINIMUM"v "OF 10 BUSHELS OF GRAIN PER YEAR AS FOOD"|  "*SEED-EACH ACRE PLANTED REQUIRES 3" "BUSHELS OF GRAIN PER YEAR FOR SEED."  "*LABOR-EACH SUBJECT MAY PLANT A MAL WEALTH EQUAL TO, OR"Et " EXCEEDING ONE MILLION UNITS. WEALTH IS"q~ " MEASURED IN TERMS OF TWO QUANITIES:" " ACRES OF LAND OWNED, AND BUSHELS OF" " GRAIN IN STORAGE." 23 " TO CONTINUE HIT ANY KEY !":K$:2470  :8)"<*>ICAL,MEDIEVAL"=8 " COUNTRY. THE RULER MUST MAKE DECISIONS"lB " WHICH MAINTAIN THE KINGDOM AND ADVANCE"L " THE PLAYER TOWARD THE GOAL."V " THE GOAL OF THE PLAYER IS TO RULE THE"` " WORLD !. THIS IS ACCOMPLISHED BY"j " COLLECTING A TOTA158:I1683,129"1555,1075N14000:N:U:10)"OFFICIAL RULES FOR"x 3:9)"<*> K I N G D O M <*>"~  " THE GAME OF APPLE KINGDOM IS BASED UPON" $ " THE PREMISE THAT THE PLAYER IS TO ACT". " AS THE RULER OF A MYTHI,32:I!fI18851897:I,32:IGpI19741758128:I,32:I2,32:ImzI11181758128:I,32:I2,32:II11261766128:I,32:I2,32:I1982,32:1984,32I11191756128:I,170:I8,170:II19361942:I,58:II18081814:I,24);"92123"):14);"714-279-0345"< ZZ13000:ZZB*U(W$(I),P,1)6JJDXY(W(I,3),2):KKDXY(W(I,3),1):P=(I_2XY$"HERE IS THE ANSWER KEY:"i<1070oPx:712);"ADAPTED FOR APPLE"19);"BY"12);"GEORGE B. HILBERT"12);"8314 LARKDALE AVE"13);"SAN DIEGO, CAL"  W(((1)15)1)  5'" SAVE TWONKY " "HE IS IMMUNE TO ALL TRAPS!!! "r ::"YOU CAN MOVE ONE SQUARE PER TURN":" SHOOT IN ONE DIRECTION " "IF THE TWONKY IS HIT HE DISPLACES TO":"SOME OTHER SQUARE " ::" G O O D L U C K !" :"CR":Q$  Z(((1)15)1).6,257+ B' 318,2.65,38,86000,12,11.86,484N L' 95,1.15,23,74000,10,29.5,895l V' 15,1,14,30000,5,84,1780 `' 17,1.55,15,28000,2,164,8,27900"*";:5090!" ";:50901"@";:5090A"#";:5090K" ";RA]12:8c' .05,.37,2.5,3000,0,.24,36' .81,.89,6.2,7600,0,.61,67$' .11,.39,3.1,4200,2,1.89,67.' .0002,.1,.4,480,0,4.6,256 8' .00005,.05,.2,300,0,4"PLANETS"*::"1.MERCURY":"2.VENUS"""3.MARS":"4.CERES":"5.PALLAS":"6.JUPITER":"7.SATURN":"8.URANUS":"9.NEPTUNE", THINGA110N((1)51)X((1)831)Y((1)616)Y:XN5060,5065,5070,5075,508255   SET UP"S" ";rA222:" ";:40:" ";:A" ";:10:10:" "32,29A222A:" ":A 32,30 2:: "2X " WHEN THE PLANET IS IDENTIFIED "Yb " THE COMPUTER WILL BE ABLE TO "l " PLOT A COURSE FOR HOME. "q " "v  " PRESS THE SPACE BAR TO BEGIN. " (16384)1273210 16368,0 " PREVENTED YOUR COMPUTER FROM "H& " IDENTIFYING IT. THE COMPUTER "o0 " CAN PROVIDE YOU WITH INFOR- ": " MATION ON THE PLANET. YOU "D " MUST USE THIS DATA TO FIGURE "N " OUT WHICH PLANET IT IS. " S " 1237 :"*MAROONED IN SPACE****MAROONED IN SPACE*";> ID N 32,4U 4^ 100 " " " IN THIS GAME YOU ARE MAROONED " " IN ORBIT AROUND AN UNKNOWN " " PLANET. A MALFUNCTION HAS "! :"A COURSE":7:"FOR EARTH":8:"HAS BEEN":9:"PLOTTED"` 11:"WE WILL":12:"BE HOME SOON" 1:"FOR YOUR INFORMATION":3:"HERE IS THE REST OF":5:"THE DATA ON THE":7:"PLANET" 255 I1500:I Z1: INSTRUCTIONS  IE D#(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":WORDS IN THE ABOVE PUZZLE :"">J1M:(W$(J))01210X(0)(W$(J))TW2ĺdW$(J),mJ:s(X$,1)"Y"1250I1L:J1W:A$(I,J)".":J:II1MLN(W$(I)):JW(I,2):KW(I,1) P1LN A$(J,K)R EACH COPY, HIT RETURN TO BEGIN PRINTING..."L$C1N:1070:C:1230X.:A$:k8T(TW2W)2:qBL(TW(XY$))2);XY$V:`J1L:T);jK1W:A$(J,K)"."ĺ". ";:1140oA$(J,K);" ";tK::J~:"FIND THESE W'A$(I,J)""A$(I,J)(A(26)65)1J:IGI1M1:JI1M^W$(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 PUZZLE DO YOU WANT ";N2:"FOI)"":950RJSY:KSX$\P1LNNf(A$(J,K))A$(J,K)(W$(I),P,1)790qpJJDXY(SD,2):KKDXY(SD,1):PJSY:KSXP1LN:A$(J,K)(W$(I),P,1)JJDXY(SD,2):KKDXY(SD,1):PW(I,1)SX:W(I,2)SY:W(I,3)SDII1LJ1A(W):X1SX(LN1)DXY(SD,1).!X11X1W790R*SYA(L):X1SY(LN1)DXY(SD,2)e+X11X1L790q4NTNT19NTWL2850>:"I COULDN'T FIT '";W$(I);"' IN THE":"PUZZLE"@:"DO YOU WANT ME TO START OVER ";A$B(A$,1)"Y"750 DW$(I):W$(I)W$(J):W$(J)HZ$"J:ICI18:DXY(I,1),DXY(I,2):IYI128:DD(I):I0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,12,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,7I1MLN(W$(I))NT0SDDD(A(28)) SX(IZ)T$Ă:630Tl:"YOU ENTERED THAT ONE ALREADY. TRY ANOTHER ONE : ":480avW$(I)T$hI:"THAT'S IT... ";M;" WORDS."ZZ13000:ZZ::12:6:"NOW LET ME PONDER THIS......"I1M1JI1M(W$(I))(W$(J))HZ$W$(0 J(T$)T$(T$,J1):580E&J1T$(T$,(T$)1):JJ1:570j0T$(T$,J1)(T$,(T$)J):JJ1:JJ1:J(T$)520D:"- ";T$;" -"X(T$)MD610]:"THAT'S TOO LONG, I'M AFRAID."_"TRY ANOTHER ONE : ":480bIZ1I1:W$ WHEN YOU RUN OUT OF WORDS, TYPE A PERIOD (.)."?I1MI:T$zT$"-"II1::"REDO ";W$(I);" . . .":480T$"."MI1:655(T$)0ĺ"INPUT ERROR; REDO:":480J1TE$(T$,J,1):TE$"A"TE$"Z"570TE$T$T$"":50W$(M)! W(M,3),DXY(8,2),DD(28)k :"NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE:" "( ";TW;" CHARACTERS MAXIMUM!)" XY$4:"OK....ENTER A WORD AT EACH QUESTION MARK. TO REDO THE PREVIOUS WORD, TYPE A HYPHEN (-). T WILL NOT FIT IN ";TW;" COLUMNS.":3304 YW1330U ^:"THE LENGTH ";L:LWMDLb cL1350 h:"WHAT IS THE NUMBER OF WORDS IN THE PUZZLE ";M rM2380 w:"SORRY, THERE MUST BE AT LEAST TWO WORDS." x360 | A$(L,W),IT RETURN WHEN READY TO CONTINUE ";GO$0 ::G ,A(Z)((1)Z1) 6"HOW MANY COLUMNS DOES YOUR PRINTER HAVE ";TW ;:"DO YOU WANT A SOLUTION PRINTOUT ";X$ J:"WHAT IS TO BE THE WIDTH OF THE PUZZLE ";W:MDW TW2TW345' W:"THA IT SHOULD START THE WHOLE"A n"OVER. IF YOU DON'T WANT IT TO"f s"START OVER, TYPING 'NO' WILL " x"THROW AWAY THAT PARTICULAR WORD." }"IF THIS PERSISTS, TRY EITHER " "GIVING LESS WORDS OR BIGGER" "PUZZLE DIMENSIONS!" :& "H CHARACTERS OUT OF"; F"THEM, AND INCORPORATES THEM INTO"X K"A WORD SEARCH PUZZLE."^ P U" IN THE COURSE OF MAKING THE" Z"PUZZLE, THE MACHINE MAY FIND" _"THAT IT CAN'T PUT A PARTICULAR" d"WORD ANYWHERE, AND SO WILL ASK" i"YOU IFC ::10,12);"CREATIVE COMPUTING"O10);"MORRISTOWN, NEW JERSEY"b(ZZ13000:ZZl)2000u-:52" THIS PROGRAM IS A WORD SEARCH"7"GENERATOR! THE PROGRAM TAKES A"<"SET OF INPUT STRINGS, PURGES ALL" A"NON-ALPHABETIC           30)":"SQUARES THAT RANDOMLY THROW YOU AROUND THE MAZE (22)"j " A SQUARE THAT RESTARTS EVERYTHING ! "r : "THEN THERE IS ";::"THE TWONKY": "":Q$ :"WHO CHASES YOU AND ABSORBS YOU IF HE":"GETS LESS THAN 2 UNITS FROM YOU "#,j "TWINKY AND IT'S KING HAS CAPTURED YOU"\ "HE HAS PUT YOU IN A MAZE THAT IS 15 * 15" "YOU ARE IN THE DARK YOU MUST GET TO ":"THE OBJECTIVE SQUARE TO BE SET FREE !" :" HAZARDS INCLUDE:"::= "SQUARES THAT YOU CAN NOT GO INTO ("FM PG 110 OF M/J CREATIVE COMPUTING"D"LISTED BY DAVID AMES"M" "U15 "DO YOU WANT INSTRUCTIONS (Y/N) ?";Q8$ Q8$"N"2700$ Q8$"Y"2310. L "THIS IS THE GAME OF TWONKY"` ::" YOU HAVE LANDED ON THE PLANET OF" A(Z,W)02070 *A(Z,W)1(4XZ0>YW:R2720N\A(Z,W)02130[fA(Z,W)5dpX2ZmzY2Ww2720A(Z,W)02190A(Z,W)6X1ZY1W:5;15);::"TWONKY":" ""BY MARK CAPPELLA"" "(YOU !"("YOU LOST !!!!!!!!!!!!":85040I015@:Z015MDA(I,Z)0TNZ[XIgvI130q2720A(Z,W)01920A(Z,W)2II1222720A(Z,W)01980A(Z,W)3I2720A(Z,W)0203027201710|Z2Y111710'Z1X1111710=Z1X11MA(X1,Y1)R9]R9A(Z1,Z2)lA(Z1,Z2)6vX1Z1Y1Z2:"TWONKY MOVES"1460D2210"> > > S C H L O O R P ! ! ! < < < ":"THE TWONKY JUST ABSORBED IS ";%D((((X1X)2(Y1Y)2)))-D;@" UNITS AWAY"W"THE OBJECTIVE ";xD1((((X2X)2(Y2Y)2)))D1;" UNITS AWAY",D217906Z2Y1@Z1X1JXX11680TXX11700^YY11660hZ2Y11rA S T ! " " YOU HIT WALL"8" SHOT MISSED"B(1430X2A(R1,R2)61160g<" OUCH!"~F"TWONKY RETREATS"PA(R1,R2)R9Z2720dA(Z,W)01370nA(Z,W)6xR90X1ZY1W14601580"THE TWONKY `S11jS20tR1X!~R2Y.R1R1S1;R2R2S2N" Z A P ---"]R111240mR1151240|R211240R21512401280"FIZZLE..""..SHOT LEFT MAZE""....SHOT MISSED"1430A(R1,R2)21330  "B L 870( "YOU STEPPED ON THE TWONKY!"2 1790M "WHICH WAY (F/B/R/L)"V Q8$h Q8$"F"1030z Q8$"B"1060 Q8$"L"1090 Q8$"R"1120 210 S10 S21 1140 $S10 .S21 81140 BS11 LS20 V1140"YOU GET A NEW MAZE !"! 1840+ 14301 *n 4"I DON'T BELIEVE IT BUT":" YOU WON !" >:"YOU GOT TO THE OBJECTIVE BEFORE" H"THE TWONKY GOT YOU" R: f"TRY AGAIN (Y/N) " pQ8$ zQ8$"Y"160 Q8$"N"2750  X"MOVE ALLOWED" b1430: "THAT SPACE IS BLOCKED"D 1430s :"YOU HAVE BEEN R E L O C A T E D !!!":} 2720 A(Z,W)2540 A(Z,W)0680 A(Z,W)1 A(X,Y)0 XZ YW 1430 :"YOU HIT THE SUPER TRAP !!"::::X51510 X515510( Y515107 Y515510@ 540l "THAT MOVE TAKES YOU OUT OF THE MAZE!" "MOVE NOT ALLOWED!!" 1430 (A(X5,Y5)1)560,640,640,770,810,930 &:"ERROR!":: 0A(X,Y)0 :A(X5,Y5)1 DXX5 NYY5 Q8$"S"960 2103 "WHICH WAY (F/B/R/L)"< Q8$M "Q8$"F"340^ ,Q8$"B"370o 6Q8$"L"400 @Q8$"R"430 J210 TX5X ^Y5Y1 h460 rX5X |Y5Y1 460 X5X1 Y5Y 460 X5X1 Y5Y 460 7d *** M CAPELLA ***&n TWONKY?x CREATIVE COMPUTINGZ MAY 1977 VOL #3 NO 3d2250rA(15,15){R901840"--------------------------------------"1460"MOVE OR SHOOT (M/S)"Q8$Q8$"M"270           ROACH";33);" 100"7" 5";7);"RETREAT";33);" 100"p" 6";7);"PASS";13);"NO MOVE GAIN 100 FUEL UNITS"34,11::"NAX SPEED = 50000 MILES":"SPEEDS VARY 10000-50000":"WARDEADS SPEED =35000 SHELLS =1000"::"GOOD LUCK ":A"WEAPONTRY":Cz"TYPE";9);"DESCRIP";20);"RANGE";33);"FUEL":z" 1";7);"HEAVY GUNS";24);"0-11000";33);" 10"" 2";7);"WARHEADS";20);"10000-100000";33);" 100"" 3";7);"LAZER";19);"100000-200000";33);"1000"" 4";7);"APP*3""BOTH ARE ON THE SAME MISSION ON EQUAL":"TERMS (WE GOT THEM EXCEPT FOR ONE)":"YOU MUST GET HIM BEFORE HE GETS YOU":"THIS MESSAGE WAS RECORDED ":"EARTH IS DEAD!!!"I124A1500A :I255110p:16);:TS "::"PROBLEM";::" THE ENEMY STILL EXIST !"v:"BY THE TIME YOU READ THIS THE EARTH":"WILL NO LONGER EXIST"::"THE ENEMY HAS THE SAME CAPABILITIES":"AS YOU DO EACH HIT DRAINS THE VICTUM":"BY (SPENT TO SHOOT)*10 EXCEPT LAZER":"(SPENT) NATIONS HAVE BEEN REDUCED":"TO RUBBLE IN A MASSIVE SPACE WAR":"YOU ARE ON A SPACE SHIP WHOSE SOLE ":"PURPOSE IS TO SAFE GUARD THE 150 PEOPLE":"ON YOUR SHIP THE SOLE SURVIVORS "1:"YOUR MISSION: FIND A PLANET SUITABLE ":"FOR YOUR COLONISPOWER ENEMY VICTOR "t "~(.=140::24"YOU ARE ABOUT TO RECIEVE HIGH SECURITY":"INFORMATION PLEASE EAT ANY HARD COPIES":"AFTER READING"::"THIS IS THE YEAR 2080"A"CIVILIZATION AS YOU KNOW IT HAS BEEN":"DESTROYED 111305209P(1)P(1)100:"ENEMY RESTING":1010nB(1)4000010000:AAB:"ENEMY APPROCHING ";A$x$1010.B(1)4000010000:AAB:"ENEMY RETREATING":10108:"THAT WAS DUMB";A$:1140V:"ENEMY GONE NO POWER!":1210j:"NO 960"MISSED":10109PP1000:"WE ARE HIT ":1010JA11000870pP(1)P(1)10:"ENEMY FIRES SHELL"D1A1000:O(16336):DQ11000"MISSED":1010"WE ARE HIT":PP100:"STATUS SHIP: RANGE: ";A:14);"POWER: ";P:P uR2920zA100000870GP(1)P(1)1000:"ENEMY FIRES LAZAR"TQ1910h"MISSED":1010"WE ARE HIT":PP3000:1010A100000A10000870P(1)P(1)100:"ENEMY WARHEAD FIRED"D1A35000:O(16336)(16336):DQ1B:PP100:A200050800 830e A$;" WE CAN NOT RUN AWAY":"RANGE NOW IS 200000 ":A200000:830q 4PP100 >"ENEMY: RANGE= ";A:7);"POWER = ";P(1) HP(1)11110 RP(1)5001040 \A50001070 fR((1)3)1:Q((1)2)1pR1970830 A1000005605 PP1000:"LAZAR FIRED "B Q1730U "MISSED":830b " HIT "z P(1)P(1)3000:830 B(1)4000010000:AAB:PP100:A1770 830 :"COLLISION":"BOTH SHIPS DESTROYED"::1080 B(1)4000010000:AA1000 XO(16336):X% bQ16308 l"MISSED":830E v" HIT "\ P(1)P(1)100:830v A100000A10000560 PP100:"WARHEAD LAUNCHED" X1A235000:O(16336)(16336):X Q1700 "MISSED":830 " HIT ":P(1)P(1)1000:"LEAVING ORBIT ";A$:"SHIP APPROACHING AT ";A;" MILES"\ "WHAT ARE YOUR ORDERS ";A$;:Cf :: Q((1)2)1:C1520 C570,650,710,750,780,820 0"LETS NOT CRACK UNDER PRESURE":520 :A11005560 DPP10:"GUNS FIRED" NX1A2 THERE IS ALSO ONLY ONE OF THEM LEFT. CAN YOU SURVIVE?"B 7" "h Z"DO YOU WANT INSTRUCTIONS ? ";A$ dA$"Y"A$"YES"ī5000 n6000 x"THIS IS COMPUTER CONTROL WHO ARE YOU ? ";A$ "GOOD LUCK ";A$ P10000:P(1)10000:A(1)2000008 / : U.F.O CREATIVE COMPUTING JUL/AUG 778" "G"SURVIVE"P" "k"BY REYMOND J KERNAY"#"FM PG 141 OF J/A 77 CREATIVE COMPUTING"%"LISTED BY DAVID AMES"(" "9 2"THE WORLD WAS DESTROYED BY UFO'S. YOU ARE ONLY ONE LEFT.          910\A(V,Z)5900Jf"ZAP! ZAP!  ROBOT HITS ROBOT":RR2:A(V,Z)12Sz910eC15:A(V,Z)CpB:A ~C15220"THEY'RE ALL DEAD. YOU WIN!""WANT TO PLAY AGAIN";:A$(A$,1)"Y"27(B,A)10A(B,A)12:740 /A(B,A)7730JA(B,A)A(B,A)2: 740^A(B,A)A(B,A)2jB: AA112: B122 A(B,A)5910A(B,A)12 ZA(YA): VB(XB)4A(V,Z)4460>A(V,Z)3860H"ROBOT HITS STAR":RR1:1C125652A(V,Z)2 +3CA(V,Z);5C1700 H:C4460XDC6620 N"SCANNER COLLISION ":A(V,Z)3:680lC3650v"SCANNER HITS STAR ":680C5670"SCANNER HITS ROBOT "RR1A(V,Z)A(C1).785398).5) : YY(((C1).785398).5) K A(X,Y)2480o "YOU ARE DEAD. ":950| A(X,Y)4 A112: B1 22 A(B,A)6A(B,A)9740 C(A(B,A)6)2: VB((C.785398).5): ZA((C.785398).5): CA(V,Z) A112 36,95 "B122 :CA(B,A):C10330S ,A(B,A)A(B,A)10:CA(B,A)c J(A$,C,1);o TB::Ay ^958 r"ROBOTS LEFT ";R;" ";"YOUR MOVE IS"; |C C999950 C(C)C0C8370 C0490 A(X,Y)129 XX((:C15130 dA(B,A)3& nC6.51309 xRR1:A(B,A)5D B :AR A941v X((21)201):Y((21)101) A(X,Y)2160 A(X,Y)A:A R12ĺ"TOO ANY ROBOTS. ONE MOMENT PLEASE...":27 Q935 36,9 37,5 (7) IS NORTH":"5 IS WEST AND 7 IS SOUTH.":a "YOU MAY USE 2,4,6,8 FOR":"INBETWEEN DIRECTIONS." "TYPE GO AND PRESS RETURN TO PLAY";  A$ J122:K112:A(J,K)1:K:J V0:R1 (A$"X *OR>^ 12:(C$,X,40)R 14:(D$,X,40)` S39185u 8:(A$,1,39S) 10:(B$,1,39S) 12:(C$,1,39S) 14:(D$,1,39S) X :5000::5000:5000:5000::5000::5000 P((1)9)1 UNKNOWN PLANET "a _D$"PREPARING PLANET SURVEY DATA PREPARING PLANET SURVEY DATA " d32,1:33,28:34,1:35,22 i5000: n:A12:" ";:A s2:10::"EMERGENCY": x34,3: L100 X1L S 'ENGLISH' OR 'METRIC'";:S$:60* K4000s PA$" LOGIC UNIT DAMAGED LOGIC UNIT DAMAGED " UB$"HUMAN INTERVENTION REQUIRED HUMAN INTERVENTION REQUIRED " ZC$"ORBIT OVER UNKNOWN PLANET ORBIT OVERIAM COLSHER" (I11500:II -:12:"DO YOU NEED INSTRUCTIONS";:IN$b 2(IN$,1)"N"İ3000l 6:: 7:12:"WILL YOU USE THE ENGLISH":"OR METRIC SYSTEM";:S$ :O0:Z0 <(S$,1)"E"B1:75 A(S$,1)"M"B1.61:75 F:"PLEASE TYPE  ************************? ** DONATED BY **^ ** DAVY DAVIS **} ** AND ** ** ELUISE MARVIN ** ************************::10:11::"MAROONED IN SPACE": #12:11:"BY WILL        z #?   ٠ɠ ĠŠҠ ŠŠɠ!͠"ŠڠĠΠŠǠǠԠנ Š ̠ӠؠĠӠ Ƞ٠ŠĠŠƠɠɠѠ٠ɠϠ ŠŠˠ٠Ԡ ӠנŠɠנ# (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$" "      RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P "xAAA 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    DOWN"<::"DOUBLE DOWN WHEN YOU HAVE 11, ALWAYS!!"::l"DOUBLE WHEN YOU HAVE: & THE DEALER HAS:":" 10 ANYTHING EXCEPT 10 OR A 9 2 THROUGH 6"" 8 (EXCEPT 6,2) 5 OR 6 A2 THROUGH A5 ACE SHOWING"9N:" HIT UNTIL YOU GET 17 OR ABOVE."@V5tb:5:"IF THE DEALER HAS 2,3,4,5, OR 6 SHOWING"l:" YOU STAND IF YOU HAVE 13 OR ABOVE"v:::" HIT 12 IF DEALER HAS A 2 OR 3"56:" NOW I WILL TELL YOU WHEN TO DOUBLE STARTS HEREL&6:100:"THIS PROGRAM WILL TEACH YOU BLACKJACK STRATEGY"z0:"FIRST A REVEIW OF THE STRATEGY......"::5:" WHAT YOU DO DEPENDS ON THE DEALER'S UP CARD, AND ON YOUR HAND (FIRST 2 CARDS)"D:" WHEN THE DEALER HAS 7,8,9,10, OR99,5,P,83,10,D,13,A,H,15,9,H,16,A,H,16,9,H,A5,3,Hg15,A,H,14,9,H,74,5,D,65,4,D,92,6,D,83,3,D,16,4,S92,8,D,99,7,S,99,A,S,99,4,P,99,6,P,99,3,PA9,5,S,A7,6,D,A9,3,S,A7,4,D,A9,6,S 83,A,D A7,5,D,14,A,H,999,999,999  ** THE PROGRAM8,H,72,3,D,63,5,D,54,2,D,72,7,HU72,6,D,16,8,H,15,7,H,14,8,H,14,7,H,15,8,H,A9,4,S53,3,H,A3,3,H,A5,6,D,A5,5,D,A3,4,D,A3,6,D,16,7,HA5,4,D,15,10,H,16,4,S,16,10,H,16,6,S,14,10,H,74,2,D77,2,P,77,4,P,77,6,P,A7,A,S,77,8,H,77,3,P,77,5,P1,S,15,4,S,15,6,SFrA4,6,D,55,7,D,83,9,D,74,A,D,82,6,D,73,A,H,A4,2,H||65,7,D,22,4,P,22,6,P,22,8,H,22,5,P,22,3,P,22,7,P22,2,H,A8,3,S,A3,5,D,A6,3,D,A8,2,S,A8,4,S,A8,6,D15,3,S,66,6,P,66,7,H,88,10,P,66,3,P,66,5,P,66,2,P66,4,P,63,4,D,54,P7@13,8,H,13,6,S,15,5,S,13,3,S,13,5,S,14,4,S,14,6,SmJA8,5,S,33,8,H,33,3,H,33,5,P,33,7,P,33,2,H,33,4,PT33,6,P,A6,2,D,A6,6,D,A4,4,D,A6,4,D,A6,5,D,A7,3,D^A7,2,S,44,4,H, 62,5,H,44,3,H,44,2,H,88,9,P,44,5,Dh13,4,S,16,5,S,14,3,S,14,5,S,15,26,S,53,4,H,53,6,D,53,5,D,A7,10,H,44,7,H,62,6,HdAA,3,P,12,2,H,12,4,S,16,2,S,12,3,H,13,2,S,12,5,S"14,2,S,A2,4,D,A4,3,H,A2,6,D,A4,5,D,A3,5,D,A2,3,H,10,9,D,73,3,D,64,10,H,55,2,D,82,4,D,73,8,D,64,5,D644,6,D,AA,9,P,AA,10,P,AA,2,P,AA,8,P,AA,A,H,77,8,H,66,6,P,22,5,P,33,2,H,99,2,PZ99,7,S,44,5,D,77,2,P,66,7,H,22,8,H,33,3,H,99,3,P99,8,P,44,6,D,77,3,P,66,2,P,22,7,P,33,4,P,AA,A,P99,9,P,88,10,P,77,9,H,55,8,H,22,2,H 44,7,H,AA,10,P,N,N,N  ** NOW A BIG PRACTICE TABLE. 12,,S,A3,5,D7 10,9,D,9,2,D,A5,5,D,11,4,D,A3,6,D,A6,2,DX 53,6,D,A8,6,D,A4,6,D,N,N,N ** NEXT THE PAIR SPLITTING TABLE 99,4,P,44,2,H,77,6,P,66,4,P,22,3,P,33,7,P,99,10,S 99,5,P,44,3,H,77,7,P,66,5,P,22,4,P,33,8,H,99,A,S$99,6,P,44,4,H,11,10,D,A2,5,D,A6,6,D1 n53,5,D,A7,4,D,11,6,DX x10,6,D,9,3,D,A5,3,H,11,A,D,A2,6,Dy A6,3,D,62,6,H,A7,5,D,11,7,D 10,7,D,9,4,D,A4,5,D,11,2,D,A3,3,H,A6,4,D 53,3,H,A7,6,D,A2,4,D 10,8,D,9,5,D,A5,4,D,11,3,D,A3,4,D,A6,5,D,62,5,H A8,3,A,H,13,2,S,A7,9,H; <14,6,S,13,10,H,16,3,S,16,7,H,14,9,HV F 14,6,S,77,10,S,N,N,N| J ** THAT WAS THE HIT/STAND TABLE K ** NOW THE DOUBLE DOWN TABLE P 10,4,D,9,7,H,A4,4,D,11,9,D,A2,3,H ZA5,6,D,62,4,H,A7,3,D,11,5,D d10,5,D,9,8,H,A4,3,S,15,2,S,16,5,S,A7,7,SL 15,A,H,13,6,S,16,2,S,12,5,S,15,8,H,14,5,S,A7,A,Sl X(20),A$(20),B$(20),C$(20) 16,9,H,14,7,H,16,10,H,12,6,S,15,10,H,13,3,S,A7,8,S (15,5,S,A4,8,H,16,A,H,12,2,H,15,7,H,13,4,S,A7,10,H 214,10,H,16,6,S,14,5,S,12,3,H,13ALL THE PRACTICE TABLES: ~  ** THIS DATA IS A BIT OF A DRAG TO TYPE IN, BUT IT SAVES MANY HOURS IN LEARNING THE STRATEGY ! ** READ KEYBOARD ** NUM0:NUM(16384):NUM12810 16368,0: T13000::  15,9,H,13,5,S,16,8,H,12,4,. *** BLACKJACK BASIC STRATEGY ***u *** BY JERRY HOWARD AS FOUND IN KILOBAUD MICROCOMPUTING SEP 1979 *** ADAPTED FOR THE APPLE II BY ROBERT J. MATTSON20:::" PRESS RETURN TO CONTINUE";Q$::5:  *** HERE ARE           F)2015i"THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR RESPECTIVE COUNTRIES AND LIVE IN PEACE."s2020"YOU WON, OH! SHUCKS!!!!"2020"YOU LOST- I CONQUERED YOUR COUNTRY. IT SERVES YOU RIGHT FOR PLAYING THIS STUPIDGAME!!!"AMBLES."+AA3-BB3&0CC3052000j:"ONE OF YOUR PLANES CRASHED INTO MY HOUSEI AM DEAD.";"MY COUNTRY FELL APART."D2010"FROM THE RESULTS OF BOTH OF YOUR ATTACKS,"ABC32(DEF)2010ABC23(DEAA4BB22000j"YOUR NAVY SHOT DOWN THREE OF MY XIII PLANES, AND SUNK 3 BATTLESHIPS."vF2F3E(E2)2000TC1030TF218301850&"MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT YOU COUNTRY IN SH0JTD21630/O"YOU DESTROYED MY ARMY!"7PD0AQ2000a^"I WIPED OUT YOUR ATTACK!"kcAATuh2000TB1030TE217501770"I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE WIPED OUT YOUR UNGARDED CAPITOL."(A4) B(B3)" D(2D3)( 9 ,"YOU","ME"I "ARMY",A,DY "NAVY",B,Ei "A.F.",C,F "WHAT IS YOUR NEXT MOVE?" "ARMY=1 NAVY=2 AOR FPRCE=3" G "HOW MANY MEN" T T01030 G1600,1700,1800@T(A)103WAS WIPED OUT." cC(CX)% h500b r"WE HAD A DOGFIGHT- YOU WON- AND FINISHEDYOUR MISSION."q wD(2D3)~ yE(E3) zF(F3) {500 |"YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED 2 NAVY BASES AND BOMBED 3 ARMY BASES." A" OF MY ARMY" E(E3)# 500 "YOU SUNK 1 OF MY PATROL BOATS BUT 1 WIPED OUT 2 OF YOUR A.F. BASES AND 3 ARMY BASES." A(A3) C(C3) "E(2E3) %500 ,XC20 6XC3350 @X2C3370 J380 ^"YOUR ATTACK ROM YOUR ARMY." }A(AX)% 500U "YOU LOST";(X3);"MEN BUT I LOST";(2D3)d A(AX3)l D0u 500 XB20 XE3230 X2E3250 270 "YOUR ATTACK WAS STOPPED!" B(BX) 500 "YOU DESTROYED ";(2E3);00 E20000 F22000k :"YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY AND 3 FOR AIR FORCE."r Y :"HOW MANY MEN": X X020 Y100,200,300 dX(A)20 iXA3120 nX2A3150 s270 x"YOU LOST";X;"MEN F :17);"COMBAT" ::c"I AM AT WAR WITH YOU."::"WE HAVE 72000 SOLDIERS APIECE.":"DISTRIBUTE YOUR FORCES.":,"ME","YOU""ARMY",30000,A "NAVY",20000, B "A.F.",22000, C ABC720005 D300      T(P)500 9300,#"NOT TOO BAD!";:9800BT$ T(P)900 9400^^$"PRETTY GOOD!";: 9800q$"GREAT!!!!!";H&" YOU ENDED WITH $";T(P);".":::f&"WE HOPE YOU ENJOYED YOUR 'ROLL' AT THE"p&"CRAPS TABLE HERE AT THE MSA CASINO." z&'&" YOU GUYS HAVE BUSTED THE HOUSE!!!!!":T" IT MUST HAVE BEEN A BAD NIGHT!"gD913000::{ D91 3000:(#"WELL ....":P1N:N$(P);". ";P# T(P)0 9100Z#"TERRIBLE!";: 9800# T(P)100 9200#"HORRIBLE!";:9800#;"'S MONEY LEFT."63K9T(W):::P0N:T(P)03680XB WP T(P)T(P)W(P): 3660xGT(P)T(P)((W(P)W(W))K9)L P0 ĺ"I NOW HAVE $";T(0);".": 3680V N$(P);" NOW HAS $";T(P);"."`D912000::T(0)0100::::(" P)W(P): 3545! T(P)T(P)W(P)K P0ĺ"I NOW HAVE $";T(0);".": 3560m N$(P);" NOW HAS $";T(P);"."y :4000 N$(W);" DOESN'T HAVE ENOUGH TO PAY US ALL!"$ "SO, WE'LL DIVIDE IT ACCORDING TO THE PERCENTAGE") "OF OUR BET TO ";N$(W)03060( WP T(P)T(P)W(P): 3045; T(P)T(P)W(P)e P0ĺ"I NOW HAVE $";T(0);".": 3060 N$(P);" NOW HAS $";T(P);"." :4000 D914000:::T(W)W(W)3520 W0 3635 3610 P0N:T(P)03560 WP T(P)T(";W(0);"."P1N:PW20202W(W)W(W)W(P)8xW(W)W(W)W(0)::"YOUR COVER BET ";N$(W);", IS $";W(W);"." 9900: 1714W(0)0:P1N:W(0)W(0)W(P):::"MY COVER BET IS $"W(0);"."p: 9900: 171 D914000:::P0N:T(P)D91999::0 D1(6(1)1):D2(6(1)1):K37,(37)X5::868:uW(W)0::"YOU'RE ROLLING ";N$(P);".""SO, YOUR BET WILL BE TO MATCH ALL OF THE";"OTHER BETS":: 9900: 169 W0 2100 W(0)10((1)101):"I WILL BET $ S7 2640:"..... AND LOSE !!":3500@ SP 270f :"..... AND ROLL AGAIN !!":171v W0 280:"..... AND MAKE MY POINT !!": 3000:"..... AND MAKE YOUR POINT !!": 3000D51(A$):(A$,D5,1);:D9150::: (D2):500 Q1 248; (S2)(S3)(S12)0 204V (S7)(S11)0 218f W0 198"SO MY POINT IS";S;".":PS:171"SO ";N$(W);"'S POINT IS"S;".":PS:171:"..... AND CRAP OUT !!":3500:"..... AND PASS !!":3000NS -- JUST BILLS"::150/ W(P)T(P) 169M :"I'M SORRY ";N$(P);"."z " BUT, YOU ONLY HAVE $";T(P);"."::150 : 2000 800:QQ1:SD1D2::W0184 A$"I ROLL "(D1)" AND "(D2):500:186 A$N$(W)" ROLLS "(D1)" AND "((1)(N1)):- N$(0)"I ": T(W)0 126_ :N$(W);" WILL ROLL!":Q0::P1N:WP1000 T(P)0ĺ"SORRY "N$(P);". BUT, YOU'RE BROKE!":W(P)0:169 "YOU HAVE $";T(P);", ";N$(P);".":"HOW MUCH IS YOUR BET"; W(P):W(P)(W(P))ĺ"NO COING TO EACH PERSONS PERCENTAGE OF": L"THE TOTAL WAGER." @ P{ Z10)"2,3 AND 12 ARE CRAPS":10)"7 AND 11 ARE PASSES" _:::"HIT RETURN TO CONTINUE" `A$ a 16368,0 d:C90:P1N:T(P)0C9C91 e: C9N 9000 ~ X51 N:WLER'.";6 >"THE 'ROLLER' WILL COVER ALL BETS. IF HE"g @"WINS THE ROLL THEN HE TAKES ALL BETS. IF"; B"HE LOSES THEN HE PAYS ALL BETS. IF HE" D"DOESN'T HAVE ENOUGH TO COVER THE BETS" F"THEN HIS REMAINING MONEY WILL BE DIVIDED";! K"ACCORDI -") -P1N:T(P)500:N$(P)::T(0)5009 2:::::h 4"EACH OF YOU HAVE BEEN CLEARED FOR $500." 6"WORTH OF CREDIT. SPEND IT WISELY!" 7D913000:: :"I WILL DETERMINE THE 'ROLLER' EACH TIME."; <"EVERYBODY WILL BET AGAINST THE 'ROL":::::12)"GOOD DAY...",::k5)"WELCOME TO THE CRAPS TABLE AT":12)"THE MSA CASINO!"::"HOW MANY ARE THERE IN YOUR PARTY";N: N1N1  N$(N),P(N),T(N),W(N) (X52:900:"PLEASE TYPE EACH PERSONS NAME":"- ONE TO A LINE      F12530- "I GET 1 POINT LAST CARD "9 S1S11K S11211320U 2560x "YOU GET 1 POINT LAST CARD " S2S21 S21211360   CC1:M5M51( C12730- M5127302 J914< I9V(B9,J9)P M(I9,2)52AST CARD": C0:S90:S1S112 S11211320< 1450L Y542420y$ :"I'LL GIVE YOU 1 POINT LAST CARD ":B S2S21L S21211360V C0:S90:G0` C$""j 1830t G11450~ "..GO.." G1 1450 F02560 4I9I(20J9)2200>J93HH9M(I9,2)312200?RK9K91Q\S9H9M(I9,2)bfJ(C)M(I9,4)lp2940{zP9PP9PI(I9)PI(K930)I9I962045CC9:S9H9K902580C$"GO"2330G12340 :"I GET 1 POINT L1211360F0:C0:S90$1450H"I GET 1 PIONT LAST CARD":TS1S11fS11211320wF0:C0:S901450K90:P90:C9C:CC1:H9S9I90I9I91I(I9)0 I9I12200I9I22200 M502120*J91M50:G01830/" YOU DISCARDED THAT ONE"91480P"ALREADY PLAYED "Z1480v"TOTALS MORE THEN 31 "1480&M5420000Y542460:C$"GO"1450DNF21940X"YOU GET 1 POINT LAST CARD":lS2S21 vS2C61790JJ'TS9Y(C6,2)3118109^S9S9Y(C6,2)EhY5Y51UrI(10Y5)C6_|CC1pJ(C)Y(C6,4)z2940NN$;" PLAYED ";C$(Y(C6,1))S9;" SUM ";P;" POINTS "F1S2S2PS21211360S9311830F0:C0:S90:M50:C0:S90:G0!M018301Y541480@M542460J1830cNN$;:" PLAY ? ";C$uC$"GO"1830C616C$D$(C6)1560C6"INVALID PLAY ":1480C6I31770"C6I41770,Y5016206J1Y5@I(10J) W(5,4)T9C04380+S1S1P=S11211320S:P;" POINTS ":cX1590,800:"APPLE ";S1;" POINTS ";NN$;" ";S2;" POINTS ":220(:"APPLE WINS ";S1;" TO ";S2::P:NN$;" WINS ";S2;" TO ";S1:ZY5D01060S1S1D;:"MUGGINS FOR ";D;" POINTS":MS11211320c$X11070,590,1280{)"X1 BAD VALUE !":.K148LV(B9,K)BJ14LW(K,J)M(L,J)VJ,Kj"MY CARDS ARE "t~K14LW(K,1)C$(L)K3:920 K1 *I16( 4II38806 >II4880A HJ14S RW(K,J)Y(I,J)Z \Jd fKK1k pIy zW(5,4)T9 C0:4380 "HOW MANY POINTS ? ";P9 DPP9 D0980 "NOT WITH THAT HAND !":920 S2S2P9 S21211360  SCORES FIRST " :X12" D1070? N"THE CRIB CARDS ARE : "L b:I14\ lC$(C(I,1))c vIn I14y J14 W(I,J)C(I,J) J,I C1:W(5,4)T9 4380 X12780 :P;"POINTS " S1S1P S11211320 1280 X1 6I3(I3):I4(I4)I @I3I4I31I41I36I46ĺ"NOW REALLY !":300T J14g C(1,J)M(I1,J)z C(2,J)M(I2,J) C(3,J)Y(I3,J) C(4,J)Y(I4,J) J 4170 1430 M0560 NN$;" SCORES FIRST " X11 &800 0"APPLE"CRIBBAGE" " "- "BY SHEPPARD YARROW"Y "FM PG 104 OF 5/79 CREATIVE COMPUTING"u 12:"YOUR NAME?";NN$:} : S10:S20 5650 5810 5650 6070 3370 I1V(B9,5) I2V(B9,6) ,:"YOUR DISCARDS ARE ? ";I3,I4 I16:D$(I):I (I113' 2C$D <C$(I)C$" OF SPADES "d FC$(I13)C$" OF DIAMONDS " PC$(I26)C$" OF HEARTS " ZC$(I39)C$" OF CLUBS " dI x CRIBBAGE BY S YARROW CREATIVE COMPUTING MAY 79 V5 #5 :" ": !( FROM CREATIVE COMPUTING MAY 1979^ D(52,4),C$(52),I(52),W(5,4),M(6,4),Y(6,4),C(4,4)D$(6),V(15,7),Q(11,6),R(4,5),S(4),J(52)I115:J17:V(I,J):J,II111:J16:Q(I,J):J,II14:J15:R(I,J):J,II14:S(I):I          %Y(M1)1Y(M1)0XXXX11&Y(M1)1XXXX1I'Y(M1)10XXXX1Y(XX:Y(M1);c)XX39z*D(M1)10XXXX1+D(M1)0XXXX1,D(M1)9XXXX1-XX:D(M1).Y(M1)10008Y(K)1000BJGSC(SC10014)L:SC;V" " PRED ACT"534,5AJ128UY(J)10001090^M1JnK(M(J,I))M(J,I)01010M1KKJZ1M11740" AT ";Z1K1740Y(M1)(Y(M1)P.5)P$XX31:Y(M1)10XXXX1IONSR(D(K1))(A1)880)\SCSC1>f ADJUST RATINGSXpE(K1)E(K1)H(M1A1)pzE(K)E(K)H(A1M1)xK1 PRINT RESULTS::" << RESULTS FOR WEEK ";I;" ";A2;" >> ":"========================================"+34,3K1128*D(K1)99999000:Z1K1D1740OD(K1)` K(M(K1,I))mM1D(K1)D(K1)N2M1N2D(K1)N2M1N2 D(K)D(K1)*A1G(K1)G(K)4Y(K1)A1>Y(K)A1H COUNT CORRECT PREDICT$E"vA128:D(A)9999:A? COMPUTE HOME ADVANTAGELK1128TF0gM(K1,I)0690pFF1G(K1)E(K1)FK1 READ IN ACTUAL RESULTS FOR LATEST WEEK:"ENTER POINT SPREAD FOR:""======================="TOR,  AND MAX. POINT SPREAD7 1.55,0.05,20 DF1,H,N2NP100k:12:"WEEK NUMBER";:IwA21979I1490A128:E(A)Y(A):A630:12"INSERT DATA TAPE""START IN PLAY MODE""THEN PRESS RETURN";:ST:11:"========================================"::" << N F L PREDICTION PROGRAM >> "::"========================================"A128:Y(A):AA128:B116M(A,B)B,A SET HOME ADVANTAGE, ADJUSTMENT FAC?| -26,-17,11,-22,19,21,-10,-28,13,24,-15,-27,26,-14,27,28 } 25,-21,17,-28,15,27,-24,22,-19,-11,28,-13,-25,10,14,-27 10,-11,28,-24,18,-26,-16,14,15,-13,-20,25,-28,23,-25,26 -23,16,-27,26,-14,13,-15,25,20,-10,-26,11,27,-18,24,-25:,27,5,-22,-24,-21,18NT -20,26,24,-23,2,-25,22,-24,-3,5,23,-4,17,-19,20,-22^ -24,19,-5,25,23,-2,-21,-26,4,-20,24,-23,20,-17,3,21h 28,-20,3,21,-22,16,-5,20,24,-18,-21,22,-24,-27,4,-2r 22,-1,-21,27,-20,-15,26,21,-23,-25,-22,15,23,20,-28,12,20,-8,9,-23,27,18,-6,-15,17,-19,7,15,-17,19f , 15,25,-26,-15,6,-19,-18,19,-9,8,-16,18,-21,22,16,-7 6 16,-15,6,19,-27,-7,17,-16,8,23,-19,-17,-9,28,15,-20 @ 7,-22,15,-18,-25,17,-8,-17,26,-6,18,16,-15,21,9,-16J 21,23,-16,-3,24,-4,2,-23,-28,224,-13,-14A 1,8,-7,10,-13,-9,11,15,-11,14,6,-10,-14,13,-1,-24{  14,-3,10,-11,12,-28,-14,7,-25,27,-8,26,5,-12,11,-10  -13,10,4,-2,28,-11,13,-27,-10,-12,19,6,12,25,-26,11  -17,18,-19,17,-26,24,28,-12,-27,16,25,-24,19,-16,-18,1, " -18,-2812,-9,8,18,-1,-13,5,-3,10,-9,-16,-8,6,17` -5,-12,1,16,-7, 6,19,9,-18,-17,13,3,-6,7,-10,-9 -11,-4,2,7,-16,12,6,-8,17,-1,14,-7,18,-6,-19,8 -27,-14,-13,-12,11,3,25,-5,14,28,-7,12,-11,-26,8,13 9,27,-25,13,-10,14,-12,-6,12,26,2,-28,10,-1,22,-20,3,-1,-4,-11,1,4,-3,-5,23U -4,13,-23,20,-5,-10,4,-2,21,7,1,-8,-1,2,-22,5 3,9,-14,5,-1,20,-3,1,-22,2,-5,21,-2,11,-23,-6 8,-2,22,-4,3,-1,23,10,-7,-21,4,-20,-13,1,2,-3 -2,7,-18,1,-17,-8,-9,11,16,19,-12,-14,8,9,-7,4( -19,-6, 8.21  11.45  9.38*  10.615  8.92@  6.98] d NFL PREDICTION PROGRAMt n BY DON SMITH x PUT MATCHUPS INTO ARRAY M D(28),M(28,16),E(28),Y(28),G(28) -12,24,-8,-6,4,-5,7,-4,2,9,-3,-2,3,-5,12,-15! 6,5,-9,14,-2>  8.17 12.46# 10.8/ 10.73: 9.99F 11.83R 10.06] 8.64h 8.61t 10.02 9.72 10.27 9.96 13.38 9.04 13.24 11.11 9.08 11.98 9.3 8.74 7.37           r"MAN YOU WANT TO MOVE.""w=|"THEN WHEN I ASK TO?"X"TYPE IN LINE NUMBER"x"COMMA COLUMN YOU WANT TO""MOVE TO. GOOD LUCK.""TYPE A RETURN WHEN READY";A$2N"IF YOU TRAP THE FOX YOU WIN."E""IF THE FOX GETS TO LINE ONE."_,"THE COMPUTER WINS."6"TYPE A RETURN TO CONTINUE";@A$J(16);(22)T"TO PLAY..WHEN IT IS YOUR MOVE"^"TYPE IN A LINE NUMBER"h"COMMA COLUMN NUMBER OF THE ";A;" ";B;"TO ";X;" ";YAX&BY,2C(16);(22)_"YOU ARE THE HOUNDS. ""YOU HAVE FOUR PLAYERS (H).""YOU CAN MOVE FORWARD ONLY.""THE COMPUTER IS THE FOX (F).""THE FOX CAN MOVE BACK AND FORWARD."!X1,Y1)4L(X,Y)3400/L(X,Y)3Z18400>c"YOU WIN...WANT TO PLAY AGAIN";m(1370P"I WIN...WANT TO PLAY AGAIN";ZA$dA$"YES"ī200nx}AX1440~Z1ĺ"I CAN'T MOVE"Z11440"I MOVED FROM"11200 QQQ1 VXA1$ [YB1; `L(X,Y)4L(X,Y)3S jL(X,Y)3Q41200n ~L(X,Y)3L(X1,Y1)4 L(X,Y)3400 L(X,Y)3Z1 400  YB1 XA1 QQ1 L(X,Y)4L(X,Y)3 L(X,Y)3Q41105 L(X,Y)3L()3Q21060& L(X,Y)3Q21100A L(X,Y)3L(X1,Y1)4S L(X,Y)3400] $XA1g &YB1q )QQ1 .L(X,Y)4L(X,Y)3 8L(X,Y)3Q2950 :L(X,Y)3Q21100 =L(X,Y)3L(X1,Y1)4 BL(X,Y)3400 L MK01105 NKFī600 TF1700* L(F,F1)2700G L(T,T1)4L(F,F1)2720[ "INVALID MOVE"d 600r L(T,T1)2 L(F,F1)4 Q0 K((0)2) K2905 K1950 K01060 QQ1 XA1 YB1 L(X,Y)4L(X,Y)3 L(X,YL(L,C)3ĺ"F "; , L(L,C)4ĺ"0 ";3 C? " L";LF LQ K18] K;" ";d Kj y X1ī1350 0Z11300 X b"YOUR MOVE FROM (LINE,COLUMN) "; lF,F1 v"TO "; T,T1 TFĺ"YOU CAN'T MOVE BACKWARDS" T "L(5,C1)4 'L(6,C)4) ,L(6,C1)16 1L(7,C)1E 6L(7,C1)4R 8L(8,C)4a ;L(8,C1)1h @Cu JL(8,5)3} TX8 ^Y5 hAX rBY  (16);(22) 1400 L18 C18 L(L,C)1ĺ"X ";  L(L,C)2ĺ"H "; 2"WANT INSTRUCTIONS";27"TYPE YES OR NO";:<A$NFA$"YES"İ1500ZnL(9,9)`mC182zL(1,C)1L(1,C1)2CC182L(2,C)4L(2,C1)1 L(3,C1)4L(3,C)1L(4,C)4L(4,C1)1L(5,C)1       j'Y28:X1219:X,Y:YY1:X@t'Y19:X1928:X,Y:YY1:X`~'Y10:X1219:X,Y:YY1:X'Y19:X1928:X,Y:YY1:X'Y10:X3037:X,Y:YY1:X'Y19:X112:X,Y:YY1:X'Y28:X3037:X,Y:YY1:X'15:11001:11002:11004 1:Y039:0,39Y:Y@.'3:Y610:9,13Y:18,22Y:27,31Y:Yz8'Y1721:0,4Y:9,13Y:18,22Y:27,31Y:36,39Y:YB'Y2832:9,13Y:18,22Y:27,31Y:YL'9,318:5,3519:9,3130V'8,3011:8,3020:8,3029`'Y19:X112:X,Y:YY1:X1,0,2,0,0,2,2,0,0,0,01P# 0,1,0,0,0,2,0,2,0,0,0MZ# 0,1,1,1,2,0,2,2,2,2,0id# 0,0,0,1,0,2,0,0,0,2,0n# 0,0,0,0,1,1,0,0,2,0,2x# 0,0,0,0,0,1,0,2,0,2,2# 0,0,0,0,0,1,1,0,2,0,2# 0,0,0,0,0,0,0,2,2,2,0#' DRAW BOARD '$'EW BEST MOVEM4I4I4%>p UPDATE AT GAME ENDMzI61I01\SR(I6,1)kMR(I6,2)A(S,M)A(S,M)WI6'# DATA FOR L ARRAY(# 0,2,2,2,0,0,0,0,0,0,02# 1,0,2,0,2,2,0,0,0,0,0<# 1,2,0,2,0,2,0,0,0,0,0F# 1))P(W(2))P(W(3))# S311656 S(S3)A33050> S3D a PICK BLACK'S BEST MOVEkM40xI4111L(B,I4)04110 OCCUPIED BY WHITE?J413W(J4)I44110J4M404100A(S3,M4)A(S3,I4)4110  N0$4IF BLACK IS AT Y THEN ILLEGAL2>BY2200NH ILLEGAL IF WHITE AT YZRI213l\W(I2)Y2200tfI2pL(X,Y)22200z LEGAL MOVE FOR WHITEW(J2)YL21 CALCULATE NEW WHITE POSITION NUMBER A3P(W(6000# "WANT TO PLAY AGAIN? ";+*Z$@4(Z$,1)"Y"340o> DISK COMMAND "STORE DATA #5,34,A"uH CHECK WHITES MOVE FOR LEGALITYL21I213J2I2 W(I2)X2100I2  NO WHITE PIECE AT X*22002,11003,11004,11005,11006,11007,11008,11009,11010,11011HR(I0,1)S3XR(I0,2)M4bBM4oI0I01}B1500 HERE ONLY IF MACHINE WINS"I WIN......"W1780"I LOST......"W1  UPDATE ARRAY AE, AND YOU HAVEN'T TRAPPED ME."+m730]n WHAT IS BLACK'S BEST MOVE - IF ANYgv4000uM40760 COMPUTER MOVES"I MOVE TO ";M43:B11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,1101180:M411001,110 LEGAL MOVE - WHAT IS WHITE POSITION INDEX (S3) Z3:X11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011 \15:Y11001,11002,11003,11004,11005,11006,11007,11008,11009,11010,11011 b3000 gI019630"l"THAT'S 20 MOVES, AC MAIN PROGRAM LOOPH "WHITE PEICES ARE AT ";W(1);" ";W(2);" ";W(3)h "THE BLACK PIECE IS AT ";B "YOUR MOVE, FROM-TO X,Y "; X,Y !X0Y0730 & WAS IT A LEGAL MOVE 02000 :L21600 D"FOUL !!!!! TRY AGAIN." N5103 X) J "I? , L(I,J)=0 MEANS MOVE I TO J NOT LEGALv 6 L(I,J)=1 MEANS MOVE I TO J LEGAL BLACK ONLY @ L(I,J)=2 MEANS MOVE I TO J LEGAL FOR BOTH J TB6 ^W(1)1 hW(2)2 rW(3)4 |I01 3000 10000 R)) II1 R M# Lg :12:"DO YOU NEED INSTRUCTIONS? ";:IN$:(IN$,1)"N"İ12000 LOAD UP LEARNING CURVE DISK COMMAND "LOAD DATA #5,34,A I130 J12 R(I,J)0 J I I111 J111 L(I,JRAMMED BY G.H. HERD SEPT.78 PUBLISHED IN CREATIVE COMPUTING SEPT.79K :V #10:9v ("THE FRENCH MILITARY GAME"| * ,9 -" BY MARTIN GARDNER" KI1 PL19 ZL1P(L) dML110 nM1P(M) xRM111 S(I)L1M1(P(wP(X)2(X1)@ S(165),R(30,2),L(11,11),W(3),A(165,11) FRENCH MILITARY GAME, SIXTH BOOK OF MATHEMATICAL GAMES FROM SCIENTIFIC AMERICAN BY MARTIN GARDNER INCORPORATES MATCH. LEARNING FROM UNEXPECTED HANGING BY MARTIN GARDNERC  PROG        Y1Z$(L$,Y9,1),Y91:X9::"M":61580=XGDD1[D(D10.5)10nD365.24ī700x1580~"YOUR YEAR IS UP AND YOU HAVE MINED $";M;" OF GOLD."I12000:I::8 DISK COMMAND TO OPEN "GOL790$X(Y1,X11)1*.X(Y1,X1)1114048DD1H=D(D10.5)10[BD365.241210pLX(Y1,X1)01160~VMM10000`M10000001450j1160tDD.2yD(D10.5)10~D365.241210X(Y1,X1)3Y91:X9:Z$X9X1Y9 aY10880fY1Y11"k7903pX(Y11,X1)1=z1070IY1Y11XY121940dY1Y11m790~X(Y11,X1)11070X1X11X101000X1X11790X(Y1,X11)11070X1X11X1311060X1X111)(A$,1)810 T1H:"TYPE D, L, R, OR U FOLLOWED BY A NUMBER"YI11500:Ib700|:"BOUNDRY REACHED"I11000:I 700*N((A$,2,3))4X9X1>Y9Y1HZ$(L$,Y9,1)MX1NRT1860,900,960,1020\Y1Y11&:::X(Y,X)20TD34,1$N0XT120=bT1130\lX(T,T1)1680,630,650,670pvT1:(L$,T,1);y680T1:"*";680T1::"M";:T1:T158034,21:" MOVE: ";A$T114(K$,T1,:BB130:X(AA,BB)0:BB,AA'D0:M05K$"UDLR"SL$"ABCDEFGHIJKLNOPQRSTU"_T120p:::X(T,16)1wT:::X(1,16)3:::X116:::Y11T1100:::Y((1)201):::X((1)301):X16520::X(Y,X)0510 EPRESENTED BY THE LETTER"D~"M. ALL GOLD VEINS ARE SHOWN AS '*'."n"YOU BEGIN AT THE TOP OF THE SHAFT."24:" << PRESS THE SPACE BAR TO CONTINUE >>";(16384)12738816368,012:"GOOD LUCK AND GOOD MINING":AA120YOU WILL BE STOPPED AT THE";Kc"BORDER. YOU CAN THEN MOVE FROM THERE ON"bh"YOUR NEXT TURN."m:" EACH MOVE TAKES ONE DAY. ON THE MAP"r"EACH LEVEL IN THE MINE IS A DIFFERENT"w"LETTER, (A-L, AND N-U). YOU ARE THE"|"MINER AND ARE R3L24:" << PRESS THE SPACE BAR TO CONTINUE >>";JM(16384)127333]N16368,0::6O:" YOU CAN MOVE AS MANY POSITIONS AS YOU";T"WANT IN ONE DIRECTION EXCEPT THAT YOU"Y"CANNOT GO PAST THE BORDER OF THE MINE."^"IF YOU TRY TO "UP, DOWN, LEFT, AND RIGHT. TO MOVE TYPE"X 6"THE FIRST LETTER OF THE DIRECTION YOU" ;"WISH TO MOVE AND THEN THE NUMBER OF" @"POSITIONS TO MOVE. FOR EXAMPLE, TWO" E"POSITIONS UP WOULD BE U2, 3 POSITIONS"J"RIGHT WOULD BE R3, AND SO ON."ST ENLARGE ON THIS";C "BY MINING. IT TAKES ONE DAY TO MINE ONE"o "POSITION, WHETHER IT CONTAINS ORE OR" "NOT. IF THE POSITIONS HAVE ALREADY BEEN" "MINED YOU CAN MOVE FIVE POSITIONS IN ONE"; ""DAY. YOU CAN MOVE IN FOUR DIRECTIONS:"+ , YOUR MINE CONTAINS 100"A "VEINS OF GOLD. EACH VEIN IS WORTH"Q "$10,000." 24:" << PRESS THE SPACE BAR TO CONTINUE >>"; (16384)127224 16368,0 :6 :" TO START WITH YOUR MINE HAS JUST ONE" "VERTICAL SHAFT. YOU MUEN"/ "PRIZED BY NEARLY EVERY CIVILIZATION."_ :" NOW IS YOUR CHANCE TO HAVE YOUR OWN" "GOLD MINE. YOU HAVE ONE YEAR TO MINE ALL"; "THE GOLD YOU CAN. THE MOST YOUR MINE IS" "WORTH IS ONE MILLION DOLLARS! BUT YOU" "MUST MINE IT.FOR A HEART OF GOLD,"1 U"AND I'M GETTIN' OLD."K Z:"---NEIL YOUNG---"\ _I12500:If d:12 i"DO YOU NEED INSTRUCTIONS? ";K$ n(K$,1)"N"400 x:7 " THROUGHOUT MANKIND'S HISTORY GOLD" "HAS BEEN A MAGIC METAL. GOLD HAS BE :C1000000#B331.61M$"DAVY"IR$"SEPT. 20, 1979"Q 10Y10r"G O L D M I N E"z#10("- - - - - - - -"*-102"BY ROYCE A. JONES"7I11000:I<X(20,30)FK11 P"I'VE BEEN A MINER        T INTO WATER."S1S11`"PENALTY STROKE ASSESED. HIT FROM PREVIOUS LOCATION."jJJ1uL(0)1}DB620"YOUR SHOT WENT OUT OF BOUNDS."1210T31320D21(3((80(40H))(1)))1380 "TRAPSHOT $320.S9(S21)15-/(S9)S91040F3"YOU SLICED- ";T8L(0)L(1)^B1055lD"BADLY."uF320LL(0)5V320`L(0)8jD2(D23)t1380~L(0)1320D1(.85D1)830L(0)61260"YOUR SHOT WEN760CC10760%D95862g"BALL HIT TREE - BOUNCED IN ROUGH ";D75;" YARDS FROM HOLE."rDD75{620O301150J01150T01070 S9(S21)15 (S9)S91075"YOU HOOKED- ";L(0)L(2)O451092S2Q(10(F1)18)(F1)(72((H1).85))18956<752FQQ1^S12(S12)1011g862"YOU MAY NOW GAUGE YOUR DISTANCE BY PER- CENT (1 TO 100)""PERCENT FULL SWING ";W:WW100W1680L(0)51280C142(DD1)2))RDD10870&\890@^"YOU DUBBED IT. "J`D135Sb830ccD2001300ld770{fD220890p"TOO MUCH CLUB. YOU'RE PAST THE HOLE."zBDDD2D2271020D2201100D2.51120L(0)914703C6 650S1S11 W1.C13960B(F3)F3952OC4756X760hL(0)2862vS17867D1(((30H)2.5187((30H).2515)C2)25(1)) D1(D1W) T21170>O((1).8)(2H16)((D1.0035)) HD2((0 29 TO 23"rA1tHu:::"WHAT CLUB DO YOU CHOOSE ?";CNx[{C1690i}C29690vC4710L(0)5740C14740C23740690S1S11"THAT CLUB IS NOT IN THE BAG."620C12690C0"TRAP":1690!D"WATER"+N16908lA1629[m::"SELECTION OF CLUBS:"::n"YARDAGE DESIRED SUGGESTED CLUBS"::o"200 TO 280 YARDS 4 TO 1"p"100 TO 200 YARDS 19 TO 13"q" 0 TO 100 YARDS 2500L(X)3520%L(X)45405L(X)5560EL(X)6580^"OUT OF BOUNDS."h1690"PGA RULES HANDICAP = 0 TO 30."80"FAIRWAY"1690"ROUGH"1690"TREES"1690"ADJACENT FAIRWAY"&1690 ANY KEY TO CONTINUE TO NEXT 'TEE'":A$:8 @S101590I JL(0)11150Q TX0b ^L(0)51190 h"SHOT WENT ";D1;" YARDS.IT'S ";D2;" YARDS FROM THE CUP." j"BALL IS ";(O);" YARDS OFF LINE.... IN "; |400 620 L(X)1480L(X)Ы3100 +9)::" A 'PAR'..NICE GOING "::9 ,310_ -:"A BIRDIE !"::"GREAT SHOT !"h .310u /P3306 0:"A GREAT BIG EAGLE !" 1:310 2:"A HOLE IN ONE !!!"::" 'FANTASTIC'" 4 6F191710 8S10 ;12) <24:"PRESS0 S10  L(0)0# J0+ Q07 S2S21? K0L F1310 "" YOUR ";::" SCORE ";::" ON HOLE ";F1;" WAS ";S1: #1750 $S1P2297 %S1P299 &S1P1301 'S1P2303 (310 )"KEEP YOUR HEAD DOWN." *NDICAP "; ZH dH30470+ nH04703 w:Y x"DIFFICULTIES AT GOLF INCLUDE: "a y: ::"0=HOOK 1=SLICE 2=POOR DISTANCE": :"4=TRAP SHOTS 5=PUTTING : "WHICH ONE (ONLY ONE) IS YOUR WORST "; T 936 T512HIS IS A CHAMPIONSHIP COURSE *** "c ::"THE COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY." :"ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." ::L(10) G118 G20 G30 (A0 2N.8 <S20 FF1 P"WHAT IS YOUR HA 150936:::T::" GOLF ":^::"'WELCOME'TO THE APPLE COMPUTER COUNTRY CLUB, AN EIGHTEEN HOLE LAYOUT, LOCATED A SHORT DISTANCE FROM SCENIC DOWNTOWN...SAN DIEGO,CALIF."% ::" *** T      LONG FOR NOW":NBR> *** GAME IS OVER 3>"THE GAME IS OVER."X>"YOU HAD";F;"PIECES REMAINING."^>q> F1 16150>"BRAVO! YOU MADE A PERFECT SCORE!"?:"PLAY AGAIN (YES OR NO)";A$*? A$"NO" A$"N" 20000 4?: 280H?? N: "SOF1(< AR1 R1Z C18P 12200)- T(X1,Y)0 1200O.T(X2,Y)5: T(X1,Y)0: B(C9)3d.B(Z)3: B(P)7zD/T(X,Y)0: 12400/CC1/ Y 0 Xp0: *** CHECK IF GAME IS OVER:F0: R2 8`; C2 8; T(R,C)5 15800 ;F 1200)T(X,Y2)50h)T(X,Y1)0: B(C1)3<) 12000R0* C18P 11300jb* T(X1,Y)0 1200*T(X2,Y)5: T(X1,Y)0: B(C9)3+ 12000$, C2P 11700V, T(X,Y1)0 1200,T(X,Y2)5: T(X,Y1)0: B(C1)3P- 12000- 5700& (Y4)(Y5)(Y6)0 5700,|7 6100ND T(X,Y)5 6000_ Y1);"+";j  6100zpY1);"O"; Y8 X' 285B'C1: X1 9' Y1 9<( CZ 12200( C2P 10800( T(X,Y1)0YES OR NO)";A$,Q A$"NO" A$"N" 200007 1200^ ((ZP)2)((ZP)18)0 1200il10000t 50004 15000 1000 *** BOARD X1 9P Y1 9 (X1)(X9)(Y1)(Y9)0 5500 (X4)(X5)(X6)0 68,69>B(M)7: W"\B(41)3= "MOVE WHICH PIECE";ZRL B(Z)7 1400{"ILLEGAL MOVE, TRY AGAIN...": 1000x "TO WHERE"; P B(P)0 1200 B(P)7 1200 ZP 1000@ ((ZP)2)((ZP)2) 1800O:"PLAY AGAIN (% (R1)(C1)(R9)(C9)0 3502T(R,C)5: CBX RVT(5,5)0: 5000 *** INPUT MOVE AND CHECK LEGALITY  W1 33 M 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41* 42,43,44,47,48,49,50,51,52,53,58,59,60,67, 67 68 69": 33,17$ 34,8B  *** SET UP BOARD U  B(70),T(9,9)_  287i 936o y  285 "LET'S BEGIN" " R1 9 , C1 9 6 (R4)(R5)(R6)0 400 @ (C4)(C5)(C6)0 400 ^T(R,C)5h 50042 43 44":9 " ! ! ! ! ! ! !"i " 47 48 49 50 51 52 53": " ! ! !" " 58 59 60": " ! ! !" " P" ! ! !"O Z" 22 23 24":} d" ! ! ! ! ! ! !" n" 29 30 31 32 33 34 35": x" ! ! ! ! ! ! !" " 38 39 40 41 E":* ."RIGHT SIDE FOR PEG NUMBERS"::= /: "READY";T$Y 0 T$"YES" T$"Y" 55 1"WELL, WHEN YOU'RE READY JUST TYPE 'YES'":47 7: "HERE IS THE BOARD:" <" ! ! !" F" 13 14 15":% '"32 PEGS, OR AS MANY AS POSSIBLE, BY":R ("JUMPING INTO AN EMPTY HOLE...":{ )"THE JUMPED PEG IS THEN REMOVED.": +"TO SAVE TYPING TIME, A COMPRESSED": ,"VERSION OF THE GAME BOARD WILL BE USED": -"DURING PLAY. REFER TO THE ONE ON TH 936 33,39# 34,0 -936>::::::V 15);"HI-Q" \5 );"BOB STEVENS DALLAS TEXAS"::#:"INSTRUCTIONS";Q$: 285$ Q$"NO" Q$"N" 55%::&"THE OBJECT OF HI-Q IS TO REMOVE ALL":+     70G201080B$" ASSISTED BY:";A$(G1);" AND:";A$(G2):1090[." UNASSISTED":1090x8" ASSISTED BY: ";A$(G1)BT(G)T(G)1:T1(G1)T1(G1)1:T1(G2)T1(G2)1:1540L"GOAL SCORED BY: ";B$(G)VG101130[G201140`" ASSISTED BY: ""GOAL ";A$(7):H(9)H(9)1:990B"SCORE ";B$(7):H(8)H(8)1\B1125:(7);:B1:|"SCORE: ";:H(8)H(9)1020A$(7);":";H(9),B$(7);":";H(8):1030B$(7);":";H(8),A$(7);":";H(9)C1040,1100"GOAL SCORED BY: ";A$(G):G1010NAPS OFF A SNAP SHOT")fZ2:ZZZ1:890HpB$(G);:S800,820,840,860bz"AREA ";:A:A1890oA4890~C910,920S2S21:930S3S31A1(4(1))1:AA11200H(20)(100(1))1(H(20)Z)H(20)Z1160C970,980":Z11:770$"SHOT ";:S:S47701S1770@ C790,880_A$(G);:S800,820,840,860 " LETS A BIG SLAP SHOT GO!!"*Z4:ZZZ1:8904" RIPS A WRIST SHOT OFF">Z2:ZZZ1:890H" GETS A BACKHAND OFF"RZ3:ZZZ1:890\" S1H(J1):G2H(J2):Z12:770?"A '3 ON 2' WITH A 'TRAILER'"B$(H(J4));" GIVES TO ";B$(H(J2));" WHO SHUFFLES IT OFF TO"B$(H(J1));" WHO FIRES A WING TO WING PASS TO "B$(H(J3));" AS HE CUTS IN ALONE!!" GH(J3):G1H(J1):G2H(J2)1));" HITS ";B$(H(J2));" FLYING DOWN THE LEFT SIDE"ZGH(J2):G1H(J1):G20:Z13:770q"IT'S A '3 ON 2'""ONLY ";A$(4);" AND ";A$(5);" ARE BACK"B$(H(J2));"GIVES OFF TO ";B$(H(J1))B$(H(J1));" DROPS TO ";B$(H(J3))GH(J3):G LEADS ";A$(H(J2))ANA$(H(J2));" IS WHEELING THROUGH CENTER"tXA$(H(J2));" GIVES AND GOES WITH ";A$(H(J1))b"PRETTY PASSING"lA$(H(J1));" DROPS IT TO ";A$(H(J4))vGH(J4):G1H(J1):G2H(J2):Z11:770P650,670,7204B$(H(JTING IN!!!"1GH(J1):G1H(J2):G20:Z13:770eA$(H(J2));" GIVES TO A STREAKING ";A$(H(J1))&A$(H(J3));" COMES DOWN ON ";B$(5);" AND ";B$(4)0GH(J3):G1H(J1):G2H(J2):Z12:770:"OH MY GOD!! A '4 ON 2' SITUATION"DA$(H(J3));"" BACKHANDS ONE IN ON THE GOALTENDER"6Z25:890U" SNAPS A LONG FLIP SHOT"cZ17:890B$(H(J1));:G10:G20:GH(J1):390C500,640P510,540,570A$(H(J2));" LEADS ";A$(H(J1));" WITH A PERFECT PASS" A$(H(J1));" CUTJ1)H(J3)310& TH(J2)H(J3)3103 ^P0360< c490E h770R mS4360a rC380,340 |A$(H(J1)):GH(J1):G10:G20 S400,420,440,460 " LETS A BOOMER GO FROM THE RED LINE!!" Z10:890 " FLIPS A WRISTSHOT DOWN THE ICE"(THE FACE-OFF"* C(2(1))1:C270,280U A$(7);" HAS CONTROL OF THE PUCK":290o B$(7);" HAS CONTROL" ""PASS ";:P:N13:H(N)0:N ,P0290 1P3290 6J1(P2) @H(J)(5(1))1 JJ:H(J1)H(J2)310 KP23350 OH();" STARTING LINEUP") T16:A$(T):TN :10);B$(7);" STARTING LINEUP"e T16:B$(T):T: "WE'RE READY FOR TONIGHTS OPENING FACE-OFF" R$;"WILL DROP THE PUCK BETWEEN ";A$(2);" AND ";B$(2) L1T6:L1260 "AND WE'RE READY FOR xT61110:> "WOULD THE ";A$(7);" COACH ENTER HIS TEAM"D i I16:"PLAYER ";I;:A$(I):I: "WOULD THE ";B$(7);" COACH DO THE SAME" T16:"PLAYER ";T;:B$(T):T: " INPUT THE REFEREE FOR THIS GAME ";:R$ :10);A$(7 LIKE THE INSTRUCTIONS?";:C$# 72 <C$"N"90A AC$"Y"80[ F"USE 'Y' OR 'N'":50e P1720 ZA$(10),B$(10),H(25),T(5),T1(5),T2(5),T3(5) d"ENTER THE TWO TEAMS ";:A$(7),B$(7) i n"ENTER THE NUMBER OF MINUTES IN A GAME ";:T6 s1I1302:I:"HOCKEY":J1300:J:I{:X30221:X);"X X":X:21);"X XXX":20);"X X":19);"XXX X"Y20131:Y);"X X":Y:12);"XX":11);"X"10);"*"I11000:I:170 X