home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCLING / SPELLBEE / COFFEE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  12.0 KB  |  373 lines
  1. 10  '     save"coffee.bas
  2. 20  '
  3. 30  '*********** written by Mike Alling *******************
  4. 40  ' *******the Lone Ranger was written by Tom Sorber **********
  5. 50  KEY OFF
  6. 60  CLS
  7. 70  WIDTH 40
  8. 80  SCREEN 1,0
  9. 90  COLOR 0,0
  10. 100  'GOSUB 2000 'PLAY INITIAL SONG
  11. 110  DIM X(100),Y(100)
  12. 120  FOR I=1 TO 100
  13. 130  LET Y(I)=-I
  14. 140  NEXT I
  15. 150  FOR J=0 TO 90 STEP 10
  16. 160  FOR I=1 TO 10
  17. 170  LET X(I+J)=I
  18. 180  NEXT I
  19. 190  NEXT J
  20. 200  FOR J=10 TO 90 STEP 20
  21. 210  FOR I=1 TO 10
  22. 220  LET X(I+J)=10-I
  23. 230  NEXT I
  24. 240  NEXT J
  25. 250  DIM PFACESL(250),CFACESL(150),CFACESL1(150),PERKA(100),PERKA2(100)
  26. 260  DIM PFACEST(250)
  27. 270  DIM PFACEAW(350),CFACEAW(200),CFACEAW1(250)
  28. 280  DIM CFACECR(150)
  29. 290  DIM PFACEOP(350),CFACEOP(200)
  30. 300  GOSUB 1630 ' draw the empty pot/cups
  31. 310  '*******SLEEPING FACE ON POT******
  32. 320  DRAW "s4" 'reset scale back to normal
  33. 330  DRAW "BM200,70"
  34. 340  DRAW "R12 BM+16,+0 R12" 'EYEBROWS
  35. 350  DRAW "BM195,75" 'NOW THE EYES
  36. 360  DRAW "R16 M-2,+32 L12 R2 M-4,-32"
  37. 370  DRAW "BM+28,+0 M+2,+32 R12 L2 M+4,-32 L16"
  38. 380  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  39. 390  DRAW "BM-15,+4 M-4,+8 M+2,-4 M+4,+8 R25 M+12,-8 M-4,-4 M+8,+8" 'MOUTH
  40. 400  '***SLEEPING FACE ON CUPS****
  41. 410  DRAW "S2"
  42. 420  DRAW "BM100,114"
  43. 430  DRAW "R12 BM+16,+0 R12" 'EYEBROWS
  44. 440  DRAW "BM-46,+8" 'NOW THE EYES
  45. 450  DRAW "R16 M-2,+32 L12 R2 M-4,-32"
  46. 460  DRAW "BM+28,+0 M+2,+32 R12 L2 M+4,-32 L16"
  47. 470  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  48. 480  DRAW "BM-15,+4 M-4,+8 M+2,-4 M+4,+8 R25 M+12,-8 M-4,-4 M+8,+8" 'MOUTH
  49. 490  '***SLEEPING FACE ON CUPS****
  50. 500  DRAW "BM20,114"
  51. 510  DRAW "R12 BM+16,+0 R12" 'EYEBROWS
  52. 520  DRAW "BM-46,+8" 'NOW THE EYES
  53. 530  DRAW "R16 M-2,+32 L12 R2 M-4,-32"
  54. 540  DRAW "BM+28,+0 M+2,+32 R12 L2 M+4,-32 L16"
  55. 550  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  56. 560  DRAW "BM-15,+4 M-4,+8 M+2,-4 M+4,+8 R25 M+12,-8 M-4,-4 M+8,+8" 'MOUTH
  57. 570  '********************************
  58. 580  '*****SAVE THE POT SLEEPY FACES ****
  59. 590  GET (195,70)-STEP(50,70),PFACESL
  60. 600  'PUT (195,70),PFACESL
  61. 610  '******SAVE CUPS SLEEPY FACE ****
  62. 620  GET (15,110)-STEP(32,40),CFACESL1
  63. 630  'PUT (15,110),CFACESL1
  64. 640  GET (96,110)-STEP(32,40),CFACESL
  65. 650  'PUT (96,110),CFACESL
  66. 660  PLAY "MBO2L16AP1AP16FP16AP1" '4
  67. 670  GOSUB 2720
  68. 680  FOR I=1 TO 1750:NEXT
  69. 690  GOSUB 2810
  70. 700  PLAY "MBO2L16FP16AO3P16CP1" '3 NOTES
  71. 710  GOSUB 2810:FOR I=1 TO 1500:NEXT
  72. 720  GOSUB 2810:FOR I=1 TO 100:NEXT
  73. 730  GOSUB 2810:FOR I=1 TO 2000:NEXT
  74. 740  PLAY "MBO2L16AP2FP16AO3P16CP1" '*4*
  75. 750  GOSUB 2810:FOR I=1 TO 100:NEXT
  76. 760  GOSUB 2810:FOR I=1 TO 100:NEXT
  77. 770  GOSUB 2810:FOR I=1 TO 100:NEXT
  78. 780  '*******POT NUMBER 2 START WAKE UP
  79. 790  DRAW "S4" 'NORMAL SCALE.
  80. 800  PUT (195,70),PFACESL 'ERASE CURRENT
  81. 810  DRAW "BM200,70"
  82. 820  DRAW "R12 NM+2,+2 BM+16,+0 R12 NM+2,+2" 'EYEBROWS
  83. 830  DRAW "BM195,75" 'NOW THE EYES
  84. 840  DRAW "R16 M-2,+32 L10 M-4,-32"
  85. 850  DRAW "BM+28,+0 M+2,+32 R10 M+4,-32 L16"
  86. 860  DRAW "BM-30,20 R17 L9 D12"
  87. 870  PAINT STEP(+1,-1)
  88. 880  DRAW "BM+22,-11 R17 L9 D12"
  89. 890  PAINT STEP(-1,-1)
  90. 900  DRAW "BM-11,-03 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  91. 910  DRAW "BM-15,+4 M-6,+4 M+2,-2 M+16,+8 R12 M+14,-12 NM-3,-3 M+3,+3" 'MOUTH
  92. 920  GET (193,70)-STEP(50,70),PFACEST
  93. 930  'PUT (193,70),PFACEST
  94. 940  PLAY "MBL8O2AFAFO3DP8CP4O2L8FAO3CDP8L8DP8"
  95. 950  FOR I=1 TO 5:GOSUB 2810:FOR K=1 TO 500 :NEXT:NEXT
  96. 960  PLAY "MBL8O3AFAFO4DP8CP4O3L8FAO4CDP8L8DP8"
  97. 970  FOR I=1 TO 5:GOSUB 2810:FOR K=1 TO 300 :NEXT:NEXT
  98. 980  PLAY "MBL16O3AFAFO4DP16CP8O3L16FAO4CDP16L16DP16"
  99. 990  FOR I=1 TO 5:GOSUB 2810:NEXT
  100. 1000  '**** SCREEN...POT NUMBER 3..WAKE UP
  101. 1010  'FIRST WAKE UP THE POT....
  102. 1020  DRAW "S4" 'NORMAL SCALE.
  103. 1030  PUT (193,70),PFACEST
  104. 1040  DRAW "BM195,70"
  105. 1050  DRAW "R10 NM+3,-3 BM+23,+0 NM-3,-3 R10 " 'EYEBROWS
  106. 1060  DRAW "BM195,75" 'NOW THE EYES
  107. 1070  DRAW "R16 M-2,+32 L10 M-4,-32 NM-4,-4" 'DRAW THE EYELASH AND EYE
  108. 1080  DRAW "BM+28,+0 M+2,+32 R10 M+4,-32 NM+4,-4 L16"
  109. 1090  DRAW "BM+8,+0 D17 L7 "
  110. 1100  PAINT STEP(+1,-1)
  111. 1110  DRAW "BM-15,+1 L7 U17"
  112. 1120  PAINT STEP(+1,+1)
  113. 1130  DRAW "BM+14,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  114. 1140  DRAW "BM-15,+4 M-2,+8 M+1,-4 M+32,+15  M+10,-16 NM-3,-3 M+3,+3" 'MOUTH
  115. 1150  GET (185,65)-STEP(60,80),PFACEAW
  116. 1160  PLAY "O4L2CO3P4L4BL2O4CO3P4L4AL4BO4CO3BGL2EP4"
  117. 1170  FOR I=1 TO 5:GOSUB 2810:FOR K=1 TO 500 :NEXT:NEXT
  118. 1180  PLAY "P4O3L2AP4L4G#L2AG-L2G#"
  119. 1190  'PUT (193,70),PFACEAW
  120. 1200  '*****NOW WAKE UP THE CUPS *****
  121. 1210  PLAY "MBL8O3AFAFO4DP8CP4O3L8FAO4CDP8L8DP8" 'SLOW LOW
  122. 1220  FOR I=1 TO 5:GOSUB 2810:FOR K=1 TO 500 :NEXT:NEXT
  123. 1230  DRAW "S2" 'SET SMALL SCALE
  124. 1240  PUT (96,110),CFACESL
  125. 1250  DRAW "BM100,114"
  126. 1260  DRAW "R12 BM+16,+0 R12" 'EYEBROWS
  127. 1270  DRAW "BM-46,+8" 'NOW THE EYES
  128. 1280  DRAW "R16 M-2,+32 L12 R2 M-4,-32"
  129. 1290  DRAW "BM+28,+0 M+2,+32 R12 L2 M+4,-32 L16"
  130. 1300  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  131. 1310  DRAW "BM-15,+6 M-4,+8 M+2,-4 R40  M-4,-4 M+8,+8" 'MOUTH
  132. 1320  DRAW "BM96,118 R8 ND16 R8 NM+4,-4 M-1,+16 NL8" 'DRAW LEFT EYE
  133. 1330  PAINT STEP(-1,-1) 'PAINT LEFT EYE
  134. 1340  DRAW "BM+16,-14 R16 NM+4,-4 L12 D16 R8"'DRAW RIGHT EYE
  135. 1350  PAINT STEP(-1,-1)'PAINT IT
  136. 1360  GET (96,110)-STEP(32,40),CFACEAW
  137. 1370  '**********WAKE UP THE LEFT CUP**
  138. 1380  PLAY "MBL16O3AFAFO4DP16CP8O3L16FAO4CDP16L16DP16" 'FAST HIGH
  139. 1390  FOR I=1 TO 5:GOSUB 2810:NEXT
  140. 1400  PUT (15,110),CFACESL1
  141. 1410  DRAW "BM20,114"
  142. 1420  DRAW "R12 BM+16,+0 R12" 'EYEBROWS
  143. 1430  DRAW "BM-46,+8" 'NOW THE EYES
  144. 1440  DRAW "R16 M-2,+32 L12 R2 M-4,-32"
  145. 1450  DRAW "BM+28,+0 M+2,+32 R12 L2 M+4,-32 L16"
  146. 1460  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  147. 1470  DRAW "BM-15,+6 M-4,+8 M+2,-4 R40  M-4,-4 M+8,+8" 'MOUTH
  148. 1480  DRAW "BM17,118 R8 ND16 R8 NM+4,-4 M-1,+16 NL8" 'DRAW LEFT EYE
  149. 1490  PAINT STEP(-1,-1) 'PAINT LEFT EYE
  150. 1500  DRAW "BM+17,-15 R16 NM+4,-4 L12 D16 R8"'DRAW RIGHT EYE
  151. 1510  PAINT STEP(-1,-1)'PAINT IT
  152. 1520  GET (15,110)-STEP(32,40),CFACEAW1
  153. 1530  PLAY "MBL16O3AFAFO4DP16CP8O3L16FAO4CDP16L16DP16" 'FAST HIGH
  154. 1540  FOR I=1 TO 5:GOSUB 2810:NEXT
  155. 1550  PLAY "O4L2CO3P4L4BL2O4CO3P4L4AL4BO4CO3BGL2EP4"
  156. 1560  FOR I=1 TO 5:GOSUB 2810:NEXT
  157. 1570  PLAY "P4O3L2AP4L4G#L2AG-L2G#"
  158. 1580  GOSUB 1870 'LAST SCREEN......
  159. 1590  GOSUB 2440
  160. 1600  PLAY "MBO4L2CO3P4L4BL2O4CO3P4L4AL4BO4CO3BGL2EP4"
  161. 1610  PLAY "MBP4O3L2AP4L4G#L2AG-L2G#"
  162. 1620  GOTO 2980
  163. 1630  '******POT NUMBER 1 ***********
  164. 1640  DRAW "BM177,168"
  165. 1650  DRAW "R82 M+4,-4 M-10,-112 M-70,+0 M-10,+112 M+4,+4"
  166. 1660  '****SPOUT *****
  167. 1670  DRAW "BM-3,-48 M+5,-56 M-25,+0 M+20,+56"
  168. 1680  '*****HANDLE ***************
  169. 1690  DRAW"BM+88,+8 M+16,-32 M+0,-24 M-20,+0 M+0,-8 M+30,+0 M+0,+36 M-24,+46 M-1,-16"
  170. 1700  '******LID OF POT ********
  171. 1710  DRAW "BM185,50"
  172. 1720  DRAW "R66 U10 M-2,-2 L62 M-2,+2 D10"
  173. 1730  DRAW "BM+25,-14 R16 M+2,-2 U14 L20 D14 M+2,+2"
  174. 1740  '******CUP 2 *****CLOSE TO POT**
  175. 1750  DRAW "BM90,160"
  176. 1760  DRAW "S2"
  177. 1770  DRAW "R82 M+4,-4 M-10,-112 M-70,+0 M-10,+112 M+4,+4"
  178. 1780  '*****HANDLE ***************
  179. 1790  DRAW"BM+88,-30 M+16,-32 M+0,-24 M-20,+0 M+0,-8 M+30,+0 M+0,+36 M-24,+46 M-1,-16"
  180. 1800  '******CUP1****
  181. 1810  DRAW "BM10,160"
  182. 1820  DRAW "S2"
  183. 1830  DRAW "R82 M+4,-4 M-10,-112 M-70,+0 M-10,+112 M+4,+4"
  184. 1840  '*****HANDLE -CUP1**********
  185. 1850  DRAW"BM+88,-30 M+16,-32 M+0,-24 M-20,+0 M+0,-8 M+30,+0 M+0,+36 M-24,+46 M-1,-16"
  186. 1860  RETURN
  187. 1870  '********THIS IS THE LAST SCREEN.
  188. 1880  '********POT NUMBER 4 ********
  189. 1890  'FIRST WAKE UP THE POT....
  190. 1900  DRAW "S4" 'NORMAL SCALE.
  191. 1910  PUT (185,65),PFACEAW
  192. 1920  DRAW "BM195,70"
  193. 1930  DRAW "R10 NM+3,+3 BM+23,+0 R10 NM+3,+3" 'EYEBROWS
  194. 1940  DRAW "BM195,75" 'NOW THE EYES
  195. 1950  DRAW "R16 M-2,+32 L10 M-4,-32 " 'DRAW THE EYELASH AND EYE
  196. 1960  DRAW "BM+28,+0 M+2,+32 R10 M+4,-32  L16"
  197. 1970  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  198. 1980  DRAW "BM-15,+6 M-2,+8 M+1,-4 M+32,+15  M+10,-16 NM-3,-3 NM+3,+3" 'MOUTH
  199. 1990  DRAW "L40"
  200. 2000  DRAW "BM197,84 L6 R20 BM+12,+0 R20"
  201. 2010  DRAW "BM-16,+07 D16 R6 U16 L6 " 'LEFT EYEBALL
  202. 2020  PAINT STEP(+1,+1)
  203. 2030  DRAW "BM-27,-1 D16 R6 U16 L6 " 'RIGHT EYEBALL
  204. 2040  PAINT STEP(+1,+1)
  205. 2050  GET (185,65)-STEP(60,80),PFACEOP
  206. 2060  '**********PUT OUT THE WIDE AWAKE CUPS.....**************************
  207. 2070  DRAW "S2" 'SCALE DOWN FOR CUPS
  208. 2080  PUT (96,110),CFACEAW
  209. 2090  PUT (15,110),CFACEAW1
  210. 2100  '*********DRAW RIGHT HAND CUP....WIDE AWAKE *********
  211. 2110  DRAW "BM100,114"
  212. 2120  DRAW "R10 NM+3,+3 BM+23,+0 R10 NM+3,+3" 'EYEBROWS
  213. 2130  DRAW "BM98,118" 'NOW THE EYES
  214. 2140  DRAW "R16 M-2,+32 L10 M-4,-32 " 'DRAW THE EYELASH AND EYE
  215. 2150  DRAW "BM+28,+0 M+2,+32 R10 M+4,-32  L16"
  216. 2160  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  217. 2170  DRAW "BM-15,+6 M-2,+8 M+1,-4 M+32,+15  M+10,-16 NM-3,-3 NM+3,+3" 'MOUTH
  218. 2180  DRAW "L40"
  219. 2190  DRAW "BM100,122 L6 R20 BM+12,+0 R20"
  220. 2200  DRAW "BM-16,+07 D16 R6 U16 L6 " 'LEFT EYEBALL
  221. 2210  PAINT STEP(+1,+1)
  222. 2220  DRAW "BM-27,-1 D16 R6 U16 L6 " 'RIGHT EYEBALL
  223. 2230  PAINT STEP(+1,+1)
  224. 2240  '*******LEFT CUP....WIDE AWAKE *****
  225. 2250  DRAW "BM20,114"
  226. 2260  DRAW "R10 NM+3,+3 BM+23,+0 R10 NM+3,+3" 'EYEBROWS
  227. 2270  DRAW "BM18,118" 'NOW THE EYES
  228. 2280  DRAW "R16 M-2,+32 L10 M-4,-32 " 'DRAW THE EYELASH AND EYE
  229. 2290  DRAW "BM+28,+0 M+2,+32 R10 M+4,-32  L16"
  230. 2300  DRAW "BM-2,+28 M+6,+20 M-6,+6 M-6,-6 M+2,-2" 'HERE'S THE NOSE
  231. 2310  DRAW "BM-15,+6 M-2,+8 M+1,-4 M+32,+15  M+10,-16 NM-3,-3 NM+3,+3" 'MOUTH
  232. 2320  DRAW "L40"
  233. 2330  DRAW "BM20,122 L6 R20 BM+12,+0 R20"
  234. 2340  DRAW "BM-16,+07 D16 R6 U16 L6 " 'LEFT EYEBALL
  235. 2350  PAINT STEP(+1,+1)
  236. 2360  DRAW "BM-27,-1 D16 R6 U16 L6 " 'RIGHT EYEBALL
  237. 2370  PAINT STEP(+1,+1)
  238. 2380  RETURN
  239. 2390  J=0
  240. 2400  'play "L8O4EE-EE-EO3BO4DCO3A"
  241. 2410  PLAY "O2L16AP1AP16FP16AP1"
  242. 2420  PLAY "O2L16P2FP16AO3P16CP1"
  243. 2430  PLAY "O2L16AP2FP16AO3P16CP1"
  244. 2440  PLAY "L8O2AFAFO3DP8CP4O2L8FAO3CDP8L8DP8"
  245. 2450  LEN1=70:ROW1=168:COL1=60:GOSUB 2880
  246. 2460  LEN1=60:ROW1=25:COL1=95:GOSUB 2880
  247. 2470  LEN1=70:ROW1=105:COL1=95:GOSUB 2880
  248. 2480  LEN1=100:ROW1=28:COL1=95:GOSUB 2880
  249. 2490  PLAY "L8O3AFAFO4DP8CP4O3L8FAO4CDP8L8DP8"
  250. 2500  LEN1=50:ROW1=168:COL1=60:GOSUB 2880
  251. 2510  LEN1=60:ROW1=25:COL1=95:GOSUB 2880
  252. 2520  LEN1=70:ROW1=105:COL1=95:GOSUB 2880
  253. 2530  PLAY "L16O3AFAFO4DP16CP8O3L16FAO4CDP16L16DP16"
  254. 2540  'LEN1=90:ROW1=168:COL1=60 :GOSUB 3000
  255. 2550  'LEN1=60:ROW1=25:COL1=95:GOSUB 3000
  256. 2560  'LEN1=70:ROW1=105:COL1=95:GOSUB 3000
  257. 2570  'LEN1=40:ROW1=168:COL1=60 :GOSUB 3000
  258. 2580  PLAY "MBL8O3AFAFO4DP8CP4O3L8FAO4CDP8L8DP8"
  259. 2590  LEN1=60:ROW1=25:COL1=95:GOSUB 2880
  260. 2600  LEN1=70:ROW1=105:COL1=95:GOSUB 2880
  261. 2610  LEN1=40:ROW1=105:COL1=95:GOSUB 2880
  262. 2620  PLAY "MBO4L2CO3P4L4BL2O4CO3P4L4AL4BO4CO3BGL2EP4"
  263. 2630  LEN1=60:ROW1=25:COL1=95:GOSUB 2880
  264. 2640  LEN1=70:ROW1=105:COL1=95:GOSUB 2880
  265. 2650  LEN1=40:ROW1=105:COL1=95:GOSUB 2880
  266. 2660  PLAY "MBP4O3L2AP4L4G#L2AG-L2G#"
  267. 2670  LEN1=90:ROW1=168:COL1=60 :GOSUB 2880
  268. 2680  LEN1=60:ROW1=25:COL1=95:GOSUB 2880
  269. 2690  LEN1=70:ROW1=105:COL1=95:GOSUB 2880
  270. 2700  LEN1=40:ROW1=168:COL1=60 :GOSUB 2880
  271. 2710  RETURN
  272. 2720  '********PERK-A-PERK-**********
  273. 2730  GET (200,19)-(230,37),PERKA
  274. 2740  PAINT (212,22)
  275. 2750  GET (200,19)-(230,37),PERKA2
  276. 2760  FOR I=1 TO 200:NEXT
  277. 2770  PUT (200,19),PERKA2
  278. 2780  PUT (200,19),PERKA
  279. 2790  RETURN
  280. 2800  '*****SECOND TIME THRU..PERKAPERKA
  281. 2810  PUT (200,19),PERKA
  282. 2820  PUT (200,19),PERKA2
  283. 2830  FOR J=1 TO 500:NEXT
  284. 2840  PUT (200,19),PERKA2
  285. 2850  PUT (200,19),PERKA
  286. 2860  FOR J=1 TO 100:NEXT
  287. 2870  RETURN
  288. 2880  '********STEAM FOR COFFEE CUP *****
  289. 2890  'THREE VARIABLES SENT..ROW,COL,LEN
  290. 2900  '***STARTING ROW,COL PASSED TO THIS ROUTINE IN COL,ROW
  291. 2910  FOR I=1 TO LEN1
  292. 2920  PSET(ROW1+X(I),COL1+Y(I))
  293. 2930  NEXT I
  294. 2940  FOR I=1 TO LEN1
  295. 2950  PRESET(ROW1+X(I),COL1+Y(I))
  296. 2960  NEXT I
  297. 2970  RETURN
  298. 2980  DEFINT A-Z
  299. 2990  DOTSIZE=1:WIDTH 80
  300. 3000  DOT$=STRING$(DOTSIZE,219)
  301. 3010  DEF SEG=&HF000
  302. 3020  BASEADR=&HFA6E
  303. 3030  CLS
  304. 3040  FOR I=1 TO 6
  305. 3050  CHAR$=MID$("COFFEE",I,1)
  306. 3060   CODE=ASC(CHAR$)
  307. 3070  IF CODE >= 128 THEN BEEP: GOTO 3030
  308. 3080  ADR=BASEADR+(CODE*8)
  309. 3090  IF X=0 THEN X=2
  310. 3100  Y=Y+10
  311. 3110  GOSUB 3270
  312. 3120  NEXT I
  313. 3130  X=10:Y=5
  314. 3140  FOR I=1 TO 5
  315. 3150  CHAR$=MID$("BREAK",I,1)
  316. 3160   CODE=ASC(CHAR$)
  317. 3170  ADR=BASEADR+(CODE*8)
  318. 3180  Y=Y+10
  319. 3190  GOSUB 3270
  320. 3200  NEXT I
  321. 3210  X=18:Y=35
  322. 3220  CHAR$=CHR$(2)
  323. 3230   CODE=ASC(CHAR$)
  324. 3240  ADR=BASEADR+(CODE*8)
  325. 3250  GOSUB 3270
  326. 3260  GOTO 3400
  327. 3270  FOR ROW=1 TO 8
  328. 3280  ROWVAL=PEEK(ADR+(ROW-1))
  329. 3290  FOR COL=1 TO 8
  330. 3300  COLMASK=2^(7-(COL-1))
  331. 3310  IF (ROWVAL AND COLMASK) <> 0 THEN GOSUB 3360
  332. 3320  NEXT COL
  333. 3330  NEXT ROW
  334. 3340  LOCATE 1,1
  335. 3350  RETURN
  336. 3360  'display character
  337. 3370  LOCATE X+(ROW-1),Y+(COL-1)*DOTSIZE
  338. 3380  PRINT LEFT$(DOT$,DOTSIZE);
  339. 3390  RETURN
  340. 3400  REM =====  THE LONE RANGER  +++++++
  341. 3410  REM ===== ARRANGED BY TOM SORBER  ++++++
  342. 3420  'CLS:LOCATE 10,10:PRINT"THE LONE RANGER"
  343. 3430  '   LOCATE 12,10:PRINT"Arranged by Tom Sorber"
  344. 3440  'LOCATE 14,10:PRINT"Played by the I B M PERSONAL COMPUTER ORCHESTRA
  345. 3450  'LOCATE 16,10:PRINT"         Conducted by Tom Sorber
  346. 3460  A$ = "t255msO2L8DDL4DL8DDL4DL8DDL4GAB"
  347. 3470  B$ = "O2 L8DDL4DL8DDL4GL8GBL4AF+D"
  348. 3480  C$ = "o2l8gbo3d2p8l8co2bal4gbg"
  349. 3490   PLAY "xa$;xb$;xa$;xc$;
  350. 3500   PLAY "xa$;xb$;xa$;xc$;
  351. 3510  D$ = "o2l16dd+ef+l2gl4bp8l8agf+ged
  352. 3520  E$ = "o2l8ef+gco1bo2l16def+go1l8bal16bo2cc+d
  353. 3530  F$ = "O1L4AGA
  354. 3540  G$ = "O2L16 DD-DEF+DEF+L8GL16GGL8G
  355. 3550  H$ = "O2L4BF+GABF+GA
  356. 3560   PLAY "xd$;xe$;xf$;xd$;xe$;xg$;
  357. 3570   REM PLAY "P8xa$;xb$;xa$;xc$;
  358. 3580   REM PLAY "p8xa$;xb$;xa$;xc$;
  359. 3590   REM PLAY "xd$;xe$;xf$;xd$;xe$;xg$;
  360. 3600  I$ = "l8o2bo1bo2f+o1f+o2go1go2ao1a
  361. 3610  J$ = "o2l2b-p8l16b-ge-o1b-o2e-g
  362. 3620  K$ = "o2l2bp8l16bcdo1bo2dg
  363. 3630  L$ = "o2l2bp8l16bg+eo1bo2eg+
  364. 3640  M$ = "o3l2c+p8l16c+o2a+f+c+f+a+
  365. 3650  N$ = "o3l8dd-co2bagf+e
  366. 3660  O$ = "o2l16dd-dedd-dedd-def+def+
  367. 3670  P$ = "o2l4gp8l16ggl32ggggggggl16gggg
  368. 3680  Q$ = "l8gdgbgdgb
  369. 3690  R$ = "l4gp8l16ggl32gggggggggggggggg
  370. 3700  S$ ="l1go1MLl1gL1G
  371. 3710   PLAY "P8xi$;xi$;xj$;xk$;xl$;xm$;xn$;xo$;xp$;xq$;xr$;xs$;
  372. 3720  CHAIN"games.bas
  373.