SHARE
TWEET

TAAAoAtDH (Side B)

a guest Aug 8th, 2018 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 11830 CPOS (0,0): CLS
  2. 11831 SCREEN (8)
  3. 11832 COLOR (5)
  4. 11833 SHAPE (95, "3F213F35213D213F00")
  5. 11834 SHAPE (37, "FF212B2B212F213F00")
  6. 11835 MUSIC (2,5,6)
  7. 11840 MUSIC (0,0,0)
  8. 11850 PRINT "INT. MUSI-CO - CONTINUOUS"
  9. 11860 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  10. 11870 PRINT "% -( WHERE TO? )"
  11. 11880 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  12. 11890 PRINT "|  _    |"
  13. 11900 PRINT "|-------|"
  14. 11910 PRINT "|       |"
  15. 11920 PRINT "| %     |"
  16. 11930 PRINT "|M     X|"
  17. 11940 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  18. 11950 PRINT "YOU ARE IN THE MUSI-CO (M)."
  19. 11960 PRINT "PRESS X TO EXIT."
  20. 11970 IF KEY = 88 THEN GOTO 11990
  21. 11980 GOTO 11970
  22. 11990 CPOS (0,0): CLS
  23. 12000 MUSIC (2,5,6)
  24. 12010 MUSIC (0,0,0)
  25. 12020 PRINT "EXT. THE OUTSIDE WORLD - 9:15"
  26. 12030 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  27. 12040 PRINT "% -( WHAT ELSE IS AROUND HERE? )"
  28. 12050 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  29. 12060 PRINT "| MUSI-CO    |"
  30. 12070 PRINT "|   |''|       |"
  31. 12080 PRINT "| % |  |M      |"
  32. 12090 PRINT "|--------------|"
  33. 12100 PRINT "|L-------------|"
  34. 12110 PRINT "|S             |"
  35. 12120 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  36. 12130 PRINT "YOU ARE ON THE SIDEWALK (S)."
  37. 12140 PRINT "PRESS L TO GO BACK."
  38. 12150 IF KEY = 76 THEN GOTO 12170
  39. 12160 GOTO 12150
  40. 12170 CPOS (0,0): CLS
  41. 12180 MUSIC (2,5,6)
  42. 12190 MUSIC (0,0,0)
  43. 12200 PRINT "EXT. THE OUTSIDE WORLD - CONTINUOUS"
  44. 12210 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  45. 12220 PRINT "% -( THIS PLACE SEEMS NEAT. )"
  46. 12230 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  47. 12240 PRINT "| OLDIE'S      |"
  48. 12250 PRINT "|   |''|       |"
  49. 12260 PRINT "|  O|% |       |"
  50. 12270 PRINT "|--------------|"
  51. 12280 PRINT "|L-------------|"
  52. 12290 PRINT "|    <>       S|"
  53. 12300 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  54. 12310 PRINT "YOU ARE ON THE SIDEWALK (S)."
  55. 12320 PRINT "PRESS L TO CHECK THE LEFT."
  56. 12330 IF KEY = 76 THEN GOTO 12350
  57. 12340 GOTO 12330
  58. 12350 CPOS (0,0): CLS
  59. 12360 MUSIC (2,5,6)
  60. 12370 MUSIC (0,0,0)
  61. 12380 PRINT "EXT. THE OUTSIDE WORLD - CONTINUOUS"
  62. 12390 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  63. 12400 PRINT "% -( WE HAVE A COMMUNITY CENTER? )"
  64. 12410 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  65. 12420 PRINT "| C.CENTER     |"
  66. 12430 PRINT "|   |''|       |"
  67. 12440 PRINT "|  C|% |       |"
  68. 12450 PRINT "|--------------|"
  69. 12460 PRINT "|--------------|"
  70. 12470 PRINT "|             S|"
  71. 12480 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  72. 12490 PRINT "YOU ARE ON THE SIDEWALK (S)."
  73. 12500 PRINT "PRESS C TO GO IN THE CENTER."
  74. 12510 IF KEY = 67 THEN GOTO 12530
  75. 12520 GOTO 12510
  76. 12530 CPOS (0,0): CLS
  77. 12540 SHAPE (95, "BF213F37212D213F0000")
  78. 12550 SHAPE (38, "BFAB2135213D213F00")
  79. 12560 SHAPE (61, "FFE13535212D2D3F00")
  80. 12570 SHAPE (35, "FF7F3535233D213F00")
  81. 12580 MUSIC (2,5,6)
  82. 12590 MUSIC (0,0,0)
  83. 12600 PRINT "INT. THE COMMUNITY CENTER - 9:20"
  84. 12610 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  85. 12620 PRINT "% -( WHOA. )"
  86. 12630 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  87. 12640 PRINT "|      # H     |"
  88. 12650 PRINT "| _            |"
  89. 12660 PRINT "|  &      =    |"
  90. 12670 PRINT "|              |"
  91. 12680 PRINT "|   %          |"
  92. 12690 PRINT "|C             |"
  93. 12700 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  94. 12710 PRINT "YOU ARE IN THE CENTER (C)."
  95. 12720 PRINT "PRESS H TO TALK TO THE HOST."
  96. 12730 IF KEY = 72 THEN GOTO 12750
  97. 12740 GOTO 12730
  98. 12750 CPOS (0,0): CLS
  99. 12751 CPOS (0,0): CLS
  100. 12760 PRINT "INT. THE C. CENTER - CONTINUOUS"
  101. 12770 MUSIC (2,5,6)
  102. 12780 MUSIC (0,0,0)
  103. 12790 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  104. 12800 PRINT "( HEY, WELCOME TO MY LESSON!! )- #": WAIT (512)
  105. 12810 MUSIC (2,5,6)
  106. 12811 MUSIC (0,0,0)
  107. 12812 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  108. 12820 PRINT "% -( HI! WHAT...|IS| THIS LESSON? )": WAIT (512)
  109. 12830 MUSIC (2,5,6)
  110. 12840 MUSIC (0,0,0)
  111. 12850 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  112. 12860 PRINT "( WE'LL BE MAKING SODA TODAY. )- #": WAIT (512)
  113. 12870 MUSIC (2,5,6)
  114. 12880 MUSIC (0,0,0)
  115. 12890 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  116. 12900 PRINT "% -( SODA, HUH? NEAT-O. )": WAIT (512)
  117. 12910 MUSIC (2,5,6)
  118. 12920 MUSIC (0,0,0)
  119. 12930 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  120. 12940 PRINT "( YEP! IT WONT BE TOO HARD. )- #": WAIT (512)
  121. 12950 CPOS (0,0): CLS
  122. 12960 MUSIC (2,5,6)
  123. 12970 MUSIC (0,0,0)
  124. 12980 PRINT "INT. THE C. CENTER DESK - 9:25"
  125. 12990 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  126. 13000 PRINT "% -( WHERE TO START? )"
  127. 13010 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  128. 13020 PRINT "                "
  129. 13030 PRINT "                "
  130. 13040 PRINT "----------------"
  131. 13050 PRINT "\              /"
  132. 13060 PRINT " \            / "
  133. 13070 PRINT "  \          /  "
  134. 13080 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  135. 13090 PRINT "YOU NEED TO ADD WATER AND SUGAR."
  136. 13100 PRINT "PRESS A TO DO SO."
  137. 13110 IF KEY = 65 THEN GOTO 13130
  138. 13120 GOTO 13110
  139. 13130 CPOS (0,0): CLS
  140. 13140 MUSIC (2,5,6)
  141. 13150 MUSIC (0,0,0)
  142. 13160 PRINT "INT. THE C. CENTER DESK - 9:25"
  143. 13170 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  144. 13180 PRINT "( 2 GALLONS AND 8 CUPS! )- #"
  145. 13190 PRINT "% -( 2 GALLONS AND 8 CUPS. )"
  146. 13200 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  147. 13210 PRINT "                "
  148. 13220 PRINT "                "
  149. 13230 PRINT "----------------"
  150. 13240 PRINT "\              /"
  151. 13250 PRINT " \------------/ "
  152. 13260 PRINT "  \          /  "
  153. 13270 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  154. 13280 PRINT "THE NEXT STEP IS TO BOIL THE MIX."
  155. 13290 PRINT "PRESS B TO BOIL."
  156. 13300 IF KEY = 66 THEN GOTO 13320
  157. 13310 GOTO 13300
  158. 13320 CPOS (0,0): CLS
  159. 13330 MUSIC (1,4,6)
  160. 13340 MUSIC (0,0,0)
  161. 13350 PRINT "                "
  162. 13360 PRINT "                "
  163. 13370 PRINT "----------------"
  164. 13380 PRINT "\              /"
  165. 13390 PRINT " \------------/ "
  166. 13400 PRINT "  \          /  "
  167. 13410 PRINT "/////////////////////"
  168. 13420 CPOS (0,0): CLS
  169. 13330 MUSIC (2,4,6)
  170. 13340 MUSIC (0,0,0)
  171. 13350 PRINT "                "
  172. 13360 PRINT "                "
  173. 13370 PRINT "----------------"
  174. 13380 PRINT "\              /"
  175. 13390 PRINT " \------------/ "
  176. 13400 PRINT "  \          /  "
  177. 13410 PRINT "\\\\\\\\\\\\\\\\\\\\\"
  178. 13420 CPOS (0,0): CLS
  179. 13430 MUSIC (3,4,6)
  180. 13440 MUSIC (0,0,0)
  181. 13450 PRINT "                "
  182. 13460 PRINT "                "
  183. 13470 PRINT "----------------"
  184. 13480 PRINT "\              /"
  185. 13490 PRINT " \------------/ "
  186. 13500 PRINT "  \          /  "
  187. 13510 PRINT "/////////////////////"
  188. 13520 CPOS (0,0): CLS
  189. 13530 MUSIC (4,4,6)
  190. 13540 MUSIC (0,0,0)
  191. 13550 PRINT "                "
  192. 13560 PRINT "                "
  193. 13570 PRINT "----------------"
  194. 13580 PRINT "\              /"
  195. 13590 PRINT " \------------/ "
  196. 13600 PRINT "  \          /  "
  197. 13610 PRINT "\\\\\\\\\\\\\\\\\\\\\"
  198. 13620 CPOS (0,0): CLS
  199. 13630 MUSIC (7,4,6)
  200. 13640 MUSIC (0,0,0)
  201. 13650 PRINT "                "
  202. 13660 PRINT "                "
  203. 13670 PRINT "----------------"
  204. 13680 PRINT "\              /"
  205. 13690 PRINT " \------------/ "
  206. 13700 PRINT "  \          /  "
  207. 13710 PRINT "/////////////////////"
  208. 13720 CPOS (0,0): CLS
  209. 13730 MUSIC (6,4,6)
  210. 13740 MUSIC (0,0,0)
  211. 13750 PRINT "                "
  212. 13760 PRINT "                "
  213. 13770 PRINT "----------------"
  214. 13780 PRINT "\              /"
  215. 13790 PRINT " \------------/ "
  216. 13800 PRINT "  \          /  "
  217. 13810 PRINT "\\\\\\\\\\\\\\\\\\\\\"
  218. 13820 CPOS (0,0): CLS
  219. 13830 MUSIC (5,4,6)
  220. 13840 MUSIC (0,0,0)
  221. 13850 PRINT "                "
  222. 13860 PRINT "                "
  223. 13870 PRINT "----------------"
  224. 13880 PRINT "\              /"
  225. 13890 PRINT " \------------/ "
  226. 13800 PRINT "  \          /  "
  227. 13910 PRINT "/////////////////////"
  228. 13920 CPOS (0,0): CLS
  229. 13930 MUSIC (1,5,6)
  230. 13940 MUSIC (0,0,0)
  231. 13950 PRINT "                "
  232. 13960 PRINT "                "
  233. 13970 PRINT "----------------"
  234. 13980 PRINT "\              /"
  235. 13990 PRINT " \------------/ "
  236. 14000 PRINT "  \          /  "
  237. 14010 PRINT "\\\\\\\\\\\\\\\\\\\\\"
  238. 14020 CPOS (0,0): CLS
  239. 14030 MUSIC (2,5,6)
  240. 14040 MUSIC (0,0,0)
  241. 14050 PRINT "INT. THE C. CENTER DESK - 10:00"
  242. 14060 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  243. 14070 PRINT "% -( BOILED AND COOLED. )"
  244. 14080 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  245. 14090 PRINT "                "
  246. 14100 PRINT "                "
  247. 14110 PRINT "----------------"
  248. 14120 PRINT "\              /"
  249. 14130 PRINT " \------------/ "
  250. 14140 PRINT "  \          /  "
  251. 14150 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  252. 14160 PRINT "YOU NEED TO TOP WITH COLD WATER."
  253. 14170 PRINT "PRESS A TO DO SO."
  254. 14180 IF KEY = 65 THEN GOTO 14200
  255. 14190 GOTO 14180
  256. 14200 CPOS (0,0): CLS
  257. 14210 MUSIC (2,5,6)
  258. 14220 MUSIC (0,0,0)
  259. 14230 PRINT "INT. THE C. CENTER DESK - CONT."
  260. 14240 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  261. 14250 PRINT "% -( COOLED AND TOPPED. )"
  262. 14260 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  263. 14270 PRINT "                "
  264. 14280 PRINT "                "
  265. 14290 PRINT "----------------"
  266. 14300 PRINT "\--------------/"
  267. 14310 PRINT " \            / "
  268. 14320 PRINT "  \          /  "
  269. 14330 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  270. 14340 PRINT "YOU NEED TO ADD SODA EXTRACT."
  271. 14350 PRINT "PRESS B TO DO SO."
  272. 14360 IF KEY = 66 THEN GOTO 14380
  273. 14370 GOTO 14360
  274. 14380 CPOS (0,0): CLS
  275. 14390 MUSIC (2,5,6)
  276. 14400 MUSIC (0,0,0)
  277. 14410 PRINT "INT. THE C. CENTER DESK - CONT."
  278. 14420 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  279. 14430 PRINT "% -( TOPPED AND MIXED. )"
  280. 14440 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  281. 14450 PRINT "                "
  282. 14460 PRINT "                "
  283. 14470 PRINT "----------------"
  284. 14480 PRINT "\--------------/"
  285. 14490 PRINT " \            / "
  286. 14500 PRINT "  \          /  "
  287. 14510 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  288. 14520 PRINT "YOU NEED TO ADD YEAST."
  289. 14530 PRINT "PRESS A TO DO SO."
  290. 14540 IF KEY = 65 THEN GOTO 14560
  291. 14550 GOTO 14540
  292. 14560 CPOS (0,0): CLS
  293. 14570 PRINT "INT. THE C. CENTER DESK - CONT."
  294. 14580 MUSIC (2,5,6)
  295. 14590 MUSIC (0,0,0)
  296. 14600 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  297. 14610 PRINT "% -( SO...WHY DO WE NEED YEAST? )": WAIT (512)
  298. 14620 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  299. 14621 MUSIC (2,5,6)
  300. 14622 MUSIC (0,0,0)
  301. 14630 PRINT "( BYPRODUCTS! )- #": WAIT (512)
  302. 14640 MUSIC (2,5,6)
  303. 14650 MUSIC (0,0,0)
  304. 14660 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  305. 14670 PRINT "( YEAST PLUS SUGAR EQUALS C02. )- #": WAIT (512)
  306. 14680 MUSIC (2,5,6)
  307. 14690 MUSIC (0,0,0)
  308. 14700 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  309. 14710 PRINT "( WHICH IS CARBONATION. )- #": WAIT (512)
  310. 14720 MUSIC (2,5,6)
  311. 14730 MUSIC (0,0,0)
  312. 14740 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  313. 14750 PRINT "% -( HUH...THE MORE YOU KNOW! )": WAIT (512)
  314. 14760 CPOS (0,0): CLS
  315. 14770 MUSIC (2,5,6)
  316. 14780 MUSIC (0,0,0)
  317. 14790 PRINT "INT. THE C. CENTER DESK - CONT."
  318. 14800 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  319. 14810 PRINT "% -( MIXED AND YEASTED. )"
  320. 14820 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  321. 14830 PRINT "                "
  322. 14840 PRINT "                "
  323. 14850 PRINT "----------------"
  324. 14860 PRINT "\--------------/"
  325. 14870 PRINT " \            / "
  326. 14880 PRINT "  \          /  "
  327. 14890 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  328. 14900 PRINT "YOU NEED TO PUT THE MIX INTO BOTTLES."
  329. 14910 PRINT "PRESS A TO DO SO."
  330. 14920 IF KEY = 65 THEN GOTO 14940
  331. 14930 GOTO 14920
  332. 14940 CPOS (0,0): CLS
  333. 14950 SHAPE (59, "CC1E21211221211E00")
  334. 14960 SHAPE (64, "CC5E7F7F5E7F7F5E00")
  335. 14970 MUSIC (2,5,6)
  336. 14980 MUSIC (0,0,0):WAIT (32)
  337. 14990 MUSIC (2,4,6)
  338. 15000 MUSIC (0,0,0):WAIT (32)
  339. 15010 PRINT "PRESS SPACE TO BEGIN, AND TO FILL"
  340. 15020 PRINT "BOTTLES, FROM LEFT TO RIGHT"
  341. 15030 IF KEY = 32 THEN GOTO 15050
  342. 15040 GOTO 15030
  343. 15050 CPOS (0,0): CLS
  344. 15060 MUSIC (4,4,6)
  345. 15070 PRINT "%      -"
  346. 15080 PRINT "; ; ; ; "
  347. 15090 IF KEY = 32 THEN GOTO 15510
  348. 15100 WAIT (32)
  349. 15110 CPOS (0,0): CLS
  350. 15120 MUSIC (6,4,6)
  351. 15130 PRINT "-%     -"
  352. 15140 PRINT "; ; ; ; "
  353. 15150 IF KEY = 32 THEN GOTO 16890
  354. 15160 WAIT (32)
  355. 15170 CPOS (0,0): CLS
  356. 15180 MUSIC (7,4,6)
  357. 15190 PRINT "- %    -"
  358. 15200 PRINT "; ; ; ; "
  359. 15210 IF KEY = 32 THEN GOTO 16890
  360. 15220 WAIT (32)
  361. 15230 CPOS (0,0): CLS
  362. 15240 MUSIC (5,4,6)
  363. 15250 PRINT "-  %   -"
  364. 15260 PRINT "; ; ; ; "
  365. 15270 IF KEY = 32 THEN GOTO 16890
  366. 15280 WAIT (32)
  367. 15290 CPOS (0,0): CLS
  368. 15300 MUSIC (4,4,6)
  369. 15310 PRINT "-   %  -"
  370. 15320 PRINT "; ; ; ; "
  371. 15330 IF KEY = 32 THEN GOTO 16890
  372. 15340 WAIT (32)
  373. 15350 CPOS (0,0): CLS
  374. 15360 MUSIC (6,4,6)
  375. 15370 PRINT "-    % -"
  376. 15380 PRINT "; ; ; ; "
  377. 15390 IF KEY = 32 THEN GOTO 16890
  378. 15400 CPOS (0,0): CLS
  379. 15410 MUSIC (7,4,6)
  380. 15420 PRINT "-     %-"
  381. 15430 PRINT "; ; ; ; "
  382. 15440 IF KEY = 32 THEN GOTO 16890
  383. 15450 CPOS (0,0): CLS
  384. 15460 MUSIC (5,4,6)
  385. 15470 PRINT "-      %"
  386. 15480 PRINT "; ; ; ; "
  387. 15490 IF KEY = 32 THEN GOTO 16890
  388. 15500 GOTO 15050
  389. 15510 CPOS (0,0): CLS
  390. 15520 MUSIC (4,4,6)
  391. 15530 PRINT "%      -"
  392. 15540 PRINT "@ ; ; ; "
  393. 15550 IF KEY = 32 THEN GOTO 16990
  394. 15560 WAIT (32)
  395. 15570 CPOS (0,0): CLS
  396. 15580 MUSIC (6,4,6)
  397. 15590 PRINT "-%     -"
  398. 15600 PRINT "@ ; ; ; "
  399. 15610 IF KEY = 32 THEN GOTO 16990
  400. 15620 WAIT (32)
  401. 15630 CPOS (0,0): CLS
  402. 15640 MUSIC (7,4,6)
  403. 15650 PRINT "- %    -"
  404. 15660 PRINT "@ ; ; ; "
  405. 15670 IF KEY = 32 THEN GOTO 15970
  406. 15680 WAIT (32)
  407. 15690 CPOS (0,0): CLS
  408. 15700 MUSIC (5,4,6)
  409. 15710 PRINT "-  %   -"
  410. 15720 PRINT "@ ; ; ; "
  411. 15730 IF KEY = 32 THEN GOTO 16990
  412. 15740 WAIT (32)
  413. 15750 CPOS (0,0): CLS
  414. 15760 MUSIC (4,4,6)
  415. 15770 PRINT "-   %  -"
  416. 15780 PRINT "@ ; ; ; "
  417. 15790 IF KEY = 32 THEN GOTO 16990
  418. 15800 WAIT (32)
  419. 15810 CPOS (0,0): CLS
  420. 15820 MUSIC (6,4,6)
  421. 15830 PRINT "-    % -"
  422. 15840 PRINT "@ ; ; ; "
  423. 15850 IF KEY = 32 THEN GOTO 16990
  424. 15860 CPOS (0,0): CLS
  425. 15870 MUSIC (7,4,6)
  426. 15880 PRINT "-     %-"
  427. 15890 PRINT "@ ; ; ; "
  428. 15900 IF KEY = 32 THEN GOTO 16990
  429. 15910 CPOS (0,0): CLS
  430. 15920 MUSIC (5,4,6)
  431. 15930 PRINT "-      %"
  432. 15940 PRINT "@ ; ; ; "
  433. 15950 IF KEY = 32 THEN GOTO 16990
  434. 15960 GOTO 15510
  435. 15970 CPOS (0,0): CLS
  436. 15980 MUSIC (4,4,6)
  437. 15990 PRINT "%      -"
  438. 16000 PRINT "@ @ ; ; "
  439. 16010 IF KEY = 32 THEN GOTO 17090
  440. 16020 WAIT (32)
  441. 16030 CPOS (0,0): CLS
  442. 16040 MUSIC (6,4,6)
  443. 16050 PRINT "-%     -"
  444. 16060 PRINT "@ @ ; ; "
  445. 16070 IF KEY = 32 THEN GOTO 17090
  446. 16080 WAIT (32)
  447. 16090 CPOS (0,0): CLS
  448. 16100 MUSIC (7,4,6)
  449. 16110 PRINT "- %    -"
  450. 16120 PRINT "@ @ ; ; "
  451. 16130 IF KEY = 32 THEN GOTO 17090
  452. 16140 WAIT (32)
  453. 16150 CPOS (0,0): CLS
  454. 16160 MUSIC (5,4,6)
  455. 16170 PRINT "-  %   -"
  456. 16180 PRINT "@ @ ; ; "
  457. 16190 IF KEY = 32 THEN GOTO 17090
  458. 16200 WAIT (32)
  459. 16210 CPOS (0,0): CLS
  460. 16220 MUSIC (4,4,6)
  461. 16230 PRINT "-   %  -"
  462. 16240 PRINT "@ @ ; ; "
  463. 16250 IF KEY = 32 THEN GOTO 16430
  464. 16260 WAIT (32)
  465. 16270 CPOS (0,0): CLS
  466. 16280 MUSIC (6,4,6)
  467. 16290 PRINT "-    % -"
  468. 16300 PRINT "@ @ ; ; "
  469. 16310 IF KEY = 32 THEN GOTO 17090
  470. 16320 CPOS (0,0): CLS
  471. 16330 MUSIC (7,4,6)
  472. 16340 PRINT "-     %-"
  473. 16350 PRINT "@ @ ; ; "
  474. 16360 IF KEY = 32 THEN GOTO 17090
  475. 16370 CPOS (0,0): CLS
  476. 16380 MUSIC (5,4,6)
  477. 16390 PRINT "-      %"
  478. 16400 PRINT "@ @ ; ; "
  479. 16410 IF KEY = 32 THEN GOTO 17090
  480. 16420 GOTO 15970
  481. 16430 CPOS (0,0): CLS
  482. 16440 MUSIC (4,4,6)
  483. 16450 PRINT "%      -"
  484. 16460 PRINT "@ @ @ ; "
  485. 16470 IF KEY = 32 THEN GOTO 17190
  486. 16480 WAIT (32)
  487. 16490 CPOS (0,0): CLS
  488. 16500 MUSIC (6,4,6)
  489. 16510 PRINT "-%     -"
  490. 16520 PRINT "@ @ @ ; "
  491. 16530 IF KEY = 32 THEN GOTO 17190
  492. 16540 WAIT (32)
  493. 16550 CPOS (0,0): CLS
  494. 16560 MUSIC (7,4,6)
  495. 16570 PRINT "- %    -"
  496. 16580 PRINT "@ @ @ ; "
  497. 16590 IF KEY = 32 THEN GOTO 17190
  498. 16600 WAIT (32)
  499. 16610 CPOS (0,0): CLS
  500. 16620 MUSIC (5,4,6)
  501. 16630 PRINT "-  %   -"
  502. 16640 PRINT "@ @ @ ; "
  503. 16650 IF KEY = 32 THEN GOTO 17190
  504. 16660 WAIT (32)
  505. 16670 CPOS (0,0): CLS
  506. 16680 MUSIC (4,4,6)
  507. 16690 PRINT "-   %  -"
  508. 16700 PRINT "@ @ @ ; "
  509. 16710 IF KEY = 32 THEN GOTO 17190
  510. 16720 WAIT (32)
  511. 16730 CPOS (0,0): CLS
  512. 16740 MUSIC (6,4,6)
  513. 16750 PRINT "-    % -"
  514. 16760 PRINT "@ @ @ ; "
  515. 16770 IF KEY = 32 THEN GOTO 17190
  516. 16780 CPOS (0,0): CLS
  517. 16790 MUSIC (7,4,6)
  518. 16800 PRINT "-     %-"
  519. 16810 PRINT "@ @ @ ; "
  520. 16820 IF KEY = 32 THEN GOTO 17290
  521. 16830 CPOS (0,0): CLS
  522. 16840 MUSIC (5,4,6)
  523. 16850 PRINT "-      %"
  524. 16860 PRINT "@ @ @ ; "
  525. 16870 IF KEY = 32 THEN GOTO 17190
  526. 16880 GOTO 16430
  527. 16890 CPOS (0,0): CLS
  528. 16900 MUSIC (2,5,6)
  529. 16910 MUSIC (0,0,0)
  530. 16920 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  531. 16930 PRINT "% -( HECK. )": WAIT (512)
  532. 16940 MUSIC (2,5,6)
  533. 16950 MUSIC (0,0,0)
  534. 16960 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  535. 16970 PRINT "% -( LET ME TRY THAT AGAIN. )": WAIT (512)
  536. 16980 GOTO 15050
  537. 16990 CPOS (0,0): CLS
  538. 17000 MUSIC (2,5,6)
  539. 17010 MUSIC (0,0,0)
  540. 17020 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  541. 17030 PRINT "% -( GAH! )": WAIT (512)
  542. 17040 MUSIC (2,5,6)
  543. 17050 MUSIC (0,0,0)
  544. 17060 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  545. 17070 PRINT "% -( THAT'S NO GOOD. )": WAIT (512)
  546. 17080 GOTO 15510
  547. 17090 CPOS (0,0): CLS
  548. 17100 MUSIC (2,5,6)
  549. 17110 MUSIC (0,0,0)
  550. 17120 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  551. 17130 PRINT "% -( JEEZ. )": WAIT (512)
  552. 17140 MUSIC (2,5,6)
  553. 17150 MUSIC (0,0,0)
  554. 17160 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  555. 17170 PRINT "% -( I CAN'T POUR TODAY. )": WAIT (512)
  556. 17180 GOTO 15970
  557. 17190 CPOS (0,0): CLS
  558. 17200 MUSIC (2,5,6)
  559. 17210 MUSIC (0,0,0)
  560. 17220 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  561. 17230 PRINT "% -( OH DEAR. )": WAIT (512)
  562. 17240 MUSIC (2,5,6)
  563. 17250 MUSIC (0,0,0)
  564. 17260 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  565. 17270 PRINT "% -( SO CLOSE, YET SO FAR. )": WAIT (512)
  566. 17280 GOTO 16430
  567. 17290 CPOS (0,0): CLS
  568. 17300 MUSIC (0,0,0)
  569. 17310 NOISE (1, 4): WAIT (16)
  570. 17320 NOISE (2, 3): WAIT (16)
  571. 17330 NOISE (3, 2): WAIT (16)
  572. 17340 NOISE (4, 1): WAIT (16)
  573. 17350 NOISE (0, 0): WAIT (512)
  574. 17360 MUSIC (2,5,6)
  575. 17370 MUSIC (0,0,0)
  576. 17380 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  577. 17390 PRINT "@ @ @ @ "
  578. 17400 PRINT "% -( ALL DONE! )": WAIT (512)
  579. 17410 CPOS (0,0): CLS
  580. 17420 PRINT "INT. THE C. CENTER - 10:30"
  581. 17430 MUSIC (2,5,6)
  582. 17440 MUSIC (0,0,0)
  583. 12750 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  584. 17460 PRINT "% -( HEY, SO WHAT NOW? )": WAIT (512)
  585. 17470 MUSIC (2,5,6)
  586. 17480 MUSIC (0,0,0)
  587. 17490 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  588. 17500 PRINT "( WE WAIT! )- #": WAIT (512)
  589. 17510 MUSIC (2,5,6)
  590. 17520 MUSIC (0,0,0)
  591. 17530 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  592. 17540 PRINT "( FOR 72 HOURS. )- #": WAIT (512)
  593. 17550 MUSIC (2,5,6)
  594. 17560 MUSIC (0,0,0)
  595. 17570 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  596. 17580 PRINT "% -( I'LL TAKE 8 HOURS. )": WAIT (512)
  597. 17590 CPOS (0,0): CLS
  598. 17600 PRINT "INT. THE C. CENTER - CONT."
  599. 17610 MUSIC (2,5,6)
  600. 17620 MUSIC (0,0,0)
  601. 17630 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  602. 17640 PRINT "% -( ... )": WAIT (512)
  603. 17650 MUSIC (2,5,6)
  604. 17660 MUSIC (0,0,0)
  605. 17670 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  606. 17680 PRINT "& -( ... )": WAIT (512)
  607. 17690 MUSIC (2,5,6)
  608. 17700 MUSIC (0,0,0)
  609. 17710 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  610. 17720 PRINT "_ -( ... )": WAIT (512)
  611. 17730 MUSIC (2,5,6)
  612. 17740 MUSIC (0,0,0)
  613. 17750 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  614. 17760 PRINT "= -( ... )": WAIT (512)
  615. 17770 MUSIC (2,5,6)
  616. 17780 MUSIC (0,0,0)
  617. 17790 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  618. 17800 PRINT "# -( SO... )": WAIT (512)
  619. 17810 MUSIC (2,5,6)
  620. 17820 MUSIC (0,0,0)
  621. 17830 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  622. 17840 PRINT "% -( THANK HECK FOR PDAS. )": WAIT (512)
  623. 17850 MUSIC (2,5,6)
  624. 17860 MUSIC (0,0,0)
  625. 17870 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  626. 17880 PRINT "& -( FOR WHAT THOUGH? )": WAIT (512)
  627. 17890 MUSIC (2,5,6)
  628. 17900 MUSIC (0,0,0)
  629. 17910 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  630. 17920 PRINT "_ -( YEAH, CALENDARS, WOO. )": WAIT (512)
  631. 17930 MUSIC (2,5,6)
  632. 17940 MUSIC (0,0,0)
  633. 17950 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  634. 17960 PRINT "= -( UNLIKE YOU THREE, I HAVE TAPES! )": WAIT (512)
  635. 17970 MUSIC (2,5,6)
  636. 17980 MUSIC (0,0,0)
  637. 17990 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  638. 18000 PRINT "# -( ALL THE GREATEST HITS. )": WAIT (512)
  639. 18010 MUSIC (2,5,6)
  640. 18020 MUSIC (0,0,0)
  641. 18030 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  642. 18040 PRINT "% -( HEY, THIS HAS A JACK! )": WAIT (512)
  643. 18050 MUSIC (2,5,6)
  644. 18060 MUSIC (0,0,0)
  645. 18070 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  646. 18080 PRINT "& -( BUT 2.5MM ARE HARD TO FIND. )": WAIT (512)
  647. 18090 MUSIC (2,5,6)
  648. 18100 MUSIC (0,0,0)
  649. 18110 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  650. 18120 PRINT "_ -( I'VE NEVER SEEN ONE. )": WAIT (512)
  651. 18130 MUSIC (2,5,6)
  652. 18140 MUSIC (0,0,0)
  653. 18150 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  654. 18160 PRINT "= -( BE LIKE ME WITH 3.5MM. )": WAIT (512)
  655. 18170 MUSIC (2,5,6)
  656. 18180 MUSIC (0,0,0)
  657. 18190 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  658. 18200 PRINT "# -( WE GET IT, YOU HAVE TAPE. )": WAIT (512)
  659. 18210 MUSIC (2,5,6)
  660. 18220 MUSIC (0,0,0)
  661. 18230 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  662. 18240 PRINT "% -( HEY, WHATS THE TIME? )": WAIT (512)
  663. 18250 MUSIC (2,5,6)
  664. 18260 MUSIC (0,0,0)
  665. 18270 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  666. 18280 PRINT "& -( DUNNO. )": WAIT (512)
  667. 18290 MUSIC (2,5,6)
  668. 18300 MUSIC (0,0,0)
  669. 18310 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  670. 18320 PRINT "_ -( 5:30! )": WAIT (512)
  671. 18330 MUSIC (2,5,6)
  672. 18340 MUSIC (0,0,0)
  673. 18350 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  674. 18360 PRINT "= -( IS THERE ANY FASTER WAY? )": WAIT (512)
  675. 18370 MUSIC (2,5,6)
  676. 18380 MUSIC (0,0,0)
  677. 18390 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  678. 18400 PRINT "# -( WE CAN SCREAM AT IT. )": WAIT (512)
  679. 18410 MUSIC (2,5,6)
  680. 18420 MUSIC (0,0,0)
  681. 18430 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  682. 18440 PRINT "# -( I HEARD THAT SPEEDS IT UP. )": WAIT (512)
  683. 18450 MUSIC (2,5,6)
  684. 18460 MUSIC (0,0,0)
  685. 18470 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  686. 18480 PRINT "& -( AAAAAAAHH. )": WAIT (512)
  687. 18490 MUSIC (2,5,6)
  688. 18500 MUSIC (0,0,0)
  689. 18510 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  690. 18520 PRINT "_ -( AAAAAHHHHH? )": WAIT (512)
  691. 18530 MUSIC (2,5,6)
  692. 18540 MUSIC (0,0,0)
  693. 18550 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  694. 18560 PRINT "= -( AH! )": WAIT (512)
  695. 18570 MUSIC (2,5,6)
  696. 18580 MUSIC (0,0,0)
  697. 18590 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  698. 18600 PRINT "# -( A, H, AH. )": WAIT (512)
  699. 18610 MUSIC (2,5,6)
  700. 18620 MUSIC (0,0,0)
  701. 18630 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  702. 18640 PRINT "% -( AAAAAAAHHHHHHHHH! )": WAIT (512)
  703. 18650 MUSIC (2,4,6)
  704. 18660 MUSIC (0,0,0)
  705. 18670 MUSIC (1,4,6)
  706. 18680 MUSIC (0,0,0)
  707. 18690 MUSIC (1,5,6)
  708. 18700 MUSIC (0,0,0)
  709. 18710 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  710. 18720 PRINT "@ @ @ @": WAIT (512)
  711. 18730 MUSIC (2,5,6)
  712. 18740 MUSIC (0,0,0)
  713. 18750 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  714. 18760 PRINT "# -( WOW, REALLY WORKS! )": WAIT (512)
  715. 18770 MUSIC (2,5,6)
  716. 18780 MUSIC (0,0,0)
  717. 18790 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  718. 18800 PRINT "% -( ALL FOR A LACK OF BREATH! )": WAIT (512)
  719. 18810 MUSIC (2,5,6)
  720. 18820 MUSIC (0,0,0)
  721. 18830 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  722. 18840 PRINT "% -( AAAANNNDDD.... )": WAIT (512)
  723. 18850 MUSIC (2,5,6)
  724. 18860 MUSIC (0,0,0)
  725. 18870 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  726. 18880 PRINT "; @ @ @": WAIT (512)
  727. 18890 MUSIC (2,5,6)
  728. 18900 MUSIC (0,0,0)
  729. 18910 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  730. 18920 PRINT "% -( IT TASTES GREAT! )": WAIT (512)
  731. 18930 MUSIC (2,5,6)
  732. 18940 MUSIC (0,0,0)
  733. 18950 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  734. 18960 PRINT "% -( THANKS, MAN. )": WAIT (512)
  735. 18970 MUSIC (2,5,6)
  736. 18980 MUSIC (0,0,0)
  737. 18990 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  738. 19000 PRINT "# -( NO PROBLEM! )": WAIT (512)
  739. 19010 MUSIC (2,5,6)
  740. 19020 MUSIC (0,0,0)
  741. 19030 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  742. 19040 PRINT "% -( HEY, WHILE YOU'RE ALL HERE... )": WAIT (512)
  743. 19050 MUSIC (2,5,6)
  744. 19060 MUSIC (0,0,0)
  745. 19070 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  746. 19080 PRINT "% -( ANYONE WANNA GO TO MY... )": WAIT (512)
  747. 19090 MUSIC (2,5,6)
  748. 19100 MUSIC (0,0,0)
  749. 19110 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  750. 19120 PRINT "% -( |CONCERT?| )": WAIT (512)
  751. 19130 MUSIC (2,5,6)
  752. 19140 MUSIC (0,0,0)
  753. 19150 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  754. 19160 PRINT "% -( NOT SET UP, BUT IT'LL HAPPEN. )": WAIT (512)
  755. 19170 MUSIC (2,5,6)
  756. 19180 MUSIC (0,0,0)
  757. 19190 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  758. 19200 PRINT "& -( SURE. )"
  759. 19210 PRINT "_ -( OOH, GOTCHA! )"
  760. 19220 PRINT "= -( I'LL BE THERE! )"
  761. 19230 PRINT "# -( HEY, WHY NOT? )": WAIT (512)
  762. 19240 MUSIC (2,5,6)
  763. 19250 MUSIC (0,0,0)
  764. 19260 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  765. 19270 PRINT "% -( AWESOME, THANKS. )": WAIT (512)
  766. 19280 MUSIC (2,5,6)
  767. 19290 MUSIC (0,0,0)
  768. 19300 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  769. 19310 PRINT "% -( BE THERE AT 7! )": WAIT (512)
  770. 19320 CPOS (0,0): CLS
  771. 19330 MUSIC (2,5,6)
  772. 19340 MUSIC (0,0,0)
  773. 19350 PRINT "EXT. THE OUTSIDE WORLD - 6:00"
  774. 19360 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  775. 19370 PRINT "% -( NOW WITH 3 SODAS. )"
  776. 19380 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  777. 19390 PRINT "| C.CENTER     |"
  778. 19400 PRINT "|   |''|       |"
  779. 19410 PRINT "|  C|% |       |"
  780. 19420 PRINT "|--------------|"
  781. 19430 PRINT "|-------------M|"
  782. 19440 PRINT "|             S|"
  783. 19450 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  784. 19460 PRINT "YOU ARE ON THE SIDEWALK (S)."
  785. 19470 PRINT "PRESS M TO GO TO MUSI-CO."
  786. 19480 IF KEY = 77 THEN GOTO 19500
  787. 19490 GOTO 19480
  788. 19500 CPOS (0,0): CLS
  789. 19510 SHAPE (64, "9E8C8C8C9EBFBF9E00")
  790. 19520 MUSIC (2,5,6)
  791. 19530 MUSIC (0,0,0)
  792. 19540 PRINT "INT. MUSI-CO - CONTINUOUS"
  793. 19550 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  794. 19560 PRINT "% -( WHERE TO? )"
  795. 19570 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  796. 19580 PRINT "|  _  @8|"
  797. 19590 PRINT "|-------|"
  798. 19600 PRINT "|       |"
  799. 19610 PRINT "| %     |"
  800. 19620 PRINT "|M     X|"
  801. 19630 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  802. 19640 PRINT "YOU ARE IN THE MUSI-CO (M)."
  803. 19650 PRINT "PRESS W TO TALK TO THE WORKER."
  804. 19660 IF KEY = 87 THEN GOTO 19680
  805. 19670 GOTO 19660
  806. 19680 CPOS (0,0): CLS
  807. 19690 PRINT "INT. MUSI-CO - 6:05"
  808. 19700 MUSIC (2,5,6)
  809. 19710 MUSIC (0,0,0)
  810. 19720 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  811. 19730 PRINT "( HELLO AGAIN! )- _": WAIT (512)
  812. 19740 MUSIC (2,5,6)
  813. 19750 MUSIC (0,0,0)
  814. 19760 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  815. 19770 PRINT "% -( HI! CAN I GET MY STUFF? )": WAIT (512)
  816. 19780 MUSIC (2,5,6)
  817. 19790 MUSIC (0,0,0)
  818. 19800 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  819. 19810 PRINT "( YES, OF COURSE! )- _": WAIT (512)
  820. 19820 MUSIC (2,5,6)
  821. 19830 MUSIC (0,0,0)
  822. 19840 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  823. 19850 PRINT "@8"
  824. 19860 PRINT "% -( DOPE, THANKS. )": WAIT (512)
  825. 19870 MUSIC (2,5,6)
  826. 19880 MUSIC (0,0,0)
  827. 19890 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  828. 19900 PRINT "( I'LL BE THERE! )- _": WAIT (512)
  829. 19910 MUSIC (2,5,6)
  830. 19920 MUSIC (0,0,0)
  831. 19930 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  832. 19940 PRINT "% -( SAME HERE. SEE YOU THEN! )": WAIT (512)
  833. 19950 CPOS (0,0): CLS
  834. 19951 SHAPE (43, "00005E3F293F293F00")
  835. 19960 MUSIC (2,5,6)
  836. 19970 MUSIC (0,0,0)
  837. 19980 PRINT "INT. THE LAUNDROMAT - 6:45"
  838. 19990 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  839. 20000 PRINT "% -( CAN'T FORGET THE CAP! )"
  840. 20010 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  841. 20020 PRINT "|   C|+ |"
  842. 20030 PRINT "|    |_ |"
  843. 20040 PRINT "|    ||||"
  844. 20050 PRINT "| %     |"
  845. 20060 PRINT "|E      |"
  846. 20070 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  847. 20080 PRINT "YOU ARE IN THE ENTRANCE (E)."
  848. 20090 PRINT "PRESS C TO GET YOUR CAP."
  849. 20100 IF KEY = 67 THEN GOTO 20120
  850. 20110 GOTO 20100
  851. 20120 SHAPE (37, "7F212B2B212F213F00")
  852. 20130 SHAPE (43, "00003F213521293F00")
  853. 20140 CPOS (0,0): CLS
  854. 20150 WAIT (512)
  855. 20160 MUSIC (2,5,6)
  856. 20170 MUSIC (0,0,0)
  857. 20180 PRINT "EXT. THE PARK - 7:00"
  858. 20190 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  859. 20200 PRINT "% -( I'M READY. )"
  860. 20210 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  861. 20220 PRINT "|                  |"
  862. 20230 PRINT "|          %       |"
  863. 20240 PRINT "|       ------     |"
  864. 20250 PRINT "|       -    -     |"
  865. 20260 PRINT "|------------------|"
  866. 20270 PRINT "| _ # & = +        |"
  867. 20280 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  868. 20281 PRINT "YOU ARE ON THE STAGE."
  869. 20282 PRINT "PRESS P TO PLAY."
  870. 20283 IF KEY = 80 THEN GOTO 20290
  871. 20284 GOTO 20283
  872. 20290 CPOS (0,0): CLS
  873. 20300 PRINT "INT. THE PARK - 7:00"
  874. 20310 MUSIC (2,5,6)
  875. 20320 MUSIC (0,0,0)
  876. 20330 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  877. 20340 PRINT "% -( HEY EVERYONE! )": WAIT (512)
  878. 20350 MUSIC (2,5,6)
  879. 20360 MUSIC (0,0,0)
  880. 20370 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  881. 20380 PRINT "% -( JUST WANNA SAY THANKS. )": WAIT (512)
  882. 20390 MUSIC (2,5,6)
  883. 20400 MUSIC (0,0,0)
  884. 20410 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  885. 20420 PRINT "( YES, OF COURSE! )- _": WAIT (512)
  886. 20430 MUSIC (2,5,6)
  887. 20440 MUSIC (0,0,0)
  888. 20450 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  889. 20460 PRINT "% -( COOL, NO PROBLEM! )": WAIT (512)
  890. 20470 MUSIC (2,5,6)
  891. 20480 MUSIC (0,0,0)
  892. 20490 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  893. 20500 PRINT "% -( HERE'S THE SONG, HOPE YOU ENJOY. )": WAIT (512)
  894. 20510 CPOS (0,0): CLS
  895. 20520 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  896. 20530 PRINT "|                  |"
  897. 20540 PRINT "|          %       |"
  898. 20550 PRINT "|       ------     |"
  899. 20560 PRINT "|       -    -     |"
  900. 20570 PRINT "|------------------|"
  901. 20580 PRINT "| _ # & = +        |"
  902. 20590 PRINT "\/\/\/\/\/\/\/\/\/\/\"
  903. 20600 NOISE (8, 1): WAIT (32)
  904. 20610 NOISE (8, 2): WAIT (32)
  905. 20620 NOISE (8, 3): WAIT (32)
  906. 20630 NOISE (8, 4): WAIT (32)
  907. 20640 NOISE (8, 5): WAIT (32)
  908. 20650 NOISE (8, 6): WAIT (32)
  909. 20660 MUSIC (1,4,6): WAIT (32)
  910. 20670 MUSIC (3,4,6): WAIT (32)
  911. 20690 MUSIC (5,4,6): WAIT (32)
  912. 20700 MUSIC (6,4,6): WAIT (32)
  913. 20710 MUSIC (1,4,6): WAIT (32)
  914. 20720 MUSIC (3,4,6): WAIT (32)
  915. 20730 MUSIC (5,4,6): WAIT (32)
  916. 20740 MUSIC (7,4,6): WAIT (32)
  917. 20750 MUSIC (1,4,6): WAIT (32)
  918. 20760 MUSIC (3,4,6): WAIT (32)
  919. 20770 MUSIC (5,4,6): WAIT (32)
  920. 20780 MUSIC (6,4,6): WAIT (32)
  921. 20790 MUSIC (1,4,6): WAIT (32)
  922. 20800 MUSIC (3,4,6): WAIT (32)
  923. 20810 MUSIC (5,4,6): WAIT (32)
  924. 20820 MUSIC (7,4,6): WAIT (32)
  925. 20830 MUSIC (5,3,6): WAIT (32)
  926. 20840 MUSIC (3,4,6): WAIT (32)
  927. 20850 MUSIC (5,4,6): WAIT (32)
  928. 20860 MUSIC (6,4,6): WAIT (32)
  929. 20870 MUSIC (5,3,6): WAIT (32)
  930. 20880 MUSIC (3,4,6): WAIT (32)
  931. 20890 MUSIC (5,4,6): WAIT (32)
  932. 20900 MUSIC (7,4,6): WAIT (32)
  933. 20910 MUSIC (5,3,6): WAIT (32)
  934. 20920 MUSIC (3,4,6): WAIT (32)
  935. 20930 MUSIC (5,4,6): WAIT (32)
  936. 20940 MUSIC (6,4,6): WAIT (32)
  937. 20950 MUSIC (5,3,6): WAIT (32)
  938. 20960 MUSIC (3,4,6): WAIT (32)
  939. 20970 MUSIC (5,4,6): WAIT (32)
  940. 20980 MUSIC (7,4,6): WAIT (32)
  941. 20990 MUSIC (4,3,6): WAIT (32)
  942. 21000 MUSIC (3,4,6): WAIT (32)
  943. 21010 MUSIC (5,4,6): WAIT (32)
  944. 21020 MUSIC (6,4,6): WAIT (32)
  945. 21030 MUSIC (4,3,6): WAIT (32)
  946. 21040 MUSIC (3,4,6): WAIT (32)
  947. 21050 MUSIC (5,4,6): WAIT (32)
  948. 21060 MUSIC (7,4,6): WAIT (32)
  949. 21070 MUSIC (4,3,6): WAIT (32)
  950. 21080 MUSIC (3,4,6): WAIT (32)
  951. 21090 MUSIC (5,4,6): WAIT (32)
  952. 21100 MUSIC (6,4,6): WAIT (32)
  953. 21110 MUSIC (4,3,6): WAIT (32)
  954. 21120 MUSIC (3,5,6): WAIT (32)
  955. 21130 MUSIC (2,5,6): WAIT (32)
  956. 21140 MUSIC (1,5,6): WAIT (32)
  957. 21150 MUSIC (5,3,6): WAIT (32)
  958. 21160 MUSIC (3,4,6): WAIT (32)
  959. 21170 MUSIC (5,4,6): WAIT (32)
  960. 21180 MUSIC (6,4,6): WAIT (32)
  961. 21190 MUSIC (5,3,6): WAIT (32)
  962. 21200 MUSIC (3,4,6): WAIT (32)
  963. 21210 MUSIC (5,4,6): WAIT (32)
  964. 21220 MUSIC (7,4,6): WAIT (32)
  965. 21230 MUSIC (3,3,6): WAIT (32)
  966. 21240 MUSIC (5,4,6): WAIT (32)
  967. 21250 MUSIC (6,4,6): WAIT (32)
  968. 21260 MUSIC (7,4,6): WAIT (32)
  969. 21270 MUSIC (5,3,6): WAIT (32)
  970. 21280 MUSIC (2,5,6): WAIT (32)
  971. 21290 MUSIC (5,5,6): WAIT (32)
  972. 21300 MUSIC (1,5,6): WAIT (32)
  973. 21310 MUSIC (4,3,6): WAIT (32)
  974. 21320 MUSIC (1,5,6): WAIT (32)
  975. 21330 MUSIC (0,0,0): WAIT (32)
  976. 21340 MUSIC (4,3,6): WAIT (32)
  977. 21350 MUSIC (1,5,6): WAIT (32)
  978. 21360 MUSIC (0,0,0): WAIT (32)
  979. 21370 MUSIC (4,3,6): WAIT (32)
  980. 21380 MUSIC (1,5,6): WAIT (32)
  981. 21390 MUSIC (5,3,6): WAIT (32)
  982. 21400 MUSIC (7,4,6): WAIT (32)
  983. 21410 MUSIC (0,0,0): WAIT (32)
  984. 21420 MUSIC (5,3,6): WAIT (32)
  985. 21430 MUSIC (7,4,6): WAIT (32)
  986. 21440 MUSIC (0,0,0): WAIT (32)
  987. 21450 MUSIC (5,3,6): WAIT (32)
  988. 21460 MUSIC (7,4,6): WAIT (32)
  989. 21470 MUSIC (3,3,6): WAIT (32)
  990. 21480 MUSIC (1,5,6): WAIT (32)
  991. 21490 MUSIC (0,0,0): WAIT (32)
  992. 21500 MUSIC (3,3,6): WAIT (32)
  993. 21510 MUSIC (1,5,6): WAIT (32)
  994. 21520 MUSIC (0,0,0): WAIT (32)
  995. 21530 MUSIC (3,3,6): WAIT (32)
  996. 21540 MUSIC (1,5,6): WAIT (32)
  997. 21550 MUSIC (6,3,6): WAIT (32)
  998. 21560 MUSIC (7,4,6): WAIT (32)
  999. 21570 MUSIC (7,3,6): WAIT (32)
  1000. 21580 MUSIC (1,4,6): WAIT (32)
  1001. 21590 MUSIC (7,4,6): WAIT (32)
  1002. 21600 MUSIC (6,3,6): WAIT (32)
  1003. 21610 MUSIC (5,3,6): WAIT (32)
  1004. 21620 MUSIC (3,5,6): WAIT (32)
  1005. 21630 MUSIC (4,3,6): WAIT (32)
  1006. 21640 MUSIC (1,5,6): WAIT (32)
  1007. 21650 MUSIC (0,0,0): WAIT (32)
  1008. 21660 MUSIC (4,3,6): WAIT (32)
  1009. 21670 MUSIC (1,5,6): WAIT (32)
  1010. 21680 MUSIC (0,0,0): WAIT (32)
  1011. 21690 MUSIC (4,3,6): WAIT (32)
  1012. 21700 MUSIC (1,5,6): WAIT (32)
  1013. 21710 MUSIC (5,3,6): WAIT (32)
  1014. 21720 MUSIC (7,4,6): WAIT (32)
  1015. 21730 MUSIC (0,0,0): WAIT (32)
  1016. 21740 MUSIC (5,3,6): WAIT (32)
  1017. 21750 MUSIC (7,4,6): WAIT (32)
  1018. 21760 MUSIC (0,0,0): WAIT (32)
  1019. 21770 MUSIC (5,3,6): WAIT (32)
  1020. 21780 MUSIC (7,4,6): WAIT (32)
  1021. 21790 MUSIC (3,3,6): WAIT (32)
  1022. 21800 MUSIC (1,5,6): WAIT (32)
  1023. 21810 MUSIC (0,0,0): WAIT (32)
  1024. 21820 MUSIC (3,3,6): WAIT (32)
  1025. 21830 MUSIC (1,5,6): WAIT (32)
  1026. 21840 MUSIC (0,0,0): WAIT (32)
  1027. 21850 MUSIC (3,3,6): WAIT (32)
  1028. 21860 MUSIC (1,5,6): WAIT (32)
  1029. 21870 MUSIC (6,3,6): WAIT (32)
  1030. 21880 MUSIC (7,4,6): WAIT (32)
  1031. 21890 MUSIC (7,3,6): WAIT (32)
  1032. 21900 MUSIC (1,4,6): WAIT (32)
  1033. 21910 MUSIC (7,4,6): WAIT (32)
  1034. 21920 MUSIC (6,3,6): WAIT (32)
  1035. 21930 MUSIC (5,3,6): WAIT (32)
  1036. 21940 MUSIC (5,5,6): WAIT (32)
  1037. 21950 MUSIC (1,4,6): WAIT (32)
  1038. 21960 MUSIC (3,4,6): WAIT (32)
  1039. 21970 MUSIC (5,4,6): WAIT (32)
  1040. 21980 MUSIC (6,4,6): WAIT (32)
  1041. 21990 MUSIC (1,4,6): WAIT (32)
  1042. 22000 MUSIC (3,4,6): WAIT (32)
  1043. 22010 MUSIC (5,4,6): WAIT (32)
  1044. 22020 MUSIC (7,4,6): WAIT (32)
  1045. 22030 MUSIC (1,4,6): WAIT (32)
  1046. 22040 MUSIC (3,4,6): WAIT (32)
  1047. 22050 MUSIC (5,4,6): WAIT (32)
  1048. 22060 MUSIC (6,4,6): WAIT (32)
  1049. 22070 MUSIC (1,4,6): WAIT (32)
  1050. 22080 MUSIC (3,4,6): WAIT (32)
  1051. 22090 MUSIC (5,4,6): WAIT (32)
  1052. 22100 MUSIC (7,4,6): WAIT (32)
  1053. 22110 MUSIC (5,3,6): WAIT (32)
  1054. 22120 MUSIC (3,4,6): WAIT (32)
  1055. 22130 MUSIC (5,4,6): WAIT (32)
  1056. 22140 MUSIC (6,4,6): WAIT (32)
  1057. 22150 MUSIC (5,3,6): WAIT (32)
  1058. 22160 MUSIC (3,4,6): WAIT (32)
  1059. 22170 MUSIC (5,4,6): WAIT (32)
  1060. 22180 MUSIC (7,4,6): WAIT (32)
  1061. 22190 MUSIC (5,3,6): WAIT (32)
  1062. 22200 MUSIC (3,4,6): WAIT (32)
  1063. 22210 MUSIC (5,4,6): WAIT (32)
  1064. 22220 MUSIC (6,4,6): WAIT (32)
  1065. 22230 MUSIC (5,3,6): WAIT (32)
  1066. 22240 MUSIC (3,4,6): WAIT (32)
  1067. 22250 MUSIC (5,4,6): WAIT (32)
  1068. 22260 MUSIC (7,4,6): WAIT (32)
  1069. 22270 MUSIC (4,3,6): WAIT (32)
  1070. 22280 MUSIC (3,4,6): WAIT (32)
  1071. 22290 MUSIC (5,4,6): WAIT (32)
  1072. 22300 MUSIC (6,4,6): WAIT (32)
  1073. 22310 MUSIC (4,3,6): WAIT (32)
  1074. 22320 MUSIC (3,4,6): WAIT (32)
  1075. 22330 MUSIC (5,4,6): WAIT (32)
  1076. 22340 MUSIC (7,4,6): WAIT (32)
  1077. 22350 MUSIC (4,3,6): WAIT (32)
  1078. 22360 MUSIC (3,4,6): WAIT (32)
  1079. 22370 MUSIC (5,4,6): WAIT (32)
  1080. 22380 MUSIC (6,4,6): WAIT (32)
  1081. 22390 MUSIC (4,3,6): WAIT (32)
  1082. 22400 MUSIC (3,5,6): WAIT (32)
  1083. 22410 MUSIC (2,5,6): WAIT (32)
  1084. 22420 MUSIC (1,5,6): WAIT (32)
  1085. 22430 MUSIC (5,3,6): WAIT (32)
  1086. 22440 MUSIC (3,4,6): WAIT (32)
  1087. 22450 MUSIC (5,4,6): WAIT (32)
  1088. 22460 MUSIC (6,4,6): WAIT (32)
  1089. 22470 MUSIC (5,3,6): WAIT (32)
  1090. 22480 MUSIC (3,4,6): WAIT (32)
  1091. 22490 MUSIC (5,4,6): WAIT (32)
  1092. 22500 MUSIC (7,4,6): WAIT (32)
  1093. 22510 MUSIC (3,3,6): WAIT (48)
  1094. 22520 MUSIC (5,4,6): WAIT (48)
  1095. 22530 MUSIC (6,4,6): WAIT (48)
  1096. 22540 MUSIC (5,3,6): WAIT (240)
  1097. 22550 MUSIC (4,3,6): WAIT (128)
  1098. 22560 MUSIC (3,3,6): WAIT (128)
  1099. 22570 MUSIC (2,3,6): WAIT (128)
  1100. 22580 MUSIC (1,3,6): WAIT (64)
  1101. 22590 MUSIC (3,3,6): WAIT (64)
  1102. 22600 MUSIC (5,3,6): WAIT (64)
  1103. 22610 MUSIC (7,3,6): WAIT (64)
  1104. 22620 MUSIC (1,3,6): WAIT (64)
  1105. 22630 MUSIC (3,3,6): WAIT (64)
  1106. 22640 MUSIC (4,3,6): WAIT (64)
  1107. 22650 MUSIC (1,3,6): WAIT (1152)
  1108. 22660 MUSIC (0,0,0)
  1109. 22670 NOISE (8, 5): WAIT (8)
  1110. 22680 NOISE (8, 4): WAIT (8)
  1111. 22690 NOISE (8, 3): WAIT (8)
  1112. 22700 NOISE (8, 2): WAIT (8)
  1113. 22710 NOISE (8, 1): WAIT (8)
  1114. 22720 NOISE (8, 0): WAIT (1024)
  1115. 22730 CPOS (0,0): CLS
  1116. 22740 SCREEN (1)
  1117. 22750 COLOR (12)
  1118. 22760 CPOS (1,38)
  1119. 22770 SHAPE (64, "CEDCF8F8FCFFDECC00")
  1120. 22780 PRINT "@"
  1121. 22790 CPOS (22,1)
  1122. 22800 SHAPE (35, "464878484848484400")
  1123. 22810 SHAPE (38, "6060606C5252525200")
  1124. 22820 SHAPE (43, "404058646478524C00")
  1125. 22830 SHAPE (37, "4E5060647860625C00")
  1126. 22840 SHAPE (95, "404040606C52525200")
  1127. 22850 SHAPE (61, "4844444C5262645800")
  1128. 22860 PRINT "#&+ %_="
  1129. 22870 WAIT (2048)
  1130. 22880 CPOS (0,0): CLS
  1131. 22890 SCREEN (8)
  1132. 22900 COLOR (5)
  1133. 22910 PRINT "THE AMAZINGLY AVERAGE ADVENTURES OF"
  1134. 22920 PRINT "ARNOLD THE DISEMBODIED HEAD"
  1135. 22930 PRINT "A PIXELBRICK GAME"
  1136. 22940 SHAPE (37, "5E727F2B21253F3300")
  1137. 22950 PRINT "% QUIRBY64 - IDEA, CODE,"
  1138. 22960 PRINT "MUSIC, AND BASIC GRAPHICS"
  1139. 22970 SHAPE (95, "DEFF212B211E8C9E00")
  1140. 22980 PRINT "_ GREEN GUY - STORY, LEAD GRAPHICS,"
  1141. 22990 PRINT "BETA TESTING"
  1142. 23000 SHAPE (61, "1E3F1F31215A7B7B00")
  1143. 23010 PRINT "= XENOROCKET - STORY,"
  1144. 23020 PRINT "ADDT'L GRAPHICS, BETA TESTING"
  1145. 23030 PRINT "BIG LUMBY - STORY, BETA TESTING"
  1146. 23040 PRINT "SAMWOW - STORY"
  1147. 23050 PRINT "MAXTREAM - STORY"
  1148. 23060 PRINT "THANKS TO RADIOACTIVE SEAN,"
  1149. 23070 PRINT "DISK JOHSY, PROFESSOR DRANK,"
  1150. 23080 PRINT "TOBIKOMI, TURISMOTURBO,"
  1151. 23090 PRINT "WITTAROJR, M.V.T AND THE WHOLE TEAM"
  1152. 23100 PRINT "FOR EITHER BETA TESTING, OR HELPING"
  1153. 23110 PRINT "MAKE THIS GAME FUN TO DEVELOP!"
  1154. 23120 PRINT "MADE IN NOTEPAD FOR WINDOWS 10."
  1155. 23130 PRINT "ASCIITABLE.COM AND THE"
  1156. 23140 PRINT "RAPIDTABLES BINARY-HEX CONVERTER."
  1157. 23150 PRINT "SODA GUIDE BY HOMEBREWING.ORG."
  1158. 23160 PRINT "\.O./"
  1159. 23170 IF KEY = 32 THEN GOTO 23190
  1160. 23180 GOTO 23170
  1161. 23190 END
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top