home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / eli.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-09-01  |  18.9 KB  |  802 lines
  1. 100  REM The Adventures of Eli Scarboni - Book 1
  2. 110  REM
  3. 120  REM Sorry to all you color people.  I didn't have time to add color.
  4. 130  REM Look for the revised edition (with color).
  5. 140  REM
  6. 150  REM See this and other Eli Scarboni adventures as they are written.
  7. 160  REM Thank you for watching BOOK ONE of the Eli Scarboni story.  I
  8. 170  REM hope you like it.
  9. 180  REM
  10. 190  REM Send any complaints, suggestions, or general information to
  11. 200  REM Lance Pickup, 3 Satellite Circle, Olean, NY 14760
  12. 210  REM Telephone: (716) 373-1992 (Voice)
  13. 220  REM
  14. 230  SCREEN 0,1,0:WIDTH 80:KEY OFF:COLOR 7,0,6:LOCATE 1,1,0:CLS
  15. 240  E$=CHR$(1):H$=CHR$(2)
  16. 250  FOR P=2 TO 27
  17. 260  LOCATE 5,P:PRINT " Lance Pickup Productions"
  18. 270  NEXT P
  19. 280  FOR P=71 TO 36 STEP -1
  20. 290  LOCATE 7,P:PRINT "Presents "
  21. 300  NEXT P
  22. 310  PLAY "MFT120L8O3MN"
  23. 320  PLAY "L8AAAMLL1FL2FMNP8L8GGGMLL1EEMNP4L8AAAFB-B-B-GO4CCCO3A1"
  24. 330  FOR P=24 TO 10 STEP -1
  25. 340  LOCATE P,32
  26. 350  PRINT "The Adventures of";
  27. 360  LOCATE P+1,32
  28. 370  PRINT "                 ";
  29. 380  NEXT P
  30. 390  LOCATE 12,33:PRINT "CSRLIN<0xDF!><0xDF!><0xDF!>CSRLIN   <0xDF!>CSRLIN    POINT "
  31. 400  LOCATE 13,33:PRINT "CSRLINPOINTCSRLIN      CSRLIN   POINTPOINT "
  32. 410  LOCATE 14,33:PRINT "CSRLIN <0xDF!> POINT    CSRLIN    CSRLIN "
  33. 420  LOCATE 15,33:PRINT "<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!>"
  34. 430  LOCATE 17,10:PRINT "POINT<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>POINT                         <0xDF!>CSRLIN
  35. 440  LOCATE 18,10:PRINT "CSRLIN                                CSRLIN                       POINT"
  36. 450  LOCATE 19,10:PRINT "<0xDF!>POINTPOINTPOINT      POINTPOINTPOINTPOINT    POINTPOINTPOINT    POINT POINTPOINTPOINT   CSRLINPOINTPOINTPOINT    POINTPOINTPOINTPOINT   POINT POINTPOINTPOINT   POINTPOINT"
  37. 460  LOCATE 20,10:PRINT "   <0xDF!><0xDF!><0xDF!>POINT  CSRLIN    <0xDF!>  <0xDF!>   CSRLIN    CSRLIN   <0xDF!>  CSRLIN   CSRLIN  CSRLIN    CSRLIN   CSRLIN   CSRLIN   CSRLIN"
  38. 470  LOCATE 21,10:PRINT "      CSRLIN  CSRLIN       POINT<0xDF!><0xDF!><0xDF!>CSRLIN    CSRLIN      CSRLIN   CSRLIN  CSRLIN    CSRLIN   CSRLIN   CSRLIN   CSRLIN"
  39. 480  LOCATE 22,10:PRINT "<0xDF!>POINTPOINTPOINTPOINTPOINT<0xDF!>  <0xDF!>POINTPOINTPOINTPOINT<0xDF!>  <0xDF!>POINTPOINTPOINT<0xDF!>POINT  POINTCSRLINPOINT    POINTCSRLINPOINTPOINTPOINT<0xDF!>  <0xDF!>POINTPOINTPOINTPOINT<0xDF!>  POINTCSRLIN  POINTCSRLIN  POINTCSRLINPOINT"
  40. 490  FOR D=1 TO 500:NEXT D
  41. 500  LOCATE 24,14:PRINT "CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLIN      CSRLINCSRLIN"
  42. 510  LOCATE 24,14:PRINT "  CSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLIN    POINTPOINT<0xDF!><0xDF!>"
  43. 520  LOCATE 24,14:PRINT "  CSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLIN CSRLIN  CSRLIN CSRLINCSRLIN    CSRLINCSRLINCSRLIN CSRLINCSRLIN CSRLINCSRLINCSRLIN    CSRLINCSRLIN  POINTPOINT<0xDF!><0xDF!>  "
  44. 530  LOCATE 24,14:PRINT "  CSRLINCSRLINPOINTPOINTPOINTPOINT<0xDF!><0xDF!>    CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLINPOINTPOINT<0xDF!><0xDF!>    "
  45. 540  LOCATE 24,14:PRINT "  CSRLINCSRLIN<0xDF!><0xDF!><0xDF!><0xDF!>POINTPOINT    CSRLINCSRLIN CSRLINCSRLINCSRLINCSRLIN CSRLINCSRLIN    CSRLINCSRLINCSRLIN    CSRLINCSRLINCSRLIN    CSRLINCSRLIN<0xDF!><0xDF!>POINTPOINT    "
  46. 550  LOCATE 24,14:PRINT "  CSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLIN  CSRLINCSRLIN  CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLIN  <0xDF!><0xDF!>POINTPOINT  "
  47. 560  LOCATE 24,14:PRINT "  CSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLIN    <0xDF!><0xDF!>POINTPOINT"
  48. 570  LOCATE 24,14:PRINT "CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLIN      CSRLINCSRLIN"
  49. 580  LOCATE 24,14:PRINT "                                                    "
  50. 590  LOCATE 24,14:PRINT "         CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN       "
  51. 600  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN       "
  52. 610  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN  CSRLINCSRLIN  CSRLINCSRLIN    CSRLINCSRLIN       CSRLIN       "
  53. 620  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN  CSRLINCSRLIN  CSRLINCSRLIN    CSRLINCSRLINPOINTPOINTPOINTCSRLIN           "
  54. 630  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLIN    CSRLINCSRLIN<0xDF!><0xDF!><0xDF!>CSRLIN           "
  55. 640  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN       CSRLIN       "
  56. 650  LOCATE 24,14:PRINT "       CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLIN      CSRLINCSRLIN       "
  57. 660  LOCATE 24,14:PRINT "         CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLIN      CSRLINCSRLIN    CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN       "
  58. 670  FOR P=1 TO 25:PRINT:FOR D=1 TO 75:NEXT D:NEXT P
  59. 680  LOCATE 1,1:PRINT "Our story opens in Florence, Italy,"
  60. 690  LOCATE 2,3:PRINT "where our beloved hero, Eli, is"
  61. 700  LOCATE 3,3:PRINT "returning home from a long day of"
  62. 710  LOCATE 4,3:PRINT "spaghetti picking."
  63. 720  FOR P=1 TO 80
  64. 730  LOCATE 15,P:PRINT "SOUND";
  65. 740  IF P<30 THEN LOCATE 19,P:PRINT "THEN";
  66. 750  IF P>30 AND P MOD 4=0 THEN LOCATE 19,P:PRINT "SOUND";
  67. 760  LOCATE 23,P:PRINT "SOUND";
  68. 770  NEXT P
  69. 780  DATA "/     /CALL CALL     ","     / CALL CALL     ","    /  CALL MOTOR     ","   /SOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND","  /            "," /            ","/                ","CALLTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN","CALL              ","CALL              ","CALL               ","CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND"
  70. 790  TOP1$="____/"+CHR$(1)+" |__ "
  71. 800  BOT1$=CHR$(15)+"\______/"+CHR$(15)+" "
  72. 810  TOP2$=" __| "+CHR$(1)+"\____"
  73. 820  BOT2$=" "+CHR$(15)+"\______/"+CHR$(15)
  74. 830  TOP5$="____/LISTLIST|__ "
  75. 840  BOT5$=CHR$(15)+"\______/"+CHR$(15)+" "
  76. 850  TOP6$="  ____/LISTLIST|_/|  "
  77. 860  BOT6$="|<__________/  "
  78. 870  TOP3$="-6)___, "
  79. 880  BOT3$=" (____/ "
  80. 890  TOP4$=" .___(6-"
  81. 900  BOT4$=" \____)"
  82. 910  L1$="VARPTRSOUNDSOUNDCOLOR"
  83. 920  L2$="CALL"+CHR$(1)+CHR$(2)+"CALL"
  84. 930  L3$="PSETFNFN<0xB5!>"
  85. 940  L4$="CLSMOTORMOTOR'"
  86. 950  S1$="VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  87. 960  S2$="CALLSPEEDCALL"
  88. 970  S3$="CALLLIMITCALL"
  89. 980  S4$="CALL 3 0 CALL"
  90. 990  S5$="CLSSOUNDSOUNDSPC(SOUNDSOUND'"
  91. 1000  S6$="   USR   "
  92. 1010  D1$="VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  93. 1020  D2$="CALL  DANGER!  CALL"
  94. 1030  D3$="CALLBRIDGE  OUTCALL"
  95. 1040  D4$="CALL   AHEAD   CALL"
  96. 1050  D5$="CLSSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUND'"
  97. 1060  D6$="      USR      "
  98. 1070  R1$="VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  99. 1080  R2$="CALL DEFDBLSOUNDDETOURSOUND> CALL"
  100. 1090  R3$="CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUND'"
  101. 1100  R4$="       USR      "
  102. 1110  C1$="VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  103. 1120  C2$="CALL  WELCOME  CALL"
  104. 1130  C3$="CALLTO THE CITYCALL"
  105. 1140  C4$="CALL  OF ROME  CALL"
  106. 1150  C5$="CLSSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUND'"
  107. 1160  C6$="      USR      "
  108. 1170  CAR1$=" oSOUNDSOUNDSOUND\o"
  109. 1180  FOR P=70 TO 1 STEP -1
  110. 1190  LOCATE 16,P:PRINT TOP1$;
  111. 1200  LOCATE 17,P:PRINT BOT1$;
  112. 1210  SOUND 37,1
  113. 1220  MOTOR
  114. 1230  NEXT P
  115. 1240  CLS
  116. 1250  FOR P=1 TO 80
  117. 1260  LOCATE 15,P:PRINT "SOUND";
  118. 1270  IF P MOD 4=0 THEN LOCATE 19,P:PRINT "SOUND";
  119. 1280  LOCATE 23,P:PRINT "SOUND";
  120. 1290  NEXT P
  121. 1300  LOCATE 16,23:PRINT TOP3$;
  122. 1310  LOCATE 17,23:PRINT BOT3$;
  123. 1320  COLOR 15:LOCATE 14,50:PRINT "Oh no! A giant duck up ahead!":COLOR 7
  124. 1330  FOR P=70 TO 31 STEP -1
  125. 1340  LOCATE 16,P:PRINT TOP1$;
  126. 1350  LOCATE 17,P:PRINT BOT1$;
  127. 1360  LOCATE 21,71-P:PRINT TOP2$;
  128. 1370  LOCATE 22,71-P:PRINT BOT2$;
  129. 1380  SOUND 37,1:MOTOR
  130. 1390  IF P=40 THEN LOCATE 14,20:COLOR 18:PRINT "Quack! Quack!":COLOR 7
  131. 1400  NEXT P
  132. 1410  LOCATE 16,P:PRINT SPACE$(12)
  133. 1420  LOCATE 17,P:PRINT SPACE$(12)
  134. 1430  LOCATE 14,50:PRINT SPACE$(29);
  135. 1440  FOR P=30 TO 10 STEP -1
  136. 1450  LOCATE 21,P:PRINT TOP1$;
  137. 1460  LOCATE 22,P:PRINT BOT1$;
  138. 1470  LOCATE 21,71-P:PRINT TOP2$;
  139. 1480  LOCATE 22,71-P:PRINT BOT2$;
  140. 1490  SOUND 37,1:MOTOR
  141. 1500  NEXT P
  142. 1510  LOCATE 21,P:PRINT SPACE$(12)
  143. 1520  LOCATE 22,P:PRINT SPACE$(12)
  144. 1530  FOR P=9 TO 1 STEP -1
  145. 1540  LOCATE 16,P:PRINT TOP1$;"THEN";
  146. 1550  LOCATE 17,P:PRINT BOT1$;"THEN";
  147. 1560  LOCATE 21,71-P:PRINT TOP2$;
  148. 1570  LOCATE 22,71-P:PRINT BOT2$;
  149. 1580  SOUND 2500,2:MOTOR
  150. 1590  NEXT P
  151. 1600  LOCATE 14,20:PRINT SPACE$(20)
  152. 1610  LOCATE 21,70:PRINT SPACE$(11);
  153. 1620  LOCATE 22,70:PRINT SPACE$(11);
  154. 1630  LOCATE 14,1:COLOR 15:PRINT "I can't believe it!"
  155. 1640  FOR D=1 TO 1000:NEXT D
  156. 1650  LOCATE 14,1:PRINT "I'd better check this out!"
  157. 1660  FOR D=1 TO 1000:NEXT D
  158. 1670  LOCATE 14,1:PRINT SPACE$(30)
  159. 1680  COLOR 7
  160. 1690  LOCATE 16,6:PRINT " ";
  161. 1700  FOR P=6 TO 26
  162. 1710  LOCATE 14,P:PRINT " ";E$
  163. 1720  FOR D=1 TO 300:NEXT D
  164. 1730  SOUND 100,0.1
  165. 1740  NEXT P
  166. 1750  COLOR 15
  167. 1760  LOCATE 13,15:PRINT "Wow, that thing must be 6 feet tall!"
  168. 1770  FOR D=1 TO 1500:NEXT D
  169. 1780  COLOR 7
  170. 1790  LOCATE 13,15:PRINT SPACE$(40)
  171. 1800  FOR P=23 TO 33
  172. 1810  LOCATE 16,P:PRINT TOP4$;"  Quack! Quack!"
  173. 1820  LOCATE 17,P:PRINT BOT4$;
  174. 1830  NEXT P
  175. 1840  COLOR 15
  176. 1850  LOCATE 13,15:PRINT "Wait!  Come back here!"
  177. 1860  COLOR 7
  178. 1870  LOCATE 16,43:PRINT SPACE$(15)
  179. 1880  FOR P=34 TO 73
  180. 1890  LOCATE 16,P:PRINT TOP4$;
  181. 1900  LOCATE 17,P:PRINT BOT4$;
  182. 1910  FOR D=1 TO 25:NEXT D
  183. 1920  NEXT P
  184. 1930  LOCATE 16,73:PRINT SPACE$(8);
  185. 1940  LOCATE 17,73:PRINT SPACE$(8);
  186. 1950  LOCATE 13,15:PRINT SPACE$(25)
  187. 1960  FOR P=26 TO 6 STEP -1
  188. 1970  LOCATE 14,P:PRINT E$;" ";
  189. 1980  FOR D=1 TO 100:NEXT D
  190. 1990  SOUND 100,0.1
  191. 2000  NEXT P
  192. 2010  LOCATE 14,6:PRINT " "
  193. 2020  LOCATE 16,6:PRINT E$;
  194. 2030  FOR N=1 TO 10
  195. 2040  FOR F=37 TO 300 STEP 25
  196. 2050  SOUND F,0.1
  197. 2060  NEXT F
  198. 2070  FOR F=300 TO 37 STEP -25
  199. 2080  SOUND F,0.1
  200. 2090  NEXT F
  201. 2100  NEXT N
  202. 2110  SOUND 37,1000
  203. 2120  FOR N=1 TO 75
  204. 2130  MOTOR
  205. 2140  FOR D=1 TO 25:NEXT D
  206. 2150  NEXT N
  207. 2160  SOUND 32767,0
  208. 2170  CLS
  209. 2180  FOR P=1 TO 80
  210. 2190  LOCATE 15,P
  211. 2200  PRINT "SOUND";
  212. 2210  LOCATE 19,P
  213. 2220  IF P MOD 4=0 THEN PRINT "THEN"; ELSE PRINT "SOUND";
  214. 2230  LOCATE 23,P
  215. 2240  PRINT "SOUND";
  216. 2250  NEXT P
  217. 2260  LOCATE 1,50
  218. 2270  PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  219. 2280  FOR S=1 TO 12
  220. 2290  LOCATE ,50
  221. 2300  PRINT "OPEN<UNK! {FEB3}><UNK! {FEB3}><UNK! {FEB3}><UNK! {FEB3}><UNK! {FEB3}>    CALL<UNK! {FEB3}><UNK! {FEB3}><UNK! {FEB3}><UNK! {FEB3}><UNK! {FEBA}>"
  222. 2310  NEXT S
  223. 2320  LOCATE 14,50
  224. 2330  PRINT "OPENLINECALLLINECALLLINECALLLINECALLLINECALL<UNK! {00FA}>INKEY$OFF<UNK! {00FA}>CALLLINECALLLINECALLLINECALLLINECALLLINEOPEN"
  225. 2340  LOCATE 9,61:PRINT L1$;
  226. 2350  LOCATE 10,61:PRINT L2$;
  227. 2360  LOCATE 11,61:PRINT L3$;
  228. 2370  LOCATE 12,61:PRINT L4$;
  229. 2380  LOCATE 9,30:PRINT S1$;
  230. 2390  LOCATE 10,30:PRINT S2$;
  231. 2400  LOCATE 11,30:PRINT S3$;
  232. 2410  LOCATE 12,30:PRINT S4$;
  233. 2420  LOCATE 13,30:PRINT S5$;
  234. 2430  LOCATE 14,30:PRINT S6$;
  235. 2440  LOCATE 13,61:PRINT "____";
  236. 2450  FOR P=70 TO 1 STEP -1
  237. 2460  LOCATE 16,P:PRINT TOP1$;
  238. 2470  LOCATE 17,P:PRINT BOT1$;
  239. 2480  LOCATE 21,71-P:PRINT CAR1$;
  240. 2490  LOCATE INT(P/10)+2,61:PRINT L1$;
  241. 2500  LOCATE INT(P/10)+3,61:PRINT L2$;
  242. 2510  LOCATE INT(P/10)+4,61:PRINT L3$;
  243. 2520  LOCATE INT(P/10)+5,61:PRINT L4$;
  244. 2530  IF P<70 THEN LOCATE INT(P/10)+6,61:PRINT SPACE$(4);
  245. 2540  IF P=55 THEN LOCATE 21,1:PRINT "Hello Eli.";
  246. 2550  IF P=45 THEN COLOR 15:LOCATE 16,55:PRINT "Oh, Hi OMEGAMAN!";:COLOR 7
  247. 2560  IF P=35 THEN LOCATE 21,1:PRINT SPACE$(15);
  248. 2570  IF P=25 THEN LOCATE 16,55:PRINT SPACE$(16);
  249. 2580  SOUND 37,1
  250. 2590  MOTOR
  251. 2600  NEXT P
  252. 2610  CLS
  253. 2620  FOR P=1 TO 30
  254. 2630  LOCATE 15,P:PRINT "SOUND";
  255. 2640  LOCATE 19,P:PRINT "THEN";
  256. 2650  LOCATE 23,P:PRINT "SOUND";
  257. 2660  NEXT P
  258. 2670  LOCATE 15,31:PRINT "'     CLS";
  259. 2680  LOCATE 23,31:PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";
  260. 2690  FOR P=1 TO 14
  261. 2700  LOCATE P,31:PRINT "CALL  OPEN  CALL";
  262. 2710  NEXT P
  263. 2720  FOR P=38 TO 80
  264. 2730  LOCATE 15,P:PRINT "SOUND";
  265. 2740  LOCATE 19,P:PRINT "THEN";
  266. 2750  LOCATE 23,P:PRINT "SOUND";
  267. 2760  NEXT P
  268. 2770  LOCATE 14,45
  269. 2780  PRINT CHR$(2);
  270. 2790  LOCATE 11,47:PRINT "VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR";
  271. 2800  LOCATE 12,47:PRINT "CALLROME ORCALL";
  272. 2810  LOCATE 13,47:PRINT "CALL BUST! CALL";
  273. 2820  LOCATE 14,47:PRINT "CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'";
  274. 2830  FOR P=70 TO 42 STEP -1
  275. 2840  LOCATE 16,P:PRINT TOP1$;
  276. 2850  LOCATE 17,P:PRINT BOT1$;
  277. 2860  SOUND 37,1
  278. 2870  MOTOR
  279. 2880  NEXT P
  280. 2890  FOR P=11 TO 14
  281. 2900  LOCATE P,47:PRINT SPACE$(9);
  282. 2910  NEXT P
  283. 2920  COLOR 15
  284. 2930  LOCATE 15,48:PRINT "o";
  285. 2940  LOCATE 14,49:PRINT "o";
  286. 2950  LOCATE 13,50:PRINT "o";
  287. 2960  LOCATE 12,52:PRINT "o";
  288. 2970  LOCATE 11,55:PRINT "o";
  289. 2980  LOCATE 10,59:PRINT "Looks suspicious!";
  290. 2990  COLOR 7
  291. 3000  FOR D=1 TO 1000:NEXT D
  292. 3010  LOCATE 13,38:PRINT "Hi there!"
  293. 3020  FOR D=1 TO 1000:NEXT D
  294. 3030  LOCATE 15,48:PRINT "SOUND";
  295. 3040  LOCATE 14,49:PRINT " ";
  296. 3050  LOCATE 13,50:PRINT " ";
  297. 3060  LOCATE 12,52:PRINT " ";
  298. 3070  LOCATE 11,55:PRINT " ";
  299. 3080  LOCATE 10,59:PRINT SPACE$(20);
  300. 3090  COLOR 15:LOCATE 14,49:PRINT "Hop in, honey!";
  301. 3100  COLOR 7
  302. 3110  FOR D=1 TO 1000:NEXT D
  303. 3120  LOCATE 13,38:PRINT SPACE$(10);
  304. 3130  LOCATE 14,45:PRINT " ";
  305. 3140  LOCATE 16,47:PRINT CHR$(2);
  306. 3150  MID$(TOP1$,7,1)=CHR$(2)
  307. 3160  MID$(TOP2$,5,1)=CHR$(2)
  308. 3170  LOCATE 14,49:PRINT SPACE$(15);
  309. 3180  FOR P=41 TO 1 STEP -1
  310. 3190  LOCATE 16,P:PRINT TOP1$;
  311. 3200  LOCATE 17,P:PRINT BOT1$;
  312. 3210  SOUND 37,1
  313. 3220  MOTOR
  314. 3230  NEXT P
  315. 3240  CLS
  316. 3250  FOR P=1 TO 80
  317. 3260  LOCATE 15,P:PRINT "SOUND";
  318. 3270  IF P MOD 4=0 THEN LOCATE 19,P:PRINT "SOUND";
  319. 3280  LOCATE 23,P:PRINT "SOUND";
  320. 3290  NEXT P
  321. 3300  LOCATE  1,30:PRINT "VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  322. 3310  LOCATE  2,30:PRINT "CALL <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>       <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> CALL"
  323. 3320  LOCATE  3,30:PRINT "CALL <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> CALL"
  324. 3330  LOCATE  4,30:PRINT "CALL   <0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   CALL"
  325. 3340  LOCATE  5,30:PRINT "CALL   <0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   CALL"
  326. 3350  LOCATE  6,30:PRINT "CALL   <0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>     <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   CALL"
  327. 3360  LOCATE  7,30:PRINT "CALL   <0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!>   CALL"
  328. 3370  LOCATE  8,30:PRINT "CALL <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> CALL"
  329. 3380  LOCATE  9,30:PRINT "CALL <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>   <0xDF!>   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> CALL"
  330. 3390  LOCATE 10,30:PRINT "CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSPC(SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'"
  331. 3400  LOCATE 11,30:PRINT "VARPTRSOUNDSOUNDSPC(SOUNDSOUNDSPC(SOUNDSOUNDUSINGSOUNDSOUNDSPC(SOUNDSOUNDSPC(SOUNDSOUNDSPC(SOUNDBSAVESOUNDSOUNDBSAVESOUNDSPC(SOUNDSOUNDSPC(SOUNDSOUNDSPC(SOUNDSOUNDUSINGSOUNDSOUNDSPC(SOUNDSOUNDSPC(SOUNDSOUNDCOLOR"
  332. 3410  LOCATE 12,30:PRINT "PSETTHENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THEN<0xB5!>  PSETTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHEN<0xB5!>"
  333. 3420  LOCATE 13,30:PRINT "PSETTHENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENINSTRTHENTHENINSTRTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHENTAB(THENTHEN<0xB5!>"
  334. 3430  LOCATE 14,30:PRINT "CALL<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN CALL<UNK! {00FA}><UNK! {00FA}>CALL OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>OPEN<UNK! {FEFE}>CALL"
  335. 3440  FOR P=70 TO 1 STEP -1
  336. 3450  LOCATE 16,P:PRINT TOP1$;
  337. 3460  LOCATE 17,P:PRINT BOT1$;
  338. 3470  IF P=45 THEN LOCATE 16,55:COLOR 15:PRINT "Hi.  I'm Eli Scarboni.":COLOR 7
  339. 3480  IF P=35 THEN LOCATE 16,55:PRINT SPACE$(24);:LOCATE 16,45:PRINT "And I'm Susie Sweetwater.":LOCATE 17,45:PRINT "I've heard a lot about you!"
  340. 3490  IF P=15 THEN LOCATE 16,45:PRINT SPACE$(34);:LOCATE 17,45:PRINT SPACE$(34);:LOCATE 16,25:COLOR 15:PRINT "Oh yeah?  Like what, for instance?":COLOR 7
  341. 3500  SOUND 37,1
  342. 3510  MOTOR
  343. 3520  FOR D=1 TO 100:NEXT D
  344. 3530  NEXT P
  345. 3540  CLS
  346. 3550  FOR P=1 TO 80
  347. 3560  LOCATE 15,P:PRINT "SOUND";
  348. 3570  LOCATE 19,P:PRINT "THEN";
  349. 3580  LOCATE 23,P:PRINT "SOUND";
  350. 3590  NEXT P
  351. 3600  LOCATE 15,25:PRINT SPACE$(20);
  352. 3610  FOR P=26 TO 35
  353. 3620  LOCATE 41-P,P:PRINT "/";
  354. 3630  NEXT P
  355. 3640  LOCATE 6,36:PRINT STRING$(20,196);
  356. 3650  LOCATE  7,50:PRINT "   WHILEWHILEWHILEWHILEWHILEWHILE LINELINELINELINELINE   "
  357. 3660  LOCATE  8,50:PRINT "  WHILEWHILEWENDWENDWENDWENDWENDWENDWENDWENDLINELINELINELINELINE "
  358. 3670  LOCATE  9,50:PRINT "  WHILEWENDWENDWENDWENDWENDWENDWENDWENDWENDWENDLINELINELINELINELINE"
  359. 3680  LOCATE 10,50:PRINT "  WHILEWENDWENDWENDWENDWENDWENDWENDWENDWENDWENDLINELINELINELINELINE"
  360. 3690  LOCATE 11,50:PRINT "    WENDWENDWENDWENDWENDWENDWENDWENDLINELINELINELINELINE "
  361. 3700  LOCATE 12,50:PRINT "    CSRLIN <0xDF!>CSRLINWENDCSRLIN<0xDF!><0xDF!>CSRLIN<0xDF!><0xDF!>   "
  362. 3710  LOCATE 13,50:PRINT "   POINTCSRLINPOINT  CSRLIN  POINTCSRLINPOINT    "
  363. 3720  LOCATE 14,50:PRINT "       CSRLIN<0xDF!>CSRLIN <0xDF!> <0xDF!>    "
  364. 3730  FOR P=70 TO 15 STEP -1
  365. 3740  LOCATE 16,P:PRINT TOP1$;
  366. 3750  LOCATE 17,P:PRINT BOT1$;
  367. 3760  IF P=50 THEN LOCATE 16,60:PRINT "Well, that you can";:LOCATE 17,60:PRINT "pick one ton of ";:LOCATE 18,60:PRINT "spaghetti a day!";
  368. 3770  SOUND 37,1
  369. 3780  MOTOR
  370. 3790  NEXT P
  371. 3800  X=38:Y=8
  372. 3810  LOCATE 16,50:PRINT SPACE$(31);
  373. 3820  LOCATE 17,50:PRINT SPACE$(31);
  374. 3830  LOCATE 18,50:PRINT SPACE$(31);
  375. 3840  FOR P=14 TO 2 STEP -1
  376. 3850  LOCATE 16,P:PRINT TOP1$;
  377. 3860  LOCATE 17,P:PRINT BOT1$;
  378. 3870  LOCATE Y,X:PRINT TOP5$;
  379. 3880  LOCATE Y+1,X:PRINT BOT5$;
  380. 3890  SOUND 2000,5:LOCATE Y-1,X+5:PRINT "* ";:IF Y=17 THEN 3920
  381. 3900  LOCATE Y,X:PRINT SPACE$(10);
  382. 3910  LOCATE Y+1,X:PRINT SPACE$(10);
  383. 3920  LOCATE Y-1,X+5:PRINT SPACE$(2);:IF Y<17 THEN Y=Y+1
  384. 3930  X=X-1
  385. 3940  LOCATE Y,X:PRINT TOP5$;
  386. 3950  LOCATE Y+1,X:PRINT BOT5$;
  387. 3960  SOUND 1000,5:LOCATE Y-1,X+5:PRINT " *";:IF Y=17 THEN 3990
  388. 3970  LOCATE Y,X:PRINT SPACE$(10);
  389. 3980  LOCATE Y+1,X:PRINT SPACE$(10);
  390. 3990  LOCATE Y-1,X+5:PRINT SPACE$(2);:IF Y<17 THEN Y=Y+1
  391. 4000  X=X-1
  392. 4010  SOUND 37,1
  393. 4020  MOTOR
  394. 4030  NEXT P
  395. 4040  LOCATE 17,18:PRINT " ";
  396. 4050  FOR P=11 TO 5 STEP -1
  397. 4060  LOCATE 18,P:PRINT "LIST ";
  398. 4070  SOUND 100,0.1
  399. 4080  FOR D=1 TO 300:NEXT D
  400. 4090  NEXT P
  401. 4100  LOCATE 21,2:PRINT "Well, if it isn't Eli Scarboni!"
  402. 4110  FOR D=1 TO 1000:NEXT D
  403. 4120  LOCATE 14,2:COLOR 15:PRINT "That's right!":COLOR 7
  404. 4130  FOR D=1 TO 500:NEXT D
  405. 4140  LOCATE 21,2:PRINT SPACE$(40);
  406. 4150  FOR D=1 TO 500:NEXT D
  407. 4160  LOCATE 14,2:PRINT SPACE$(20);
  408. 4170  LOCATE 21,2:PRINT "Well I have a warrant for your arrest!"
  409. 4180  FOR D=1 TO 1500:NEXT D
  410. 4190  LOCATE 14,2:COLOR 15:PRINT "Oh yeah?":COLOR 7
  411. 4200  FOR D=1 TO 1000:NEXT D
  412. 4210  FOR F=37 TO 100:SOUND F,0.1:MOTOR :NEXT F:SOUND 100,100
  413. 4220  LOCATE 16,1:PRINT TOP1$;
  414. 4230  LOCATE 17,1:PRINT BOT1$;
  415. 4240  CLS
  416. 4250  FOR P=1 TO 80
  417. 4260  LOCATE 15,P:PRINT "SOUND";
  418. 4270  LOCATE 19,P:IF P MOD 4=0 THEN PRINT "THEN"; ELSE PRINT "SOUND";
  419. 4280  LOCATE 23,P:PRINT "SOUND";
  420. 4290  NEXT P
  421. 4300  LOCATE 9,15:PRINT D1$;
  422. 4310  LOCATE 10,15:PRINT D2$;
  423. 4320  LOCATE 11,15:PRINT D3$;
  424. 4330  LOCATE 12,15:PRINT D4$;
  425. 4340  LOCATE 13,15:PRINT D5$;
  426. 4350  LOCATE 14,15:PRINT D6$;
  427. 4360  SOUND 100,0
  428. 4370  FOR P=70 TO 1 STEP -1
  429. 4380  LOCATE 16,P:PRINT TOP1$;
  430. 4390  LOCATE 17,P:PRINT BOT1$;
  431. 4400  SOUND 100,1
  432. 4410  MOTOR
  433. 4420  NEXT P
  434. 4430  LOCATE 16,1:PRINT SPACE$(12);
  435. 4440  LOCATE 17,1:PRINT SPACE$(12);
  436. 4450  FOR P=70 TO 1 STEP -1
  437. 4460  LOCATE 17,P:PRINT TOP5$;
  438. 4470  LOCATE 18,P:PRINT BOT5$;
  439. 4480  IF P MOD 2=0 THEN LOCATE 16,P+5:PRINT " *"; ELSE LOCATE 16,P+5:PRINT "*  ";
  440. 4490  IF P MOD 10<5 THEN SOUND 1000,0:SOUND 1000,5 ELSE SOUND 2000,0:SOUND 2000,5
  441. 4500  MOTOR
  442. 4510  NEXT P
  443. 4520  CLS
  444. 4530  FOR P=1 TO 20
  445. 4540  LOCATE 15,P:PRINT "SOUND";
  446. 4550  LOCATE 19,P:PRINT "THEN";
  447. 4560  LOCATE 23,P:PRINT "SOUND";
  448. 4570  NEXT P
  449. 4580  FOR P=40 TO 80
  450. 4590  LOCATE 15,P:PRINT "SOUND";
  451. 4600  LOCATE 19,P:PRINT "THEN";
  452. 4610  LOCATE 23,P:PRINT "SOUND";
  453. 4620  NEXT P
  454. 4630  FOR P=16 TO 22
  455. 4640  LOCATE P,21:PRINT ">";
  456. 4650  LOCATE P,39:PRINT "<";
  457. 4660  NEXT P
  458. 4670  LOCATE 11,50:PRINT R1$;
  459. 4680  LOCATE 12,50:PRINT R2$;
  460. 4690  LOCATE 13,50:PRINT R3$;
  461. 4700  LOCATE 14,50:PRINT R4$;
  462. 4710  FOR P=70 TO 40 STEP -1
  463. 4720  LOCATE 16,P:PRINT TOP1$;
  464. 4730  LOCATE 17,P:PRINT BOT1$;
  465. 4740  IF P=55 THEN LOCATE 16,65:COLOR 15:PRINT "Hang on tight!";:COLOR 7
  466. 4750  SOUND 100,1
  467. 4760  MOTOR
  468. 4770  NEXT P
  469. 4780  LOCATE 16,65:PRINT SPACE$(14);:SOUND 100,100
  470. 4790  LOCATE 15,39:PRINT TOP1$;
  471. 4800  LOCATE 16,39:PRINT BOT1$;" ";
  472. 4810  LOCATE 17,40:PRINT SPACE$(11);
  473. 4820  LOCATE 14,38:PRINT TOP1$;
  474. 4830  LOCATE 15,38:PRINT BOT1$;"SOUND";
  475. 4840  LOCATE 16,39:PRINT "<";SPACE$(11);
  476. 4850  LOCATE 13,37:PRINT TOP1$;
  477. 4860  LOCATE 14,37:PRINT BOT1$;" ";
  478. 4870  LOCATE 15,38:PRINT "  ";STRING$(11,196);
  479. 4880  LOCATE 12,36:PRINT TOP1$;
  480. 4890  LOCATE 13,36:PRINT BOT1$;" ";
  481. 4900  LOCATE 14,37:PRINT SPACE$(11)
  482. 4910  SOUND 100,0
  483. 4920  LOCATE 8,20:PRINT "Help!!";
  484. 4930  FOR P=35 TO 13 STEP -1
  485. 4940  LOCATE 12,P:PRINT TOP1$;
  486. 4950  LOCATE 13,P:PRINT BOT1$;
  487. 4960  SOUND 100,1
  488. 4970  NEXT P
  489. 4980  SOUND 100,100
  490. 4990  LOCATE 8,20:PRINT SPACE$(10);
  491. 5000  LOCATE 13,12:PRINT TOP1$;" ";
  492. 5010  LOCATE 14,12:PRINT BOT1$;
  493. 5020  LOCATE 12,13:PRINT SPACE$(11);
  494. 5030  LOCATE 14,11:PRINT TOP1$;" ";
  495. 5040  LOCATE 15,11:PRINT BOT1$;
  496. 5050  LOCATE 13,12:PRINT SPACE$(11);
  497. 5060  LOCATE 15,10:PRINT TOP1$;" ";
  498. 5070  LOCATE 16,10:PRINT BOT1$;
  499. 5080  LOCATE 14,11:PRINT SPACE$(11);
  500. 5090  LOCATE 16,9:PRINT TOP1$;" ";
  501. 5100  LOCATE 17,9:PRINT BOT1$;
  502. 5110  LOCATE 15,10:PRINT STRING$(11,196);
  503. 5120  SOUND 100,0
  504. 5130  LOCATE 10,2:COLOR 15:PRINT "Whew!!!";:COLOR 7
  505. 5140  FOR P=8 TO 1 STEP -1
  506. 5150  LOCATE 16,P:PRINT TOP1$;
  507. 5160  LOCATE 17,P:PRINT BOT1$;
  508. 5170  SOUND 100,1
  509. 5180  MOTOR
  510. 5190  NEXT P
  511. 5200  LOCATE 10,2:PRINT SPACE$(10);
  512. 5210  LOCATE 16,1:PRINT SPACE$(11);
  513. 5220  LOCATE 17,1:PRINT SPACE$(11);
  514. 5230  FOR P=70 TO 50 STEP -1
  515. 5240  LOCATE 17,P:PRINT TOP5$;
  516. 5250  LOCATE 18,P:PRINT BOT5$;
  517. 5260  IF P MOD 2=0 THEN LOCATE 16,P+5:PRINT " *"; ELSE LOCATE 16,P+5:PRINT "*  ";
  518. 5270  IF P MOD 10<5 THEN SOUND 1000,0:SOUND 1000,5 ELSE SOUND 2000,0:SOUND 2000,5
  519. 5280  IF P=55 THEN LOCATE 16,65:PRINT "Look out!";:LOCATE 17,65:PRINT "Hit the brakes!"
  520. 5290  MOTOR
  521. 5300  NEXT P
  522. 5310  LOCATE 16,49:PRINT SPACE$(10);
  523. 5320  FOR P=49 TO 30 STEP -1
  524. 5330  LOCATE 17,P:PRINT TOP5$;"THEN"
  525. 5340  LOCATE 18,P:PRINT BOT5$;"THEN"
  526. 5350  SOUND 2500,0:SOUND 2500,5
  527. 5360  NEXT P
  528. 5370  LOCATE 17,65:PRINT SPACE$(15);
  529. 5380  LOCATE 16,65:PRINT SPACE$(15);
  530. 5390  LOCATE 12,30:PRINT "Uh-oh!";
  531. 5400  FOR P=29 TO 22 STEP -1
  532. 5410  LOCATE 17,P:PRINT TOP5$;:IF P=28 THEN PRINT "<THEN";
  533. 5420  LOCATE 18,P:PRINT BOT5$;:IF P=28 THEN PRINT "<THEN";
  534. 5430  IF P MOD 10<5 THEN SOUND 1000,0:SOUND 1000,5 ELSE SOUND 2000,0:SOUND 2000,5
  535. 5440  NEXT P
  536. 5450  FOR P=18 TO 24
  537. 5460  LOCATE P,22:PRINT TOP5$;
  538. 5470  LOCATE P+1,22:PRINT BOT5$;
  539. 5480  LOCATE P-1,22:PRINT SPACE$(11);
  540. 5490  IF P MOD 8<4 THEN SOUND 1000,0:SOUND 1000,5 ELSE SOUND 2000,0:SOUND 2000,5
  541. 5500  NEXT P
  542. 5510  LOCATE 12,25:PRINT "S P L A S H !"
  543. 5520  FOR F=1000 TO 37 STEP -50
  544. 5530  SOUND F*2,5:SOUND F,5
  545. 5540  NEXT F
  546. 5550  CLS
  547. 5560  FOR P=1 TO 80
  548. 5570  LOCATE 15,P:PRINT "SOUND";
  549. 5580  IF P MOD 4=0 THEN LOCATE 19,P:PRINT "SOUND";
  550. 5590  LOCATE 23,P:PRINT "SOUND";
  551. 5600  NEXT P
  552. 5610  FOR P=70 TO 30 STEP -1
  553. 5620  LOCATE 16,P:PRINT TOP1$;
  554. 5630  LOCATE 17,P:PRINT BOT1$;
  555. 5640  IF P=50 THEN LOCATE 16,60:PRINT "You did it!";:LOCATE 17,60:PRINT "We lost them!";
  556. 5650  SOUND 100,1
  557. 5660  MOTOR
  558. 5670  NEXT P
  559. 5680  LOCATE 16,60:PRINT SPACE$(20);
  560. 5690  LOCATE 17,60:PRINT SPACE$(20);
  561. 5700  LOCATE 16,40:COLOR 15:PRINT "Not so fast.  We have some more company!":COLOR 7
  562. 5710  FOR P=29 TO 1 STEP -1
  563. 5720  LOCATE 16,P:PRINT TOP1$;
  564. 5730  LOCATE 17,P:PRINT BOT1$;
  565. 5740  LOCATE 12,P*2:PRINT TOP6$;
  566. 5750  LOCATE 13,P*2:PRINT BOT6$;
  567. 5760  SOUND 100,1
  568. 5770  MOTOR
  569. 5780  NEXT P
  570. 5790  CLS
  571. 5800  FOR P=1 TO 22
  572. 5810  LOCATE 15,P:PRINT "SOUND";
  573. 5820  LOCATE 19,P:PRINT "THEN";
  574. 5830  LOCATE 23,P:PRINT "SOUND";
  575. 5840  NEXT P
  576. 5850  FOR P=53 TO 80
  577. 5860  IF P>55 THEN LOCATE 15,P:PRINT "SOUND";
  578. 5870  LOCATE 19,P:PRINT "THEN";
  579. 5880  LOCATE 23,P:PRINT "SOUND";
  580. 5890  NEXT P
  581. 5900  LOCATE 23,52:PRINT CHR$(192);
  582. 5910  LOCATE 15,59:PRINT CHR$(193);
  583. 5920  LOCATE 24,23:PRINT CHR$(193);
  584. 5930  LOCATE 24,50:PRINT CHR$(193);
  585. 5940  LOCATE 14,61:PRINT CHR$(193);
  586. 5950  FOR P=4 TO 13
  587. 5960  LOCATE P,61:PRINT CHR$(179);
  588. 5970  LOCATE P+10,23:PRINT CHR$(179);
  589. 5980  LOCATE P+10,50:PRINT CHR$(179);
  590. 5990  NEXT P
  591. 6000  FOR P=12 TO 14
  592. 6010  LOCATE P,59:PRINT CHR$(179);
  593. 6020  LOCATE P+7,52:PRINT CHR$(179);
  594. 6030  LOCATE 22,52:PRINT CHR$(179);
  595. 6040  NEXT P
  596. 6050  FOR P=12 TO 18
  597. 6060  LOCATE P,70-P:PRINT "/";
  598. 6070  NEXT P
  599. 6080  FOR P=4 TO 13
  600. 6090  LOCATE P,37-P:PRINT "/";
  601. 6100  LOCATE P,64-P:PRINT "/";
  602. 6110  NEXT P
  603. 6120  FOR P=25 TO 49
  604. 6130  LOCATE 13,P:PRINT "_";
  605. 6140  LOCATE 3,P+9:PRINT "_";
  606. 6150  NEXT P
  607. 6160  LOCATE 3,59:PRINT "__";
  608. 6170  LOCATE 20,65:PRINT "A tunnel!";
  609. 6180  FOR P=70 TO 56 STEP -1
  610. 6190  LOCATE 16,P:PRINT TOP1$;
  611. 6200  LOCATE 17,P:PRINT BOT1$;
  612. 6210  IF P<65 THEN LOCATE 12,P:PRINT TOP6$;
  613. 6220  IF P<65 THEN LOCATE 13,P:PRINT BOT6$;
  614. 6230  SOUND 100,1
  615. 6240  MOTOR
  616. 6250  NEXT P
  617. 6260  FOR P=55 TO 47 STEP -1
  618. 6270  LOCATE 16,57:PRINT RIGHT$(TOP1$,P-46);
  619. 6280  LOCATE 17,56:PRINT RIGHT$(BOT1$,P-45);
  620. 6290  IF P>52 THEN LOCATE 12,P:PRINT TOP6$;
  621. 6300  IF P>52 THEN LOCATE 13,P:PRINT BOT6$;
  622. 6310  SOUND 100,1
  623. 6320  MOTOR
  624. 6330  NEXT P
  625. 6340  LOCATE 16,56:PRINT " ";
  626. 6350  LOCATE 17,56:PRINT " ";
  627. 6360  LOCATE 20,65:PRINT SPACE$(15);
  628. 6370  FOR P=13 TO 24
  629. 6380  LOCATE P,52:PRINT TOP6$;
  630. 6390  LOCATE P+1,52:PRINT BOT6$;
  631. 6400  READ Q$
  632. 6410  LOCATE P-1,52:PRINT Q$;
  633. 6420  SOUND 100,0:SOUND 100,1
  634. 6430  MOTOR
  635. 6440  NEXT P
  636. 6450  LOCATE 22,55:PRINT "LISTLIST";
  637. 6460  LOCATE 24,52:PRINT "              ";
  638. 6470  LOCATE 25,52:PRINT " C R A S H    ";
  639. 6480  FOR P=22 TO 12 STEP -1
  640. 6490  LOCATE 16,P:PRINT LEFT$(TOP1$,23-P);
  641. 6500  LOCATE 17,P:PRINT LEFT$(BOT1$,23-P);
  642. 6510  SOUND 100,1
  643. 6520  MOTOR
  644. 6530  NEXT P
  645. 6540  FOR P=11 TO 1 STEP -1
  646. 6550  IF P MOD 4<2 THEN LOCATE 21,55:PRINT " LIST";:LOCATE 22,55:PRINT "LIST "; ELSE LOCATE 21,55:PRINT "LIST ";:LOCATE 22,55:PRINT " LIST";
  647. 6560  LOCATE 16,P:PRINT TOP1$;
  648. 6570  LOCATE 17,P:PRINT BOT1$;
  649. 6580  IF P=10 THEN LOCATE 16,60:PRINT "Darn! Darn!  You";:LOCATE 17,60:PRINT "let them get away!";
  650. 6590  IF P=1 THEN LOCATE 16,60:PRINT "Me? You were flying";:LOCATE 17,60:PRINT "the plane!";SPACE$(10);
  651. 6600  SOUND 100,1
  652. 6610  MOTOR
  653. 6620  FOR D=1 TO 100:NEXT D
  654. 6630  NEXT P
  655. 6640  LOCATE 16,1:PRINT SPACE$(11);
  656. 6650  LOCATE 17,1:PRINT SPACE$(11);
  657. 6660  FOR D=1 TO 3500:NEXT D
  658. 6670  CLS
  659. 6680  FOR P=1 TO 80
  660. 6690  LOCATE 15,P:PRINT "SOUND";
  661. 6700  IF P MOD 4=0 THEN LOCATE 19,P:PRINT "SOUND";
  662. 6710  LOCATE 23,P:PRINT "SOUND";
  663. 6720  NEXT P
  664. 6730  FOR P=70 TO 1 STEP -1
  665. 6740  LOCATE 16,P:PRINT TOP1$;
  666. 6750  LOCATE 17,P:PRINT BOT1$;
  667. 6760  IF P=30 THEN LOCATE 16,40:COLOR 15:PRINT "Isn't it amazing how straight";:LOCATE 17,40:PRINT "this road is?";:COLOR 7
  668. 6770  SOUND 100,1
  669. 6780  MOTOR
  670. 6790  NEXT P
  671. 6800  CLS
  672. 6810  FOR P=1 TO 80
  673. 6820  LOCATE 15,P:PRINT "SOUND";
  674. 6830  LOCATE 19,P:PRINT "THEN";
  675. 6840  LOCATE 23,P:PRINT "SOUND";
  676. 6850  NEXT P
  677. 6860  LOCATE 9,55:PRINT C1$;
  678. 6870  LOCATE 10,55:PRINT C2$;
  679. 6880  LOCATE 11,55:PRINT C3$;
  680. 6890  LOCATE 12,55:PRINT C4$;
  681. 6900  LOCATE 13,55:PRINT C5$;
  682. 6910  LOCATE 14,55:PRINT C6$;
  683. 6920  FOR P=70 TO 15 STEP -1
  684. 6930  LOCATE 16,P:PRINT TOP1$;
  685. 6940  LOCATE 17,P:PRINT BOT1$;
  686. 6950  SOUND 100,1
  687. 6960  MOTOR
  688. 6970  NEXT P
  689. 6980  FOR P=15 TO 5 STEP -1
  690. 6990  LOCATE 16,P:PRINT TOP1$;"THEN";
  691. 7000  LOCATE 17,P:PRINT BOT1$;"THEN";
  692. 7010  SOUND 2500,0:SOUND 2500,4
  693. 7020  NEXT P
  694. 7030  LOCATE 16,11:PRINT " ";
  695. 7040  LOCATE 14,9:PRINT CHR$(2);
  696. 7050  LOCATE 10,2:COLOR 15:PRINT "Well, this is it!";:COLOR 7
  697. 7060  FOR D=1 TO 1000:NEXT D
  698. 7070  LOCATE 10,2:PRINT "Yes!  Thank you very much!";
  699. 7080  LOCATE 11,2:PRINT "It was ";:COLOR 1:PRINT "very";:COLOR 7:PRINT " exciting!";
  700. 7090  FOR D=1 TO 2000:NEXT D
  701. 7100  LOCATE 10,2:PRINT "Well, what are you going to do now?";
  702. 7110  LOCATE 11,2:PRINT SPACE$(40);
  703. 7120  FOR D=1 TO 1000:NEXT D
  704. 7130  LOCATE 9,2:COLOR 15:PRINT "I suppose I'll go to America,"
  705. 7140  LOCATE 10,2:PRINT "get an IBM PC, and write cartoons to";
  706. 7150  LOCATE 11,2:PRINT "run on it.  Maybe an autobiography or";
  707. 7160  LOCATE 12,2:PRINT "something!";:COLOR 7
  708. 7170  FOR D=1 TO 4000:NEXT D
  709. 7180  FOR P=9 TO 12:LOCATE P,1:PRINT SPACE$(45);
  710. 7190  NEXT P
  711. 7200  LOCATE 10,2:PRINT "Good luck, and don't get";
  712. 7210  LOCATE 11,2:PRINT "into trouble!";
  713. 7220  FOR D=1 TO 2000:NEXT D
  714. 7230  LOCATE 10,2:COLOR 15:PRINT "Ok, I won't.  Goodbye now!";:COLOR 7
  715. 7240  LOCATE 11,2:PRINT "Goodbye!     ";
  716. 7250  FOR D=1 TO 1000:NEXT D
  717. 7260  MID$(TOP1$,7,1)=" "
  718. 7270  FOR P=4 TO 1 STEP -1
  719. 7280  LOCATE 16,P:PRINT TOP1$;
  720. 7290  LOCATE 17,P:PRINT BOT1$;
  721. 7300  SOUND 100,1
  722. 7310  MOTOR
  723. 7320  NEXT P
  724. 7330  CLS
  725. 7340  FOR P=1 TO 80
  726. 7350  LOCATE 15,P:PRINT "SOUND";
  727. 7360  LOCATE 19,P:IF P MOD 4=0 THEN PRINT "THEN"; ELSE PRINT "SOUND";
  728. 7370  LOCATE 23,P:PRINT "SOUND";
  729. 7380  NEXT P
  730. 7390  TOP1$=TOP1$+"CSRLIN<0xDF!> CSRLIN CSRLINPOINT CSRLIN CSRLIN                                "
  731. 7400  BOT1$=BOT1$+"CSRLIN<0xDF!> CSRLIN CSRLIN <0xDF!>CSRLIN CSRLIN    Sorry, couldn't make an 'E' "
  732. 7410  FOR P=79 TO 26 STEP -1
  733. 7420  LOCATE 16,P:PRINT LEFT$(TOP1$,80-P);
  734. 7430  LOCATE 17,P:PRINT LEFT$(BOT1$,80-P);
  735. 7440  SOUND 100,1
  736. 7450  MOTOR
  737. 7460  NEXT P
  738. 7470  FOR P=25 TO 1 STEP -1
  739. 7480  LOCATE 16,P:PRINT TOP1$;
  740. 7490  LOCATE 17,P:PRINT BOT1$;
  741. 7500  SOUND 100,1
  742. 7510  MOTOR
  743. 7520  NEXT P
  744. 7530  FOR D=1 TO 4000:NEXT D
  745. 7540  CLS
  746. 7550  LOCATE 1,38:PRINT "Cast";
  747. 7560  LOCATE 2,28:PRINT "(in order of appearance)";:V$=""
  748. 7570  C$=CHR$(1):N$="Eli Scarboni":Q=1:GOSUB 7680
  749. 7580  C$=CHR$(1):N$="Man in car":Q=2:GOSUB 7680
  750. 7590  C$=CHR$(234):N$="Omegaman":Q=3:GOSUB 7680
  751. 7600  C$=CHR$(1):N$="First person in elevator":Q=4:GOSUB 7680
  752. 7610  C$=CHR$(2):N$="Second person in elevator":Q=5:GOSUB 7680
  753. 7620  C$=CHR$(2):N$="Susie Sweetwater":Q=6:GOSUB 7680
  754. 7630  C$=CHR$(147):N$="First police officer":Q=7:GOSUB 7680
  755. 7640  C$=CHR$(147):N$="Second police officer":Q=8:GOSUB 7680
  756. 7650  C$=CHR$(147):N$="Third police officer":Q=9:GOSUB 7680
  757. 7660  C$=CHR$(147):N$="Fourth police officer":Q=10:GOSUB 7680
  758. 7670  GOTO 7780
  759. 7680  FOR P=24 TO 5 STEP -1
  760. 7690  LOCATE P,45:PRINT C$;:LOCATE P,50:PRINT N$;
  761. 7700  LOCATE P+1,45:PRINT SPACE$(34);
  762. 7710  NEXT P
  763. 7720  FOR D=1 TO 3000:NEXT D
  764. 7730  LOCATE 5,50:PRINT SPACE$(29);
  765. 7740  FOR P=44 TO Q STEP -1
  766. 7750  LOCATE 5,P:PRINT C$;" ";
  767. 7760  NEXT P
  768. 7770  V$=V$+C$:RETURN
  769. 7780  FOR D=1 TO 4000:NEXT D
  770. 7790  FOR P=70 TO 50 STEP -1
  771. 7800  LOCATE 5,P:PRINT TOP3$;
  772. 7810  LOCATE 6,P:PRINT BOT3$;
  773. 7820  NEXT P
  774. 7830  LOCATE 7,2:COLOR 15:PRINT "Oh no!  It's that giant duck!";:COLOR 7
  775. 7840  FOR P=49 TO 40 STEP -1
  776. 7850  LOCATE 5,P:PRINT TOP3$;
  777. 7860  LOCATE 6,P:PRINT BOT3$;
  778. 7870  LOCATE 5,1:PRINT RIGHT$(V$,P-39);" ";
  779. 7880  NEXT P
  780. 7890  LOCATE 5,1:PRINT " ";
  781. 7900  FOR P=39 TO 35 STEP -1
  782. 7910  LOCATE 5,P:PRINT TOP3$;
  783. 7920  LOCATE 6,P:PRINT BOT3$;
  784. 7930  NEXT P
  785. 7940  LOCATE 5,20:COLOR 18:PRINT "Quack! Quack!";:COLOR 7
  786. 7950  FOR D=1 TO 3000:NEXT D
  787. 7960  FOR P=1 TO 25
  788. 7970  LOCATE P,1:PRINT STRING$(79,219);
  789. 7980  NEXT P
  790. 7990  FOR D=1 TO 2000:NEXT D
  791. 8000  CLS
  792. 8010  LOCATE 10,33:PRINT "This has been a";
  793. 8020  LOCATE 12,34:PRINT "Lance Pickup";
  794. 8030  LOCATE 14,35:PRINT "Production";
  795. 8040  FOR D=1 TO 2500:NEXT D
  796. 8050  LOCATE 20,35:PRINT "Thank you!";
  797. 8060  FOR D=1 TO 3000:NEXT D
  798. 8070  CLS
  799. 8080  P$="O3E-O2A"
  800. 8090  PLAY "O3T90L8FP16L4CDL8CDP8L64T255"+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$+P$
  801. 8100  END
  802.