home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_16_1987_Transactor_Publishing.d64 / struct.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  150 lines
  1. 100 rem loader for structured basic ext
  2. 105 rem by frank digioia  6/2/86
  3. 110 rem sys 49152 to activate
  4. 115 :
  5. 120 for adr=49152 to 50274:read ml
  6. 125 cs=cs+ml:poke adr,ml:next
  7. 130 if cs<>136922 thenprint"data error"
  8. 135 :
  9. 140 data169, 49,141,  8,  3,169,192,141
  10. 145 data  9,  3,169, 17,160,192, 76, 30
  11. 150 data171, 62, 32, 83, 84, 82, 85, 67
  12. 155 data 84, 85, 82, 69, 68, 32, 67, 79
  13. 160 data 77, 77, 65, 78, 68, 83, 32, 69
  14. 165 data 78, 65, 66, 76, 69, 68, 46, 13
  15. 170 data  0, 32,115,  0, 32, 67,192, 76
  16. 175 data174,167, 76, 59,169, 32,  5,193
  17. 180 data 76,180,192,201, 39,240,243,201
  18. 185 data139,208,  3, 76, 44,193,201,138
  19. 190 data240,235,170, 48, 95,160, 10,140
  20. 195 data186,192,201, 87,208,  8,160,  1
  21. 200 data177,122,201,128,240, 52,169,  0
  22. 205 data141,186,192,170,168,136,200,189
  23. 210 data187,192,240, 64,232,209,122,208
  24. 215 data  2,240,243,202,189,187,192, 16
  25. 220 data  8, 41,127,209,122,240, 19,208
  26. 225 data  8,232,189,187,192,240, 37, 16
  27. 230 data248,232,238,186,192,160,255, 76
  28. 235 data110,192,152, 24,101,122,133,122
  29. 240 data144,  2,230,123,173,186,192, 10
  30. 245 data170,189,235,192, 72,189,234,192
  31. 250 data 72, 76,115,  0, 32,121,  0, 76
  32. 255 data237,167,  0, 82, 69, 80, 69, 65
  33. 260 data212, 85, 78, 84, 73,204, 87, 72
  34. 265 data 73, 76,197, 69, 88, 73,212, 67
  35. 270 data 65, 76,204, 80, 82, 79,195, 69
  36. 275 data 76, 83,197, 69, 68, 73,212, 75
  37. 280 data 73, 76,204, 66, 65, 83, 73, 67
  38. 285 data178,  0,129,193,155,193,217,193
  39. 290 data188,194,237,194,136,195,126,193
  40. 295 data255,192,  4,193,  9,193, 11,194
  41. 300 data169,255,133,129, 96,169, 32,133
  42. 305 data129, 96,169,228,141,  8,  3,169
  43. 310 data167,141,  9,  3,169, 28,160,193
  44. 315 data 76, 30,171, 96, 62, 32, 67, 77
  45. 320 data 68, 83, 32, 68, 73, 83, 65, 66
  46. 325 data 76, 69, 68,  0, 32,115,  0, 32
  47. 330 data158,173, 32,121,  0,201,137,240
  48. 335 data  5,169,167, 32,255,174,165, 97
  49. 340 data208,  7, 32, 99,193,170,208, 22
  50. 345 data 96, 32,121,  0,176,  3, 76,160
  51. 350 data168,165,122, 56,233,  1,133,122
  52. 355 data176,  2,198,123,160,  0,104,104
  53. 360 data108,  8,  3, 32,  6,169, 72, 32
  54. 365 data251,168,104,240, 13,162,  3, 32
  55. 370 data115,  0,221,123,193,208,236,202
  56. 375 data 16,245, 96, 69, 83, 76, 69, 76
  57. 380 data 59,169,169,  3, 32,251,163, 32
  58. 385 data248,168,165,123, 72,165,122, 72
  59. 390 data165, 58, 72,165, 57, 72,169,231
  60. 395 data 72, 76,174,167, 32,138,163,154
  61. 400 data201,231,208, 40, 32,121,  0,240
  62. 405 data 44, 32,158,173,186,138, 24,105
  63. 410 data  5,170,168,165, 97,208, 19,162
  64. 415 data  1,136,185,  1,  1,149,122,185
  65. 420 data255,  0,149, 57,202, 16,242, 76
  66. 425 data174,167,154, 96,169,  0, 44,169
  67. 430 data  1, 44,169,  2, 44,169,  3, 76
  68. 435 data189,195, 32,121,  0,240,246,169
  69. 440 data  3, 32,251,163,165,122,141,185
  70. 445 data194,165,123,141,186,194, 32,158
  71. 450 data173,165, 97,208,  3, 76,101,194
  72. 455 data173,186,194, 72,173,185,194, 72
  73. 460 data165, 58, 72,165, 57, 72,169,235
  74. 465 data 72, 76,174,167, 32,138,163,154
  75. 470 data201,235,208,187, 32,121,  0,208
  76. 475 data185,165,123,141,186,194,165,122
  77. 480 data141,185,194,165, 58,141,188,194
  78. 485 data165, 57,141,187,194,186,138, 24
  79. 490 data105,  5,170,142,183,194,168,162
  80. 495 data  1,136,185,  1,  1,149,122,185
  81. 500 data255,  0,149, 57,202, 16,242, 32
  82. 505 data158,173,165, 97,240,  3, 76,174
  83. 510 data167,174,183,194,154,162,  1,189
  84. 515 data185,194,149,122,189,187,194,149
  85. 520 data 57,202, 16,243, 96,169,  0, 72
  86. 525 data 32,248,168, 32,121,  0,170,240
  87. 530 data 18, 32,115,  0,170,240, 12, 32
  88. 535 data142,195,240, 34, 32,145,195,240
  89. 540 data 35,208,229,160,  2,177,122,208
  90. 545 data  3, 76,210,193,200,177,122,141
  91. 550 data187,194,200,177,122,141,188,194
  92. 555 data 32,251,168, 76,113,194,104,240
  93. 560 data  9, 76,104,194,169,235, 72, 76
  94. 565 data104,194,173,187,194,133, 57,173
  95. 570 data188,194,133, 58, 76,248,168,  0
  96. 575 data  0,  0,  0,  0,  0,104,104,104
  97. 580 data201,129,240, 17,201,141,240, 16
  98. 585 data201,231,240, 12,201,235,240,  8
  99. 590 data169,  4, 76,189,195,169, 19, 44
  100. 595 data169,  6,141,184,194,186,138, 24
  101. 600 data109,184,194,170,154, 32,121,  0
  102. 605 data 32,160,168, 76,174,167,169,  3
  103. 610 data 32,251,163,165,123, 72,165,122
  104. 615 data 72,165, 58, 72,165, 57, 72,169
  105. 620 data141, 72, 32, 24,195,162,  1,181
  106. 625 data251,149,122,181, 97,149, 57,202
  107. 630 data 16,245, 32,248,168, 76,174,167
  108. 635 data165, 43,133,253,165, 44,133,254
  109. 640 data165,253,133,251,165,254,133,252
  110. 645 data160,  1,177,251,208,  5,169,  5
  111. 650 data 76,189,195,133,254,136,177,251
  112. 655 data133,253,160,  4,177,251, 32,159
  113. 660 data195,208,221,160,  3,177,251,133
  114. 665 data 98,136,177,251,133, 97,160,  7
  115. 670 data200,177,251,201, 32,240,249,152
  116. 675 data 24,101,251,133,251,144,  2,230
  117. 680 data252,160,255,200,177,122,240, 24
  118. 685 data201, 58,240, 20,201, 32,208,  9
  119. 690 data230,122,208,  2,230,123, 76,100
  120. 695 data195,209,251,240,230, 76, 32,195
  121. 700 data177,251,240,  4,201, 58,208,152
  122. 705 data 96,169,  6, 76,189,195,162,  4
  123. 710 data 44,162,  7,164,122,132,251,164
  124. 715 data123,132,252,160,255,208,  4,162
  125. 720 data255,160,  3,200,232,189,175,195
  126. 725 data240,  4,209,251,240,245, 96, 80
  127. 730 data 82, 79, 67,  0, 87,128,  0, 87
  128. 735 data 72, 73, 76, 69,  0, 10,170,189
  129. 740 data202,195,133, 34,189,203,195, 76
  130. 745 data 69,164,216,195,236,195,254,195
  131. 750 data 16,196, 42,196, 62,196, 81,196
  132. 755 data 85, 78, 84, 73, 76, 32, 87, 73
  133. 760 data 84, 72, 79, 85, 84, 32, 82, 69
  134. 765 data 80, 69, 65,212, 87, 69, 78, 68
  135. 770 data 32, 87, 73, 84, 72, 79, 85, 84
  136. 775 data 32, 87, 72, 73, 76,197, 87, 72
  137. 780 data 73, 76, 69, 32, 87, 73, 84, 72
  138. 785 data 79, 85, 84, 32, 87, 69, 78,196
  139. 790 data 77, 73, 83, 83, 73, 78, 71, 32
  140. 795 data 76, 79, 71, 73, 67, 65, 76, 32
  141. 800 data 69, 88, 80, 82, 69, 83, 83, 73
  142. 805 data 79,206, 78, 79, 32, 83, 84, 82
  143. 810 data 85, 67, 84, 85, 82, 69, 32, 84
  144. 815 data 79, 32, 69, 88, 73,212, 80, 82
  145. 820 data 79, 67, 69, 68, 85, 82, 69, 32
  146. 825 data 78, 79, 84, 32, 70, 79, 85, 78
  147. 830 data196, 80, 82, 79, 67, 32, 87, 73
  148. 835 data 84, 72, 79, 85, 84, 32, 67, 65
  149. 840 data 76,204,  0
  150.