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