Guest User

Untitled

a guest
Feb 1st, 2016
128
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'qtrek
  2. 'star trek themed game originally for qb, compiles with freebasic
  3. 'compile: fbc -lang qb qtrek.bas
  4.  
  5. DECLARE SUB display ()
  6. DECLARE SUB xxf10 ()
  7. DECLARE SUB xxf11 ()
  8. DECLARE SUB xxf9 ()
  9. DECLARE SUB xxf12 ()
  10. DECLARE SUB box (kbox%)
  11. DECLARE SUB box1 ()
  12. DECLARE SUB kra ()
  13. DECLARE SUB krz ()
  14. DECLARE SUB c ()
  15. DECLARE SUB d ()
  16. DECLARE SUB f ()
  17. DECLARE SUB h ()
  18. DECLARE SUB i ()
  19. DECLARE SUB l ()
  20. DECLARE SUB r ()
  21. DECLARE SUB s ()
  22. DECLARE SUB e ()
  23. DECLARE SUB k ()
  24. DECLARE SUB empty (lr%)
  25. DECLARE SUB n ()
  26. DECLARE SUB p ()
  27. DECLARE SUB t ()
  28. DECLARE SUB u ()
  29. DECLARE SUB dpt ()
  30. DECLARE SUB empty2 ()
  31. DECLARE SUB minus ()
  32.  
  33. DECLARE SUB z1 ()
  34. DECLARE SUB z2 ()
  35. DECLARE SUB z3 ()
  36. DECLARE SUB z4 ()
  37. DECLARE SUB z5 ()
  38. DECLARE SUB z6 ()
  39. DECLARE SUB z7 ()
  40. DECLARE SUB z8 ()
  41. DECLARE SUB z9 ()
  42. DECLARE SUB z0 ()
  43.  
  44. DECLARE SUB crash ()
  45. DECLARE SUB srnd ()
  46. DECLARE SUB xxf5 ()
  47. DECLARE SUB xxf6 ()
  48. DECLARE SUB xxf7 ()
  49. DECLARE SUB xxf8 ()
  50. DECLARE SUB xxf1 ()
  51. DECLARE SUB xxf2 ()
  52. DECLARE SUB xxf3 ()
  53. DECLARE SUB xxf4 ()
  54. DECLARE SUB enemy ()
  55. DECLARE SUB bounce ()
  56. DECLARE SUB stars ()
  57. DECLARE SUB ship ()
  58. DECLARE SUB photon (xf%, yf%)
  59. DECLARE SUB prnumber (num%, stl%)
  60.  
  61. DIM SHARED x%, y%, yp%(2), xp%(2), lx%, ly%, kstn%
  62. DIM SHARED ex%, ey%, enm%, ez%, ek%, eex%
  63. DIM SHARED stt%, snd%, snp%, cb%, cf%
  64. DIM SHARED trf%, punkte%, shl%
  65. DIM ys%(49), zs%(49), xs(49) AS SINGLE
  66. DIM pb%(2), xf%(5), yf%(5), fb%(5)
  67.  
  68. ON ERROR GOTO errorhandler
  69. CONST pi! = 3.1416
  70. SCREEN 13
  71. 'Umgebungsvariablen
  72.  prm% = POINT(0, 0)
  73.  snp% = POINT(1, 0)
  74.  lvl% = POINT(2, 0)
  75. CLS
  76. RANDOMIZE TIMER
  77. CLOSE
  78. PALETTE 6, 60
  79. PALETTE 5, 50
  80. PALETTE 4, 40
  81. PALETTE 3, 30
  82. PALETTE 2, 20
  83.  
  84. 'IF prm% = 0 THEN COLOR 12: PRINT : PRINT : PRINT : PRINT "  Sie m�ssen das Spiel mit der Datei": PRINT "  "; CHR$(34); "UNAD2.BAT"; CHR$(34); " starten!": SLEEP: SYSTEM
  85.  
  86. 'Vorberechnungen f�r Sterne
  87.  FOR str% = 0 TO 49 + qty% * 10
  88.  xs(str%) = RND * 320
  89.  zs%(str%) = RND * 14 + 2
  90.  ys%(str%) = RND * 180
  91.  NEXT
  92.  
  93. 'Variablen
  94.  x% = 20
  95.  y% = 100
  96.  ex% = 300
  97.  ey% = 102
  98.  shl% = 10
  99.  enm% = 15
  100.  
  101. DO
  102.  
  103. FOR str% = 0 TO 49
  104.  PSET (xs(str%), ys%(str%)), 0
  105.  xs(str%) = xs(str%) - zs%(str%) / 8 - 1
  106.  IF xs(str%) < 0 THEN xs(str%) = 320
  107.  PSET (xs(str%), ys%(str%)), zs%(str%) + 15
  108.  NEXT
  109.  
  110. display
  111.  
  112. in$ = INKEY$
  113. SELECT CASE in$
  114.  
  115. CASE CHR$(0) + CHR$(72)
  116.  LINE (x%, y%)-(x% + 20, y% + 9), 0, BF: y% = y% - 8
  117. CASE CHR$(0) + CHR$(80)
  118.  LINE (x%, y%)-(x% + 20, y% + 9), 0, BF: y% = y% + 8
  119. CASE CHR$(0) + CHR$(75)
  120.  LINE (x%, y%)-(x% + 20, y% + 9), 0, BF: x% = x% - 8
  121. CASE CHR$(0) + CHR$(77)
  122.  LINE (x%, y%)-(x% + 20, y% + 9), 0, BF: x% = x% + 8
  123.  
  124. CASE "n"
  125.  fv% = 1
  126. CASE "g"
  127.  pv% = 1
  128. CASE "h"
  129.  IF lv% = 0 THEN lv% = 1
  130.  
  131. CASE "s"
  132.  IF snp% = 0 THEN snp% = 1 ELSE snp% = 0
  133.  
  134. END SELECT
  135. bounce
  136.  
  137. crash
  138. IF enm% = 0 THEN eex% = eex% + 1
  139. LINE (ex%, ey%)-STEP(21, 7), 0, BF '�berzeichnen
  140. IF eex% > 1 THEN LINE (ex%, ey% - 3)-(ex% + 25, ey% + 15), 0, BF
  141. 'Fortbewegung
  142. ex% = ex% - 3
  143. 'Durchlauf
  144. IF ex% < -25 THEN ex% = 340: enm% = 15: eex% = 0: snd% = 0: ey% = INT(RND * 100) + 50: punkte% = punkte% - 100
  145. 'Sicherung
  146. IF ey% > 170 THEN ey% = 170: ez% = 0
  147. IF ey% < 0 THEN ey% = 0: ez% = 0
  148.  
  149. IF eex% = 1 THEN trf% = trf% + 1: punkte% = punkte% + 400
  150. SELECT CASE INT(eex% / 2)
  151. CASE 0: enemy
  152. CASE 1: xxf1: snd% = 1
  153. CASE 2: xxf2
  154. CASE 3: xxf3
  155. CASE 4: xxf4
  156. CASE 5: xxf5
  157. CASE 6: xxf6
  158. CASE 7: xxf7
  159. CASE 8: xxf8
  160. CASE 9: xxf9
  161. CASE 10: xxf10
  162. CASE 11: xxf11
  163. CASE 12: xxf12
  164. CASE 13: LINE (ex%, ey% - 3)-(ex% + 25, ey% + 15), 0, BF: ex% = -21: enm% = 15: eex% = 0
  165. END SELECT
  166. ship
  167. srnd
  168.  
  169. ' Laser
  170. IF lv% = 1 THEN lx% = x% + 20: ly% = y% + 7: IF ly% >= ey% AND ly% <= ey% + 7 AND ex% > x% AND eex% = 0 THEN lx2% = ex% + 7: snd% = 17: enm% = enm% - 4: punkte% = punkte% + 10 ELSE lx2% = 320: snd% = 17: punkte% = punkte% - 5
  171. IF lv% >= 1 THEN
  172. lv% = lv% + 1
  173. LINE (lx%, ly%)-(lx2%, ly%), 46
  174. IF lv% = 3 THEN lv% = 0: LINE (lx%, ly%)-(lx2%, ly%), 0
  175. END IF
  176.  
  177. ' Engine - Plasma
  178. FOR fa% = 0 TO 2
  179.  IF pv% = 1 AND pb%(fa%) = 0 THEN pb%(fa%) = 1: pv% = 0: snd% = 21
  180.  IF pb%(fa%) = 1 THEN xp%(fa%) = x% + 14: yp%(fa%) = y% + 7: pb%(fa%) = 2
  181.  IF pb%(fa%) = 2 THEN
  182.   xp%(fa%) = xp%(fa%) + 9
  183.   LINE (xp%(fa%), yp%(fa%))-(xp%(fa%) + 9, yp%(fa%)), 6
  184.   LINE (xp%(fa%), yp%(fa%))-(xp%(fa%) - 8, yp%(fa%)), 0
  185.   IF xp%(fa%) > 340 THEN pb%(fa%) = 0: punkte% = punkte% - 7
  186.   IF xp%(fa%) > ex% AND xp%(fa%) < ex% + 17 AND yp%(fa%) >= ey% AND yp%(fa%) <= ey% + 7 AND eex% = 0 THEN pb%(fa%) = 0: LINE (xp%(fa%) + 9, yp%(fa%))-(xp%(fa%) - 8, yp%(fa%)), 0: enm% = enm% - 4: punkte% = punkte% + 14
  187.   END IF
  188.  NEXT
  189.  
  190. ' Photon Torpedos
  191. FOR fa% = 0 TO 5
  192.  IF fv% = 1 AND fb%(fa%) = 0 THEN fb%(fa%) = 1: fv% = 0: snd% = 10
  193.  IF fb%(fa%) = 1 THEN xf%(fa%) = x% + 16: yf%(fa%) = y% + 7: fb%(fa%) = 2
  194.   IF fb%(fa%) = 2 THEN
  195.   xf%(fa%) = xf%(fa%) + 3
  196.   photon xf%(fa%), yf%(fa%)
  197.   IF xf%(fa%) > 320 THEN fb%(fa%) = 0: punkte% = punkte% - 8
  198.   IF xf%(fa%) > ex% AND xf%(fa%) < ex% + 21 AND yf%(fa%) >= ey% AND yf%(fa%) <= ey% + 7 AND eex% = 0 AND eex% = 0 THEN fb%(fa%) = 0: LINE (xf%(fa%), yf%(fa%) - 1)-(xf%(fa%) + 10, yf%(fa%) + 1), 0, BF: enm% = enm% - 5: punkte% = punkte% + 16
  199.   END IF
  200.  NEXT
  201.  
  202. LOOP UNTIL in$ = CHR$(27)
  203. CHAIN "unad1"
  204.  
  205. 'Handle errors by not handling errors
  206. errorhandler:
  207. RESUME NEXT
  208.  
  209. SUB a
  210. PSET STEP(3, -4), cf%
  211. PSET STEP(1, 0), cf%
  212.  
  213. PSET STEP(-2, 1), cf%
  214. PSET STEP(3, 0), cf%
  215.  
  216. PSET STEP(-3, 1), cf%
  217. PSET STEP(1, 0), cf%
  218. PSET STEP(1, 0), cf%
  219. PSET STEP(1, 0), cf%
  220.  
  221. PSET STEP(-3, 1), cf%
  222. PSET STEP(3, 0), cf%
  223.  
  224. PSET STEP(-3, 1), cf%
  225. PSET STEP(3, 0), cf%
  226. END SUB
  227.  
  228. SUB ae
  229. PSET STEP(2, -4), cf%
  230. PSET STEP(3, 0), cf%
  231.  
  232. PSET STEP(-2, 1), cf%
  233. PSET STEP(1, 0), cf%
  234.  
  235. PSET STEP(-2, 1), cf%
  236. PSET STEP(3, 0), cf%
  237.  
  238. PSET STEP(-3, 1), cf%
  239. PSET STEP(1, 0), cf%
  240. PSET STEP(1, 0), cf%
  241. PSET STEP(1, 0), cf%
  242.  
  243. PSET STEP(-3, 1), cf%
  244. PSET STEP(3, 0), cf%
  245. END SUB
  246.  
  247. SUB display
  248. cf% = 43
  249. DRAW "bm5,198"
  250. kra
  251.  
  252. box1
  253. empty 1
  254. : p: u: n: k: t: e: dpt
  255. cf% = 43 + 48
  256. prnumber punkte%, 4
  257.  
  258. box1
  259. empty 1
  260. cf% = 43
  261. : t: r: e: f: f: e: r: dpt
  262. IF trf% > 99 THEN trf% = 99
  263. cf% = 43 + 48
  264. prnumber trf%, 2
  265.  
  266. box1
  267. empty 1
  268. cf% = 43
  269. : s: c: h: i: l: d: e: dpt
  270. LINE STEP(3, -4)-STEP(shl% * 2, 4), 41, BF
  271. IF shl% = 10 THEN LINE STEP(1, -4)-STEP(0, 4), 41 ELSE LINE STEP(1, -4)-STEP(20 - shl% * 2, 4), 113, BF
  272. DRAW "bm+2,0"
  273.  
  274. box 30
  275. empty 1
  276. : f: e: i: n: d
  277. IF enm% < 0 THEN enm% = 0
  278. LINE STEP(3, -4)-STEP(enm% * 2, 4), 41, BF
  279. IF enm% = 15 THEN LINE STEP(1, -4)-STEP(0, 4), 41 ELSE LINE STEP(1, -4)-STEP(30 - enm% * 2, 4), 113, BF
  280. DRAW "bm+2,0"
  281. box1
  282. krz
  283.  
  284. END SUB
  285.  
  286. SUB b
  287. PSET STEP(2, -4), cf%
  288. PSET STEP(1, 0), cf%
  289.  
  290. PSET STEP(-1, 1), cf%
  291. PSET STEP(2, 0), cf%
  292.  
  293. PSET STEP(-2, 1), cf%
  294. PSET STEP(1, 0), cf%
  295. PSET STEP(1, 0), cf%
  296.  
  297. PSET STEP(-2, 1), cf%
  298. PSET STEP(3, 0), cf%
  299.  
  300. PSET STEP(-3, 1), cf%
  301. PSET STEP(1, 0), cf%
  302. PSET STEP(1, 0), cf%
  303. DRAW "bm+1, 0"
  304. END SUB
  305.  
  306. SUB box (kbox%)
  307. LINE STEP(3, -6)-STEP(kbox%, 8), 104, B
  308. PAINT STEP(-1, -1), 32, 104
  309. DRAW "bm+2,-1"
  310. END SUB
  311.  
  312. SUB box1
  313. LINE STEP(3, -6)-STEP(4, 8), 104, B
  314. PAINT STEP(-1, -1), 32, 104
  315. DRAW "bm+1,-1"
  316. END SUB
  317.  
  318. SUB c
  319. PSET STEP(3, -4), cf%
  320. PSET STEP(1, 0), cf%
  321.  
  322. PSET STEP(-2, 1), cf%
  323.  
  324. PSET STEP(0, 1), cf%
  325.  
  326. PSET STEP(0, 1), cf%
  327.  
  328. PSET STEP(1, 1), cf%
  329. PSET STEP(1, 0), cf%
  330. PSET STEP(1, 0), cf%
  331. END SUB
  332.  
  333. SUB crash
  334. IF x% >= ex% - 20 AND x% <= ex% + 15 AND y% >= ey% - 8 AND y% <= ey% + 7 AND enm% > 0 THEN enm% = 0: trf% = trf% - 1: punkte% = punkte% - 400: shl% = shl% - 1
  335. END SUB
  336.  
  337. SUB d
  338. PSET STEP(2, -4), cf%
  339. PSET STEP(1, 0), cf%
  340.  
  341. PSET STEP(-1, 1), cf%
  342. PSET STEP(2, 0), cf%
  343.  
  344. PSET STEP(-2, 1), cf%
  345. PSET STEP(3, 0), cf%
  346.  
  347. PSET STEP(-3, 1), cf%
  348. PSET STEP(3, 0), cf%
  349.  
  350. PSET STEP(-3, 1), cf%
  351. PSET STEP(1, 0), cf%
  352. PSET STEP(1, 0), cf%
  353. DRAW "bm+1, 0"
  354. END SUB
  355.  
  356. SUB dpt
  357. PSET STEP(2, -3), cf%
  358.  
  359. PSET STEP(0, 2), cf%
  360.  
  361. DRAW "bm+0,1"
  362. END SUB
  363.  
  364. SUB e
  365. PSET STEP(3, -4), cf%
  366. PSET STEP(1, 0), cf%
  367.  
  368. PSET STEP(-2, 1), cf%
  369.  
  370. PSET STEP(0, 1), cf%
  371. PSET STEP(1, 0), cf%
  372. PSET STEP(1, 0), cf%
  373.  
  374. PSET STEP(-2, 1), cf%
  375.  
  376. PSET STEP(0, 1), cf%
  377. PSET STEP(1, 0), cf%
  378. PSET STEP(1, 0), cf%
  379. PSET STEP(1, 0), cf%
  380. END SUB
  381.  
  382. SUB f
  383. PSET STEP(3, -4), cf%
  384. PSET STEP(1, 0), cf%
  385.  
  386. PSET STEP(-2, 1), cf%
  387.  
  388. PSET STEP(0, 1), cf%
  389. PSET STEP(1, 0), cf%
  390. PSET STEP(1, 0), cf%
  391.  
  392. PSET STEP(-2, 1), cf%
  393.  
  394. PSET STEP(0, 1), cf%
  395. DRAW "bm+2, 0"
  396. END SUB
  397.  
  398. SUB enemy
  399. 'Jump line
  400. ez% = ez% + 1
  401. IF ez% = 10 THEN ek% = CINT(RND * 2 - 1): ez% = 0
  402. IF ez% = 20 THEN ek% = 0
  403. ey% = ey% + ek%
  404. PSET (ex% + 8, ey%), 178
  405. PSET (ex% + 9, ey%), 130
  406. PSET (ex% + 10, ey%), 24
  407. PSET (ex% + 11, ey%), 25
  408. PSET (ex% + 12, ey%), 24
  409. PSET (ex% + 13, ey%), 24
  410. PSET (ex% + 14, ey%), 24
  411. PSET (ex% + 15, ey%), 24
  412. PSET (ex% + 16, ey%), 23
  413. PSET (ex% + 17, ey%), 21
  414. PSET (ex% + 18, ey%), 19
  415. PSET (ex% + 5, ey% + 1), 178
  416. PSET (ex% + 6, ey% + 1), 106
  417. PSET (ex% + 7, ey% + 1), 106
  418. PSET (ex% + 8, ey% + 1), 106
  419. PSET (ex% + 9, ey% + 1), 130
  420. PSET (ex% + 10, ey% + 1), 154
  421. PSET (ex% + 11, ey% + 1), 25
  422. PSET (ex% + 12, ey% + 1), 25
  423. PSET (ex% + 13, ey% + 1), 25
  424. PSET (ex% + 14, ey% + 1), 25
  425. PSET (ex% + 15, ey% + 1), 25
  426. PSET (ex% + 16, ey% + 1), 25
  427. PSET (ex% + 17, ey% + 1), 24
  428. PSET (ex% + 18, ey% + 1), 23
  429. PSET (ex% + 19, ey% + 1), 22
  430. PSET (ex% + 20, ey% + 1), 19
  431. PSET (ex% + 2, ey% + 2), 178
  432. PSET (ex% + 3, ey% + 2), 106
  433. PSET (ex% + 4, ey% + 2), 106
  434. PSET (ex% + 5, ey% + 2), 106
  435. PSET (ex% + 6, ey% + 2), 130
  436. PSET (ex% + 7, ey% + 2), 154
  437. PSET (ex% + 8, ey% + 2), 24
  438. PSET (ex% + 9, ey% + 2), 24
  439. PSET (ex% + 10, ey% + 2), 24
  440. PSET (ex% + 11, ey% + 2), 24
  441. PSET (ex% + 12, ey% + 2), 21
  442. PSET (ex% + 13, ey% + 2), 22
  443. PSET (ex% + 14, ey% + 2), 23
  444. PSET (ex% + 15, ey% + 2), 25
  445. PSET (ex% + 16, ey% + 2), 25
  446. PSET (ex% + 17, ey% + 2), 25
  447. PSET (ex% + 18, ey% + 2), 25
  448. PSET (ex% + 19, ey% + 2), 24
  449. PSET (ex% + 20, ey% + 2), 23
  450. PSET (ex% + 21, ey% + 2), 20
  451. PSET (ex%, ey% + 3), 21
  452. PSET (ex% + 1, ey% + 3), 22
  453. PSET (ex% + 2, ey% + 3), 23
  454. PSET (ex% + 3, ey% + 3), 23
  455. PSET (ex% + 4, ey% + 3), 24
  456. PSET (ex% + 5, ey% + 3), 24
  457. PSET (ex% + 6, ey% + 3), 24
  458. PSET (ex% + 7, ey% + 3), 24
  459. PSET (ex% + 8, ey% + 3), 24
  460. PSET (ex% + 9, ey% + 3), 22
  461. PSET (ex% + 10, ey% + 3), 20
  462. PSET (ex% + 11, ey% + 3), 19
  463. PSET (ex% + 15, ey% + 3), 22
  464. PSET (ex% + 16, ey% + 3), 25
  465. PSET (ex% + 17, ey% + 3), 25
  466. PSET (ex% + 18, ey% + 3), 25
  467. PSET (ex% + 19, ey% + 3), 23
  468. PSET (ex% + 20, ey% + 3), 20
  469. PSET (ex% + 3, ey% + 4), 20
  470. PSET (ex% + 4, ey% + 4), 22
  471. PSET (ex% + 5, ey% + 4), 22
  472. PSET (ex% + 6, ey% + 4), 20
  473. PSET (ex% + 7, ey% + 4), 19
  474. PSET (ex% + 14, ey% + 4), 23
  475. PSET (ex% + 15, ey% + 4), 26
  476. PSET (ex% + 16, ey% + 4), 25
  477. PSET (ex% + 17, ey% + 4), 24
  478. PSET (ex% + 18, ey% + 4), 21
  479. PSET (ex% + 19, ey% + 4), 19
  480. PSET (ex% + 20, ey% + 4), 17
  481. PSET (ex% + 9, ey% + 5), 18
  482. PSET (ex% + 10, ey% + 5), 21
  483. PSET (ex% + 11, ey% + 5), 23
  484. PSET (ex% + 12, ey% + 5), 24
  485. PSET (ex% + 13, ey% + 5), 26
  486. PSET (ex% + 14, ey% + 5), 27
  487. PSET (ex% + 15, ey% + 5), 25
  488. PSET (ex% + 16, ey% + 5), 22
  489. PSET (ex% + 17, ey% + 5), 20
  490. PSET (ex% + 18, ey% + 5), 18
  491. PSET (ex% + 8, ey% + 6), 42
  492. PSET (ex% + 9, ey% + 6), 41
  493. PSET (ex% + 10, ey% + 6), 42
  494. PSET (ex% + 11, ey% + 6), 43
  495. PSET (ex% + 12, ey% + 6), 44
  496. PSET (ex% + 13, ey% + 6), 26
  497. PSET (ex% + 14, ey% + 6), 24
  498. PSET (ex% + 15, ey% + 6), 20
  499. PSET (ex% + 16, ey% + 6), 18
  500. PSET (ex% + 10, ey% + 7), 19
  501. PSET (ex% + 11, ey% + 7), 21
  502. PSET (ex% + 12, ey% + 7), 23
  503. PSET (ex% + 13, ey% + 7), 21
  504. END SUB
  505.  
  506. SUB g
  507. PSET STEP(3, -4), cf%
  508. PSET STEP(1, 0), cf%
  509.  
  510. PSET STEP(-2, 1), cf%
  511.  
  512. PSET STEP(0, 1), cf%
  513. PSET STEP(2, 0), cf%
  514.  
  515. PSET STEP(-2, 1), cf%
  516. PSET STEP(3, 0), cf%
  517.  
  518. PSET STEP(-2, 1), cf%
  519. PSET STEP(1, 0), cf%
  520. PSET STEP(1, 0), cf%
  521. END SUB
  522.  
  523. SUB h
  524. PSET STEP(2, -4), cf%
  525. PSET STEP(3, 0), cf%
  526.  
  527. PSET STEP(-3, 1), cf%
  528. PSET STEP(3, 0), cf%
  529.  
  530. PSET STEP(-3, 1), cf%
  531. PSET STEP(1, 0), cf%
  532. PSET STEP(1, 0), cf%
  533. PSET STEP(1, 0), cf%
  534.  
  535. PSET STEP(-3, 1), cf%
  536. PSET STEP(3, 0), cf%
  537.  
  538. PSET STEP(-3, 1), cf%
  539. PSET STEP(3, 0), cf%
  540. END SUB
  541.  
  542. SUB i
  543. PSET STEP(2, -4), cf%
  544. PSET STEP(1, 0), cf%
  545. PSET STEP(1, 0), cf%
  546.  
  547. PSET STEP(-1, 1), cf%
  548.  
  549. PSET STEP(0, 1), cf%
  550.  
  551. PSET STEP(0, 1), cf%
  552.  
  553. PSET STEP(-1, 1), cf%
  554. PSET STEP(1, 0), cf%
  555. PSET STEP(1, 0), cf%
  556. END SUB
  557.  
  558. SUB k
  559. PSET STEP(2, -4), cf%
  560. PSET STEP(2, 0), cf%
  561.  
  562. PSET STEP(-2, 1), cf%
  563. PSET STEP(2, 0), cf%
  564.  
  565. PSET STEP(-2, 1), cf%
  566. PSET STEP(1, 0), cf%
  567. PSET STEP(1, 0), cf%
  568.  
  569. PSET STEP(-2, 1), cf%
  570. PSET STEP(3, 0), cf%
  571.  
  572. PSET STEP(-3, 1), cf%
  573. PSET STEP(3, 0), cf%
  574. END SUB
  575.  
  576. SUB klma1
  577. PSET STEP(3, -4), cf%
  578.  
  579. PSET STEP(-1, 1), cf%
  580.  
  581. PSET STEP(0, 1), cf%
  582.  
  583. PSET STEP(0, 1), cf%
  584.  
  585. PSET STEP(1, 1), cf%
  586. END SUB
  587.  
  588. SUB klma2
  589. PSET STEP(4, -4), cf%
  590.  
  591. PSET STEP(-1, 1), cf%
  592.  
  593. PSET STEP(-1, 1), cf%
  594.  
  595. PSET STEP(1, 1), cf%
  596.  
  597. PSET STEP(1, 1), cf%
  598. END SUB
  599.  
  600. SUB klmz1
  601. PSET STEP(2, -4), cf%
  602.  
  603. PSET STEP(1, 1), cf%
  604.  
  605. PSET STEP(0, 1), cf%
  606.  
  607. PSET STEP(0, 1), cf%
  608.  
  609. PSET STEP(-1, 1), cf%
  610. DRAW "bm+1,0"
  611. END SUB
  612.  
  613. SUB klmz2
  614. PSET STEP(2, -4), cf%
  615.  
  616. PSET STEP(1, 1), cf%
  617.  
  618. PSET STEP(1, 1), cf%
  619.  
  620. PSET STEP(-1, 1), cf%
  621.  
  622. PSET STEP(-1, 1), cf%
  623. DRAW "bm+2,0"
  624. END SUB
  625.  
  626. SUB kra
  627. CIRCLE STEP(6, -3), 5, 104, pi! / 2, 3 * pi! / 2
  628. LINE STEP(0, 4)-STEP(0, -8), 104
  629. PAINT STEP(-4, 3), 32, 104
  630. DRAW "bm+4, 3"
  631. END SUB
  632.  
  633. SUB krz
  634. CIRCLE STEP(3, -2), 5, 104, 3 * pi! / 2, pi! / 2
  635. LINE STEP(0, 4)-STEP(0, -8), 104
  636. PAINT STEP(4, 3), 32, 104
  637. DRAW "bm+1, 3"
  638. END SUB
  639.  
  640. SUB l
  641. PSET STEP(2, -4), cf%
  642.  
  643. PSET STEP(0, 1), cf%
  644.  
  645. PSET STEP(0, 1), cf%
  646.  
  647. PSET STEP(0, 1), cf%
  648. PSET STEP(3, 0), cf%
  649.  
  650. PSET STEP(-3, 1), cf%
  651. PSET STEP(1, 0), cf%
  652. PSET STEP(1, 0), cf%
  653. PSET STEP(1, 0), cf%
  654. END SUB
  655.  
  656. SUB empty (lr%)
  657. DRAW "bm +" + STR$(lr%) + ",0"
  658. END SUB
  659.  
  660. SUB empty2
  661. PSET STEP(1, -4), cb%
  662. PSET STEP(1, 0), cb%
  663. PSET STEP(1, 0), cb%
  664. PSET STEP(1, 0), cb%
  665. PSET STEP(1, 0), cb%
  666.  
  667. PSET STEP(-4, 1), cb%
  668. PSET STEP(1, 0), cb%
  669. PSET STEP(1, 0), cb%
  670. PSET STEP(1, 0), cb%
  671. PSET STEP(1, 0), cb%
  672.  
  673. PSET STEP(-4, 1), cb%
  674. PSET STEP(1, 0), cb%
  675. PSET STEP(1, 0), cb%
  676. PSET STEP(1, 0), cb%
  677. PSET STEP(1, 0), cb%
  678.  
  679. PSET STEP(-4, 1), cb%
  680. PSET STEP(1, 0), cb%
  681. PSET STEP(1, 0), cb%
  682. PSET STEP(1, 0), cb%
  683. PSET STEP(1, 0), cb%
  684.  
  685. PSET STEP(-4, 1), cb%
  686. PSET STEP(1, 0), cb%
  687. PSET STEP(1, 0), cb%
  688. PSET STEP(1, 0), cb%
  689. PSET STEP(1, 0), cb%
  690. END SUB
  691.  
  692. SUB m
  693. PSET STEP(3, -4), cf%
  694. PSET STEP(2, 0), cf%
  695.  
  696. PSET STEP(-2, 1), cf%
  697. PSET STEP(1, 0), cf%
  698. PSET STEP(1, 0), cf%
  699.  
  700. PSET STEP(-3, 1), cf%
  701. PSET STEP(2, 0), cf%
  702. PSET STEP(2, 0), cf%
  703.  
  704. PSET STEP(-4, 1), cf%
  705. PSET STEP(4, 0), cf%
  706.  
  707. PSET STEP(-4, 1), cf%
  708. PSET STEP(4, 0), cf%
  709. END SUB
  710.  
  711. SUB minus
  712. PSET STEP(1, -4), cb%
  713. PSET STEP(1, 0), cb%
  714. PSET STEP(1, 0), cb%
  715. PSET STEP(1, 0), cb%
  716. PSET STEP(1, 0), cb%
  717.  
  718. PSET STEP(-4, 1), cb%
  719. PSET STEP(1, 0), cb%
  720. PSET STEP(1, 0), cb%
  721. PSET STEP(1, 0), cb%
  722. PSET STEP(1, 0), cb%
  723.  
  724. PSET STEP(-4, 1), cb%
  725. PSET STEP(1, 0), cf%
  726. PSET STEP(1, 0), cf%
  727. PSET STEP(1, 0), cf%
  728. PSET STEP(1, 0), cf%
  729.  
  730. PSET STEP(-4, 1), cb%
  731. PSET STEP(1, 0), cb%
  732. PSET STEP(1, 0), cb%
  733. PSET STEP(1, 0), cb%
  734. PSET STEP(1, 0), cb%
  735.  
  736. PSET STEP(-4, 1), cb%
  737. PSET STEP(1, 0), cb%
  738. PSET STEP(1, 0), cb%
  739. PSET STEP(1, 0), cb%
  740. PSET STEP(1, 0), cb%
  741. END SUB
  742.  
  743. SUB n
  744. PSET STEP(2, -4), cf%
  745. PSET STEP(3, 0), cf%
  746.  
  747. PSET STEP(-3, 1), cf%
  748. PSET STEP(1, 0), cf%
  749. PSET STEP(2, 0), cf%
  750.  
  751. PSET STEP(-3, 1), cf%
  752. PSET STEP(2, 0), cf%
  753. PSET STEP(1, 0), cf%
  754.  
  755. PSET STEP(-3, 1), cf%
  756. PSET STEP(3, 0), cf%
  757.          
  758. PSET STEP(-3, 1), cf%
  759. PSET STEP(3, 0), cf%
  760. END SUB
  761.  
  762. SUB o
  763. PSET STEP(3, -4), cf%
  764. PSET STEP(1, 0), cf%
  765.  
  766. PSET STEP(-2, 1), cf%
  767. PSET STEP(3, 0), cf%
  768.  
  769. PSET STEP(-3, 1), cf%
  770. PSET STEP(3, 0), cf%
  771.  
  772. PSET STEP(-3, 1), cf%
  773. PSET STEP(3, 0), cf%
  774.  
  775. PSET STEP(-2, 1), cf%
  776. PSET STEP(1, 0), cf%
  777. DRAW "bm+1, 0"
  778. END SUB
  779.  
  780. SUB oe
  781. PSET STEP(2, -4), cf%
  782. PSET STEP(3, 0), cf%
  783.  
  784. PSET STEP(-2, 1), cf%
  785. PSET STEP(1, 0), cf%
  786.  
  787. PSET STEP(-2, 1), cf%
  788. PSET STEP(3, 0), cf%
  789.  
  790. PSET STEP(-3, 1), cf%
  791. PSET STEP(3, 0), cf%
  792.  
  793. PSET STEP(-2, 1), cf%
  794. PSET STEP(1, 0), cf%
  795. DRAW "bm+1, 0"
  796. END SUB
  797.  
  798. SUB p
  799. PSET STEP(3, -4), cf%
  800. PSET STEP(1, 0), cf%
  801.  
  802. PSET STEP(-2, 1), cf%
  803. PSET STEP(3, 0), cf%
  804.  
  805. PSET STEP(-3, 1), cf%
  806. PSET STEP(1, 0), cf%
  807. PSET STEP(1, 0), cf%
  808.  
  809. PSET STEP(-2, 1), cf%
  810.  
  811. PSET STEP(0, 1), cf%
  812. DRAW "bm+3, 0"
  813. END SUB
  814.  
  815. SUB photon (xf%, yf%)
  816. PSET (xf% + 3, yf% - 1), 0
  817. PSET (xf% + 4, yf% - 1), 0
  818. PSET (xf% + 5, yf% - 1), 0
  819. PSET (xf% + 6, yf% - 1), 185 + INT(RND * 3)
  820. PSET (xf% + 7, yf% - 1), 113 + INT(RND * 3)
  821. PSET (xf% + 8, yf% - 1), 41 + INT(RND * 3)
  822. PSET (xf% + 9, yf% - 1), 113 + INT(RND * 3)
  823. PSET (xf% + 1, yf%), 0
  824. PSET (xf% + 2, yf%), 0
  825. PSET (xf% + 3, yf%), 0
  826. PSET (xf% + 4, yf%), 185 + INT(RND * 3)
  827. PSET (xf% + 5, yf%), 113 + INT(RND * 3)
  828. PSET (xf% + 6, yf%), 113 + INT(RND * 3)
  829. PSET (xf% + 7, yf%), 41 + INT(RND * 3)
  830. PSET (xf% + 8, yf%), 41 + INT(RND * 3)
  831. PSET (xf% + 9, yf%), 41 + INT(RND * 3)
  832. PSET (xf% + 10, yf%), 113 + INT(RND * 3)
  833. PSET (xf% + 3, yf% + 1), 0
  834. PSET (xf% + 4, yf% + 1), 0
  835. PSET (xf% + 5, yf% + 1), 0
  836. PSET (xf% + 6, yf% + 1), 185 + INT(RND * 3)
  837. PSET (xf% + 7, yf% + 1), 113 + INT(RND * 3)
  838. PSET (xf% + 8, yf% + 1), 41 + INT(RND * 3)
  839. PSET (xf% + 9, yf% + 1), 113 + INT(RND * 3)
  840. END SUB
  841.  
  842. SUB punkt
  843. PSET STEP(2, 0), cf%
  844. END SUB
  845.  
  846. SUB q
  847. PSET STEP(3, -4), cf%
  848. PSET STEP(1, 0), cf%
  849.  
  850. PSET STEP(-2, 1), cf%
  851. PSET STEP(3, 0), cf%
  852.  
  853. PSET STEP(-3, 1), cf%
  854. PSET STEP(3, 0), cf%
  855.  
  856. PSET STEP(-3, 1), cf%
  857. PSET STEP(2, 0), cf%
  858.  
  859. PSET STEP(-1, 1), cf%
  860. PSET STEP(2, 0), cf%
  861. END SUB
  862.  
  863. SUB r
  864. PSET STEP(3, -4), cf%
  865. PSET STEP(1, 0), cf%
  866.  
  867. PSET STEP(-2, 1), cf%
  868. PSET STEP(3, 0), cf%
  869.  
  870. PSET STEP(-3, 1), cf%
  871. PSET STEP(1, 0), cf%
  872. PSET STEP(1, 0), cf%
  873.  
  874. PSET STEP(-2, 1), cf%
  875. PSET STEP(2, 0), cf%
  876.  
  877. PSET STEP(-2, 1), cf%
  878. PSET STEP(3, 0), cf%
  879. END SUB
  880.  
  881. SUB s
  882. PSET STEP(3, -4), cf%
  883. PSET STEP(1, 0), cf%
  884. PSET STEP(1, 0), cf%
  885.  
  886. PSET STEP(-3, 1), cf%
  887.  
  888. PSET STEP(1, 1), cf%
  889. PSET STEP(1, 0), cf%
  890.  
  891. PSET STEP(1, 1), cf%
  892.  
  893. PSET STEP(-3, 1), cf%
  894. PSET STEP(1, 0), cf%
  895. PSET STEP(1, 0), cf%
  896. DRAW "bm+1, 0"
  897. END SUB
  898.  
  899. SUB ship
  900. PSET (x% + 3, y%), 20
  901. PSET (x% + 4, y%), 22
  902. PSET (x% + 5, y%), 23
  903. PSET (x% + 6, y%), 23
  904. PSET (x% + 7, y%), 21
  905. PSET (x% + 8, y%), 177
  906. PSET (x% + 2, y% + 1), 21
  907. PSET (x% + 3, y% + 1), 23
  908. PSET (x% + 4, y% + 1), 23
  909. PSET (x% + 5, y% + 1), 21
  910. PSET (x% + 6, y% + 1), 21
  911. PSET (x% + 7, y% + 1), 201
  912. PSET (x% + 8, y% + 1), 105
  913. PSET (x% + 9, y% + 1), 105
  914. PSET (x% + 10, y% + 1), 177
  915. PSET (x% + 11, y% + 1), 177
  916. PSET (x% + 1, y% + 2), 21
  917. PSET (x% + 2, y% + 2), 23
  918. PSET (x% + 3, y% + 2), 23
  919. PSET (x% + 4, y% + 2), 22
  920. PSET (x% + 5, y% + 2), 21
  921. PSET (x% + 6, y% + 2), 200
  922. PSET (x% + 7, y% + 2), 105
  923. PSET (x% + 8, y% + 2), 104
  924. PSET (x% + 9, y% + 2), 104
  925. PSET (x% + 10, y% + 2), 104
  926. PSET (x% + 11, y% + 2), 104
  927. PSET (x% + 12, y% + 2), 105
  928. PSET (x% + 13, y% + 2), 177
  929. PSET (x% + 14, y% + 2), 177
  930. PSET (x%, y% + 3), 20
  931. PSET (x% + 1, y% + 3), 23
  932. PSET (x% + 2, y% + 3), 23
  933. PSET (x% + 3, y% + 3), 22
  934. PSET (x% + 4, y% + 3), 21
  935. PSET (x% + 5, y% + 3), 21
  936. PSET (x% + 6, y% + 3), 21
  937. PSET (x% + 7, y% + 3), 200
  938. PSET (x% + 8, y% + 3), 105
  939. PSET (x% + 9, y% + 3), 105
  940. PSET (x% + 10, y% + 3), 200
  941. PSET (x% + 11, y% + 3), 223
  942. PSET (x% + 12, y% + 3), 21
  943. PSET (x% + 13, y% + 3), 21
  944. PSET (x% + 14, y% + 3), 20
  945. PSET (x% + 15, y% + 3), 19
  946. PSET (x% + 16, y% + 3), 18
  947. PSET (x%, y% + 4), 21
  948. PSET (x% + 1, y% + 4), 22
  949. PSET (x% + 2, y% + 4), 21
  950. PSET (x% + 3, y% + 4), 20
  951. PSET (x% + 4, y% + 4), 20
  952. PSET (x% + 5, y% + 4), 20
  953. PSET (x% + 6, y% + 4), 21
  954. PSET (x% + 7, y% + 4), 21
  955. PSET (x% + 8, y% + 4), 21
  956. PSET (x% + 9, y% + 4), 21
  957. PSET (x% + 10, y% + 4), 21
  958. PSET (x% + 11, y% + 4), 21
  959. PSET (x% + 12, y% + 4), 20
  960. PSET (x% + 13, y% + 4), 19
  961. PSET (x% + 14, y% + 4), 19
  962. PSET (x% + 15, y% + 4), 18
  963. PSET (x% + 16, y% + 4), 17
  964. PSET (x% + 1, y% + 5), 18
  965. PSET (x% + 2, y% + 5), 19
  966. PSET (x% + 3, y% + 5), 19
  967. PSET (x% + 4, y% + 5), 19
  968. PSET (x% + 5, y% + 5), 19
  969. PSET (x% + 6, y% + 5), 19
  970. PSET (x% + 7, y% + 5), 20
  971. PSET (x% + 8, y% + 5), 21
  972. PSET (x% + 9, y% + 5), 21
  973. PSET (x% + 10, y% + 5), 20
  974. PSET (x% + 11, y% + 5), 19
  975. PSET (x% + 12, y% + 5), 18
  976. PSET (x% + 13, y% + 5), 17
  977. PSET (x% + 2, y% + 6), 17
  978. PSET (x% + 3, y% + 6), 18
  979. PSET (x% + 4, y% + 6), 18
  980. PSET (x% + 5, y% + 6), 18
  981. PSET (x% + 6, y% + 6), 18
  982. PSET (x% + 7, y% + 6), 18
  983. PSET (x% + 8, y% + 6), 21
  984. PSET (x% + 9, y% + 6), 22
  985. PSET (x% + 10, y% + 6), 23
  986. PSET (x% + 11, y% + 6), 23
  987. PSET (x% + 12, y% + 6), 23
  988. PSET (x% + 13, y% + 6), 23
  989. PSET (x% + 14, y% + 6), 22
  990. PSET (x% + 15, y% + 6), 23
  991. PSET (x% + 16, y% + 6), 117
  992. PSET (x% + 17, y% + 6), 189
  993. PSET (x% + 6, y% + 7), 23
  994. PSET (x% + 8, y% + 7), 24
  995. PSET (x% + 10, y% + 7), 24
  996. PSET (x% + 12, y% + 7), 25
  997. PSET (x% + 13, y% + 7), 24
  998. PSET (x% + 14, y% + 7), 24
  999. PSET (x% + 15, y% + 7), 144
  1000. PSET (x% + 16, y% + 7), 44 + INT(RND * -4)
  1001. PSET (x% + 17, y% + 7), 43 + INT(RND * -4)
  1002. PSET (x% + 18, y% + 7), 117
  1003. PSET (x% + 19, y% + 7), 189
  1004. PSET (x% + 7, y% + 8), 19
  1005. PSET (x% + 8, y% + 8), 20
  1006. PSET (x% + 9, y% + 8), 20
  1007. PSET (x% + 10, y% + 8), 21
  1008. PSET (x% + 11, y% + 8), 21
  1009. PSET (x% + 12, y% + 8), 21
  1010. PSET (x% + 13, y% + 8), 21
  1011. PSET (x% + 14, y% + 8), 21
  1012. PSET (x% + 15, y% + 8), 22
  1013. PSET (x% + 16, y% + 8), 117
  1014. PSET (x% + 17, y% + 8), 189
  1015.  
  1016. kstn% = kstn% + 1
  1017. SELECT CASE kstn%
  1018. CASE 1
  1019. PSET (x% + 4, y% + 7), 6
  1020. PSET (x% + 5, y% + 7), 5
  1021. PSET (x% + 7, y% + 7), 4
  1022. PSET (x% + 9, y% + 7), 3
  1023. PSET (x% + 11, y% + 7), 2
  1024. CASE 2
  1025. PSET (x% + 4, y% + 7), 5
  1026. PSET (x% + 5, y% + 7), 4
  1027. PSET (x% + 7, y% + 7), 3
  1028. PSET (x% + 9, y% + 7), 2
  1029. PSET (x% + 11, y% + 7), 6
  1030. CASE 3
  1031. PSET (x% + 4, y% + 7), 4
  1032. PSET (x% + 5, y% + 7), 3
  1033. PSET (x% + 7, y% + 7), 2
  1034. PSET (x% + 9, y% + 7), 6
  1035. PSET (x% + 11, y% + 7), 5
  1036. CASE 4
  1037. PSET (x% + 4, y% + 7), 3
  1038. PSET (x% + 5, y% + 7), 2
  1039. PSET (x% + 7, y% + 7), 6
  1040. PSET (x% + 9, y% + 7), 5
  1041. PSET (x% + 11, y% + 7), 4
  1042. CASE 5
  1043. PSET (x% + 4, y% + 7), 2
  1044. PSET (x% + 5, y% + 7), 6
  1045. PSET (x% + 7, y% + 7), 5
  1046. PSET (x% + 9, y% + 7), 4
  1047. PSET (x% + 11, y% + 7), 3
  1048. kstn% = 0
  1049. END SELECT
  1050. END SUB
  1051.  
  1052. SUB bounce
  1053. IF x% > 300 THEN x% = 300
  1054. IF x% < 0 THEN x% = 0
  1055. IF y% > 180 THEN y% = 180
  1056. IF y% < 0 THEN y% = 0
  1057. END SUB
  1058.  
  1059. SUB srnd
  1060. 'IF snp% = 0 THEN snd% = 0 ELSE PLAY "l64"
  1061. SELECT CASE snd%
  1062.  
  1063. CASE 0
  1064. ' PLAY "p64"
  1065.  
  1066. CASE 1      'Explosion
  1067. ' PLAY "n15"
  1068.  snd% = 2
  1069. CASE 2
  1070. ' PLAY "n25"
  1071.  snd% = 3
  1072. CASE 3
  1073. ' PLAY "n10"
  1074.  snd% = 4
  1075. CASE 4
  1076. ' PLAY "n20"
  1077.  snd% = 5
  1078. CASE 5
  1079. ' PLAY "n16"
  1080.  snd% = 6
  1081. CASE 6
  1082. ' PLAY "n12"
  1083.  snd% = 7
  1084. CASE 7
  1085. ' PLAY "n29"
  1086.  snd% = 8
  1087. CASE 8
  1088. ' PLAY "n17"
  1089.  snd% = 9
  1090. CASE 9
  1091. ' PLAY "n20"
  1092.  snd% = 0
  1093.  
  1094. CASE 10     'Torpedos
  1095. ' PLAY "n20"
  1096.  snd% = 11
  1097. CASE 11
  1098. ' PLAY "n22"
  1099.  snd% = 12
  1100. CASE 12
  1101. ' PLAY "n24"
  1102.  snd% = 13
  1103. CASE 13
  1104. ' PLAY "n26"
  1105.  snd% = 14
  1106. CASE 14
  1107. ' PLAY "n28"
  1108.  snd% = 15
  1109. CASE 15
  1110. ' PLAY "n30"
  1111.  snd% = 0
  1112.  
  1113. CASE 17     'Phaser
  1114. ' PLAY "n32"
  1115.  snd% = 18
  1116. CASE 18
  1117. ' PLAY "n31"
  1118.  snd% = 19
  1119. CASE 19
  1120. ' PLAY "n32"
  1121.  snd% = 0
  1122.  
  1123. CASE 21     'Plasma
  1124. ' PLAY "n28"
  1125.  snd% = 22
  1126. CASE 22
  1127. ' PLAY "n27"
  1128.  snd% = 23
  1129. CASE 23
  1130. ' PLAY "n26"
  1131.  snd% = 24
  1132. CASE 24
  1133. ' PLAY "n24"
  1134.  snd% = 25
  1135. CASE 25
  1136. ' PLAY "n22"
  1137.  snd% = 26
  1138. CASE 26
  1139. ' PLAY "n20"
  1140.  snd% = 0
  1141.  
  1142. END SELECT
  1143. END SUB
  1144.  
  1145. SUB stars
  1146. PSET (226, 9), 23
  1147. PSET (245, 10), 25
  1148. PSET (4, 152), 29
  1149. PSET (207, 52), 21
  1150. PSET (149, 59), 26
  1151. PSET (92, 60), 28
  1152. PSET (303, 72), 24
  1153. PSET (225, 106), 25
  1154. PSET (276, 158), 22
  1155. PSET (307, 174), 17
  1156. PSET (265, 164), 25
  1157. PSET (315, 182), 20
  1158. PSET (222, 36), 20
  1159. PSET (170, 21), 31
  1160. PSET (216, 3), 25
  1161. PSET (32, 20), 28
  1162. PSET (91, 9), 21
  1163. PSET (122, 60), 31
  1164. PSET (313, 80), 21
  1165. PSET (51, 32), 26
  1166. PSET (131, 82), 27
  1167. PSET (104, 126), 20
  1168. PSET (59, 116), 18
  1169. PSET (146, 181), 20
  1170. PSET (251, 75), 21
  1171. PSET (294, 126), 26
  1172. PSET (137, 19), 25
  1173. PSET (222, 182), 29
  1174. PSET (7, 108), 30
  1175. PSET (137, 135), 24
  1176. PSET (164, 92), 22
  1177. PSET (129, 53), 17
  1178. PSET (78, 145), 17
  1179. PSET (124, 72), 24
  1180. PSET (49, 94), 20
  1181. PSET (201, 108), 19
  1182. PSET (300, 130), 24
  1183. PSET (124, 21), 28
  1184. PSET (147, 150), 25
  1185. PSET (266, 3), 20
  1186. PSET (23, 21), 21
  1187. PSET (41, 0), 25
  1188. PSET (210, 108), 29
  1189. PSET (26, 38), 27
  1190. PSET (145, 71), 19
  1191. PSET (225, 185), 24
  1192. PSET (28, 151), 23
  1193. PSET (147, 98), 20
  1194. PSET (105, 19), 25
  1195. PSET (54, 185), 18
  1196. PSET (142, 54), 30
  1197. PSET (240, 54), 27
  1198. PSET (82, 17), 17
  1199. PSET (103, 158), 21
  1200. PSET (75, 96), 20
  1201. PSET (108, 8), 24
  1202. PSET (65, 172), 25
  1203. PSET (241, 185), 21
  1204. PSET (173, 16), 26
  1205. PSET (131, 122), 18
  1206. PSET (295, 124), 22
  1207. PSET (47, 95), 20
  1208. PSET (317, 26), 17
  1209. PSET (110, 109), 30
  1210. PSET (172, 81), 29
  1211. PSET (264, 134), 27
  1212. PSET (318, 67), 24
  1213. PSET (132, 139), 19
  1214. PSET (135, 108), 29
  1215. PSET (173, 85), 24
  1216. PSET (72, 123), 24
  1217. PSET (217, 177), 22
  1218. PSET (96, 58), 19
  1219. PSET (169, 44), 25
  1220. PSET (116, 175), 24
  1221. PSET (61, 136), 28
  1222. PSET (196, 156), 19
  1223. PSET (258, 40), 31
  1224. PSET (21, 12), 28
  1225. PSET (121, 92), 18
  1226. PSET (36, 34), 17
  1227. PSET (228, 106), 25
  1228. PSET (69, 93), 28
  1229. PSET (240, 79), 30
  1230. PSET (238, 17), 26
  1231. PSET (228, 3), 23
  1232. PSET (128, 55), 31
  1233. PSET (256, 139), 23
  1234. PSET (235, 55), 22
  1235. PSET (138, 188), 18
  1236. PSET (206, 69), 18
  1237. PSET (59, 15), 23
  1238. PSET (306, 108), 24
  1239. PSET (311, 43), 22
  1240. PSET (126, 56), 24
  1241. PSET (44, 103), 31
  1242. PSET (178, 181), 26
  1243. PSET (141, 138), 17
  1244. PSET (241, 140), 24
  1245. PSET (49, 44), 21
  1246. PSET (251, 10), 24
  1247. PSET (242, 160), 21
  1248. PSET (311, 160), 27
  1249. PSET (289, 175), 23
  1250. PSET (39, 120), 28
  1251. PSET (222, 80), 17
  1252. PSET (53, 32), 24
  1253. PSET (129, 21), 21
  1254. PSET (205, 169), 24
  1255. PSET (60, 179), 22
  1256. PSET (103, 154), 20
  1257. PSET (143, 47), 30
  1258. PSET (195, 74), 22
  1259. PSET (275, 117), 30
  1260. PSET (165, 66), 30
  1261. PSET (82, 51), 19
  1262. PSET (111, 0), 28
  1263. PSET (269, 55), 27
  1264. PSET (129, 162), 28
  1265. PSET (140, 15), 23
  1266. PSET (108, 142), 21
  1267. PSET (255, 30), 25
  1268. PSET (305, 48), 31
  1269. PSET (36, 96), 26
  1270. PSET (191, 180), 25
  1271. PSET (78, 172), 18
  1272. PSET (140, 151), 20
  1273. PSET (121, 79), 24
  1274. PSET (86, 116), 20
  1275. PSET (25, 179), 18
  1276. PSET (208, 180), 20
  1277. PSET (303, 169), 23
  1278. PSET (157, 153), 29
  1279. PSET (122, 39), 21
  1280. PSET (132, 30), 26
  1281. PSET (31, 41), 27
  1282. PSET (161, 36), 31
  1283. PSET (150, 0), 23
  1284. PSET (92, 150), 30
  1285. PSET (263, 35), 18
  1286. PSET (3, 30), 22
  1287. PSET (60, 125), 30
  1288. PSET (186, 145), 19
  1289. PSET (82, 5), 29
  1290. PSET (250, 158), 21
  1291. PSET (144, 111), 29
  1292. PSET (180, 40), 20
  1293. PSET (116, 114), 22
  1294. PSET (169, 85), 25
  1295. PSET (16, 109), 20
  1296. PSET (308, 186), 31
  1297. PSET (268, 81), 29
  1298. PSET (316, 51), 19
  1299. PSET (222, 3), 22
  1300. PSET (221, 22), 18
  1301. PSET (92, 79), 25
  1302. PSET (99, 59), 29
  1303. PSET (99, 75), 23
  1304. PSET (269, 81), 27
  1305. PSET (210, 81), 31
  1306. PSET (206, 103), 20
  1307. PSET (186, 149), 23
  1308. PSET (289, 56), 27
  1309. PSET (284, 56), 22
  1310. PSET (4, 58), 31
  1311. PSET (243, 116), 26
  1312. PSET (85, 101), 28
  1313. PSET (274, 18), 25
  1314. PSET (132, 14), 23
  1315. PSET (223, 99), 23
  1316. PSET (302, 16), 25
  1317. PSET (170, 123), 18
  1318. PSET (59, 56), 17
  1319. PSET (48, 84), 25
  1320. PSET (178, 156), 17
  1321. PSET (129, 11), 21
  1322. PSET (192, 103), 25
  1323. PSET (105, 181), 28
  1324. PSET (184, 86), 27
  1325. PSET (52, 11), 20
  1326. PSET (242, 100), 22
  1327. PSET (218, 158), 17
  1328. PSET (254, 96), 20
  1329. PSET (192, 181), 31
  1330. PSET (209, 2), 26
  1331. PSET (308, 1), 31
  1332. PSET (23, 58), 25
  1333. PSET (258, 8), 17
  1334. PSET (180, 62), 23
  1335. PSET (163, 146), 23
  1336. PSET (103, 14), 23
  1337. PSET (183, 152), 25
  1338. PSET (208, 161), 23
  1339. PSET (255, 144), 27
  1340. PSET (233, 38), 28
  1341. PSET (22, 49), 31
  1342. PSET (262, 43), 19
  1343. PSET (75, 185), 20
  1344. PSET (81, 142), 26
  1345. PSET (247, 151), 21
  1346. PSET (263, 143), 30
  1347. END SUB
  1348.  
  1349. SUB sz
  1350. PSET STEP(3, -4), cf%
  1351. PSET STEP(1, 0), cf%
  1352.  
  1353. PSET STEP(-2, 1), cf%
  1354. PSET STEP(3, 0), cf%
  1355.  
  1356. PSET STEP(-3, 1), cf%
  1357. PSET STEP(2, 0), cf%
  1358.  
  1359. PSET STEP(-2, 1), cf%
  1360. PSET STEP(3, 0), cf%
  1361.  
  1362. PSET STEP(-3, 1), cf%
  1363. PSET STEP(2, 0), cf%
  1364. DRAW "bm+1, 0"
  1365. END SUB
  1366.  
  1367. SUB t
  1368. PSET STEP(2, -4), cf%
  1369. PSET STEP(1, 0), cf%
  1370. PSET STEP(1, 0), cf%
  1371. PSET STEP(1, 0), cf%
  1372.  
  1373. PSET STEP(-2, 1), cf%
  1374.  
  1375. PSET STEP(0, 1), cf%
  1376.  
  1377. PSET STEP(0, 1), cf%
  1378.  
  1379. PSET STEP(0, 1), cf%
  1380. DRAW "bm+2, 0"
  1381. END SUB
  1382.  
  1383. SUB u
  1384. PSET STEP(2, -4), cf%
  1385. PSET STEP(3, 0), cf%
  1386.  
  1387. PSET STEP(-3, 1), cf%
  1388. PSET STEP(3, 0), cf%
  1389.  
  1390. PSET STEP(-3, 1), cf%
  1391. PSET STEP(3, 0), cf%
  1392.  
  1393. PSET STEP(-3, 1), cf%
  1394. PSET STEP(3, 0), cf%
  1395.  
  1396. PSET STEP(-2, 1), cf%
  1397. PSET STEP(1, 0), cf%
  1398. DRAW "bm+1, 0"
  1399. END SUB
  1400.  
  1401. SUB ue
  1402. PSET STEP(2, -4), cf%
  1403. PSET STEP(3, 0), cf%
  1404.  
  1405. PSET STEP(-3, 2), cf%
  1406. PSET STEP(3, 0), cf%
  1407.  
  1408. PSET STEP(-3, 1), cf%
  1409. PSET STEP(3, 0), cf%
  1410.  
  1411. PSET STEP(-2, 1), cf%
  1412. PSET STEP(1, 0), cf%
  1413. DRAW "bm+1, 0"
  1414. END SUB
  1415.  
  1416. SUB v
  1417. PSET STEP(2, -4), cf%
  1418. PSET STEP(3, 0), cf%
  1419.  
  1420. PSET STEP(-3, 1), cf%
  1421. PSET STEP(3, 0), cf%
  1422.  
  1423. PSET STEP(-3, 1), cf%
  1424. PSET STEP(3, 0), cf%
  1425.  
  1426. PSET STEP(-3, 1), cf%
  1427. PSET STEP(2, 0), cf%
  1428.  
  1429. PSET STEP(-1, 1), cf%
  1430. DRAW "bm+2, 0"
  1431. END SUB
  1432.  
  1433. SUB w
  1434. PSET STEP(2, -4), cf%
  1435. PSET STEP(4, 0), cf%
  1436.  
  1437. PSET STEP(-4, 1), cf%
  1438. PSET STEP(2, 0), cf%
  1439. PSET STEP(2, 0), cf%
  1440.  
  1441. PSET STEP(-4, 1), cf%
  1442. PSET STEP(2, 0), cf%
  1443. PSET STEP(2, 0), cf%
  1444.  
  1445. PSET STEP(-4, 1), cf%
  1446. PSET STEP(2, 0), cf%
  1447. PSET STEP(2, 0), cf%
  1448.  
  1449. PSET STEP(-3, 1), cf%
  1450. PSET STEP(2, 0), cf%
  1451. DRAW "bm+1, 0"
  1452. END SUB
  1453.  
  1454. SUB xxf1
  1455. PSET (ex% + 8, ey% + 0), 178
  1456. PSET (ex% + 9, ey% + 0), 130
  1457. PSET (ex% + 10, ey% + 0), 23
  1458. PSET (ex% + 11, ey% + 0), 24
  1459. PSET (ex% + 12, ey% + 0), 24
  1460. PSET (ex% + 13, ey% + 0), 24
  1461. PSET (ex% + 14, ey% + 0), 24
  1462. PSET (ex% + 15, ey% + 0), 25
  1463. PSET (ex% + 16, ey% + 0), 25
  1464. PSET (ex% + 17, ey% + 0), 24
  1465. PSET (ex% + 18, ey% + 0), 21
  1466. PSET (ex% + 19, ey% + 0), 19
  1467. PSET (ex% + 5, ey% + 1), 178
  1468. PSET (ex% + 6, ey% + 1), 106
  1469. PSET (ex% + 7, ey% + 1), 106
  1470. PSET (ex% + 8, ey% + 1), 106
  1471. PSET (ex% + 9, ey% + 1), 130
  1472. PSET (ex% + 10, ey% + 1), 154
  1473. PSET (ex% + 11, ey% + 1), 26
  1474. PSET (ex% + 12, ey% + 1), 26
  1475. PSET (ex% + 13, ey% + 1), 42
  1476. PSET (ex% + 14, ey% + 1), 43
  1477. PSET (ex% + 15, ey% + 1), 44
  1478. PSET (ex% + 16, ey% + 1), 43
  1479. PSET (ex% + 17, ey% + 1), 44
  1480. PSET (ex% + 18, ey% + 1), 42
  1481. PSET (ex% + 19, ey% + 1), 19
  1482. PSET (ex% + 20, ey% + 1), 19
  1483. PSET (ex% + 2, ey% + 2), 178
  1484. PSET (ex% + 3, ey% + 2), 106
  1485. PSET (ex% + 4, ey% + 2), 106
  1486. PSET (ex% + 5, ey% + 2), 106
  1487. PSET (ex% + 6, ey% + 2), 130
  1488. PSET (ex% + 7, ey% + 2), 154
  1489. PSET (ex% + 8, ey% + 2), 25
  1490. PSET (ex% + 9, ey% + 2), 25
  1491. PSET (ex% + 10, ey% + 2), 25
  1492. PSET (ex% + 11, ey% + 2), 23
  1493. PSET (ex% + 12, ey% + 2), 21
  1494. PSET (ex% + 13, ey% + 2), 21
  1495. PSET (ex% + 14, ey% + 2), 22
  1496. PSET (ex% + 15, ey% + 2), 43
  1497. PSET (ex% + 16, ey% + 2), 44
  1498. PSET (ex% + 17, ey% + 2), 44
  1499. PSET (ex% + 18, ey% + 2), 43
  1500. PSET (ex% + 19, ey% + 2), 42
  1501. PSET (ex% + 20, ey% + 2), 23
  1502. PSET (ex% + 21, ey% + 2), 21
  1503. PSET (ex% + 0, ey% + 3), 21
  1504. PSET (ex% + 1, ey% + 3), 22
  1505. PSET (ex% + 2, ey% + 3), 23
  1506. PSET (ex% + 3, ey% + 3), 23
  1507. PSET (ex% + 4, ey% + 3), 24
  1508. PSET (ex% + 5, ey% + 3), 24
  1509. PSET (ex% + 6, ey% + 3), 24
  1510. PSET (ex% + 7, ey% + 3), 24
  1511. PSET (ex% + 8, ey% + 3), 24
  1512. PSET (ex% + 9, ey% + 3), 21
  1513. PSET (ex% + 10, ey% + 3), 21
  1514. PSET (ex% + 11, ey% + 3), 20
  1515. PSET (ex% + 12, ey% + 3), 20
  1516. PSET (ex% + 14, ey% + 3), 24
  1517. PSET (ex% + 15, ey% + 3), 25
  1518. PSET (ex% + 16, ey% + 3), 25
  1519. PSET (ex% + 17, ey% + 3), 43
  1520. PSET (ex% + 18, ey% + 3), 24
  1521. PSET (ex% + 19, ey% + 3), 20
  1522. PSET (ex% + 20, ey% + 3), 19
  1523. PSET (ex% + 21, ey% + 3), 19
  1524. PSET (ex% + 3, ey% + 4), 20
  1525. PSET (ex% + 4, ey% + 4), 22
  1526. PSET (ex% + 5, ey% + 4), 22
  1527. PSET (ex% + 6, ey% + 4), 20
  1528. PSET (ex% + 7, ey% + 4), 19
  1529. PSET (ex% + 13, ey% + 4), 24
  1530. PSET (ex% + 14, ey% + 4), 25
  1531. PSET (ex% + 15, ey% + 4), 25
  1532. PSET (ex% + 16, ey% + 4), 25
  1533. PSET (ex% + 17, ey% + 4), 21
  1534. PSET (ex% + 18, ey% + 4), 20
  1535. PSET (ex% + 19, ey% + 4), 20
  1536. PSET (ex% + 20, ey% + 4), 19
  1537. PSET (ex% + 9, ey% + 5), 22
  1538. PSET (ex% + 10, ey% + 5), 24
  1539. PSET (ex% + 11, ey% + 5), 25
  1540. PSET (ex% + 12, ey% + 5), 25
  1541. PSET (ex% + 13, ey% + 5), 25
  1542. PSET (ex% + 14, ey% + 5), 25
  1543. PSET (ex% + 15, ey% + 5), 24
  1544. PSET (ex% + 16, ey% + 5), 20
  1545. PSET (ex% + 17, ey% + 5), 20
  1546. PSET (ex% + 18, ey% + 5), 19
  1547. PSET (ex% + 8, ey% + 6), 42
  1548. PSET (ex% + 9, ey% + 6), 41
  1549. PSET (ex% + 10, ey% + 6), 42
  1550. PSET (ex% + 11, ey% + 6), 43
  1551. PSET (ex% + 12, ey% + 6), 44
  1552. PSET (ex% + 13, ey% + 6), 25
  1553. PSET (ex% + 14, ey% + 6), 20
  1554. PSET (ex% + 15, ey% + 6), 19
  1555. PSET (ex% + 16, ey% + 6), 19
  1556. PSET (ex% + 9, ey% + 7), 20
  1557. PSET (ex% + 10, ey% + 7), 21
  1558. PSET (ex% + 11, ey% + 7), 22
  1559. PSET (ex% + 12, ey% + 7), 22
  1560. PSET (ex% + 13, ey% + 7), 20
  1561. PSET (ex% + 14, ey% + 7), 19
  1562. END SUB
  1563.  
  1564. SUB xxf10
  1565. PSET (ex% + 15, ey% + -1), 40
  1566. PSET (ex% + 16, ey% + -1), 41
  1567. PSET (ex% + 13, ey% + 0), 41
  1568. PSET (ex% + 14, ey% + 0), 40
  1569. PSET (ex% + 15, ey% + 0), 42
  1570. PSET (ex% + 16, ey% + 0), 40
  1571. PSET (ex% + 17, ey% + 0), 40
  1572. PSET (ex% + 8, ey% + 1), 40
  1573. PSET (ex% + 14, ey% + 1), 40
  1574. PSET (ex% + 16, ey% + 3), 40
  1575. PSET (ex% + 19, ey% + 3), 41
  1576. PSET (ex% + 21, ey% + 3), 40
  1577. PSET (ex% + 8, ey% + 4), 40
  1578. PSET (ex% + 13, ey% + 4), 42
  1579. PSET (ex% + 14, ey% + 4), 40
  1580. PSET (ex% + 20, ey% + 4), 41
  1581. PSET (ex% + 11, ey% + 5), 41
  1582. PSET (ex% + 9, ey% + 6), 41
  1583. PSET (ex% + 15, ey% + 6), 42
  1584. PSET (ex% + 19, ey% + 6), 42
  1585. PSET (ex% + 12, ey% + 7), 41
  1586. PSET (ex% + 14, ey% + 7), 41
  1587. PSET (ex% + 15, ey% + 7), 42
  1588. PSET (ex% + 16, ey% + 7), 41
  1589. PSET (ex% + 17, ey% + 7), 42
  1590. PSET (ex% + 11, ey% + 8), 41
  1591. PSET (ex% + 13, ey% + 8), 42
  1592. PSET (ex% + 14, ey% + 8), 41
  1593. PSET (ex% + 15, ey% + 8), 41
  1594. PSET (ex% + 11, ey% + 9), 40
  1595. PSET (ex% + 12, ey% + 9), 41
  1596. PSET (ex% + 13, ey% + 9), 41
  1597. PSET (ex% + 14, ey% + 9), 40
  1598. PSET (ex% + 12, ey% + 10), 40
  1599. END SUB
  1600.  
  1601. SUB xxf11
  1602. PSET (ex% + 13, ey% + 0), 41
  1603. PSET (ex% + 16, ey% + 0), 40
  1604. PSET (ex% + 14, ey% + 1), 40
  1605. PSET (ex% + 21, ey% + 3), 43
  1606. PSET (ex% + 14, ey% + 4), 40
  1607. PSET (ex% + 15, ey% + 6), 42
  1608. PSET (ex% + 12, ey% + 7), 41
  1609. PSET (ex% + 13, ey% + 8), 41
  1610. PSET (ex% + 14, ey% + 8), 43
  1611. PSET (ex% + 15, ey% + 8), 41
  1612. PSET (ex% + 11, ey% + 9), 42
  1613. PSET (ex% + 13, ey% + 9), 43
  1614. PSET (ex% + 12, ey% + 10), 40
  1615. END SUB
  1616.  
  1617. SUB xxf12
  1618. PSET (ex% + 14, ey% + 8), 40
  1619. PSET (ex% + 11, ey% + 9), 41
  1620. PSET (ex% + 13, ey% + 9), 42
  1621. PSET (ex% + 14, ey% + 10), 40
  1622. END SUB
  1623.  
  1624. SUB xxf2
  1625. PSET (ex% + 16, ey% + -1), 41
  1626. PSET (ex% + 8, ey% + 0), 178
  1627. PSET (ex% + 9, ey% + 0), 130
  1628. PSET (ex% + 10, ey% + 0), 23
  1629. PSET (ex% + 11, ey% + 0), 24
  1630. PSET (ex% + 12, ey% + 0), 42
  1631. PSET (ex% + 13, ey% + 0), 24
  1632. PSET (ex% + 14, ey% + 0), 24
  1633. PSET (ex% + 15, ey% + 0), 42
  1634. PSET (ex% + 16, ey% + 0), 42
  1635. PSET (ex% + 17, ey% + 0), 41
  1636. PSET (ex% + 18, ey% + 0), 21
  1637. PSET (ex% + 19, ey% + 0), 19
  1638. PSET (ex% + 5, ey% + 1), 178
  1639. PSET (ex% + 6, ey% + 1), 106
  1640. PSET (ex% + 7, ey% + 1), 106
  1641. PSET (ex% + 8, ey% + 1), 106
  1642. PSET (ex% + 9, ey% + 1), 130
  1643. PSET (ex% + 10, ey% + 1), 154
  1644. PSET (ex% + 11, ey% + 1), 42
  1645. PSET (ex% + 12, ey% + 1), 43
  1646. PSET (ex% + 13, ey% + 1), 43
  1647. PSET (ex% + 14, ey% + 1), 42
  1648. PSET (ex% + 15, ey% + 1), 43
  1649. PSET (ex% + 16, ey% + 1), 43
  1650. PSET (ex% + 17, ey% + 1), 44
  1651. PSET (ex% + 18, ey% + 1), 42
  1652. PSET (ex% + 19, ey% + 1), 19
  1653. PSET (ex% + 20, ey% + 1), 19
  1654. PSET (ex% + 2, ey% + 2), 178
  1655. PSET (ex% + 3, ey% + 2), 106
  1656. PSET (ex% + 4, ey% + 2), 106
  1657. PSET (ex% + 5, ey% + 2), 106
  1658. PSET (ex% + 6, ey% + 2), 130
  1659. PSET (ex% + 7, ey% + 2), 154
  1660. PSET (ex% + 8, ey% + 2), 25
  1661. PSET (ex% + 9, ey% + 2), 25
  1662. PSET (ex% + 10, ey% + 2), 25
  1663. PSET (ex% + 11, ey% + 2), 23
  1664. PSET (ex% + 12, ey% + 2), 42
  1665. PSET (ex% + 13, ey% + 2), 21
  1666. PSET (ex% + 14, ey% + 2), 44
  1667. PSET (ex% + 15, ey% + 2), 43
  1668. PSET (ex% + 16, ey% + 2), 44
  1669. PSET (ex% + 17, ey% + 2), 44
  1670. PSET (ex% + 18, ey% + 2), 43
  1671. PSET (ex% + 19, ey% + 2), 42
  1672. PSET (ex% + 20, ey% + 2), 23
  1673. PSET (ex% + 21, ey% + 2), 21
  1674. PSET (ex% + 0, ey% + 3), 21
  1675. PSET (ex% + 1, ey% + 3), 22
  1676. PSET (ex% + 2, ey% + 3), 23
  1677. PSET (ex% + 3, ey% + 3), 23
  1678. PSET (ex% + 4, ey% + 3), 24
  1679. PSET (ex% + 5, ey% + 3), 24
  1680. PSET (ex% + 6, ey% + 3), 24
  1681. PSET (ex% + 7, ey% + 3), 24
  1682. PSET (ex% + 8, ey% + 3), 24
  1683. PSET (ex% + 9, ey% + 3), 21
  1684. PSET (ex% + 10, ey% + 3), 21
  1685. PSET (ex% + 11, ey% + 3), 20
  1686. PSET (ex% + 12, ey% + 3), 20
  1687. PSET (ex% + 14, ey% + 3), 24
  1688. PSET (ex% + 15, ey% + 3), 25
  1689. PSET (ex% + 16, ey% + 3), 44
  1690. PSET (ex% + 17, ey% + 3), 43
  1691. PSET (ex% + 18, ey% + 3), 42
  1692. PSET (ex% + 19, ey% + 3), 20
  1693. PSET (ex% + 20, ey% + 3), 19
  1694. PSET (ex% + 21, ey% + 3), 19
  1695. PSET (ex% + 3, ey% + 4), 20
  1696. PSET (ex% + 4, ey% + 4), 22
  1697. PSET (ex% + 5, ey% + 4), 22
  1698. PSET (ex% + 6, ey% + 4), 20
  1699. PSET (ex% + 7, ey% + 4), 19
  1700. PSET (ex% + 13, ey% + 4), 42
  1701. PSET (ex% + 14, ey% + 4), 43
  1702. PSET (ex% + 15, ey% + 4), 44
  1703. PSET (ex% + 16, ey% + 4), 43
  1704. PSET (ex% + 17, ey% + 4), 42
  1705. PSET (ex% + 18, ey% + 4), 20
  1706. PSET (ex% + 19, ey% + 4), 20
  1707. PSET (ex% + 20, ey% + 4), 19
  1708. PSET (ex% + 9, ey% + 5), 19
  1709. PSET (ex% + 10, ey% + 5), 21
  1710. PSET (ex% + 11, ey% + 5), 22
  1711. PSET (ex% + 12, ey% + 5), 24
  1712. PSET (ex% + 13, ey% + 5), 25
  1713. PSET (ex% + 14, ey% + 5), 25
  1714. PSET (ex% + 15, ey% + 5), 43
  1715. PSET (ex% + 16, ey% + 5), 20
  1716. PSET (ex% + 17, ey% + 5), 20
  1717. PSET (ex% + 18, ey% + 5), 19
  1718. PSET (ex% + 8, ey% + 6), 19
  1719. PSET (ex% + 9, ey% + 6), 19
  1720. PSET (ex% + 10, ey% + 6), 42
  1721. PSET (ex% + 11, ey% + 6), 44
  1722. PSET (ex% + 12, ey% + 6), 43
  1723. PSET (ex% + 13, ey% + 6), 24
  1724. PSET (ex% + 14, ey% + 6), 20
  1725. PSET (ex% + 15, ey% + 6), 19
  1726. PSET (ex% + 16, ey% + 6), 19
  1727. PSET (ex% + 8, ey% + 7), 41
  1728. PSET (ex% + 9, ey% + 7), 42
  1729. PSET (ex% + 10, ey% + 7), 44
  1730. PSET (ex% + 11, ey% + 7), 26
  1731. PSET (ex% + 12, ey% + 7), 23
  1732. PSET (ex% + 13, ey% + 7), 21
  1733. PSET (ex% + 14, ey% + 7), 19
  1734. PSET (ex% + 8, ey% + 8), 19
  1735. PSET (ex% + 9, ey% + 8), 22
  1736. PSET (ex% + 10, ey% + 8), 24
  1737. PSET (ex% + 11, ey% + 8), 22
  1738. END SUB
  1739.  
  1740. SUB xxf3
  1741. PSET (ex% + 18, ey% + -3), 41
  1742. PSET (ex% + 11, ey% + -2), 41
  1743. PSET (ex% + 13, ey% + -2), 41
  1744. PSET (ex% + 16, ey% + -2), 42
  1745. PSET (ex% + 17, ey% + -2), 44
  1746. PSET (ex% + 18, ey% + -2), 43
  1747. PSET (ex% + 19, ey% + -2), 42
  1748. PSET (ex% + 10, ey% + -1), 41
  1749. PSET (ex% + 11, ey% + -1), 42
  1750. PSET (ex% + 12, ey% + -1), 43
  1751. PSET (ex% + 15, ey% + -1), 42
  1752. PSET (ex% + 16, ey% + -1), 44
  1753. PSET (ex% + 17, ey% + -1), 43
  1754. PSET (ex% + 18, ey% + -1), 44
  1755. PSET (ex% + 21, ey% + -1), 41
  1756. PSET (ex% + 8, ey% + 0), 178
  1757. PSET (ex% + 9, ey% + 0), 41
  1758. PSET (ex% + 10, ey% + 0), 42
  1759. PSET (ex% + 11, ey% + 0), 43
  1760. PSET (ex% + 12, ey% + 0), 43
  1761. PSET (ex% + 13, ey% + 0), 42
  1762. PSET (ex% + 14, ey% + 0), 24
  1763. PSET (ex% + 15, ey% + 0), 42
  1764. PSET (ex% + 16, ey% + 0), 44
  1765. PSET (ex% + 17, ey% + 0), 43
  1766. PSET (ex% + 18, ey% + 0), 43
  1767. PSET (ex% + 19, ey% + 0), 42
  1768. PSET (ex% + 20, ey% + 0), 42
  1769. PSET (ex% + 21, ey% + 0), 44
  1770. PSET (ex% + 22, ey% + 0), 43
  1771. PSET (ex% + 23, ey% + 0), 42
  1772. PSET (ex% + 5, ey% + 1), 42
  1773. PSET (ex% + 6, ey% + 1), 43
  1774. PSET (ex% + 7, ey% + 1), 106
  1775. PSET (ex% + 8, ey% + 1), 106
  1776. PSET (ex% + 9, ey% + 1), 130
  1777. PSET (ex% + 10, ey% + 1), 43
  1778. PSET (ex% + 11, ey% + 1), 42
  1779. PSET (ex% + 12, ey% + 1), 44
  1780. PSET (ex% + 13, ey% + 1), 43
  1781. PSET (ex% + 14, ey% + 1), 44
  1782. PSET (ex% + 15, ey% + 1), 43
  1783. PSET (ex% + 16, ey% + 1), 43
  1784. PSET (ex% + 17, ey% + 1), 44
  1785. PSET (ex% + 18, ey% + 1), 42
  1786. PSET (ex% + 19, ey% + 1), 44
  1787. PSET (ex% + 20, ey% + 1), 44
  1788. PSET (ex% + 21, ey% + 1), 43
  1789. PSET (ex% + 22, ey% + 1), 42
  1790. PSET (ex% + 2, ey% + 2), 178
  1791. PSET (ex% + 3, ey% + 2), 106
  1792. PSET (ex% + 4, ey% + 2), 42
  1793. PSET (ex% + 5, ey% + 2), 43
  1794. PSET (ex% + 6, ey% + 2), 44
  1795. PSET (ex% + 7, ey% + 2), 43
  1796. PSET (ex% + 8, ey% + 2), 25
  1797. PSET (ex% + 9, ey% + 2), 25
  1798. PSET (ex% + 10, ey% + 2), 43
  1799. PSET (ex% + 11, ey% + 2), 44
  1800. PSET (ex% + 12, ey% + 2), 43
  1801. PSET (ex% + 13, ey% + 2), 21
  1802. PSET (ex% + 14, ey% + 2), 44
  1803. PSET (ex% + 15, ey% + 2), 43
  1804. PSET (ex% + 16, ey% + 2), 44
  1805. PSET (ex% + 17, ey% + 2), 44
  1806. PSET (ex% + 18, ey% + 2), 43
  1807. PSET (ex% + 19, ey% + 2), 43
  1808. PSET (ex% + 20, ey% + 2), 43
  1809. PSET (ex% + 21, ey% + 2), 44
  1810. PSET (ex% + 0, ey% + 3), 21
  1811. PSET (ex% + 1, ey% + 3), 22
  1812. PSET (ex% + 2, ey% + 3), 23
  1813. PSET (ex% + 3, ey% + 3), 23
  1814. PSET (ex% + 4, ey% + 3), 24
  1815. PSET (ex% + 5, ey% + 3), 43
  1816. PSET (ex% + 6, ey% + 3), 43
  1817. PSET (ex% + 7, ey% + 3), 24
  1818. PSET (ex% + 8, ey% + 3), 24
  1819. PSET (ex% + 9, ey% + 3), 41
  1820. PSET (ex% + 10, ey% + 3), 42
  1821. PSET (ex% + 11, ey% + 3), 42
  1822. PSET (ex% + 12, ey% + 3), 44
  1823. PSET (ex% + 14, ey% + 3), 24
  1824. PSET (ex% + 15, ey% + 3), 25
  1825. PSET (ex% + 16, ey% + 3), 44
  1826. PSET (ex% + 17, ey% + 3), 43
  1827. PSET (ex% + 18, ey% + 3), 44
  1828. PSET (ex% + 19, ey% + 3), 42
  1829. PSET (ex% + 20, ey% + 3), 44
  1830. PSET (ex% + 21, ey% + 3), 43
  1831. PSET (ex% + 22, ey% + 3), 41
  1832. PSET (ex% + 3, ey% + 4), 20
  1833. PSET (ex% + 4, ey% + 4), 22
  1834. PSET (ex% + 5, ey% + 4), 22
  1835. PSET (ex% + 6, ey% + 4), 20
  1836. PSET (ex% + 7, ey% + 4), 19
  1837. PSET (ex% + 10, ey% + 4), 41
  1838. PSET (ex% + 12, ey% + 4), 43
  1839. PSET (ex% + 13, ey% + 4), 42
  1840. PSET (ex% + 14, ey% + 4), 43
  1841. PSET (ex% + 15, ey% + 4), 44
  1842. PSET (ex% + 16, ey% + 4), 43
  1843. PSET (ex% + 17, ey% + 4), 42
  1844. PSET (ex% + 18, ey% + 4), 43
  1845. PSET (ex% + 19, ey% + 4), 44
  1846. PSET (ex% + 20, ey% + 4), 43
  1847. PSET (ex% + 12, ey% + 5), 43
  1848. PSET (ex% + 13, ey% + 5), 44
  1849. PSET (ex% + 14, ey% + 5), 44
  1850. PSET (ex% + 15, ey% + 5), 43
  1851. PSET (ex% + 16, ey% + 5), 44
  1852. PSET (ex% + 17, ey% + 5), 42
  1853. PSET (ex% + 18, ey% + 5), 42
  1854. PSET (ex% + 19, ey% + 5), 41
  1855. PSET (ex% + 21, ey% + 5), 42
  1856. PSET (ex% + 11, ey% + 6), 42
  1857. PSET (ex% + 12, ey% + 6), 41
  1858. PSET (ex% + 13, ey% + 6), 43
  1859. PSET (ex% + 14, ey% + 6), 44
  1860. PSET (ex% + 15, ey% + 6), 44
  1861. PSET (ex% + 16, ey% + 6), 42
  1862. PSET (ex% + 18, ey% + 6), 41
  1863. PSET (ex% + 10, ey% + 7), 19
  1864. PSET (ex% + 11, ey% + 7), 23
  1865. PSET (ex% + 12, ey% + 7), 43
  1866. PSET (ex% + 13, ey% + 7), 42
  1867. PSET (ex% + 14, ey% + 7), 24
  1868. PSET (ex% + 15, ey% + 7), 42
  1869. PSET (ex% + 16, ey% + 7), 43
  1870. PSET (ex% + 17, ey% + 7), 42
  1871. PSET (ex% + 9, ey% + 8), 19
  1872. PSET (ex% + 10, ey% + 8), 24
  1873. PSET (ex% + 11, ey% + 8), 44
  1874. PSET (ex% + 12, ey% + 8), 42
  1875. PSET (ex% + 13, ey% + 8), 25
  1876. PSET (ex% + 14, ey% + 8), 23
  1877. PSET (ex% + 15, ey% + 8), 41
  1878. PSET (ex% + 10, ey% + 9), 43
  1879. PSET (ex% + 11, ey% + 9), 42
  1880. PSET (ex% + 12, ey% + 9), 22
  1881. PSET (ex% + 13, ey% + 9), 21
  1882. END SUB
  1883.  
  1884. SUB xxf4
  1885. PSET (ex% + 18, ey% + -3), 42
  1886. PSET (ex% + 20, ey% + -3), 40
  1887. PSET (ex% + 11, ey% + -2), 41
  1888. PSET (ex% + 13, ey% + -2), 41
  1889. PSET (ex% + 16, ey% + -2), 42
  1890. PSET (ex% + 17, ey% + -2), 44
  1891. PSET (ex% + 18, ey% + -2), 43
  1892. PSET (ex% + 19, ey% + -2), 44
  1893. PSET (ex% + 20, ey% + -2), 42
  1894. PSET (ex% + 10, ey% + -1), 41
  1895. PSET (ex% + 11, ey% + -1), 42
  1896. PSET (ex% + 12, ey% + -1), 43
  1897. PSET (ex% + 14, ey% + -1), 44
  1898. PSET (ex% + 15, ey% + -1), 44
  1899. PSET (ex% + 16, ey% + -1), 44
  1900. PSET (ex% + 17, ey% + -1), 43
  1901. PSET (ex% + 18, ey% + -1), 44
  1902. PSET (ex% + 19, ey% + -1), 44
  1903. PSET (ex% + 21, ey% + -1), 43
  1904. PSET (ex% + 22, ey% + -1), 43
  1905. PSET (ex% + 6, ey% + 0), 40
  1906. PSET (ex% + 7, ey% + 0), 42
  1907. PSET (ex% + 8, ey% + 0), 178
  1908. PSET (ex% + 9, ey% + 0), 41
  1909. PSET (ex% + 10, ey% + 0), 42
  1910. PSET (ex% + 11, ey% + 0), 43
  1911. PSET (ex% + 12, ey% + 0), 43
  1912. PSET (ex% + 13, ey% + 0), 42
  1913. PSET (ex% + 14, ey% + 0), 24
  1914. PSET (ex% + 15, ey% + 0), 42
  1915. PSET (ex% + 16, ey% + 0), 44
  1916. PSET (ex% + 17, ey% + 0), 43
  1917. PSET (ex% + 18, ey% + 0), 43
  1918. PSET (ex% + 19, ey% + 0), 42
  1919. PSET (ex% + 20, ey% + 0), 42
  1920. PSET (ex% + 21, ey% + 0), 44
  1921. PSET (ex% + 22, ey% + 0), 43
  1922. PSET (ex% + 23, ey% + 0), 42
  1923. PSET (ex% + 4, ey% + 1), 41
  1924. PSET (ex% + 5, ey% + 1), 43
  1925. PSET (ex% + 6, ey% + 1), 43
  1926. PSET (ex% + 7, ey% + 1), 44
  1927. PSET (ex% + 8, ey% + 1), 43
  1928. PSET (ex% + 9, ey% + 1), 130
  1929. PSET (ex% + 10, ey% + 1), 43
  1930. PSET (ex% + 11, ey% + 1), 42
  1931. PSET (ex% + 12, ey% + 1), 44
  1932. PSET (ex% + 13, ey% + 1), 43
  1933. PSET (ex% + 14, ey% + 1), 44
  1934. PSET (ex% + 15, ey% + 1), 42
  1935. PSET (ex% + 16, ey% + 1), 43
  1936. PSET (ex% + 17, ey% + 1), 42
  1937. PSET (ex% + 18, ey% + 1), 43
  1938. PSET (ex% + 19, ey% + 1), 44
  1939. PSET (ex% + 20, ey% + 1), 44
  1940. PSET (ex% + 21, ey% + 1), 43
  1941. PSET (ex% + 22, ey% + 1), 43
  1942. PSET (ex% + 23, ey% + 1), 44
  1943. PSET (ex% + 2, ey% + 2), 178
  1944. PSET (ex% + 3, ey% + 2), 43
  1945. PSET (ex% + 4, ey% + 2), 42
  1946. PSET (ex% + 5, ey% + 2), 43
  1947. PSET (ex% + 6, ey% + 2), 44
  1948. PSET (ex% + 7, ey% + 2), 43
  1949. PSET (ex% + 8, ey% + 2), 25
  1950. PSET (ex% + 9, ey% + 2), 25
  1951. PSET (ex% + 10, ey% + 2), 43
  1952. PSET (ex% + 11, ey% + 2), 44
  1953. PSET (ex% + 12, ey% + 2), 43
  1954. PSET (ex% + 13, ey% + 2), 21
  1955. PSET (ex% + 14, ey% + 2), 42
  1956. PSET (ex% + 15, ey% + 2), 43
  1957. PSET (ex% + 16, ey% + 2), 41
  1958. PSET (ex% + 17, ey% + 2), 42
  1959. PSET (ex% + 18, ey% + 2), 42
  1960. PSET (ex% + 19, ey% + 2), 43
  1961. PSET (ex% + 20, ey% + 2), 43
  1962. PSET (ex% + 21, ey% + 2), 44
  1963. PSET (ex% + 0, ey% + 3), 21
  1964. PSET (ex% + 1, ey% + 3), 22
  1965. PSET (ex% + 2, ey% + 3), 41
  1966. PSET (ex% + 3, ey% + 3), 42
  1967. PSET (ex% + 4, ey% + 3), 41
  1968. PSET (ex% + 5, ey% + 3), 43
  1969. PSET (ex% + 6, ey% + 3), 43
  1970. PSET (ex% + 7, ey% + 3), 43
  1971. PSET (ex% + 8, ey% + 3), 44
  1972. PSET (ex% + 9, ey% + 3), 43
  1973. PSET (ex% + 10, ey% + 3), 44
  1974. PSET (ex% + 11, ey% + 3), 42
  1975. PSET (ex% + 12, ey% + 3), 44
  1976. PSET (ex% + 14, ey% + 3), 24
  1977. PSET (ex% + 15, ey% + 3), 25
  1978. PSET (ex% + 16, ey% + 3), 43
  1979. PSET (ex% + 17, ey% + 3), 41
  1980. PSET (ex% + 18, ey% + 3), 44
  1981. PSET (ex% + 19, ey% + 3), 42
  1982. PSET (ex% + 20, ey% + 3), 44
  1983. PSET (ex% + 21, ey% + 3), 43
  1984. PSET (ex% + 22, ey% + 3), 42
  1985. PSET (ex% + 3, ey% + 4), 20
  1986. PSET (ex% + 4, ey% + 4), 22
  1987. PSET (ex% + 5, ey% + 4), 42
  1988. PSET (ex% + 6, ey% + 4), 42
  1989. PSET (ex% + 7, ey% + 4), 19
  1990. PSET (ex% + 8, ey% + 4), 42
  1991. PSET (ex% + 9, ey% + 4), 43
  1992. PSET (ex% + 10, ey% + 4), 41
  1993. PSET (ex% + 12, ey% + 4), 43
  1994. PSET (ex% + 13, ey% + 4), 42
  1995. PSET (ex% + 14, ey% + 4), 43
  1996. PSET (ex% + 15, ey% + 4), 44
  1997. PSET (ex% + 16, ey% + 4), 43
  1998. PSET (ex% + 17, ey% + 4), 43
  1999. PSET (ex% + 18, ey% + 4), 43
  2000. PSET (ex% + 19, ey% + 4), 44
  2001. PSET (ex% + 20, ey% + 4), 43
  2002. PSET (ex% + 10, ey% + 5), 44
  2003. PSET (ex% + 12, ey% + 5), 43
  2004. PSET (ex% + 13, ey% + 5), 44
  2005. PSET (ex% + 14, ey% + 5), 44
  2006. PSET (ex% + 15, ey% + 5), 43
  2007. PSET (ex% + 16, ey% + 5), 44
  2008. PSET (ex% + 17, ey% + 5), 44
  2009. PSET (ex% + 18, ey% + 5), 43
  2010. PSET (ex% + 19, ey% + 5), 42
  2011. PSET (ex% + 21, ey% + 5), 42
  2012. PSET (ex% + 22, ey% + 5), 42
  2013. PSET (ex% + 11, ey% + 6), 42
  2014. PSET (ex% + 12, ey% + 6), 41
  2015. PSET (ex% + 13, ey% + 6), 43
  2016. PSET (ex% + 14, ey% + 6), 44
  2017. PSET (ex% + 15, ey% + 6), 44
  2018. PSET (ex% + 16, ey% + 6), 42
  2019. PSET (ex% + 18, ey% + 6), 43
  2020. PSET (ex% + 19, ey% + 6), 43
  2021. PSET (ex% + 10, ey% + 7), 43
  2022. PSET (ex% + 11, ey% + 7), 44
  2023. PSET (ex% + 12, ey% + 7), 43
  2024. PSET (ex% + 13, ey% + 7), 42
  2025. PSET (ex% + 14, ey% + 7), 24
  2026. PSET (ex% + 15, ey% + 7), 42
  2027. PSET (ex% + 16, ey% + 7), 43
  2028. PSET (ex% + 17, ey% + 7), 42
  2029. PSET (ex% + 18, ey% + 7), 43
  2030. PSET (ex% + 20, ey% + 7), 42
  2031. PSET (ex% + 21, ey% + 7), 41
  2032. PSET (ex% + 9, ey% + 8), 43
  2033. PSET (ex% + 10, ey% + 8), 23
  2034. PSET (ex% + 11, ey% + 8), 42
  2035. PSET (ex% + 12, ey% + 8), 44
  2036. PSET (ex% + 13, ey% + 8), 43
  2037. PSET (ex% + 14, ey% + 8), 43
  2038. PSET (ex% + 15, ey% + 8), 41
  2039. PSET (ex% + 18, ey% + 8), 41
  2040. PSET (ex% + 10, ey% + 9), 43
  2041. PSET (ex% + 11, ey% + 9), 43
  2042. PSET (ex% + 12, ey% + 9), 22
  2043. PSET (ex% + 13, ey% + 9), 43
  2044. PSET (ex% + 14, ey% + 9), 42
  2045. END SUB
  2046.  
  2047. SUB xxf5
  2048. PSET (ex% + 13, ey% + -3), 42
  2049. PSET (ex% + 14, ey% + -3), 41
  2050. PSET (ex% + 15, ey% + -3), 41
  2051. PSET (ex% + 18, ey% + -3), 41
  2052. PSET (ex% + 20, ey% + -3), 40
  2053. PSET (ex% + 23, ey% + -3), 41
  2054. PSET (ex% + 11, ey% + -2), 41
  2055. PSET (ex% + 13, ey% + -2), 41
  2056. PSET (ex% + 14, ey% + -2), 42
  2057. PSET (ex% + 16, ey% + -2), 42
  2058. PSET (ex% + 17, ey% + -2), 42
  2059. PSET (ex% + 18, ey% + -2), 43
  2060. PSET (ex% + 19, ey% + -2), 41
  2061. PSET (ex% + 20, ey% + -2), 42
  2062. PSET (ex% + 21, ey% + -2), 42
  2063. PSET (ex% + 22, ey% + -2), 41
  2064. PSET (ex% + 4, ey% + -1), 40
  2065. PSET (ex% + 9, ey% + -1), 41
  2066. PSET (ex% + 10, ey% + -1), 42
  2067. PSET (ex% + 11, ey% + -1), 42
  2068. PSET (ex% + 12, ey% + -1), 41
  2069. PSET (ex% + 14, ey% + -1), 44
  2070. PSET (ex% + 15, ey% + -1), 44
  2071. PSET (ex% + 16, ey% + -1), 44
  2072. PSET (ex% + 17, ey% + -1), 43
  2073. PSET (ex% + 18, ey% + -1), 44
  2074. PSET (ex% + 19, ey% + -1), 44
  2075. PSET (ex% + 21, ey% + -1), 43
  2076. PSET (ex% + 22, ey% + -1), 43
  2077. PSET (ex% + 24, ey% + -1), 41
  2078. PSET (ex% + 6, ey% + 0), 40
  2079. PSET (ex% + 7, ey% + 0), 42
  2080. PSET (ex% + 8, ey% + 0), 44
  2081. PSET (ex% + 9, ey% + 0), 41
  2082. PSET (ex% + 10, ey% + 0), 42
  2083. PSET (ex% + 11, ey% + 0), 43
  2084. PSET (ex% + 12, ey% + 0), 43
  2085. PSET (ex% + 13, ey% + 0), 42
  2086. PSET (ex% + 14, ey% + 0), 44
  2087. PSET (ex% + 15, ey% + 0), 42
  2088. PSET (ex% + 16, ey% + 0), 44
  2089. PSET (ex% + 17, ey% + 0), 43
  2090. PSET (ex% + 18, ey% + 0), 43
  2091. PSET (ex% + 19, ey% + 0), 42
  2092. PSET (ex% + 20, ey% + 0), 42
  2093. PSET (ex% + 21, ey% + 0), 44
  2094. PSET (ex% + 22, ey% + 0), 42
  2095. PSET (ex% + 23, ey% + 0), 42
  2096. PSET (ex% + 3, ey% + 1), 40
  2097. PSET (ex% + 4, ey% + 1), 41
  2098. PSET (ex% + 5, ey% + 1), 43
  2099. PSET (ex% + 6, ey% + 1), 43
  2100. PSET (ex% + 7, ey% + 1), 44
  2101. PSET (ex% + 8, ey% + 1), 43
  2102. PSET (ex% + 9, ey% + 1), 44
  2103. PSET (ex% + 10, ey% + 1), 43
  2104. PSET (ex% + 11, ey% + 1), 42
  2105. PSET (ex% + 12, ey% + 1), 44
  2106. PSET (ex% + 13, ey% + 1), 44
  2107. PSET (ex% + 14, ey% + 1), 44
  2108. PSET (ex% + 15, ey% + 1), 42
  2109. PSET (ex% + 16, ey% + 1), 43
  2110. PSET (ex% + 17, ey% + 1), 42
  2111. PSET (ex% + 18, ey% + 1), 43
  2112. PSET (ex% + 19, ey% + 1), 44
  2113. PSET (ex% + 20, ey% + 1), 44
  2114. PSET (ex% + 21, ey% + 1), 43
  2115. PSET (ex% + 22, ey% + 1), 43
  2116. PSET (ex% + 23, ey% + 1), 43
  2117. PSET (ex% + 24, ey% + 1), 42
  2118. PSET (ex% + 25, ey% + 1), 41
  2119. PSET (ex% + 1, ey% + 2), 41
  2120. PSET (ex% + 2, ey% + 2), 42
  2121. PSET (ex% + 3, ey% + 2), 43
  2122. PSET (ex% + 4, ey% + 2), 42
  2123. PSET (ex% + 5, ey% + 2), 43
  2124. PSET (ex% + 6, ey% + 2), 44
  2125. PSET (ex% + 7, ey% + 2), 43
  2126. PSET (ex% + 8, ey% + 2), 44
  2127. PSET (ex% + 9, ey% + 2), 44
  2128. PSET (ex% + 10, ey% + 2), 44
  2129. PSET (ex% + 11, ey% + 2), 44
  2130. PSET (ex% + 12, ey% + 2), 43
  2131. PSET (ex% + 13, ey% + 2), 44
  2132. PSET (ex% + 14, ey% + 2), 42
  2133. PSET (ex% + 15, ey% + 2), 42
  2134. PSET (ex% + 16, ey% + 2), 41
  2135. PSET (ex% + 17, ey% + 2), 42
  2136. PSET (ex% + 18, ey% + 2), 41
  2137. PSET (ex% + 19, ey% + 2), 43
  2138. PSET (ex% + 20, ey% + 2), 43
  2139. PSET (ex% + 21, ey% + 2), 44
  2140. PSET (ex% + 24, ey% + 2), 40
  2141. PSET (ex% + 0, ey% + 3), 41
  2142. PSET (ex% + 1, ey% + 3), 43
  2143. PSET (ex% + 2, ey% + 3), 43
  2144. PSET (ex% + 3, ey% + 3), 42
  2145. PSET (ex% + 4, ey% + 3), 41
  2146. PSET (ex% + 5, ey% + 3), 43
  2147. PSET (ex% + 6, ey% + 3), 43
  2148. PSET (ex% + 7, ey% + 3), 43
  2149. PSET (ex% + 8, ey% + 3), 44
  2150. PSET (ex% + 9, ey% + 3), 43
  2151. PSET (ex% + 10, ey% + 3), 44
  2152. PSET (ex% + 11, ey% + 3), 42
  2153. PSET (ex% + 12, ey% + 3), 44
  2154. PSET (ex% + 13, ey% + 3), 44
  2155. PSET (ex% + 14, ey% + 3), 44
  2156. PSET (ex% + 15, ey% + 3), 43
  2157. PSET (ex% + 16, ey% + 3), 42
  2158. PSET (ex% + 17, ey% + 3), 41
  2159. PSET (ex% + 18, ey% + 3), 44
  2160. PSET (ex% + 19, ey% + 3), 42
  2161. PSET (ex% + 20, ey% + 3), 44
  2162. PSET (ex% + 21, ey% + 3), 43
  2163. PSET (ex% + 22, ey% + 3), 42
  2164. PSET (ex% + 2, ey% + 4), 41
  2165. PSET (ex% + 3, ey% + 4), 43
  2166. PSET (ex% + 4, ey% + 4), 43
  2167. PSET (ex% + 5, ey% + 4), 42
  2168. PSET (ex% + 6, ey% + 4), 42
  2169. PSET (ex% + 7, ey% + 4), 44
  2170. PSET (ex% + 8, ey% + 4), 42
  2171. PSET (ex% + 9, ey% + 4), 43
  2172. PSET (ex% + 10, ey% + 4), 41
  2173. PSET (ex% + 12, ey% + 4), 43
  2174. PSET (ex% + 13, ey% + 4), 42
  2175. PSET (ex% + 14, ey% + 4), 43
  2176. PSET (ex% + 15, ey% + 4), 44
  2177. PSET (ex% + 16, ey% + 4), 43
  2178. PSET (ex% + 17, ey% + 4), 43
  2179. PSET (ex% + 18, ey% + 4), 43
  2180. PSET (ex% + 19, ey% + 4), 44
  2181. PSET (ex% + 20, ey% + 4), 43
  2182. PSET (ex% + 23, ey% + 4), 41
  2183. PSET (ex% + 3, ey% + 5), 42
  2184. PSET (ex% + 4, ey% + 5), 43
  2185. PSET (ex% + 6, ey% + 5), 41
  2186. PSET (ex% + 8, ey% + 5), 42
  2187. PSET (ex% + 9, ey% + 5), 43
  2188. PSET (ex% + 10, ey% + 5), 43
  2189. PSET (ex% + 11, ey% + 5), 44
  2190. PSET (ex% + 12, ey% + 5), 43
  2191. PSET (ex% + 13, ey% + 5), 44
  2192. PSET (ex% + 14, ey% + 5), 43
  2193. PSET (ex% + 15, ey% + 5), 43
  2194. PSET (ex% + 16, ey% + 5), 44
  2195. PSET (ex% + 17, ey% + 5), 44
  2196. PSET (ex% + 18, ey% + 5), 43
  2197. PSET (ex% + 19, ey% + 5), 42
  2198. PSET (ex% + 21, ey% + 5), 42
  2199. PSET (ex% + 22, ey% + 5), 42
  2200. PSET (ex% + 9, ey% + 6), 41
  2201. PSET (ex% + 11, ey% + 6), 42
  2202. PSET (ex% + 12, ey% + 6), 41
  2203. PSET (ex% + 13, ey% + 6), 43
  2204. PSET (ex% + 14, ey% + 6), 44
  2205. PSET (ex% + 15, ey% + 6), 44
  2206. PSET (ex% + 16, ey% + 6), 42
  2207. PSET (ex% + 18, ey% + 6), 43
  2208. PSET (ex% + 19, ey% + 6), 43
  2209. PSET (ex% + 23, ey% + 6), 41
  2210. PSET (ex% + 10, ey% + 7), 41
  2211. PSET (ex% + 11, ey% + 7), 43
  2212. PSET (ex% + 12, ey% + 7), 42
  2213. PSET (ex% + 13, ey% + 7), 42
  2214. PSET (ex% + 14, ey% + 7), 44
  2215. PSET (ex% + 15, ey% + 7), 42
  2216. PSET (ex% + 16, ey% + 7), 43
  2217. PSET (ex% + 17, ey% + 7), 42
  2218. PSET (ex% + 18, ey% + 7), 43
  2219. PSET (ex% + 20, ey% + 7), 42
  2220. PSET (ex% + 21, ey% + 7), 41
  2221. PSET (ex% + 9, ey% + 8), 41
  2222. PSET (ex% + 10, ey% + 8), 23
  2223. PSET (ex% + 11, ey% + 8), 42
  2224. PSET (ex% + 12, ey% + 8), 43
  2225. PSET (ex% + 13, ey% + 8), 43
  2226. PSET (ex% + 14, ey% + 8), 43
  2227. PSET (ex% + 15, ey% + 8), 41
  2228. PSET (ex% + 16, ey% + 8), 40
  2229. PSET (ex% + 18, ey% + 8), 41
  2230. PSET (ex% + 22, ey% + 8), 40
  2231. PSET (ex% + 10, ey% + 9), 40
  2232. PSET (ex% + 11, ey% + 9), 42
  2233. PSET (ex% + 12, ey% + 9), 22
  2234. PSET (ex% + 13, ey% + 9), 43
  2235. PSET (ex% + 14, ey% + 9), 42
  2236. PSET (ex% + 15, ey% + 9), 41
  2237. PSET (ex% + 13, ey% + 10), 40
  2238. END SUB
  2239.  
  2240. SUB xxf6
  2241. PSET (ex% + 13, ey% + -3), 42
  2242. PSET (ex% + 14, ey% + -3), 41
  2243. PSET (ex% + 15, ey% + -3), 41
  2244. PSET (ex% + 18, ey% + -3), 41
  2245. PSET (ex% + 21, ey% + -3), 40
  2246. PSET (ex% + 11, ey% + -2), 41
  2247. PSET (ex% + 13, ey% + -2), 41
  2248. PSET (ex% + 14, ey% + -2), 42
  2249. PSET (ex% + 16, ey% + -2), 42
  2250. PSET (ex% + 17, ey% + -2), 41
  2251. PSET (ex% + 18, ey% + -2), 42
  2252. PSET (ex% + 19, ey% + -2), 40
  2253. PSET (ex% + 21, ey% + -2), 42
  2254. PSET (ex% + 22, ey% + -2), 41
  2255. PSET (ex% + 24, ey% + -2), 41
  2256. PSET (ex% + 4, ey% + -1), 43
  2257. PSET (ex% + 9, ey% + -1), 41
  2258. PSET (ex% + 10, ey% + -1), 42
  2259. PSET (ex% + 11, ey% + -1), 42
  2260. PSET (ex% + 12, ey% + -1), 41
  2261. PSET (ex% + 14, ey% + -1), 40
  2262. PSET (ex% + 15, ey% + -1), 43
  2263. PSET (ex% + 16, ey% + -1), 43
  2264. PSET (ex% + 17, ey% + -1), 43
  2265. PSET (ex% + 18, ey% + -1), 43
  2266. PSET (ex% + 19, ey% + -1), 41
  2267. PSET (ex% + 21, ey% + -1), 43
  2268. PSET (ex% + 22, ey% + -1), 43
  2269. PSET (ex% + 5, ey% + 0), 41
  2270. PSET (ex% + 6, ey% + 0), 40
  2271. PSET (ex% + 7, ey% + 0), 42
  2272. PSET (ex% + 8, ey% + 0), 44
  2273. PSET (ex% + 9, ey% + 0), 41
  2274. PSET (ex% + 10, ey% + 0), 42
  2275. PSET (ex% + 11, ey% + 0), 43
  2276. PSET (ex% + 12, ey% + 0), 43
  2277. PSET (ex% + 13, ey% + 0), 42
  2278. PSET (ex% + 14, ey% + 0), 43
  2279. PSET (ex% + 15, ey% + 0), 42
  2280. PSET (ex% + 16, ey% + 0), 44
  2281. PSET (ex% + 17, ey% + 0), 42
  2282. PSET (ex% + 18, ey% + 0), 40
  2283. PSET (ex% + 19, ey% + 0), 42
  2284. PSET (ex% + 20, ey% + 0), 42
  2285. PSET (ex% + 21, ey% + 0), 44
  2286. PSET (ex% + 22, ey% + 0), 41
  2287. PSET (ex% + 23, ey% + 0), 42
  2288. PSET (ex% + 3, ey% + 1), 41
  2289. PSET (ex% + 4, ey% + 1), 43
  2290. PSET (ex% + 5, ey% + 1), 42
  2291. PSET (ex% + 6, ey% + 1), 43
  2292. PSET (ex% + 7, ey% + 1), 44
  2293. PSET (ex% + 8, ey% + 1), 43
  2294. PSET (ex% + 9, ey% + 1), 43
  2295. PSET (ex% + 10, ey% + 1), 43
  2296. PSET (ex% + 11, ey% + 1), 42
  2297. PSET (ex% + 12, ey% + 1), 40
  2298. PSET (ex% + 13, ey% + 1), 43
  2299. PSET (ex% + 14, ey% + 1), 44
  2300. PSET (ex% + 15, ey% + 1), 43
  2301. PSET (ex% + 16, ey% + 1), 41
  2302. PSET (ex% + 17, ey% + 1), 42
  2303. PSET (ex% + 19, ey% + 1), 41
  2304. PSET (ex% + 20, ey% + 1), 43
  2305. PSET (ex% + 21, ey% + 1), 42
  2306. PSET (ex% + 22, ey% + 1), 40
  2307. PSET (ex% + 24, ey% + 1), 40
  2308. PSET (ex% + 1, ey% + 2), 41
  2309. PSET (ex% + 2, ey% + 2), 42
  2310. PSET (ex% + 3, ey% + 2), 42
  2311. PSET (ex% + 4, ey% + 2), 41
  2312. PSET (ex% + 6, ey% + 2), 41
  2313. PSET (ex% + 7, ey% + 2), 43
  2314. PSET (ex% + 8, ey% + 2), 44
  2315. PSET (ex% + 9, ey% + 2), 42
  2316. PSET (ex% + 10, ey% + 2), 41
  2317. PSET (ex% + 11, ey% + 2), 41
  2318. PSET (ex% + 13, ey% + 2), 40
  2319. PSET (ex% + 14, ey% + 2), 42
  2320. PSET (ex% + 15, ey% + 2), 41
  2321. PSET (ex% + 16, ey% + 2), 41
  2322. PSET (ex% + 19, ey% + 2), 40
  2323. PSET (ex% + 20, ey% + 2), 42
  2324. PSET (ex% + 21, ey% + 2), 44
  2325. PSET (ex% + 0, ey% + 3), 41
  2326. PSET (ex% + 1, ey% + 3), 43
  2327. PSET (ex% + 2, ey% + 3), 43
  2328. PSET (ex% + 3, ey% + 3), 41
  2329. PSET (ex% + 6, ey% + 3), 40
  2330. PSET (ex% + 7, ey% + 3), 42
  2331. PSET (ex% + 8, ey% + 3), 44
  2332. PSET (ex% + 9, ey% + 3), 43
  2333. PSET (ex% + 10, ey% + 3), 44
  2334. PSET (ex% + 11, ey% + 3), 42
  2335. PSET (ex% + 12, ey% + 3), 41
  2336. PSET (ex% + 13, ey% + 3), 41
  2337. PSET (ex% + 14, ey% + 3), 44
  2338. PSET (ex% + 15, ey% + 3), 43
  2339. PSET (ex% + 16, ey% + 3), 42
  2340. PSET (ex% + 17, ey% + 3), 41
  2341. PSET (ex% + 18, ey% + 3), 42
  2342. PSET (ex% + 19, ey% + 3), 41
  2343. PSET (ex% + 20, ey% + 3), 44
  2344. PSET (ex% + 21, ey% + 3), 40
  2345. PSET (ex% + 22, ey% + 3), 42
  2346. PSET (ex% + 2, ey% + 4), 41
  2347. PSET (ex% + 3, ey% + 4), 42
  2348. PSET (ex% + 4, ey% + 4), 41
  2349. PSET (ex% + 5, ey% + 4), 42
  2350. PSET (ex% + 6, ey% + 4), 41
  2351. PSET (ex% + 7, ey% + 4), 44
  2352. PSET (ex% + 8, ey% + 4), 42
  2353. PSET (ex% + 9, ey% + 4), 43
  2354. PSET (ex% + 10, ey% + 4), 41
  2355. PSET (ex% + 12, ey% + 4), 42
  2356. PSET (ex% + 13, ey% + 4), 42
  2357. PSET (ex% + 14, ey% + 4), 43
  2358. PSET (ex% + 15, ey% + 4), 44
  2359. PSET (ex% + 16, ey% + 4), 42
  2360. PSET (ex% + 17, ey% + 4), 42
  2361. PSET (ex% + 18, ey% + 4), 42
  2362. PSET (ex% + 19, ey% + 4), 44
  2363. PSET (ex% + 20, ey% + 4), 41
  2364. PSET (ex% + 24, ey% + 4), 42
  2365. PSET (ex% + 25, ey% + 4), 41
  2366. PSET (ex% + 3, ey% + 5), 42
  2367. PSET (ex% + 4, ey% + 5), 43
  2368. PSET (ex% + 6, ey% + 5), 41
  2369. PSET (ex% + 8, ey% + 5), 42
  2370. PSET (ex% + 9, ey% + 5), 43
  2371. PSET (ex% + 10, ey% + 5), 43
  2372. PSET (ex% + 11, ey% + 5), 44
  2373. PSET (ex% + 12, ey% + 5), 43
  2374. PSET (ex% + 13, ey% + 5), 44
  2375. PSET (ex% + 14, ey% + 5), 43
  2376. PSET (ex% + 15, ey% + 5), 43
  2377. PSET (ex% + 16, ey% + 5), 44
  2378. PSET (ex% + 17, ey% + 5), 41
  2379. PSET (ex% + 18, ey% + 5), 43
  2380. PSET (ex% + 19, ey% + 5), 41
  2381. PSET (ex% + 9, ey% + 6), 41
  2382. PSET (ex% + 11, ey% + 6), 42
  2383. PSET (ex% + 12, ey% + 6), 41
  2384. PSET (ex% + 13, ey% + 6), 43
  2385. PSET (ex% + 14, ey% + 6), 44
  2386. PSET (ex% + 15, ey% + 6), 44
  2387. PSET (ex% + 16, ey% + 6), 42
  2388. PSET (ex% + 18, ey% + 6), 41
  2389. PSET (ex% + 19, ey% + 6), 42
  2390. PSET (ex% + 23, ey% + 6), 41
  2391. PSET (ex% + 24, ey% + 6), 42
  2392. PSET (ex% + 10, ey% + 7), 41
  2393. PSET (ex% + 11, ey% + 7), 43
  2394. PSET (ex% + 12, ey% + 7), 42
  2395. PSET (ex% + 13, ey% + 7), 42
  2396. PSET (ex% + 14, ey% + 7), 44
  2397. PSET (ex% + 15, ey% + 7), 42
  2398. PSET (ex% + 16, ey% + 7), 43
  2399. PSET (ex% + 17, ey% + 7), 42
  2400. PSET (ex% + 18, ey% + 7), 43
  2401. PSET (ex% + 9, ey% + 8), 41
  2402. PSET (ex% + 10, ey% + 8), 44
  2403. PSET (ex% + 11, ey% + 8), 43
  2404. PSET (ex% + 12, ey% + 8), 44
  2405. PSET (ex% + 13, ey% + 8), 43
  2406. PSET (ex% + 14, ey% + 8), 43
  2407. PSET (ex% + 15, ey% + 8), 41
  2408. PSET (ex% + 16, ey% + 8), 40
  2409. PSET (ex% + 18, ey% + 8), 41
  2410. PSET (ex% + 22, ey% + 8), 40
  2411. PSET (ex% + 23, ey% + 8), 40
  2412. PSET (ex% + 10, ey% + 9), 40
  2413. PSET (ex% + 11, ey% + 9), 42
  2414. PSET (ex% + 12, ey% + 9), 43
  2415. PSET (ex% + 13, ey% + 9), 43
  2416. PSET (ex% + 14, ey% + 9), 42
  2417. PSET (ex% + 15, ey% + 9), 41
  2418. PSET (ex% + 11, ey% + 10), 40
  2419. PSET (ex% + 12, ey% + 10), 42
  2420. PSET (ex% + 13, ey% + 10), 40
  2421. END SUB
  2422.  
  2423. SUB xxf7
  2424. PSET (ex% + 14, ey% + -3), 39
  2425. PSET (ex% + 15, ey% + -3), 41
  2426. PSET (ex% + 18, ey% + -3), 41
  2427. PSET (ex% + 11, ey% + -2), 41
  2428. PSET (ex% + 13, ey% + -2), 41
  2429. PSET (ex% + 14, ey% + -2), 42
  2430. PSET (ex% + 16, ey% + -2), 42
  2431. PSET (ex% + 17, ey% + -2), 41
  2432. PSET (ex% + 18, ey% + -2), 42
  2433. PSET (ex% + 19, ey% + -2), 40
  2434. PSET (ex% + 21, ey% + -2), 40
  2435. PSET (ex% + 25, ey% + -2), 41
  2436. PSET (ex% + 4, ey% + -1), 43
  2437. PSET (ex% + 9, ey% + -1), 41
  2438. PSET (ex% + 10, ey% + -1), 42
  2439. PSET (ex% + 11, ey% + -1), 42
  2440. PSET (ex% + 12, ey% + -1), 41
  2441. PSET (ex% + 14, ey% + -1), 40
  2442. PSET (ex% + 15, ey% + -1), 43
  2443. PSET (ex% + 16, ey% + -1), 43
  2444. PSET (ex% + 17, ey% + -1), 43
  2445. PSET (ex% + 18, ey% + -1), 42
  2446. PSET (ex% + 19, ey% + -1), 41
  2447. PSET (ex% + 21, ey% + -1), 41
  2448. PSET (ex% + 22, ey% + -1), 40
  2449. PSET (ex% + 5, ey% + 0), 41
  2450. PSET (ex% + 6, ey% + 0), 40
  2451. PSET (ex% + 7, ey% + 0), 42
  2452. PSET (ex% + 8, ey% + 0), 42
  2453. PSET (ex% + 9, ey% + 0), 41
  2454. PSET (ex% + 10, ey% + 0), 42
  2455. PSET (ex% + 11, ey% + 0), 43
  2456. PSET (ex% + 12, ey% + 0), 42
  2457. PSET (ex% + 13, ey% + 0), 41
  2458. PSET (ex% + 14, ey% + 0), 43
  2459. PSET (ex% + 15, ey% + 0), 42
  2460. PSET (ex% + 16, ey% + 0), 44
  2461. PSET (ex% + 17, ey% + 0), 42
  2462. PSET (ex% + 19, ey% + 0), 40
  2463. PSET (ex% + 20, ey% + 0), 42
  2464. PSET (ex% + 22, ey% + 0), 43
  2465. PSET (ex% + 23, ey% + 0), 42
  2466. PSET (ex% + 3, ey% + 1), 41
  2467. PSET (ex% + 4, ey% + 1), 43
  2468. PSET (ex% + 5, ey% + 1), 42
  2469. PSET (ex% + 6, ey% + 1), 43
  2470. PSET (ex% + 7, ey% + 1), 42
  2471. PSET (ex% + 8, ey% + 1), 43
  2472. PSET (ex% + 9, ey% + 1), 42
  2473. PSET (ex% + 10, ey% + 1), 41
  2474. PSET (ex% + 11, ey% + 1), 40
  2475. PSET (ex% + 14, ey% + 1), 40
  2476. PSET (ex% + 15, ey% + 1), 43
  2477. PSET (ex% + 16, ey% + 1), 41
  2478. PSET (ex% + 20, ey% + 1), 42
  2479. PSET (ex% + 21, ey% + 1), 41
  2480. PSET (ex% + 22, ey% + 1), 40
  2481. PSET (ex% + 1, ey% + 2), 41
  2482. PSET (ex% + 2, ey% + 2), 42
  2483. PSET (ex% + 3, ey% + 2), 42
  2484. PSET (ex% + 6, ey% + 2), 41
  2485. PSET (ex% + 7, ey% + 2), 42
  2486. PSET (ex% + 8, ey% + 2), 41
  2487. PSET (ex% + 14, ey% + 2), 42
  2488. PSET (ex% + 15, ey% + 2), 41
  2489. PSET (ex% + 20, ey% + 2), 42
  2490. PSET (ex% + 21, ey% + 2), 44
  2491. PSET (ex% + 0, ey% + 3), 41
  2492. PSET (ex% + 1, ey% + 3), 43
  2493. PSET (ex% + 2, ey% + 3), 43
  2494. PSET (ex% + 8, ey% + 3), 42
  2495. PSET (ex% + 9, ey% + 3), 41
  2496. PSET (ex% + 13, ey% + 3), 41
  2497. PSET (ex% + 14, ey% + 3), 42
  2498. PSET (ex% + 15, ey% + 3), 43
  2499. PSET (ex% + 16, ey% + 3), 42
  2500. PSET (ex% + 17, ey% + 3), 41
  2501. PSET (ex% + 19, ey% + 3), 41
  2502. PSET (ex% + 20, ey% + 3), 44
  2503. PSET (ex% + 21, ey% + 3), 40
  2504. PSET (ex% + 22, ey% + 3), 42
  2505. PSET (ex% + 2, ey% + 4), 41
  2506. PSET (ex% + 3, ey% + 4), 42
  2507. PSET (ex% + 5, ey% + 4), 42
  2508. PSET (ex% + 6, ey% + 4), 41
  2509. PSET (ex% + 7, ey% + 4), 42
  2510. PSET (ex% + 8, ey% + 4), 42
  2511. PSET (ex% + 9, ey% + 4), 42
  2512. PSET (ex% + 10, ey% + 4), 41
  2513. PSET (ex% + 12, ey% + 4), 42
  2514. PSET (ex% + 13, ey% + 4), 42
  2515. PSET (ex% + 14, ey% + 4), 43
  2516. PSET (ex% + 15, ey% + 4), 41
  2517. PSET (ex% + 16, ey% + 4), 42
  2518. PSET (ex% + 17, ey% + 4), 42
  2519. PSET (ex% + 18, ey% + 4), 42
  2520. PSET (ex% + 19, ey% + 4), 44
  2521. PSET (ex% + 20, ey% + 4), 41
  2522. PSET (ex% + 3, ey% + 5), 42
  2523. PSET (ex% + 4, ey% + 5), 43
  2524. PSET (ex% + 6, ey% + 5), 41
  2525. PSET (ex% + 8, ey% + 5), 42
  2526. PSET (ex% + 9, ey% + 5), 43
  2527. PSET (ex% + 10, ey% + 5), 42
  2528. PSET (ex% + 11, ey% + 5), 41
  2529. PSET (ex% + 12, ey% + 5), 42
  2530. PSET (ex% + 13, ey% + 5), 43
  2531. PSET (ex% + 14, ey% + 5), 43
  2532. PSET (ex% + 16, ey% + 5), 40
  2533. PSET (ex% + 18, ey% + 5), 43
  2534. PSET (ex% + 19, ey% + 5), 41
  2535. PSET (ex% + 9, ey% + 6), 41
  2536. PSET (ex% + 11, ey% + 6), 42
  2537. PSET (ex% + 12, ey% + 6), 41
  2538. PSET (ex% + 13, ey% + 6), 43
  2539. PSET (ex% + 14, ey% + 6), 42
  2540. PSET (ex% + 15, ey% + 6), 42
  2541. PSET (ex% + 16, ey% + 6), 42
  2542. PSET (ex% + 18, ey% + 6), 41
  2543. PSET (ex% + 19, ey% + 6), 42
  2544. PSET (ex% + 10, ey% + 7), 41
  2545. PSET (ex% + 11, ey% + 7), 43
  2546. PSET (ex% + 12, ey% + 7), 42
  2547. PSET (ex% + 13, ey% + 7), 42
  2548. PSET (ex% + 14, ey% + 7), 44
  2549. PSET (ex% + 15, ey% + 7), 42
  2550. PSET (ex% + 16, ey% + 7), 43
  2551. PSET (ex% + 17, ey% + 7), 42
  2552. PSET (ex% + 18, ey% + 7), 43
  2553. PSET (ex% + 24, ey% + 7), 40
  2554. PSET (ex% + 9, ey% + 8), 41
  2555. PSET (ex% + 10, ey% + 8), 44
  2556. PSET (ex% + 11, ey% + 8), 43
  2557. PSET (ex% + 12, ey% + 8), 44
  2558. PSET (ex% + 13, ey% + 8), 43
  2559. PSET (ex% + 14, ey% + 8), 43
  2560. PSET (ex% + 15, ey% + 8), 41
  2561. PSET (ex% + 16, ey% + 8), 40
  2562. PSET (ex% + 18, ey% + 8), 41
  2563. PSET (ex% + 10, ey% + 9), 40
  2564. PSET (ex% + 11, ey% + 9), 42
  2565. PSET (ex% + 12, ey% + 9), 43
  2566. PSET (ex% + 13, ey% + 9), 43
  2567. PSET (ex% + 14, ey% + 9), 42
  2568. PSET (ex% + 15, ey% + 9), 41
  2569. PSET (ex% + 11, ey% + 10), 40
  2570. PSET (ex% + 12, ey% + 10), 42
  2571. PSET (ex% + 13, ey% + 10), 40
  2572. END SUB
  2573.  
  2574. SUB xxf8
  2575. PSET (ex% + 15, ey% + -3), 41
  2576. PSET (ex% + 18, ey% + -3), 41
  2577. PSET (ex% + 13, ey% + -2), 41
  2578. PSET (ex% + 17, ey% + -2), 41
  2579. PSET (ex% + 18, ey% + -2), 42
  2580. PSET (ex% + 19, ey% + -2), 40
  2581. PSET (ex% + 21, ey% + -2), 40
  2582. PSET (ex% + 4, ey% + -1), 42
  2583. PSET (ex% + 9, ey% + -1), 41
  2584. PSET (ex% + 10, ey% + -1), 42
  2585. PSET (ex% + 11, ey% + -1), 42
  2586. PSET (ex% + 12, ey% + -1), 41
  2587. PSET (ex% + 15, ey% + -1), 40
  2588. PSET (ex% + 16, ey% + -1), 42
  2589. PSET (ex% + 17, ey% + -1), 42
  2590. PSET (ex% + 18, ey% + -1), 42
  2591. PSET (ex% + 22, ey% + -1), 40
  2592. PSET (ex% + 7, ey% + 0), 40
  2593. PSET (ex% + 8, ey% + 0), 42
  2594. PSET (ex% + 9, ey% + 0), 41
  2595. PSET (ex% + 10, ey% + 0), 41
  2596. PSET (ex% + 12, ey% + 0), 41
  2597. PSET (ex% + 13, ey% + 0), 41
  2598. PSET (ex% + 14, ey% + 0), 43
  2599. PSET (ex% + 15, ey% + 0), 41
  2600. PSET (ex% + 16, ey% + 0), 44
  2601. PSET (ex% + 17, ey% + 0), 42
  2602. PSET (ex% + 20, ey% + 0), 42
  2603. PSET (ex% + 22, ey% + 0), 42
  2604. PSET (ex% + 23, ey% + 0), 40
  2605. PSET (ex% + 4, ey% + 1), 41
  2606. PSET (ex% + 6, ey% + 1), 40
  2607. PSET (ex% + 7, ey% + 1), 41
  2608. PSET (ex% + 8, ey% + 1), 41
  2609. PSET (ex% + 9, ey% + 1), 42
  2610. PSET (ex% + 14, ey% + 1), 40
  2611. PSET (ex% + 15, ey% + 1), 43
  2612. PSET (ex% + 16, ey% + 1), 41
  2613. PSET (ex% + 21, ey% + 1), 41
  2614. PSET (ex% + 1, ey% + 2), 40
  2615. PSET (ex% + 7, ey% + 2), 41
  2616. PSET (ex% + 14, ey% + 2), 42
  2617. PSET (ex% + 15, ey% + 2), 41
  2618. PSET (ex% + 20, ey% + 2), 42
  2619. PSET (ex% + 21, ey% + 2), 44
  2620. PSET (ex% + 0, ey% + 3), 41
  2621. PSET (ex% + 1, ey% + 3), 42
  2622. PSET (ex% + 8, ey% + 3), 42
  2623. PSET (ex% + 9, ey% + 3), 41
  2624. PSET (ex% + 13, ey% + 3), 41
  2625. PSET (ex% + 14, ey% + 3), 41
  2626. PSET (ex% + 15, ey% + 3), 41
  2627. PSET (ex% + 16, ey% + 3), 42
  2628. PSET (ex% + 17, ey% + 3), 41
  2629. PSET (ex% + 19, ey% + 3), 41
  2630. PSET (ex% + 20, ey% + 3), 44
  2631. PSET (ex% + 21, ey% + 3), 40
  2632. PSET (ex% + 22, ey% + 3), 42
  2633. PSET (ex% + 3, ey% + 4), 42
  2634. PSET (ex% + 7, ey% + 4), 42
  2635. PSET (ex% + 8, ey% + 4), 42
  2636. PSET (ex% + 9, ey% + 4), 42
  2637. PSET (ex% + 10, ey% + 4), 41
  2638. PSET (ex% + 12, ey% + 4), 42
  2639. PSET (ex% + 13, ey% + 4), 42
  2640. PSET (ex% + 14, ey% + 4), 42
  2641. PSET (ex% + 17, ey% + 4), 42
  2642. PSET (ex% + 18, ey% + 4), 42
  2643. PSET (ex% + 19, ey% + 4), 42
  2644. PSET (ex% + 20, ey% + 4), 41
  2645. PSET (ex% + 4, ey% + 5), 43
  2646. PSET (ex% + 6, ey% + 5), 41
  2647. PSET (ex% + 8, ey% + 5), 42
  2648. PSET (ex% + 9, ey% + 5), 43
  2649. PSET (ex% + 10, ey% + 5), 42
  2650. PSET (ex% + 11, ey% + 5), 41
  2651. PSET (ex% + 12, ey% + 5), 42
  2652. PSET (ex% + 13, ey% + 5), 40
  2653. PSET (ex% + 18, ey% + 5), 43
  2654. PSET (ex% + 19, ey% + 5), 41
  2655. PSET (ex% + 9, ey% + 6), 41
  2656. PSET (ex% + 15, ey% + 6), 42
  2657. PSET (ex% + 18, ey% + 6), 41
  2658. PSET (ex% + 19, ey% + 6), 42
  2659. PSET (ex% + 12, ey% + 7), 41
  2660. PSET (ex% + 13, ey% + 7), 41
  2661. PSET (ex% + 14, ey% + 7), 41
  2662. PSET (ex% + 15, ey% + 7), 42
  2663. PSET (ex% + 16, ey% + 7), 43
  2664. PSET (ex% + 17, ey% + 7), 42
  2665. PSET (ex% + 11, ey% + 8), 41
  2666. PSET (ex% + 12, ey% + 8), 43
  2667. PSET (ex% + 13, ey% + 8), 43
  2668. PSET (ex% + 14, ey% + 8), 43
  2669. PSET (ex% + 15, ey% + 8), 41
  2670. PSET (ex% + 16, ey% + 8), 40
  2671. PSET (ex% + 10, ey% + 9), 40
  2672. PSET (ex% + 11, ey% + 9), 42
  2673. PSET (ex% + 12, ey% + 9), 43
  2674. PSET (ex% + 13, ey% + 9), 44
  2675. PSET (ex% + 14, ey% + 9), 42
  2676. PSET (ex% + 15, ey% + 9), 41
  2677. PSET (ex% + 11, ey% + 10), 40
  2678. PSET (ex% + 12, ey% + 10), 42
  2679. PSET (ex% + 13, ey% + 10), 40
  2680. END SUB
  2681.  
  2682. SUB xxf9
  2683. PSET (ex% + 16, ey% + -3), 40
  2684. PSET (ex% + 13, ey% + -2), 41
  2685. PSET (ex% + 18, ey% + -2), 42
  2686. PSET (ex% + 9, ey% + -1), 41
  2687. PSET (ex% + 10, ey% + -1), 42
  2688. PSET (ex% + 11, ey% + -1), 42
  2689. PSET (ex% + 12, ey% + -1), 41
  2690. PSET (ex% + 15, ey% + -1), 40
  2691. PSET (ex% + 16, ey% + -1), 42
  2692. PSET (ex% + 17, ey% + -1), 42
  2693. PSET (ex% + 18, ey% + -1), 42
  2694. PSET (ex% + 8, ey% + 0), 42
  2695. PSET (ex% + 12, ey% + 0), 41
  2696. PSET (ex% + 13, ey% + 0), 41
  2697. PSET (ex% + 14, ey% + 0), 43
  2698. PSET (ex% + 15, ey% + 0), 41
  2699. PSET (ex% + 16, ey% + 0), 44
  2700. PSET (ex% + 17, ey% + 0), 42
  2701. PSET (ex% + 22, ey% + 0), 42
  2702. PSET (ex% + 8, ey% + 1), 40
  2703. PSET (ex% + 9, ey% + 1), 42
  2704. PSET (ex% + 14, ey% + 1), 40
  2705. PSET (ex% + 15, ey% + 1), 43
  2706. PSET (ex% + 16, ey% + 1), 41
  2707. PSET (ex% + 14, ey% + 2), 42
  2708. PSET (ex% + 15, ey% + 2), 41
  2709. PSET (ex% + 20, ey% + 2), 40
  2710. PSET (ex% + 21, ey% + 2), 41
  2711. PSET (ex% + 13, ey% + 3), 41
  2712. PSET (ex% + 14, ey% + 3), 41
  2713. PSET (ex% + 15, ey% + 3), 42
  2714. PSET (ex% + 16, ey% + 3), 40
  2715. PSET (ex% + 19, ey% + 3), 41
  2716. PSET (ex% + 20, ey% + 3), 42
  2717. PSET (ex% + 21, ey% + 3), 40
  2718. PSET (ex% + 22, ey% + 3), 42
  2719. PSET (ex% + 7, ey% + 4), 41
  2720. PSET (ex% + 8, ey% + 4), 40
  2721. PSET (ex% + 12, ey% + 4), 42
  2722. PSET (ex% + 13, ey% + 4), 42
  2723. PSET (ex% + 14, ey% + 4), 40
  2724. PSET (ex% + 17, ey% + 4), 42
  2725. PSET (ex% + 18, ey% + 4), 42
  2726. PSET (ex% + 19, ey% + 4), 42
  2727. PSET (ex% + 20, ey% + 4), 41
  2728. PSET (ex% + 8, ey% + 5), 41
  2729. PSET (ex% + 9, ey% + 5), 42
  2730. PSET (ex% + 10, ey% + 5), 42
  2731. PSET (ex% + 11, ey% + 5), 41
  2732. PSET (ex% + 12, ey% + 5), 41
  2733. PSET (ex% + 18, ey% + 5), 41
  2734. PSET (ex% + 19, ey% + 5), 41
  2735. PSET (ex% + 9, ey% + 6), 41
  2736. PSET (ex% + 15, ey% + 6), 42
  2737. PSET (ex% + 18, ey% + 6), 41
  2738. PSET (ex% + 19, ey% + 6), 42
  2739. PSET (ex% + 12, ey% + 7), 41
  2740. PSET (ex% + 14, ey% + 7), 41
  2741. PSET (ex% + 15, ey% + 7), 42
  2742. PSET (ex% + 16, ey% + 7), 43
  2743. PSET (ex% + 17, ey% + 7), 42
  2744. PSET (ex% + 11, ey% + 8), 41
  2745. PSET (ex% + 12, ey% + 8), 42
  2746. PSET (ex% + 13, ey% + 8), 42
  2747. PSET (ex% + 14, ey% + 8), 43
  2748. PSET (ex% + 15, ey% + 8), 41
  2749. PSET (ex% + 11, ey% + 9), 40
  2750. PSET (ex% + 12, ey% + 9), 43
  2751. PSET (ex% + 13, ey% + 9), 41
  2752. PSET (ex% + 14, ey% + 9), 42
  2753. PSET (ex% + 12, ey% + 10), 40
  2754. END SUB
  2755.  
  2756. SUB z
  2757. PSET STEP(3, -4), cf%
  2758. PSET STEP(1, 0), cf%
  2759. PSET STEP(1, 0), cf%
  2760. PSET STEP(1, 0), cf%
  2761.  
  2762. PSET STEP(-1, 1), cf%
  2763.  
  2764. PSET STEP(-1, 1), cf%
  2765.  
  2766. PSET STEP(-1, 1), cf%
  2767.  
  2768. PSET STEP(-1, 1), cf%
  2769. PSET STEP(1, 0), cf%
  2770. PSET STEP(1, 0), cf%
  2771. PSET STEP(1, 0), cf%
  2772. PSET STEP(1, 0), cf%
  2773. END SUB
  2774.  
  2775. SUB z0
  2776. PSET STEP(1, -4), cb%
  2777. PSET STEP(1, 0), cb%
  2778. PSET STEP(1, 0), cf%
  2779. PSET STEP(1, 0), cf%
  2780. PSET STEP(1, 0), cb%
  2781.  
  2782. PSET STEP(-4, 1), cb%
  2783. PSET STEP(1, 0), cf%
  2784. PSET STEP(1, 0), cb%
  2785. PSET STEP(1, 0), cb%
  2786. PSET STEP(1, 0), cf%
  2787.  
  2788. PSET STEP(-4, 1), cb%
  2789. PSET STEP(1, 0), cf%
  2790. PSET STEP(1, 0), cb%
  2791. PSET STEP(1, 0), cb%
  2792. PSET STEP(1, 0), cf%
  2793.  
  2794. PSET STEP(-4, 1), cb%
  2795. PSET STEP(1, 0), cf%
  2796. PSET STEP(1, 0), cb%
  2797. PSET STEP(1, 0), cb%
  2798. PSET STEP(1, 0), cf%
  2799.  
  2800. PSET STEP(-4, 1), cb%
  2801. PSET STEP(1, 0), cb%
  2802. PSET STEP(1, 0), cf%
  2803. PSET STEP(1, 0), cf%
  2804. PSET STEP(1, 0), cb%
  2805. END SUB
  2806.  
  2807. SUB z1
  2808. PSET STEP(1, -4), cb%
  2809. PSET STEP(1, 0), cb%
  2810. PSET STEP(1, 0), cb%
  2811. PSET STEP(1, 0), cb%
  2812. PSET STEP(1, 0), cf%
  2813.  
  2814. PSET STEP(-4, 1), cb%
  2815. PSET STEP(1, 0), cb%
  2816. PSET STEP(1, 0), cb%
  2817. PSET STEP(1, 0), cf%
  2818. PSET STEP(1, 0), cf%
  2819.  
  2820. PSET STEP(-4, 1), cb%
  2821. PSET STEP(1, 0), cb%
  2822. PSET STEP(1, 0), cf%
  2823. PSET STEP(1, 0), cb%
  2824. PSET STEP(1, 0), cf%
  2825.  
  2826. PSET STEP(-4, 1), cb%
  2827. PSET STEP(1, 0), cb%
  2828. PSET STEP(1, 0), cb%
  2829. PSET STEP(1, 0), cb%
  2830. PSET STEP(1, 0), cf%
  2831.  
  2832. PSET STEP(-4, 1), cb%
  2833. PSET STEP(1, 0), cb%
  2834. PSET STEP(1, 0), cb%
  2835. PSET STEP(1, 0), cb%
  2836. PSET STEP(1, 0), cf%
  2837. END SUB
  2838.  
  2839. SUB z2
  2840. PSET STEP(1, -4), cb%
  2841. PSET STEP(1, 0), cb%
  2842. PSET STEP(1, 0), cf%
  2843. PSET STEP(1, 0), cf%
  2844. PSET STEP(1, 0), cb%
  2845.  
  2846. PSET STEP(-4, 1), cb%
  2847. PSET STEP(1, 0), cf%
  2848. PSET STEP(1, 0), cb%
  2849. PSET STEP(1, 0), cb%
  2850. PSET STEP(1, 0), cf%
  2851.  
  2852. PSET STEP(-4, 1), cb%
  2853. PSET STEP(1, 0), cb%
  2854. PSET STEP(1, 0), cb%
  2855. PSET STEP(1, 0), cf%
  2856. PSET STEP(1, 0), cb%
  2857.  
  2858. PSET STEP(-4, 1), cb%
  2859. PSET STEP(1, 0), cb%
  2860. PSET STEP(1, 0), cf%
  2861. PSET STEP(1, 0), cb%
  2862. PSET STEP(1, 0), cb%
  2863.  
  2864. PSET STEP(-4, 1), cb%
  2865. PSET STEP(1, 0), cf%
  2866. PSET STEP(1, 0), cf%
  2867. PSET STEP(1, 0), cf%
  2868. PSET STEP(1, 0), cf%
  2869. END SUB
  2870.  
  2871. SUB z3
  2872. PSET STEP(1, -4), cb%
  2873. PSET STEP(1, 0), cb%
  2874. PSET STEP(1, 0), cf%
  2875. PSET STEP(1, 0), cf%
  2876. PSET STEP(1, 0), cb%
  2877.  
  2878. PSET STEP(-4, 1), cb%
  2879. PSET STEP(1, 0), cf%
  2880. PSET STEP(1, 0), cb%
  2881. PSET STEP(1, 0), cb%
  2882. PSET STEP(1, 0), cf%
  2883.  
  2884. PSET STEP(-4, 1), cb%
  2885. PSET STEP(1, 0), cb%
  2886. PSET STEP(1, 0), cb%
  2887. PSET STEP(1, 0), cf%
  2888. PSET STEP(1, 0), cb%
  2889.  
  2890. PSET STEP(-4, 1), cb%
  2891. PSET STEP(1, 0), cf%
  2892. PSET STEP(1, 0), cb%
  2893. PSET STEP(1, 0), cb%
  2894. PSET STEP(1, 0), cf%
  2895.  
  2896. PSET STEP(-4, 1), cb%
  2897. PSET STEP(1, 0), cb%
  2898. PSET STEP(1, 0), cf%
  2899. PSET STEP(1, 0), cf%
  2900. PSET STEP(1, 0), cb%
  2901. END SUB
  2902.  
  2903. SUB z4
  2904. PSET STEP(1, -4), cb%
  2905. PSET STEP(1, 0), cb%
  2906. PSET STEP(1, 0), cb%
  2907. PSET STEP(1, 0), cf%
  2908. PSET STEP(1, 0), cb%
  2909.  
  2910. PSET STEP(-4, 1), cb%
  2911. PSET STEP(1, 0), cb%
  2912. PSET STEP(1, 0), cf%
  2913. PSET STEP(1, 0), cb%
  2914. PSET STEP(1, 0), cb%
  2915.  
  2916. PSET STEP(-4, 1), cb%
  2917. PSET STEP(1, 0), cf%
  2918. PSET STEP(1, 0), cb%
  2919. PSET STEP(1, 0), cf%
  2920. PSET STEP(1, 0), cb%
  2921.  
  2922. PSET STEP(-4, 1), cb%
  2923. PSET STEP(1, 0), cf%
  2924. PSET STEP(1, 0), cf%
  2925. PSET STEP(1, 0), cf%
  2926. PSET STEP(1, 0), cf%
  2927.  
  2928. PSET STEP(-4, 1), cb%
  2929. PSET STEP(1, 0), cb%
  2930. PSET STEP(1, 0), cb%
  2931. PSET STEP(1, 0), cf%
  2932. PSET STEP(1, 0), cb%
  2933. END SUB
  2934.  
  2935. SUB z5
  2936. PSET STEP(1, -4), cb%
  2937. PSET STEP(1, 0), cf%
  2938. PSET STEP(1, 0), cf%
  2939. PSET STEP(1, 0), cf%
  2940. PSET STEP(1, 0), cf%
  2941.  
  2942. PSET STEP(-4, 1), cb%
  2943. PSET STEP(1, 0), cf%
  2944. PSET STEP(1, 0), cb%
  2945. PSET STEP(1, 0), cb%
  2946. PSET STEP(1, 0), cb%
  2947.  
  2948. PSET STEP(-4, 1), cb%
  2949. PSET STEP(1, 0), cf%
  2950. PSET STEP(1, 0), cf%
  2951. PSET STEP(1, 0), cf%
  2952. PSET STEP(1, 0), cb%
  2953.  
  2954. PSET STEP(-4, 1), cb%
  2955. PSET STEP(1, 0), cb%
  2956. PSET STEP(1, 0), cb%
  2957. PSET STEP(1, 0), cb%
  2958. PSET STEP(1, 0), cf%
  2959.  
  2960. PSET STEP(-4, 1), cb%
  2961. PSET STEP(1, 0), cf%
  2962. PSET STEP(1, 0), cf%
  2963. PSET STEP(1, 0), cf%
  2964. PSET STEP(1, 0), cb%
  2965. END SUB
  2966.  
  2967. SUB z6
  2968. PSET STEP(1, -4), cb%
  2969. PSET STEP(1, 0), cb%
  2970. PSET STEP(1, 0), cf%
  2971. PSET STEP(1, 0), cf%
  2972. PSET STEP(1, 0), cb%
  2973.  
  2974. PSET STEP(-4, 1), cb%
  2975. PSET STEP(1, 0), cf%
  2976. PSET STEP(1, 0), cb%
  2977. PSET STEP(1, 0), cb%
  2978. PSET STEP(1, 0), cb%
  2979.  
  2980. PSET STEP(-4, 1), cb%
  2981. PSET STEP(1, 0), cf%
  2982. PSET STEP(1, 0), cf%
  2983. PSET STEP(1, 0), cf%
  2984. PSET STEP(1, 0), cb%
  2985.  
  2986. PSET STEP(-4, 1), cb%
  2987. PSET STEP(1, 0), cf%
  2988. PSET STEP(1, 0), cb%
  2989. PSET STEP(1, 0), cb%
  2990. PSET STEP(1, 0), cf%
  2991.  
  2992. PSET STEP(-4, 1), cb%
  2993. PSET STEP(1, 0), cb%
  2994. PSET STEP(1, 0), cf%
  2995. PSET STEP(1, 0), cf%
  2996. PSET STEP(1, 0), cb%
  2997. END SUB
  2998.  
  2999. SUB z7
  3000. PSET STEP(1, -4), cb%
  3001. PSET STEP(1, 0), cf%
  3002. PSET STEP(1, 0), cf%
  3003. PSET STEP(1, 0), cf%
  3004. PSET STEP(1, 0), cf%
  3005.  
  3006. PSET STEP(-4, 1), cb%
  3007. PSET STEP(1, 0), cb%
  3008. PSET STEP(1, 0), cb%
  3009. PSET STEP(1, 0), cb%
  3010. PSET STEP(1, 0), cf%
  3011.  
  3012. PSET STEP(-4, 1), cb%
  3013. PSET STEP(1, 0), cb%
  3014. PSET STEP(1, 0), cb%
  3015. PSET STEP(1, 0), cf%
  3016. PSET STEP(1, 0), cb%
  3017.  
  3018. PSET STEP(-4, 1), cb%
  3019. PSET STEP(1, 0), cb%
  3020. PSET STEP(1, 0), cf%
  3021. PSET STEP(1, 0), cb%
  3022. PSET STEP(1, 0), cb%
  3023.  
  3024. PSET STEP(-4, 1), cb%
  3025. PSET STEP(1, 0), cb%
  3026. PSET STEP(1, 0), cf%
  3027. PSET STEP(1, 0), cb%
  3028. PSET STEP(1, 0), cb%
  3029. END SUB
  3030.  
  3031. SUB z8
  3032. PSET STEP(1, -4), cb%
  3033. PSET STEP(1, 0), cb%
  3034. PSET STEP(1, 0), cf%
  3035. PSET STEP(1, 0), cf%
  3036. PSET STEP(1, 0), cb%
  3037.  
  3038. PSET STEP(-4, 1), cb%
  3039. PSET STEP(1, 0), cf%
  3040. PSET STEP(1, 0), cb%
  3041. PSET STEP(1, 0), cb%
  3042. PSET STEP(1, 0), cf%
  3043.  
  3044. PSET STEP(-4, 1), cb%
  3045. PSET STEP(1, 0), cb%
  3046. PSET STEP(1, 0), cf%
  3047. PSET STEP(1, 0), cf%
  3048. PSET STEP(1, 0), cb%
  3049.  
  3050. PSET STEP(-4, 1), cb%
  3051. PSET STEP(1, 0), cf%
  3052. PSET STEP(1, 0), cb%
  3053. PSET STEP(1, 0), cb%
  3054. PSET STEP(1, 0), cf%
  3055.  
  3056. PSET STEP(-4, 1), cb%
  3057. PSET STEP(1, 0), cb%
  3058. PSET STEP(1, 0), cf%
  3059. PSET STEP(1, 0), cf%
  3060. PSET STEP(1, 0), cb%
  3061. END SUB
  3062.  
  3063. SUB z9
  3064. PSET STEP(1, -4), cb%
  3065. PSET STEP(1, 0), cb%
  3066. PSET STEP(1, 0), cf%
  3067. PSET STEP(1, 0), cf%
  3068. PSET STEP(1, 0), cb%
  3069.  
  3070. PSET STEP(-4, 1), cb%
  3071. PSET STEP(1, 0), cf%
  3072. PSET STEP(1, 0), cb%
  3073. PSET STEP(1, 0), cb%
  3074. PSET STEP(1, 0), cf%
  3075.  
  3076. PSET STEP(-4, 1), cb%
  3077. PSET STEP(1, 0), cb%
  3078. PSET STEP(1, 0), cf%
  3079. PSET STEP(1, 0), cf%
  3080. PSET STEP(1, 0), cf%
  3081.  
  3082. PSET STEP(-4, 1), cb%
  3083. PSET STEP(1, 0), cb%
  3084. PSET STEP(1, 0), cb%
  3085. PSET STEP(1, 0), cb%
  3086. PSET STEP(1, 0), cf%
  3087.  
  3088. PSET STEP(-4, 1), cb%
  3089. PSET STEP(1, 0), cf%
  3090. PSET STEP(1, 0), cf%
  3091. PSET STEP(1, 0), cf%
  3092. PSET STEP(1, 0), cb%
  3093. END SUB
  3094.  
  3095. 'Print number on the screen
  3096. SUB prnumber (num%, stl%)
  3097.  
  3098. tsd% = INT(ABS(num%) / 1000)
  3099. hnd% = INT((ABS(num%) - tsd% * 1000) / 100)
  3100. znr% = INT((ABS(num%) - tsd% * 1000 - hnd% * 100) / 10)
  3101. enr% = ABS(num%) - tsd% * 1000 - hnd% * 100 - znr% * 10
  3102.  
  3103. IF tsd% = 0 AND hnd% = 0 AND znr% = 0 THEN znr% = -1
  3104. IF tsd% = 0 AND hnd% = 0 THEN hnd% = -1
  3105. IF tsd% = 0 THEN tsd% = -1
  3106.  
  3107. IF tsd% <= 0 AND hnd% <= 0 AND znr% <= 0 AND num% < 0 THEN znr% = -2
  3108. IF tsd% <= 0 AND hnd% <= 0 AND znr% >= 0 AND num% < 0 THEN hnd% = -2
  3109. IF tsd% <= 0 AND hnd% >= 0 AND znr% >= 0 AND num% < 0 THEN tsd% = -2
  3110. IF tsd% >= 0 AND hnd% >= 0 AND znr% >= 0 AND num% < 0 THEN minus ELSE empty2
  3111.  
  3112. IF stl% = 4 THEN
  3113. SELECT CASE tsd%
  3114. CASE -2: minus
  3115. CASE -1: empty2
  3116. CASE 0: z0
  3117. CASE 1: z1
  3118. CASE 2: z2
  3119. CASE 3: z3
  3120. CASE 4: z4
  3121. CASE 5: z5
  3122. CASE 6: z6
  3123. CASE 7: z7
  3124. CASE 8: z8
  3125. CASE 9: z9
  3126. END SELECT
  3127. END IF
  3128.  
  3129. IF stl% >= 3 THEN
  3130. SELECT CASE hnd%
  3131. CASE -2: minus
  3132. CASE -1: empty2
  3133. CASE 0: z0
  3134. CASE 1: z1
  3135. CASE 2: z2
  3136. CASE 3: z3
  3137. CASE 4: z4
  3138. CASE 5: z5
  3139. CASE 6: z6
  3140. CASE 7: z7
  3141. CASE 8: z8
  3142. CASE 9: z9
  3143. END SELECT
  3144. END IF
  3145.  
  3146. IF stl% >= 2 THEN
  3147. SELECT CASE znr%
  3148. CASE -2: minus
  3149. CASE -1: empty2
  3150. CASE 0: z0
  3151. CASE 1: z1
  3152. CASE 2: z2
  3153. CASE 3: z3
  3154. CASE 4: z4
  3155. CASE 5: z5
  3156. CASE 6: z6
  3157. CASE 7: z7
  3158. CASE 8: z8
  3159. CASE 9: z9
  3160. END SELECT
  3161. END IF
  3162.  
  3163. SELECT CASE enr%
  3164. CASE 0: z0
  3165. CASE 1: z1
  3166. CASE 2: z2
  3167. CASE 3: z3
  3168. CASE 4: z4
  3169. CASE 5: z5
  3170. CASE 6: z6
  3171. CASE 7: z7
  3172. CASE 8: z8
  3173. CASE 9: z9
  3174. END SELECT
  3175.  
  3176. END SUB
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×