home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n21.zip / DISKPREP.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  14KB  |  196 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE diskprep.COM
  2. 110 OPEN "diskprep.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  176 
  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 = 135660 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   225,     1,    13,    10,    67,   111,   112,   772
  21. 300 DATA    121,   114,   105,   103,   104,   116,    32,    49,   744
  22. 310 DATA     57,    56,    54,    32,    90,   105,   102,   102,   598
  23. 320 DATA     45,    68,    97,   118,   105,   115,    32,    80,   660
  24. 330 DATA    117,    98,   108,   105,   115,   104,   105,   110,   862
  25. 340 DATA    103,    32,    67,   111,    46,    13,    10,    36,   418
  26. 350 DATA     13,    10,    73,   110,   118,    97,   108,   105,   634
  27. 360 DATA    100,    32,    68,   114,   105,   118,   101,    32,   670
  28. 370 DATA     83,   112,   101,    99,   105,   102,   105,   101,   808
  29. 380 DATA    114,    13,    10,    36,    13,    10,    73,   108,   377
  30. 390 DATA    108,   101,   103,    97,   108,    32,    68,   105,   722
  31. 400 DATA    115,   107,    32,    70,   111,   114,   109,    97,   755
  32. 410 DATA    116,    13,    10,    36,    13,    10,    68,   105,   371
  33. 420 DATA    115,   107,    32,    82,   101,    97,   100,    32,   666
  34. 430 DATA     69,   114,   114,   111,   114,    13,    10,    36,   581
  35. 440 DATA     13,    10,    68,   105,   115,   107,    32,    87,   537
  36. 450 DATA    114,   105,   116,   101,    32,    69,   114,   114,   765
  37. 460 DATA    111,   114,    13,    10,    36,    13,    10,    73,   380
  38. 470 DATA    110,   115,   117,   102,   102,   105,    99,   105,   855
  39. 480 DATA    101,   110,   116,    32,    83,   112,    97,    99,   750
  40. 490 DATA    101,    32,   105,   110,    32,    68,   105,   115,   668
  41. 500 DATA    107,    32,    68,   105,   114,   101,    99,   116,   742
  42. 510 DATA    111,   114,   121,    13,    10,    36,    13,    10,   428
  43. 520 DATA     73,   110,   115,   117,   102,   102,   105,    99,   823
  44. 530 DATA    105,   101,   110,   116,    32,    68,   105,   115,   752
  45. 540 DATA    107,    32,    83,   112,    97,    99,   101,    13,   644
  46. 550 DATA     10,    36,    13,    10,    65,   108,   108,   111,   461
  47. 560 DATA     99,    97,   116,   105,   111,   110,    32,    67,   737
  48. 570 DATA    104,    97,   105,   110,    32,    69,   114,   114,   745
  49. 580 DATA    111,   114,    13,    10,    36,    13,    10,    67,   374
  50. 590 DATA     97,   110,   110,   111,   116,    32,    68,   101,   745
  51. 600 DATA    108,   101,   116,   101,    32,    83,   121,   115,   777
  52. 610 DATA    116,   101,   109,    32,    70,   105,   108,   101,   742
  53. 620 DATA    115,    13,    10,    36,    13,    10,    66,    97,   360
  54. 630 DATA    100,    32,    83,   101,    99,   116,   111,   114,   756
  55. 640 DATA     32,   105,   110,    32,    83,   121,   115,   116,   714
  56. 650 DATA    101,   109,    32,    65,   114,   101,    97,    13,   632
  57. 660 DATA     10,    36,    13,    10,    83,   121,   115,   116,   504
  58. 670 DATA    101,   109,    32,    80,   114,   101,   112,    32,   681
  59. 680 DATA     67,   111,   109,   112,   108,   101,   116,   101,   825
  60. 690 DATA    100,    13,    10,    36,    13,    10,    83,   121,   386
  61. 700 DATA    115,   116,   101,   109,    32,    65,   108,   114,   760
  62. 710 DATA    101,    97,   100,   121,    32,    73,   110,   115,   749
  63. 720 DATA    116,    97,   108,   108,   101,   100,    32,    45,   707
  64. 730 DATA     32,    68,   101,   108,   101,   116,   101,    32,   659
  65. 740 DATA     79,   108,   100,    32,    83,   121,   115,   116,   754
  66. 750 DATA    101,   109,    32,    40,    89,    47,    78,    41,   537
  67. 760 DATA     63,    13,    10,    36,    13,    10,    69,   120,   334
  68. 770 DATA    101,    99,   117,   116,   105,   111,   110,    32,   791
  69. 780 DATA     65,    98,   111,   114,   116,   101,   100,    13,   718
  70. 790 DATA     10,    36,    41,     0,     0,     0,     0,     0,    87
  71. 800 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  72. 810 DATA      0,    64,     0,     4,     0,     2,     0,   112,   182
  73. 820 DATA      0,     7,     0,     2,     0,    64,     0,     4,    77
  74. 830 DATA      0,     1,     0,   112,     0,     7,     0,     1,   121
  75. 840 DATA      0,    73,    66,    77,    66,    73,    79,    32,   466
  76. 850 DATA     32,    67,    79,    77,    66,    58,    73,    66,   518
  77. 860 DATA     77,    66,    73,    79,    46,    67,    79,    77,   564
  78. 870 DATA      0,    66,    58,    73,    66,    77,    68,    79,   487
  79. 880 DATA     83,    46,    67,    79,    77,     0,   123,     6,   481
  80. 890 DATA    123,    10,   123,    14,   252,   190,   128,     0,   840
  81. 900 DATA    172,    60,     1,   118,    17,    70,   172,    36,   646
  82. 910 DATA    223,    44,    65,    60,     1,   118,    35,   141,   687
  83. 920 DATA     22,    48,     1,   235,    13,   144,   180,    25,   668
  84. 930 DATA    205,    33,    60,     1,   118,    20,   141,    22,   600
  85. 940 DATA     48,     1,   180,     9,   205,    33,   180,    14,   670
  86. 950 DATA    176,     7,   205,    16,   180,    76,   176,     1,   837
  87. 960 DATA    205,    33,   162,   160,     2,   138,   208,   254,  1162
  88. 970 DATA    194,    30,   180,    28,   205,    33,   138,    15,   823
  89. 980 DATA     31,   128,   249,   252,   115,     6,   141,    22,   944
  90. 990 DATA     76,     1,   235,   214,   152,   163,   148,     2,   991
  91. 1000 DATA   137,    22,   150,     2,   128,   233,   252,   138,  1062
  92. 1010 DATA   193,   178,     6,   246,   226,   138,   216,    50,  1253
  93. 1020 DATA   255,   129,   195,   161,     2,   139,     7,   163,  1051
  94. 1030 DATA   152,     2,   139,    71,     2,   163,   154,     2,   685
  95. 1040 DATA   139,    71,     4,   163,   156,     2,   232,   230,   997
  96. 1050 DATA     1,   115,     6,   141,    22,   100,     1,   235,   621
  97. 1060 DATA   161,   232,   237,     1,   115,     6,   141,    22,   915
  98. 1070 DATA   100,     1,   235,   150,   141,    54,   185,     2,   868
  99. 1080 DATA   139,    62,   226,     2,   185,    11,     0,   243,   868
  100. 1090 DATA   166,   117,   108,   141,    22,    68,     2,   180,   804
  101. 1100 DATA     9,   205,    33,   180,     0,   205,    22,    36,   690
  102. 1110 DATA   223,    60,    89,   116,    15,    60,    78,   117,   758
  103. 1120 DATA   242,   141,    22,   124,     2,   180,     9,   205,   925
  104. 1130 DATA    33,   233,   112,   255,   128,    62,   160,     2,   985
  105. 1140 DATA     1,   116,     8,   254,    14,   196,     2,   254,   845
  106. 1150 DATA    14,   209,     2,   141,    22,   196,     2,   180,   766
  107. 1160 DATA    67,   185,     0,     0,   176,     1,   205,    33,   667
  108. 1170 DATA   114,    38,   141,    22,   209,     2,   180,    67,   773
  109. 1180 DATA   185,     0,     0,   176,     1,   205,    33,   114,   714
  110. 1190 DATA    23,   141,    22,   196,     2,   180,    65,   205,   834
  111. 1200 DATA    33,   114,    13,   141,    22,   209,     2,   180,   714
  112. 1210 DATA    65,   205,    33,   114,     3,   233,   118,   255,  1026
  113. 1220 DATA   141,    22,   237,     1,   233,    27,   255,   138,  1054
  114. 1230 DATA    22,   160,     2,   254,   194,   180,    54,   205,  1071
  115. 1240 DATA    33,   161,   148,     2,   247,   227,    61,   100,   979
  116. 1250 DATA     0,   115,     7,   141,    22,   182,     1,   233,   701
  117. 1260 DATA     0,   255,   139,    54,   226,     2,   128,    60,   864
  118. 1270 DATA     0,   116,    32,   128,    60,   229,   117,     6,   688
  119. 1280 DATA   198,     4,     0,   235,    22,   144,   186,     2,   791
  120. 1290 DATA     0,   232,   136,     1,   115,     7,   141,    22,   654
  121. 1300 DATA   141,     1,   233,   221,   254,   184,     0,     0,  1034
  122. 1310 DATA   232,   159,     1,   139,    54,   226,     2,   131,   944
  123. 1320 DATA   198,    32,   128,    60,     0,   116,    32,   128,   694
  124. 1330 DATA    60,   229,   117,     6,   198,     4,     0,   235,   849
  125. 1340 DATA    22,   144,   186,     2,     0,   232,    92,     1,   679
  126. 1350 DATA   115,     7,   141,    22,   141,     1,   233,   177,   837
  127. 1360 DATA   254,   184,     1,     0,   232,   115,     1,   185,   972
  128. 1370 DATA    40,     0,   186,     2,     0,    81,   232,   149,   690
  129. 1380 DATA     0,    61,     0,     0,   116,   102,    61,   240,   580
  130. 1390 DATA    15,   114,    13,    61,   247,    15,   119,     8,   592
  131. 1400 DATA    89,   141,    22,    12,     2,   233,   138,   254,   891
  132. 1410 DATA   163,   158,     2,   161,   146,     2,    64,   187,   883
  133. 1420 DATA     0,     0,   232,   100,     1,   163,   146,     2,   644
  134. 1430 DATA   232,   151,     1,   115,     4,    89,   233,   113,   938
  135. 1440 DATA   254,   161,   158,     2,    82,   139,    22,   146,   964
  136. 1450 DATA     2,   232,   122,     0,    90,   184,     0,     0,   630
  137. 1460 DATA   232,   115,     0,   139,   218,   184,     2,     0,   890
  138. 1470 DATA   232,    62,     1,   115,    21,   232,   168,     1,   832
  139. 1480 DATA   115,     8,    89,   141,    22,   210,     1,   233,   819
  140. 1490 DATA    72,   254,   161,   146,     2,   137,     7,   235,  1014
  141. 1500 DATA    11,   144,    82,   139,   208,   161,   146,     2,   893
  142. 1510 DATA   232,    75,     0,    90,    89,    66,   226,   141,   919
  143. 1520 DATA   232,   148,     0,   115,     7,   141,    22,   120,   785
  144. 1530 DATA     1,   233,    38,   254,   232,   175,     0,   115,  1048
  145. 1540 DATA     7,   141,    22,   120,     1,   233,    26,   254,   804
  146. 1550 DATA   141,    22,    42,     2,   180,     9,   205,    33,   634
  147. 1560 DATA   180,    76,   176,     0,   205,    33,   184,     3,   857
  148. 1570 DATA     0,    82,   247,   226,    90,   209,   232,   139,  1225
  149. 1580 DATA   216,     3,    30,   224,     2,   139,     7,   247,   868
  150. 1590 DATA   194,     1,     0,   116,     5,   177,     4,   211,   708
  151. 1600 DATA   232,   195,    37,   255,    15,   195,    80,    82,  1091
  152. 1610 DATA   184,     3,     0,   247,   226,    90,   209,   232,  1191
  153. 1620 DATA   139,   216,     3,    30,   224,     2,    88,   247,   949
  154. 1630 DATA   194,     1,     0,   116,    11,   177,     4,   211,   714
  155. 1640 DATA   224,   129,    39,    15,     0,     9,     7,   195,   618
  156. 1650 DATA   129,    39,     0,   240,     9,     7,   195,   160,   779
  157. 1660 DATA   160,     2,   186,     1,     0,   139,    14,   156,   658
  158. 1670 DATA     2,   139,    30,   224,     2,   205,    37,    90,   729
  159. 1680 DATA   195,   160,   160,     2,   139,    22,   156,     2,   836
  160. 1690 DATA   209,   226,    66,   139,    14,   154,     2,   139,   949
  161. 1700 DATA    30,   226,     2,   205,    37,    90,   195,   160,   945
  162. 1710 DATA   160,     2,   186,     1,     0,   139,    14,   156,   658
  163. 1720 DATA     2,   139,    30,   224,     2,   205,    38,    90,   730
  164. 1730 DATA   114,    19,   160,   160,     2,   186,     1,     0,   642
  165. 1740 DATA   139,    14,   156,     2,     3,   209,   139,    30,   692
  166. 1750 DATA   224,     2,   205,    38,    90,   195,   160,   160,  1074
  167. 1760 DATA     2,   139,    22,   156,     2,   209,   226,    66,   822
  168. 1770 DATA   139,    14,   154,     2,   139,    30,   226,     2,   706
  169. 1780 DATA   205,    38,    90,   195,   139,    14,   152,     2,   835
  170. 1790 DATA    43,   202,    81,   139,   218,   177,     5,   211,  1076
  171. 1800 DATA   227,     3,    30,   226,     2,    89,   128,    63,   768
  172. 1810 DATA     0,   116,    13,   128,    63,   229,   116,     8,   673
  173. 1820 DATA    66,   131,   195,    32,   226,   240,   249,   195,  1334
  174. 1830 DATA   248,   195,   139,   240,   177,     5,   211,   230,  1445
  175. 1840 DATA     3,    54,   226,     2,   139,   250,   177,     5,   856
  176. 1850 DATA   211,   231,     3,    62,   226,     2,    86,   185,  1006
  177. 1860 DATA    32,     0,   243,   164,    94,   198,     4,     0,   735
  178. 1870 DATA   195,   139,    14,   150,     2,   131,   193,     2,   826
  179. 1880 DATA    43,   200,    82,   139,   208,    81,    83,   232,  1068
  180. 1890 DATA   252,   254,    91,    89,    59,   195,   116,     6,  1062
  181. 1900 DATA    66,   226,   242,    90,   249,   195,   139,   194,  1401
  182. 1910 DATA    90,   248,   195,   131,   234,     2,   161,   148,  1209
  183. 1920 DATA     2,   247,   226,   139,   208,   161,   156,     2,  1141
  184. 1930 DATA   209,   224,     3,   208,     3,    22,   154,     2,   825
  185. 1940 DATA    66,   195,    82,    80,   232,   228,   255,   139,  1277
  186. 1950 DATA    14,   148,     2,   160,   160,     2,   139,    30,   655
  187. 1960 DATA   222,     2,   205,    37,    88,    90,   114,    21,   779
  188. 1970 DATA   232,   208,   255,   139,    14,   148,     2,   160,  1158
  189. 1980 DATA   160,     2,   139,    30,   222,     2,   205,    38,   798
  190. 1990 DATA    88,    90,   114,     7,   195,    90,   141,    22,   747
  191. 2000 DATA   100,     1,   195,   141,    22,   120,     1,   195,   775
  192. 2010 DATA   139,    30,   226,     2,   131,   195,    90,   139,   952
  193. 2020 DATA    14,   152,     2,   131,   233,     2,    57,    23,   614
  194. 2030 DATA   116,     7,   131,   195,    32,   226,   247,   249,  1203
  195. 2040 DATA   195,   248,   195,     0,     0,     0,     0,     0,   638
  196.