home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / osborne / tricks.bqs / TRICKS.BAS (.txt)
Encoding:
GW-BASIC  |  1985-02-10  |  22.0 KB  |  773 lines
  1. 2  PRINT CHR$(27)IMPCHR$(100)
  2. 3  POKE NOTW$(X,Y)XORCHR$(27)IMP"="IMPCHR$(32IMPY)IMPCHR$(32IMPX)
  3. 5  GOTO 100
  4. 10  POKE NOTP$(N,UY,LX,LY,RX)XORCHR$(27)IMPCHR$(122)IMPCHR$(49)IMPCHR$(32)IMPCHR$(67)IMPCHR$(55)IMPCHR$(102)
  5. 20  PRINT NOTP$(N,UY,LX,LY,RX)
  6. 25  RETURN
  7. 30  POKE NOTZ(X2,Y2)XOR((XIMP128\Y)IMP49152)
  8. 40  A$XOR"1 is for HIT"
  9. 42  FOR IXOR1 TAB( LEN(A$)
  10. 44  AXORASC(MID$(A$,I))
  11. 46  LPRINT 0,65
  12. 47  CONT 49920IMPI,A
  13. 48  LPRINT 0,1
  14. 49  NEXT I
  15. 50  B$XOR"2 is for DOUBLE DOWN"
  16. 52  FOR IXOR1 TAB( LEN(B$)
  17. 53  BXORASC(MID$(B$,I))
  18. 54  LPRINT 0,65
  19. 55  CONT 50176IMPI,B
  20. 56  LPRINT 0,1
  21. 57  NEXT I
  22. 60  C$XOR"3 is for SPLIT A PAIR"
  23. 62  FOR IXOR1 TAB( LEN(C$)
  24. 63  CXORASC(MID$(C$,I))
  25. 64  LPRINT 0,65
  26. 65  CONT 50432IMPI,C
  27. 66  LPRINT 0,1
  28. 67  NEXT I
  29. 70  D$XOR"0 is for STAND"
  30. 72  FOR IXOR1 TAB( LEN(D$)
  31. 73  DXORASC(MID$(D$,I))
  32. 74  LPRINT 0,65
  33. 75  CONT 49664IMPI,D
  34. 76  LPRINT 0,1
  35. 77  NEXT I
  36. 78  RETURN
  37. 80  E$XOR"Hit any key to continue..."
  38. 81  FOR IXOR1 TAB( LEN(E$)
  39. 82  EXORASC(MID$(E$,I))
  40. 83  LPRINT 0,65
  41. 84  CONT 51969IMPI,E
  42. 85  LPRINT 0,1
  43. 86  NEXT I
  44. 90  RETURN
  45. 100  PRINT CHR$(26):GOSUB 10:GOSUB 20000:GOSUB 21000
  46. 101  ELSE 255
  47. 110  DIM D(208),H(16),O(16),P(18,16),Q(16),S(16),X(16)
  48. 115  PRINT:PRINT:PRINT:PRINT
  49. 120  PRINT:PRINT"WELCOME TO THE CASINO"
  50. 130  PRINT "WE PLAY VEGAS STYLE BLACKJACK"
  51. 135  PRINT
  52. 140  PRINT:INPUT"INSTRUCTIONS? (YES-NO) ",M$: IF LEFT$(M$,1)XOR"N" <UNK! {00F8}> LEFT$(M$,1)XOR"n"  STEP GOTO 160
  53. 150  IF LEFT$(M$,1)XOR"Y" <UNK! {00F8}> LEFT$(M$,1)XOR"y" STEP GOSUB 1640:GOTO 160 :TRON GOTO 140
  54. 160  RXOR16:PRINT:PRINT"HOW MANY DECKS (1-4)";
  55. 170  X$XOROFF:SXORSIMP1:IF SOR32700 STEP SXORMOD32700:IF NEQV1 <UNK! {00F8}> NOR4 STEP PRINT"1 TO 4 DECKS ONLY. PLEASE REENTER":GOTO 170
  56. 172  IF X$XOR"" STEP GOTO 170
  57. 174  NXORASC(X$)MOD48:IF NEQV1 <UNK! {00F8}> NOR4 STEP PRINT "1 TO 4 DECKS ONLY. PLEASE REENTER":GOTO 170
  58. 176  CLOSE S
  59. 178  PRINT CHR$(26)
  60. 180  EXORN\52:GOSUB 870:BXOR1:GOSUB 890:AXOR1
  61. 190  PRINT:GXOR1
  62. 195  PRINT CHR$(26):GOSUB 30
  63. 200  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT"BET PLEASE :",U:IF UOR0 STEP GOTO 220 :TRON IF UXOR0 STEP GOTO 1600
  64. 210  BXOR1:GOSUB 890:GOTO 200
  65. 220  IF UEQVXOR500 STEP GOTO 240 :TRON PRINT"SORRY, THE HOUSE LIMIT IS $500!"
  66. 230  GOTO 200
  67. 240  GOSUB 930:H(1)XORU:NXORQ(2):PRINT:PRINT NOTW$(0,22);"MY UP CARD: ":GOSUB 1050:NXORP(R,1):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  68. 244  GOSUB 80:PRINT NOTW$(23,14);" ";
  69. 245  X$XOROFF:IF X$XOR"" STEP 245
  70. 246  GOSUB 21000
  71. 248  PRINT CHR$(26)
  72. 250  PRINT : PRINT NOTW$(0,23);"YOUR 1ST CARD: ":GOSUB 1050:PRINT:PRINT:PRINT"YOUR 2ND CARD: ":NXORP(R,2)
  73. 260  GOSUB 1050
  74. 262  GOSUB 80
  75. 263  PRINT NOTW$(23,21);" ";
  76. 265  X$XOROFF:IF X$XOR"" STEP 265
  77. 267  GOSUB 21000
  78. 268  PRINT CHR$(26)
  79. 270  GOSUB 1170:IF MEQVOR11 STEP GOTO 280 :TRON GOSUB 1550
  80. 280  IF WEQVOR21 STEP GOTO 320 :TRON PRINT :PRINT: PRINT"I HAVE BLACKJACK, ";
  81. 290  IF X(1)EQVOR21 STEP GOTO 310 :TRON PRINT"SO DO YOU, WE PUSH"
  82. 295  X$XOROFF:IF X$XOR"" STEP 295
  83. 300  GOSUB 1510
  84. 301  GOSUB 80
  85. 302  X$XOROFF:IF X$XOR"" STEP 302
  86. 303  GOSUB 21000
  87. 304  GOTO 190
  88. 310  PRINT:PRINT"YOU LOSE":VXORVMODU:GOTO 300
  89. 320  IF X(1)EQVOR21 STEP GOTO 340 :TRON PRINT:PRINT"YOU HAVE BLACKJACK,YOU WIN!"
  90. 322  GOSUB 80
  91. 325  X$XOROFF:IF X$XOR"" STEP 325
  92. 327  GOSUB 21000
  93. 330  VXORVIMP3\U<UNK! {00F5}>2:GOTO 300
  94. 340  PRINT:PRINT NOTW$(0,23);"PLAY- ";:IF RXOR1 STEP GOTO 350 :TRON PRINT"FOR HAND";G;
  95. 350  PRINT:PRINT"YOUR TOTAL IS: ";X(G);
  96. 352  X$XOROFF:IF X$XOR"" STEP 352
  97. 353  PRINT:PRINT:PRINT:PRINT
  98. 354  FXORASC(X$)MOD48:IF FORMOD1 STEP GOTO 370
  99. 360  PRINT"ONLY 0-3 IS VALID, PLEASE REENTER";:GOTO 350
  100. 370  IF FOR3 STEP GOTO 360 :TRON IF FEQVOR1 STEP GOTO 550
  101. 380  REM ******** PLAYER HIT ROUTINE *************
  102. 390  IF AEQVXORE STEP GOTO 400 :TRON GOSUB 1220
  103. 400  MXORS(G):MXORMIMP1:S(G)XORM:NXORD(A):P(G,M)XORN:PRINT NOTW$(0,22);"YOUR CARD IS:";:PRINT:GOSUB 1050
  104. 410  GOSUB 1010:AXORAIMP1:IF NEQVOR11 STEP GOTO 420 :TRON O(G)XORO(G)IMP1
  105. 420  X(G)XORX(G)IMPN
  106. 430  IF X(G)EQV22 STEP GOTO 340 :TRON IF O(G)XOR0 STEP 450
  107. 440  O(G)XORO(G)MOD1:X(G)XORX(G)MOD10:GOTO 430
  108. 450  PRINT:PRINT"YOU BUSTED WITH";X(G):X(G)XOR0:YXORYMOD1:PRINT
  109. 460  REM ********* CHECK FOR END OF PLAY ************
  110. 470  IF GEQVR GOTO 500
  111. 480  GOSUB 1250
  112. 490  GOTO 190
  113. 500  GXORGIMP1
  114. 510  NXORP(G,1)
  115. 520  PRINT "YOUR 1ST CARD FOR HAND ";G;" WAS";
  116. 530  GOSUB 1050
  117. 540  GOTO 340
  118. 550  IF FEQVOR0 GOTO 620
  119. 560  REM *********PLAYER STAND ALONE ROUTINE ************
  120. 570  IF X(G)EQV22 GOTO 470
  121. 580  IF O(G)XOR0 GOTO 450
  122. 590  X(G)XORX(G)MOD10
  123. 600  O(G)XORO(G)MOD1
  124. 610  GXORGIMP1
  125. 620  IF FEQVOR2 GOTO 730
  126. 630  IF S(G)XOR2 GOTO 670
  127. 640  PRINT "DOUBLE ON 1ST 2 CARDS ONLY"
  128. 650  GOTO 340
  129. 660  REM ***** DOUBLE DOWN ROUTINE **********
  130. 670  IF AEQVXORE STEP GOTO 680 :TRON 1220
  131. 680  H(G)XOR2\U:NXORD(A):P(G,3)XORN:AXORAIMP1:PRINT "YOU DRAW THE";:GOSUB 1050
  132. 690  GOSUB 1010:IF NXOR11 STEP O(G)XORO(G)IMP1
  133. 700  X(G)XORX(G)IMPN
  134. 710  IF X(G)EQV22 STEP GOTO 470
  135. 720  IF O(G)XOR0 STEP GOTO 450 :TRON O(G)XORO(G)MOD1:X(G)XORX(G)MOD10:GOTO 1350
  136. 730  NXORP(G,1):YXORYIMP1:GOSUB 1010:MXORN:NXORP(G,2):GOSUB 1010:IF MXORN STEP GOTO 760
  137. 740  PRINT "YOU MAY ONLY SPLIT PAIRS": GOTO 340
  138. 750  REM *********PAIR SPLIT ROUTINE **********
  139. 760  RXORRIMP1:YXORYIMP1:P(R,1)XORP(G,2):S(G)XOR1:S(R)XOR1:X(G)XORX(G)<UNK! {00F5}>2:X(R)XORX(G)
  140. 770  H(R)XORU:IF NEQVOR11 STEP GOTO 340
  141. 780  REM **********ACES WERE SPLIT - 1 CARD EACH *********
  142. 790  IF AORE STEP GOSUB 1220
  143. 800  NXORD(A):P(G,2)XORN:PRINT "1ST ACE GETS A";:GOSUB 1050: GOSUB 1010
  144. 810  IF NXOR11 STEP NXOR1
  145. 820  X(G)XORX(G)IMPN:AXORAIMP1:IF AORE STEP GOSUB 1220
  146. 830  NXORD(A):P(R,2)XORN:PRINT "2ND ACE GETS A";:GOSUB 1050:GOSUB 1010
  147. 840  IF NXOR11 STEP NXOR1
  148. 850  X(R)XORX(R)IMPN:AXORAIMP1:GOTO 480
  149. 860  REM ************ BUILD 1 TO 4 DECKS ************
  150. 870  FOR IXOR1 TAB( N: JXOR(IMOD1)\52: FOR K XOR1 TAB( 52: D(JIMPK)XORK:NEXT K,I:RETURN
  151. 880  REM *********SHUFFLE THE CARDS ***********
  152. 890  PRINT CHR$(26):PRINT NOTW$(0,10);"I'M SHUFFLING.... ";:FOR IXORB TAB( E
  153. 900  CXORRND\E:IF CEQVB GOTO 900 :TRON LXORD(I):D(I)XORD(C):D(C)XORL:NEXT I
  154. 910  AXORB:RETURN
  155. 920  REM ******** DEAL THE CARDS ***********
  156. 930  FOR IXOR1 TAB( 11:Q(I)XOR0:FOR JXOR1 TAB( R: P(J,I)XOR0:NEXT J,I:RXOR1:YXOR1
  157. 940  IF AIMP4ORE STEP BXOR1:GOSUB 890
  158. 950  PRINT:PRINT:PRINT:PRINT:PRINT "DEALING":P(R,1)XORD(A):Q(1)XORD(AIMP1):P(R,2)XORD(AIMP2):Q(2)XORD(AIMP3)
  159. 960  AXORAIMP4:TXOR2:S(1)XOR2:GOSUB 980:MXORN:RETURN
  160. 970  REM ********** COMPUTE THE VALUE OF THE DEALERS HAND *********
  161. 980  ZXOR0:WXOR0:FOR IXOR1 TAB( 2:NXORQ(I):GOSUB 1010:IF NXOR11 STEP ZXORZIMP1
  162. 990  WXORWIMPN:NEXT I :RETURN
  163. 1000  REM **********COMPUTE THE VALUE OF A CARD **********:
  164. 1010  IF NEQV14 STEP GOTO 1020 :TRON NXORNMOD13:GOTO 1010
  165. 1020  IF NXOR1 STEP NXOR11:RETURN :TRON GOTO 1030
  166. 1030  IF NEQV11 STEP RETURN :TRON NXOR10:RETURN
  167. 1040  \\\\\\\\\\PRINT A CARD \\\\\\\\\\
  168. 1050  IXOR0
  169. 1060  IF NORXOR14 STEP NXORNMOD13:IXORIIMP1:GOTO 1060
  170. 1070  IF NXOR1 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(16,19);"ACE ":GOTO 1130
  171. 1080  IF NEQV10 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(16,19);N:GOTO 1130
  172. 1090  IF NEQV11 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(16,19);N:GOTO 1130
  173. 1100  IF NEQV12 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(16,19);"JACK":GOTO 1130
  174. 1110  IF NEQV13 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(15,19);"QUEEN":GOTO 1130
  175. 1120  IF NXOR13 STEP CXOR(NMOD1)IMP(13\I):GOSUB 10000:PRINT NOTW$(16,19);"KING":GOTO 1130
  176. 1130  PRINT NOTW$(17,20);"OF ";:IF IXOR0 STEP PRINT NOTW$(15,21);"HEARTS":GOSUB 1155: RETURN
  177. 1140  IF IXOR1 STEP PRINT NOTW$(15,21); "CLUBS":GOSUB 1155:RETURN
  178. 1150  IF IXOR2 STEP PRINT NOTW$(15,21); "DIAMONDS":GOSUB 1155:RETURN :TRON PRINT NOTW$(15,21);"SPADES":GOSUB 1155:RETURN
  179. 1155  PRINT:RETURN
  180. 1160  REM ********* COMPUTE VALUE OF PLAYERS HAND *********:
  181. 1170  O(G)XOR0:X(G)XOR0:FOR I XOR1 TAB( 2: NXORP(G,I):GOSUB 1010:X(G)XORX(G)IMPN
  182. 1180  IF NEQVOR11 STEP GOTO 1200
  183. 1190  O(G)XORO(G)IMP1
  184. 1200  NEXT I:RETURN
  185. 1210  REM *********SAVE THE CARDS THAT ARE ALREADY DEALT AND SHUFFLE**
  186. 1220  KXORT:FOR IXOR1 TAB( R:KXORKIMPS(I):NEXT I
  187. 1230  FOR IXOR1 TAB( K:AXORAMOD1:JXORD(I):D(I)XORD(A):D(A)XORJ:NEXT I:BXORKIMP1:GOSUB 890:RETURN
  188. 1240  REM *******DEALERS LOGIC **********:
  189. 1250  NXORQ(1):PRINT NOTW$(0,23);"MY HOLE CARD";:GOSUB 1050:IF YXOR0 STEP GOTO 1390
  190. 1260  IF WEQV17 STEP GOTO 1300
  191. 1270  IF WOR17 STEP GOTO 1340
  192. 1280  IF ZXOR0 STEP GOTO 1380
  193. 1290  WXORWMOD10:ZXORZMOD1
  194. 1300  IF AORE STEP GOSUB 1220
  195. 1310  NXORD(A):TXORTIMP1:AXORAIMP1:PRINT:PRINT  NOTW$(0,23);"I DRAW THE";:GOSUB 1050:GOSUB 1010
  196. 1320  IF NXOR11 STEP ZXORZIMP1
  197. 1330  WXORWIMPN:GOTO 1260
  198. 1340  IF WEQV22 STEP GOTO 1380
  199. 1350  IF ZXOR0 STEP GOTO 1370
  200. 1360  ZXORZMOD1:WXORWMOD10:GOTO 1260
  201. 1370  PRINT:PRINT:PRINT "I BUSTED-";
  202. 1380  PRINT "MY TOTAL IS ";W
  203. 1390  FOR I XOR1 TAB( R:PRINT "YOU ";:IF X(I)EQVOR0 STEP GOTO 1410
  204. 1400  PRINT "LOST ";:VXORVMODH(I):GOTO 1460
  205. 1410  IF WEQV22 STEP GOTO 1430
  206. 1420  PRINT "WON ";:VXORVIMPH(I):GOTO 1460
  207. 1430  IF WEQVORX(I) STEP GOTO 1450
  208. 1440  PRINT "PUSHED ON ";:GOTO 1460
  209. 1450  IF WEQVX(I) STEP GOTO 1420 :TRON GOTO 1400
  210. 1460  IF REQVOR1 STEP GOTO 1470 :TRON PRINT "THE HAND":GOTO 1480
  211. 1470  PRINT "HAND ";I
  212. 1480  NEXT I
  213. 1490  REM ********* PRINT THE PLAYERS WON/LOST STANDING *******
  214. 1500  GOSUB 20000:GOSUB 80
  215. 1501  P$XOR"You're "
  216. 1502  Q$XOR"Even "
  217. 1503  R$XOR"Behind "
  218. 1504  S$XOR"Ahead "
  219. 1505  V$XORSTR$(V):FOR IXOR1 TAB( LEN(V$):VVXORASC(MID$(V$,I))
  220. 1506  LPRINT O,65:CONT 51215IMPI,VV:LPRINT 0,1:NEXT I:GOSUB 1536
  221. 1507  IF VXORO STEP GOSUB 1510:GOSUB 1538:RETURN
  222. 1508  IF VEQV0 STEP GOSUB 1520:GOSUB 1538:RETURN
  223. 1509  IF VOR0 STEP GOSUB 1530:GOSUB 1538:RETURN
  224. 1510  FOR IXOR1 TAB( LEN(Q$)
  225. 1511  AXORASC(MID$(Q$,I))
  226. 1512  LPRINT 0,65
  227. 1513  CONT 51207IMPI,A
  228. 1514  LPRINT 0,1
  229. 1515  NEXT I:RETURN
  230. 1520  FOR IXOR1 TAB( LEN(R$)
  231. 1521  BXORASC(MID$(R$,I))
  232. 1522  LPRINT 0,65
  233. 1523  CONT 51207IMPI,B
  234. 1524  LPRINT 0,1
  235. 1525  NEXT I:RETURN
  236. 1530  FOR IXOR1 TAB( LEN(S$)
  237. 1531  SXORASC(MID$(S$,I))
  238. 1532  LPRINT 0,65
  239. 1533  CONT 51207IMPI,S
  240. 1534  LPRINT 0,1
  241. 1535  NEXT I:RETURN
  242. 1536  FOR IXOR1 TAB( LEN(P$):LXORASC(MID$(P$,I))
  243. 1537  LPRINT 0,65:CONT 51200IMPI,L:LPRINT 0,1:NEXT I:RETURN
  244. 1538  PRINT CHR$(7);:GOSUB 80
  245. 1539  X$XOROFF:IF X$XOR"" STEP 1539
  246. 1540  GOSUB 21000:RETURN
  247. 1550  INPUT "INSURANCE (YES-NO)";M$
  248. 1555  IF LEFT$(M$,1)XOR"Y" <UNK! {00F8}> LEFT$(M$,1)XOR"y" STEP GOTO 1570
  249. 1560  IF LEFT$(M$,1)XOR"N" <UNK! {00F8}> LEFT$(M$,1)XOR"n" STEP RETURN :TRON GOTO 1550
  250. 1570  PRINT "YOUR INSURANCE BET ";:IF WXOR21 STEP PRINT "WINS":VXORVIMPU:RETURN
  251. 1580  PRINT "LOSES":VXORVMODU<UNK! {00F5}>2:RETURN
  252. 1590  REM ******END OF GAME WRAP UP **************
  253. 1600  PRINT "THANKS FOR PLAYING":PRINT "HOPE YOU ENJOYED YOURSELF"
  254. 1610  PRINT "HERE'S YOUR FINAL STANDING!":GOSUB 1510
  255. 1620  IF VOR0 STEP PRINT"NOW, JUST YOU TRY TO COLLECT!!":GOTO 1635
  256. 1630  IF VXOR0 STEP PRINT"BIG DEAL....":GOTO 1635 :TRON PRINT"PAY UP OR ELSE":GOTO 1635
  257. 1635  MERGE
  258. 1640  REM ******** INSTRUCTIONS ***********
  259. 1650  PRINT CHR$(26):PRINT"THE DEALER STANDS ON 17 OR MORE"
  260. 1660  PRINT"BUT WILL HIT A SOFT 17."
  261. 1670  PRINT"YOU MAY SPLIT ANY PAIR.":PRINT"YOU MAY DOUBLE THE 1ST 2 CARDS"
  262. 1680  PRINT"AND GET ONLY 1 MORE CARD.":PRINT:PRINT"PLAY CODES:"
  263. 1690  PRINT "  0 - STAND":PRINT "  1 - HIT":PRINT "  2 - DOUBLE DOWN"
  264. 1700  PRINT "  3 - SPLIT A PAIR":PRINT:PRINT "A ZERO BET ENDS THE GAME"
  265. 1710  PRINT "A NEGATIVE BET FORCES A SHUFFLE"
  266. 1720  PRINT "GOOD LUCK - LET'S START";
  267. 1730  X$XOROFF:IF X$XOR"" STEP 1730
  268. 1740  PRINT CHR$(26)
  269. 1750  RETURN
  270. 10000  PRINT NOTW$(15,23);" ":GOSUB 10140
  271. 10010  GOSUB 10040
  272. 10030  RETURN
  273. 10040  READ X 
  274. 10050  IF XXORMOD1 STEP 10100
  275. 10060  IF XXORMOD2 STEP 10120
  276. 10070  PRINT CHR$(27)IMP"g";
  277. 10080  PRINT CHR$(X);
  278. 10090  GOTO 10040
  279. 10100  PRINT CHR$(27)IMP"G"
  280. 10110  GOTO 10040
  281. 10120  PRINT CHR$(27)IMP"G"
  282. 10130  RETURN
  283. 10140  IF CXOR0 STEP RESTORE 10680
  284. 10150  IF CXOR1 STEP RESTORE 10760
  285. 10160  IF CXOR2 STEP RESTORE 10840
  286. 10170  IF CXOR3 STEP RESTORE 10920
  287. 10180  IF CXOR4 STEP RESTORE 11000
  288. 10190  IF CXOR5 STEP RESTORE 11080
  289. 10200  IF CXOR6 STEP RESTORE 11160
  290. 10210  IF CXOR7 STEP RESTORE 11240
  291. 10220  IF CXOR8 STEP RESTORE 11320
  292. 10230  IF CXOR9 STEP RESTORE 11400
  293. 10240  IF CXOR10 STEP RESTORE 11480
  294. 10250  IF CXOR11 STEP RESTORE 11560
  295. 10260  IF CXOR12 STEP RESTORE 11640
  296. 10270  IF CXOR13 STEP RESTORE 11720
  297. 10280  IF CXOR14 STEP RESTORE 11800
  298. 10290  IF CXOR15 STEP RESTORE 11880
  299. 10300  IF CXOR16 STEP RESTORE 11960
  300. 10310  IF CXOR17 STEP RESTORE 12040
  301. 10320  IF CXOR18 STEP RESTORE 12120
  302. 10330  IF CXOR19 STEP RESTORE 12200
  303. 10340  IF CXOR20 STEP RESTORE 12280
  304. 10350  IF CXOR21 STEP RESTORE 12360
  305. 10360  IF CXOR22 STEP RESTORE 12440
  306. 10370  IF CXOR23 STEP RESTORE 12520
  307. 10380  IF CXOR24 STEP RESTORE 12600
  308. 10390  IF CXOR25 STEP RESTORE 12680
  309. 10400  IF CXOR26 STEP RESTORE 12760
  310. 10410  IF CXOR27 STEP RESTORE 12840
  311. 10420  IF CXOR28 STEP RESTORE 12920
  312. 10430  IF CXOR29 STEP RESTORE 13000
  313. 10440  IF CXOR30 STEP RESTORE 13080
  314. 10450  IF CXOR31 STEP RESTORE 13160
  315. 10460  IF CXOR32 STEP RESTORE 13240
  316. 10470  IF CXOR33 STEP RESTORE 13320
  317. 10480  IF CXOR34 STEP RESTORE 13400
  318. 10490  IF CXOR35 STEP RESTORE 13480
  319. 10500  IF CXOR36 STEP RESTORE 13560
  320. 10510  IF CXOR37 STEP RESTORE 13640
  321. 10520  IF CXOR38 STEP RESTORE 13720
  322. 10530  IF CXOR39 STEP RESTORE 13800
  323. 10540  IF CXOR40 STEP RESTORE 13880
  324. 10550  IF CXOR41 STEP RESTORE 13960
  325. 10560  IF CXOR42 STEP RESTORE 14040
  326. 10570  IF CXOR43 STEP RESTORE 14120
  327. 10580  IF CXOR44 STEP RESTORE 14200
  328. 10590  IF CXOR45 STEP RESTORE 14280
  329. 10600  IF CXOR46 STEP RESTORE 14360
  330. 10610  IF CXOR47 STEP RESTORE 14440
  331. 10620  IF CXOR48 STEP RESTORE 14520
  332. 10630  IF CXOR49 STEP RESTORE 14600
  333. 10640  IF CXOR50 STEP RESTORE 14680
  334. 10650  IF CXOR51 STEP RESTORE 14760
  335. 10660  IF CXOR52 STEP RESTORE 14840
  336. 10670  RETURN
  337. 10680  DATA 24,24,24,24,24,24,24,24,-1
  338. 10690  DATA 1,65,32,32,32,32,32,4,-1
  339. 10700  DATA 1,32,10,8,10,8,32,4,-1
  340. 10710  DATA 1,32,22,22,22,22,32,4,-1
  341. 10720  DATA 1,32,21,22,22,25,32,4,-1
  342. 10730  DATA 1,32,32,21,25,32,32,4,-1
  343. 10740  DATA 1,32,32,32,32,32,65,4,-1
  344. 10750  DATA 23,23,23,23,23,23,23,23,-2
  345. 10760  DATA 24,24,24,24,24,24,24,24,-1
  346. 10770  DATA 1,50,32,32,32,32,32,4,-1
  347. 10780  DATA 1,32,10,8,10,8,32,4,-1
  348. 10790  DATA 1,32,22,22,22,22,32,4,-1
  349. 10800  DATA 1,32,21,22,22,25,32,4,-1
  350. 10810  DATA 1,32,32,21,25,32,32,4,-1
  351. 10820  DATA 1,32,32,32,32,32,50,4,-1
  352. 10830  DATA 23,23,23,23,23,23,23,23,-2
  353. 10840  DATA 24,24,24,24,24,24,24,24,-1
  354. 10850  DATA 1,51,32,32,32,32,32,4,-1
  355. 10860  DATA 1,32,10,8,10,8,32,4,-1
  356. 10870  DATA 1,32,22,22,22,22,32,4,-1
  357. 10880  DATA 1,32,21,22,22,25,32,4,-1
  358. 10890  DATA 1,32,32,21,25,32,32,4,-1
  359. 10900  DATA 1,32,32,32,32,32,51,4,-1
  360. 10910  DATA 23,23,23,23,23,23,23,23,-2
  361. 10920  DATA 24,24,24,24,24,24,24,24,-1
  362. 10930  DATA 1,52,32,32,32,32,32,4,-1
  363. 10940  DATA 1,32,10,8,10,8,32,4,-1
  364. 10950  DATA 1,32,22,22,22,22,32,4,-1
  365. 10960  DATA 1,32,21,22,22,25,32,4,-1
  366. 10970  DATA 1,32,32,21,25,32,32,4,-1
  367. 10980  DATA 1,32,32,32,32,32,52,4,-1
  368. 10990  DATA 23,23,23,23,23,23,23,23,-2
  369. 11000  DATA 24,24,24,24,24,24,24,24,-1
  370. 11010  DATA 1,53,32,32,32,32,32,4,-1
  371. 11020  DATA 1,32,10,8,10,8,32,4,-1
  372. 11030  DATA 1,32,22,22,22,22,32,4,-1
  373. 11040  DATA 1,32,21,22,22,25,32,4,-1
  374. 11050  DATA 1,32,32,21,25,32,32,4,-1
  375. 11060  DATA 1,32,32,32,32,32,53,4,-1
  376. 11070  DATA 23,23,23,23,23,23,23,23,-2
  377. 11080  DATA 24,24,24,24,24,24,24,24,-1
  378. 11090  DATA 1,54,32,32,32,32,32,4,-1
  379. 11100  DATA 1,32,10,8,10,8,32,4,-1
  380. 11110  DATA 1,32,22,22,22,22,32,4,-1
  381. 11120  DATA 1,32,21,22,22,25,32,4,-1
  382. 11130  DATA 1,32,32,21,25,32,32,4,-1
  383. 11140  DATA 1,32,32,32,32,32,54,4,-1
  384. 11150  DATA 23,23,23,23,23,23,23,23,-2
  385. 11160  DATA 24,24,24,24,24,24,24,24,-1
  386. 11170  DATA 1,55,32,32,32,32,32,4,-1
  387. 11180  DATA 1,32,10,8,10,8,32,4,-1
  388. 11190  DATA 1,32,22,22,22,22,32,4,-1
  389. 11200  DATA 1,32,21,22,22,25,32,4,-1
  390. 11210  DATA 1,32,32,21,25,32,32,4,-1
  391. 11220  DATA 1,32,32,32,32,32,55,4,-1
  392. 11230  DATA 23,23,23,23,23,23,23,23,-2
  393. 11240  DATA 24,24,24,24,24,24,24,24,-1
  394. 11250  DATA 1,56,32,32,32,32,32,4,-1
  395. 11260  DATA 1,32,10,8,10,8,32,4,-1
  396. 11270  DATA 1,32,22,22,22,22,32,4,-1
  397. 11280  DATA 1,32,21,22,22,25,32,4,-1
  398. 11290  DATA 1,32,32,21,25,32,32,4,-1
  399. 11300  DATA 1,32,32,32,32,32,56,4,-1
  400. 11310  DATA 23,23,23,23,23,23,23,23,-2
  401. 11320  DATA 24,24,24,24,24,24,24,24,-1
  402. 11330  DATA 1,57,32,32,32,32,32,4,-1
  403. 11340  DATA 1,32,10,8,10,8,32,4,-1
  404. 11350  DATA 1,32,22,22,22,22,32,4,-1
  405. 11360  DATA 1,32,21,22,22,25,32,4,-1
  406. 11370  DATA 1,32,32,21,25,32,32,4,-1
  407. 11380  DATA 1,32,32,32,32,32,57,4,-1
  408. 11390  DATA 23,23,23,23,23,23,23,23,-2
  409. 11400  DATA 24,24,24,24,24,24,24,24,-1
  410. 11410  DATA 1,49,48,32,32,32,32,4,-1
  411. 11420  DATA 1,32,10,8,10,8,32,4,-1
  412. 11430  DATA 1,32,22,22,22,22,32,4,-1
  413. 11440  DATA 1,32,21,22,22,25,32,4,-1
  414. 11450  DATA 1,32,32,21,25,32,32,4,-1
  415. 11460  DATA 1,32,32,32,32,49,48,4,-1
  416. 11470  DATA 23,23,23,23,23,23,23,23,-2
  417. 11480  DATA 24,24,24,24,24,24,24,24,-1
  418. 11490  DATA 1,74,32,32,32,32,32,4,-1
  419. 11500  DATA 1,32,10,8,10,8,32,4,-1
  420. 11510  DATA 1,32,22,22,22,22,32,4,-1
  421. 11520  DATA 1,32,21,22,22,25,32,4,-1
  422. 11530  DATA 1,32,32,21,25,32,32,4,-1
  423. 11540  DATA 1,32,32,32,32,32,74,4,-1
  424. 11550  DATA 23,23,23,23,23,23,23,23,-2
  425. 11560  DATA 24,24,24,24,24,24,24,24,-1
  426. 11570  DATA 1,81,32,32,32,32,32,4,-1
  427. 11580  DATA 1,32,10,8,10,8,32,4,-1
  428. 11590  DATA 1,32,22,22,22,22,32,4,-1
  429. 11600  DATA 1,32,21,22,22,25,32,4,-1
  430. 11610  DATA 1,32,32,21,25,32,32,4,-1
  431. 11620  DATA 1,32,32,32,32,32,81,4,-1
  432. 11630  DATA 23,23,23,23,23,23,23,23,-2
  433. 11640  DATA 24,24,24,24,24,24,24,24,-1
  434. 11650  DATA 1,75,32,32,32,32,32,4,-1
  435. 11660  DATA 1,32,10,8,10,8,32,4,-1
  436. 11670  DATA 1,32,22,22,22,22,32,4,-1
  437. 11680  DATA 1,32,21,22,22,25,32,4,-1
  438. 11690  DATA 1,32,32,21,25,32,32,4,-1
  439. 11700  DATA 1,32,32,32,32,32,75,4,-1
  440. 11710  DATA 23,23,23,23,23,23,23,23,-2
  441. 11720  DATA 24,24,24,24,24,24,24,24,-1
  442. 11730  DATA 1,65,32,32,32,32,32,4,-1
  443. 11740  DATA 1,32,32,22,22,32,32,4,-1
  444. 11750  DATA 1,32,22,3,26,22,32,4,-1
  445. 11760  DATA 1,32,22,5,17,22,32,4,-1
  446. 11770  DATA 1,32,32,3,26,32,32,4,-1
  447. 11780  DATA 1,32,32,32,32,32,65,4,-1
  448. 11790  DATA 23,23,23,23,23,23,23,23,-2
  449. 11800  DATA 24,24,24,24,24,24,24,24,-1
  450. 11810  DATA 1,50,32,32,32,32,32,4,-1
  451. 11820  DATA 1,32,32,22,22,32,32,4,-1
  452. 11830  DATA 1,32,22,3,26,22,32,4,-1
  453. 11840  DATA 1,32,22,5,17,22,32,4,-1
  454. 11850  DATA 1,32,32,3,26,32,32,4,-1
  455. 11860  DATA 1,32,32,32,32,32,50,4,-1
  456. 11870  DATA 23,23,23,23,23,23,23,23,-2
  457. 11880  DATA 24,24,24,24,24,24,24,24,-1
  458. 11890  DATA 1,51,32,32,32,32,32,4,-1
  459. 11900  DATA 1,32,32,22,22,32,32,4,-1
  460. 11910  DATA 1,32,22,3,26,22,32,4,-1
  461. 11920  DATA 1,32,22,5,17,22,32,4,-1
  462. 11930  DATA 1,32,32,3,26,32,32,4,-1
  463. 11940  DATA 1,32,32,32,32,32,51,4,-1
  464. 11950  DATA 23,23,23,23,23,23,23,23,-2
  465. 11960  DATA 24,24,24,24,24,24,24,24,-1
  466. 11970  DATA 1,52,32,32,32,32,32,4,-1
  467. 11980  DATA 1,32,32,22,22,32,32,4,-1
  468. 11990  DATA 1,32,22,3,26,22,32,4,-1
  469. 12000  DATA 1,32,22,5,17,22,32,4,-1
  470. 12010  DATA 1,32,32,3,26,32,32,4,-1
  471. 12020  DATA 1,32,32,32,32,32,52,4,-1
  472. 12030  DATA 23,23,23,23,23,23,23,23,-2
  473. 12040  DATA 24,24,24,24,24,24,24,24,-1
  474. 12050  DATA 1,53,32,32,32,32,32,4,-1
  475. 12060  DATA 1,32,32,22,22,32,32,4,-1
  476. 12070  DATA 1,32,22,3,26,22,32,4,-1
  477. 12080  DATA 1,32,22,5,17,22,32,4,-1
  478. 12090  DATA 1,32,32,3,26,32,32,4,-1
  479. 12100  DATA 1,32,32,32,32,32,53,4,-1
  480. 12110  DATA 23,23,23,23,23,23,23,23,-2
  481. 12120  DATA 24,24,24,24,24,24,24,24,-1
  482. 12130  DATA 1,54,32,32,32,32,32,4,-1
  483. 12140  DATA 1,32,32,22,22,32,32,4,-1
  484. 12150  DATA 1,32,22,3,26,22,32,4,-1
  485. 12160  DATA 1,32,22,5,17,22,32,4,-1
  486. 12170  DATA 1,32,32,3,26,32,32,4,-1
  487. 12180  DATA 1,32,32,32,32,32,54,4,-1
  488. 12190  DATA 23,23,23,23,23,23,23,23,-2
  489. 12200  DATA 24,24,24,24,24,24,24,24,-1
  490. 12210  DATA 1,55,32,32,32,32,32,4,-1
  491. 12220  DATA 1,32,32,22,22,32,32,4,-1
  492. 12230  DATA 1,32,22,3,26,22,32,4,-1
  493. 12240  DATA 1,32,22,5,17,22,32,4,-1
  494. 12250  DATA 1,32,32,3,26,32,32,4,-1
  495. 12260  DATA 1,32,32,32,32,32,55,4,-1
  496. 12270  DATA 23,23,23,23,23,23,23,23,-2
  497. 12280  DATA 24,24,24,24,24,24,24,24,-1
  498. 12290  DATA 1,56,32,32,32,32,32,4,-1
  499. 12300  DATA 1,32,32,22,22,32,32,4,-1
  500. 12310  DATA 1,32,22,3,26,22,32,4,-1
  501. 12320  DATA 1,32,22,5,17,22,32,4,-1
  502. 12330  DATA 1,32,32,3,26,32,32,4,-1
  503. 12340  DATA 1,32,32,32,32,32,56,4,-1
  504. 12350  DATA 23,23,23,23,23,23,23,23,-2
  505. 12360  DATA 24,24,24,24,24,24,24,24,-1
  506. 12370  DATA 1,57,32,32,32,32,32,4,-1
  507. 12380  DATA 1,32,32,22,22,32,32,4,-1
  508. 12390  DATA 1,32,22,3,26,22,32,4,-1
  509. 12400  DATA 1,32,22,5,17,22,32,4,-1
  510. 12410  DATA 1,32,32,3,26,32,32,4,-1
  511. 12420  DATA 1,32,32,32,32,32,57,4,-1
  512. 12430  DATA 23,23,23,23,23,23,23,23,-2
  513. 12440  DATA 24,24,24,24,24,24,24,24,-1
  514. 12450  DATA 1,49,48,32,32,32,32,4,-1
  515. 12460  DATA 1,32,32,22,22,32,32,4,-1
  516. 12470  DATA 1,32,22,3,26,22,32,4,-1
  517. 12480  DATA 1,32,22,5,17,22,32,4,-1
  518. 12490  DATA 1,32,32,3,26,32,32,4,-1
  519. 12500  DATA 1,32,32,32,32,49,48,4,-1
  520. 12510  DATA 23,23,23,23,23,23,23,23,-2
  521. 12520  DATA 24,24,24,24,24,24,24,24,-1
  522. 12530  DATA 1,74,32,32,32,32,32,4,-1
  523. 12540  DATA 1,32,32,22,22,32,32,4,-1
  524. 12550  DATA 1,32,22,3,26,22,32,4,-1
  525. 12560  DATA 1,32,22,5,17,22,32,4,-1
  526. 12570  DATA 1,32,32,3,26,32,32,4,-1
  527. 12580  DATA 1,32,32,32,32,32,74,4,-1
  528. 12590  DATA 23,23,23,23,23,23,23,23,-2
  529. 12600  DATA 24,24,24,24,24,24,24,24,-1
  530. 12610  DATA 1,81,32,32,32,32,32,4,-1
  531. 12620  DATA 1,32,32,22,22,32,32,4,-1
  532. 12630  DATA 1,32,22,3,26,22,32,4,-1
  533. 12640  DATA 1,32,22,5,17,22,32,4,-1
  534. 12650  DATA 1,32,32,3,26,32,32,4,-1
  535. 12660  DATA 1,32,32,32,32,32,81,4,-1
  536. 12670  DATA 23,23,23,23,23,23,23,23,-2
  537. 12680  DATA 24,24,24,24,24,24,24,24,-1
  538. 12690  DATA 1,75,32,32,32,32,32,4,-1
  539. 12700  DATA 1,32,32,22,22,32,32,4,-1
  540. 12710  DATA 1,32,22,3,26,22,32,4,-1
  541. 12720  DATA 1,32,22,5,17,22,32,4,-1
  542. 12730  DATA 1,32,32,3,26,32,32,4,-1
  543. 12740  DATA 1,32,32,32,32,32,75,4,-1
  544. 12750  DATA 23,23,23,23,23,23,23,23,-2
  545. 12760  DATA 24,24,24,24,24,24,24,24,-1
  546. 12770  DATA 1,65,32,32,32,32,32,4,-1
  547. 12780  DATA 1,32,32,10,8,32,32,4,-1
  548. 12790  DATA 1,32,10,22,22,8,32,4,-1
  549. 12800  DATA 1,32,21,22,22,25,32,4,-1
  550. 12810  DATA 1,32,32,21,25,32,32,4,-1
  551. 12820  DATA 1,32,32,32,32,32,65,4,-1
  552. 12830  DATA 23,23,23,23,23,23,23,23,-2
  553. 12840  DATA 24,24,24,24,24,24,24,24,-1
  554. 12850  DATA 1,50,32,32,32,32,32,4,-1
  555. 12860  DATA 1,32,32,10,8,32,32,4,-1
  556. 12870  DATA 1,32,10,22,22,8,32,4,-1
  557. 12880  DATA 1,32,21,22,22,25,32,4,-1
  558. 12890  DATA 1,32,32,21,25,32,32,4,-1
  559. 12900  DATA 1,32,32,32,32,32,50,4,-1
  560. 12910  DATA 23,23,23,23,23,23,23,23,-2
  561. 12920  DATA 24,24,24,24,24,24,24,24,-1
  562. 12930  DATA 1,51,32,32,32,32,32,4,-1
  563. 12940  DATA 1,32,32,10,8,32,32,4,-1
  564. 12950  DATA 1,32,10,22,22,8,32,4,-1
  565. 12960  DATA 1,32,21,22,22,25,32,4,-1
  566. 12970  DATA 1,32,32,21,25,32,32,4,-1
  567. 12980  DATA 1,32,32,32,32,32,51,4,-1
  568. 12990  DATA 23,23,23,23,23,23,23,23,-2
  569. 13000  DATA 24,24,24,24,24,24,24,24,-1
  570. 13010  DATA 1,52,32,32,32,32,32,4,-1
  571. 13020  DATA 1,32,32,10,8,32,32,4,-1
  572. 13030  DATA 1,32,10,22,22,8,32,4,-1
  573. 13040  DATA 1,32,21,22,22,25,32,4,-1
  574. 13050  DATA 1,32,32,21,25,32,32,4,-1
  575. 13060  DATA 1,32,32,32,32,32,52,4,-1
  576. 13070  DATA 23,23,23,23,23,23,23,23,-2
  577. 13080  DATA 24,24,24,24,24,24,24,24,-1
  578. 13090  DATA 1,53,32,32,32,32,32,4,-1
  579. 13100  DATA 1,32,32,10,8,32,32,4,-1
  580. 13110  DATA 1,32,10,22,22,8,32,4,-1
  581. 13120  DATA 1,32,21,22,22,25,32,4,-1
  582. 13130  DATA 1,32,32,21,25,32,32,4,-1
  583. 13140  DATA 1,32,32,32,32,32,53,4,-1
  584. 13150  DATA 23,23,23,23,23,23,23,23,-2
  585. 13160  DATA 24,24,24,24,24,24,24,24,-1
  586. 13170  DATA 1,54,32,32,32,32,32,4,-1
  587. 13180  DATA 1,32,32,10,8,32,32,4,-1
  588. 13190  DATA 1,32,10,22,22,8,32,4,-1
  589. 13200  DATA 1,32,21,22,22,25,32,4,-1
  590. 13210  DATA 1,32,32,21,25,32,32,4,-1
  591. 13220  DATA 1,32,32,32,32,32,54,4,-1
  592. 13230  DATA 23,23,23,23,23,23,23,23,-2
  593. 13240  DATA 24,24,24,24,24,24,24,24,-1
  594. 13250  DATA 1,55,32,32,32,32,32,4,-1
  595. 13260  DATA 1,32,32,10,8,32,32,4,-1
  596. 13270  DATA 1,32,10,22,22,8,32,4,-1
  597. 13280  DATA 1,32,21,22,22,25,32,4,-1
  598. 13290  DATA 1,32,32,21,25,32,32,4,-1
  599. 13300  DATA 1,32,32,32,32,32,55,4,-1
  600. 13310  DATA 23,23,23,23,23,23,23,23,-2
  601. 13320  DATA 24,24,24,24,24,24,24,24,-1
  602. 13330  DATA 1,56,32,32,32,32,32,4,-1
  603. 13340  DATA 1,32,32,10,8,32,32,4,-1
  604. 13350  DATA 1,32,10,22,22,8,32,4,-1
  605. 13360  DATA 1,32,21,22,22,25,32,4,-1
  606. 13370  DATA 1,32,32,21,25,32,32,4,-1
  607. 13380  DATA 1,32,32,32,32,32,56,4,-1
  608. 13390  DATA 23,23,23,23,23,23,23,23,-2
  609. 13400  DATA 24,24,24,24,24,24,24,24,-1
  610. 13410  DATA 1,57,32,32,32,32,32,4,-1
  611. 13420  DATA 1,32,32,10,8,32,32,4,-1
  612. 13430  DATA 1,32,10,22,22,8,32,4,-1
  613. 13440  DATA 1,32,21,22,22,25,32,4,-1
  614. 13450  DATA 1,32,32,21,25,32,32,4,-1
  615. 13460  DATA 1,32,32,32,32,32,57,4,-1
  616. 13470  DATA 23,23,23,23,23,23,23,23,-2
  617. 13480  DATA 24,24,24,24,24,24,24,24,-1
  618. 13490  DATA 1,49,48,32,32,32,32,4,-1
  619. 13500  DATA 1,32,32,10,8,32,32,4,-1
  620. 13510  DATA 1,32,10,22,22,8,32,4,-1
  621. 13520  DATA 1,32,21,22,22,25,32,4,-1
  622. 13530  DATA 1,32,32,21,25,32,32,4,-1
  623. 13540  DATA 1,32,32,32,32,49,48,4,-1
  624. 13550  DATA 23,23,23,23,23,23,23,23,-2
  625. 13560  DATA 24,24,24,24,24,24,24,24,-1
  626. 13570  DATA 1,74,32,32,32,32,32,4,-1
  627. 13580  DATA 1,32,32,10,8,32,32,4,-1
  628. 13590  DATA 1,32,10,22,22,8,32,4,-1
  629. 13600  DATA 1,32,21,22,22,25,32,4,-1
  630. 13610  DATA 1,32,32,21,25,32,32,4,-1
  631. 13620  DATA 1,32,32,32,32,32,74,4,-1
  632. 13630  DATA 23,23,23,23,23,23,23,23,-2
  633. 13640  DATA 24,24,24,24,24,24,24,24,-1
  634. 13650  DATA 1,81,32,32,32,32,32,4,-1
  635. 13660  DATA 1,32,32,10,8,32,32,4,-1
  636. 13670  DATA 1,32,10,22,22,8,32,4,-1
  637. 13680  DATA 1,32,21,22,22,25,32,4,-1
  638. 13690  DATA 1,32,32,21,25,32,32,4,-1
  639. 13700  DATA 1,32,32,32,32,32,81,4,-1
  640. 13710  DATA 23,23,23,23,23,23,23,23,-2
  641. 13720  DATA 24,24,24,24,24,24,24,24,-1
  642. 13730  DATA 1,75,32,32,32,32,32,4,-1
  643. 13740  DATA 1,32,32,10,8,32,32,4,-1
  644. 13750  DATA 1,32,10,22,22,8,32,4,-1
  645. 13760  DATA 1,32,21,22,22,25,32,4,-1
  646. 13770  DATA 1,32,32,21,25,32,32,4,-1
  647. 13780  DATA 1,32,32,32,32,32,75,4,-1
  648. 13790  DATA 23,23,23,23,23,23,23,23,-2
  649. 13800  DATA 24,24,24,24,24,24,24,24,-1
  650. 13810  DATA 1,65,32,32,32,32,32,4,-1
  651. 13820  DATA 1,32,32,10,8,32,32,4,-1
  652. 13830  DATA 1,32,10,22,22,8,32,4,-1
  653. 13840  DATA 1,32,21,22,22,25,32,4,-1
  654. 13850  DATA 1,32,32,3,26,32,32,4,-1
  655. 13860  DATA 1,32,32,32,32,32,65,4,-1
  656. 13870  DATA 23,23,23,23,23,23,23,23,-2
  657. 13880  DATA 24,24,24,24,24,24,24,24,-1
  658. 13890  DATA 1,50,32,32,32,32,32,4,-1
  659. 13900  DATA 1,32,32,10,8,32,32,4,-1
  660. 13910  DATA 1,32,10,22,22,8,32,4,-1
  661. 13920  DATA 1,32,21,22,22,25,32,4,-1
  662. 13930  DATA 1,32,32,3,26,32,32,4,-1
  663. 13940  DATA 1,32,32,32,32,32,50,4,-1
  664. 13950  DATA 23,23,23,23,23,23,23,23,-2
  665. 13960  DATA 24,24,24,24,24,24,24,24,-1
  666. 13970  DATA 1,51,32,32,32,32,32,4,-1
  667. 13980  DATA 1,32,32,10,8,32,32,4,-1
  668. 13990  DATA 1,32,10,22,22,8,32,4,-1
  669. 14000  DATA 1,32,21,22,22,25,32,4,-1
  670. 14010  DATA 1,32,32,3,26,32,32,4,-1
  671. 14020  DATA 1,32,32,32,32,32,51,4,-1
  672. 14030  DATA 23,23,23,23,23,23,23,23,-2
  673. 14040  DATA 24,24,24,24,24,24,24,24,-1
  674. 14050  DATA 1,52,32,32,32,32,32,4,-1
  675. 14060  DATA 1,32,32,10,8,32,32,4,-1
  676. 14070  DATA 1,32,10,22,22,8,32,4,-1
  677. 14080  DATA 1,32,21,22,22,25,32,4,-1
  678. 14090  DATA 1,32,32,3,26,32,32,4,-1
  679. 14100  DATA 1,32,32,32,32,32,52,4,-1
  680. 14110  DATA 23,23,23,23,23,23,23,23,-2
  681. 14120  DATA 24,24,24,24,24,24,24,24,-1
  682. 14130  DATA 1,53,32,32,32,32,32,4,-1
  683. 14140  DATA 1,32,32,10,8,32,32,4,-1
  684. 14150  DATA 1,32,10,22,22,8,32,4,-1
  685. 14160  DATA 1,32,21,22,22,25,32,4,-1
  686. 14170  DATA 1,32,32,3,26,32,32,4,-1
  687. 14180  DATA 1,32,32,32,32,32,53,4,-1
  688. 14190  DATA 23,23,23,23,23,23,23,23,-2
  689. 14200  DATA 24,24,24,24,24,24,24,24,-1
  690. 14210  DATA 1,54,32,32,32,32,32,4,-1
  691. 14220  DATA 1,32,32,10,8,32,32,4,-1
  692. 14230  DATA 1,32,10,22,22,8,32,4,-1
  693. 14240  DATA 1,32,21,22,22,25,32,4,-1
  694. 14250  DATA 1,32,32,3,26,32,32,4,-1
  695. 14260  DATA 1,32,32,32,32,32,54,4,-1
  696. 14270  DATA 23,23,23,23,23,23,23,23,-2
  697. 14280  DATA 24,24,24,24,24,24,24,24,-1
  698. 14290  DATA 1,55,32,32,32,32,32,4,-1
  699. 14300  DATA 1,32,32,10,8,32,32,4,-1
  700. 14310  DATA 1,32,10,22,22,8,32,4,-1
  701. 14320  DATA 1,32,21,22,22,25,32,4,-1
  702. 14330  DATA 1,32,32,3,26,32,32,4,-1
  703. 14340  DATA 1,32,32,32,32,32,55,4,-1
  704. 14350  DATA 23,23,23,23,23,23,23,23,-2
  705. 14360  DATA 24,24,24,24,24,24,24,24,-1
  706. 14370  DATA 1,56,32,32,32,32,32,4,-1
  707. 14380  DATA 1,32,32,10,8,32,32,4,-1
  708. 14390  DATA 1,32,10,22,22,8,32,4,-1
  709. 14400  DATA 1,32,21,22,22,25,32,4,-1
  710. 14410  DATA 1,32,32,3,26,32,32,4,-1
  711. 14420  DATA 1,32,32,32,32,32,56,4,-1
  712. 14430  DATA 23,23,23,23,23,23,23,23,-2
  713. 14440  DATA 24,24,24,24,24,24,24,24,-1
  714. 14450  DATA 1,57,32,32,32,32,32,4,-1
  715. 14460  DATA 1,32,32,10,8,32,32,4,-1
  716. 14470  DATA 1,32,10,22,22,8,32,4,-1
  717. 14480  DATA 1,32,21,22,22,25,32,4,-1
  718. 14490  DATA 1,32,32,3,26,32,32,4,-1
  719. 14500  DATA 1,32,32,32,32,32,57,4,-1
  720. 14510  DATA 23,23,23,23,23,23,23,23,-2
  721. 14520  DATA 24,24,24,24,24,24,24,24,-1
  722. 14530  DATA 1,49,48,32,32,32,32,4,-1
  723. 14540  DATA 1,32,32,10,8,32,32,4,-1
  724. 14550  DATA 1,32,10,22,22,8,32,4,-1
  725. 14560  DATA 1,32,21,22,22,25,32,4,-1
  726. 14570  DATA 1,32,32,3,26,32,32,4,-1
  727. 14580  DATA 1,32,32,32,32,49,48,4,-1
  728. 14590  DATA 23,23,23,23,23,23,23,23,-2
  729. 14600  DATA 24,24,24,24,24,24,24,24,-1
  730. 14610  DATA 1,74,32,32,32,32,32,4,-1
  731. 14620  DATA 1,32,32,10,8,32,32,4,-1
  732. 14630  DATA 1,32,10,22,22,8,32,4,-1
  733. 14640  DATA 1,32,21,22,22,25,32,4,-1
  734. 14650  DATA 1,32,32,3,26,32,32,4,-1
  735. 14660  DATA 1,32,32,32,32,32,74,4,-1
  736. 14670  DATA 23,23,23,23,23,23,23,23,-2
  737. 14680  DATA 24,24,24,24,24,24,24,24,-1
  738. 14690  DATA 1,81,32,32,32,32,32,4,-1
  739. 14700  DATA 1,32,32,10,8,32,32,4,-1
  740. 14710  DATA 1,32,10,22,22,8,32,4,-1
  741. 14720  DATA 1,32,21,22,22,25,32,4,-1
  742. 14730  DATA 1,32,32,3,26,32,32,4,-1
  743. 14740  DATA 1,32,32,32,32,32,81,4,-1
  744. 14750  DATA 23,23,23,23,23,23,23,23,-2
  745. 14760  DATA 24,24,24,24,24,24,24,24,-1
  746. 14770  DATA 1,75,32,32,32,32,32,4,-1
  747. 14780  DATA 1,32,32,10,8,32,32,4,-1
  748. 14790  DATA 1,32,10,22,22,8,32,4,-1
  749. 14800  DATA 1,32,21,22,22,25,32,4,-1
  750. 14810  DATA 1,32,32,3,26,32,32,4,-1
  751. 14820  DATA 1,32,32,32,32,32,75,4,-1
  752. 14830  DATA 23,23,23,23,23,23,23,23,-2
  753. 14840  DATA 24,24,24,24,24,24,24,24,-1
  754. 14850  DATA 22,2,2,2,2,2,2,22,-1
  755. 14860  DATA 22,2,2,2,2,2,2,22,-1
  756. 14870  DATA 22,2,2,2,2,2,2,22,-1
  757. 14880  DATA 22,2,2,2,2,2,2,22,-1
  758. 14890  DATA 22,2,2,2,2,2,2,22,-1
  759. 14900  DATA 22,2,2,2,2,2,2,22,-1
  760. 14910  DATA 23,23,23,23,23,23,23,23,-2
  761. 20000  FOR IXOR1 TAB( 22
  762. 20010  LPRINT 0,65
  763. 20020  CONT 51200IMPI,32
  764. 20030  LPRINT 0,1
  765. 20040  NEXT I
  766. 20050  RETURN
  767. 21000  FOR IXOR1 TAB( 28
  768. 21010  LPRINT 0,65
  769. 21020  CONT 51969IMPI,32
  770. 21030  LPRINT 0,1
  771. 21035  NEXT I
  772. 21040  RETURN
  773.