! *** BASEBALL ADVENTURE BY9 *** SAMUAL CHIANG\ *** TRANSLATED FOR THE 64 BYu *** DONNA K. WOODY53280,5:53281,1:(144):53272,23:(8) 2040:270 : *** ROOM DESCRIPTIONS ***: A30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180N ZZA16:ZZ190,200,210,220,230,240,250,260s " IN THE PARKING LOT.":N2:340 (" OUTSIDE OF ANDLESTICK ARK. HERE IS A SIGN OVER THE ENTRANCE." *N6:S1:340 2" IN YOUR OFFICE.":N5:3401 <" IN A VERY LONG HALLWAY. HERE ARE STAIRS GOING DOWN."C AE5:D17:340u F" IN THE WEST END OF AN OUTER E/W HALLWAY." KN10:W4:E6:S3:340 P" IN THE EAST END OF AN OUTER E/W HALLWAY." UN11:W5:E7:S2:340 Z" IN AN EXTREMELY LONG HALLWAY. HERE ARE STAIRS GOING UP."1 _W6:U14:340W d" IN THE STANDS. + SECTION 26 +"d iS9:340 n" IN THE STANDS. + SECTION 12 +" sS10:N8:340 x" IN THE STANDS. + SECTION 6 +" }S5:E11:N9:340 " IN THE STANDS. + SECTION 9 +" S6:N12:W10:340; " IN THE STANDS. + SECTION 15 +"N S11:N13:340t " IN THE STANDS. + SECTION 27 +" S12:340 "IN A SECOND LEVEL HALLWAY. HERE ARE STAIRS GOING DOWN." S24:E16:W15:D7:340. " IN AN OFFICE. HERE IS A SIGN ABOVE AN OFFICIOUS LOOKING GIRL."< E14:340z " IN THE RESS OX. OU SEE A FAMOUS SPORTSCASTER." W14:340 " IN A LOWER LEVEL HALLWAY. HERE ARE STAIRS GOING UP." N20:W19:E18:U4:340"IN THE CLUBHOUSE.":W17:340,"IN THE LOCKER ROOM.":E17:340b" IN THE IANTS' DUGOUT. OU SEE THE MANAGER."uS17:N21:340"BEHIND THE PLATE, NEXT TO THE""BACKSTOP. HE IANTS' DUGOUT IS SOUTH,""THE FIELD IS WEST, AND THE ODGERS' DUGOUT IS NORTH OF YOU.")N22:W23:S20:340S"IN THE ODGERS' DUGOUT.":S21:340z"IN THE BATTERS' BOX.":E21:340"IN THE SCOREBOARD CONTROL ROOM. OU SEE A BUTTON ON A CONTROL PANEL." N14:340 :  *** DIM VARIABLES, INITIALIZE ***  :XA$(58),A(58),B(12),B$(35),C$(10),D(35),H$(58),I(58),PL$(5),EV$(5),DG$(5)~"A120:A$(A),A(A):H$(A)A$(A):$A135:B$(A)::A1335:D(A):,V15:PL$(V):EV$(V):DG$(V):V6A3:PT0:CL0:HB0:BT0:CP0:TK0:FB0:CH0:JR0:CA0:FT0:WJ0:WC0:WP0+8CK0:MY0:WL0Z@N0:W0:S0:E0:U0:D0:(147):"OU'RE";bJ20hO:nQ:TB112:B(B)0:BZ:[ *** DIRECTIONS ***\:^:"XITS: "hW"EST";:B(1)W:B(2)WrN"ORTH";:B(3)N:B(4)N|E"AST";:B(5)E:B(6)E8S"OUTH";:B(7)S:B(8)SVU"P";:B(9)U:B(10)UwD"OWN";:B(11)D:B(12)D}: *** IF ROOM = 1 & CASH IS *** *** THERE THEN END GAME *** *** MESSAGE FOR WINNER ***:A3CH12240:4 *** IF ROOM = 23 MESSAGE ***::j::A23781,10:782,1:65520:3000:2030p: *** IF NOT WEARING UNIFORM *** *** THEN MESSAGE ***:(WP1WC1WL1WJ1)A213050:2030: *** IF WEARING UNIFORM ***D *** PANTS, CLEATES, JERSEY, ***j *** & CAP, THEN MESSAGE ***p:WP1WJ1WC1WL1FT03650: *** CHECK FOR ITEMS AT YOUR *** *** LOCATION AND PRINT THEM ***:B120:A(A(B))CC1:480B::500=C2"HINGS YOU SEE HERE:"P""A$(B):470V:| *** INCREMENT TIME & CHECK *** *** TO SEE IF INNINGS HAVE *** *** PASSED TO COMPLETE GAME ***:XXXX1XX13(XX13)3100XX1252300 :& *** GET COMMAND ***,:KV(0):C0::"OMMAND";A$nA$"BUY COKE"A$"GIVE MONEY"A$"LOOK"320 :! *** CHECK FOR VALID ***" *** COMMAND - CHECK FOR ***# *** DIRECTION FIRST ***%:&:B112:A$B$(B)570&0:590?:B(B)0AB(B):320E>:g? *** NOT VALID DIRECTION ***m@:D"OU CAN'T GO THAT WAY!":530J:K *** INVENTORY COMMAND ***L:NA$"I"(A$,3)"ORY"620X"OU ARE CARRYING:":K110:C$(K);" ";:(0)19!b:530'd:Me *** NOT DIRECTION OR ***sf *** OR INVENTORY COMMAND ***g *** CHECK FOR VALID VERB ***lB1335:F(B$(B)):(A$,F)B$(B)640q:r *** NOT VALID VERB ***s:$v:"ON'T KNOW WHAT "(34);A$;(34);" MEANS.":530*{:K| *** VALID COMMAND VERB ***m} *** FIND LAST 3 LETTERS ***~ *** OF NOUN ***:D$(A$,(B$(B))2):E$(D$,3): *** D(B) HOLDS CODE FOR *** *** SYNONYM VERBS ***$ *** CHECK FOR VERB # ***F *** & TAKE ACTION ***L:]D(B)1850c: *** GET ITEM ***:J120:E$(A$(J),3)A(A(J))680: *** DOESN'T RECOGNIZE NOUN *** *** FROM LIST ***:0:" SEE NO "D$" HERE.":5006:[ *** IF A(J) IS NEGATIVE # *** *** THEN YOU CAN'T GET NOUN***:A(J)0"OU CAN'T GET THAT!":500: *** GET ITEM ***:R113150:720:  *** YOU'RE CARRYING TOO ***F *** TOO MANY ITEMS ***L:"OU'RE CARRYING TOO MUCH. OU SHOULD DROP SOMETHING FIRST.": *** GOTO DROP SECTION ***:500: *** SET VARIABLE TO 1 IF *** *** LAST 3 LETTERS OF NOUN ***A *** MATCH ITEM PICKED UP ***G:ZE$"NTS"PT1mE$"TES"CL1E$"BAT"HB1E$"ALL"BT1E$"PON"CP1E$"KET"TK1 E$"BEE"FB1E$"ASH"CH1 E$"SEY"JR1*E$"CAP"CA14E$"OKE"CK1+>E$"NEY"MY11C:VD *** GOTO DELAY LOOP ***\E:fH2010lM:N *** DROP COMMAND ***O:RD(B)21050W:X *** FIND OUT IF ITEM IS ***Y *** BEING CARRIED ***Z:\J110:E$(C$(J),3)880%a:Kd *** YOU DON'T HAVE THE ITEM ***Qe:wf:"OU'RE NOT CARRYING IT.":500}h:i *** PUT ITEM BACK IN NOUN ***j *** LIST - REMOVE FROM ***k *** CARRY LIST - DECREMENT *** l *** # OF ITEMS BEING ***6 m *** CARRIED ***< n:q pK158:A$(K)""A$(K)C$(J):A(K)A:H(J)0:900w z "!":K1158:C$(J)H$(K1)C$(J)"":RR1:920  :  *** AFTER DROPPING ITEM ***! *** SET VARIABLE TO 0 IF ***(! *** LAST 3 LETTERS OF NOUN ***M! *** MATCH ***S!:f!E$"ALL"BT0y!E$"BAT"HB0!E$"PON"CP0!E$"KET"TK0!E$"BEE"FB0!E$"ASH"CH0!E$"NTS"PT0:WP0:FT0!E$"TES"CL0:WL0:FT0"E$"SEY"JR0:WJ0:FT09"E$"CAP"CA0:WC0:FT0L"E$"OKE"CK0_"E$"NEY"MY0e":"  *** GOTO DELAY LOOP ***" :"2010":" *** LOOK/READ COMMAND ***":"D(B)31110":# *** IF ROOM = 2 & NOUN = ***'# *** SIGN THEN READ ***-#:K#$A2E$"IGN"3200:2020Q#):u#* *** IF ROOM = 15 & NOUN = ***#+ *** SIGN THEN READ ***#,:#.A15E$"IGN"3250:2010#3:#4 *** IF HOLDING BAT, READ ***#5:/$8E$"BAT"HB1"HE BAT IS SIGNED BY EGGIE ACKSON!":20205$=:Y$> *** IF HOLDING BALL, READ ***_$?:$BE$"ALL"BT1"HE BALL IS SIGNED BY ARV HRONBERRY!":2020$G:$H *** IF HOLDING COUPON, READ **$I:$LE$"PON"CP13260:2010$Q:%R *** KISS COMMAND ***"%S:4%VD(B)41200:%X:^%Y *** IF ROOM = 1 AND NOUN ***%Z *** = BUSINESS MAN THEN ***%[ *** MESSAGE ***%\:%`A1E$"MAN""E LIKES IT! EMEMBER YOU'RE IN ..":2020%c:&d *** IF ROOM = 9 AND NOUN ***;&e *** = OLD HAG THEN KISS ***_&f *** MESSAGE ***e&g:&j19E$"HAG""UCK!!!":2010&l:&m *** IF ROOM = 12 & NOUN = ***&n *** DODGER FAN THEN KISS ***&o *** MESSAGE ***'p:'tA12E$"FAN"3270:2020%'v:I'w *** IF ROOM = 13 AND NOUN ***m'x *** = COKE VENDOR THEN ***'y *** KISS MESSAGE ***'z:'~A13E$"DOR""HAT WON'T GET YOU ANY FREE COKES!":2020':( *** IF ROOM = 13 & NOUN = ***$( *** PRETTY GIRL THEN ***H( *** KISS MESSAGE ***N(:w(A15E$"IRL""OU LIKE IT!":2010}(:( *** IF ROOM = 16 & NOUN = ***( *** COSELL THEN KISS ***( *** MESSAGE ***(:0)A16E$"ELL""OUR MOUTH ISN'T BIG ENOUGH FOR HIS!":20206):Z) *** IF ROOM = 20 & NOUN = ***~) *** ROBINSON THEN KISS ***) *** MESSAGE ***):)A20E$"SON""IS WIFE IS WATCHING!":2010):* *** IF ROOM = 22 & NOUN = ***(* *** LASORDA THEN KISS ***L* *** MESSAGE ***R*:*A22E$"RDA""HEIR YOUR LIPS!":2010*:* *** TALK/SPEAK COMMAND ****:*D(B)51290*:* *** IF ROOM = 1 & NOUN = ***+ *** BUSINESS MAN THEN ***4+ *** TALK MESSAGE ***:+:`+A1E$"MAN"A(1)13280:2020f+:+ *** IF ROOM = 9 & NOUN = ***+ *** OLD HAG THEN TALK ***+ *** MESSAGE ***+: ,A9E$"HAG""HE SAYS:":" I, UTIE!":2010,:7, *** IF ROOM = 12 & NOUN = ***[, *** DODGER FAN THEN TALK ***, *** MESSAGE ***,:,A12E$"FAN"3290:2010,:, *** IF ROOM = 13 & NOUN = ***, *** COKE VENDOR THEN TALK ***- *** MESSAGE ***-:a-A13E$"DOR""E YELLS:":"OKES!!! CE COLD OKES!!!":2010g-:- *** IF ROOM = 15 & NOUN = ***- *** PRETTY GIRL THEN TALK ***- *** MESSAGE ***-:-A15E$"IRL"3310:2010-:". *** IF ROOM = 16 & NOUN = ***F. *** COSELL THEN TALK ***j. *** MESSAGE ***p.:.A16E$"ELL"3320:2030.:. *** IF ROOM = 20 & NOUN = ***. *** ROBINSON THEN TALK ***/ *** MESSAGE ***/:&/A20E$"SON"3350:2020,/:P/ *** IF ROOM = 22 & NOUN = ***t/ *** LASORDA THEN TALK ***/ *** MESSAGE ***/:/A22E$"RDA"3370:2020/:/ *** DRINK/SWALLOW ***/:/ D(B)613400 :*0  *** IF NOUN = COKE & YOU ***O0 *** ARE CARRYING IT THEN ***t0 *** DRINK IT ***z0:0E$"OKE"AMDCK13380:13200:0 *** IF DIDN'T DRINK COKE ***0 *** THEN GOTO SELL/GIVE/ ***1 *** TRADE COMMAND ***1: 11340&1 :K1! *** CHANGE COKE TO BOTTLE ***p1" *** IN CARRY LIST ***v1#:1(V110:C$(V)"COKE"C$(V)"BOTTLE":H$(3)"BOTTLE":201012V14:15 *** SELL/GIVE/TRADE *** 26 *** COMMAND ***27:#2<D(B)71510)2>:N2? *** IF ROOM =1 & YOU HAVE ***s2@ *** TICKET THEN MESSAGE ***y2A:2FA1E$"KET"TK13390:13702H:2I *** GOTO NEXT POSSIBLE ***2J *** SELL/GIVE/TAKE ***2K:2P13903R:'3S *** CHANGE TICKET TO MONEY ***L3T *** IN CARRY ITEMS ***R3U:3ZV110:C$(V)"TICKET"C$(V)"MONEY":H$(3)"MONEY":20203dV3f:3g *** IF ROOM =13 & YOU HAVE ***3h *** MONEY THEN MESSAGE ***3i:4nA13E$"NEY"MY13430:14104x1430!4}:F4~ *** CHANGE MONEY TO COKE ***L4:4V110:C$(V)"MONEY"C$(V)"COKE":H$(3)"COKE":20204V4:4 *** IF ROOM = 20 & NOUN = ***4 *** COKE THEN GIVE COKE ***4:5A20E$"OKE"CK13450:1450514705:=5 *** CHANGE COKE TO JERSEY ***C5:r5V110:C$(V)"COKE"C$(V)"JERSEY":2020y5V5:5 *** IF ROOM = 15 & NOUN = ***5 *** COUPON THEN GET CAP ***5:5A15E$"PON"CP13470:1490515106:(6 *** CHANGE COUPON TO CAP ***M6 *** CARRY LIST ***S6:6V110:C$(V)"COUPON"C$(V)"CAP":H$(8)"CAP":20206V6:6 *** KILL, ATTACK, HIT ***6 *** COMMAND ***6:6D(B)816107:'7 *** IF ROOM = 1 & NOUN = ***L7 *** BUSINESS MAN ***R7:x7A1E$"MAN"A(1)13660:2020~7:7 *** IF ROOM = 9 & NOUN = ***7 *** OLD HAG ***7:7A9E$"HAG"3690:20207:8 *** IF ROOM = 12 & NOUN = ***<8 *** DODGERS' FAN ***B8:a8A12E$"FAN"3710:2020g8:8 *** IF ROOM = 13 & NOUN = ***8 *** COKE VENDOR ***8 :8A13E$"DOR"3720:20208:9 *** IF ROOM = 15 & NOUN = ***&9 *** PRETTY GIRL ***,9:K9A15E$"IRL"3730:2020Q9:v9 *** IF ROOM = 16 & NOUN = ***9 *** COSELL ***9:9"A16E$"ELL""L ICHEALS AND OB ECKER STOP YOU!":20109$: :% *** IF ROOM = 20 & NOUN = ***2:& *** ROBINSON ***8:':{:,A20E$"SON""ILL ASKEY AND EFF EONARD STOP YOU!":2010:.::/ *** IF ROOM = 22 & NOUN = ***:0 *** LASORDA ***:6A22E$"RDA"CH03480:2030:;:;< *** IF HAVE BAT & BALL & ***?;= *** NOUN = BALL ***E;>:z;EBT1HB1E$"ALL""OU SWING AND MISS!":2010;F:;G *** THROW/FLY/PLAY ***;H *** COMMAND ***;I:;JD(B)91740;L: E$"TON"A24"HE SCORE BOARD FLASHES ϐ":20202>:W> *** CLIMB/GO COMMAND ***]>:p>D(B)111790v>:> *** IF ROOM = 4 & NOUN = ***> *** STAIRS ***>:>A4E$"IRS""!":A17:2010>:? *** IF ROOM = 7 & NOUN = ***:? *** STAIRS ***@?:d?A7E$"IRS""!":A14:2010j?:? *** WEAR COMMAND ***?:?D(B)121840?:? *** IF NOUN = PANTS & HAVE ***? *** THEM, PUT THEM ON ***?::@E$"NTS"PT1WP0"OU PUT ON THE PANTS!":WP1:2010@@ :e@  *** IF NOUN = JERSEY & HAVE***@  *** IT, THEN PUT IT ON ***@ :@E$"SEY"JR1WJ0"OU PUT ON THE JERSEY!":WJ1:2010@:@ *** IF NOUN = CLEATES & ***A *** HAVE THEM, THEN WEAR ***#A:aAE$"TES"CL1WL0"OU PUT ON THE CLEATES!":WL1:2010gA:A *** IF NOUN = CAP & HAVE ***A  *** IT, THEN WEAR ***A!:A&E$"CAP"CA1WC0"OU PUT ON THE CAP!":WC1:2010A/:B0 *** NOT VALID VERB ***!B1:DB:"OU CAN'T DO THAT NOW!":500JB<:oB= *** DON'T KNOW WHAT IT DOES***uB>:BD FORK2=1TO10:IFC$(K2)=R$:GOSUB1870:RETURNBN IFR$=""THENI(K3)=0BXBZ:B[ *** UPDATE LIST OF NOUNS ***C\ *** AFTER VERB ACTION ***C]:;CbK2158:A$(K2)H$(K3)3630CCl:MCv2010SCYC:~C *** DATA FOR NOUN & CODE ***C *** FOR NOUN ***C:CBUSINESS MAN,-1,SIGN,-2,TICKET,3,STAIRS,-4,STAIRS,-7,BASEBALL,86DOLD HAG,-9,COUPON,10,FRISBEE,11,"ODGER FAN",-12,"OKE VENDOR",-13wDSIGN,-15,PRETTY GIRL,-15,"OSELL",-16,BUTTON,-24,CLEATES,18DPANTS,19,"OBINSON",-20,BAT,21D"ASORDA",-22DWEST,W,NORTH,N,EAST,E,SOUTH,S,UP,U,DOWN,D,GET,DROP,LOOK,READ,KISS9ETALK,SPEAK,DRINK,SWALLOW,SELL,GIVE,TRADE,KILL,ATTACK,HIT,THROW`EFLY,PLAY,PUSH,PRESS,CLIMB,GO,WEARE1,2,3,3,4,5,5,6,6,7,7,7,8,8,8,9,9,9,10,10,11,11,12E"ACK LARK",HITS A HOME RUN,"ERNANDO ALENZEULA","OM 'ALLEY" FHITS A DOUBLE,"EDRO UERRERO","UANE UIPER",HITS A SINGLE[F"ERRY EUSS","HILI AVIS",STEALS A BASE,"TEVE AX"F"OHNNIE EMASTER",MAKES A GREAT PLAY,"USTY AKER"F:F *** DON'T KNOW WHAT IT DOES***F:FK4121:A$(J)H$(K4)I(K4)1:K460F:F: G *** VARYING LENGTH DELAY ***DG *** LOOPS BEFORE ZEROING ***hG *** DIRECTIONS & PRINTING ***G *** ROOM DESCRIPTION ***G *** (LINES 2010-2030) ***G:GV12500::320GV14000::320GV13500::320G:H *** TITLE PAGE & ***%H:AH(147):783,(783)254H781,5:782,3:65520:" Œ"H 781,10:782,12:65520:"Y AMUEL HIANG"H781,15:782,5:65520:"RANSLATED FOR THE OMMODORE BY"!I781,17:782,13:65520:"ONNA . OODY"YI 781,23:782,7:65520:" ";wI"198,0:198,1:Z$:(147)I*:I,:I- *** INSTRUCTIONS ***I.:I4"S IN OTHER ADVENTURES, ONE OR TWO WORD" J6"COMMANDS ARE USED TO COMMUNICATE WITH":J8"THE COMPUTER, SUCH AS 'GET KEY', 'DROP"TJ:"KEY', 'OPEN DOOR'."\J>:JH"O MOVE IN A PARTICULAR DIRECTION,"JJ"ENTER THE DIRECTION 'SOUTH' OR SIMPLY"JL"THE FIRST LETTER OF THAT DIRECTION 'S'."JR:K\"NTERING 'LOOK' WILL REFRESH YOUR"=K^"MEMORY ABOUT YOUR ENVIRONMENT, AND"jK`"ENTERING 'INVENTORY' OR 'I' WILL SHOW"Kb"YOU WHAT YOU ARE CARRYING."Kf781,23:782,7:65520:" ";Kh198,0:198,1:Z$:(147)Kp:Lz"HE TIME IS THE PRESENT. OU ARE IN"DL|"CHARGE OF THE GATE RECIEPTS AT A GREAT"jL~"METROPOLITAN BASEBALL STADIUM."pLL:"S YOU WERE ABOUT TO PUT THE MONEY FROM"L"THE GATE INTO THE SAFE, YOU WERE STRUCK"L"FROM BEHIND AND LOST CONCIOUSNESS. HEN",M"YOU AWAKE, THE GAME IS JUST BEGINNING"JM"AND THE MONEY IS GONE."PMM:"OU MUST FIND THE MONEY WHICH IS STILL"M"IN THE STADIUM AND RETURN IT TO YOUR"M"OFFICE BEFORE THE GAME IS OVER. F YOU"N"DO NOT, YOUR HIGH PAYING JOB IS"N"FORFEIT."5N" * *"mN781,23:782,7:65520:" Ϡ";N198,0:198,1:Z$:(147)NN:N *** END GAME MESSAGE FOR ***N *** WINNER ***N:N(147)N&O"UST AS YOU PUT THE MONEY SAFELY INTO"UO"THE SAFE, IANTS' OWNER OB URIE WALKS"O"IN SMILING AND SAYS 'OR DOING SUCH A"O"GOOD JOB, 'M GOING TO PROMOTE YOU TO"O"GENERAL MANAGER. F COURSE, YOU WILL"P"YOU WILL GET A SUBSTANTIAL RAISE.'"7P::"S GENERAL MANAGER, YOU MAKE JUST THE"eP"RIGHT MOVES AND TAKE THE IANTS TO THE"P"ORLD ERIES WHERE THEY SWEEP THE"P"ANKEES IN FOUR GAMES."P781,22:782,10:65520:"* *"P2350P:Q *** END GAME MESSAGE FOR ***8Q *** LOSER ***>Q:JQ(147){Q 781,5:782,9:65520:"* *"Q 781,8:782,0:65520Q$ "OUR TIME IS UP! HE IANTS WON, BUT"Q& "YOU LOST. FTER YOUR BOSS FINDS OUT"R( "WHAT HAPPENED, HE NOT ONLY FIRES YOU,"IR* "HE ALSO EXILES YOU TO AKLAND WHERE YOU"qR, "HAVE TO WORK FOR THE (UGH!) 'S."R. :"O YOU WANT TO PLAY AGAIN (Y/N)?";: 198,0:198,1:KE$R8 KE$"Y"RB KE$"N"2380RG "":2350SK *****************************SL 63000SM :SN :BSV *****************************HS :kS *** MORE DESCRIPTION ***qS :S "OU GO UP TO PINCH HIT FOR ACK LARK,"S "BUT HE WANTS HIS SWINGS, AND SINCE HE" T "HAS A BETTER AVERAGE, HE FORCES YOU TO GO BACK!":A21:T :5T *** NOT WEARING A FULL ***YT *** UNIFORM ***_T :T ::"HE UMPIRES STOP YOU FROM GOING OUT ON"T "THE FIELD AND SAY:"T "' PLAYER MUST BE IN FULL UNIFORM TO PLAY!'":A20:T :U *** PRINT INNING # WHEN ***6U *** DIVISIBLE BY 13 ***VR C$(K)""K10:RR1:"K!"DVY JVZ PV{ :tV| *** READ SIGN IN ROOM # 2 ***zV} :V "HE SIGN READS:":V " ":V " . ":W "Ġ": W :-W *** READ SIGN IN ROOM 15 ***3W :kW "HE SIGN READS:":" ":qW :W *** READ COUPON ***W :W "HE COUPON READS:":12)"OU'RE A WINNER!":W :W *** MESSAGE FOR KISS ***X *** DODGER FAN ***"X :`X "E LIKES IT! HAT DO YOU EXPECT FROM A ODGERS FAN!":fX :X *** MESSAGE FOR TALK MAN ***X *** DOESN'T HAVE A TICKET ***X :X "HE MAN SAYS:":"ATS!!! HE GAME IS SOLD OUT!":X :Y *** MESSAGE FOR TALK ***;Y *** DODGER FAN ***AY :zY "E SAYS:":"AARGH!!! HE ODGERS ALWAYS LOSE TO"Y "THE IANTS!":Y :Y *** MESSAGE FOR TALK ***Y *** PRETTY GIRL ***Y :Z "HE SAYS:":"O YOU HAVE A WINNING COUPON?":Z :AZ *** MESSAGE FOR TALK ***eZ *** COSELL ***kZ :Z "E SAYS:":"HIS GAME IS A DEBACLE! HE AWESOME"Z "IANTS ARE AGAIN TOTALLY HUMILIATING"Z "THE LOWLY OS NGELES ODGERS!":Z :![ *** MESSAGE FOR TALK ***E[ *** ROBINSON ***K[ :[ "E SAYS:":"OU KNOW, KID, 'VE ALWAYS WANTED TO BE"[ "LIKE EAN OE REENE.":[" :[# *** MESSAGE FOR TALK ***[$ *** LASORDA ***[% :6\* "E SAYS:":" JUST GOT A BIG PAY BONUS! EY! EY!":<\, :a\- *** MESSAGE FOR DRINK COKE ***\. *** FROM VENDOR ***\/ :\4 "OOD, YOU WERE THIRSTY":CK0:K3E:M$"BOTTLE":1890:\6 :\7 *** MESSAGE FOR SELL TICKET***\8 :']> "HE MAN TAKES THE TICKET AND HANDS YOU"S]H "SOME MONEY! E THEN RUSHES INTO THE"]R "BALLPARK TO SEE THE GAME.":TK0:K30:MY1:A(1)0:M$"MONEY":1890]\ ]a :]b *** MESSAGE FOR BUY COKE ***]c :]f "HE VENDOR TAKES YOUR MONEY AND HANDS"3^p "YOU A COKE!":MY0:CK1:K33:M$"COKE":1890:9^r :^^s *** ROBINSON DRINKS COKE ***^t *** & GIVES YOU JERSEY ***^u :^z "E GULPS THE COKE DOWN AND IN GRATITUDE"^ "THROWS YOU HIS JERSEY!":JR1:CK0:K33:M$"JERSEY":1890:^ :#_ *** GET CAP FOR COUPON ***G_ *** MESSAGE ***M_ :|_ "HE GIRL TAKES THE COUPON AND HANDS YOU"_ "YOU A IANTS CAP.":CA1:CP0:K30:M$"CAP":1890:_ :_ *** MESSAGE IF ATTACK ***` *** LASORDA *** ` :5` "S YOU CHARGE TOWARD HIM, HE BECOMES"b` "FRIGHTENED AND RUSHES ONTO THE FIELD."` "N HIS RUSH TO ESCAPE, SOMETHING FALLS"` "OUT OF HIS POCKET!":CH1:K320:M$"LOTS OF CASH":1890:A(20)22` ` :a *** THROW BALL MESSAGE & ***,a *** UPDATE CARRY LIST ***[a "HE BALL SAILS OVER THE FIELD. T HITS"a DG$(((1)5)1);"ON THE HEAD!"a "E'S OUT COLD!!":V110:C$(V)"BASEBALL"C$(V)""a K36:M$"":1890:A(6)0:V:b "HE FRISBEE FLIES ONTO THE FIELD. T"4b "HITS "DG$(((1)5)1);"ON THE HEAD!"xb"RING ON THE STRETCHER!!!!":V110:C$(V)"FRISBEE"C$(V)""bK39:M$"":1890:A(9)0:V:b:b *** THROW/FLY/PLAY BAT ***b:b"HAT AN ARM! T HITS "DG$(ING((1)5)1)*c$"ON THE HEAD. E'S NOT MOVING!!!":V110cc)C$(V)"BAT"C$(V)"":K319:M$"":1890:A(19)0:V:c.A$(K2)M$:H$(K3)M$:A(K2)A(K2)(M$"")1:I(K3)I(K3)(M$"")1:c::c; *** MESSAGE IF WEARING FULL***c< *** UNIFORM ***d=:2dB"OU ARE NOW IN FULL UNIFORM!":::FT1:8dD:]dE *** MESSAGE IF HIT BUSINESS***dF *** MAN ***dG:dL"EFORE YOU CAN HIT HIM, HE HITS YOU"dV"OVER THE HEAD HEAD WITH HIS BREIFCASE."d`"UCH!!":db:ec *** MESSAGE IF HIT OLD HAG ***"ed:Oej"EFORE YOU CAN HIT HER, SHE STABS YOU"xet"WITH A KNITTING NEEDLE. WWW!!":~ev:ew *** MESSAGE IF HIT FAN ***ex:e~"OU DON'T WANT TO BEAT UP A WIMPY GUY LIKE HIM!": e:f *** MESSAGE IF HIT VENDOR ***f:Rf"HAT WOULDN'T BE FAIR. E'S HOLDING THE COKES!":Xf:}f *** MESSAGE IF HIT PRETTY ***f *** GIRL ***f:f"EFORE YOU CAN HIT HER. SHE KICKS YOU"f"IN A VERY SENSITIVE AREA. IKES!":"gPÏ ****************************EgZÏ * *hgdÏ * VARIABLES USED *gnÏ * *gxÏ ****************************g:gÏ C$() = ITEMS BEING CARRIEDgÏ E$ = LAST 3 LETTERS OF NOUNhÏ D() = NUMBER OF VERB1hÏ A() = NUMBER OF VERBLhÏ A$() = LIST OF NOUNSlhÏ PL$()= PLAYER OF ONE TEAMhÏ EV$()= ACTION OF PLAYERhÏ DG$()= PLAYER OF 2ND TEAMhď H$() =hď I =hď R = # ITEMS CARRIEDh"ď A = ROOM # i LINK BACK:i""LOAD"(34)"HELLO"(34)",8":"RUN"^i,198,0:631,13:632,13:198,2: