home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ABC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  9.9 KB  |  290 lines
  1. 10   KEY OFF
  2. 20  CLS
  3. 30  SCREEN 1,0
  4. 40  COLOR 1,0
  5. 50  LOCATE 4,13
  6. 60  PRINT "PRESET*  SOUND<UNK! {00FA}>  KEYERL  OPENAND"
  7. 70  LOCATE 7,9
  8. 80  PRINT "STEP<0xB5!>  THENCALL  ERR<UNK! {FD20}> ERLVARPTR  PSET\  <0xB6!>DEFDBL"
  9. 90  LINE (15,15)-(304,164),1,B
  10. 100  LINE (20,20)-(299,159),1,B
  11. 110  DIM N1(188),M1(600),L(100),M2(500),Z(16,16,11)
  12. 120  FOR I=7 TO 88:N1(I)=36.8*(2^(1/12))^(I-6):NEXT
  13. 130  FOR I=1 TO 6:N1(I)=32767:NEXT
  14. 140  RESTORE 840
  15. 150  I=1
  16. 160  READ M1(I)
  17. 170  IF M1(I)=-1 THEN 190
  18. 180  I=I+1:GOTO 160
  19. 190  RESTORE 900
  20. 200  I=1
  21. 210  READ M2(I)
  22. 220  IF M2(I)=-1 THEN GOTO 240
  23. 230  I=I+1:GOTO 210
  24. 240  FOR E=1 TO 11
  25. 250  FOR X=1 TO 16
  26. 260  FOR Y=1 TO 16
  27. 270  READ Z(X,Y,E)
  28. 280  NEXT:NEXT
  29. 290  NEXT
  30. 300  CLS
  31. 310  KEY OFF
  32. 320  SCREEN 1,0
  33. 330  COLOR 24,0
  34. 340  CIRCLE (160,100),159,6,,,0.3
  35. 350  PAINT (160,100),2,3
  36. 360  X$="SCREENSCREENMOTORSPC(CLOSE<0xB6!>NOTDEFINTSOUND<UNK! {00FA}>COLOR=SCREEN*TAB(TRONCLOSE<UNK! {00FA}>RANDOMIZEPOINTCLS^LOCATECLSMERGE="
  37. 370  FOR E=1 TO 14
  38. 380  PP$=MID$(X$,(E-1)*2+1,2)
  39. 390  LOCATE 6,(E*2+6)
  40. 400  PRINT PP$
  41. 410  FOR I=1 TO 100
  42. 420  NEXT I
  43. 430  NEXT E
  44. 440  K=1
  45. 450  PLAY "MB"
  46. 460  P=100
  47. 470  FOR K=1 TO 101 STEP 2
  48. 480  SOUND N1(M1(K)-8),M1(K+1)*1.5
  49. 490  NEXT
  50. 500  FOR I=1 TO 13
  51. 510  IF I=1 THEN 590
  52. 520  IF I=13 THEN 610
  53. 530  FOR E=I-1 TO I-1
  54. 540  FOR X=1 TO 16
  55. 550  FOR Y=1 TO 16
  56. 560  PSET (X+(E-1)*19-104,Y-30),Z(X,Y,E)
  57. 570  NEXT :NEXT :NEXT
  58. 571  IF I=12 THEN GOTO 770
  59. 580  GOTO 620
  60. 590  GOSUB 690
  61. 600  GOTO 620
  62. 610  GOSUB 770
  63. 620  SOUND N1(M1(K)-8),M1(K+1)*1.5
  64. 630  IF (K MOD 17)=1 OR M1(K)=-1 THEN GOTO 660
  65. 640  K=K+2
  66. 650  GOTO 620
  67. 660  K=K+2
  68. 670  NEXT
  69. 680  REM SYSTEM
  70. 690  CLS
  71. 700  SCREEN 2
  72. 710  WINDOW SCREEN (-160,-100)-(160,100)
  73. 720  LINE (-142,-75)-(142,55),1,B
  74. 730  LINE (-144,-77)-(144,57),1,B
  75. 740  LOCATE 3,34
  76. 750  PRINT "STRING$USR USRELSE USRTHEN PSETMOD SPC(<0xB5!>"
  77. 760  RETURN
  78. 770  LOCATE 6,16
  79. 780  PRINT "SHE  BEI  GUAN  LI  YU  WEI  XIU  XIN  XI  XI  TONG"
  80. 790  LOCATE 7,26
  81. 800  PRINT "   CAPE-SH-I      87.7-88.5  "
  82. 810  LOCATE 8,18
  83. 820  PRINT "KEYBSAVETAB(<UNK! {00F7}>LOCATEELSEKEY<WHILEOPTIONRANDOMIZEPOINTCLS^USRDEFINTCLOSE<0xE1!>     STRING$USRRANDOMIZE<UNK! {00FA}>KEY<WHILEOPTIONRANDOMIZEPOINTCLS^BEEP<0xE0!>FN<0xB5!>STRING$USRUSRSOUND  "
  84. 821  FOR I=1 TO 8000
  85. 822  NEXT I
  86. 823  CLS:SCREEN 1:COLOR 1,0
  87. 824  LOCATE 2,5:PRINT "WHILESAVESTEP<0xB5!>THENCALLCOLORAUTOWRITETRONSCREEN<0xCB!>ERLWHILE:"
  88. 825  LOCATE 4,7:PRINT "SCREENSTRING$NOTEQVBSAVEERASE   CALLBSAVE<0xB5!>BSAVEERLAUTO   ERRERL<0xE1!>ERLERR<UNK! {FD22}>
  89. 826  LOCATE 5,7:PRINT "THEN<UNK! {00F5}>CALLDEFDBL-THEN   MOTORCLOSEBSAVE<UNK! {00FC}>ERLPSET   FNEDITMERGERESUMETAB(<0xE4!>"
  90. 827  LOCATE 6,7:PRINT "STRING$POINT  BLOAD<UNK! {00F7}>"
  91. 828  LOCATE 8,5:PRINT "  WHILESAVESTEP<0xB5!>THENCALLCOLORAUTOWRITETRONRANDOMIZE<UNK! {FDB3}>TOSTRING$USR<0xB5!>BLOAD<0xB5!>MERGECALLBSAVELOADSPC(<0xB6!>ERROR"
  92. 829  LOCATE 9,5:PRINT "<0xB5!>SCREENTHENDEFSTRSTRING$SAVE<0xB4!>MODMOTOREDITSTRING$ERRORCALLSTRING$"
  93. 830  REM SYSTEM
  94. 840  DATA 74,1,72,1,69,1,66,1,74,1,72,1,69,1,66,1,64,1,66,1,64,1,66,1,68,1,66,1,68,1,66,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,9,8,71,4,68,4,71,4,68,4,66,4,64,16
  95. 850  DATA 64,3,9,1,64,2,66,2,71,4,68,4,66,12,68,4,61,4,68,4,66,4,64,2,61,2,59,16,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,71,1,73,1,9,4
  96. 860  DATA 71,3,9,1,71,4,69,4,66,4,68,2,71,2,64,12,56,12,64,4,61,4,64,4,59,8,64,3,9,1,64,2,66,2,64,4,61,4,64,4,66,4,71,4,73,2,71,2,68,16,66,3,9,1,66,2,68,2,66,4,63,4,61,2,64,2,66,12,71,12,66,4,68,4,66,4,64,8
  97. 870  DATA 56,6,59,2,61,4,64,4,66,4,63,3,9,1,63,4,61,4,59,16,64,3,9,1,64,2,61,2,59,4,61,4,64,16,61,3,9,1,61,2,64,2,61,4,59,2,56,2,59,16,71,3,9,1,71,2,68,2,66,4,68,4,71,16,73,6,71,2,69,4,68,2,71,2,66,16
  98. 880  DATA 9,4,68,4,66,4,68,4,71,4,68,4,71,8,73,7,9,1,73,4,68,4,71,12,68,4,61,4,64,4,66,4,68,4,66,12,68,4,71,4,73,4,68,4,66,4,64,16,63,4,66,4,59,4,61,4,63,15,9,1,63,4,61,4,59,4,61,4,64,16,68,3,9,1,68,2,66,2,68,4,73,4,71,16
  99. 890  DATA 73,4,71,4,69,4,68,4,66,16,9,4,68,4,66,4,68,4,71,6,68,2,71,8,73,8,73,4,68,4,71,12,68,4,61,4,64,4,66,4,68,4,66,12,68,4,71,6,73,2,68,4,66,4,64,16,-1
  100. 900  DATA 68,4,71,4,66,4,71,4,68,2,71,1,17,1,71,2,64,2,66,4,17,4,68,4,71,4,66,4,71,4,66,2,71,2,68,2,66,2,64,4,17,4,61,6,68,2,66,6,68,2,66,2,68,2,66,2,61,2,64,4,17,4,61,6,68,2,66,2,64,2,61,4,59,12,17,4
  101. 910  DATA 66,4,71,4,66,4,71,4,73,2,71,2,69,2,68,2,66,4,17,4,66,4,71,4,73,4,71,4,68,2,71,1,17,1,71,2,64,2,66,4,17,4,66,6,68,2,71,6,64,2,66,4,68,4,66,4,17,4,66,6,71,2,68,6,66,2,64,6,66,2,64,4,71,1,73,1,76,1,76,1,-1
  102. 920  DATA 0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0
  103. 930   DATA 3,0,0,0,3,0,0,0,0,0,0,0,3,0,0,0
  104. 940   DATA 3,3,3,0,3,3,3,3,3,3,3,3,3,3,0,0
  105. 950   DATA 0,3,0,3,3,3,3,3,3,3,3,3,3,0,0,0
  106. 960   DATA 0,0,0,0,3,0,3,0,0,0,0,3,0,0,3,0
  107. 970   DATA 0,0,0,0,0,3,0,0,0,0,3,0,0,0,3,0
  108. 980   DATA 0,0,0,0,3,3,3,0,0,0,0,0,0,3,0,0
  109. 990   DATA 3,3,3,3,3,0,3,3,0,0,0,0,3,3,0,0
  110. 1000   DATA 3,3,3,0,0,0,3,0,3,3,0,3,3,0,0,0
  111. 1010   DATA 3,0,0,0,0,0,3,0,0,3,3,3,0,0,0,0
  112. 1020   DATA 3,3,3,3,0,0,3,0,0,3,3,3,0,0,0,0
  113. 1030   DATA 3,3,3,3,3,0,3,3,3,3,0,3,3,0,0,0
  114. 1040   DATA 3,0,0,3,3,3,3,3,3,0,0,0,3,3,0,0
  115. 1050   DATA 0,0,0,3,3,0,3,0,0,0,0,0,0,3,3,0
  116. 1060   DATA 0,0,0,3,0,0,0,0,0,0,0,0,0,3,0,0
  117. 1070   DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  118. 1080   DATA 0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0
  119. 1090   DATA 0,0,0,0,3,0,0,0,3,0,0,0,0,0,0,0
  120. 1100  REM
  121. 1110   DATA 0,0,0,3,0,0,0,3,3,3,3,3,3,3,3,0
  122. 1120   DATA 0,0,3,3,0,0,0,3,3,3,3,3,3,3,0,0
  123. 1130   DATA 0,3,3,0,0,0,3,0,3,0,3,0,0,3,0,0
  124. 1140   DATA 3,3,3,3,3,0,3,0,3,0,3,0,0,3,0,0
  125. 1150   DATA 3,0,3,0,3,3,0,0,3,3,3,3,3,3,0,0
  126. 1160   DATA 0,0,3,0,0,3,0,0,3,3,3,3,3,3,0,0
  127. 1170   DATA 0,0,3,0,3,3,3,0,3,0,3,0,0,3,0,0
  128. 1180   DATA 0,0,3,3,3,0,3,0,3,0,3,0,0,3,0,0
  129. 1190   DATA 0,3,3,3,0,0,3,3,3,3,3,3,3,3,3,0
  130. 1200  DATA 0,0,3,0,0,0,0,3,3,3,3,3,3,3,0,0
  131. 1210  DATA 0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0
  132. 1220  DATA 0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0
  133. 1230  DATA 0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0
  134. 1240  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  135. 1250  DATA 0,0,0,3,0,3,0,0,0,0,0,0,0,0,0,0
  136. 1260  DATA 0,0,3,0,3,3,3,0,0,0,0,0,0,0,0,0
  137. 1270  DATA 3,3,3,3,3,3,0,0,0,0,0,0,0,0,0,0
  138. 1280  DATA 3,3,0,0,3,0,0,0,0,0,0,0,0,0,0,0
  139. 1290  DATA 0,3,3,0,3,3,3,3,3,3,3,3,3,3,3,0
  140. 1300  DATA 0,3,3,3,3,0,3,3,3,3,3,3,3,3,0,0
  141. 1310  DATA 3,3,0,0,3,0,3,0,3,0,3,0,0,3,0,0
  142. 1320  DATA 0,3,0,3,3,0,3,0,3,0,3,0,0,3,0,0
  143. 1330  DATA 0,0,3,3,3,0,3,0,3,0,3,0,0,3,0,0
  144. 1340  DATA 3,3,0,0,3,0,3,3,3,0,3,0,0,3,0,0
  145. 1350  DATA 3,3,0,0,3,3,3,3,3,0,3,3,3,3,3,0
  146. 1360  DATA 0,3,3,0,3,0,3,0,0,3,3,3,3,3,0,0
  147. 1370  DATA 0,3,3,3,3,3,3,0,0,0,3,0,0,0,0,0
  148. 1380  DATA 3,3,0,3,3,3,0,0,0,0,0,0,0,0,0,0
  149. 1390  DATA 0,3,0,0,3,0,0,0,0,0,0,0,0,0,0,0
  150. 1400  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  151. 1410  DATA 0,3,0,0,0,3,0,0,0,0,0,3,0,0,0,0
  152. 1420  DATA 0,3,0,0,0,3,0,0,0,0,0,3,3,0,0,0
  153. 1430  DATA 0,3,3,3,3,3,3,3,3,3,3,3,0,0,0,0
  154. 1440  DATA 0,3,3,3,3,3,3,3,3,3,3,3,0,0,0,0
  155. 1450  DATA 3,3,0,0,0,3,0,0,0,0,3,0,0,0,0,0
  156. 1460  DATA 0,3,0,0,0,3,0,0,0,0,3,0,0,3,0,0
  157. 1470  DATA 3,3,3,3,3,3,3,3,0,3,0,0,0,3,0,0
  158. 1480  DATA 3,3,3,3,3,3,3,0,0,3,0,0,0,3,0,0
  159. 1490  DATA 3,0,0,3,0,0,3,0,0,3,0,0,0,3,0,0
  160. 1500  DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,0
  161. 1510  DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,0
  162. 1520  DATA 3,0,0,3,0,0,3,0,0,3,0,0,0,3,0,0
  163. 1530  DATA 3,3,3,3,3,3,3,3,0,3,0,0,0,3,0,0
  164. 1540  DATA 3,3,3,3,3,3,3,0,0,3,0,0,3,3,0,0
  165. 1550  DATA 3,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0
  166. 1560  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  167. 1570  REM NOT*
  168. 1580  DATA 0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0
  169. 1590  DATA 0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0
  170. 1600  DATA 0,0,0,0,0,0,3,0,0,0,3,0,0,0,0,0
  171. 1610  DATA 3,3,3,3,3,3,3,3,0,0,3,0,0,0,0,0
  172. 1620  DATA 3,3,3,3,3,3,3,0,0,0,3,0,0,0,0,0
  173. 1630  DATA 0,0,3,0,0,0,3,0,0,0,3,0,0,0,0,0
  174. 1640  DATA 0,0,3,0,0,0,3,0,0,0,3,0,0,0,0,0
  175. 1650  DATA 0,0,3,0,0,0,3,0,0,0,3,0,0,0,0,0
  176. 1660  DATA 0,0,3,0,0,0,3,0,0,0,3,0,0,0,0,0
  177. 1670  DATA 0,0,3,0,0,0,3,0,0,3,3,0,0,0,0,0
  178. 1680  DATA 0,0,3,0,0,0,3,0,0,3,3,0,0,0,0,0
  179. 1690  DATA 0,0,3,0,0,0,3,0,0,0,3,0,0,3,0,0
  180. 1700  DATA 0,0,3,0,0,0,3,0,0,0,0,0,0,3,3,0
  181. 1710  DATA 0,3,3,0,0,0,3,3,3,3,3,3,3,3,0,0
  182. 1720  DATA 0,0,3,0,0,3,3,3,3,3,3,3,3,0,0,0
  183. 1730  DATA 0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0
  184. 1740  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  185. 1750  REM TAB(DEFSTR
  186. 1760  DATA 0,0,0,0,3,3,0,0,3,0,0,0,3,0,0,0
  187. 1770  DATA 0,0,3,3,0,3,0,3,3,3,0,0,3,3,0,0
  188. 1780  DATA 0,3,3,0,0,3,3,3,3,0,0,0,3,0,0,0
  189. 1790  DATA 3,3,0,0,3,3,3,0,3,0,0,3,3,0,0,0
  190. 1800  DATA 3,0,0,3,3,3,0,0,3,0,0,3,0,0,0,0
  191. 1810  DATA 0,0,0,0,3,0,3,0,0,0,3,0,0,0,0,0
  192. 1820  DATA 0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0
  193. 1821  DATA 0,0,3,3,3,3,3,3,3,3,3,3,3,3,3,0
  194. 1900  DATA 3,3,3,0,3,3,3,3,3,3,3,3,3,3,0,0
  195. 1910  DATA 3,3,0,3,0,0,3,0,0,3,0,0,0,3,0,0
  196. 1920  DATA 0,0,0,3,0,0,3,0,0,3,0,0,0,3,0,0
  197. 1930  DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,0
  198. 1940  DATA 3,3,0,3,3,3,3,3,3,3,3,3,3,3,0,0
  199. 1950  DATA 0,0,0,3,0,0,3,0,0,3,0,0,0,3,0,0
  200. 1960  DATA 0,0,3,3,0,0,3,0,0,3,0,0,3,3,0,0
  201. 1970  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  202. 1980  REM USRINKEY$
  203. 1990  DATA 0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0
  204. 2000  DATA 0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0
  205. 2010  DATA 0,0,3,3,3,3,3,3,3,3,3,3,3,3,3,0
  206. 2020  DATA 3,3,3,0,3,3,3,3,3,3,3,3,3,3,0,0
  207. 2030  DATA 3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  208. 2040  DATA 0,0,0,0,0,3,3,3,3,3,3,0,0,0,3,0
  209. 2050  DATA 0,0,0,3,0,0,0,3,0,3,0,0,3,0,3,0
  210. 2060  DATA 0,3,3,0,0,0,3,0,0,3,0,0,3,0,3,0
  211. 2070  DATA 3,3,3,3,0,3,3,0,3,0,0,3,0,0,3,0
  212. 2080  DATA 3,3,0,0,3,3,0,3,3,0,3,3,0,3,0,0
  213. 2090  DATA 0,3,0,3,3,0,3,3,0,3,3,0,0,3,0,0
  214. 2100  DATA 0,3,3,3,0,3,0,0,3,3,0,0,3,3,0,0
  215. 2110  DATA 3,3,3,0,0,3,3,0,3,0,0,3,3,0,0,0
  216. 2120  DATA 0,3,0,0,0,0,3,3,0,0,3,3,0,0,0,0
  217. 2130  DATA 0,0,0,0,0,0,3,0,0,0,0,3,0,0,0,0
  218. 2140  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  219. 2150  REM xin
  220. 2151  DATA 0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0
  221. 2152  DATA 0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0
  222. 2153  DATA 0,0,3,3,3,3,3,3,3,3,3,3,3,3,3,0
  223. 2154  DATA 3,3,3,0,3,3,3,3,3,3,3,3,3,3,0,0
  224. 2155  DATA 3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  225. 2156  DATA 0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  226. 2157  DATA 0,3,0,0,3,0,3,0,3,3,3,3,3,3,3,0
  227. 2158  DATA 0,3,0,0,3,0,3,0,0,3,3,3,3,3,0,0
  228. 2159  DATA 3,3,0,0,3,0,3,0,0,3,0,0,0,3,0,0
  229. 2161  DATA 3,3,0,0,3,0,3,0,0,3,0,0,0,3,0,0
  230. 2162  DATA 0,3,0,0,3,0,3,0,0,3,0,0,0,3,0,0
  231. 2163  DATA 0,3,0,3,3,0,3,0,0,3,3,3,3,3,3,0
  232. 2164  DATA 0,3,0,0,3,0,3,0,3,3,3,3,3,3,0,0
  233. 2165  DATA 3,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0
  234. 2166  DATA 0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  235. 2167  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  236. 2168  REM STEPTRON
  237. 2169  DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0
  238. 2170  DATA 0,0,0,0,0,0,0,0,0,0,0,3,3,3,3,0
  239. 2171  DATA 0,0,0,0,0,0,0,0,0,0,3,3,3,0,0,0
  240. 2172  DATA 3,3,3,3,3,3,3,3,3,0,0,0,0,0,0,0
  241. 2173  DATA 3,3,3,3,3,3,3,3,0,3,3,3,3,3,0,0
  242. 2174  DATA 3,3,0,3,0,3,0,3,0,0,3,3,3,3,3,0
  243. 2175  DATA 0,3,0,3,0,3,0,3,0,3,0,0,0,3,3,0
  244. 2176  DATA 0,3,0,3,0,3,0,3,0,3,3,0,0,3,3,0
  245. 2177  DATA 0,3,0,3,0,3,0,3,0,0,3,3,0,3,3,0
  246. 2178  DATA 0,3,0,3,0,3,0,3,0,0,3,0,0,3,3,0
  247. 2179  DATA 0,3,3,3,3,3,3,3,3,0,0,0,3,3,3,0
  248. 2180  DATA 3,3,3,3,3,3,3,3,3,3,3,0,0,3,0,0
  249. 2181  DATA 0,3,0,0,0,0,0,0,0,0,3,3,0,0,0,0
  250. 2182  DATA 0,0,0,0,0,0,0,0,0,0,0,3,3,3,0,0
  251. 2183  DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0
  252. 2184  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  253. 2190  REM
  254. 2191  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0
  255. 2192  DATA 0,3,0,0,0,0,0,0,3,0,0,0,0,3,0,0
  256. 2193  DATA 0,3,0,0,0,3,0,0,3,3,0,0,3,0,0,0
  257. 2194  DATA 0,3,0,0,3,3,3,0,3,0,0,3,3,0,0,0
  258. 2195  DATA 0,3,0,3,3,3,0,3,3,3,3,3,0,0,0,0
  259. 2196  DATA 3,0,3,3,0,3,0,3,3,0,3,0,0,3,0,0
  260. 2200  REM STEP<0xB5!>
  261. 2210  DATA 3,3,3,0,0,3,3,0,3,0,0,0,0,3,0,0
  262. 2220  DATA 3,0,3,0,0,3,3,0,3,3,3,3,3,3,3,0
  263. 2230  DATA 3,0,0,0,3,3,0,0,3,3,3,3,3,3,0,0
  264. 2240  DATA 3,0,0,3,3,0,0,0,3,0,3,0,0,0,0,0
  265. 2250  DATA 3,0,0,0,3,0,3,0,3,0,3,3,0,0,0,0
  266. 2260  DATA 3,0,0,0,0,0,3,3,3,0,0,3,3,0,0,0
  267. 2270  DATA 3,0,0,0,0,0,0,3,3,3,0,3,3,3,0,0
  268. 2280  DATA 0,0,0,0,0,0,0,0,3,0,0,0,3,0,0,0
  269. 2290  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  270. 2300  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  271. 2310  DATA 0,0,0,0,3,3,0,0,3,0,0,0,3,0,0,0
  272. 2320  DATA 0,0,3,3,0,3,0,3,3,3,0,0,3,3,0,0
  273. 2330  DATA 0,3,3,0,0,3,3,3,3,0,0,0,3,0,0,0
  274. 2340  DATA 3,3,0,0,0,3,3,0,3,0,0,3,3,0,0,0
  275. 2350  DATA 3,0,0,3,3,3,0,0,3,0,0,3,0,0,3,0
  276. 2360  DATA 0,0,3,0,3,0,3,0,0,0,3,0,0,3,0,0
  277. 2370  DATA 0,0,3,0,0,3,3,0,0,0,0,3,3,3,0,0
  278. 2380  DATA 0,0,3,0,3,3,3,3,3,3,3,3,3,0,0,0
  279. 2390  DATA 0,0,3,3,3,0,3,3,3,3,3,0,0,0,0,0
  280. 2400  DATA 3,3,3,3,0,0,3,0,0,0,0,0,0,0,0,0
  281. 2410  DATA 3,0,3,0,0,0,3,3,3,3,3,3,3,3,0,0
  282. 2420  DATA 0,0,3,3,0,0,3,3,3,3,3,3,3,3,3,0
  283. 2430  DATA 0,0,3,0,3,3,3,0,0,0,0,0,0,3,3,0
  284. 2440  DATA 0,3,3,0,0,3,3,3,0,0,0,0,0,3,3,0
  285. 2450  DATA 0,0,3,0,0,0,3,0,0,0,0,3,3,3,3,0
  286. 2460  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  287. 2470  FOR I=1 TO 10000
  288. 2480  NEXT I
  289. 2490  SYSTEM
  290.