home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / music / chrstmas.arc / CHRSTMAS.BAS next >
Encoding:
BASIC Source File  |  1987-05-07  |  12.5 KB  |  276 lines
  1. 500 REM  CHRISTMA.BAS
  2. 505 REM
  3. 510 REM  Based on IBM DOS 2.0 supplementary program MUSIC.BAS
  4. 525 REM  Plays Christmas music and draws a tree, instead.
  5. 530 REM
  6. 531 REM  To get all features
  7. 535 REM    (1) Use BASICA interpreter
  8. 540 REM    (2) Use color/graphics adapter/monitor
  9. 543 REM
  10. 544 REM  Suggested .BAT
  11. 545 REM    ECHO OFF
  12. 548 REM    CLS
  13. 550 REM    BASICA <path>CHRISTMA
  14. 555 REM
  15. 560 REM  Following the name of a song in the DATA section,
  16. 570 REM  input for three new variables (S,TN,TD) is added.
  17. 575 REM  These are normally set to 0,1,1.  Reset S to change key,
  18. 580 REM  or reset TN,TD to change tempo.  See line 1545 and 1546.
  19. 585 REM
  20. 590 REM  For faster loading, SAVE without the ,a switch
  21. 595 REM
  22. 600 REM          HAVE A MERRY CHRISTMAS AND A HAPPY NEW YEAR
  23. 610 REM
  24. 910  DEFINT A-Z
  25. 920  DIM M(88),O(70)
  26. 975 DEF SEG: POKE 106,0
  27. 1000 CLS:KEY OFF:LOCATE 1,1,0:GOSUB 5000  'INTRODUCTORY BACKGROUND MUSIC
  28. 1010 KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19,0
  29. 1141 ON ERROR GOTO 1148
  30. 1142 PLAY "mf"
  31. 1143 GOTO 1149
  32. 1148 RESUME 1149
  33. 1149 ON ERROR GOTO 0
  34. 1150 SCREEN 0,1:WIDTH 40:COLOR 15,1,1:CLS
  35. 1160 LOCATE 15,1:PRINT " ------------- selections -------------"
  36. 1170 LOCATE 16,1:PRINT " A-Silent     E-Deck The   I-O Tanen   "
  37. 1180 LOCATE 17,1:PRINT " B-Little Twn F-O Holy     J-Away In A "
  38. 1190 LOCATE 18,1:PRINT " C-What Child G-Joy To The K-Drummer   "
  39. 1191 LOCATE 19,1:PRINT " D-First Noel H-O Come All L-Rudolph   "
  40. 1200 COLOR 15,0
  41. 1210 FOR I=0 TO 15:FOR J=0 TO 8
  42. 1220 LOCATE 5+J,5+I*2:PRINT CHR$(219);CHR$(221);
  43. 1230 NEXT:NEXT
  44. 1240 FOR I=0 TO 12:FOR J=0 TO 4
  45. 1250 IF I=2 OR I=6 OR I=9 OR I=13 THEN 1270
  46. 1260 LOCATE 5+J,8+I*2:PRINT CHR$(32);CHR$(222);
  47. 1270 NEXT:NEXT
  48. 1280 FOR J=0 TO 9
  49. 1290 LOCATE 4+J,4:COLOR 4,0:PRINT CHR$(221);:LOCATE 4+J,36:COLOR 15,0
  50. 1300 PRINT CHR$(221);:COLOR 4,1:PRINT CHR$(221);
  51. 1310 NEXT
  52. 1320 COLOR 4,1:LOCATE 4,4
  53. 1330 FOR I=0 TO 32:PRINT CHR$(219);:NEXT
  54. 1340 PRINT CHR$(221);:LOCATE 13,4
  55. 1350 FOR I=0 TO 32:PRINT CHR$(219);:NEXT
  56. 1360 PRINT CHR$(221);:COLOR 0,7
  57. 1370 FOR I=7 TO 88:M(I) =  36.8*(2^(1/12))^(I-6):NEXT
  58. 1380 FOR I=0 TO 6:M(I) = 32767:NEXT
  59. 1390 O(0) = 0
  60. 1400 O(39)=5:O(40)=7:O(41)=8:O(42)=9
  61. 1410 O(43)=10:O(44)=11:O(45)=13:O(46)=14
  62. 1420 O(47)=15:O(48)=16:O(49)=17:O(50)=18
  63. 1430 O(51)=19:O(52)=21:O(53)=22:O(54)=23
  64. 1440 O(55)=24:O(56)=25:O(57)=27:O(58)=28
  65. 1450 O(59)=29:O(60)=30:O(61)=31:O(62)=32
  66. 1460 O(63)=33:O(64)=35:O(65)=36:O(66)=37
  67. 1470 O(67)=38:O(68)=39:O(69)=40:O(70)=42
  68. 1480 GOTO 1630
  69. 1490 READ J,K
  70. 1500 CMD$ = INKEY$:IF CMD$="" THEN 1540
  71. 1510 IF CMD$=CHR$(27) THEN RETURN
  72. 1520 POKE 106,0
  73. 1530 REM
  74. 1540 IF J = -1  THEN RETURN
  75. 1545 IF J>0 THEN J=J+S
  76. 1546 K=(K*TN)/TD
  77. 1550 Q = O(J)
  78. 1560 IF J>64 OR J<39 THEN 1590
  79. 1570 IF SCREEN(5,Q)<>32 THEN COLOR 0,7:LOCATE 11,Q:PRINT CHR$(14);:COLOR 15,0:GOTO 1590
  80. 1580 COLOR 15,0:LOCATE 7,Q:PRINT CHR$(14);:COLOR 0,7
  81. 1590 SOUND M(J),K:IF J=0 AND K=1 THEN 1600:'SKIP NEXT FOR STACCATTO
  82. 1595 SOUND 32767,1
  83. 1600 IF J>64 OR J<39 THEN 1490
  84. 1610 IF SCREEN(5,Q) = 32 THEN COLOR 15,0:LOCATE 7,Q:PRINT CHR$(32);:GOTO 1490
  85. 1620 COLOR 15,0:LOCATE 11,Q:PRINT CHR$(219);:GOTO 1490
  86. 1630 LOCATE 21,5:PRINT "                                ";
  87. 1640 LOCATE 21,5:PRINT "ENTER SELECTION [or ESC] ==>";
  88. 1650 IF INKEY$ <> "" THEN 1650
  89. 1660 CMD$=INKEY$:IF CMD$="" THEN 1660
  90. 1670 IF CMD$=CHR$(27)  THEN 1860
  91. 1680 IF CMD$="A" OR CMD$="a" THEN S$= "":RESTORE 4000:GOTO 1770
  92. 1690 IF CMD$="B" OR CMD$="b" THEN S$= "":RESTORE 4100:GOTO 1770
  93. 1700 IF CMD$="C" OR CMD$="c" THEN S$= "":RESTORE 3700:GOTO 1770
  94. 1710 IF CMD$="D" OR CMD$="d" THEN S$= "":RESTORE 4300:GOTO 1770
  95. 1720 IF CMD$="E" OR CMD$="e" THEN S$= "":RESTORE 3500:GOTO 1770
  96. 1730 IF CMD$="F" OR CMD$="f" THEN S$= "":RESTORE 3200:GOTO 1770
  97. 1740 IF CMD$="G" OR CMD$="g" THEN S$= "":RESTORE 3600:GOTO 1770
  98. 1750 IF CMD$="H" OR CMD$="h" THEN S$= "":RESTORE 3900:GOTO 1770
  99. 1755 IF CMD$="I" OR CMD$="i" THEN S$= "":RESTORE 4500:GOTO 1770
  100. 1757 IF CMD$="J" OR CMD$="j" THEN S$= "":RESTORE 3300:GOTO 1770
  101. 1761 IF CMD$="K" OR CMD$="k" THEN S$= "":RESTORE 4400:GOTO 1770
  102. 1765 IF CMD$="L" OR CMD$="l" THEN S$= "":RESTORE 4600:GOTO 1770
  103. 1769 GOTO 1640
  104. 1770 PRINT " ";CMD$
  105. 1780 READ D
  106. 1800 READ S$:LOCATE 23,1+(40.5-LEN(S$))/2
  107. 1805 COLOR 15,4:PRINT S$;:COLOR 0,7
  108. 1807 SOUND 21767,12:SOUND 32767,1:READ S,TN,TD
  109. 1810 GOSUB 1490
  110. 1820 S$=STRING$(39," "):LOCATE 23,1:COLOR 4,1:PRINT S$:COLOR 0,7
  111. 1830 GOTO 1630
  112. 1840 END
  113. 1860 SCREEN 0,1:COLOR 7,0,0:CLS:GOSUB 6000:GOSUB 7000:SYSTEM
  114. 3200 DATA -2,"O HOLY NIGHT",0,1,1
  115. 3210 DATA 0,24,45,12,45,9,45,3, 48,21,48,3,50,9,50,3,46,9,50,3
  116. 3215 DATA 53,24,48,6,0,3,48,3,45,9,43,3, 41,12,45,9,46,3,48,12,46,9,43,3
  117. 3220 DATA 41,36,0,12
  118. 3225 DATA 0,24,45,12,45,9,45,3, 48,21,48,3,50,9,50,3,46,9,50,3
  119. 3230 DATA 53,24,48,6,0,3,48,3,46,9,45,3, 52,12,48,9,50,3,52,12,55,1,53,9,52,3
  120. 3235 DATA 45,24,0,18,48,6
  121. 3240 DATA 48,12,50,12,43,12,48,12, 50,9,48,3,53,9,45,3,50,12,48,9,48,3
  122. 3245 DATA 48,12,50,12,43,12,48,12, 50,9,48,3,53,9,45,3,48,18,0,6
  123. 3250 DATA 53,36,52,9,50,3, 52,36,52,12, 55,33,50,3,50,9,50,3
  124. 3255 DATA 53,24,53,12,0,6,53,6, 57,42,48,6, 53,36,52,9,50,3
  125. 3260 DATA 48,24,48,9,48,3,50,9,48,3, 48,36,53,12, 55,36,0,6,48,6
  126. 3265 DATA 57,36,55,12, 53,24,52,12,53,9,55,3, 53,36
  127. 3270 DATA -1,-1
  128. 3300 DATA -2,"AWAY IN A MANGER",0,1,1
  129. 3310 DATA 52,12, 52,18,50,6,49,12, 49,12,47,12,45,12, 45,12,44,12,42,12
  130. 3320 DATA 40,24,40,12, 40,18,42,6,40,12, 40,12,47,12,44,12, 42,12,40,12,45,12
  131. 3330 DATA 49,24,52,12,  52,18,50,6,49,12, 49,12,47,12,45,12, 45,12,44,12,42,12
  132. 3340 DATA 40,24,40,12, 50,18,49,6,47,12, 49,12,47,12,45,12, 47,12,42,12,44,12
  133. 3350 DATA 45,36
  134. 3370 DATA -1,-1
  135. 3500 DATA -2,"DECK THE HALLS",0,1,1
  136. 3510 DATA 52,9,50,3,49,6,47,6, 45,6,47,6,49,6,45,6
  137. 3520 DATA 47,3,49,3,50,3,47,3,49,9,47,3, 45,6,44,6,45,12
  138. 3530 DATA 52,9,50,3,49,6,47,6, 45,6,47,6,49,6,45,6
  139. 3540 DATA 47,3,49,3,50,3,47,3,49,9,47,3, 45,6,44,6,45,12
  140. 3550 DATA 47,9,49,3,50,6,47,6, 49,9,50,3,52,6,47,6
  141. 3560 DATA 49,3,51,3,52,6,54,3,56,3,57,6, 56,6,54,6,52,12
  142. 3570 DATA 52,9,50,3,49,6,47,6, 45,6,47,6,49,6,45,6
  143. 3580 DATA 54,3,54,3,54,3,54,3,52,9,50,3, 49,6,47,6,45,12
  144. 3590 DATA -1,-1
  145. 3600 DATA -2,"JOY TO THE WORLD",0,1,1
  146. 3610 DATA 54,10,53,7,51,2, 49,15,47,5, 46,10,44,10, 42,15,49,5, 51,15,51,5
  147. 3620 DATA 53,15,53,5, 54,30,54,5, 54,5,53,5,51,5,49,5, 49,7,47,2,46,5,54,5
  148. 3630 DATA 54,5,53,5,51,5,49,5, 49,7,47,2,46,5,46,5, 46,5,46,5,46,5,46,2,47,2
  149. 3640 DATA 49,15,47,2,46,2, 44,5,44,5,44,5,44,2,46,2, 47,15,46,2,44,2
  150. 3650 DATA 42,5,54,10,51,5, 49,7,47,2,46,5,47,5, 46,10,44,10, 42,20
  151. 3670 DATA -1,-1
  152. 3700 DATA -2,"WHAT CHILD IS THIS?  [GREENSLEEVES]",0,1,1
  153. 3710 DATA 44,10, 47,20,49,10,51,15,52,5,51,10, 49,20,46,10,42,15,44,5,46,10
  154. 3720 DATA 47,20,44,10,44,15,43,5,44,10, 46,30,39,20,44,10
  155. 3730 DATA 47,20,49,10,51,15,52,5,51,10, 49,20,46,10,42,15,44,5,46,10
  156. 3740 DATA 47,15,46,5,44,10,43,15,41,5,43,10, 44,30,44,30
  157. 3750 DATA 54,30,54,15,52,5,51,10, 49,20,46,10,42,15,44,5,46,10
  158. 3760 DATA 47,20,44,10,44,15,43,5,44,10, 46,20,42,10,39,30
  159. 3770 DATA 54,30,54,15,52,5,51,10, 49,20,46,10,42,15,44,5,46,10
  160. 3780 DATA 47,15,46,5,44,10,43,15,41,5,43,10, 44,30,44,30
  161. 3810 DATA -1,-1
  162. 3900 DATA -2,"O COME, ALL YE FAITHFUL",0,1,1
  163. 3910 DATA 49,8, 49,16,44,8,49,8, 51,16,44,16, 53,8,51,8,53,8,54,8
  164. 3920 DATA 53,16,51,8,49,8, 49,16,48,8,46,8, 48,8,49,8,51,8,53,8
  165. 3930 DATA 48,16,46,12,44,4, 44,32, 56,16,54,8,53,8
  166. 3940 DATA 54,16,53,16, 51,8,53,8,49,8,51,8, 48,12,46,4,44,8,49,8
  167. 3950 DATA 49,8,48,8,49,8,51,8, 49,16,44,8,53,8
  168. 3960 DATA 53,8,51,8,53,8,54,8, 53,16,51,8,53,8, 54,8,53,8,51,8,49,8
  169. 3970 DATA 48,16,49,8,54,8, 53,16,51,12,49,4, 49,24
  170. 3990 DATA -1,-1
  171. 4000 DATA -2,"SILENT NIGHT [STILLE NACHT] - GRUBER",0,1,1
  172. 4010 DATA 47,18,49,6,47,12,44,36, 47,18,49,6,47,12,44,36
  173. 4020 DATA 54,24,54,12,51,36, 52,24,52,12,47,36
  174. 4030 DATA 49,24,49,12,52,18,51,6,49,12, 47,18,49,6,47,12,44,24,0,12
  175. 4040 DATA 49,24,49,12,52,18,51,6,49,12, 47,18,49,6,47,12,44,24,0,12
  176. 4050 DATA 54,24,54,12,57,18,54,6,51,12, 52,36,56,24,0,12
  177. 4060 DATA 52,18,47,6,44,12,47,18,45,6,42,12, 40,72
  178. 4080 DATA -1,-1
  179. 4090 REM -- C, 6/8, 91.5 bpm
  180. 4100 DATA -2,"O LITTLE TOWN OF BETHLEHEM",0,1,1
  181. 4110 DATA 49,12, 49,12,49,12,48,12,49,12, 52,12,50,12,42,12,47,12
  182. 4120 DATA 45,12,44,6,45,6,47,12,40,12, 49,36,49,12, 49,12,49,12,54,12,52,12
  183. 4130 DATA 52,12,50,12,42,12,47,12, 45,12,44,6,45,6,49,12,47,12, 45,36
  184. 4140 DATA 49,12, 49,12,49,12,47,12,45,12, 44,24,44,12,44,12
  185. 4150 DATA 42,12,44,12,45,12,47,12, 49,36,49,12, 49,12,49,12,48,12,49,12
  186. 4160 DATA 52,12,50,12,42,12,54,12, 52,12,45,12,49,18,47,6, 45,36
  187. 4200 DATA -1,-1
  188. 4300 DATA -2,"THE FIRST NOEL",0,1,1
  189. 4310 DATA 46,5,44,5, 42,15,44,5,46,5,47,5, 49,20,51,5,53,5, 54,10,53,10,51,10
  190. 4320 DATA 49,20,51,5,53,5, 54,10,53,10,51,10, 49,10,51,10,53,10
  191. 4330 DATA 54,10,49,10,47,10, 46,20,46,5,44,5, 42,15,44,5,46,5,47,5
  192. 4340 DATA 49,20,51,5,53,5, 54,10,53,10,51,10, 49,20,51,5,53,5
  193. 4350 DATA 54,10,53,10,51,10, 49,10,51,10,53,10, 54,10,49,10,47,10
  194. 4360 DATA 46,20,46,5,44,5, 42,15,44,5,46,5,47,5, 49,20,54,5,53,5
  195. 4370 DATA 51,20,51,10, 49,30, 54,10,53,10,51,10, 49,10,51,10,53,10
  196. 4380 DATA 54,10, 49,10, 47,10, 46,20
  197. 4390 DATA -1,-1
  198. 4400 DATA -2,"THE LITTLE DRUMMER BOY tm",0,1,1
  199. 4410 DATA 45,18,47,6, 49,12,49,6,49,6, 50,3,49,3,50,6,49,30,0,6
  200. 4420 DATA 0,6,45,6,45,6,47,6, 49,6,49,6,49,6,49,6, 50,3,49,3,50,6,49,30,0,6
  201. 4430 DATA 0,6,47,6,49,6,50,6, 52,6,52,6,52,6,54,6
  202. 4440 DATA 52,3,50,3,49,6,47,30,0,6
  203. 4450 DATA 0,6,47,6,49,6,50,6, 52,6,52,6,52,6,54,6
  204. 4460 DATA 55,3,54,3,52,6,50,12, 54,3,52,3,50,6,49,12
  205. 4470 DATA 52,3,50,3,49,6,47,30,0,6, 45,18,47,6
  206. 4480 DATA 49,6,49,6,49,6,49,6,50,3,49,3,50,6,49,30,0,6,47,3,45,3,47,6,45,30,0
  207. 4490 DATA 6,-1,-1
  208. 4500 DATA -2,"O TANENBAUM",0,1,1
  209. 4510 DATA 40,12, 45,9,45,3,45,18,47,6, 49,9,49,3,49,18,49,6
  210. 4520 DATA 47,6,49,6,50,12,44,12, 47,12,45,12,0,6
  211. 4530 DATA 40,12, 45,9,45,3,45,18,47,6, 49,9,49,3,49,18,49,6
  212. 4540 DATA 47,6,49,6,50,12,44,12, 47,12,45,12,0,6
  213. 4550 DATA 52,6, 52,6,49,6,54,18,52,6, 52,6,50,6,50,18,50,6
  214. 4560 DATA 50,6,47,6,52,18,50,6, 50,6,49,6,49,12,0,6, 40,12
  215. 4570 DATA 45,9,45,3,45,18,47,6, 49,9,49,3,49,18,49,6
  216. 4580 DATA 47,6,49,6,50,12,44,12, 47,12,45,12
  217. 4590 DATA -1,-1
  218. 4600 DATA -2,"RUDOLPH, THE RED-NOSED REINDEER tm",0,1,1
  219. 4605 DATA 49,5,51,5, 52,5,49,10,45,5,51,5,47,10,44,5,49,5,45,10,42,5,49,5,47
  220. 4610 DATA 15,52,5,49,10,45,5,51,5,47,10,44,5, 49,5,45,10,42,5,49,5,47,15
  221. 4615 DATA 44,10,44,10,44,10,44,10, 49,30,49,5,51,5
  222. 4620 DATA 52,10,52,10,52,10,51,10,49,5, 47,40
  223. 4625 DATA 47,4,49,8,47,4,44,8,52,8, 49,8,47,24, 47,4,49,4,47,4,49,4,47,8,52,8
  224. 4630 DATA 51,32, 45,4,47,8,45,4,42,8,51,8, 49,8,47,24
  225. 4635 DATA 47,4,49,4,47,4,49,4,47,8,49,8,44,32
  226. 4640 DATA 47,4,49,8,47,4,44,8,52,8, 49,8,47,24, 47,4,49,4,47,4,49,4,47,8,52,8
  227. 4645 DATA 51,32, 45,4,47,8,45,4,42,8,51,8, 49,8,47,24
  228. 4650 DATA 47,4,49,4,47,4,49,4,47,8,54,8,52,32
  229. 4655 DATA 49,8,49,8,52,8,49,8, 47,8,44,8,47,16, 45,8,49,8,47,8,45,8, 44,32
  230. 4660 DATA 42,8,44,8,47,8,49,8, 51,8,51,8,51,16, 52,8,52,8,51,8,49,8
  231. 4665 DATA 47,8,45,4,42,20
  232. 4670 DATA 47,4,49,8,47,4,44,8,52,8, 49,8,47,24, 47,4,49,4,47,4,49,4,47,8,52,8
  233. 4675 DATA 51,32, 45,4,47,8,45,4,42,8,51,8, 49,8,47,24
  234. 4680 DATA 47,8,49,8,47,8,49,8,47,16,54,16,52,56
  235. 4695 DATA -1,-1
  236. 5000 REM -- "We Wish You a Merry Christmas" INTRODUCTION
  237. 5010 ON ERROR GOTO 5090
  238. 5020 SETUP$="MB O3 T136 L4"
  239. 5060 VERSE$="DGG8A8G8F+8EEEAA8B8A8G8F+DDBB8>C8<B8A8GED8D8EAF+G2"
  240. 5070 PLAY SETUP$+VERSE$
  241. 5080 GOTO 6070
  242. 5090 RESUME 5100
  243. 5100 PRINT "Use BASICA next time"
  244. 5110 FOR I=1 TO 1000 : NEXT I
  245. 5120 GOTO 6070
  246. 6000 REM -- exit flourish
  247. 6010 ON ERROR GOTO 5090
  248. 6020 VERSE$="DGGGF+2F+GF+ED2ABA8A8G8G8>D<DD8D8EAF+G2"
  249. 6060 PLAY SETUP$+VERSE$
  250. 6070 ON ERROR GOTO 0
  251. 6080 RETURN
  252. 7000 REM --- exit picture
  253. 7002 WIDTH 80 : CLS
  254. 7004 DEF SEG=0 : IF (PEEK(&H410) AND &H30)=&H30  THEN 7006
  255. 7005 DISPLAY$="color": SCREEN ,,1,0: COLOR 0,7: CLS: LOCATE 1,1,0: GOTO 7010
  256. 7006 DISPLAY$="mono" : LOCATE 10,12,0
  257. 7007 PRINT "You should ask Santa for a color display this Christmas."
  258. 7008 FOR I=1 TO 1000 : NEXT I
  259. 7010 STAR$=CHR$(15): TRUNK$=CHR$(219): LEAF$=CHR$(14): FILL$=CHR$(177)
  260. 7015 BOTR=24: BOTC=40: WIDE=20
  261. 7020 COLOR 6,0 : FOR J = 0 TO 2
  262. 7025 LOCATE BOTR-J,BOTC-1: FOR I=1 TO 3: PRINT TRUNK$;: NEXT I : NEXT J
  263. 7030 IF DISPLAY$="mono" THEN LOCATE 10,12,0: FOR I= 1 TO 60: PRINT " ";:NEXT I
  264. 7035 BOTR=BOTR-3
  265. 7040 FOR I=BOTR TO 2 STEP -1
  266. 7045 LOCATE I,BOTC-WIDE
  267. 7048 COLOR 4,7 : PRINT LEAF$;
  268. 7050 COLOR 2,0 : FOR J=2*WIDE-2 TO 0 STEP -1:PRINT FILL$;:NEXT J
  269. 7052 COLOR 4,7 : PRINT LEAF$;
  270. 7055 WIDE=WIDE-1: NEXT I
  271. 7060 LOCATE 1,BOTC: COLOR 31,7 : PRINT STAR$;
  272. 7065 LOCATE 1,1,0 : COLOR ,,7 : IF DISPLAY$="color" THEN SCREEN ,,1,1
  273. 7070 CMD$=INKEY$:  IF CMD$="" THEN 7070
  274. 7072 IF DISPLAY$="color" THEN SCREEN ,,0,0 : COLOR 7,0,0
  275. 7075 RETURN
  276.