home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1987 / 03 / check.bas < prev    next >
BASIC Source File  |  1987-12-12  |  11KB  |  155 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE CHECK.COM
  2. 110 OPEN "CHECK.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  135 
  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 = 113280 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   105,     1,    32,    67,   111,   112,   121,   782
  21. 300 DATA    114,   105,   103,   104,   116,    32,    49,    57,   680
  22. 310 DATA     56,    54,    32,    90,   105,   102,   102,    45,   586
  23. 320 DATA     68,    97,   118,   105,   115,    32,    80,   117,   732
  24. 330 DATA     98,   108,   105,   115,   104,   105,   110,   103,   848
  25. 340 DATA     32,    67,   111,    46,    32,    80,   114,   111,   593
  26. 350 DATA    103,   114,    97,   109,   109,   101,   100,    32,   765
  27. 360 DATA     98,   121,    32,    74,   101,   102,   102,    32,   662
  28. 370 DATA     80,   114,   111,   115,   105,   115,   101,    77,   818
  29. 380 DATA     69,    77,    79,    82,    89,     0,    70,    73,   539
  30. 390 DATA     76,    69,    83,    73,    90,    69,     0,    86,   546
  31. 400 DATA     73,    68,    69,    79,    67,    65,    82,    68,   571
  32. 410 DATA      0,    77,    79,    68,    69,    76,     0,    56,   425
  33. 420 DATA     48,    56,    55,     0,    56,    48,    50,    56,   369
  34. 430 DATA     55,     0,    70,    73,    76,    69,    70,    79,   492
  35. 440 DATA     85,    78,    68,     0,    70,    73,    76,    69,   519
  36. 450 DATA     84,    69,    88,    84,     0,    68,    73,    83,   549
  37. 460 DATA     75,    83,    80,    65,    67,    69,     0,    86,   525
  38. 470 DATA     73,    68,    69,    79,    77,    79,    68,    69,   582
  39. 480 DATA      0,    84,    73,    77,    69,     0,    68,    65,   436
  40. 490 DATA     89,     0,    77,    79,    78,    84,    72,     0,   479
  41. 500 DATA     86,    69,    82,    83,    73,    79,    78,     0,   550
  42. 510 DATA     75,    69,    89,    66,    79,    65,    82,    68,   593
  43. 520 DATA      0,    75,    69,    89,    80,    82,    69,    83,   547
  44. 530 DATA     83,     0,    42,     3,    28,     3,    49,     3,   211
  45. 540 DATA    146,     3,   137,     3,   128,     3,   192,     2,   614
  46. 550 DATA     56,     3,   155,     3,   243,     2,   199,     4,   665
  47. 560 DATA    199,     4,   179,     2,   198,     2,   116,     4,   704
  48. 570 DATA    235,     2,    73,    66,    77,     0,     0,     0,   453
  49. 580 DATA      0,     0,     0,     0,    56,     5,    72,     5,   138
  50. 590 DATA    200,     5,    72,     6,     0,     0,    13,    10,   306
  51. 600 DATA     73,   110,   118,    97,   108,   105,   100,    32,   743
  52. 610 DATA     75,   101,   121,   119,   111,   114,   100,    13,   754
  53. 620 DATA     10,    36,    13,    10,    77,   105,   115,   115,   481
  54. 630 DATA    105,   110,   103,    32,    80,    97,   114,    97,   738
  55. 640 DATA    109,   101,   116,   101,   114,    13,    10,    36,   600
  56. 650 DATA     13,    10,    73,   110,   118,    97,   108,   105,   634
  57. 660 DATA    100,    32,    68,   114,   105,   118,   101,    32,   670
  58. 670 DATA     83,   112,   101,    99,   105,   102,   105,   101,   808
  59. 680 DATA    114,    13,    10,    36,    13,    10,    73,   110,   379
  60. 690 DATA    118,    97,   108,   105,   100,    32,    83,   116,   759
  61. 700 DATA    114,   105,   110,   103,    32,    83,   112,   101,   760
  62. 710 DATA     99,   105,   102,   105,   101,   114,    13,    10,   649
  63. 720 DATA     36,    13,    10,    70,   105,   108,   101,    32,   475
  64. 730 DATA     78,   111,   116,    32,    70,   111,   117,   110,   745
  65. 740 DATA    100,    13,    10,    36,   252,   232,   110,     2,   755
  66. 750 DATA    128,    62,   229,     1,     0,   117,     7,   141,   685
  67. 760 DATA     22,    10,     2,   235,    44,   144,   141,    54,   652
  68. 770 DATA     71,     1,   185,    16,     0,   139,    62,   236,   710
  69. 780 DATA      1,   172,    10,   192,   116,    13,   174,   116,   794
  70. 790 DATA    248,    73,   227,    17,   172,    10,   192,   117,  1056
  71. 800 DATA    251,   235,   234,   139,   217,    75,   209,   227,  1587
  72. 810 DATA     46,   255,   167,   194,     1,   141,    22,   246,  1072
  73. 820 DATA      1,    80,   180,     9,   205,    33,    88,   180,   776
  74. 830 DATA     76,   205,    33,   184,     0,   240,   142,   192,  1072
  75. 840 DATA    191,   254,   255,    38,   138,     5,   235,   239,  1355
  76. 850 DATA    180,    15,   205,    16,   235,   233,   178,     2,  1064
  77. 860 DATA    187,     0,   192,   142,   195,   191,    30,     0,   937
  78. 870 DATA    141,    54,   226,     1,   185,     3,     0,   243,   853
  79. 880 DATA    166,   116,    12,   254,   202,   180,    15,   205,  1150
  80. 890 DATA     16,    60,     7,   117,     2,   254,   202,   138,   796
  81. 900 DATA    194,   235,   196,   205,    18,   177,     4,   211,  1240
  82. 910 DATA    232,   235,   188,   128,    62,   229,     1,     1,  1076
  83. 920 DATA    119,     8,   141,    22,    10,     2,   176,     1,   479
  84. 930 DATA    235,   167,   139,    22,   238,     1,   180,    61,  1043
  85. 940 DATA     50,   192,   205,    33,   115,     4,   176,     1,   776
  86. 950 DATA    235,   157,   139,   216,   180,    62,   205,    33,  1227
  87. 960 DATA     50,   192,   235,   147,   180,     1,   205,    22,  1032
  88. 970 DATA    116,     4,   176,     1,   235,   137,    50,   192,   911
  89. 980 DATA    235,   133,   180,     0,   205,    22,   233,   126,  1134
  90. 990 DATA    255,   180,    48,   205,    33,   233,   119,   255,  1328
  91. 1000 DATA    50,   210,   128,    62,   229,     1,     1,   116,   797
  92. 1010 DATA    23,   139,    54,   238,     1,   172,    44,    64,   735
  93. 1020 DATA   138,   208,   172,    60,    58,   116,     9,   141,   902
  94. 1030 DATA    22,    32,     2,    50,   192,   233,    81,   255,   867
  95. 1040 DATA   180,    54,   205,    33,    61,   255,   255,   117,  1160
  96. 1050 DATA     9,   141,    22,    32,     2,    50,   192,   233,   681
  97. 1060 DATA    63,   255,   247,   225,   247,   227,   185,    14,  1463
  98. 1070 DATA     0,   209,   234,   209,   216,   226,   250,    10,  1354
  99. 1080 DATA   228,   116,     2,   176,   255,   233,    47,   255,  1312
  100. 1090 DATA   180,    44,   205,    33,   138,   197,   233,    38,  1068
  101. 1100 DATA   255,   180,    42,   205,    33,   138,   194,   233,  1280
  102. 1110 DATA    29,   255,   180,    42,   205,    33,   138,   198,  1080
  103. 1120 DATA   233,    20,   255,   128,    62,   229,     1,     2,   930
  104. 1130 DATA   116,     9,   141,    22,    10,     2,   176,     1,   477
  105. 1140 DATA   233,   254,   254,   139,    54,   234,     1,   139,  1308
  106. 1150 DATA    62,   240,     1,   172,    60,    32,   116,   251,   934
  107. 1160 DATA    60,    39,   116,    22,    60,    13,   117,     9,   436
  108. 1170 DATA   141,    22,    10,     2,   176,     1,   233,   224,   809
  109. 1180 DATA   254,   141,    22,    60,     2,   176,     1,   233,   889
  110. 1190 DATA   215,   254,   172,    60,    13,   116,   242,    60,  1132
  111. 1200 DATA    39,   116,     7,   170,   255,     6,   230,     1,   824
  112. 1210 DATA   235,   240,   131,    62,   230,     1,     0,   117,  1016
  113. 1220 DATA     9,   141,    22,    60,     2,   176,     1,   233,   644
  114. 1230 DATA   183,   254,   139,    22,   238,     1,   180,    61,  1078
  115. 1240 DATA    50,   192,   205,    33,   115,     9,   141,    22,   767
  116. 1250 DATA    89,     2,   176,     1,   233,   162,   254,   163,  1080
  117. 1260 DATA   232,     1,   139,    22,   242,     1,   185,     0,   822
  118. 1270 DATA   192,   139,    30,   232,     1,   180,    63,   205,  1042
  119. 1280 DATA    33,    59,     6,   230,     1,   114,    70,   139,   652
  120. 1290 DATA   216,   139,   200,    43,    14,   230,     1,    65,   908
  121. 1300 DATA   139,    62,   242,     1,    81,    87,   139,    14,   765
  122. 1310 DATA   230,     1,   139,    54,   240,     1,   243,   166,  1074
  123. 1320 DATA    95,    89,   116,    36,    71,   226,   237,   129,   999
  124. 1330 DATA   251,     0,   192,   117,    32,   180,    66,   176,  1014
  125. 1340 DATA     1,   185,   255,   255,   139,    22,   230,     1,  1088
  126. 1350 DATA   247,   210,   131,   194,     1,   131,   209,     0,  1123
  127. 1360 DATA   139,    30,   232,     1,   205,    33,   235,   170,  1045
  128. 1370 DATA    50,   192,   235,     3,   144,   176,     1,    80,   881
  129. 1380 DATA   180,    62,   139,    30,   232,     1,   205,    33,   882
  130. 1390 DATA    88,   233,    59,   254,   128,    62,   229,     1,  1054
  131. 1400 DATA     1,   119,     9,   141,    22,    10,     2,    50,   354
  132. 1410 DATA   192,   233,    37,   254,   139,    22,   238,     1,  1116
  133. 1420 DATA   180,    61,    50,   192,   205,    33,   115,     9,   845
  134. 1430 DATA   141,    22,    89,     2,    50,   192,   233,    16,   745
  135. 1440 DATA   254,    80,   139,   216,   180,    66,   176,     2,  1113
  136. 1450 DATA    51,   201,    51,   210,   205,    33,    91,    80,   922
  137. 1460 DATA    82,   180,    62,   205,    33,    90,    88,   177,   917
  138. 1470 DATA    10,   209,   234,   209,   216,   226,   250,    11,  1365
  139. 1480 DATA   210,   117,     7,    10,   228,   117,     3,   233,   925
  140. 1490 DATA   237,   253,   176,   255,   233,   232,   253,   219,  1858
  141. 1500 DATA   227,   217,    62,   244,     1,   128,    62,   245,  1186
  142. 1510 DATA     1,     3,   116,     5,   176,     1,   233,   214,   749
  143. 1520 DATA   253,    50,   192,   233,   209,   253,   198,     6,  1394
  144. 1530 DATA   229,     1,     0,   190,   129,     0,   232,    34,   815
  145. 1540 DATA     0,   114,    27,   139,    62,   236,     1,   232,   811
  146. 1550 DATA    42,     0,   254,     6,   229,     1,   232,    18,   782
  147. 1560 DATA     0,   114,    11,   139,    62,   238,     1,   232,   797
  148. 1570 DATA    26,     0,   254,     6,   229,     1,   137,    54,   707
  149. 1580 DATA   234,     1,   195,   128,    60,    13,   116,    10,   757
  150. 1590 DATA   128,    60,    32,   117,     3,    70,   235,   243,   888
  151. 1600 DATA   248,   195,   249,   195,   128,    60,    13,   116,  1204
  152. 1610 DATA    19,   128,    60,    32,   116,    14,   172,    60,   601
  153. 1620 DATA    97,   114,     6,    60,   122,   119,     2,    36,   556
  154. 1630 DATA   223,   170,   235,   232,    50,   192,   170,   195,  1467
  155.