home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1986 / 08 / diskscan.bas < prev    next >
BASIC Source File  |  1986-01-31  |  10KB  |  146 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE diskscan.COM
  2. 110 OPEN "diskscan.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  126 
  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 = 93183 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,     1,     2,    32,    67,   111,   112,   121,   679
  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,    67,   104,    97,   114,   108,   741
  28. 370 DATA    101,   115,    32,    80,   101,   116,   122,   111,   778
  29. 380 DATA    108,   100,    32,    73,   110,   118,    97,   108,   746
  30. 390 DATA    105,   100,    32,    68,   114,   105,   118,   101,   743
  31. 400 DATA     36,    78,   101,   101,   100,   115,    32,    68,   631
  32. 410 DATA     79,    83,    32,    50,    46,    48,    43,    36,   417
  33. 420 DATA     78,   101,   101,   100,   115,    32,    54,    52,   633
  34. 430 DATA     75,    36,     0,     0,     0,     0,     0,     0,   111
  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,     9,    83,   101,   193
  38. 470 DATA     99,   116,   111,   114,    32,    36,    13,    83,   604
  39. 480 DATA    101,    99,   116,   111,   114,   115,    32,    36,   724
  40. 490 DATA     32,    45,    32,    36,    58,    32,    69,   114,   418
  41. 500 DATA    114,   111,   114,    33,    13,    10,    36,   207,   638
  42. 510 DATA      1,   221,     1,   234,     1,   250,     1,    10,   719
  43. 520 DATA      2,    20,     2,    35,     2,    46,     2,    60,   169
  44. 530 DATA      2,    77,     2,    86,     2,    98,     2,   109,   378
  45. 540 DATA      2,   125,     2,   125,     2,   125,     2,    87,   470
  46. 550 DATA    114,   105,   116,   101,    32,    80,   114,   111,   773
  47. 560 DATA    116,   101,    99,   116,    36,    85,   110,   107,   770
  48. 570 DATA    110,   111,   119,   110,    32,    85,   110,   105,   782
  49. 580 DATA    116,    36,    68,   114,   105,   118,   101,    32,   690
  50. 590 DATA     78,   111,   116,    32,    82,   101,    97,   100,   717
  51. 600 DATA    121,    36,    85,   110,   107,   110,   111,   119,   799
  52. 610 DATA    110,    32,    67,   111,   109,   109,    97,   110,   745
  53. 620 DATA    100,    36,    67,    82,    67,    32,    69,   114,   567
  54. 630 DATA    114,   111,   114,    36,    82,   101,   113,   117,   788
  55. 640 DATA    101,   115,   116,    32,    76,   101,   110,   103,   754
  56. 650 DATA    116,   104,    36,    83,   101,   101,   107,    32,   680
  57. 660 DATA     69,   114,   114,   111,   114,    36,    85,   110,   753
  58. 670 DATA    107,   110,   111,   119,   110,    32,    77,   101,   767
  59. 680 DATA    100,   105,    97,    36,    83,   101,    99,   116,   737
  60. 690 DATA    111,   114,    32,    78,   111,   116,    32,    70,   664
  61. 700 DATA    111,   117,   110,   100,    36,    78,   111,    32,   695
  62. 710 DATA     80,    97,   112,   101,   114,    36,    87,   114,   741
  63. 720 DATA    105,   116,   101,    32,    70,    97,   117,   108,   746
  64. 730 DATA    116,    36,    82,   101,    97,   100,    32,    70,   634
  65. 740 DATA     97,   117,   108,   116,    36,    71,   101,   110,   756
  66. 750 DATA    101,   114,    97,   108,    32,    70,    97,   105,   724
  67. 760 DATA    108,   117,   114,   101,    36,    85,   110,   100,   771
  68. 770 DATA    111,    99,   117,   109,   101,   110,   116,   101,   864
  69. 780 DATA    100,    32,    69,   114,   114,   111,   114,    36,   690
  70. 790 DATA     66,   111,   111,   116,    32,    83,   101,    99,   719
  71. 800 DATA    116,   111,   114,    36,    82,   111,   111,   116,   797
  72. 810 DATA     32,    68,   105,   114,   101,    99,   116,   111,   746
  73. 820 DATA    114,   121,    36,    70,   105,   108,   101,    32,   687
  74. 830 DATA     65,   108,   108,   111,    99,    46,    32,    84,   653
  75. 840 DATA     97,    98,   108,   101,    36,    85,   115,   101,   741
  76. 850 DATA    100,    32,    98,   121,    32,   102,   105,   108,   698
  77. 860 DATA    101,    36,    85,   110,    97,   108,   108,   111,   756
  78. 870 DATA     99,    97,   116,   101,   100,    36,    70,   108,   727
  79. 880 DATA     97,   103,   103,   101,   100,    32,    97,   115,   748
  80. 890 DATA     32,    98,    97,   100,    36,    67,    97,   110,   637
  81. 900 DATA     39,   116,    32,    82,   101,    97,   100,    32,   599
  82. 910 DATA     70,    65,    84,    36,    16,    39,   232,     3,   545
  83. 920 DATA    100,     0,    10,     0,     1,     0,   180,     9,   300
  84. 930 DATA    205,    33,   205,    32,   186,    75,     1,    10,   747
  85. 940 DATA    192,   117,   243,   186,    89,     1,   180,    48,  1056
  86. 950 DATA    205,    33,    60,     2,   114,   232,   186,   104,   936
  87. 960 DATA      1,   187,   237,     5,   139,   227,   131,   195,  1122
  88. 970 DATA     15,   177,     4,   211,   235,   180,    74,   205,  1101
  89. 980 DATA     33,   114,   211,   187,     0,    16,   180,    72,   813
  90. 990 DATA    205,    33,   114,   202,   163,   114,     1,   138,   970
  91. 1000 DATA    22,    92,     0,    30,   180,    50,   205,    33,   612
  92. 1010 DATA   139,   243,   191,   117,     1,   185,    18,     0,   894
  93. 1020 DATA   252,   243,   164,    31,   187,   117,     1,   186,  1181
  94. 1030 DATA     1,     0,    43,   192,   247,   119,     2,   163,   767
  95. 1040 DATA   137,     1,   139,    71,    13,    72,   138,    79,   650
  96. 1050 DATA     5,   211,   224,     3,    71,    11,   163,   135,   823
  97. 1060 DATA     1,   160,    92,     0,   254,   200,   121,     4,   832
  98. 1070 DATA   180,    25,   205,    33,   162,   116,     1,   186,   908
  99. 1080 DATA   150,     1,   232,   105,     1,   161,   139,     1,   790
  100. 1090 DATA   232,    51,     1,   186,   160,     1,   232,    93,   956
  101. 1100 DATA     1,   139,    14,   137,     1,     3,   193,   114,   602
  102. 1110 DATA     6,    59,     6,   135,     1,   118,     9,   161,   495
  103. 1120 DATA   135,     1,   139,   200,    43,    14,   139,     1,   672
  104. 1130 DATA    72,   232,    18,     1,   232,   246,     0,   115,   916
  105. 1140 DATA    75,   232,   241,     0,   115,    70,   186,   164,  1083
  106. 1150 DATA     1,   232,    50,     1,    81,   185,     1,     0,   551
  107. 1160 DATA   232,   226,     0,   115,    43,   138,   216,   186,  1156
  108. 1170 DATA   141,     1,   232,    33,     1,   161,   139,     1,   709
  109. 1180 DATA   232,   235,     0,   186,   160,     1,   232,    21,  1067
  110. 1190 DATA     1,   128,   227,    15,    42,   255,     3,   219,   890
  111. 1200 DATA   139,   151,   175,     1,   232,     7,     1,   232,   938
  112. 1210 DATA    41,     0,   186,   172,     1,   232,   254,     0,   886
  113. 1220 DATA   255,     6,   139,     1,    89,   226,   197,   161,  1074
  114. 1230 DATA   139,     1,   235,    12,   161,   139,     1,     3,   691
  115. 1240 DATA     6,   137,     1,   114,    12,   163,   139,     1,   573
  116. 1250 DATA    59,     6,   135,     1,   115,     3,   233,   110,   662
  117. 1260 DATA   255,   205,    32,   186,   160,     1,   232,   213,  1284
  118. 1270 DATA     0,   161,   139,     1,   186,   144,     2,    59,   692
  119. 1280 DATA     6,   123,     1,   114,   124,   186,   171,     2,   727
  120. 1290 DATA    59,     6,   133,     1,   114,   115,   186,   156,   770
  121. 1300 DATA     2,    59,     6,   128,     1,   114,   106,   255,   671
  122. 1310 DATA    54,   139,     1,   161,   123,     1,   163,   139,   781
  123. 1320 DATA     1,   138,    14,   132,     1,    42,   237,   232,   797
  124. 1330 DATA    91,     0,   143,     6,   139,     1,   186,   229,   795
  125. 1340 DATA     2,   114,    78,   161,   139,     1,    43,     6,   544
  126. 1350 DATA   128,     1,   138,    14,   122,     1,   211,   232,   847
  127. 1360 DATA     5,     2,     0,     6,   142,     6,   114,     1,   276
  128. 1370 DATA   129,    62,   130,     1,   240,    15,   125,    23,   725
  129. 1380 DATA   139,   216,   139,   240,   209,   235,    38,   139,  1355
  130. 1390 DATA     0,   115,     4,   177,     4,   211,   232,    13,   756
  131. 1400 DATA     0,   240,    61,     0,   240,   235,     9,   139,   924
  132. 1410 DATA   216,   209,   227,    38,   139,     7,    11,   192,  1039
  133. 1420 DATA     7,   186,   202,     2,   116,    11,   186,   214,   924
  134. 1430 DATA     2,    61,   247,   255,   116,     3,   186,   189,  1059
  135. 1440 DATA     2,   232,    74,     0,   195,    83,    81,    82,   749
  136. 1450 DATA    30,   160,   116,     1,    43,   219,   139,    22,   730
  137. 1460 DATA   139,     1,   142,    30,   114,     1,   205,    37,   669
  138. 1470 DATA    91,    31,    90,    89,    91,   195,    80,    83,   750
  139. 1480 DATA    81,    82,    86,   190,   244,     2,   185,     4,   874
  140. 1490 DATA     0,   139,    28,   131,   198,     2,    43,   210,   751
  141. 1500 DATA   247,   243,    82,    10,   232,   116,     8,     4,   942
  142. 1510 DATA    48,   138,   208,   180,     2,   205,    33,    88,   902
  143. 1520 DATA   254,   201,   127,   229,   181,     1,   116,   225,  1334
  144. 1530 DATA    94,    90,    89,    91,    88,   195,    80,   180,   907
  145. 1540 DATA     9,   205,    33,    88,   195,     0,     0,     0,   530
  146.