home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / BASEBALL-ADVNTRE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  25KB  |  908 lines
  1. 1 REM *** BASEBALL ADVENTURE BY
  2. 2 REM *** SAMUAL CHIANG
  3. 3 REM *** TRANSLATED FOR THE 64 BY
  4. 4 REM *** DONNA K. WOODY
  5. 5 POKE53280,5:POKE53281,1:PRINTCHR$(144):POKE53272,23:PRINTCHR$(8)
  6. 10 GOSUB2040:GOTO270
  7. 12 :
  8. 13 REM *** ROOM DESCRIPTIONS ***
  9. 14 :
  10. 20 ONAGOTO30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180
  11. 22 ZZ=A-16:ONZZGOTO190,200,210,220,230,240,250,260
  12. 30 PRINT" IN THE PARKING LOT.":N=2:GOTO340
  13. 40 PRINT" OUTSIDE OF [195]ANDLESTICK [208]ARK.     [212]HERE IS A SIGN OVER THE ENTRANCE."
  14. 42 N=6:S=1:GOTO340
  15. 50 PRINT" IN YOUR OFFICE.":N=5:GOTO340
  16. 60 PRINT" IN A VERY LONG HALLWAY.  [212]HERE   ARE STAIRS GOING DOWN."
  17. 65 E=5:D=17:GOTO340
  18. 70 PRINT" IN THE WEST END OF AN OUTER E/W  HALLWAY."
  19. 75 N=10:W=4:E=6:S=3:GOTO340
  20. 80 PRINT" IN THE EAST END OF AN OUTER E/W  HALLWAY."
  21. 85 N=11:W=5:E=7:S=2:GOTO340
  22. 90 PRINT" IN AN EXTREMELY LONG HALLWAY.    [212]HERE ARE STAIRS GOING UP."
  23. 95 W=6:U=14:GOTO340
  24. 100 PRINT" IN THE STANDS. + SECTION 26 +"
  25. 105 S=9:GOTO340
  26. 110 PRINT" IN THE STANDS. + SECTION 12 +"
  27. 115 S=10:N=8:GOTO340
  28. 120 PRINT" IN THE STANDS. + SECTION  6 +"
  29. 125 S=5:E=11:N=9:GOTO340
  30. 130 PRINT" IN THE STANDS. + SECTION  9 +"
  31. 135 S=6:N=12:W=10:GOTO340
  32. 140 PRINT" IN THE STANDS. + SECTION 15 +"
  33. 145 S=11:N=13:GOTO340
  34. 150 PRINT" IN THE STANDS. + SECTION 27 +"
  35. 155 S=12:GOTO340
  36. 160 PRINT"[160]IN A SECOND LEVEL HALLWAY.       [212]HERE ARE STAIRS GOING DOWN."
  37. 165 S=24:E=16:W=15:D=7:GOTO340
  38. 170 PRINT" IN AN OFFICE.  [212]HERE IS A SIGN   ABOVE AN OFFICIOUS LOOKING GIRL."
  39. 175 E=14:GOTO340
  40. 180 PRINT" IN THE [208]RESS [194]OX.  [217]OU SEE A     FAMOUS SPORTSCASTER."
  41. 185 W=14:GOTO340
  42. 190 PRINT" IN A LOWER LEVEL HALLWAY.  [212]HERE ARE STAIRS GOING UP."
  43. 195 N=20:W=19:E=18:U=4:GOTO340
  44. 200 PRINT"[160]IN THE CLUBHOUSE.":W=17:GOTO340
  45. 210 PRINT"[160]IN THE LOCKER ROOM.":E=17:GOTO340
  46. 220 PRINT" IN THE [199]IANTS' DUGOUT.  [217]OU SEE  THE MANAGER."
  47. 225 S=17:N=21:GOTO340
  48. 230 PRINT"[160]BEHIND THE PLATE, NEXT TO THE"
  49. 232 PRINT"BACKSTOP.  [212]HE [199]IANTS' DUGOUT IS SOUTH,"
  50. 234 PRINT"THE FIELD IS WEST, AND THE [196]ODGERS'     DUGOUT IS NORTH OF YOU."
  51. 236 N=22:W=23:S=20:GOTO340
  52. 240 PRINT"[160]IN THE [196]ODGERS' DUGOUT.":S=21:GOTO340
  53. 250 PRINT"[160]IN THE BATTERS' BOX.":E=21:GOTO340
  54. 260 PRINT"[160]IN THE SCOREBOARD CONTROL ROOM.  [217]OU SEE A BUTTON ON A CONTROL PANEL."
  55. 265 N=14:GOTO340
  56. 266 :
  57. 267 REM *** DIM VARIABLES, INITIALIZE ***
  58. 268 :
  59. 270 DIMA$(58),A(58),B(12),B$(35),C$(10),D(35),H$(58),I(58),PL$(5),EV$(5),DG$(5)
  60. 290 FORA=1TO20:READA$(A),A(A):H$(A)=A$(A):NEXT
  61. 292 FORA=1TO35:READB$(A):NEXT:FORA=13TO35:READD(A):NEXT
  62. 300 FORV=1TO5:READPL$(V):READEV$(V):READDG$(V):NEXTV
  63. 310 A=3:PT=0:CL=0:HB=0:BT=0:CP=0:TK=0:FB=0:CH=0:JR=0:CA=0:FT=0:WJ=0:WC=0:WP=0
  64. 312 CK=0:MY=0:WL=0
  65. 320 N=0:W=0:S=0:E=0:U=0:D=0:PRINTCHR$(147):PRINT"[217]OU'RE";
  66. 330 GOTO20
  67. 335 :
  68. 337 :
  69. 340 FORB=1TO12:B(B)=0:NEXTB
  70. 346 :
  71. 347 REM *** DIRECTIONS ***
  72. 348 :
  73. 350 PRINT:PRINT"[197]XITS: "
  74. 360 IFWTHENPRINT"[160][215]EST";:B(1)=W:B(2)=W
  75. 370 IFNTHENPRINT"[160][206]ORTH";:B(3)=N:B(4)=N
  76. 380 IFETHENPRINT"[160][197]AST";:B(5)=E:B(6)=E
  77. 390 IFSTHENPRINT"[160][211]OUTH";:B(7)=S:B(8)=S
  78. 400 IFUTHENPRINT"[160][213]P";:B(9)=U:B(10)=U
  79. 410 IFDTHENPRINT"[160][196]OWN";:B(11)=D:B(12)=D
  80. 412 :
  81. 413 REM *** IF ROOM = 1 & CASH IS   ***
  82. 414 REM *** THERE THEN END GAME     ***
  83. 415 REM *** MESSAGE FOR WINNER      ***
  84. 416 :
  85. 420 IFA=3ANDCH=1THEN2240
  86. 422 :
  87. 423 REM *** IF ROOM = 23 MESSAGE    ***
  88. 424 :
  89. 430 PRINT:PRINT:IFA=23THENPOKE781,10:POKE782,1:SYS65520:GOSUB3000:GOTO2030
  90. 432 :
  91. 433 REM *** IF NOT WEARING UNIFORM  ***
  92. 434 REM *** THEN MESSAGE            ***
  93. 435 :
  94. 440 IF(WP<>1ORWC<>1ORWL<>1ORWJ<>1)ANDA=21THENGOSUB3050:GOTO2030
  95. 442 :
  96. 443 REM *** IF WEARING UNIFORM      ***
  97. 444 REM *** PANTS, CLEATES, JERSEY, ***
  98. 445 REM *** & CAP, THEN MESSAGE     ***
  99. 446 :
  100. 450 IFWP=1ANDWJ=1ANDWC=1ANDWL=1ANDFT=0THENGOSUB3650
  101. 452 :
  102. 453 REM *** CHECK FOR ITEMS AT YOUR ***
  103. 454 REM *** LOCATION AND PRINT THEM ***
  104. 455 :
  105. 460 FORB=1TO20:IFA=ABS(A(B))THENC=C+1:GOTO480
  106. 470 NEXTB:PRINT:GOTO500
  107. 480 IFC<2THENPRINT"[212]HINGS YOU SEE HERE:"
  108. 490 PRINT"[160]"A$(B):GOTO470
  109. 492 :
  110. 493 REM *** INCREMENT TIME & CHECK  ***
  111. 494 REM *** TO SEE IF INNINGS HAVE  ***
  112. 495 REM *** PASSED TO COMPLETE GAME ***
  113. 496 :
  114. 500 XX=XX+1
  115. 510 IFXX/13=INT(XX/13)THENGOSUB3100
  116. 520 IFXX>=125THEN2300
  117. 526 :
  118. 527 REM *** GET COMMAND ***
  119. 528 :
  120. 530 V=FRE(0):C=0:PRINT:INPUT"[195]OMMAND";A$
  121. 535 IFA$="BUY COKE"THENA$="GIVE MONEY"
  122. 540 IFA$="LOOK"THEN320
  123. 544 :
  124. 545 REM *** CHECK FOR VALID         ***
  125. 546 REM *** COMMAND - CHECK FOR     ***
  126. 547 REM *** DIRECTION FIRST         ***
  127. 549 :
  128. 550 PRINT:FORB=1TO12:IFA$=B$(B)THEN570
  129. 560 NEXT:GOTO590
  130. 570 IFB(B)<>0THENA=B(B):GOTO320
  131. 574 :
  132. 575 REM *** NOT VALID DIRECTION ***
  133. 576 :
  134. 580 PRINT"[217]OU CAN'T GO THAT WAY!":GOTO530
  135. 586 :
  136. 587 REM *** INVENTORY COMMAND ***
  137. 588 :
  138. 590 IFA$<>"I"ANDRIGHT$(A$,3)<>"ORY"THEN620
  139. 600 PRINT"[217]OU ARE CARRYING:":FORK=1TO10:PRINTC$(K);"   ";:IFPOS(0)>19THENPRINT
  140. 610 NEXT:GOTO530
  141. 612 :
  142. 613 REM *** NOT DIRECTION OR        ***
  143. 614 REM *** OR INVENTORY COMMAND    ***
  144. 615 REM *** CHECK FOR VALID VERB    ***
  145. 620 FORB=13TO35:F=LEN(B$(B)):IFLEFT$(A$,F)=B$(B)THEN640
  146. 625 :
  147. 626 REM *** NOT VALID VERB ***
  148. 627 :
  149. 630 NEXT:PRINT"[196]ON'T KNOW WHAT "CHR$(34);A$;CHR$(34);" MEANS.":GOTO530
  150. 635 :
  151. 636 REM *** VALID COMMAND VERB ***
  152. 637 REM *** FIND LAST 3 LETTERS ***
  153. 638 REM *** OF NOUN             ***
  154. 639 :
  155. 640 D$=MID$(A$,LEN(B$(B))+2):E$=RIGHT$(D$,3)
  156. 643 :
  157. 644 REM *** D(B) HOLDS CODE FOR ***
  158. 645 REM *** SYNONYM VERBS       ***
  159. 646 REM *** CHECK FOR VERB #    ***
  160. 647 REM *** & TAKE ACTION       ***
  161. 648 :
  162. 650 IFD(B)<>1THEN850
  163. 655 :
  164. 656 REM *** GET ITEM                ***
  165. 657 :
  166. 660 FORJ=1TO20:IFE$=RIGHT$(A$(J),3)ANDA=ABS(A(J))THEN680
  167. 665 :
  168. 666 REM *** DOESN'T RECOGNIZE NOUN ***
  169. 667 REM *** FROM LIST              ***
  170. 668 :
  171. 670 NEXT:PRINT"[201] SEE NO "D$" HERE.":GOTO500
  172. 675 :
  173. 676 REM *** IF A(J) IS NEGATIVE #  ***
  174. 677 REM *** THEN YOU CAN'T GET NOUN***
  175. 678 :
  176. 680 IFA(J)<0THENPRINT"[217]OU CAN'T GET THAT!":GOTO500
  177. 685 :
  178. 686 REM *** GET ITEM               ***
  179. 687 :
  180. 690 IFR<11THENGOSUB3150:GOTO720
  181. 695 :
  182. 696 REM *** YOU'RE CARRYING TOO     ***
  183. 697 REM *** TOO MANY ITEMS          ***
  184. 698 :
  185. 700 PRINT"[217]OU'RE CARRYING TOO MUCH.  [217]OU SHOULD   DROP SOMETHING FIRST."
  186. 705 :
  187. 706 REM *** GOTO DROP SECTION       ***
  188. 707 :
  189. 710 GOTO500
  190. 715 :
  191. 716 REM *** SET VARIABLE TO 1 IF   ***
  192. 717 REM *** LAST 3 LETTERS OF NOUN ***
  193. 718 REM *** MATCH ITEM PICKED UP   ***
  194. 719 :
  195. 720 IFE$="NTS"THENPT=1
  196. 730 IFE$="TES"THENCL=1
  197. 740 IFE$="BAT"THENHB=1
  198. 750 IFE$="ALL"THENBT=1
  199. 760 IFE$="PON"THENCP=1
  200. 770 IFE$="KET"THENTK=1
  201. 780 IFE$="BEE"THENFB=1
  202. 790 IFE$="ASH"THENCH=1
  203. 800 IFE$="SEY"THENJR=1
  204. 810 IFE$="CAP"THENCA=1
  205. 820 IFE$="OKE"THENCK=1
  206. 830 IFE$="NEY"THENMY=1
  207. 835 :
  208. 836 REM *** GOTO DELAY LOOP        ***
  209. 837 :
  210. 840 GOTO2010
  211. 845 :
  212. 846 REM *** DROP COMMAND            ***
  213. 847 :
  214. 850 IFD(B)<>2THEN1050
  215. 855 :
  216. 856 REM *** FIND OUT IF ITEM IS    ***
  217. 857 REM *** BEING CARRIED          ***
  218. 858 :
  219. 860 FORJ=1TO10:IFE$=RIGHT$(C$(J),3)THEN880
  220. 865 :
  221. 868 REM *** YOU DON'T HAVE THE ITEM ***
  222. 869 :
  223. 870 NEXT:PRINT"[217]OU'RE NOT CARRYING IT.":GOTO500
  224. 872 :
  225. 873 REM *** PUT ITEM BACK IN NOUN  ***
  226. 874 REM *** LIST - REMOVE FROM     ***
  227. 875 REM *** CARRY LIST - DECREMENT ***
  228. 876 REM *** # OF ITEMS BEING       ***
  229. 877 REM *** CARRIED                ***
  230. 878 :
  231. 880 FORK=1TO58:IFA$(K)=""THENA$(K)=C$(J):A(K)=A:H(J)=0:GOTO900
  232. 890 NEXT
  233. 900 PRINT"[207][203]!":FORK1=1TO58:IFC$(J)=H$(K1)THENC$(J)="":R=R-1:GOTO920
  234. 910 NEXT
  235. 912 :
  236. 913 REM *** AFTER DROPPING ITEM    ***
  237. 914 REM *** SET VARIABLE TO 0 IF   ***
  238. 915 REM *** LAST 3 LETTERS OF NOUN ***
  239. 916 REM *** MATCH                  ***
  240. 917 :
  241. 920 IFE$="ALL"THENBT=0
  242. 930 IFE$="BAT"THENHB=0
  243. 940 IFE$="PON"THENCP=0
  244. 950 IFE$="KET"THENTK=0
  245. 960 IFE$="BEE"THENFB=0
  246. 970 IFE$="ASH"THENCH=0
  247. 980 IFE$="NTS"THENPT=0:WP=0:FT=0
  248. 990 IFE$="TES"THENCL=0:WL=0:FT=0
  249. 1000 IFE$="SEY"THENJR=0:WJ=0:FT=0
  250. 1010 IFE$="CAP"THENCA=0:WC=0:FT=0
  251. 1020 IFE$="OKE"THENCK=0
  252. 1030 IFE$="NEY"THENMY=0
  253. 1032 :
  254. 1033 REM *** GOTO DELAY LOOP      ***
  255. 1034 :
  256. 1040 GOTO2010
  257. 1042 :
  258. 1043 REM *** LOOK/READ COMMAND    ***
  259. 1044 :
  260. 1050 IFD(B)<>3THEN1110
  261. 1052 :
  262. 1053 REM *** IF ROOM = 2 & NOUN =  ***
  263. 1054 REM *** SIGN THEN READ        ***
  264. 1055 :
  265. 1060 IFA=2ANDE$="IGN"THENGOSUB3200:GOTO2020
  266. 1065 :
  267. 1066 REM *** IF ROOM = 15 & NOUN = ***
  268. 1067 REM *** SIGN THEN READ        ***
  269. 1068 :
  270. 1070 IFA=15ANDE$="IGN"THENGOSUB3250:GOTO2010
  271. 1075 :
  272. 1076 REM *** IF HOLDING BAT, READ  ***
  273. 1077 :
  274. 1080 IFE$="BAT"ANDHB=1THENPRINT"[212]HE BAT IS SIGNED BY [210]EGGIE [202]ACKSON!":GOTO2020
  275. 1085 :
  276. 1086 REM *** IF HOLDING BALL, READ ***
  277. 1087 :
  278. 1090 IFE$="ALL"ANDBT=1THENPRINT"[212]HE BALL IS SIGNED BY [205]ARV [212]HRONBERRY!":GOTO2020
  279. 1095 :
  280. 1096 REM *** IF HOLDING COUPON, READ **
  281. 1097 :
  282. 1100 IFE$="PON"ANDCP=1THENGOSUB3260:GOTO2010
  283. 1105 :
  284. 1106 REM *** KISS COMMAND          ***
  285. 1107 :
  286. 1110 IFD(B)<>4THEN1200
  287. 1112 :
  288. 1113 REM *** IF ROOM = 1 AND NOUN  ***
  289. 1114 REM *** = BUSINESS MAN THEN   ***
  290. 1115 REM *** MESSAGE               ***
  291. 1116 :
  292. 1120 IFA=1ANDE$="MAN"THENPRINT"[200]E LIKES IT!  [210]EMEMBER YOU'RE IN [211].[198].":GOTO2020
  293. 1123 :
  294. 1124 REM *** IF ROOM = 9 AND NOUN  ***
  295. 1125 REM *** = OLD HAG THEN KISS   ***
  296. 1126 REM *** MESSAGE               ***
  297. 1127 :
  298. 1130 IF1=9ANDE$="HAG"THENPRINT"[217]UCK!!!":GOTO2010
  299. 1132 :
  300. 1133 REM *** IF ROOM = 12 & NOUN = ***
  301. 1134 REM *** DODGER FAN THEN KISS  ***
  302. 1135 REM *** MESSAGE               ***
  303. 1136 :
  304. 1140 IFA=12ANDE$="FAN"THENGOSUB3270:GOTO2020
  305. 1142 :
  306. 1143 REM *** IF ROOM = 13 AND NOUN ***
  307. 1144 REM *** = COKE VENDOR THEN    ***
  308. 1145 REM *** KISS MESSAGE          ***
  309. 1146 :
  310. 1150 IFA=13ANDE$="DOR"THENPRINT"[212]HAT WON'T GET YOU ANY FREE COKES!":GOTO2020
  311. 1151 :
  312. 1153 REM *** IF ROOM = 13 & NOUN = ***
  313. 1154 REM *** PRETTY GIRL THEN      ***
  314. 1155 REM *** KISS MESSAGE          ***
  315. 1156 :
  316. 1160 IFA=15ANDE$="IRL"THENPRINT"[217]OU LIKE IT!":GOTO2010
  317. 1162 :
  318. 1163 REM *** IF ROOM = 16 & NOUN = ***
  319. 1164 REM *** COSELL THEN KISS      ***
  320. 1165 REM *** MESSAGE               ***
  321. 1166 :
  322. 1170 IFA=16ANDE$="ELL"THENPRINT"[217]OUR MOUTH ISN'T BIG ENOUGH FOR HIS!":GOTO2020
  323. 1172 :
  324. 1173 REM *** IF ROOM = 20 & NOUN = ***
  325. 1174 REM *** ROBINSON THEN KISS    ***
  326. 1175 REM *** MESSAGE               ***
  327. 1176 :
  328. 1180 IFA=20ANDE$="SON"THENPRINT"[200]IS WIFE IS WATCHING!":GOTO2010
  329. 1183 :
  330. 1184 REM *** IF ROOM = 22 & NOUN = ***
  331. 1185 REM *** LASORDA THEN KISS     ***
  332. 1186 REM *** MESSAGE               ***
  333. 1187 :
  334. 1190 IFA=22ANDE$="RDA"THENPRINT"[212]HEIR YOUR LIPS!":GOTO2010
  335. 1195 :
  336. 1196 REM *** TALK/SPEAK COMMAND     ***
  337. 1197 :
  338. 1200 IFD(B)<>5THEN1290
  339. 1202 :
  340. 1203 REM *** IF ROOM = 1 & NOUN =  ***
  341. 1204 REM *** BUSINESS MAN THEN     ***
  342. 1205 REM *** TALK MESSAGE          ***
  343. 1206 :
  344. 1210 IFA=1ANDE$="MAN"ANDA(1)=-1THENGOSUB3280:GOTO2020
  345. 1212 :
  346. 1213 REM *** IF ROOM = 9 & NOUN =  ***
  347. 1214 REM *** OLD HAG THEN TALK     ***
  348. 1215 REM *** MESSAGE               ***
  349. 1216 :
  350. 1220 IFA=9ANDE$="HAG"THENPRINT"[211]HE SAYS:":PRINT"  [200]I, [195]UTIE!":GOTO2010
  351. 1222 :
  352. 1223 REM *** IF ROOM = 12 & NOUN = ***
  353. 1224 REM *** DODGER FAN THEN TALK  ***
  354. 1225 REM *** MESSAGE               ***
  355. 1226 :
  356. 1230 IFA=12ANDE$="FAN"THENGOSUB3290:GOTO2010
  357. 1232 :
  358. 1233 REM *** IF ROOM = 13 & NOUN = ***
  359. 1234 REM *** COKE VENDOR THEN TALK ***
  360. 1235 REM *** MESSAGE               ***
  361. 1236 :
  362. 1240 IFA=13ANDE$="DOR"THENPRINT"[200]E YELLS:":PRINT"[195]OKES!!!  [201]CE COLD [195]OKES!!!":GOTO2010
  363. 1242 :
  364. 1243 REM *** IF ROOM = 15 & NOUN = ***
  365. 1244 REM *** PRETTY GIRL THEN TALK ***
  366. 1245 REM *** MESSAGE               ***
  367. 1246 :
  368. 1250 IFA=15ANDE$="IRL"THENGOSUB3310:GOTO2010
  369. 1252 :
  370. 1253 REM *** IF ROOM = 16 & NOUN = ***
  371. 1254 REM *** COSELL THEN TALK      ***
  372. 1255 REM *** MESSAGE               ***
  373. 1256 :
  374. 1260 IFA=16ANDE$="ELL"THENGOSUB3320:GOTO2030
  375. 1262 :
  376. 1263 REM *** IF ROOM = 20 & NOUN = ***
  377. 1264 REM *** ROBINSON THEN TALK    ***
  378. 1265 REM *** MESSAGE               ***
  379. 1266 :
  380. 1270 IFA=20ANDE$="SON"THENGOSUB3350:GOTO2020
  381. 1272 :
  382. 1273 REM *** IF ROOM = 22 & NOUN = ***
  383. 1274 REM *** LASORDA THEN TALK     ***
  384. 1275 REM *** MESSAGE               ***
  385. 1276 :
  386. 1280 IFA=22ANDE$="RDA"THENGOSUB3370:GOTO2020
  387. 1282 :
  388. 1283 REM *** DRINK/SWALLOW         ***
  389. 1284 :
  390. 1290 IFD(B)<>6THEN1340
  391. 1292 :
  392. 1293 REM *** IF NOUN = COKE & YOU   ***
  393. 1294 REM *** ARE CARRYING IT THEN   ***
  394. 1295 REM *** DRINK IT               ***
  395. 1296 :
  396. 1300 IFE$="OKE"AMDCK=1THENGOSUB3380:GOTO1320
  397. 1302 :
  398. 1303 REM *** IF DIDN'T DRINK COKE   ***
  399. 1304 REM *** THEN GOTO SELL/GIVE/   ***
  400. 1305 REM *** TRADE COMMAND          ***
  401. 1306 :
  402. 1310 GOTO1340
  403. 1312 :
  404. 1313 REM *** CHANGE COKE TO BOTTLE  ***
  405. 1314 REM *** IN CARRY LIST          ***
  406. 1315 :
  407. 1320 FORV=1TO10:IFC$(V)="COKE"THENC$(V)="BOTTLE":H$(3)="BOTTLE":GOTO2010
  408. 1330 NEXTV
  409. 1332 :
  410. 1333 REM *** SELL/GIVE/TRADE        ***
  411. 1334 REM *** COMMAND                ***
  412. 1335 :
  413. 1340 IFD(B)<>7THEN1510
  414. 1342 :
  415. 1343 REM *** IF ROOM =1 & YOU HAVE  ***
  416. 1344 REM *** TICKET THEN MESSAGE    ***
  417. 1345 :
  418. 1350 IFA=1ANDE$="KET"ANDTK=1THENGOSUB3390:GOTO1370
  419. 1352 :
  420. 1353 REM *** GOTO NEXT POSSIBLE     ***
  421. 1354 REM *** SELL/GIVE/TAKE         ***
  422. 1355 :
  423. 1360 GOTO1390
  424. 1362 :
  425. 1363 REM *** CHANGE TICKET TO MONEY ***
  426. 1364 REM *** IN CARRY ITEMS         ***
  427. 1365 :
  428. 1370 FORV=1TO10:IFC$(V)="TICKET"THENC$(V)="MONEY":H$(3)="MONEY":GOTO2020
  429. 1380 NEXTV
  430. 1382 :
  431. 1383 REM *** IF ROOM =13 & YOU HAVE ***
  432. 1384 REM *** MONEY THEN MESSAGE     ***
  433. 1385 :
  434. 1390 IFA=13ANDE$="NEY"ANDMY=1THENGOSUB3430:GOTO1410
  435. 1400 GOTO1430
  436. 1405 :
  437. 1406 REM *** CHANGE MONEY TO COKE   ***
  438. 1407 :
  439. 1410 FORV=1TO10:IFC$(V)="MONEY"THENC$(V)="COKE":H$(3)="COKE":GOTO2020
  440. 1420 NEXTV
  441. 1425 :
  442. 1426 REM *** IF ROOM = 20 & NOUN =  ***
  443. 1427 REM *** COKE THEN GIVE COKE    ***
  444. 1428 :
  445. 1430 IFA=20ANDE$="OKE"ANDCK=1THENGOSUB3450:GOTO1450
  446. 1440 GOTO1470
  447. 1442 :
  448. 1443 REM *** CHANGE COKE TO JERSEY  ***
  449. 1444 :
  450. 1450 FORV=1TO10:IFC$(V)="COKE"THENC$(V)="JERSEY":GOTO2020
  451. 1460 NEXTV
  452. 1462 :
  453. 1463 REM *** IF ROOM = 15 & NOUN =  ***
  454. 1464 REM *** COUPON THEN GET CAP    ***
  455. 1465 :
  456. 1470 IFA=15ANDE$="PON"ANDCP=1THENGOSUB3470:GOTO1490
  457. 1480 GOTO1510
  458. 1482 :
  459. 1483 REM *** CHANGE COUPON TO CAP   ***
  460. 1484 REM *** CARRY LIST             ***
  461. 1485 :
  462. 1490 FORV=1TO10:IFC$(V)="COUPON"THENC$(V)="CAP":H$(8)="CAP":GOTO2020
  463. 1500 NEXTV
  464. 1502 :
  465. 1503 REM *** KILL, ATTACK, HIT      ***
  466. 1504 REM *** COMMAND                ***
  467. 1505 :
  468. 1510 IFD(B)<>8THEN1610
  469. 1512 :
  470. 1513 REM *** IF ROOM = 1 & NOUN =   ***
  471. 1514 REM *** BUSINESS MAN           ***
  472. 1515 :
  473. 1520 IFA=1ANDE$="MAN"ANDA(1)=-1THENGOSUB3660:GOTO2020
  474. 1522 :
  475. 1523 REM *** IF ROOM = 9 & NOUN =   ***
  476. 1524 REM *** OLD HAG                ***
  477. 1525 :
  478. 1530 IFA=9ANDE$="HAG"THENGOSUB3690:GOTO2020
  479. 1532 :
  480. 1533 REM *** IF ROOM = 12 & NOUN =  ***
  481. 1534 REM *** DODGERS' FAN           ***
  482. 1535 :
  483. 1540 IFA=12ANDE$="FAN"THENGOSUB3710:GOTO2020
  484. 1542 :
  485. 1543 REM *** IF ROOM = 13 & NOUN =  ***
  486. 1544 REM *** COKE VENDOR            ***
  487. 1545 :
  488. 1550 IFA=13ANDE$="DOR"THENGOSUB3720:GOTO2020
  489. 1552 :
  490. 1553 REM *** IF ROOM = 15 & NOUN =  ***
  491. 1554 REM *** PRETTY GIRL            ***
  492. 1555 :
  493. 1560 IFA=15ANDE$="IRL"THENGOSUB3730:GOTO2020
  494. 1562 :
  495. 1563 REM *** IF ROOM = 16 & NOUN =  ***
  496. 1564 REM *** COSELL                 ***
  497. 1565 :
  498. 1570 IFA=16ANDE$="ELL"THENPRINT"[193]L [205]ICHEALS AND [194]OB [213]ECKER STOP YOU!":GOTO2010
  499. 1572 :
  500. 1573 REM *** IF ROOM = 20 & NOUN =  ***
  501. 1574 REM *** ROBINSON               ***
  502. 1575 :
  503. 1580 IFA=20ANDE$="SON"THENPRINT"[194]ILL [204]ASKEY AND [202]EFF [204]EONARD STOP YOU!":GOTO2010
  504. 1582 :
  505. 1583 REM *** IF ROOM = 22 & NOUN =  ***
  506. 1584 REM *** LASORDA                ***
  507. 1590 IFA=22ANDE$="RDA"ANDCH=0THENGOSUB3480:GOTO2030
  508. 1595 :
  509. 1596 REM *** IF HAVE BAT & BALL &   ***
  510. 1597 REM *** NOUN = BALL            ***
  511. 1598 :
  512. 1605 IFBT=1ANDHB=1ANDE$="ALL"THENPRINT"[217]OU SWING AND MISS!":GOTO2010
  513. 1606 :
  514. 1607 REM *** THROW/FLY/PLAY         ***
  515. 1608 REM *** COMMAND                ***
  516. 1609 :
  517. 1610 IFD(B)<>9THEN1740
  518. 1612 :
  519. 1613 REM *** IF ROOM FROM 7TO 14 &  ***
  520. 1614 REM *** NOUN = BALL            ***
  521. 1615 :
  522. 1620 IF(A>7ANDA<14)ANDBT=1ANDE$="ALL"ANDCH=0THENGOSUB3530
  523. 1652 :
  524. 1653 REM *** IF ROOM FROM 7 TO 14 & ***
  525. 1654 REM *** NOUN = FRISBEE         ***
  526. 1655 :
  527. 1660 IF(A>7ANDA<14)ANDBT=1ANDE$="BEE"ANDFB=1THENGOSUB3570
  528. 1692 :
  529. 1693 REM *** IF ROOM = 21 & NOUN =  ***
  530. 1694 REM *** BAT & CARRYING BAT     ***
  531. 1695 :
  532. 1700 IFA=21ANDE$="BAT"ANDHB=1THENGOSUB3610
  533. 1732 :
  534. 1733 REM *** PUSH/PRESS COMMAND     ***
  535. 1734 :
  536. 1740 IFD(B)<>10THEN1760
  537. 1742 :
  538. 1743 REM *** IF ROOM = 24 & NOUN =  ***
  539. 1744 REM *** BUTTON                 ***
  540. 1745 :
  541. 1750 IFE$="TON"ANDA=24THENPRINT"[212]HE SCORE BOARD FLASHES    [199][207][144][146]":GOTO2020
  542. 1752 :
  543. 1753 REM *** CLIMB/GO COMMAND       ***
  544. 1754 :
  545. 1760 IFD(B)<>11THEN1790
  546. 1762 :
  547. 1763 REM *** IF ROOM = 4 & NOUN =   ***
  548. 1764 REM *** STAIRS                 ***
  549. 1765 :
  550. 1770 IFA=4ANDE$="IRS"THENPRINT"[207][203]!":A=17:GOTO2010
  551. 1772 :
  552. 1773 REM *** IF ROOM = 7 & NOUN =   ***
  553. 1774 REM *** STAIRS                 ***
  554. 1775 :
  555. 1780 IFA=7ANDE$="IRS"THENPRINT"[207][203]!":A=14:GOTO2010
  556. 1782 :
  557. 1783 REM *** WEAR COMMAND           ***
  558. 1784 :
  559. 1790 IFD(B)<>12THEN1840
  560. 1792 :
  561. 1793 REM *** IF NOUN = PANTS & HAVE ***
  562. 1794 REM *** THEM, PUT THEM ON      ***
  563. 1795 :
  564. 1800 IFE$="NTS"ANDPT=1ANDWP=0THENPRINT"[217]OU PUT ON THE PANTS!":WP=1:GOTO2010
  565. 1802 :
  566. 1803 REM *** IF NOUN = JERSEY & HAVE***
  567. 1804 REM *** IT, THEN PUT IT ON     ***
  568. 1805 :
  569. 1810 IFE$="SEY"ANDJR=1ANDWJ=0THENPRINT"[217]OU PUT ON THE JERSEY!":WJ=1:GOTO2010
  570. 1812 :
  571. 1813 REM *** IF NOUN = CLEATES &    ***
  572. 1814 REM *** HAVE THEM, THEN WEAR   ***
  573. 1815 :
  574. 1820 IFE$="TES"ANDCL=1ANDWL=0THENPRINT"[217]OU PUT ON THE CLEATES!":WL=1:GOTO2010
  575. 1822 :
  576. 1823 REM *** IF NOUN = CAP & HAVE   ***
  577. 1824 REM *** IT, THEN WEAR          ***
  578. 1825 :
  579. 1830 IFE$="CAP"ANDCA=1ANDWC=0THENPRINT"[217]OU PUT ON THE CAP!":WC=1:GOTO2010
  580. 1839 :
  581. 1840 REM *** NOT VALID VERB        ***
  582. 1841 :
  583. 1850 PRINT"[217]OU CAN'T DO THAT NOW!":GOTO500
  584. 1852 :
  585. 1853 REM *** DON'T KNOW WHAT IT DOES***
  586. 1854 :
  587. 1860 REM FORK2=1TO10:IFC$(K2)=R$:GOSUB1870:RETURN
  588. 1870 REM IFR$=""THENI(K3)=0
  589. 1880 RETURN
  590. 1882 :
  591. 1883 REM *** UPDATE LIST OF NOUNS   ***
  592. 1884 REM *** AFTER VERB ACTION      ***
  593. 1885 :
  594. 1890 FORK2=1TO58:IFA$(K2)=H$(K3)THENGOSUB3630
  595. 1900 NEXT:RETURN
  596. 1910 GOTO2010
  597. 1920 RETURN
  598. 1922 :
  599. 1923 REM *** DATA FOR NOUN & CODE   ***
  600. 1924 REM *** FOR NOUN               ***
  601. 1925 :
  602. 1930 DATABUSINESS MAN,-1,SIGN,-2,TICKET,3,STAIRS,-4,STAIRS,-7,BASEBALL,8
  603. 1932 DATAOLD HAG,-9,COUPON,10,FRISBEE,11,"[196]ODGER FAN",-12,"[195]OKE VENDOR",-13
  604. 1934 DATASIGN,-15,PRETTY GIRL,-15,"[195]OSELL",-16,BUTTON,-24,CLEATES,18
  605. 1936 DATAPANTS,19,"[210]OBINSON",-20,BAT,21
  606. 1940 DATA"[204]ASORDA",-22
  607. 1950 DATAWEST,W,NORTH,N,EAST,E,SOUTH,S,UP,U,DOWN,D,GET,DROP,LOOK,READ,KISS
  608. 1952 DATATALK,SPEAK,DRINK,SWALLOW,SELL,GIVE,TRADE,KILL,ATTACK,HIT,THROW
  609. 1954 DATAFLY,PLAY,PUSH,PRESS,CLIMB,GO,WEAR
  610. 1960 DATA1,2,3,3,4,5,5,6,6,7,7,7,8,8,8,9,9,9,10,10,11,11,12
  611. 1970 DATA"[202]ACK [195]LARK",HITS A HOME RUN,"[198]ERNANDO [214]ALENZEULA","[212]OM [207]'[205]ALLEY"
  612. 1972 DATAHITS A DOUBLE,"[208]EDRO [199]UERRERO","[196]UANE [203]UIPER",HITS A SINGLE
  613. 1974 DATA"[202]ERRY [210]EUSS","[195]HILI [196]AVIS",STEALS A BASE,"[211]TEVE [211]AX"
  614. 1976 DATA"[202]OHNNIE [204]EMASTER",MAKES A GREAT PLAY,"[196]USTY [194]AKER"
  615. 1977 :
  616. 1978 REM *** DON'T KNOW WHAT IT DOES***
  617. 1979 :
  618. 1980 FORK4=1TO21:IFA$(J)=H$(K4)THENI(K4)=1:K4=60
  619. 1990 NEXT:RETURN
  620. 2002 :
  621. 2003 REM *** VARYING LENGTH DELAY  ***
  622. 2004 REM *** LOOPS BEFORE ZEROING  ***
  623. 2005 REM *** DIRECTIONS & PRINTING ***
  624. 2006 REM *** ROOM DESCRIPTION      ***
  625. 2007 REM *** (LINES 2010-2030)     ***
  626. 2008 :
  627. 2010 FORV=1TO2500:NEXT:GOTO320
  628. 2020 FORV=1TO4000:NEXT:GOTO320
  629. 2030 FORV=1TO3500:NEXT:GOTO320
  630. 2032 :
  631. 2033 REM *** TITLE PAGE &          ***
  632. 2035 :
  633. 2040 PRINTCHR$(147):POKE783,PEEK(783)AND254
  634. 2050 POKE781,5:POKE782,3:SYS65520:PRINT"[194] [193] [211] [197] [194] [193] [204] [204]   [193] [196] [214] [197] [206] [212] [213] [210] [197][146]"
  635. 2060 POKE781,10:POKE782,12:SYS65520:PRINT"[194]Y [211]AMUEL [195]HIANG"
  636. 2070 POKE781,15:POKE782,5:SYS65520:PRINT"[152][212]RANSLATED FOR THE [195]OMMODORE BY"
  637. 2072 POKE781,17:POKE782,13:SYS65520:PRINT"[149][196]ONNA [203]. [215]OODY[144]"
  638. 2080 POKE781,23:POKE782,7:SYS65520:PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]";
  639. 2082 POKE198,0:WAIT198,1:GETZ$:PRINTCHR$(147)
  640. 2090 PRINT:PRINT
  641. 2092 :
  642. 2093 REM *** INSTRUCTIONS           ***
  643. 2094 :
  644. 2100 PRINT"[193]S IN OTHER ADVENTURES, ONE OR TWO WORD"
  645. 2102 PRINT"COMMANDS ARE USED TO COMMUNICATE WITH"
  646. 2104 PRINT"THE COMPUTER, SUCH AS 'GET KEY', 'DROP"
  647. 2106 PRINT"KEY', 'OPEN DOOR'."
  648. 2110 PRINT:PRINT
  649. 2120 PRINT"[212]O MOVE IN A PARTICULAR DIRECTION,"
  650. 2122 PRINT"ENTER THE DIRECTION 'SOUTH' OR SIMPLY"
  651. 2124 PRINT"THE FIRST LETTER OF THAT DIRECTION 'S'."
  652. 2130 PRINT:PRINT
  653. 2140 PRINT"[197]NTERING 'LOOK' WILL REFRESH YOUR"
  654. 2142 PRINT"MEMORY ABOUT YOUR ENVIRONMENT, AND"
  655. 2144 PRINT"ENTERING 'INVENTORY' OR 'I' WILL SHOW"
  656. 2146 PRINT"YOU WHAT YOU ARE CARRYING."
  657. 2150 POKE781,23:POKE782,7:SYS65520:PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]";
  658. 2152 POKE198,0:WAIT198,1:GETZ$:PRINTCHR$(147)
  659. 2160 PRINT:PRINT
  660. 2170 PRINT"[212]HE TIME IS THE PRESENT.  [217]OU ARE IN"
  661. 2172 PRINT"CHARGE OF THE GATE RECIEPTS AT A GREAT"
  662. 2174 PRINT"METROPOLITAN BASEBALL STADIUM."
  663. 2175 PRINT
  664. 2180 PRINT:PRINT"[193]S YOU WERE ABOUT TO PUT THE MONEY FROM"
  665. 2182 PRINT"THE GATE INTO THE SAFE, YOU WERE STRUCK"
  666. 2184 PRINT"FROM BEHIND AND LOST CONCIOUSNESS. [215]HEN"
  667. 2186 PRINT"YOU AWAKE, THE GAME IS JUST BEGINNING"
  668. 2188 PRINT"AND THE MONEY IS GONE."
  669. 2190 PRINT
  670. 2200 PRINT:PRINT"[217]OU MUST FIND THE MONEY WHICH IS STILL"
  671. 2202 PRINT"IN THE STADIUM AND RETURN IT TO YOUR"
  672. 2204 PRINT"OFFICE BEFORE THE GAME IS OVER.  [201]F YOU"
  673. 2206 PRINT"DO NOT, YOUR HIGH PAYING JOB IS"
  674. 2208 PRINT"FORFEIT."
  675. 2210 PRINT"              * [199][207][207][196] [204][213][195][203] *"
  676. 2220 POKE781,23:POKE782,7:SYS65520:PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207][160][195][207][206][212][201][206][213][197]";
  677. 2222 POKE198,0:WAIT198,1:GETZ$:PRINTCHR$(147)
  678. 2230 RETURN
  679. 2232 :
  680. 2233 REM *** END GAME MESSAGE FOR   ***
  681. 2234 REM *** WINNER                 ***
  682. 2235 :
  683. 2240 PRINTCHR$(147)
  684. 2250 PRINT
  685. 2260 PRINT"[202]UST AS YOU PUT THE MONEY SAFELY INTO"
  686. 2262 PRINT"THE SAFE, [199]IANTS' OWNER [194]OB [204]URIE WALKS"
  687. 2264 PRINT"IN SMILING AND SAYS '[198]OR DOING SUCH A"
  688. 2266 PRINT"GOOD JOB, [201]'M GOING TO PROMOTE YOU TO"
  689. 2268 PRINT"GENERAL MANAGER.  [207]F COURSE, YOU WILL"
  690. 2269 PRINT"YOU WILL GET A SUBSTANTIAL RAISE.'"
  691. 2270 PRINT:PRINT:PRINT"[193]S GENERAL MANAGER, YOU MAKE JUST THE"
  692. 2272 PRINT"RIGHT MOVES AND TAKE THE [199]IANTS TO THE"
  693. 2274 PRINT"[215]ORLD [211]ERIES WHERE THEY SWEEP THE"
  694. 2276 PRINT"[217]ANKEES IN FOUR GAMES."
  695. 2280 POKE781,22:POKE782,10:SYS65520:PRINT"* [195][207][206][199][210][193][212][213][204][193][212][201][207][206][211] *"
  696. 2290 GOTO2350
  697. 2292 :
  698. 2293 REM *** END GAME MESSAGE FOR   ***
  699. 2294 REM *** LOSER                  ***
  700. 2295 :
  701. 2300 PRINTCHR$(147)
  702. 2310 POKE781,5:POKE782,9:SYS65520:PRINT"* [212][200][197] [199][193][205][197] [201][211] [207][214][197][210] *"
  703. 2330 POKE781,8:POKE782,0:SYS65520
  704. 2340 PRINT"[217]OUR TIME IS UP!  [212]HE [199]IANTS WON, BUT"
  705. 2342 PRINT"YOU LOST.  [193]FTER YOUR BOSS FINDS OUT"
  706. 2344 PRINT"WHAT HAPPENED, HE NOT ONLY FIRES YOU,"
  707. 2346 PRINT"HE ALSO EXILES YOU TO [207]AKLAND WHERE YOU"
  708. 2348 PRINT"HAVE TO WORK FOR THE (UGH!) [193]'S."
  709. 2350 PRINT:PRINT"[196]O YOU WANT TO PLAY AGAIN (Y/N)?";:POKE 198,0:WAIT198,1:GETKE$
  710. 2360 IFKE$="Y"THENRUN
  711. 2370 IFKE$="N"THEN2380
  712. 2375 PRINT"[145][145][145][145]":GOTO2350
  713. 2379 REM *****************************
  714. 2380 GOTO63000
  715. 2381 :
  716. 2382 :
  717. 2390 REM *****************************
  718. 2995 :
  719. 2996 REM *** MORE DESCRIPTION     ***
  720. 2998 :
  721. 3000 PRINT"[217]OU GO UP TO PINCH HIT FOR [202]ACK [195]LARK,"
  722. 3010 PRINT"BUT HE WANTS HIS SWINGS, AND SINCE HE"
  723. 3020 PRINT"HAS A BETTER AVERAGE, HE FORCES YOU TO  GO BACK!":A=21:RETURN
  724. 3045 :
  725. 3046 REM *** NOT WEARING A FULL    ***
  726. 3047 REM *** UNIFORM               ***
  727. 3049 :
  728. 3050 PRINT:PRINT:PRINT"[212]HE UMPIRES STOP YOU FROM GOING OUT ON"
  729. 3055 PRINT"THE FIELD AND SAY:"
  730. 3060 PRINT"'[193] PLAYER MUST BE IN FULL UNIFORM TO    PLAY!'":A=20:RETURN
  731. 3095 :
  732. 3096 REM *** PRINT INNING # WHEN   ***
  733. 3097 REM *** DIVISIBLE BY 13       ***
  734. 3098 :
  735. 3100 PRINT"[201]NNING #";XX/13:PRINTPL$(INT(RND(1)*5)+1);" ";
  736. 3110 PRINTEV$(INT(RND(1)*5)+1);"!!!":RETURN
  737. 3145 :
  738. 3146 REM *** SUBROUTINE TO PICK UP ***
  739. 3147 REM *** ITEM & PRINT OK       ***
  740. 3148 :
  741. 3150 FORK=1TO10
  742. 3152 IFC$(K)=""THENC$(K)=A$(J):GOSUB1980:H(K)=J:A$(J)="":A(J)=0
  743. 3154 IFC$(K)=""THENK=10:R=R+1:PRINT"[207]K!"
  744. 3161 NEXT
  745. 3162 RETURN
  746. 3195 :
  747. 3196 REM *** READ SIGN IN ROOM # 2 ***
  748. 3197 :
  749. 3200 PRINT"[212]HE SIGN READS:":PRINT
  750. 3210 PRINT"[194][193][211][197][194][193][204] [199][193][205][197] [212][207][196][193][217]":PRINT
  751. 3220 PRINT"[199][201][193][206][212][211] [214][211]. [196][207][196][199][197][210][211]":PRINT
  752. 3230 PRINT"[211][207][204][196][160][207][213][212]":RETURN
  753. 3245 :
  754. 3246 REM *** READ SIGN IN ROOM 15  ***
  755. 3247 :
  756. 3250 PRINT"[212]HE SIGN READS:":PRINT"[195][207][206][212][197][211][212] [212][207][196][193][217]":RETURN
  757. 3253 :
  758. 3254 REM *** READ COUPON           ***
  759. 3255 :
  760. 3260 PRINT"[212]HE COUPON READS:":PRINTTAB(12)"[217]OU'RE A WINNER!":RETURN
  761. 3262 :
  762. 3263 REM *** MESSAGE FOR KISS      ***
  763. 3264 REM *** DODGER FAN            ***
  764. 3265 :
  765. 3270 PRINT"[200]E LIKES IT!  [215]HAT DO YOU EXPECT FROM A [196]ODGERS FAN!":RETURN
  766. 3272 :
  767. 3273 REM *** MESSAGE FOR TALK MAN  ***
  768. 3274 REM *** DOESN'T HAVE A TICKET ***
  769. 3275 :
  770. 3280 PRINT"[212]HE MAN SAYS:":PRINT"[210]ATS!!!  [212]HE GAME IS SOLD OUT!":RETURN
  771. 3282 :
  772. 3283 REM *** MESSAGE FOR TALK      ***
  773. 3284 REM *** DODGER FAN            ***
  774. 3285 :
  775. 3290 PRINT"[200]E SAYS:":PRINT"[193]AARGH!!!  [212]HE [196]ODGERS ALWAYS LOSE TO"
  776. 3300 PRINT"THE [199]IANTS!":RETURN
  777. 3302 :
  778. 3303 REM *** MESSAGE FOR TALK      ***
  779. 3304 REM *** PRETTY GIRL           ***
  780. 3305 :
  781. 3310 PRINT"[211]HE SAYS:":PRINT"[196]O YOU HAVE A WINNING COUPON?":RETURN
  782. 3312 :
  783. 3313 REM *** MESSAGE FOR TALK      ***
  784. 3314 REM *** COSELL                ***
  785. 3315 :
  786. 3320 PRINT"[200]E SAYS:":PRINT"[212]HIS GAME IS A DEBACLE!  [212]HE AWESOME"
  787. 3330 PRINT"[199]IANTS ARE AGAIN TOTALLY HUMILIATING"
  788. 3340 PRINT"THE LOWLY [204]OS [193]NGELES [196]ODGERS!":RETURN
  789. 3342 :
  790. 3343 REM *** MESSAGE FOR TALK      ***
  791. 3344 REM *** ROBINSON              ***
  792. 3345 :
  793. 3350 PRINT"[200]E SAYS:":PRINT"[217]OU KNOW, KID, [201]'VE ALWAYS WANTED TO BE"
  794. 3360 PRINT"LIKE [205]EAN [202]OE [199]REENE.":RETURN
  795. 3362 :
  796. 3363 REM *** MESSAGE FOR TALK      ***
  797. 3364 REM *** LASORDA               ***
  798. 3365 :
  799. 3370 PRINT"[200]E SAYS:":PRINT"[201] JUST GOT A BIG PAY BONUS!  [200]EY!  [200]EY!":RETURN
  800. 3372 :
  801. 3373 REM *** MESSAGE FOR DRINK COKE ***
  802. 3374 REM *** FROM VENDOR            ***
  803. 3375 :
  804. 3380 PRINT"[199]OOD, YOU WERE THIRSTY":CK=0:K3=E:M$="BOTTLE":GOSUB1890:RETURN
  805. 3382 :
  806. 3383 REM *** MESSAGE FOR SELL TICKET***
  807. 3384 :
  808. 3390 PRINT"[212]HE MAN TAKES THE TICKET AND HANDS YOU"
  809. 3400 PRINT"SOME MONEY!  [200]E THEN RUSHES INTO THE"
  810. 3410 PRINT"BALLPARK TO SEE THE GAME.":TK=0:K3=0:MY=1:A(1)=0:M$="MONEY":GOSUB1890
  811. 3420 RETURN
  812. 3425 :
  813. 3426 REM *** MESSAGE FOR BUY COKE   ***
  814. 3427 :
  815. 3430 PRINT"[212]HE VENDOR TAKES YOUR MONEY AND HANDS"
  816. 3440 PRINT"YOU A COKE!":MY=0:CK=1:K3=3:M$="COKE":GOSUB1890:RETURN
  817. 3442 :
  818. 3443 REM *** ROBINSON DRINKS COKE   ***
  819. 3444 REM *** & GIVES YOU JERSEY     ***
  820. 3445 :
  821. 3450 PRINT"[200]E GULPS THE COKE DOWN AND IN GRATITUDE"
  822. 3460 PRINT"THROWS YOU HIS JERSEY!":JR=1:CK=0:K3=3:M$="JERSEY":GOSUB1890:RETURN
  823. 3462 :
  824. 3463 REM *** GET CAP FOR COUPON    ***
  825. 3464 REM *** MESSAGE               ***
  826. 3465 :
  827. 3470 PRINT"[212]HE GIRL TAKES THE COUPON AND HANDS YOU"
  828. 3471 PRINT"YOU A [199]IANTS CAP.":CA=1:CP=0:K3=0:M$="CAP":GOSUB1890:RETURN
  829. 3473 :
  830. 3474 REM *** MESSAGE IF ATTACK     ***
  831. 3475 REM *** LASORDA               ***
  832. 3476 :
  833. 3480 PRINT"[193]S YOU CHARGE TOWARD HIM, HE BECOMES"
  834. 3490 PRINT"FRIGHTENED AND RUSHES ONTO THE FIELD."
  835. 3500 PRINT"[201]N HIS RUSH TO ESCAPE, SOMETHING FALLS"
  836. 3510 PRINT"OUT OF HIS POCKET!":CH=1:K3=20:M$="LOTS OF CASH":GOSUB1890:A(20)=22
  837. 3520 RETURN
  838. 3522 :
  839. 3523 REM *** THROW BALL MESSAGE &   ***
  840. 3524 REM *** UPDATE CARRY LIST      ***
  841. 3530 PRINT"[212]HE BALL SAILS OVER THE FIELD.  [201]T HITS"
  842. 3540 PRINTDG$(INT(RND(1)*5)+1);"ON THE HEAD!"
  843. 3550 PRINT"[200]E'S OUT COLD!!":FORV=1TO10:IFC$(V)="BASEBALL"THENC$(V)=""
  844. 3560 K3=6:M$="":GOSUB1890:A(6)=0:NEXTV:RETURN
  845. 3570 PRINT"[212]HE FRISBEE FLIES ONTO THE FIELD.  [201]T"
  846. 3580 PRINT"HITS "DG$(INT(RND(1)*5)+1);"ON THE HEAD!"
  847. 3590 PRINT"[194]RING ON THE STRETCHER!!!!":FORV=1TO10:IFC$(V)="FRISBEE"THENC$(V)=""
  848. 3600 K3=9:M$="":GOSUB1890:A(9)=0:NEXTV:RETURN
  849. 3602 :
  850. 3603 REM *** THROW/FLY/PLAY BAT     ***
  851. 3604 :
  852. 3610 PRINT"[215]HAT AN ARM!  [201]T HITS "DG$(ING(RND(1)*5)+1)
  853. 3620 PRINT"ON THE HEAD.  [200]E'S NOT MOVING!!!":FORV=1TO10
  854. 3625 IFC$(V)="BAT"THENC$(V)="":K3=19:M$="":GOSUB1890:A(19)=0:NEXTV:RETURN
  855. 3630 A$(K2)=M$:H$(K3)=M$:A(K2)=A(K2)*(M$<>"")*-1:I(K3)=I(K3)*(M$<>"")*-1:RETURN
  856. 3642 :
  857. 3643 REM *** MESSAGE IF WEARING FULL***
  858. 3644 REM *** UNIFORM                ***
  859. 3645 :
  860. 3650 PRINT"[217]OU ARE NOW IN FULL UNIFORM!":PRINT:PRINT:FT=1:RETURN
  861. 3652 :
  862. 3653 REM *** MESSAGE IF HIT BUSINESS***
  863. 3654 REM *** MAN                    ***
  864. 3655 :
  865. 3660 PRINT"[194]EFORE YOU CAN HIT HIM, HE HITS YOU"
  866. 3670 PRINT"OVER THE HEAD HEAD WITH HIS BREIFCASE."
  867. 3680 PRINT"[207]UCH!!":RETURN
  868. 3682 :
  869. 3683 REM *** MESSAGE IF HIT OLD HAG ***
  870. 3684 :
  871. 3690 PRINT"[194]EFORE YOU CAN HIT HER, SHE STABS YOU"
  872. 3700 PRINT"WITH A KNITTING NEEDLE.  [207]WWW!!":RETURN
  873. 3702 :
  874. 3703 REM *** MESSAGE IF HIT FAN     ***
  875. 3704 :
  876. 3710 PRINT"[217]OU DON'T WANT TO BEAT UP A WIMPY GUY   LIKE HIM!": RETURN
  877. 3712 :
  878. 3713 REM *** MESSAGE IF HIT VENDOR  ***
  879. 3714 :
  880. 3720 PRINT"[212]HAT WOULDN'T BE FAIR.  [200]E'S HOLDING    THE COKES!":RETURN
  881. 3722 :
  882. 3723 REM *** MESSAGE IF HIT PRETTY  ***
  883. 3724 REM *** GIRL                   ***
  884. 3725 :
  885. 3730 PRINT"[194]EFORE YOU CAN HIT HER. SHE KICKS YOU"
  886. 3740 PRINT"IN A VERY SENSITIVE AREA. [217]IKES!":RETURN
  887. 50000 REM ****************************
  888. 50010 REM *                          *
  889. 50020 REM *       VARIABLES USED     *
  890. 50030 REM *                          *
  891. 50040 REM ****************************
  892. 50050 :
  893. 50100 REM C$() = ITEMS BEING CARRIED
  894. 50110 REM E$   = LAST 3 LETTERS OF NOUN
  895. 50120 REM D()  = NUMBER OF VERB
  896. 50130 REM A()  = NUMBER OF VERB
  897. 50140 REM A$() = LIST OF NOUNS
  898. 50150 REM PL$()= PLAYER OF ONE TEAM
  899. 50160 REM EV$()= ACTION OF PLAYER
  900. 50170 REM DG$()= PLAYER OF 2ND TEAM
  901. 50180 REM H$() =
  902. 50190 REM I    =
  903. 50200 REM R    = # ITEMS CARRIED
  904. 50210 REM A    = ROOM #
  905. 63000 REM     LINK BACK
  906. 63010 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN"
  907. 63020 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
  908.