home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1985 / 08 / pr.bas < prev    next >
BASIC Source File  |  1986-02-14  |  17KB  |  248 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE pr.COM
  2. 110 OPEN "pr.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  228 
  6. 150    LINESUM% = 0
  7. 160    FOR J% = 1 TO 8
  8. 170       READ BYTE%
  9. 180       CHECKSUM = CHECKSUM + BYTE%
  10. 190       LINESUM% = LINESUM% + BYTE%
  11. 200       IF (BYTE% < 256) THEN LSET A$ = CHR$(BYTE%)
  12. 210       PUT #1
  13. 220    NEXT J%
  14. 230    READ LINECHECK%
  15. 240    IF LINECHECK% <> LINESUM% THEN PRINT "Error in Line";280 + 10 * I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 98949 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   161,     4,    80,    82,   105,   110,   116,   891
  21. 300 DATA     32,    40,    67,    41,    32,    49,    57,    56,   374
  22. 310 DATA     53,    44,    32,    68,   105,    99,   107,   105,   613
  23. 320 DATA    110,   115,   111,   110,    32,    65,   115,   115,   773
  24. 330 DATA    111,    99,   105,    97,   116,   101,   115,    32,   776
  25. 340 DATA     73,   110,    99,    46,    13,    10,    36,    47,   434
  26. 350 DATA     97,    98,    99,   100,   101,   102,   103,   104,   804
  27. 360 DATA    105,   106,   107,   108,   109,   110,   111,   112,   868
  28. 370 DATA    113,   114,   115,   116,   117,   118,   119,   120,   932
  29. 380 DATA    121,   122,    44,    59,    61,     9,    92,    65,   573
  30. 390 DATA     66,    67,    68,    69,    70,    71,    72,    73,   556
  31. 400 DATA     74,    75,    76,    77,    78,    79,    80,    81,   620
  32. 410 DATA     82,    83,    84,    85,    86,    87,    88,    89,   684
  33. 420 DATA     90,    32,    32,    32,    32,     0,     0,     0,   218
  34. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  35. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 460 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 470 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  39. 480 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  40. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  41. 500 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  43. 520 DATA      0,     0,   109,     1,     0,     0,     0,     0,   110
  44. 530 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 540 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  46. 550 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  47. 560 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  48. 570 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  49. 580 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  50. 590 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 600 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 610 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  53. 620 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 630 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  55. 640 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  56. 650 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  57. 660 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  58. 670 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  59. 680 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  60. 690 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  61. 700 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  62. 710 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  63. 720 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  64. 730 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 740 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  66. 750 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  67. 760 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  68. 770 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  69. 780 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  70. 790 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  71. 800 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  72. 810 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  73. 820 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  74. 830 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  75. 840 DATA      0,     0,     0,     0,     0,     0,     0,   190,   190
  76. 850 DATA      1,     0,     0,     0,     0,     0,     0,     0,     1
  77. 860 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  78. 870 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  79. 880 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  80. 890 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  81. 900 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  82. 910 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  83. 920 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  84. 930 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  85. 940 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  86. 950 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  87. 960 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  88. 970 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  89. 980 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  90. 990 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  91. 1000 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  92. 1010 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  93. 1020 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  94. 1030 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  95. 1040 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  96. 1050 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  97. 1060 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  98. 1070 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  99. 1080 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  100. 1090 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  101. 1100 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  102. 1110 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  103. 1120 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  104. 1130 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  105. 1140 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  106. 1150 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  107. 1160 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  108. 1170 DATA     0,   193,     2,     0,     0,     0,     0,     0,   195
  109. 1180 DATA    10,    13,    10,    13,    10,    42,    45,    45,   188
  110. 1190 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  111. 1200 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  112. 1210 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  113. 1220 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  114. 1230 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  115. 1240 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  116. 1250 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  117. 1260 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  118. 1270 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  119. 1280 DATA    45,    45,    45,    45,    42,    13,    10,   124,   369
  120. 1290 DATA    32,    32,    70,   105,   108,   101,    58,    32,   538
  121. 1300 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  122. 1310 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  123. 1320 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  124. 1330 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  125. 1340 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  126. 1350 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  127. 1360 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  128. 1370 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  129. 1380 DATA    32,    32,    32,    32,    32,    32,   124,    13,   329
  130. 1390 DATA    10,   124,    32,    83,    97,   118,   101,   100,   665
  131. 1400 DATA    58,    32,    48,    48,    45,    48,    48,    45,   372
  132. 1410 DATA    48,    48,    32,    97,   116,    32,    48,    48,   469
  133. 1420 DATA    58,    48,    48,    58,    48,    48,    32,    48,   388
  134. 1430 DATA   109,    32,    32,    32,    32,    32,    32,    32,   333
  135. 1440 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  136. 1450 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  137. 1460 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  138. 1470 DATA    32,    32,    32,    32,    32,    32,    32,    32,   256
  139. 1480 DATA    80,    97,   103,   101,    32,    48,    48,    32,   541
  140. 1490 DATA   124,    13,    10,    42,    45,    45,    45,    45,   369
  141. 1500 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  142. 1510 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  143. 1520 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  144. 1530 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  145. 1540 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  146. 1550 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  147. 1560 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  148. 1570 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  149. 1580 DATA    45,    45,    45,    45,    45,    45,    45,    45,   360
  150. 1590 DATA    45,    45,    42,    13,    10,    13,    10,    78,   256
  151. 1600 DATA     1,    10,    13,    80,    82,   105,   110,   116,   517
  152. 1610 DATA    32,    69,   114,   114,   111,   114,    32,    45,   631
  153. 1620 DATA    32,    36,    67,   111,   114,   114,   101,    99,   674
  154. 1630 DATA   116,    32,    83,   121,   110,   116,    97,   120,   795
  155. 1640 DATA    32,   105,   115,    58,    13,    10,    10,    80,   423
  156. 1650 DATA    82,    32,    91,   100,    58,    93,    91,   112,   659
  157. 1660 DATA    97,   116,   104,    93,   102,   105,   108,   101,   826
  158. 1670 DATA   110,    97,   109,   101,    91,    46,   101,   120,   775
  159. 1680 DATA   116,    93,    36,    70,   105,   108,   101,    32,   661
  160. 1690 DATA    78,   111,   116,    32,    70,   111,   117,   110,   745
  161. 1700 DATA   100,    36,    70,   105,   108,   101,    32,    79,   631
  162. 1710 DATA   112,   101,   110,    32,    70,    97,   105,   108,   735
  163. 1720 DATA   117,   114,   101,    36,    70,   105,   108,   101,   752
  164. 1730 DATA    32,    82,   101,    97,   100,    32,    70,    97,   611
  165. 1740 DATA   105,   108,   117,   114,   101,    36,    10,    10,   601
  166. 1750 DATA    13,    32,    46,    32,    46,    32,    46,    32,   279
  167. 1760 DATA    65,    98,   111,   114,   116,   105,   110,   103,   822
  168. 1770 DATA    10,    13,    13,    36,   141,    22,     3,     1,   239
  169. 1780 DATA   180,     9,   205,    33,   190,   128,     0,   141,   886
  170. 1790 DATA    62,   109,     1,   138,    12,    50,   237,   227,   836
  171. 1800 DATA    63,   252,    70,   186,     0,     0,   172,    87,   830
  172. 1810 DATA   191,    47,     1,    81,   185,    32,     0,   242,   779
  173. 1820 DATA   174,   227,     9,   187,    32,     0,    43,   217,   889
  174. 1830 DATA   138,   135,    77,     1,    89,    95,   131,   250,   916
  175. 1840 DATA     1,   116,     4,    60,    32,   116,    20,   186,   535
  176. 1850 DATA     1,     0,    60,    58,   116,     4,    60,    92,   391
  177. 1860 DATA   117,     8,   137,    62,   186,     1,   255,     6,   772
  178. 1870 DATA   186,     1,   170,   226,   201,   235,     8,   144,  1171
  179. 1880 DATA   141,    22,    42,     5,   235,   114,   144,   180,   883
  180. 1890 DATA    78,   185,     0,     0,   141,    22,   109,     1,   536
  181. 1900 DATA   205,    33,   115,     7,   141,    22,    91,     5,   619
  182. 1910 DATA   235,    94,   144,   198,     6,   195,     3,     0,   875
  183. 1920 DATA   198,     6,   199,     3,     0,   199,     6,   188,   799
  184. 1930 DATA     1,     0,     0,   139,    62,   186,     1,   190,   579
  185. 1940 DATA   158,     0,   185,    13,     0,   243,   164,   180,   943
  186. 1950 DATA    61,   176,     0,   141,    22,   109,     1,   205,   715
  187. 1960 DATA    33,   163,   188,     1,   115,     7,   141,    22,   670
  188. 1970 DATA   106,     5,   235,    44,   144,   232,    49,     1,   816
  189. 1980 DATA   232,     0,     1,   139,    62,   193,     3,   232,   862
  190. 1990 DATA    55,     0,   114,    28,   227,    10,   232,    84,   750
  191. 2000 DATA     0,   128,    62,   195,     3,     0,   116,   239,   743
  192. 2010 DATA   232,   212,     0,   232,   165,     1,   180,    79,  1101
  193. 2020 DATA   185,     0,     0,   205,    33,   115,   164,   195,   897
  194. 2030 DATA    82,   186,    25,     5,   180,     9,   205,    33,   725
  195. 2040 DATA    90,   180,     9,   205,    33,   186,   142,     5,   850
  196. 2050 DATA   180,     9,   205,    33,   232,   132,     1,   235,  1027
  197. 2060 DATA   230,   139,    30,   188,     1,   139,    22,   191,   940
  198. 2070 DATA     2,   185,     0,     1,   180,    63,   205,    33,   669
  199. 2080 DATA   115,     7,   141,    22,   124,     5,   235,    12,   661
  200. 2090 DATA   144,    59,   200,   116,     5,   198,     6,   195,   923
  201. 2100 DATA     3,     1,   139,   200,   195,   139,    54,   191,   922
  202. 2110 DATA     2,   128,    62,   198,     3,    55,   114,     6,   568
  203. 2120 DATA   232,   124,     0,   232,   141,     0,   172,    60,   961
  204. 2130 DATA    26,   116,    79,    60,     9,   117,    18,   176,   601
  205. 2140 DATA    32,   170,   255,     6,   196,     3,   247,     6,   915
  206. 2150 DATA   196,     3,     7,     0,   117,   243,   235,    33,   834
  207. 2160 DATA   144,   170,   255,     6,   196,     3,    60,    13,   847
  208. 2170 DATA   116,    48,    60,    10,   117,     6,   232,    44,   633
  209. 2180 DATA     0,   235,    39,   144,    60,    12,   117,     9,   616
  210. 2190 DATA   232,    68,     0,   232,    85,     0,   235,    26,   878
  211. 2200 DATA   144,   131,    62,   196,     3,    80,   114,    18,   748
  212. 2210 DATA   128,    60,    13,   116,    13,   180,    10,   176,   696
  213. 2220 DATA    13,   171,   131,     6,   196,     3,     2,   232,   754
  214. 2230 DATA     3,     0,   226,   157,   195,    80,    81,   139,   881
  215. 2240 DATA    22,   193,     3,   139,    14,   196,     3,   187,   757
  216. 2250 DATA     4,     0,   180,    64,   205,    33,   139,    62,   687
  217. 2260 DATA   193,     3,   199,     6,   196,     3,     0,     0,   600
  218. 2270 DATA   254,     6,   198,     3,    89,    88,   195,    60,   893
  219. 2280 DATA    12,   116,     7,   176,    12,   170,   255,     6,   754
  220. 2290 DATA   196,     3,   232,   208,   255,   198,     6,   198,  1296
  221. 2300 DATA     3,     0,   195,    87,   254,     6,   199,     3,   747
  222. 2310 DATA   160,   199,     3,   141,    62,   189,     4,   232,   990
  223. 2320 DATA   162,     0,    95,   128,    62,   189,     4,    48,   688
  224. 2330 DATA   117,     5,   198,     6,   189,     4,    32,    81,   632
  225. 2340 DATA   180,    64,   187,     4,     0,   141,    22,   201,   799
  226. 2350 DATA     3,   139,    14,    23,     5,   205,    33,    89,   511
  227. 2360 DATA   195,   141,    54,   109,     1,   141,    62,    40,   743
  228. 2370 DATA     4,   185,    70,     0,   172,    60,     0,   116,   607
  229. 2380 DATA     5,   170,   226,   248,   227,     4,   176,    32,  1088
  230. 2390 DATA   243,   170,   190,   152,     0,   141,    62,   122,  1080
  231. 2400 DATA     4,   173,   139,   216,    37,   224,     1,   177,   971
  232. 2410 DATA     5,   211,   232,   232,    86,     0,   139,   195,  1100
  233. 2420 DATA    37,    31,     0,    71,   232,    77,     0,   139,   587
  234. 2430 DATA   195,    37,     0,   254,   208,   236,   128,   196,  1254
  235. 2440 DATA    80,   138,   196,    71,   232,    61,     0,   190,   968
  236. 2450 DATA   150,     0,   141,    62,   134,     4,   173,   139,   803
  237. 2460 DATA   216,    37,     0,   248,   177,    11,   211,   232,  1132
  238. 2470 DATA   198,     6,   143,     4,    97,    60,    12,   114,   634
  239. 2480 DATA     9,   116,     2,    44,    12,   198,     6,   143,   530
  240. 2490 DATA     4,   112,   232,    23,     0,   139,   195,    37,   742
  241. 2500 DATA   224,     7,   177,     5,   211,   232,    71,   232,  1159
  242. 2510 DATA    10,     0,   139,   195,    37,    31,     0,    71,   483
  243. 2520 DATA   232,     1,     0,   195,   152,   246,    54,   200,  1080
  244. 2530 DATA     3,     4,    48,   170,   128,   196,    48,   138,   735
  245. 2540 DATA   196,   170,   195,   131,    62,   188,     1,     0,   943
  246. 2550 DATA   116,     8,   139,    30,   188,     1,   180,    62,   724
  247. 2560 DATA   205,    33,   195,     0,     0,     0,     0,     0,   433
  248.