home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,201 to 2,300 / aol-file-protocol-4400-2201-to-2300.zip / AOLDLs / BASIC Games / TRAPPED_ Graphic Adventure / TRAPPED.zip / TRAPPED.BAS < prev   
Encoding:
BASIC Source File  |  1995-10-05  |  117.8 KB  |  3,092 lines

  1.  
  2.  
  3. 'FROM THE DESK OF HUBERT FRICK (THE PRESIDENT OF CHANNEL VBG) -'
  4. '                                                              '
  5. '       Congratulations!  I just heard you won the lottery.    '
  6. 'On behalf of all my contemporaries may I say how pleased I am '
  7. 'that you've decided to spend your summer here at Paradise     '
  8. 'Isle.  Just a few words of warning --                         '
  9. '                                                              '
  10. '1. Try to stay away from all foreign fauna and animals        '
  11. '2. Don't talk to any local natives                            '
  12. '3. Write your will now.  You won't be coming back.            '
  13. '                                                              '
  14. '                                                              '
  15. ' -- H.F.                                                      '
  16.  
  17.  
  18. 'A FEW NOTES ON TRAPPED IN PARADISE --                                      '
  19. 'These are just a few words on files and memory problems, ect.  The game was'
  20. 'designed to run on a VERY slow computer (my computer.  Sorry.  But I just  '
  21. 'got it upgraded to a 486 so everything's okay.)  This probably won't       '
  22. 'interfere with gameplay, except for the fact that some of the scenes might '
  23. 'go too fast.  You'll be able to figure out the storyline, anyway.  If it   '
  24. 'still annoys you just e-mail me and I'll send you a faster version.  Also, '
  25. 'when you unzipped this program you should have run setup which would have  '
  26. 'sorted everything out to a differant directory.  If you didn't you WILL    '
  27. 'have trouble with the saved file, trust me.  The game saves, by the way, at'
  28. 'three points during the play.  You don't have to type save or anything.    '
  29. 'If you want to retrieve a saved game, that's another matter.  When the game'
  30. 'starts up and you're at the first screen, type restore to restore another  '
  31. 'game.  You'll be informed if there are no saved games on the file.  You    '
  32. 'shouldn't have any problems with stacks, and if you did I wouldn't know how'
  33. 'to fix them, so there.  Any question, comments, critisisms, witisisms, or  '
  34. 'other types of chatter can be forward to JDewbre on AOL.  I also give out  '
  35. 'hint files if anybody needs them.  Good luck.  Don't get killed.           '
  36.  
  37.  
  38. 'Other programs by ME ME ME on AOL --        '
  39. 'FOR ZZT -                                   '
  40. 'The Most Meaningless Game in the World 1 - 6'
  41. 'Star Wars - The Empire has gas              '
  42. 'Cyborg Squad - The Arcade Game              '
  43. '                                            '
  44. 'I've also uploaded a few WAV files.         '
  45.  
  46.  
  47. 'Oh, and one other thing on typing in commands.  To type in commands use    '
  48. 'simple phrases like look or look at unicycle or walk door.  I get confused '
  49. 'if you use long sentances, so don't do it.  To walk somewhere type either  '
  50. 'walk door or walk (direction i.e. north south east west).  To talk to      '
  51. 'someone type talk to (name of victim here).  Type use (object) to use      '
  52. 'something, and use look at and look to eye things closely.                 '
  53.  
  54.  
  55.  
  56.  
  57.  
  58. DECLARE SUB room1.bas (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  59. DECLARE SUB room2.bas (score)
  60. DECLARE SUB room3.bas (score, sap$, dollars)
  61. DECLARE SUB scene3 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  62. DECLARE SUB scene2 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  63. DECLARE SUB scene1 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  64. DECLARE SUB TELEVISION (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  65. DECLARE SUB scene4 (score)
  66. CALL room1.bas(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  67. PRINT
  68. PRINT
  69. PRINT
  70. CALL room2.bas(score)
  71. CLS
  72. FOR Z = 1 TO 5000
  73. NEXT Z
  74. CALL room3.bas(score, sap$, dollars)
  75.  
  76. SUB room1.bas (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  77. SCREEN 8
  78. startb:
  79. IF opie$ <> "okay" THEN GOTO punt
  80. CLS
  81. COLOR 15
  82. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  83. PRINT ""
  84. DRAW "c15 bu50 l300 d120 r550 u120 l550 r1 d1"
  85. FOR Z = 1 TO 274
  86. DRAW "c11 d118 r1 u118 r1"
  87. NEXT Z
  88. DRAW "d118"
  89. DRAW "c15 bu50"
  90. FOR Z = 1 TO 274
  91. DRAW "c10 d50 l1 u50 l1"
  92. NEXT Z
  93. DRAW "c4 bd20"
  94. FOR Z = 1 TO 100
  95. DRAW "u88 r1 d88 r1"
  96. NEXT Z
  97. DRAW "c0 bl30"
  98. FOR Z = 1 TO 22
  99. DRAW "u40 l1 d40 l1"
  100. NEXT Z
  101. ladderb:
  102. c = 70
  103. d = 150
  104. COLOR 15
  105. CIRCLE (c, d), 1
  106. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  107. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  108. trycicleb:
  109. m = 500
  110. n = 150
  111. COLOR 15
  112. CIRCLE (m, n), 20
  113. CIRCLE (m, n), 19
  114. CIRCLE (m, n), 18
  115. CIRCLE (m, n), 17
  116. CIRCLE (m, n), 16
  117. CIRCLE (m, n), 15
  118. DRAW "c4 bu9 u20 l1 d20 l1 u20 l1 d20 l1 u20 l1 d20 l1 u20 c15 h15 r1 f15 r1 h15 r1 f15 r1"
  119. DRAW "r50 u1 l50"
  120. guyrtb:
  121. A = 200
  122. b = 100
  123. COLOR 4
  124. CIRCLE (A, b), 20
  125. DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  126. COLOR 14, 0
  127. CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  128. DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  129. DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  130. DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  131. DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  132. COLOR 15
  133. INPUT "> ", joe$
  134. IF joe$ = "look" THEN GOTO lookb
  135. IF joe$ = "look unicycle" THEN GOTO lookunib
  136. IF joe$ = "look ladder" THEN GOTO lookladderb
  137. IF joe$ = "use ladder" THEN GOTO useladderb
  138. IF joe$ = "use unicycle" THEN GOTO useunib
  139. IF joe$ = "look house" THEN GOTO lookhouseb
  140. IF joe$ = "fix ladder" THEN GOTO fixladderb
  141. IF joe$ = "walk door" THEN GOTO walkdoorb
  142. GOTO noneb
  143. walkdoorb:
  144. GOTO starta
  145. lookb:
  146. COLOR 1
  147. PRINT "You are standing outside your house on an unrealistic tuft of grass."
  148. PRINT "From where you stand you can see a ladder propped up against your"
  149. PRINT "roof, and your unicycle Mary Lou (you're too poor to afford a car)."
  150. m$ = INPUT$(1)
  151. GOTO startb
  152. lookunib:
  153. COLOR 1
  154. PRINT "That's your unicycle Mary Lou."
  155. m$ = INPUT$(1)
  156. GOTO startb
  157. lookladderb:
  158. COLOR 1
  159. PRINT "A ladder is propped up against your roof.  It looks like the rungs are"
  160. PRINT "pretty worn."
  161. m$ = INPUT$(1)
  162. GOTO startb
  163. lookhouseb:
  164. COLOR 1
  165. PRINT "The red paint on your house is actually rust."
  166. m$ = INPUT$(1)
  167. GOTO startb
  168. useladderb:
  169. CALL scene1(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  170. GOTO startg
  171. useunib:
  172. GOTO choice
  173. fixladderb:
  174. COLOR 1
  175. IF rung$ = "okay" THEN GOTO rungy
  176. PRINT "Hey, we're jumping the gun a bit, aren't we?"
  177. m$ = INPUT$(1)
  178. GOTO startb
  179. rungy:
  180. PRINT "You pull out the broken rung and replace it with a new one."
  181. LET rung$ = "cr"
  182. LET ladfix$ = "okay"
  183. LET score = score + 10
  184. m$ = INPUT$(1)
  185. GOTO startb
  186. exitb:
  187. GOTO starta
  188. END
  189. noneb:
  190.       COLOR 1
  191.       IF fort$ = "two" THEN GOTO none2b
  192.       IF fort$ = "three" THEN GOTO none3b
  193.       IF fort$ = "four" THEN GOTO none4b
  194.       IF fort$ = "five" THEN GOTO none5b
  195.       PRINT "What?  I'm sorry, I wasn't paying attention."
  196.       LET fort$ = "two"
  197.       m$ = INPUT$(1)
  198.       GOTO startb
  199. none2b:
  200.       PRINT "Unfortunately, I don't speak moronese."
  201.       m$ = INPUT$(1)
  202.       LET fort$ = "three"
  203.       GOTO startb
  204. none3b:
  205.       PRINT "And do you think it's gonna let you?"
  206.       m$ = INPUT$(1)
  207.       LET fort$ = "four"
  208.       GOTO startb
  209. none4b:
  210.       PRINT "That would be about as helpful as bashing your head in with a"
  211.       PRINT "large piece of iron."
  212.       m$ = INPUT$(1)
  213.       LET fort$ = "five"
  214.       GOTO startb
  215. none5b:
  216.       PRINT "You know, that's a felony in some states."
  217.       m$ = INPUT$(1)
  218.       LET fort$ = "nothing"
  219.       GOTO startb
  220. punt:
  221. SCREEN 1
  222. COLOR 0
  223. PRINT ""
  224. PRINT ""
  225. PRINT ""
  226. PRINT "               TRAPPED"
  227. PRINT ""
  228. PRINT ""
  229. PRINT "                 IN"
  230. PRINT ""
  231. PRINT ""
  232. PRINT "              PARADISE"
  233. FOR Z = 1 TO 500
  234. NEXT Z
  235. CLS
  236. PRINT ""
  237. PRINT ""
  238. PRINT ""
  239. INPUT "     PLEASE ENTER YOUR NAME > ", name$
  240. LET opie$ = "okay"
  241. SCREEN 8
  242. starta:
  243. CLS
  244. COLOR 15
  245. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  246. PRINT ""
  247. DRAW "c15 bu50 l300 d120 r550 u120 l250 bd80 l260 g40 e40 u80 d80 r510"
  248. DRAW "c6 bl1 bd1 l509"
  249. FOR Z = 1 TO 254
  250. DRAW "g38 r1 e38 r1"
  251. NEXT Z
  252. DRAW "r1"
  253. FOR Z = 1 TO 50
  254. DRAW "d38 l1 u38 l1"
  255. NEXT Z
  256. DRAW "c15 bl10 d10 r100 u30 l100 d30 r1 u1"
  257. FOR Z = 1 TO 49
  258. DRAW "c10 u28 r1 d28 r1"
  259. NEXT Z
  260. DRAW "u28"
  261. DRAW "c15 bl90 bd5 d20 r60 u20 l60 d1 r1"
  262. FOR Z = 1 TO 29
  263. DRAW "c0 d18 r1 u18 r1"
  264. NEXT Z
  265. DRAW "d18"
  266. DRAW "c15"
  267. CIRCLE (540, 130), 5
  268. DRAW "bu20 bl300 u30 r100 d70 l100 u69 r1"
  269. FOR Z = 1 TO 49
  270. DRAW "c14 d68 r1 u68 r1"
  271. NEXT Z
  272. DRAW "d68"
  273. DRAW "c7 bl10 bu40 l80 u10 r80 d10"
  274. DRAW "c15 bl150 d20 u60 l80 d60 r1"
  275. FOR Z = 1 TO 39
  276. DRAW "c11 u59 r1 d59 r1"
  277. NEXT Z
  278. DRAW "u59"
  279. LET A = 200
  280. LET b = 100
  281. guyrta: COLOR 4
  282.         DRAW A$
  283.         CIRCLE (A, b), 20
  284.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  285.         COLOR 14, 0
  286.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  287.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  288.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  289.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  290.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  291.         COLOR 15
  292.         INPUT "> ", joe$
  293.         IF joe$ = "look" THEN GOTO looka
  294.         IF joe$ = "look television" THEN GOTO looktva
  295.         IF joe$ = "look tv" THEN GOTO looktva
  296.         IF joe$ = "use television" THEN GOTO usetva
  297.         IF joe$ = "use tv" THEN GOTO usetva
  298.         IF joe$ = "look cabinet" THEN GOTO lookcaba
  299.         IF joe$ = "look drawers" THEN GOTO lookcaba
  300.         IF joe$ = "look chest" THEN GOTO lookcaba
  301.         IF joe$ = "look dresser" THEN GOTO lookcaba
  302.         IF joe$ = "open dresser" THEN GOTO opendressa
  303.         IF joe$ = "open chest" THEN GOTO opendressa
  304.         IF joe$ = "open drawers" THEN GOTO opendressa
  305.         IF joe$ = "open cabinet" THEN GOTO opendressa
  306.         IF joe$ = "walk door" THEN GOTO exita
  307.         IF joe$ = "restore" THEN GOTO restorea
  308.         IF joe$ = "quit" THEN END
  309.         GOTO nonea
  310. restorea:
  311. OPEN "c:\trapped\saved$" FOR INPUT AS #1
  312. INPUT #1, jugs$
  313. IF jugs$ = "one" THEN GOTO jurnie
  314. IF jugs$ = "two" THEN CALL room3.bas(score, sap$, dollars)
  315. COLOR 1
  316. PRINT "You don't have a saved game, "; name$; "."
  317. CLOSE #1
  318. m$ = INPUT$(1)
  319. GOTO starta
  320. looka:
  321.       COLOR 1
  322.       PRINT "You are in your drab little rundown house wishing you could do"
  323.       PRINT "something better with your life.  You see your television, a"
  324.       PRINT "dresser, and the doorway to the garage."
  325.       m$ = INPUT$(1)
  326.       GOTO starta
  327.       END
  328. looktva:
  329.       COLOR 1
  330.       PRINT "Being as you haven't payed your bills for the last fifteen days"
  331.       PRINT "there's not much possibility that it could still be working."
  332.       m$ = INPUT$(1)
  333.       GOTO starta
  334.       END
  335. lookcaba:
  336.       COLOR 1
  337.       IF cabopen$ = "okay" THEN GOTO lookcbaa
  338.       PRINT "The dresser is closed."
  339.       m$ = INPUT$(1)
  340.       GOTO starta
  341. lookcbaa:
  342.       PRINT "You look in the dresser and find fifteen dollars, a carrot, a ladder"
  343.       PRINT "and your (YUCK!) dirty laundry."
  344.       LET laundry$ = "okay"
  345.       LET dollars = dollars + 15
  346.       LET rung$ = "okay"
  347.       LET carrot$ = "okay"
  348.       LET score = score + 18
  349.       m$ = INPUT$(1)
  350.       GOTO starta
  351. nonea:
  352.       COLOR 1
  353.       IF fort$ = "two" THEN GOTO none2a
  354.       IF fort$ = "three" THEN GOTO none3a
  355.       IF fort$ = "four" THEN GOTO none4a
  356.       IF fort$ = "five" THEN GOTO none5a
  357.       PRINT "What?  I'm sorry, I wasn't paying attention."
  358.       LET fort$ = "two"
  359.       m$ = INPUT$(1)
  360.       GOTO starta
  361. none2a:
  362.       PRINT "Unfortunately, I don't speak moronese."
  363.       m$ = INPUT$(1)
  364.       LET fort$ = "three"
  365.       GOTO starta
  366. none3a:
  367.       PRINT "And do you think it's gonna let you?"
  368.       m$ = INPUT$(1)
  369.       LET fort$ = "four"
  370.       GOTO starta
  371. none4a:
  372.       PRINT "That would be about as helpful as bashing your head in with a"
  373.       PRINT "large piece of iron."
  374.       m$ = INPUT$(1)
  375.       LET fort$ = "five"
  376.       GOTO starta
  377. none5a:
  378.       PRINT "You know, that's a felony in some states."
  379.       m$ = INPUT$(1)
  380.       LET fort$ = "nothing"
  381.       GOTO starta
  382. opendressa:
  383.       COLOR 1
  384.       IF crowbar$ = "okay" THEN GOTO dressa
  385.       PRINT "Alas, you cannot open the dresser as it has been glued shut."
  386.       PRINT "That's the last time you use creosote as a lubricant."
  387.       m$ = INPUT$(1)
  388.       GOTO starta
  389. dressa:
  390.       IF cabopen$ = "okay" THEN GOTO asser
  391.       PRINT "using your crowbar you manage to break the dresser drawer open."
  392.       LET cabopen$ = "okay"
  393.       LET score = score + 5
  394.       m$ = INPUT$(1)
  395.       GOTO starta
  396. asser:
  397.       PRINT "The dresser is permenantly open."
  398.       m$ = INPUT$(1)
  399.       GOTO starta
  400. usetva:
  401.       COLOR 1
  402.       IF antenna$ = "okay" THEN GOTO turvey
  403.       PRINT "You flip the switch and all that comes on is fuzz.  That stupid"
  404.       PRINT "cat must be on the antenna again."
  405.       m$ = INPUT$(1)
  406.       GOTO starta
  407. turvey:
  408.       IF lottery$ = "okay" THEN GOTO uyi
  409.       PRINT "You turn the television on."
  410.       m$ = INPUT$(1)
  411.       CALL TELEVISION(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  412.       GOTO starta
  413. uyi:
  414.       PRINT "You don't feel like watching anymore television."
  415.       m$ = INPUT$(1)
  416.       GOTO starta
  417. exita:
  418.       GOTO startb
  419. choice:
  420. SCREEN 8
  421. CLS
  422. COLOR 4, 7
  423. PRINT
  424. PRINT
  425. PRINT
  426. PRINT
  427. PRINT
  428. PRINT "                         WHERE DO YOU WANT TO GO?"
  429. PRINT
  430. PRINT
  431. PRINT
  432. PRINT "                  A.  HARDWARE  STORE"
  433. PRINT
  434. PRINT "                  B.  YOUR JOB"
  435. PRINT
  436. PRINT "                  C.  THE AIRPORT"
  437. PRINT
  438. PRINT "                  D.  LAUNDROMAT"
  439. PRINT
  440. PRINT "                  E.  YOUR HOUSE"
  441. PRINT
  442. INPUT "                > ", joe$
  443. IF joe$ = "A" GOTO joca
  444. IF joe$ = "B" GOTO jocb
  445. IF joe$ = "C" GOTO jocc
  446. IF joe$ = "D" GOTO jocd
  447. IF joe$ = "E" GOTO joce
  448. GOTO choice
  449. joca:
  450. GOTO starte
  451. jocb:
  452. IF dollars >= 2 THEN GOTO startb
  453. GOTO startd
  454. jocc:
  455. GOTO starth
  456. jocd:
  457. GOTO startf
  458. joce:
  459. GOTO startb
  460. starte:
  461. CLS
  462. COLOR 15
  463. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  464. PRINT ""
  465. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  466. PAINT (100, 100), 6, 37
  467. DRAW "c15 bd20 r100 d30 l100 u30"
  468. PAINT (100, 100), 8, 37
  469. DRAW "c15 bd40 l80 br180 r370"
  470. PAINT (100, 100), 3, 37
  471. DRAW "c15 bd40 br280 u50 r50 d50"
  472. PAINT (100, 100), 2, 37
  473. x = 70
  474. y = 101
  475. COLOR 4
  476.         CIRCLE (x, y), 20
  477.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  478.         COLOR 14, 0
  479.         CIRCLE (x, y), 19: CIRCLE (x, y), 18: CIRCLE (x, y), 17: CIRCLE (x, y), 16: CIRCLE (x, y), 15: CIRCLE (x, y), 14: CIRCLE (x, y), 13: CIRCLE (x, y), 12: CIRCLE (x, y), 11: CIRCLE (x, y), 10
  480.         DRAW "c1 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c4 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  481.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c1 br5 bd2 d20 r25 u20 c4 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  482.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  483.         DRAW "c1 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  484.         LET A = 300
  485.         LET b = 101
  486.         COLOR 4
  487.         CIRCLE (A, b), 20
  488.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  489.         COLOR 14, 0
  490.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  491.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  492.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  493.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  494.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  495. k = 500
  496. l = 120
  497. COLOR 15
  498. CIRCLE (k, l), 1
  499. DRAW "l50"
  500. FOR Z = 1 TO 50
  501. DRAW "u50 r1 d50 r1"
  502. NEXT Z
  503. DRAW "u50"
  504. INPUT "> ", joe$
  505. IF joe$ = "look" THEN GOTO looke
  506. IF joe$ = "talk to Vince" THEN GOTO vince
  507. IF joe$ = "look sign" THEN GOTO signe
  508. IF joe$ = "walk door" THEN GOTO exite
  509. IF joe$ = "quit" THEN GOTO quite
  510. GOTO nonee
  511. looke:
  512. COLOR 1
  513. PRINT "You are in Vince's hardware shop.  A sign is hanging on the right wall."
  514. m$ = INPUT$(1)
  515. GOTO starte
  516. exite:
  517. GOTO startb
  518. quite:
  519. END
  520. signe:
  521. SCREEN 1
  522. CLS
  523. COLOR 7, 4
  524. PRINT
  525. PRINT
  526. PRINT
  527. PRINT
  528. PRINT
  529. PRINT "GOING OUT OF BUSINESS SALE!!!"
  530. PRINT
  531. PRINT
  532. PRINT
  533. PRINT "ALL CROWBARS JUST $2.00!!!"
  534. LET sert$ = "okay"
  535. m$ = INPUT$(1)
  536. SCREEN 8
  537. GOTO starte
  538. vince:
  539. COLOR 5
  540. PRINT "`Whatd'ya want'a buy, pardner?'"
  541. IF sert$ = "okay" AND dollars = 2 THEN GOTO vincent
  542. COLOR 1
  543. PRINT "`I...don't know.'"
  544. COLOR 5
  545. PRINT "`Then come back when you do.  Good day.'"
  546. m$ = INPUT$(1)
  547. GOTO starte
  548. vincent:
  549. COLOR 1
  550. PRINT "`I want to buy a crowbar'"
  551. COLOR 5
  552. PRINT "`That will be $2.00.  Thank you.'"
  553. LET crowbar$ = "okay"
  554. m$ = INPUT$(1)
  555. GOTO starte
  556. nonee:
  557.       COLOR 1
  558.       IF fort$ = "two" THEN GOTO none2e
  559.       IF fort$ = "three" THEN GOTO none3e
  560.       IF fort$ = "four" THEN GOTO none4e
  561.       IF fort$ = "five" THEN GOTO none5e
  562.       PRINT "What?  I'm sorry, I wasn't paying attention."
  563.       LET fort$ = "two"
  564.       m$ = INPUT$(1)
  565.       GOTO starte
  566. none2e:
  567.       PRINT "Unfortunately, I don't speak moronese."
  568.       m$ = INPUT$(1)
  569.       LET fort$ = "three"
  570.       GOTO starte
  571. none3e:
  572.       PRINT "And do you think it's gonna let you?"
  573.       m$ = INPUT$(1)
  574.       LET fort$ = "four"
  575.       GOTO starte
  576. none4e:
  577.       PRINT "That would be about as helpful as bashing your head in with a"
  578.       PRINT "large piece of iron."
  579.       m$ = INPUT$(1)
  580.       LET fort$ = "five"
  581.       GOTO starte
  582. none5e:
  583.       PRINT "You know, that's a felony in some states."
  584.       m$ = INPUT$(1)
  585.       LET fort$ = "nothing"
  586.       GOTO starte
  587. SCREEN 8
  588. startd:
  589. CLS
  590. COLOR 15
  591. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  592. PRINT ""
  593. DRAW "c15 bu50 l300 d120 r550 u120 l550 r550 g45 d30 f43 bu45 bl43"
  594.         A = 300
  595.         b = 100
  596.         COLOR 4, 0
  597.         CIRCLE (A, b), 20
  598.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  599.         COLOR 14, 0
  600.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  601.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  602.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  603.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  604.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  605. counterd:
  606. c = 523
  607. d = 125
  608. COLOR 15
  609. CIRCLE (c, d), 1
  610. DRAW "l502 d1"
  611. COLOR 5
  612. FOR Z = 1 TO 252
  613. DRAW "c5 d43 r1 u43 r1"
  614. NEXT Z
  615. FOR Z = 1 TO 22
  616. DRAW "f43 l1 h43 l1"
  617. NEXT Z
  618. hatd:
  619. l = 300
  620. m = 95
  621. COLOR 15
  622. CIRCLE (l, m), 1
  623. DRAW "u10 l20 d10"
  624. FOR Z = 1 TO 19
  625. DRAW "r1 u10 r1 d10"
  626. NEXT Z
  627. IF dad$ <> "okay" THEN GOTO intercomd
  628. IF order$ <> "okay" THEN GOTO orderingd
  629. IF bag$ = "okay" THEN GOTO bagd
  630. GOTO inputd
  631. bagd:
  632. v = 150
  633. W = 125
  634. COLOR 15
  635. CIRCLE (v, W), 1
  636. DRAW "l20"
  637. FOR Z = 1 TO 11
  638. DRAW "e10 r1 g10 r1"
  639. NEXT Z
  640. GOTO inputd
  641. intercomd:
  642. COLOR 1
  643. PRINT "You put on your dinky hat as a voice blasts over then intercom -"
  644. COLOR 10
  645. PRINT "`"; name$; ", you're late for work again!  This is the third time in a"
  646. PRINT "row!  How are we supposed to run a business here...(BLAH BLAH BLAH BLAH)"
  647. PRINT "...when I was your age (BLAH BLAH BLAH BLAH BLAH) ect., ect.  Now, get to WORK!'"
  648. COLOR 1
  649. PRINT "`Yes, father.'"
  650. m$ = INPUT$(1)
  651. LET dad$ = "okay"
  652. GOTO startd
  653. orderingd:
  654. COLOR 1
  655. PRINT "In your earphones you hear the words -"
  656. COLOR 12
  657. PRINT "`We'd like one BLT sandwich, one diet cola, one doughnut, and a ham and"
  658. PRINT "cheese on rye.'"
  659. m$ = INPUT$(1)
  660. LET order$ = "okay"
  661. GOTO startd
  662. inputd:
  663. COLOR 15
  664. INPUT "> ", joe$
  665. IF joe$ = "look" THEN GOTO lookd
  666. IF joe$ = "use microphone" THEN GOTO microd
  667. IF joe$ = "get bag" THEN GOTO bgd
  668. IF joe$ = "take bag" THEN GOTO bgd
  669. GOTO noned
  670. lookd:
  671. COLOR 1
  672. PRINT "You are in the McDonalds booth taking orders.  In front of you there"
  673. PRINT "is a microphone."
  674. IF bag$ <> "okay" THEN GOTO lookyd
  675. COLOR 12
  676. PRINT "YOU ALSO SEE - A BAG"
  677. GOTO lookyd
  678. lookyd:
  679. m$ = INPUT$(1)
  680. GOTO startd
  681. microd:
  682. IF bag$ = "okay" THEN GOTO macyd
  683. LET score = score + 2
  684. COLOR 1
  685. PRINT "You repeat the order into the microphone and a baggie is chunked at"
  686. PRINT "your head."
  687. LET bag$ = "okay"
  688. GOTO macyd
  689. macyd:
  690. m$ = INPUT$(1)
  691. GOTO startd
  692. bgd:
  693. IF bag$ <> "okay" THEN GOTO bgyd
  694. COLOR 1
  695. LET score = score + 12
  696. PRINT "You take the bag and hand it to the costomer."
  697. m$ = INPUT$(1)
  698. GOTO laterd
  699. bgyd:
  700. m$ = INPUT$(1)
  701. GOTO startd
  702. noned:
  703.       COLOR 1
  704.       IF fort$ = "two" THEN GOTO none2d
  705.       IF fort$ = "three" THEN GOTO none3d
  706.       IF fort$ = "four" THEN GOTO none4d
  707.       IF fort$ = "five" THEN GOTO none5d
  708.       PRINT "What?  I'm sorry, I wasn't paying attention."
  709.       LET fort$ = "two"
  710.       m$ = INPUT$(1)
  711.       GOTO startd
  712. none2d:
  713.       PRINT "Unfortunately, I don't speak moronese."
  714.       m$ = INPUT$(1)
  715.       LET fort$ = "three"
  716.       GOTO startd
  717. none3d:
  718.       PRINT "And do you think it's gonna let you?"
  719.       m$ = INPUT$(1)
  720.       LET fort$ = "four"
  721.       GOTO startd
  722. none4d:
  723.       PRINT "That would be about as helpful as bashing your head in with a"
  724.       PRINT "large piece of iron."
  725.       m$ = INPUT$(1)
  726.       LET fort$ = "five"
  727.       GOTO startd
  728. none5d:
  729.       PRINT "You know, that's a felony in some states."
  730.       m$ = INPUT$(1)
  731.       LET fort$ = "nothing"
  732.       GOTO startd
  733. laterd:
  734. CLS
  735. SCREEN 1
  736. PRINT
  737. PRINT
  738. PRINT
  739. PRINT "               LATER ..."
  740. FOR Z = 1 TO 5000
  741. NEXT Z
  742. PRINT
  743. PRINT
  744. PRINT
  745. PRINT
  746. PRINT "         MUCH, MUCH LATER ..."
  747. FOR Z = 1 TO 5000
  748. NEXT Z
  749. CLS
  750. SCREEN 8
  751. COLOR 10
  752. PRINT
  753. PRINT
  754. PRINT
  755. PRINT
  756. PRINT
  757. PRINT
  758. PRINT
  759. PRINT "`Alright, you can go now, son.  Here's your paycheck.'"
  760. FOR Z = 1 TO 5000
  761. NEXT Z
  762. LET dollars = dollars + 2
  763. GOTO startb
  764. SCREEN 8
  765. starth:
  766. CLS
  767. COLOR 15
  768. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  769. PRINT ""
  770. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  771. DRAW "c15 l300 d90 r400 u50 r50 d50 l50 r150"
  772. LOCATE 9, 50
  773. PRINT "<--  TO PLANES"
  774. LOCATE 9, 10
  775. PRINT "TO PARADISE ISLE - 12:44"
  776. COLOR 4
  777.         A = 300
  778.         b = 100
  779.         CIRCLE (A, b), 20
  780.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  781.         COLOR 14, 0
  782.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  783.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  784.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  785.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  786.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  787. COLOR 9
  788.         c = 100
  789.         d = 100
  790.         CIRCLE (c, d), 20
  791.         DRAW "c10 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  792.         COLOR 10
  793.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  794.         DRAW "c9 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  795.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c9 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  796.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  797.         DRAW "c9 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  798. COLOR 15
  799. LOCATE 3, 1
  800. INPUT "> ", joe$
  801. IF joe$ = "look" THEN GOTO lookh
  802. IF joe$ = "look man" THEN GOTO lookmanh
  803. IF joe$ = "talk man" THEN GOTO talkmanh
  804. IF joe$ = "talk to man" THEN GOTO talkmanh
  805. IF joe$ = "walk door" THEN GOTO exith
  806. IF joe$ = "quit" THEN GOTO quith
  807. GOTO noneh
  808. crunth:
  809. m$ = INPUT$(1)
  810. GOTO starth
  811. lookh:
  812. COLOR 1
  813. PRINT "You're in the airport terminal.  You're in the airport terminal."
  814. GOTO crunth
  815. lookmanh:
  816. COLOR 1
  817. PRINT "His face is green and he's holding his stomach, trying not to throw"
  818. PRINT "up."
  819. GOTO crunth
  820. quith:
  821. END
  822. exith:
  823. GOTO startb
  824. talkmanh:
  825. IF lottery$ = "okay" THEN GOTO kcufh
  826. IF rolls$ = "one" THEN GOTO h2
  827. COLOR 1
  828. PRINT "`You look sort of sick, my friend.'"
  829. COLOR 3
  830. PRINT "`Yeh, I (URP!) tried some of the airplane food...'"
  831. LET rolls$ = "one"
  832. GOTO crunth
  833. h2:
  834. COLOR 1
  835. PRINT "`I need to go to Paradise Isle.'"
  836. COLOR 3
  837. PRINT "`Not without fifty million dollars, bub (URP!)'"
  838. COLOR 1
  839. PRINT "`FIFTY MILLION DOLLARS?!?!?!?!'"
  840. COLOR 3
  841. PRINT "`Well, it's a very exclusive (URP!) island.'"
  842. LET rolls$ = "crunny"
  843. GOTO crunth
  844. kcufh:
  845. COLOR 1
  846. PRINT "`Here's fifty million dollars.  Can I go to Paradise Isle NOW?!?'"
  847. COLOR 3
  848. PRINT "`Sure, hop aboard...(BLUUUUUURRRRPPP!!!!!) (SPIT, SNIFFLE, SLURP...)'"
  849. m$ = INPUT$(1)
  850. CALL scene3(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  851. GOTO jurnie
  852. noneh:
  853.       COLOR 1
  854.       IF fort$ = "two" THEN GOTO none2h
  855.       IF fort$ = "three" THEN GOTO none3h
  856.       IF fort$ = "four" THEN GOTO none4h
  857.       IF fort$ = "five" THEN GOTO none5h
  858.       PRINT "What?  I'm sorry, I wasn't paying attention."
  859.       LET fort$ = "two"
  860.       m$ = INPUT$(1)
  861.       GOTO starth
  862. none2h:
  863.       PRINT "Unfortunately, I don't speak moronese."
  864.       m$ = INPUT$(1)
  865.       LET fort$ = "three"
  866.       GOTO starth
  867. none3h:
  868.       PRINT "And do you think it's gonna let you?"
  869.       m$ = INPUT$(1)
  870.       LET fort$ = "four"
  871.       GOTO starth
  872. none4h:
  873.       PRINT "That would be about as helpful as bashing your head in with a"
  874.       PRINT "large piece of iron."
  875.       m$ = INPUT$(1)
  876.       LET fort$ = "five"
  877.       GOTO starth
  878. none5h:
  879.       PRINT "You know, that's a felony in some states."
  880.       m$ = INPUT$(1)
  881.       LET fort$ = "nothing"
  882.       GOTO starth
  883. SCREEN 8
  884. startf:
  885. CLS
  886. COLOR 15
  887. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  888. PRINT ""
  889. DRAW "c15 bu50 l300 d120 r550 u120 l550 d100 r460 u50 r50 d50 l50 r90"
  890. IF lottery$ = "got" OR lottery$ = "okay" THEN GOTO foof
  891. b = 100
  892. c = 100
  893. COLOR 14
  894. d = 1
  895. CIRCLE (b, c), d
  896. d = 2
  897. FOR Z = 1 TO 30
  898. CIRCLE (b, c), d
  899. LET d = d + 1
  900. NEXT Z
  901. COLOR 4
  902. d = 50
  903. LET c = c + 35
  904. CIRCLE (b, c), d
  905. COLOR 11
  906. d = 49
  907. FOR Z = 1 TO 49
  908. CIRCLE (b, c), d
  909. LET d = d - 1
  910. NEXT Z
  911. COLOR 14
  912. LET c = c - 35
  913. LET b = b + 20
  914. LET c = c + 10
  915. d = 1
  916. FOR Z = 1 TO 20
  917. CIRCLE (b, c), d
  918. d = d + 1
  919. NEXT Z
  920. DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1"
  921. FOR Z = 1 TO 8
  922. DRAW "c14 d5 r1 u5 r1"
  923. NEXT Z
  924. foof:
  925. r = 300
  926. s = 150
  927. COLOR 15
  928. CIRCLE (r, s), 1
  929. DRAW "c15 l100"
  930. FOR Z = 1 TO 50
  931. DRAW "u50 r1 d50 r1"
  932. NEXT Z
  933. DRAW "c0 bh10 bl10 u30 l60 d30 r60"
  934. A = 400
  935. b = 100
  936. COLOR 4
  937.         CIRCLE (A, b), 20
  938.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  939.         COLOR 14, 0
  940.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  941.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  942.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  943.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  944.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  945. COLOR 15
  946. INPUT "> ", joe$
  947. IF joe$ = "look" THEN GOTO lookf
  948. IF joe$ = "talk to woman" THEN GOTO deathf
  949. IF joe$ = "talk to lady" THEN GOTO deathf
  950. IF joe$ = "kill woman" THEN GOTO deathf
  951. IF joe$ = "kill lady" THEN GOTO deathf
  952. IF joe$ = "walk woman" THEN GOTO deathf
  953. IF joe$ = "walk lady" THEN GOTO deathf
  954. IF joe$ = "use washer" THEN GOTO washf
  955. IF joe$ = "walk door" THEN GOTO exitf
  956. IF joe$ = "quit" THEN GOTO quitf
  957. GOTO nonef
  958. lookf:
  959. COLOR 1
  960. PRINT "You are in the laundrer's.  A rather old and grotesque woman is standing"
  961. PRINT "beside a washer waiting for her clothes to finish drying."
  962. m$ = INPUT$(1)
  963. GOTO startf
  964. washf:
  965. COLOR 1
  966. IF laundry$ = "okay" THEN GOTO wishyf
  967. PRINT "What are you going to wash?  No... don't tell me.  I don't even want to"
  968. PRINT "HEAR it."
  969. m$ = INPUT$(1)
  970. GOTO startf
  971. wishyf:
  972. PRINT "You open the washer and replace the woman's dirty laundry with your"
  973. PRINT "own.  The washer suddenly stops and the woman runs off with your"
  974. PRINT "clothes.  A lottery ticket falls out of her pocket onto the floor."
  975. PRINT "You take it."
  976. LET score = score + 12
  977. LET laundry$ = "nothing"
  978. LET lottery$ = "got"
  979. m$ = INPUT$(1)
  980. GOTO startf
  981. deathf:
  982. CALL scene2(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  983. nonef:
  984.       COLOR 1
  985.       IF fort$ = "two" THEN GOTO none2f
  986.       IF fort$ = "three" THEN GOTO none3f
  987.       IF fort$ = "four" THEN GOTO none4f
  988.       IF fort$ = "five" THEN GOTO none5f
  989.       PRINT "What?  I'm sorry, I wasn't paying attention."
  990.       LET fort$ = "two"
  991.       m$ = INPUT$(1)
  992.       GOTO startf
  993. none2f:
  994.       PRINT "Unfortunately, I don't speak moronese."
  995.       m$ = INPUT$(1)
  996.       LET fort$ = "three"
  997.       GOTO startf
  998. none3f:
  999.       PRINT "And do you think it's gonna let you?"
  1000.       m$ = INPUT$(1)
  1001.       LET fort$ = "four"
  1002.       GOTO startf
  1003. none4f:
  1004.       PRINT "That would be about as helpful as bashing your head in with a"
  1005.       PRINT "large piece of iron."
  1006.       m$ = INPUT$(1)
  1007.       LET fort$ = "five"
  1008.       GOTO startf
  1009. none5f:
  1010.       PRINT "You know, that's a felony in some states."
  1011.       m$ = INPUT$(1)
  1012.       LET fort$ = "nothing"
  1013.       GOTO startf
  1014. quitf:
  1015. END
  1016. exitf:
  1017. GOTO startb
  1018. SCREEN 8
  1019. startg:
  1020. CLS
  1021. COLOR 15
  1022. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1023. PRINT ""
  1024. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  1025. IF antenna$ = "okay" THEN GOTO damng
  1026. u = 200
  1027. v = 80
  1028. COLOR 15
  1029. CIRCLE (u, v), 1
  1030. DRAW "u5 e10 f5 r25 f5 d10 g5 d10 g4 d10 r5 d5 l15 u10 l90 d5 r5 d5 l15 u20 h10 u10 e5 f3 d10 f5 r71 u12"
  1031. damng:
  1032. PAINT (100, 100), 11, 37
  1033. DRAW "c15 bu50 l80 d120 r1 bu1"
  1034. FOR Z = 1 TO 200
  1035. DRAW "c4 u50 r1 d50 r1"
  1036. NEXT Z
  1037. o = 100
  1038. p = 119
  1039. COLOR 1
  1040. CIRCLE (o, p), 1
  1041. DRAW "c1 u20 e10 h8 f3 e3 g6"
  1042. c = 350
  1043. d = 250
  1044. COLOR 15
  1045. CIRCLE (c, d), 1
  1046. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  1047. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  1048. COLOR 4
  1049. A = 300
  1050. b = 70
  1051.         CIRCLE (A, b), 20
  1052.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1053.         COLOR 14, 0
  1054.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1055.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1056.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1057.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1058.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  1059. COLOR 15
  1060. INPUT "> ", joe$
  1061. IF joe$ = "look" THEN GOTO lookg
  1062. IF joe$ = "look ladder" THEN GOTO lookladdg
  1063. IF joe$ = "look cat" THEN GOTO lookcatg
  1064. IF joe$ = "kill cat" THEN GOTO killcatg
  1065. IF joe$ = "use rock on cat" THEN GOTO catg
  1066. IF joe$ = "throw rock at cat" THEN GOTO catg
  1067. IF joe$ = "throw rock" THEN GOTO catg
  1068. IF joe$ = "use ladder" THEN GOTO exitg
  1069. IF joe$ = "quit" THEN GOTO quitg
  1070. IF joe$ = "pick up cat" THEN GOTO pickg
  1071. IF joe$ = "take cat" THEN GOTO pickg
  1072. IF joe$ = "get cat" THEN GOTO pickg
  1073. GOTO noneg
  1074. quitg:
  1075. END
  1076. exitg:
  1077. GOTO startb
  1078. lookg:
  1079. COLOR 1
  1080. PRINT "You're on top of the roof looking at your stupid antenna."
  1081. PRINT "There's also a stupid rock lying at your feet."
  1082. IF antenna$ = "okay" THEN GOTO forori
  1083. PRINT "An equally stupid cat is staring at you and blocking the stupid reception."
  1084. GOTO forori
  1085. forori:
  1086. m$ = INPUT$(1)
  1087. GOTO startg
  1088. lookladdg:
  1089. COLOR 1
  1090. PRINT "You've fixed the ladder rung."
  1091. m$ = INPUT$(1)
  1092. GOTO startg
  1093. lookcatg:
  1094. IF antenna$ = "okay" THEN GOTO forori
  1095. COLOR 1
  1096. PRINT "The black cat is looking at you funny."
  1097. GOTO forori
  1098. killcatg:
  1099. IF antenna$ = "okay" THEN GOTO forori
  1100. COLOR 1
  1101. PRINT "The Society for Prevention of Cruelty to Animals would probably do the"
  1102. PRINT "same to you."
  1103. GOTO forori
  1104. catg:
  1105. IF antenna$ = "okay" THEN GOTO forori
  1106. LET catish$ = "okay"
  1107. COLOR 1
  1108. PRINT "You pick up the rock and throw it at the cat.  The cat becomes"
  1109. PRINT "confused."
  1110. GOTO forori
  1111. pickg:
  1112. IF antenna$ = "okay" THEN GOTO forori
  1113. IF catish$ <> "okay" THEN GOTO rawrg
  1114. COLOR 1
  1115. PRINT "You pick up the cat and shove it in your pocket."
  1116. LET antenna$ = "okay"
  1117. LET score = score + 10
  1118. GOTO forori
  1119. rawrg:
  1120. COLOR 1
  1121. PRINT "The cat scratches your face and backs away."
  1122. GOTO forori
  1123. noneg:
  1124.       COLOR 1
  1125.       IF fort$ = "two" THEN GOTO none2g
  1126.       IF fort$ = "three" THEN GOTO none3g
  1127.       IF fort$ = "four" THEN GOTO none4g
  1128.       IF fort$ = "five" THEN GOTO none5g
  1129.       PRINT "What?  I'm sorry, I wasn't paying attention."
  1130.       LET fort$ = "two"
  1131.       m$ = INPUT$(1)
  1132.       GOTO startg
  1133. none2g:
  1134.       PRINT "Unfortunately, I don't speak moronese."
  1135.       m$ = INPUT$(1)
  1136.       LET fort$ = "three"
  1137.       GOTO startg
  1138. none3g:
  1139.       PRINT "And do you think it's gonna let you?"
  1140.       m$ = INPUT$(1)
  1141.       LET fort$ = "four"
  1142.       GOTO startg
  1143. none4g:
  1144.       PRINT "That would be about as helpful as bashing your head in with a"
  1145.       PRINT "large piece of iron."
  1146.       m$ = INPUT$(1)
  1147.       LET fort$ = "five"
  1148.       GOTO startg
  1149. none5g:
  1150.       PRINT "You know, that's a felony in some states."
  1151.       m$ = INPUT$(1)
  1152.       LET fort$ = "nothing"
  1153.       GOTO startg
  1154. jurnie:
  1155. END SUB
  1156.  
  1157. SUB room2.bas (score)
  1158. SCREEN 8
  1159. starti:
  1160. CLS
  1161. COLOR 15
  1162. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1163. PRINT ""
  1164. DRAW "c15 bu50 l300 d120 r550 u120 l550 r1 d1"
  1165. PAINT (450, 150), 6, 37
  1166. DRAW "c15 u50 r50 d50 l50"
  1167. PAINT (100, 100), 14, 37
  1168. DRAW "c15 bd40 br50 r300 br50 r70 bl420 g30 e20"
  1169. PAINT (98, 100), 1, 37
  1170. DRAW "c15 bd50 r41 l118"
  1171. PAINT (98, 100), 11, 37
  1172. COLOR 2
  1173. CIRCLE (450, 100), 30
  1174. s = 30
  1175. FOR Z = 1 TO 30
  1176. LET s = s - 1
  1177. CIRCLE (450, 100), s
  1178. NEXT Z
  1179. CIRCLE (490, 105), 30
  1180. LET s = 30
  1181. FOR Z = 1 TO 30
  1182. LET s = s - 1
  1183. CIRCLE (490, 105), s
  1184. NEXT Z
  1185. CIRCLE (415, 80), 30
  1186. LET s = 30
  1187. FOR Z = 1 TO 30
  1188. LET s = s - 1
  1189. CIRCLE (415, 80), s
  1190. NEXT Z
  1191. CIRCLE (455, 65), 30
  1192. LET s = 30
  1193. FOR Z = 1 TO 30
  1194. LET s = s - 1
  1195. CIRCLE (455, 65), s
  1196. NEXT Z
  1197. CIRCLE (490, 70), 30
  1198. LET s = 30
  1199. FOR Z = 1 TO 30
  1200. LET s = s - 1
  1201. CIRCLE (490, 70), s
  1202. NEXT Z
  1203. CIRCLE (525, 85), 30
  1204. LET s = 30
  1205. FOR Z = 1 TO 30
  1206. LET s = s - 1
  1207. CIRCLE (525, 85), s
  1208. NEXT Z
  1209. CIRCLE (470, 85), 30
  1210. LET s = 30
  1211. FOR Z = 1 TO 30
  1212. LET s = s - 1
  1213. CIRCLE (470, 85), s
  1214. NEXT Z
  1215. A = 200
  1216. b = 100
  1217. COLOR 4
  1218.         CIRCLE (A, b), 20
  1219.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1220.         COLOR 14, 0
  1221.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1222.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1223.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1224.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1225.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  1226. COLOR 15
  1227. INPUT "> ", joe$
  1228. IF joe$ = "look" THEN GOTO looki
  1229. IF joe$ = "look tree" THEN GOTO looktreei
  1230. IF joe$ = "look plane" THEN GOTO lookplanei
  1231. IF joe$ = "walk right" THEN GOTO walkri
  1232. IF joe$ = "walk east" THEN GOTO walkri
  1233. IF joe$ = "walk west" THEN GOTO walkwi
  1234. IF joe$ = "walk right" THEN GOTO walkwi
  1235. IF joe$ = "quit" THEN GOTO quiti
  1236. GOTO nonei
  1237. tyi:
  1238. m$ = INPUT$(1)
  1239. GOTO starti
  1240. looki:
  1241. COLOR 1
  1242. PRINT "You think you're on Paradise Isle, but..."
  1243. PRINT "Wait, there's a tree to your right."
  1244. GOTO tyi
  1245. lookplanei:
  1246. COLOR 1
  1247. PRINT "It's not here.  For all you know it could have floated to Mexico by"
  1248. PRINT "now."
  1249. GOTO tyi
  1250. looktreei:
  1251. IF dollars > 1 THEN GOTO tyi
  1252. COLOR 1
  1253. PRINT "You search the tree and find fifty dollars."
  1254. LET dollars = 50
  1255. LET score = score + 2
  1256. GOTO tyi
  1257. walkwi:
  1258. COLOR 1
  1259. PRINT "You can't walk on WATER, you bink!"
  1260. GOTO tyi
  1261. walkri:
  1262. GOTO startj
  1263. quiti:
  1264. END
  1265. nonei:
  1266.       COLOR 1
  1267.       IF fort$ = "two" THEN GOTO none2i
  1268.       IF fort$ = "three" THEN GOTO none3i
  1269.       IF fort$ = "four" THEN GOTO none4i
  1270.       IF fort$ = "five" THEN GOTO none5i
  1271.       PRINT "What?  I'm sorry, I wasn't paying attention."
  1272.       LET fort$ = "two"
  1273.       m$ = INPUT$(1)
  1274.       GOTO starti
  1275. none2i:
  1276.       PRINT "Unfortunately, I don't speak moronese."
  1277.       m$ = INPUT$(1)
  1278.       LET fort$ = "three"
  1279.       GOTO starti
  1280. none3i:
  1281.       PRINT "And do you think it's gonna let you?"
  1282.       m$ = INPUT$(1)
  1283.       LET fort$ = "four"
  1284.       GOTO starti
  1285. none4i:
  1286.       PRINT "That would be about as helpful as bashing your head in with a"
  1287.       PRINT "large piece of iron."
  1288.       m$ = INPUT$(1)
  1289.       LET fort$ = "five"
  1290.       GOTO starti
  1291. none5i:
  1292.       PRINT "You know, that's a felony in some states."
  1293.       m$ = INPUT$(1)
  1294.       LET fort$ = "nothing"
  1295.       GOTO starti
  1296. SCREEN 8
  1297. startj:
  1298. CLS
  1299. COLOR 15
  1300. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1301. PRINT ""
  1302. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  1303. COLOR 15
  1304. PAINT (100, 100), 6, 37
  1305. c = 350
  1306. d = 70
  1307. CIRCLE (c, d), 1
  1308. IF statue$ <> "okay" THEN DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  1309. PAINT (100, 100), 14, 37
  1310. DRAW "c15 bd40 l80 r550"
  1311. PAINT (100, 100), 11, 37
  1312. COLOR 2
  1313. CIRCLE (425, 140), 30
  1314. s = 30
  1315. FOR A = 1 TO 30
  1316. LET s = s - 1
  1317. CIRCLE (425, 140), s
  1318. NEXT A
  1319. CIRCLE (470, 145), 30
  1320. LET s = 30
  1321. FOR A = 1 TO 30
  1322. LET s = s - 1
  1323. CIRCLE (470, 145), s
  1324. NEXT A
  1325. CIRCLE (390, 120), 30
  1326. LET s = 30
  1327. FOR A = 1 TO 30
  1328. LET s = s - 1
  1329. CIRCLE (390, 120), s
  1330. NEXT A
  1331. CIRCLE (430, 105), 30
  1332. LET s = 30
  1333. FOR A = 1 TO 30
  1334. LET s = s - 1
  1335. CIRCLE (430, 105), s
  1336. NEXT A
  1337. CIRCLE (470, 110), 30
  1338. LET s = 30
  1339. FOR A = 1 TO 30
  1340. LET s = s - 1
  1341. CIRCLE (470, 110), s
  1342. NEXT A
  1343. CIRCLE (500, 125), 30
  1344. LET s = 30
  1345. FOR A = 1 TO 30
  1346. LET s = s - 1
  1347. CIRCLE (500, 125), s
  1348. NEXT A
  1349. CIRCLE (445, 125), 30
  1350. LET s = 30
  1351. FOR A = 1 TO 30
  1352. LET s = s - 1
  1353. CIRCLE (445, 125), s
  1354. NEXT A
  1355. A = 100
  1356. b = 100
  1357. COLOR 4
  1358.         CIRCLE (A, b), 20
  1359.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1360.         COLOR 14, 0
  1361.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1362.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1363.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1364.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1365.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1366. COLOR 15
  1367. INPUT "> ", joe$
  1368. IF joe$ = "look" THEN GOTO lookj
  1369. IF joe$ = "look statue" THEN GOTO lookstatj
  1370. IF joe$ = "look bush" THEN GOTO lookbushj
  1371. IF joe$ = "get statue" THEN GOTO statuej
  1372. IF joe$ = "take statue" THEN GOTO statuej
  1373. IF joe$ = "walk west" THEN GOTO exitj
  1374. IF joe$ = "walk east" THEN GOTO startm
  1375. IF joe$ = "quit" THEN GOTO quitj
  1376. GOTO nonej
  1377. quitj:
  1378. END
  1379. exitj:
  1380. GOTO starti
  1381. raj:
  1382. m$ = INPUT$(1)
  1383. GOTO startj
  1384. lookj:
  1385. COLOR 1
  1386. PRINT "You're on the far east side of the island.  A bush is lining the side"
  1387. PRINT "of the road."
  1388. IF statue$ = "okay" THEN GOTO raj
  1389. PRINT "There's some sort of stupid Easter Island statue staring at you."
  1390. GOTO raj
  1391. lookstatj:
  1392. IF statue$ = "okay" THEN GOTO raj
  1393. COLOR 1
  1394. PRINT "This looks like some sort of...of...uh..."
  1395. GOTO raj
  1396. statuej:
  1397. IF statue$ = "okay" THEN GOTO raj
  1398. COLOR 1
  1399. PRINT "You grab the immense statue and shove it in your pocket."
  1400. LET statue$ = "okay"
  1401. LET score = score + 5
  1402. GOTO raj
  1403. lookbushj:
  1404. IF retroj$ = "okay" THEN GOTO startk
  1405. COLOR 1
  1406. PRINT "You look behind the bush and find... A HIDDEN VILLAGE!!!"
  1407. LET score = score + 1
  1408. LET retroj$ = "okay"
  1409. GOTO startk
  1410. nonej:
  1411.       COLOR 1
  1412.       IF fort$ = "two" THEN GOTO none2j
  1413.       IF fort$ = "three" THEN GOTO none3j
  1414.       IF fort$ = "four" THEN GOTO none4j
  1415.       IF fort$ = "five" THEN GOTO none5j
  1416.       PRINT "What?  I'm sorry, I wasn't paying attention."
  1417.       LET fort$ = "two"
  1418.       m$ = INPUT$(1)
  1419.       GOTO startj
  1420. none2j:
  1421.       PRINT "Unfortunately, I don't speak moronese."
  1422.       m$ = INPUT$(1)
  1423.       LET fort$ = "three"
  1424.       GOTO startj
  1425. none3j:
  1426.       PRINT "And do you think it's gonna let you?"
  1427.       m$ = INPUT$(1)
  1428.       LET fort$ = "four"
  1429.       GOTO startj
  1430. none4j:
  1431.       PRINT "That would be about as helpful as bashing your head in with a"
  1432.       PRINT "large piece of iron."
  1433.       m$ = INPUT$(1)
  1434.       LET fort$ = "five"
  1435.       GOTO startj
  1436. none5j:
  1437.       PRINT "You know, that's a felony in some states."
  1438.       m$ = INPUT$(1)
  1439.       LET fort$ = "nothing"
  1440.       GOTO startj
  1441. SCREEN 8
  1442. startk:
  1443. CLS
  1444. COLOR 15
  1445. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1446. PRINT ""
  1447. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  1448. COLOR 15
  1449. PAINT (100, 100), 6, 37
  1450. CIRCLE (50, 120), 1
  1451. DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20"
  1452. COLOR 15
  1453. CIRCLE (300, 120), 1
  1454. DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20"
  1455. PAINT (40, 100), 14, 37
  1456. COLOR 15
  1457. CIRCLE (55, 50), 1
  1458. DRAW "c15 g50 e50 r140 f50 l240"
  1459. COLOR 15
  1460. CIRCLE (305, 50), 1
  1461. DRAW "c15 g50 e50 r140 f50 l240"
  1462. COLOR 15
  1463. DRAW "c15 bd40 l54 bl152 l28 br200 r78 br152 r118"
  1464. PAINT (40, 110), 11, 37
  1465. PAINT (30, 60), 11, 37
  1466. PAINT (250, 60), 11, 37
  1467. PAINT (500, 60), 11, 37
  1468. A = 500
  1469. b = 115
  1470. COLOR 4
  1471.         CIRCLE (A, b), 20
  1472.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1473.         COLOR 14, 0
  1474.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1475.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1476.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1477.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1478.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  1479. COLOR 15
  1480. INPUT "> ", joe$
  1481. IF joe$ = "look" THEN GOTO lookk
  1482. IF joe$ = "look huts" THEN GOTO lookhutk
  1483. IF joe$ = "walk door" THEN GOTO frontk
  1484. IF joe$ = "walk hut" THEN GOTO frontk
  1485. IF joe$ = "walk west" THEN GOTO enterk
  1486. IF joe$ = "walk hut one" THEN GOTO enterk
  1487. IF joe$ = "walk hut two" THEN GOTO enterk
  1488. IF joe$ = "walk east" THEN GOTO exitk
  1489. IF joe$ = "quit" THEN GOTO quitk
  1490. GOTO nonek
  1491. exitk:
  1492. GOTO startj
  1493. quitk:
  1494. END
  1495. lookk:
  1496. COLOR 1
  1497. PRINT "You're in a small village you discovered behind some bushes.  The two"
  1498. PRINT "huts here look exactly the same.  There's a path to the west and a"
  1499. PRINT "path to the east."
  1500. GOTO clock
  1501. clock:
  1502. m$ = INPUT$(1)
  1503. GOTO startk
  1504. lookhutk:
  1505. COLOR 1
  1506. PRINT "They're made of 50/50 wood shavings, straw."
  1507. GOTO clock
  1508. frontk:
  1509. COLOR 1
  1510. PRINT "Please specify which one by typing either walk hut one or walk hut"
  1511. PRINT "two --     J.D."
  1512. GOTO clock
  1513. enterk:
  1514. GOTO startl
  1515. nonek:
  1516.       COLOR 1
  1517.       IF fort$ = "two" THEN GOTO none2k
  1518.       IF fort$ = "three" THEN GOTO none3k
  1519.       IF fort$ = "four" THEN GOTO none4k
  1520.       IF fort$ = "five" THEN GOTO none5k
  1521.       PRINT "What?  I'm sorry, I wasn't paying attention."
  1522.       LET fort$ = "two"
  1523.       m$ = INPUT$(1)
  1524.       GOTO startk
  1525. none2k:
  1526.       PRINT "Unfortunately, I don't speak moronese."
  1527.       m$ = INPUT$(1)
  1528.       LET fort$ = "three"
  1529.       GOTO startk
  1530. none3k:
  1531.       PRINT "And do you think it's gonna let you?"
  1532.       m$ = INPUT$(1)
  1533.       LET fort$ = "four"
  1534.       GOTO startk
  1535. none4k:
  1536.       PRINT "That would be about as helpful as bashing your head in with a"
  1537.       PRINT "large piece of iron."
  1538.       m$ = INPUT$(1)
  1539.       LET fort$ = "five"
  1540.       GOTO startk
  1541. none5k:
  1542.       PRINT "You know, that's a felony in some states."
  1543.       m$ = INPUT$(1)
  1544.       LET fort$ = "nothing"
  1545.       GOTO startk
  1546. SCREEN 8
  1547. startl:
  1548. CLS
  1549. COLOR 15
  1550. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1551. PRINT ""
  1552. DRAW "c15 bu50 l300 d120 r550 u120 l250 bd80 l260 g40 e40 u80 d80 r510"
  1553. DRAW "c6 bl1 bd1 l509"
  1554. FOR Z = 1 TO 254
  1555. DRAW "g38 r1 e38 r1"
  1556. NEXT Z
  1557. DRAW "r1"
  1558. FOR Z = 1 TO 50
  1559. DRAW "d38 l1 u38 l1"
  1560. NEXT Z
  1561. DRAW "c15 bl10 d10 r100 u30 l100 d30 r1 u1"
  1562. FOR Z = 1 TO 49
  1563. DRAW "c10 u28 r1 d28 r1"
  1564. NEXT Z
  1565. DRAW "u28"
  1566. DRAW "c15 bl90 bd5 d20 r60 u20 l60 d1 r1"
  1567. FOR Z = 1 TO 29
  1568. DRAW "c0 d18 r1 u18 r1"
  1569. NEXT Z
  1570. DRAW "d18"
  1571. DRAW "c15"
  1572. CIRCLE (540, 130), 5
  1573. DRAW "bu20 bl300 u30 r100 d70 l100 u69 r1"
  1574. FOR Z = 1 TO 49
  1575. DRAW "c14 d68 r1 u68 r1"
  1576. NEXT Z
  1577. DRAW "d68"
  1578. DRAW "c7 bl10 bu40 l80 u10 r80 d10"
  1579. DRAW "c15 bl150 d20 u60 l80 d60 r1"
  1580. FOR Z = 1 TO 39
  1581. DRAW "c11 u59 r1 d59 r1"
  1582. NEXT Z
  1583. DRAW "u59"
  1584. A = 200
  1585. b = 110
  1586. COLOR 4
  1587.         CIRCLE (A, b), 20
  1588.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1589.         COLOR 14, 0
  1590.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1591.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1592.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1593.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1594.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1595. c = 400
  1596. d = 110
  1597. COLOR 4
  1598.         CIRCLE (c, d), 20
  1599.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1600.         COLOR 6, 0
  1601.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  1602.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1603.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1604.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1605.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  1606. IF ipso$ = "two" THEN GOTO here2l
  1607. IF ipso$ = "three" THEN GOTO here3l
  1608. IF ipso$ = "four" THEN GOTO startk
  1609. COLOR 1
  1610. PRINT "`Wait a second...THIS IS MY HOUSE!!!  WHAT ARE YOU DOING IN MY HOUSE?!?'"
  1611. COLOR 2
  1612. PRINT "`I...uh...maybe you'd better leave.'"
  1613. LET ipso$ = "two"
  1614. m$ = INPUT$(1)
  1615. GOTO startk
  1616. here2l:
  1617. COLOR 1
  1618. PRINT "`Hey, I was JUST IN this hut!!!'"
  1619. COLOR 2
  1620. PRINT "`Uh, no time to talk.  Please leave.'"
  1621. LET ipso$ = "three"
  1622. m$ = INPUT$(1)
  1623. GOTO startk
  1624. here3l:
  1625. COLOR 1
  1626. PRINT "`Okay, now I'm confused.'"
  1627. COLOR 2
  1628. PRINT "`Look, I'll give you this sapphire if you keep your mouth closed!'"
  1629. LET sap$ = "okay"
  1630. LET score = score + 6
  1631. LET ipso$ = "four"
  1632. m$ = INPUT$(1)
  1633. GOTO startk
  1634. SCREEN 8
  1635. startm:
  1636. CLS
  1637. COLOR 15
  1638. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1639. PRINT ""
  1640. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  1641. PAINT (100, 100), 14, 37
  1642. DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28"
  1643. PAINT (100, 100), 11, 37
  1644. A = 100
  1645. b = 100
  1646. COLOR 4
  1647.         CIRCLE (A, b), 20
  1648.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1649.         COLOR 14, 0
  1650.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1651.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1652.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1653.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1654.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1655. COLOR 15
  1656. INPUT "> ", joe$
  1657. IF joe$ = "look" THEN GOTO lookm
  1658. IF joe$ = "walk west" THEN GOTO exitm
  1659. IF joe$ = "use statue on volcano" THEN GOTO volcm
  1660. IF joe$ = "throw statue" THEN GOTO volcm
  1661. GOTO nonem
  1662. vpm:
  1663. m$ = INPUT$(1)
  1664. GOTO startm
  1665. lookm:
  1666. COLOR 1
  1667. PRINT "Whoa mama!  The land seems to have shaped itself into a volcano here."
  1668. PRINT "You pear into it and find mountains of lava bubbling up!  That thing"
  1669. PRINT "could erupt any minute and distroy the island!  You'd better find"
  1670. PRINT "some way to plug the hole..."
  1671. GOTO vpm
  1672. exitm:
  1673. GOTO startj
  1674. nonem:
  1675.       COLOR 1
  1676.       IF fort$ = "two" THEN GOTO none2m
  1677.       IF fort$ = "three" THEN GOTO none3m
  1678.       IF fort$ = "four" THEN GOTO none4m
  1679.       IF fort$ = "five" THEN GOTO none5m
  1680.       PRINT "What?  I'm sorry, I wasn't paying attention."
  1681.       LET fort$ = "two"
  1682.       m$ = INPUT$(1)
  1683.       GOTO startm
  1684. none2m:
  1685.       PRINT "Unfortunately, I don't speak moronese."
  1686.       m$ = INPUT$(1)
  1687.       LET fort$ = "three"
  1688.       GOTO startm
  1689. none3m:
  1690.       PRINT "And do you think it's gonna let you?"
  1691.       m$ = INPUT$(1)
  1692.       LET fort$ = "four"
  1693.       GOTO startm
  1694. none4m:
  1695.       PRINT "That would be about as helpful as bashing your head in with a"
  1696.       PRINT "large piece of iron."
  1697.       m$ = INPUT$(1)
  1698.       LET fort$ = "five"
  1699.       GOTO startm
  1700. none5m:
  1701.       PRINT "You know, that's a felony in some states."
  1702.       m$ = INPUT$(1)
  1703.       LET fort$ = "nothing"
  1704.       GOTO startm
  1705. volcm:
  1706. IF statue$ <> "okay" THEN GOTO vpm
  1707. COLOR 4
  1708. f = 1
  1709. FOR Z = 1 TO 200
  1710. CIRCLE (300, 100), f
  1711. f = f + 2
  1712. NEXT Z
  1713. LET jugs$ = "two"
  1714. OPEN "c:\trapped\saved$" FOR OUTPUT AS #1
  1715. WRITE #1, jugs$
  1716. CLOSE #1
  1717. CALL room3.bas(score, sap$, dollars)
  1718. END SUB
  1719.  
  1720. SUB room3.bas (score, sap$, dollars)
  1721. SCREEN 8
  1722. CLS
  1723. PRINT ""
  1724. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  1725. PAINT (100, 100), 14, 37
  1726. DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28"
  1727. PAINT (100, 100), 11, 37
  1728. A = 300
  1729. b = 100
  1730. COLOR 4, 0
  1731.         CIRCLE (A, b), 20
  1732.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1733.         COLOR 6, 0
  1734.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1735.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1736.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1737.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1738.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1739. c = 100
  1740. d = 95
  1741. COLOR 4, 0
  1742.         CIRCLE (c, d), 20
  1743.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1744.         COLOR 6, 0
  1745.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  1746.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1747.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1748.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1749.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1750. e = 200
  1751. f = 140
  1752. COLOR 4
  1753. CIRCLE (e, f), 20
  1754. DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1755. COLOR 14, 0
  1756. CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10
  1757. DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55"
  1758. FOR Z = 1 TO 30
  1759. DRAW "u13 r1 d13 r1"
  1760. NEXT Z
  1761. DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1"
  1762. FOR Z = 1 TO 28
  1763. DRAW "c3 d9 l1 u9 l1"
  1764. NEXT Z
  1765. DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3"
  1766. FOR Z = 1 TO 5000
  1767. NEXT Z
  1768. COLOR 1
  1769. PRINT "LATER..."
  1770. m$ = INPUT$(1)
  1771. PRINT "MUCH LATER..."
  1772. m$ = INPUT$(1)
  1773. PRINT "MUCH, MUCH LATER..."
  1774. m$ = INPUT$(1)
  1775. PRINT "SO MUCH LATER YOU WOULDN'T BELIEVE IT..."
  1776. m$ = INPUT$(1)
  1777. CLS
  1778. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  1779. PAINT (100, 100), 14, 37
  1780. DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28"
  1781. PAINT (100, 100), 11, 37
  1782. A = 300
  1783. b = 100
  1784. COLOR 4, 0
  1785.         CIRCLE (A, b), 20
  1786.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1787.         COLOR 6, 0
  1788.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1789.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1790.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1791.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1792.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1793. c = 100
  1794. d = 95
  1795. COLOR 4, 0
  1796.         CIRCLE (c, d), 20
  1797.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1798.         COLOR 6, 0
  1799.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  1800.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1801.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1802.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1803.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1804. e = 200
  1805. f = 100
  1806. COLOR 4
  1807.         CIRCLE (e, f), 20
  1808.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1809.         COLOR 14, 0
  1810.         CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10
  1811.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1812.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1813.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1814.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1815. COLOR 1
  1816. PRINT "Huh...uh...where am I..."
  1817. COLOR 3
  1818. PRINT "You're on Uwabong island in the Paradise isles, cash register."
  1819. COLOR 10
  1820. PRINT "We'd like to thank you for plugging up Mt. Hachipichipuchi with our statue."
  1821. COLOR 3
  1822. PRINT "Zya!  If you hadn't our island might have been buried in mountains of lava."
  1823. COLOR 10
  1824. PRINT "Even though you distroyed an pricelice statue doing it, thanks anyway."
  1825. m$ = INPUT$(1)
  1826. CLS
  1827. DRAW "c15 bu50 l300 d120 r550 u120 l250"
  1828. PAINT (100, 100), 14, 37
  1829. DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28"
  1830. PAINT (100, 100), 11, 37
  1831. A = 300
  1832. b = 100
  1833. COLOR 4, 0
  1834.         CIRCLE (A, b), 20
  1835.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1836.         COLOR 6, 0
  1837.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1838.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1839.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1840.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1841.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1842. c = 100
  1843. d = 95
  1844. COLOR 4, 0
  1845.         CIRCLE (c, d), 20
  1846.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1847.         COLOR 6, 0
  1848.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  1849.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1850.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1851.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1852.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  1853. e = 200
  1854. f = 100
  1855. COLOR 4
  1856.         CIRCLE (e, f), 20
  1857.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1858.         COLOR 14, 0
  1859.         CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10
  1860.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1861.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1862.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1863.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1864. COLOR 1
  1865. PRINT "I don't get it.  Who are you?"
  1866. COLOR 3
  1867. PRINT "We are the Iffinickinackies, the natives of this island.  I'm Joe and he's Jack."
  1868. COLOR 10
  1869. PRINT "We're the ambassadors."
  1870. COLOR 3
  1871. PRINT "Which is sort of unfortunate since we don't have any means of communication."
  1872. COLOR 10
  1873. PRINT "Feel free to look around our village.  Consider yourself our guest."
  1874. m$ = INPUT$(1)
  1875. x = 12
  1876. y = 39
  1877. navmap:
  1878. SCREEN 1
  1879. CLS
  1880. PRINT
  1881. PRINT
  1882. PRINT
  1883. PRINT
  1884. PRINT "  By the way, on the next screen you"
  1885. PRINT "  will be navigating around the village"
  1886. PRINT "  on a map where you control a little"
  1887. PRINT "  face.  In fact, that's all there is"
  1888. PRINT "  on the screen.  And you'll just"
  1889. PRINT "  have to figure out the keys by"
  1890. PRINT "  yourself.  I'm tired of writing this"
  1891. PRINT "  game, you write it!  I'm sick of"
  1892. PRINT "  typing in BASIC with DRAW this and"
  1893. PRINT "  PRINT that and m$ = INPUT$(1)!!!!!"
  1894. PRINT
  1895. PRINT
  1896. PRINT "  MORE POWER TO PROGRAMMERS!"
  1897. PRINT "  HELL NO, WE WON'T CONVERT TO BIANARY!!"
  1898. m$ = INPUT$(1)
  1899. SCREEN 8
  1900. mapnav:
  1901. x = 12
  1902. y = 39
  1903. lummox:
  1904. CLS
  1905. COLOR 1, 14
  1906. LOCATE x, y
  1907. PRINT CHR$(2)
  1908. m$ = INPUT$(1)
  1909. IF m$ = "q" THEN LET x = x - 2
  1910. IF m$ = "b" THEN LET x = x + 2
  1911. IF m$ = "l" THEN LET y = y - 5
  1912. IF m$ = "g" THEN LET y = y + 5
  1913. IF x = 2 THEN GOTO startn
  1914. IF x = 24 THEN GOTO starto
  1915. IF y = 4 THEN GOTO startp
  1916. IF y = 79 THEN GOTO mapnav
  1917. GOTO lummox
  1918. startn:
  1919. CLS
  1920. IF cryo$ = "okay" THEN GOTO mapnav
  1921. COLOR 15
  1922. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1923. PRINT ""
  1924. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  1925. PAINT (100, 100), 14, 37
  1926. DRAW "c15 bd40 l80 r550"
  1927. PAINT (100, 100), 4, 37
  1928. c = 500
  1929. d = 70
  1930. CIRCLE (c, d), 1
  1931. DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  1932. PAINT (100, 100), 11, 37
  1933. A = 100
  1934. b = 100
  1935. COLOR 4
  1936.         CIRCLE (A, b), 20
  1937.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1938.         COLOR 14, 0
  1939.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1940.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1941.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1942.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1943.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1944. COLOR 1
  1945. PRINT "As you step in front of the statue it starts to talk --"
  1946. COLOR 5
  1947. PRINT "`I am eaten up by you every day, yet you cannot touch me, taste me,"
  1948. PRINT "or see me.  Each day of your life I get shorter.  What am I?'"
  1949. COLOR 1
  1950. INPUT " ", joe$
  1951. IF joe$ = "time" OR joe$ = "TIME" THEN GOTO goodn
  1952. goodn:
  1953. CLS
  1954. COLOR 15
  1955. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  1956. PRINT ""
  1957. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  1958. PAINT (100, 100), 14, 37
  1959. DRAW "c15 bd40 l80 r550"
  1960. PAINT (100, 100), 4, 37
  1961. c = 500
  1962. d = 70
  1963. CIRCLE (c, d), 1
  1964. DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  1965. PAINT (100, 100), 3, 37
  1966. DRAW "bm255,125"
  1967. DRAW "c15e5d5u5f5d10g5u5d5h5u10"
  1968. DRAW "bm255,125c15d10f5u5e2f2h2u6e2g2h2g2h2f2d6g2e2f2"
  1969. PAINT (100, 100), 11, 37
  1970. A = 100
  1971. b = 100
  1972. COLOR 4
  1973.         CIRCLE (A, b), 20
  1974.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  1975.         COLOR 14, 0
  1976.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  1977.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  1978.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  1979.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  1980.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  1981. COLOR 15
  1982. INPUT "> ", joe$
  1983. IF joe$ = "look at statue" THEN GOTO lookstatn
  1984. IF joe$ = "look" THEN GOTO lookn
  1985. IF joe$ = "take crystal" THEN GOTO cryn
  1986. IF joe$ = "quit" THEN END
  1987. IF joe$ = "walk west" THEN GOTO cryn
  1988. GOTO goodn
  1989. lookstatn:
  1990. COLOR 1
  1991. PRINT "It's a purple statue that's staring at you."
  1992. GOTO muckn
  1993. lookn:
  1994. COLOR 1
  1995. PRINT "You don't SEE anything really interesting besides a purple statue and"
  1996. PRINT "a crystal on the ground."
  1997. GOTO muckn
  1998. cryn:
  1999. COLOR 1
  2000. PRINT "You take the crystal and go back to the mainland."
  2001. LET score = score + 10
  2002. m$ = INPUT$(1)
  2003. LET cryo$ = "okay"
  2004. GOTO mapnav
  2005. muckn:
  2006. m$ = INPUT$(1)
  2007. GOTO goodn
  2008. deadn:
  2009. c = 500
  2010. d = 70
  2011. PAINT (100, 100), 5, 37
  2012. CIRCLE (c, d), 1
  2013. DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  2014. PAINT (100, 100), 0, 37
  2015. A = 100
  2016. b = 100
  2017. COLOR 4
  2018.         CIRCLE (A, b), 20
  2019.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2020.         COLOR 14, 0
  2021.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2022.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2023.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2024.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2025.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2026. FOR Z = 1 TO 100
  2027. NEXT Z
  2028. CLS
  2029. c = 200
  2030. d = 20
  2031. PAINT (100, 100), 5, 37
  2032. CIRCLE (c, d), 1
  2033. DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  2034. PAINT (100, 100), 0, 37
  2035. A = 100
  2036. b = 100
  2037. COLOR 4
  2038.         CIRCLE (A, b), 20
  2039.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2040.         COLOR 14, 0
  2041.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2042.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2043.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2044.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2045.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2046. FOR Z = 1 TO 100
  2047. NEXT Z
  2048. CLS
  2049. c = 150
  2050. d = 80
  2051. PAINT (100, 100), 5, 37
  2052. CIRCLE (c, d), 1
  2053. DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5"
  2054. PAINT (400, 100), 0, 37
  2055. FOR Z = 1 TO 1000
  2056. NEXT Z
  2057. COLOR 1
  2058. PRINT "Whoa, squished flatter than a pancake!  Do you get frequent flyers miles"
  2059. PRINT "for this?"
  2060. PRINT
  2061. PRINT "FINAL SCORE - "; score
  2062. END
  2063. starto:
  2064. CLS
  2065. COLOR 15
  2066. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  2067. PRINT ""
  2068. DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550"
  2069. PAINT (100, 150), 14, 37
  2070. COLOR 15
  2071. CIRCLE (300, 90), 1
  2072. DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20"
  2073. COLOR 0
  2074. CIRCLE (305, 20), 1
  2075. COLOR 15
  2076. DRAW "c15 bg30 g20 be50 br140 bf30 f20 l240"
  2077. PAINT (310, 100), 10, 37
  2078. PAINT (310, 60), 2, 37
  2079. PAINT (100, 100), 11, 37
  2080. PAINT (500, 130), 11, 37
  2081. A = 100
  2082. b = 100
  2083. COLOR 4
  2084.         CIRCLE (A, b), 20
  2085.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2086.         COLOR 14, 0
  2087.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2088.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2089.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2090.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2091.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2092. c = 220
  2093. d = 110
  2094. COLOR 2
  2095.         CIRCLE (c, d), 20
  2096.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2097.         COLOR 6, 0
  2098.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  2099.         DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2100.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c6 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2101.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2102.         DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 c4 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2103. e = 380
  2104. IF cryo$ = "okay" THEN LET e = e + 30
  2105. f = 100
  2106. COLOR 2, 0
  2107.         CIRCLE (e, f), 20
  2108.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2109.         COLOR 6, 0
  2110.         CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10
  2111.         DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2112.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2113.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2114.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20"
  2115. COLOR 15
  2116. INPUT "> ", joe$
  2117. IF joe$ = "walk west" THEN GOTO mapnav
  2118. IF joe$ = "look" THEN GOTO looko
  2119. IF joe$ = "walk east" THEN GOTO lubbyo
  2120. IF joe$ = "quit" THEN END
  2121. IF joe$ = "walk hut" THEN GOTO startod
  2122. IF joe$ = "talk to native" THEN GOTO nativeo
  2123. IF joe$ = "talk to guard" THEN GOTO guardo
  2124. GOTO noneo
  2125. damno:
  2126. m$ = INPUT$(1)
  2127. GOTO starto
  2128. looko:
  2129. COLOR 1
  2130. PRINT "You seem to be in a village.  There's a large hut to your east and a guard"
  2131. PRINT "and a native."
  2132. GOTO damno
  2133. nativeo:
  2134. COLOR 2
  2135. PRINT "`Welcome to the three screen villiage!'"
  2136. GOTO damno
  2137. guardo:
  2138. COLOR 4
  2139. IF cryo$ = "okay" THEN PRINT "`Ah, the crystal of stupidity!  The king wants to see you.'" ELSE PRINT "`You can't get into the king's hut unless you can give me the crystal of stupidity!'"
  2140. GOTO damno
  2141. lubbyo:
  2142. IF gdoe$ = "okay" THEN GOTO startob
  2143. COLOR 2
  2144. PRINT "Hey, dork, you can't go that way without the king's prior premission!"
  2145. GOTO damno
  2146. noneo:
  2147.       COLOR 1
  2148.       IF fort$ = "two" THEN GOTO none2o
  2149.       IF fort$ = "three" THEN GOTO none3o
  2150.       IF fort$ = "four" THEN GOTO none4o
  2151.       IF fort$ = "five" THEN GOTO none5o
  2152.       PRINT "What?  I'm sorry, I wasn't paying attention."
  2153.       LET fort$ = "two"
  2154.       m$ = INPUT$(1)
  2155.       GOTO starto
  2156. none2o:
  2157.       PRINT "Unfortunately, I don't speak moronese."
  2158.       m$ = INPUT$(1)
  2159.       LET fort$ = "three"
  2160.       GOTO starto
  2161. none3o:
  2162.       PRINT "And do you think it's gonna let you?"
  2163.       m$ = INPUT$(1)
  2164.       LET fort$ = "four"
  2165.       GOTO starto
  2166. none4o:
  2167.       PRINT "That would be about as helpful as bashing your head in with a"
  2168.       PRINT "large piece of iron."
  2169.       m$ = INPUT$(1)
  2170.       LET fort$ = "five"
  2171.       GOTO starto
  2172. none5o:
  2173.       PRINT "You know, that's a felony in some states."
  2174.       m$ = INPUT$(1)
  2175.       LET fort$ = "nothing"
  2176.       GOTO starto
  2177. startob:
  2178. CLS
  2179. COLOR 15
  2180. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  2181. PRINT ""
  2182. DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550"
  2183. PAINT (100, 150), 14, 37
  2184. DRAW "c15 br250 bu10 u30 r50 d30"
  2185. PAINT (360, 130), 4, 37
  2186. PAINT (100, 100), 11, 37
  2187. A = 100
  2188. b = 100
  2189. COLOR 4
  2190.         CIRCLE (A, b), 20
  2191.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2192.         COLOR 14, 0
  2193.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2194.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2195.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2196.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2197.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2198. c = 300
  2199. d = 95
  2200. COLOR 2
  2201.         CIRCLE (c, d), 20
  2202.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2203.         COLOR 6, 0
  2204.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  2205.         DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2206.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c2 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2207.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2208.         DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2209. COLOR 15
  2210. INPUT "> ", joe$
  2211. IF joe$ = "look" THEN GOTO lookob
  2212. IF joe$ = "quit" THEN END
  2213. IF joe$ = "walk west" THEN GOTO starto
  2214. IF joe$ = "walk east" THEN GOTO startoc
  2215. IF joe$ = "talk to native" THEN GOTO nativeob
  2216. IF joe$ = "get banana" OR joe$ = "look box" THEN GOTO boxob
  2217. GOTO noneob
  2218. damnob:
  2219. m$ = INPUT$(1)
  2220. GOTO startob
  2221. lookob:
  2222. COLOR 1
  2223. PRINT "You're in front of a vending stand.  There's a shabby box of bananas and"
  2224. PRINT "a rather greasy looking native."
  2225. GOTO damnob
  2226. nativeob:
  2227. IF clun$ = "okay" THEN GOTO sob
  2228. COLOR 2
  2229. PRINT "Hey, hey, hey, whaddya say!  Do ya wanna sing `Patient in Paradise' with me?"
  2230. COLOR 1
  2231. INPUT "y, n ", joe$
  2232. IF joe$ = "n" OR joe$ = "no" THEN GOTO damnob
  2233. CLS
  2234. PRINT "Hold my hand -- I'm a patient in paradise"
  2235. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2236. PRINT "My nostrils have just been sliced by a small paper parasol"
  2237. PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4"
  2238. PRINT "I thought I took it out of my margarita --"
  2239. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2240. PRINT "And when we drank a toast, it went up my nose."
  2241. PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4"
  2242. PRINT "The doctor says it's been infected"
  2243. PLAY "o3l5cccl2cl5cc#d#d#l2f"
  2244. PRINT "Some desease of the south"
  2245. PLAY "o3l5fffffl2f"
  2246. PRINT "They have down here..."
  2247. PLAY "l5o3fd#fl2g-"
  2248. PRINT "He says it may just be connected"
  2249. PLAY "l5o3g-g-g-l2g-l5fg-fg#l2d#"
  2250. PRINT "To hoof and mouth --"
  2251. PLAY "l5o3d#d#d#l2d"
  2252. PRINT "At least, that's what they fear."
  2253. PLAY "l5o3dfgfdl2cp4"
  2254. PRINT "I'll be staying...in here for tests, at least until late next week"
  2255. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2256. PRINT "But you go ahead, my dear, and play golf, and go to shows"
  2257. PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4"
  2258. PRINT "I'm fine, I just never thought this would happen in paradise"
  2259. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2260. PRINT "That someone could get a parasol up their nose."
  2261. PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4"
  2262. LET clun$ = "okay"
  2263. GOTO startob
  2264. sob:
  2265. COLOR 2
  2266. PRINT "Whaddya want?  Wanna buy a banana?  Only fifty dollars!"
  2267. IF dollars = 50 AND sap$ = "okay" THEN GOTO sobb
  2268. COLOR 1
  2269. PRINT "No."
  2270. COLOR 2
  2271. PRINT "Then go away and stop wasting my time."
  2272. GOTO damnob
  2273. sobb:
  2274. COLOR 1
  2275. PRINT "Alright, here's your money.  Oh, and take this sapphire.  I have no use"
  2276. PRINT "for it."
  2277. PRINT "You eat the banana and shove the peel in your pocket.  Geeze, it's slippery."
  2278. LET sap$ = "jkjdkdj"
  2279. LET score = score + 20
  2280. LET ban$ = "okay"
  2281. GOTO damnob
  2282. boxob:
  2283. COLOR 2
  2284. PRINT "Hey, get outta there!  Those arn't free, ya dink."
  2285. GOTO damnob
  2286. noneob:
  2287.       COLOR 1
  2288.       IF fort$ = "two" THEN GOTO none2ob
  2289.       IF fort$ = "three" THEN GOTO none3ob
  2290.       IF fort$ = "four" THEN GOTO none4ob
  2291.       IF fort$ = "five" THEN GOTO none5ob
  2292.       PRINT "What?  I'm sorry, I wasn't paying attention."
  2293.       LET fort$ = "two"
  2294.       m$ = INPUT$(1)
  2295.       GOTO startob
  2296. none2ob:
  2297.       PRINT "Unfortunately, I don't speak moronese."
  2298.       m$ = INPUT$(1)
  2299.       LET fort$ = "three"
  2300.       GOTO startob
  2301. none3ob:
  2302.       PRINT "And do you think it's gonna let you?"
  2303.       m$ = INPUT$(1)
  2304.       LET fort$ = "four"
  2305.       GOTO startob
  2306. none4ob:
  2307.       PRINT "That would be about as helpful as bashing your head in with a"
  2308.       PRINT "large piece of iron."
  2309.       m$ = INPUT$(1)
  2310.       LET fort$ = "five"
  2311.       GOTO startob
  2312. none5ob:
  2313.       PRINT "You know, that's a felony in some states."
  2314.       m$ = INPUT$(1)
  2315.       LET fort$ = "nothing"
  2316.       GOTO startob
  2317. startoc:
  2318. CLS
  2319. COLOR 15
  2320. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  2321. PRINT ""
  2322. DRAW "c15 bu50 l300 d120 r550 u120 l550"
  2323. A = 100
  2324. b = 100
  2325. COLOR 4
  2326.         CIRCLE (A, b), 20
  2327.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2328.         COLOR 14, 0
  2329.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2330.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2331.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2332.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2333.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2334. c = 400
  2335. d = 100
  2336. COLOR 2
  2337.         CIRCLE (c, d), 20
  2338.         DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2339.         COLOR 6, 0
  2340.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  2341.         DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2342.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c2 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2343.         DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2344.         DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2345. COLOR 15
  2346. INPUT "> ", joe$
  2347. IF joe$ = "look" THEN GOTO lookoc
  2348. IF joe$ = "talk to native" THEN GOTO nativeoc
  2349. IF joe$ = "use banana" OR joe$ = "use banana peel" THEN GOTO suioc
  2350. IF joe$ = "quit" THEN END
  2351. IF joe$ = "walk west" THEN GOTO startob
  2352. GOTO startoc
  2353. lookoc:
  2354. COLOR 1
  2355. PRINT "You're on a wierd board..."
  2356. m$ = INPUT$(1)
  2357. GOTO startoc
  2358. nativeoc:
  2359. COLOR 1
  2360. PRINT "What the hell is going ON?!?!"
  2361. COLOR 2
  2362. PRINT "We...ran out of backgrounds.  Yeah, that's it."
  2363. COLOR 1
  2364. PRINT "So what am I supposed to do here?!?"
  2365. COLOR 2
  2366. PRINT "You're supposed to slip me up so you can get the invisible parrot.  It can"
  2367. PRINT "open the cave door."
  2368. m$ = INPUT$(1)
  2369. GOTO startoc
  2370. suioc:
  2371. IF ban$ <> "okay" THEN GOTO startoc
  2372. COLOR 1
  2373. LET score = score + 5
  2374. PRINT "The native slips on the banana peel (not shown) and you grab the parrot (also not shown)"
  2375. LET parrot$ = "okay"
  2376. m$ = INPUT$(1)
  2377. LET ban$ = "jdkjd"
  2378. GOTO startob
  2379. startod:
  2380. IF gdoe$ = "okay" THEN GOTO starto
  2381. CLS
  2382. LET score = score + 10
  2383. LET gdoe$ = "okay"
  2384. COLOR 2
  2385. PRINT "`Oh, so you broke into my hut, huh?'"
  2386. COLOR 1
  2387. PRINT "`Well, I thought I was supposed to...'"
  2388. COLOR 2
  2389. PRINT "`Shut up and listen -- there's a great shadow over this land...'"
  2390. COLOR 1
  2391. PRINT "`Oh, Clorox Bleach can take that right out.'"
  2392. COLOR 2
  2393. PRINT "`...My evil brother, JoJo, is scaring away all my tourists.  If you can get"
  2394. PRINT "rid of him I might be able to start up my shrimp resturants again.  Now, go.'"
  2395. COLOR 15
  2396. m$ = INPUT$(1)
  2397. GOTO starto
  2398. startp:
  2399. CLS
  2400. COLOR 15
  2401. PRINT "  TRAPPED IN PARADISE                              SCORE - "; score
  2402. PRINT ""
  2403. DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550"
  2404. PAINT (100, 150), 14, 37
  2405. DRAW "c15 br100 be10 e90 g90 e40 r10 d40"
  2406. PAINT (250, 110), 7, 37
  2407. PAINT (300, 110), 4, 37
  2408. PAINT (100, 100), 11, 37
  2409. A = 100
  2410. b = 100
  2411. COLOR 4
  2412.         CIRCLE (A, b), 20
  2413.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2414.         COLOR 14, 0
  2415.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2416.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2417.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2418.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2419.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2420. INPUT "> ", joe$
  2421. IF joe$ = "look" THEN GOTO lookp
  2422. IF joe$ = "use parrot" THEN GOTO p
  2423. GOTO clunkp
  2424. lookp:
  2425. COLOR 1
  2426. PRINT "It's a large cave with a metal door in it.  Just like in the James Bond movies."
  2427. m$ = INPUT$(1)
  2428. GOTO startp
  2429. p:
  2430. IF parrot$ <> "okay" THEN GOTO startp
  2431. COLOR 1
  2432. PRINT "Hey, this isn't an invisible parrot!  It's an invisible key!  You pop it in"
  2433. PRINT "the door."
  2434. m$ = INPUT$(1)
  2435. CALL scene4(score)
  2436. clunkp:
  2437. COLOR 1
  2438. PRINT "Since you have no idea what you're doing here, I'll send you back to the map."
  2439. m$ = INPUT$(1)
  2440. GOTO mapnav
  2441. END SUB
  2442.  
  2443. SUB scene1 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  2444. SCREEN 8
  2445. CLS
  2446. c = 300
  2447. d = 150
  2448. COLOR 15
  2449. CIRCLE (c, d), 1
  2450. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2451. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2452. A = 300
  2453. b = 100
  2454. COLOR 4, 0
  2455.         CIRCLE (A, b), 20
  2456.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2457.         COLOR 14, 0
  2458.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2459.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2460.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2461.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2462.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2463. FOR Z = 1 TO 500
  2464. NEXT Z
  2465. CLS
  2466. COLOR 15
  2467. CIRCLE (c, d), 1
  2468. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2469. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2470. A = 330
  2471. b = 100
  2472. COLOR 4, 0
  2473.         CIRCLE (A, b), 20
  2474.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2475.         COLOR 14, 0
  2476.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2477.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2478.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2479.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2480.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2481. FOR Z = 1 TO 500
  2482. NEXT Z
  2483. CLS
  2484. COLOR 15
  2485. CIRCLE (c, d), 1
  2486. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2487. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2488. A = 330
  2489. b = 80
  2490. COLOR 4, 0
  2491.         CIRCLE (A, b), 20
  2492.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2493.         COLOR 14, 0
  2494.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2495.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2496.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2497.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2498.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2499. FOR Z = 1 TO 500
  2500. NEXT Z
  2501. CLS
  2502. COLOR 15
  2503. CIRCLE (c, d), 1
  2504. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2505. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2506. A = 330
  2507. b = 60
  2508. COLOR 4, 0
  2509.         CIRCLE (A, b), 20
  2510.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2511.         COLOR 14, 0
  2512.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2513.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2514.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2515.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2516.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2517. FOR Z = 1 TO 500
  2518. NEXT Z
  2519. CLS
  2520. COLOR 15
  2521. CIRCLE (c, d), 1
  2522. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2523. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2524. A = 330
  2525. b = 40
  2526. COLOR 4, 0
  2527.         CIRCLE (A, b), 20
  2528.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2529.         COLOR 14, 0
  2530.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2531.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2532.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2533.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2534.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2535. FOR Z = 1 TO 500
  2536. NEXT Z
  2537. IF ladfix$ = "okay" THEN GOTO ivy
  2538. CLS
  2539. A = 330
  2540. b = 40
  2541. COLOR 4, 0
  2542.         CIRCLE (A, b), 20
  2543.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2544.         COLOR 14, 0
  2545.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2546.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2547.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2548.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2549.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2550. COLOR 15
  2551. CIRCLE (c, d), 1
  2552. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2553. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2554. FOR Z = 1 TO 500
  2555. NEXT Z
  2556. CLS
  2557. A = 330
  2558. b = 60
  2559. COLOR 4, 0
  2560.         CIRCLE (A, b), 20
  2561.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2562.         COLOR 14, 0
  2563.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2564.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2565.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2566.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2567.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2568. COLOR 15
  2569. CIRCLE (c, d), 1
  2570. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2571. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2572. FOR Z = 1 TO 500
  2573. NEXT Z
  2574. CLS
  2575. A = 330
  2576. b = 80
  2577. COLOR 4, 0
  2578.         CIRCLE (A, b), 20
  2579.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2580.         COLOR 14, 0
  2581.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2582.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2583.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2584.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2585.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9"
  2586. COLOR 15
  2587. CIRCLE (c, d), 1
  2588. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2589. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2590. FOR Z = 1 TO 500
  2591. NEXT Z
  2592. CLS
  2593. A = 400
  2594. b = 140
  2595. COLOR 4
  2596. CIRCLE (A, b), 20
  2597. DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2598. COLOR 14, 0
  2599. CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2600. DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55"
  2601. FOR Z = 1 TO 30
  2602. DRAW "u13 r1 d13 r1"
  2603. NEXT Z
  2604. DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1"
  2605. FOR Z = 1 TO 28
  2606. DRAW "c3 d9 l1 u9 l1"
  2607. NEXT Z
  2608. DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3"
  2609. COLOR 15
  2610. CIRCLE (c, d), 1
  2611. DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60"
  2612. DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135"
  2613. FOR Z = 1 TO 5000
  2614. NEXT Z
  2615. COLOR 1
  2616. PRINT "A rotting rung on the ladder snaps and you fall to the ground, breaking"
  2617. PRINT "every bone in your body.  Nice going, yutz.  Be more careful next time."
  2618. PRINT
  2619. PRINT "FINAL SCORE - "; score
  2620. END
  2621. ivy:
  2622. END SUB
  2623.  
  2624. SUB scene2 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  2625. SCREEN 8
  2626. CLS
  2627. guylt:
  2628. A = 400
  2629. b = 100
  2630. COLOR 4
  2631.         CIRCLE (A, b), 20
  2632.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2633.         COLOR 14, 0
  2634.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2635.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2636.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2637.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2638.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2639. woman:
  2640. b = 200
  2641. c = 100
  2642. COLOR 14
  2643. d = 1
  2644. CIRCLE (b, c), d
  2645. d = 2
  2646. FOR Z = 1 TO 30
  2647. CIRCLE (b, c), d
  2648. LET d = d + 1
  2649. NEXT Z
  2650. COLOR 4
  2651. d = 50
  2652. LET c = c + 35
  2653. CIRCLE (b, c), d
  2654. COLOR 11
  2655. d = 49
  2656. FOR Z = 1 TO 49
  2657. CIRCLE (b, c), d
  2658. LET d = d - 1
  2659. NEXT Z
  2660. COLOR 14
  2661. LET c = c - 35
  2662. LET b = b + 20
  2663. LET c = c + 10
  2664. d = 1
  2665. FOR Z = 1 TO 20
  2666. CIRCLE (b, c), d
  2667. d = d + 1
  2668. NEXT Z
  2669. DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1"
  2670. FOR Z = 1 TO 8
  2671. DRAW "c14 d5 r1 u5 r1"
  2672. NEXT Z
  2673. FOR Z = 1 TO 100
  2674. NEXT Z
  2675. CLS
  2676. guylt2:
  2677. A = 300
  2678. b = 100
  2679. COLOR 4
  2680.         CIRCLE (A, b), 20
  2681.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2682.         COLOR 14, 0
  2683.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2684.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2685.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2686.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2687.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2688. woman2:
  2689. b = 200
  2690. c = 100
  2691. COLOR 14
  2692. d = 1
  2693. CIRCLE (b, c), d
  2694. d = 2
  2695. FOR Z = 1 TO 30
  2696. CIRCLE (b, c), d
  2697. LET d = d + 1
  2698. NEXT Z
  2699. COLOR 4
  2700. d = 50
  2701. LET c = c + 35
  2702. CIRCLE (b, c), d
  2703. COLOR 11
  2704. d = 49
  2705. FOR Z = 1 TO 49
  2706. CIRCLE (b, c), d
  2707. LET d = d - 1
  2708. NEXT Z
  2709. COLOR 14
  2710. LET c = c - 35
  2711. LET b = b + 20
  2712. LET c = c + 10
  2713. d = 1
  2714. FOR Z = 1 TO 20
  2715. CIRCLE (b, c), d
  2716. d = d + 1
  2717. NEXT Z
  2718. DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1"
  2719. FOR Z = 1 TO 8
  2720. DRAW "c14 d5 r1 u5 r1"
  2721. NEXT Z
  2722. FOR Z = 1 TO 100
  2723. NEXT Z
  2724. CLS
  2725. guylt3:
  2726. A = 300
  2727. b = 100
  2728. COLOR 4
  2729.         CIRCLE (A, b), 20
  2730.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2731.         COLOR 14, 0
  2732.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2733.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2734.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2735.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2736.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2737. womanpunch3:
  2738. b = 200
  2739. c = 100
  2740. COLOR 14
  2741. d = 1
  2742. CIRCLE (b, c), d
  2743. d = 2
  2744. FOR Z = 1 TO 30
  2745. CIRCLE (b, c), d
  2746. LET d = d + 1
  2747. NEXT Z
  2748. COLOR 4
  2749. d = 50
  2750. LET c = c + 35
  2751. CIRCLE (b, c), d
  2752. COLOR 11
  2753. d = 49
  2754. FOR Z = 1 TO 49
  2755. CIRCLE (b, c), d
  2756. LET d = d - 1
  2757. NEXT Z
  2758. COLOR 14
  2759. LET c = c - 35
  2760. LET b = b + 20
  2761. LET c = c + 10
  2762. d = 1
  2763. FOR Z = 1 TO 20
  2764. CIRCLE (b, c), d
  2765. d = d + 1
  2766. NEXT Z
  2767. DRAW "c4 bu10 bl20 r10 f2 bd30 r40 d8 l60 r60 br1 bu2"
  2768. FOR Z = 1 TO 3
  2769. DRAW "c14 r15 u1 l15 u1"
  2770. NEXT Z
  2771. FOR Z = 1 TO 100
  2772. NEXT Z
  2773. CLS
  2774. deadguy4:
  2775. A = 400
  2776. b = 140
  2777. COLOR 4
  2778. CIRCLE (A, b), 20
  2779. DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2780. COLOR 14, 0
  2781. CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2782. DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55"
  2783. FOR Z = 1 TO 30
  2784. DRAW "u13 r1 d13 r1"
  2785. NEXT Z
  2786. DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1"
  2787. FOR Z = 1 TO 28
  2788. DRAW "c3 d9 l1 u9 l1"
  2789. NEXT Z
  2790. DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3"
  2791. womanpunch4:
  2792. b = 200
  2793. c = 100
  2794. COLOR 14
  2795. d = 1
  2796. CIRCLE (b, c), d
  2797. d = 2
  2798. FOR Z = 1 TO 30
  2799. CIRCLE (b, c), d
  2800. LET d = d + 1
  2801. NEXT Z
  2802. COLOR 4
  2803. d = 50
  2804. LET c = c + 35
  2805. CIRCLE (b, c), d
  2806. COLOR 11
  2807. d = 49
  2808. FOR Z = 1 TO 49
  2809. CIRCLE (b, c), d
  2810. LET d = d - 1
  2811. NEXT Z
  2812. COLOR 14
  2813. LET c = c - 35
  2814. LET b = b + 20
  2815. LET c = c + 10
  2816. d = 1
  2817. FOR Z = 1 TO 20
  2818. CIRCLE (b, c), d
  2819. d = d + 1
  2820. NEXT Z
  2821. DRAW "c4 bu10 bl20 r10 f2 bd30 r40 d8 l60 r60 br1 bu2"
  2822. FOR Z = 1 TO 3
  2823. DRAW "c14 r15 u1 l15 u1"
  2824. NEXT Z
  2825. FOR Z = 1 TO 1000
  2826. NEXT Z
  2827. COLOR 1
  2828. PRINT "When you approach the woman she procedes to reallign your spine with"
  2829. PRINT "some technique she learned in a self defence class."
  2830. PRINT
  2831. PRINT "FINAL SCORE -"; score
  2832. END
  2833. END SUB
  2834.  
  2835. SUB scene3 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  2836. A = 0
  2837. b = 30
  2838. FOR Z = 1 TO 30
  2839. CLS
  2840. A = A + 10
  2841. COLOR 15
  2842. CIRCLE (A, b), 1
  2843. DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1"
  2844. DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84"
  2845. A = A - 5
  2846. PAINT (A, b), 7, 37
  2847. A = A + 3
  2848. NEXT Z
  2849. LOCATE 10, 10
  2850. COLOR 10
  2851. PRINT "`Hey Jack!  What does it mean when the little arrow points to E?'"
  2852. FOR Z = 1 TO 7000
  2853. NEXT Z
  2854. FOR Z = 1 TO 30
  2855. CLS
  2856. A = A + 10
  2857. COLOR 15
  2858. CIRCLE (A, b), 1
  2859. DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1"
  2860. DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84"
  2861. A = A - 5
  2862. PAINT (A, b), 7, 37
  2863. A = A + 3
  2864. NEXT Z
  2865. FOR Z = 1 TO 3000
  2866. NEXT Z
  2867. FOR Z = 1 TO 25
  2868. CLS
  2869. b = b + 15
  2870. COLOR 15
  2871. CIRCLE (A, b), 1
  2872. DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1"
  2873. DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84"
  2874. A = A - 5
  2875. PAINT (A, b), 7, 37
  2876. A = A + 3
  2877. NEXT Z
  2878. CLS
  2879. SCREEN 1
  2880. COLOR 4
  2881. PRINT
  2882. PRINT
  2883. PRINT
  2884. PRINT
  2885. PRINT
  2886. PRINT
  2887. PRINT
  2888. PRINT
  2889. PRINT
  2890. PRINT "                CRASH!!!"
  2891. FOR Z = 1 TO 9000
  2892. NEXT Z
  2893. LET score = score + 10
  2894. LET jugs$ = "one"
  2895. OPEN "c:\trapped\saved$" FOR OUTPUT AS #1
  2896. WRITE #1, jugs$
  2897. CLOSE #1
  2898. END SUB
  2899.  
  2900. SUB scene4 (score)
  2901. LET score = score + 4
  2902. SCREEN 8
  2903. CLS
  2904. A = 100
  2905. b = 100
  2906. COLOR 4
  2907.         CIRCLE (A, b), 20
  2908.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2909.         COLOR 14, 0
  2910.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2911.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2912.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2913.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2914.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2915. c = 400
  2916. d = 100
  2917. COLOR 4
  2918.         CIRCLE (c, d), 20
  2919.         DRAW "c7 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2920.         COLOR 7, 0
  2921.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  2922.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c7 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2923.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2924.         DRAW "c7 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2925.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2926. COLOR 1
  2927. PRINT "You're JoJo?!?  What's with you?!?"
  2928. COLOR 2
  2929. PRINT "I had an accident involving Michael Jackson's plastic surgeon."
  2930. COLOR 1
  2931. PRINT "I'm running short on time, so I'd better cut to the chase.  I'm here to arrest"
  2932. PRINT "you in the name of the king."
  2933. COLOR 2
  2934. PRINT "Okay, I give up.  I'll turn myself in."
  2935. m$ = INPUT$(1)
  2936. CLS
  2937. A = 100
  2938. b = 100
  2939. COLOR 4
  2940.         CIRCLE (A, b), 20
  2941.         DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2942.         COLOR 14, 0
  2943.         CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10
  2944.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2945.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2946.         DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2947.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10"
  2948. c = 400
  2949. d = 100
  2950. COLOR 4
  2951.         CIRCLE (c, d), 20
  2952.         DRAW "c7 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19"
  2953.         COLOR 7, 0
  2954.         CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10
  2955.         DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c7 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1"
  2956.         DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1"
  2957.         DRAW "c7 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23"
  2958.         DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10"
  2959. FOR Z = 1 TO 500
  2960. NEXT Z
  2961. COLOR 2
  2962. PRINT "What more do you want?  I turned myself in."
  2963. COLOR 1
  2964. PRINT "I want to go home, but I never think I will...(SOB)..."
  2965. COLOR 2
  2966. PRINT "Why, you've had the ability to go home all the time!"
  2967. COLOR 1
  2968. PRINT "...What?"
  2969. COLOR 2
  2970. PRINT "Just click your heels together three times and say `there's no place like home'."
  2971. COLOR 1
  2972. PRINT "There's no place like home...there's no place like home...There's--"
  2973. m$ = INPUT$(1)
  2974. CLS
  2975. SCREEN 1
  2976. PRINT "The rest of this game has been scraped"
  2977. PRINT "due to copyright infringment.  Sorry."
  2978. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2979. PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4"
  2980. CLS
  2981. SCREEN 1
  2982. PRINT "YOU'VE BEEN PLAYING TRAPPED IN PARADISE"
  2983. PRINT
  2984. PRINT
  2985. PRINT "GAME DESIGNED BY JONATHAN DEWBRE"
  2986. PRINT
  2987. PRINT "STORY AND SCREENPLAY BY JONATHAN DEWBRE"
  2988. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  2989. PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4"
  2990. CLS
  2991. PRINT
  2992. PRINT "GRAPHICS BY JONATHAN DEWBRE"
  2993. PRINT
  2994. PRINT "PROGRAMMED BY JONATHAN DEWBRE"
  2995. PRINT
  2996. PRINT "INSULTS BY JONATHAN DEWBRE"
  2997. PRINT
  2998. PRINT "PARSER INTERFACE BY JONATHAN DEWBRE"
  2999. PRINT
  3000. PRINT "PROGRAMMED ON QBASIC MS-DOS"
  3001. PLAY "o3l5cccl2cl5cc#d#d#l2f"
  3002. PLAY "o3l5fffffl2f"
  3003. PLAY "l5o3fd#fl2g-"
  3004. PLAY "l5o3g-g-g-l2g-l5fg-fg#l2d#"
  3005. PLAY "l5o3d#d#d#l2d"
  3006. PLAY "l5o3dfgfdl2cp4"
  3007. CLS
  3008. PRINT
  3009. PRINT "THE SONG `STRANGER IN PARADISE'"
  3010. PRINT "FROM THE BROADWAY SHOW `KISMET'"
  3011. PRINT
  3012. PRINT "THE LYRICS `PATIENT IN PARADISE'"
  3013. PRINT "FROM `THE AMERICAN RADIO COMPANY'"
  3014. PRINT "ON PUBLIC RADIO"
  3015. PRINT
  3016. PRINT "WIZARD OF OZ COPYRIGHT 1939 MGM STUDIOS"
  3017. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  3018. PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4"
  3019. CLS
  3020. PRINT
  3021. PRINT "FINAL SCORE - "; score
  3022. PRINT
  3023. PRINT "GOOD JOB!"
  3024. PLAY "o3l5ddl2ap4l5agfedefl2gp4"
  3025. PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4"
  3026. plum:
  3027. FOR Z = 1 TO 50000
  3028. NEXT Z
  3029. GOTO plum
  3030. END SUB
  3031.  
  3032. SUB TELEVISION (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$)
  3033. SCREEN 8
  3034. CLS
  3035. DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15"
  3036. FOR Z = 1 TO 5
  3037. DRAW "u5 r1 d5 r1"
  3038. NEXT Z
  3039. DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15"
  3040. FOR Z = 1 TO 5
  3041. DRAW "u5 l1 d5 l1"
  3042. NEXT Z
  3043. DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150"
  3044. COLOR 2
  3045. PRINT "You're watching channel VBG, the very bad graphics channel.  Now we"
  3046. PRINT "announce our VBG lotto, which includes our grand prize of a fifty"
  3047. PRINT "day trip to the very exclusive paradise isle.  To register visit your"
  3048. FOR x = 1 TO 15000
  3049. NEXT x
  3050. CLS
  3051. COLOR 15
  3052. DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15"
  3053. FOR Z = 1 TO 5
  3054. DRAW "u5 r1 d5 r1"
  3055. NEXT Z
  3056. DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15"
  3057. FOR Z = 1 TO 5
  3058. DRAW "u5 l1 d5 l1"
  3059. NEXT Z
  3060. DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150"
  3061. COLOR 2
  3062. PRINT "local laundrers.  Com'n, the tickets only cost a dollar!  What can you"
  3063. PRINT "lose?"
  3064. IF lottery$ = "got" THEN LET lottery$ = "okay"
  3065. IF lottery$ = "okay" THEN GOTO won
  3066. FOR x = 1 TO 9000
  3067. NEXT x
  3068. GOTO suit
  3069. won:
  3070. FOR x = 1 TO 5000
  3071. NEXT x
  3072. CLS
  3073. COLOR 15
  3074. DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15"
  3075. FOR Z = 1 TO 5
  3076. DRAW "u5 r1 d5 r1"
  3077. NEXT Z
  3078. DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15"
  3079. FOR Z = 1 TO 5
  3080. DRAW "u5 l1 d5 l1"
  3081. NEXT Z
  3082. DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150"
  3083. COLOR 1
  3084. PRINT "You glance down at your lottery ticket and scream with sheer joy!  YOU"
  3085. PRINT "WON!!!  YOU GOT ALL THE NUMBERS!!!  You've got fifty million dollars"
  3086. PRINT "now!  What are you going to do with it?"
  3087. FOR x = 1 TO 9000
  3088. NEXT x
  3089. suit:
  3090. END SUB
  3091.  
  3092.