home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol023 / tabzilog.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  10.5 KB  |  343 lines
  1. 10 ' TABZILOG
  2. 20 DEFINT A-F:DEFSTR P-Z
  3. 30 REM
  4. 40 REM
  5. 50 REM
  6. 60 REM
  7. 70 REM 
  8. 80 REM
  9. 90 REM
  10. 100 REM - 00
  11. 110 DATA 36,00,00,51,05,00,00,00,00
  12. 120 DATA 30,13,02,51,06,00,00,00,00
  13. 130 DATA 30,17,12,51,07,00,00,00,00
  14. 140 DATA 23,13,00,51,08,00,00,00,00
  15. 150 DATA 23,05,00,51,09,00,00,00,00
  16. 160 DATA 14,05,00,51,10,00,00,00,00
  17. 170 DATA 30,05,01,51,11,00,00,00,00
  18. 180 DATA 52,00,00,51,12,00,00,00,00
  19. 190 REM
  20. 200 REM - 08
  21. 210 DATA 18,22,21,56,05,00,00,00,00
  22. 220 DATA 02,15,13,56,06,00,00,00,00
  23. 230 DATA 30,12,17,56,07,00,00,00,00
  24. 240 DATA 14,13,00,56,08,00,00,00,00
  25. 250 DATA 23,06,00,56,09,00,00,00,00
  26. 260 DATA 14,06,00,56,10,00,00,00,00
  27. 270 DATA 30,06,01,56,11,00,00,00,00
  28. 280 DATA 57,00,00,56,12,00,00,00,00
  29. 290 REM
  30. 300 REM - 10
  31. 310 DATA 16,04,00,49,05,00,00,00,00
  32. 320 DATA 30,14,02,49,06,00,00,00,00
  33. 330 DATA 30,18,12,49,07,00,00,00,00
  34. 340 DATA 23,14,00,49,08,00,00,00,00
  35. 350 DATA 23,07,00,49,09,00,00,00,00
  36. 360 DATA 14,07,00,49,10,00,00,00,00
  37. 370 DATA 30,07,01,49,11,00,00,00,00
  38. 380 DATA 50,00,00,49,12,00,00,00,00
  39. 390 REM
  40. 400 REM - 18
  41. 410 DATA 29,04,00,54,05,00,00,00,00
  42. 420 DATA 02,15,14,54,06,00,00,00,00
  43. 430 DATA 30,12,18,54,07,00,00,00,00
  44. 440 DATA 14,14,00,54,08,00,00,00,00
  45. 450 DATA 23,08,00,54,09,00,00,00,00
  46. 460 DATA 14,08,00,54,10,00,00,00,00
  47. 470 DATA 30,08,01,54,11,00,00,00,00
  48. 480 DATA 55,00,00,54,12,00,00,00,00
  49. 490 REM
  50. 500 REM - 20
  51. 510 DATA 29,41,04,63,05,00,00,00,00
  52. 520 DATA 30,15,02,63,06,00,00,00,00
  53. 530 DATA 30,03,15,63,07,00,00,00,00
  54. 540 DATA 23,15,00,63,08,00,00,00,00
  55. 550 DATA 23,09,00,63,09,00,00,00,00
  56. 560 DATA 14,09,00,63,10,00,00,00,00
  57. 570 DATA 30,09,01,63,11,00,00,00,00
  58. 580 DATA 13,00,00,63,12,00,00,00,00
  59. 590 REM
  60. 600 REM - 28
  61. 610 DATA 29,42,04,64,05,00,00,00,00
  62. 620 DATA 02,15,15,64,06,00,00,00,00
  63. 630 DATA 30,15,03,64,07,00,00,00,00
  64. 640 DATA 14,15,00,64,08,00,00,00,00
  65. 650 DATA 23,10,00,64,09,00,00,00,00
  66. 660 DATA 14,10,00,64,10,00,00,00,00
  67. 670 DATA 30,10,01,64,11,00,00,00,00
  68. 680 DATA 12,00,00,64,12,00,00,00,00
  69. 690 REM
  70. 700 REM - 30
  71. 710 DATA 29,43,04,00,00,00,00,00,00
  72. 720 DATA 30,16,02,00,00,00,00,00,00
  73. 730 DATA 30,03,12,00,00,00,00,00,00
  74. 740 DATA 23,16,00,00,00,00,00,00,00
  75. 750 DATA 23,11,00,00,00,00,00,00,00
  76. 760 DATA 14,11,00,00,00,00,00,00,00
  77. 770 DATA 30,11,01,00,00,00,00,00,00
  78. 780 DATA 61,00,00,00,00,00,00,00,00
  79. 790 REM
  80. 800 REM - 38
  81. 810 DATA 29,44,04,65,05,00,00,00,00
  82. 820 DATA 02,15,16,65,06,00,00,00,00
  83. 830 DATA 30,12,03,65,07,00,00,00,00
  84. 840 DATA 14,16,00,65,08,00,00,00,00
  85. 850 DATA 23,12,00,65,09,00,00,00,00
  86. 860 DATA 14,12,00,65,10,00,00,00,00
  87. 870 DATA 30,12,01,65,11,00,00,00,00
  88. 880 DATA 06,00,00,65,12,00,00,00,00
  89. 890 REM
  90. 900 REM - 40
  91. 910 DATA 30,05,05,04,25,05,22,05,23
  92. 920 DATA 30,05,06,04,25,06,40,23,05
  93. 930 DATA 30,05,07,04,25,07,60,15,13
  94. 940 DATA 30,05,08,04,25,08,30,03,13
  95. 950 DATA 30,05,09,04,25,09,35,00,00
  96. 960 DATA 30,05,10,04,25,10,48,00,00
  97. 970 DATA 30,05,11,04,25,11,21,25,00
  98. 980 DATA 30,05,12,04,25,12,30,19,12
  99. 990 REM
  100. 1000 REM - 48
  101. 1010 DATA 30,06,05,04,26,05,22,06,23
  102. 1020 DATA 30,06,06,04,26,06,40,23,06
  103. 1030 DATA 30,06,07,04,26,07,01,15,13
  104. 1040 DATA 30,06,08,04,26,08,30,13,03
  105. 1050 DATA 30,06,09,04,26,09,00,00,00
  106. 1060 DATA 30,06,10,04,26,10,47,00,00
  107. 1070 DATA 30,06,11,04,26,11,00,00,00
  108. 1080 DATA 30,06,12,04,26,12,30,20,12
  109. 1090 REM
  110. 1100 REM - 50
  111. 1110 DATA 30,07,05,04,27,05,22,07,23
  112. 1120 DATA 30,07,06,04,27,06,40,23,07
  113. 1130 DATA 30,07,07,04,27,07,60,15,14
  114. 1140 DATA 30,07,08,04,27,08,30,03,14
  115. 1150 DATA 30,07,09,04,27,09,00,00,00
  116. 1160 DATA 30,07,10,04,27,10,00,00,00
  117. 1170 DATA 30,07,11,04,27,11,21,26,00
  118. 1180 DATA 30,07,12,04,27,12,30,12,19
  119. 1190 REM
  120. 1200 REM - 58
  121. 1210 DATA 30,08,05,04,28,05,22,08,23
  122. 1220 DATA 30,08,06,04,28,06,40,23,08
  123. 1230 DATA 30,08,07,04,28,07,01,15,14
  124. 1240 DATA 30,08,08,04,28,08,30,14,03
  125. 1250 DATA 30,08,09,04,28,09,00,00,00
  126. 1260 DATA 30,08,10,04,28,10,00,00,00
  127. 1270 DATA 30,08,11,04,28,11,21,27,00
  128. 1280 DATA 30,08,12,04,28,12,30,12,20
  129. 1290 REM
  130. 1300 REM - 60
  131. 1310 DATA 30,09,05,04,29,05,22,09,23
  132. 1320 DATA 30,09,06,04,29,06,40,23,09
  133. 1330 DATA 30,09,07,04,29,07,60,15,15
  134. 1340 DATA 30,09,08,04,29,08,00,00,00
  135. 1350 DATA 30,09,09,04,29,09,00,00,00
  136. 1360 DATA 30,09,10,04,29,10,00,00,00
  137. 1370 DATA 30,09,11,04,29,11,00,00,00
  138. 1380 DATA 30,09,12,04,29,12,58,00,00
  139. 1390 REM
  140. 1400 REM - 68
  141. 1410 DATA 30,10,05,04,30,05,22,10,23
  142. 1420 DATA 30,10,06,04,30,06,40,23,10
  143. 1430 DATA 30,10,07,04,30,07,01,15,15
  144. 1440 DATA 30,10,08,04,30,08,00,00,00
  145. 1450 DATA 30,10,09,04,30,09,00,00,00
  146. 1460 DATA 30,10,10,04,30,10,00,00,00
  147. 1470 DATA 30,10,11,04,30,11,00,00,00
  148. 1480 DATA 30,10,12,04,30,12,53,00,00
  149. 1490 REM
  150. 1500 REM - 70
  151. 1510 DATA 30,11,05,04,31,05,00,00,00
  152. 1520 DATA 30,11,06,04,31,06,00,00,00
  153. 1530 DATA 30,11,07,04,31,07,60,15,16
  154. 1540 DATA 30,11,08,04,31,08,30,03,16
  155. 1550 DATA 30,11,09,04,31,09,00,00,00
  156. 1560 DATA 30,11,10,04,31,10,00,00,00
  157. 1570 DATA 20,00,00,04,31,11,00,00,00
  158. 1580 DATA 30,11,12,04,31,12,00,00,00
  159. 1590 REM
  160. 1600 REM - 78
  161. 1610 DATA 30,12,05,04,32,05,22,12,23
  162. 1620 DATA 30,12,06,04,32,06,40,23,12
  163. 1630 DATA 30,12,07,04,32,07,01,15,16
  164. 1640 DATA 30,12,08,04,32,08,30,16,03
  165. 1650 DATA 30,12,09,04,32,09,00,00,00
  166. 1660 DATA 30,12,10,04,32,10,00,00,00
  167. 1670 DATA 30,12,11,04,32,11,00,00,00
  168. 1680 DATA 30,12,12,04,32,12,00,00,00
  169. 1690 REM
  170. 1700 REM - 80
  171. 1710 DATA 02,12,05,45,25,05,00,00,00
  172. 1720 DATA 02,12,06,45,25,06,00,00,00
  173. 1730 DATA 02,12,07,45,25,07,00,00,00
  174. 1740 DATA 02,12,08,45,25,08,00,00,00
  175. 1750 DATA 02,12,09,45,25,09,00,00,00
  176. 1760 DATA 02,12,10,45,25,10,00,00,00
  177. 1770 DATA 02,12,11,45,25,11,00,00,00
  178. 1780 DATA 02,12,12,45,25,12,00,00,00
  179. 1790 REM
  180. 1800 REM - 88
  181. 1810 DATA 01,12,05,45,26,05,00,00,00
  182. 1820 DATA 01,12,06,45,26,06,00,00,00
  183. 1830 DATA 01,12,07,45,26,07,00,00,00
  184. 1840 DATA 01,12,08,45,26,08,00,00,00
  185. 1850 DATA 01,12,09,45,26,09,00,00,00
  186. 1860 DATA 01,12,10,45,26,10,00,00,00
  187. 1870 DATA 01,12,11,45,26,11,00,00,00
  188. 1880 DATA 01,12,12,45,26,12,00,00,00
  189. 1890 REM
  190. 1900 REM - 90
  191. 1910 DATA 66,05,00,45,27,05,00,00,00
  192. 1920 DATA 66,06,00,45,27,06,00,00,00
  193. 1930 DATA 66,07,00,45,27,07,00,00,00
  194. 1940 DATA 66,08,00,45,27,08,00,00,00
  195. 1950 DATA 66,09,00,45,27,09,00,00,00
  196. 1960 DATA 66,10,00,45,27,10,00,00,00
  197. 1970 DATA 66,11,00,45,27,11,00,00,00
  198. 1980 DATA 66,12,00,45,27,12,00,00,00
  199. 1990 REM
  200. 2000 REM - 98
  201. 2010 DATA 60,12,05,45,28,05,00,00,00
  202. 2020 DATA 60,12,06,45,28,06,00,00,00
  203. 2030 DATA 60,12,07,45,28,07,00,00,00
  204. 2040 DATA 60,12,08,45,28,08,00,00,00
  205. 2050 DATA 60,12,09,45,28,09,00,00,00
  206. 2060 DATA 60,12,10,45,28,10,00,00,00
  207. 2070 DATA 60,12,11,45,28,11,00,00,00
  208. 2080 DATA 60,12,12,45,28,12,00,00,00
  209. 2090 REM
  210. 2100 REM - A0
  211. 2110 DATA 03,05,00,45,29,05,33,00,00
  212. 2120 DATA 03,06,00,45,29,06,10,00,00
  213. 2130 DATA 03,07,00,45,29,07,26,00,00
  214. 2140 DATA 03,08,00,45,29,08,42,00,00
  215. 2150 DATA 03,09,00,45,29,09,00,00,00
  216. 2160 DATA 03,10,00,45,29,10,00,00,00
  217. 2170 DATA 03,11,00,45,29,11,00,00,00
  218. 2180 DATA 03,12,00,45,29,12,00,00,00
  219. 2190 REM
  220. 2200 REM - A8
  221. 2210 DATA 67,05,00,45,30,05,31,00,00
  222. 2220 DATA 67,06,00,45,30,06,08,00,00
  223. 2230 DATA 67,07,00,45,30,07,24,00,00
  224. 2240 DATA 67,08,00,45,30,08,41,00,00
  225. 2250 DATA 67,09,00,45,30,09,00,00,00
  226. 2260 DATA 67,10,00,45,30,10,00,00,00
  227. 2270 DATA 67,11,00,45,30,11,00,00,00
  228. 2280 DATA 67,12,00,45,30,12,00,00,00
  229. 2290 REM
  230. 2300 REM - B0
  231. 2310 DATA 37,05,00,45,31,05,34,00,00
  232. 2320 DATA 37,06,00,45,31,06,11,00,00
  233. 2330 DATA 37,07,00,45,31,07,27,00,00
  234. 2340 DATA 37,08,00,45,31,08,39,00,00
  235. 2350 DATA 37,09,00,45,31,09,00,00,00
  236. 2360 DATA 37,10,00,45,31,10,00,00,00
  237. 2370 DATA 37,11,00,45,31,11,00,00,00
  238. 2380 DATA 37,12,00,45,31,12,00,00,00
  239. 2390 REM
  240. 2400 REM - B8
  241. 2410 DATA 07,05,00,45,32,05,32,00,00
  242. 2420 DATA 07,06,00,45,32,06,09,00,00
  243. 2430 DATA 07,07,00,45,32,07,25,00,00
  244. 2440 DATA 07,08,00,45,32,08,38,00,00
  245. 2450 DATA 07,09,00,45,32,09,00,00,00
  246. 2460 DATA 07,10,00,45,32,10,00,00,00
  247. 2470 DATA 07,11,00,45,32,11,00,00,00
  248. 2480 DATA 07,12,00,45,32,12,00,00,00
  249. 2490 REM
  250. 2500 REM - C0
  251. 2510 DATA 46,41,00,62,25,05,00,00,00
  252. 2520 DATA 43,13,00,62,25,06,00,00,00
  253. 2530 DATA 28,41,02,62,25,07,00,00,00
  254. 2540 DATA 28,02,00,62,25,08,00,00,00
  255. 2550 DATA 05,41,02,62,25,09,00,00,00
  256. 2560 DATA 44,13,00,62,25,10,00,00,00
  257. 2570 DATA 02,12,01,62,25,11,00,00,00
  258. 2580 DATA 59,33,00,62,25,12,00,00,00
  259. 2590 REM
  260. 2600 REM - C8
  261. 2610 DATA 46,42,00,62,26,05,00,00,00
  262. 2620 DATA 46,00,00,62,26,06,00,00,00
  263. 2630 DATA 28,42,02,62,26,07,00,00,00
  264. 2640 DATA 00,00,00,62,26,08,00,00,00
  265. 2650 DATA 05,42,02,62,26,09,00,00,00
  266. 2660 DATA 05,02,00,62,26,10,00,00,00
  267. 2670 DATA 01,12,01,62,26,11,00,00,00
  268. 2680 DATA 59,34,00,62,26,12,00,00,00
  269. 2690 REM
  270. 2700 REM - D0
  271. 2710 DATA 46,43,00,62,27,05,00,00,00
  272. 2720 DATA 43,14,00,62,27,06,00,00,00
  273. 2730 DATA 28,43,02,62,27,07,00,00,00
  274. 2740 DATA 40,01,12,62,27,08,00,00,00
  275. 2750 DATA 05,43,02,62,27,09,00,00,00
  276. 2760 DATA 44,14,00,62,27,10,00,00,00
  277. 2770 DATA 66,01,00,62,27,11,00,00,00
  278. 2780 DATA 59,35,00,62,27,12,00,00,00
  279. 2790 REM
  280. 2800 REM - D8
  281. 2810 DATA 46,44,00,62,28,05,00,00,00
  282. 2820 DATA 19,00,00,62,28,06,00,00,00
  283. 2830 DATA 28,44,02,62,28,07,00,00,00
  284. 2840 DATA 22,12,01,62,28,08,00,00,00
  285. 2850 DATA 05,44,02,62,28,09,00,00,00
  286. 2860 DATA 00,00,00,62,28,10,00,00,00
  287. 2870 DATA 60,12,01,62,28,11,00,00,00
  288. 2880 DATA 59,36,00,62,28,12,00,00,00
  289. 2890 REM
  290. 2900 REM - E0
  291. 2910 DATA 46,45,00,62,29,05,00,00,00
  292. 2920 DATA 43,15,00,62,29,06,00,00,00
  293. 2930 DATA 28,45,02,62,29,07,00,00,00
  294. 2940 DATA 18,24,15,62,29,08,00,00,00
  295. 2950 DATA 05,45,02,62,29,09,00,00,00
  296. 2960 DATA 44,15,00,62,29,10,00,00,00
  297. 2970 DATA 03,01,00,62,29,11,00,00,00
  298. 2980 DATA 59,37,00,62,29,12,00,00,00
  299. 2990 REM
  300. 3000 REM - E8
  301. 3010 DATA 46,46,00,62,30,05,00,00,00
  302. 3020 DATA 28,11,00,62,30,06,00,00,00
  303. 3030 DATA 28,46,02,62,30,07,00,00,00
  304. 3040 DATA 18,14,15,62,30,08,00,00,00
  305. 3050 DATA 05,46,02,62,30,09,00,00,00
  306. 3060 DATA 00,00,00,62,30,10,00,00,00
  307. 3070 DATA 67,01,00,62,30,11,00,00,00
  308. 3080 DATA 59,38,00,62,30,12,00,00,00
  309. 3090 REM
  310. 3100 REM - F0
  311. 3110 DATA 46,47,00,62,31,05,00,00,00
  312. 3120 DATA 43,22,00,62,31,06,00,00,00
  313. 3130 DATA 28,47,02,62,31,07,00,00,00
  314. 3140 DATA 15,00,00,62,31,08,00,00,00
  315. 3150 DATA 05,47,02,62,31,09,00,00,00
  316. 3160 DATA 44,22,00,62,31,10,00,00,00
  317. 3170 DATA 37,01,00,62,31,11,00,00,00
  318. 3180 DATA 59,39,00,62,31,12,00,00,00
  319. 3190 REM
  320. 3200 REM - F8
  321. 3210 DATA 46,48,00,62,32,05,00,00,00
  322. 3220 DATA 30,16,15,62,32,06,00,00,00
  323. 3230 DATA 28,48,02,62,32,07,00,00,00
  324. 3240 DATA 17,00,00,62,32,08,00,00,00
  325. 3250 DATA 05,48,02,62,32,09,00,00,00
  326. 3260 DATA 00,00,00,62,32,10,00,00,00
  327. 3270 DATA 07,01,00,62,32,11,00,00,00
  328. 3280 DATA 59,40,00,62,32,12,00,00,00
  329. 3290 RESTORE
  330. 3300 OPEN "R",1,"ZILOG.TAB",9
  331. 3310 FIELD #1,9 AS Z
  332. 3320 FOR A=0 TO 255
  333. 3330 Y=""
  334. 3340 FOR B=1 TO 9
  335. 3350 READ C
  336. 3360 Y=Y+CHR$(C)
  337. 3370 NEXT B
  338. 3380 LSET Z=Y
  339. 3390 PUT 1
  340. 3400 NEXT A
  341. 3410 CLOSE
  342. 3420 PRINT"END OF TABLE LOAD"
  343.