home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / editwedge (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  128 lines
  1. 110 print"[147] verifying data statements...":ln=1000
  2. 120 for x=1 to 111:ca=0:ln=ln+10
  3. 130 for y=1 to 12:read byte
  4. 140 ca=ca+byte:next y
  5. 150 read cs:if ca<>cs thenprint"data statement error at line ";ln:end
  6. 160 next x
  7. 200 restore:print"[147]";:a=49152
  8. 210 for x=1 to 16:print"";:next:print"_";
  9. 250 for x=1 to 111
  10. 260 for y=1 to 12:read byte
  11. 270 poke a,byte:a=a+1
  12. 280 if t=1 then t=0:goto 290
  13. 285 print"[166]";:t=1
  14. 290 next y:read cs
  15. 300 next x
  16. 310 sys 49152:end
  17. 1010 data  32, 118, 192, 165, 125, 201, 243, 208, 15, 169, 76, 141, 1685
  18. 1020 data  41, 192, 169, 243, 141, 42, 192, 169, 204, 141, 43, 192, 1769
  19. 1030 data  169, 76, 133, 124, 169, 37, 133, 125, 169, 192, 133, 126, 1586
  20. 1040 data  96, 201, 255, 240, 10, 201, 58, 176, 3, 76, 128, 0, 1444
  21. 1050 data  76, 138, 0, 32, 118, 192, 32, 159, 255, 32, 228, 255, 1517
  22. 1060 data  201, 0, 240, 246, 201, 133, 208, 3, 76, 97, 193, 201, 1799
  23. 1070 data  137, 208, 3, 76, 226, 194, 201, 134, 208, 3, 76, 232, 1698
  24. 1080 data  195, 201, 138, 208, 3, 76, 56, 196, 201, 135, 208, 3, 1620
  25. 1090 data  76, 210, 196, 201, 139, 208, 207, 169, 201, 133, 124, 169, 2033
  26. 1100 data  58, 133, 125, 169, 176, 133, 126, 76, 134, 227, 162, 0, 1519
  27. 1110 data  189, 132, 192, 32, 210, 255, 232, 224, 219, 208, 245, 96, 2234
  28. 1120 data  13, 13, 32, 32, 32, 32, 69, 68, 73, 84, 47, 87, 582
  29. 1130 data  69, 68, 71, 69, 32, 40, 67, 41, 32, 49, 57, 56, 651
  30. 1140 data  53, 32, 77, 73, 75, 69, 32, 76, 69, 73, 68, 69, 766
  31. 1150 data  76, 13, 13, 32, 32, 32, 32, 32, 32, 32, 32, 83, 441
  32. 1160 data  72, 73, 70, 84, 32, 94, 32, 40, 82, 69, 84, 85, 817
  33. 1170 data  82, 78, 41, 32, 84, 79, 32, 69, 78, 84, 69, 82, 810
  34. 1180 data  13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 49, 32, 420
  35. 1190 data  32, 61, 32, 83, 69, 65, 82, 67, 72, 13, 32, 32, 640
  36. 1200 data  32, 32, 32, 32, 32, 32, 70, 50, 32, 32, 61, 32, 469
  37. 1210 data  76, 73, 78, 69, 32, 78, 85, 77, 66, 69, 82, 83, 868
  38. 1220 data  13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 51, 32, 422
  39. 1230 data  32, 61, 32, 82, 69, 80, 69, 65, 84, 32, 84, 79, 769
  40. 1240 data  71, 71, 76, 69, 13, 32, 32, 32, 32, 32, 32, 32, 524
  41. 1250 data  32, 70, 52, 32, 32, 61, 32, 67, 79, 76, 79, 82, 694
  42. 1260 data  83, 13, 32, 32, 32, 32, 32, 32, 32, 32, 70, 53, 475
  43. 1270 data  32, 32, 61, 32, 77, 69, 77, 79, 82, 89, 13, 32, 675
  44. 1280 data  32, 32, 32, 32, 32, 32, 32, 70, 54, 32, 32, 61, 473
  45. 1290 data  32, 68, 69, 76, 73, 78, 75, 32, 87, 69, 68, 71, 798
  46. 1300 data  69, 13, 13, 13, 13, 162, 0, 142, 44, 194, 169, 8, 840
  47. 1310 data  141, 45, 194, 142, 48, 194, 189, 49, 194, 32, 210, 255, 1693
  48. 1320 data  232, 224, 13, 208, 245, 162, 0, 32, 207, 255, 201, 13, 1792
  49. 1330 data  240, 7, 157, 62, 194, 232, 76, 123, 193, 142, 47, 194, 1667
  50. 1340 data  169, 13, 32, 210, 255, 32, 210, 255, 32, 35, 194, 201, 1638
  51. 1350 data  0, 208, 3, 76, 134, 227, 32, 35, 194, 162, 0, 32, 1103
  52. 1360 data  35, 194, 141, 221, 194, 141, 223, 194, 32, 35, 194, 141, 1745
  53. 1370 data  222, 194, 141, 224, 194, 32, 35, 194, 201, 0, 208, 23, 1668
  54. 1380 data  32, 35, 194, 201, 0, 240, 6, 32, 35, 194, 76, 161, 1206
  55. 1390 data  193, 32, 35, 194, 201, 0, 208, 209, 76, 134, 227, 221, 1730
  56. 1400 data  62, 194, 240, 5, 162, 0, 76, 181, 193, 232, 236, 47, 1628
  57. 1410 data  194, 208, 210, 238, 48, 194, 173, 48, 194, 201, 2, 208, 1918
  58. 1420 data  10, 169, 13, 32, 210, 255, 169, 0, 141, 48, 194, 169, 1410
  59. 1430 data  32, 32, 210, 255, 32, 210, 255, 32, 210, 255, 32, 122, 1677
  60. 1440 data  194, 169, 40, 32, 210, 255, 173, 44, 194, 141, 221, 194, 1867
  61. 1450 data  173, 45, 194, 141, 222, 194, 32, 122, 194, 169, 41, 32, 1559
  62. 1460 data  210, 255, 162, 0, 76, 181, 193, 238, 44, 194, 208, 3, 1764
  63. 1470 data  238, 45, 194, 173, 0, 8, 96, 0, 0, 13, 83, 69, 919
  64. 1480 data  65, 82, 67, 72, 32, 70, 79, 82, 63, 32, 32, 32, 708
  65. 1490 data  32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
  66. 1500 data  32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
  67. 1510 data  32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
  68. 1520 data  32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 384
  69. 1530 data  32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 160, 0, 480
  70. 1540 data  140, 225, 194, 162, 0, 173, 221, 194, 56, 249, 213, 194, 2021
  71. 1550 data  141, 221, 194, 173, 222, 194, 200, 249, 213, 194, 144, 8, 2153
  72. 1560 data  141, 222, 194, 232, 136, 76, 129, 194, 136, 173, 221, 194, 2048
  73. 1570 data  121, 213, 194, 141, 221, 194, 138, 208, 7, 44, 225, 194, 1900
  74. 1580 data  48, 7, 16, 10, 162, 128, 142, 225, 194, 9, 48, 32, 1021
  75. 1590 data  210, 255, 200, 200, 192, 8, 144, 191, 173, 221, 194, 9, 1997
  76. 1600 data  48, 32, 210, 255, 173, 223, 194, 141, 221, 194, 173, 224, 2088
  77. 1610 data  194, 141, 222, 194, 96, 16, 39, 232, 3, 100, 0, 10, 1247
  78. 1620 data  0, 0, 0, 0, 0, 0, 169, 13, 32, 210, 255, 162, 841
  79. 1630 data  0, 189, 127, 195, 32, 210, 255, 232, 224, 27, 208, 245, 1944
  80. 1640 data  32, 179, 195, 144, 3, 76, 134, 227, 173, 231, 195, 141, 1730
  81. 1650 data  125, 195, 162, 0, 189, 154, 195, 32, 210, 255, 232, 224, 1973
  82. 1660 data  25, 208, 245, 32, 179, 195, 144, 3, 76, 134, 227, 173, 1641
  83. 1670 data  231, 195, 141, 110, 195, 169, 0, 141, 126, 195, 169, 1, 1673
  84. 1680 data  141, 67, 195, 169, 8, 141, 68, 195, 173, 67, 195, 201, 1620
  85. 1690 data  0, 208, 10, 173, 68, 195, 201, 0, 208, 3, 76, 134, 1276
  86. 1700 data  227, 162, 2, 173, 125, 195, 157, 1, 8, 173, 126, 195, 1544
  87. 1710 data  232, 224, 4, 208, 245, 173, 67, 195, 141, 94, 195, 173, 1951
  88. 1720 data  68, 195, 141, 95, 195, 162, 0, 160, 1, 189, 1, 8, 1215
  89. 1730 data  153, 66, 195, 200, 232, 224, 2, 208, 244, 24, 173, 125, 1846
  90. 1740 data  195, 105, 0, 141, 125, 195, 173, 126, 195, 105, 0, 141, 1501
  91. 1750 data  126, 195, 76, 44, 195, 0, 0, 69, 78, 84, 69, 82, 1018
  92. 1760 data  32, 51, 32, 68, 73, 71, 73, 84, 32, 66, 69, 71, 722
  93. 1770 data  73, 78, 73, 78, 71, 32, 78, 66, 82, 32, 13, 69, 745
  94. 1780 data  78, 84, 69, 82, 32, 51, 32, 68, 73, 71, 73, 84, 797
  95. 1790 data  32, 73, 78, 67, 82, 69, 77, 69, 78, 84, 32, 32, 773
  96. 1800 data  197, 195, 141, 231, 195, 32, 197, 195, 32, 211, 195, 32, 1853
  97. 1810 data  197, 195, 76, 211, 195, 32, 207, 255, 201, 48, 144, 249, 2010
  98. 1820 data  201, 58, 176, 245, 41, 15, 96, 141, 230, 195, 173, 231, 1802
  99. 1830 data  195, 10, 10, 109, 231, 195, 10, 109, 230, 195, 141, 231, 1666
  100. 1840 data  195, 96, 0, 0, 173, 138, 2, 201, 128, 240, 21, 169, 1363
  101. 1850 data  128, 141, 138, 2, 162, 0, 189, 25, 196, 32, 210, 255, 1478
  102. 1860 data  232, 224, 15, 208, 245, 76, 22, 196, 169, 0, 141, 138, 1666
  103. 1870 data  2, 162, 0, 189, 40, 196, 32, 210, 255, 232, 224, 16, 1558
  104. 1880 data  208, 245, 76, 134, 227, 13, 75, 69, 89, 32, 82, 69, 1319
  105. 1890 data  80, 69, 65, 84, 32, 79, 78, 46, 13, 75, 69, 89, 779
  106. 1900 data  32, 82, 69, 80, 69, 65, 84, 32, 79, 70, 70, 46, 778
  107. 1910 data  162, 0, 189, 103, 196, 32, 210, 255, 232, 224, 28, 208, 1839
  108. 1920 data  245, 32, 163, 196, 173, 208, 196, 141, 32, 208, 162, 0, 1756
  109. 1930 data  189, 131, 196, 32, 210, 255, 232, 224, 32, 208, 245, 32, 1986
  110. 1940 data  163, 196, 173, 208, 196, 141, 33, 208, 76, 134, 227, 13, 1768
  111. 1950 data  69, 78, 84, 69, 82, 32, 50, 32, 68, 73, 71, 73, 781
  112. 1960 data  84, 32, 66, 79, 82, 68, 69, 82, 32, 67, 79, 76, 816
  113. 1970 data  79, 82, 32, 13, 69, 78, 84, 69, 82, 32, 50, 32, 702
  114. 1980 data  68, 73, 71, 73, 84, 32, 66, 65, 67, 75, 71, 82, 827
  115. 1990 data  79, 85, 78, 68, 32, 67, 79, 76, 79, 82, 32, 32, 789
  116. 2000 data  175, 196, 141, 208, 196, 32, 175, 196, 76, 189, 196, 32, 1812
  117. 2010 data  207, 255, 201, 48, 144, 249, 201, 58, 176, 245, 41, 15, 1840
  118. 2020 data  96, 141, 209, 196, 173, 208, 196, 10, 10, 109, 208, 196, 1752
  119. 2030 data  10, 109, 209, 196, 141, 208, 196, 96, 0, 0, 169, 0, 1334
  120. 2040 data  141, 44, 194, 169, 8, 141, 45, 194, 32, 35, 194, 201, 1398
  121. 2050 data  0, 208, 249, 32, 35, 194, 201, 0, 208, 242, 32, 35, 1436
  122. 2060 data  194, 201, 0, 208, 235, 56, 169, 0, 237, 44, 194, 141, 1679
  123. 2070 data  221, 194, 169, 160, 237, 45, 194, 141, 222, 194, 162, 0, 1939
  124. 2080 data  189, 21, 197, 32, 210, 255, 232, 224, 10, 208, 245, 32, 1855
  125. 2090 data  122, 194, 76, 134, 227, 13, 77, 69, 77, 79, 82, 89, 1239
  126. 2100 data  32, 61, 32, 232, 208, 237, 224, 7, 176, 6, 32, 210, 1457
  127. 2110 data  255, 232, 208, 246, 32, 202, 194, 240, 186, 201, 32, 240, 2268
  128.