home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol6n07.arc / XDIR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-12-13  |  13.1 KB  |  195 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE XDIR.COM
  2. 110 OPEN "XDIR.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  175 
  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 = 131230 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   212,     4,    67,   111,   112,   121,   114,   974
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     54,    32,    90,   105,   102,   102,    45,    68,   598
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    92,    42,    46,    42,   472
  26. 350 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  27. 360 DATA      2,     0,   184,     0,    79,    15,     0,     0,   280
  28. 370 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  29. 380 DATA      0,     7,     6,     0,     0,     0,     0,     0,    13
  30. 390 DATA      0,    64,     0,   215,     5,   215,    11,     0,   510
  31. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 410 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  33. 420 DATA      0,     0,     0,    44,    40,    45,    41,    42,   212
  34. 430 DATA     46,    30,    78,   111,    32,    70,   105,   108,   580
  35. 440 DATA    101,   115,    32,    70,   111,   117,   110,   100,   756
  36. 450 DATA      0,   251,    80,   228,    96,    60,    52,   117,   884
  37. 460 DATA     52,   180,     2,   205,    22,   168,     8,   116,   753
  38. 470 DATA     44,   232,    20,     2,    88,    46,   128,    62,   622
  39. 480 DATA     53,     1,     0,   117,    31,    46,   128,    62,   438
  40. 490 DATA     54,     1,     0,   117,    23,     6,    87,    46,   334
  41. 500 DATA    142,     6,    49,     1,    46,   139,    62,    51,   496
  42. 510 DATA      1,    38,   128,    61,     0,    95,     7,   117,   447
  43. 520 DATA     10,   232,    70,     0,   207,    88,    46,   255,   908
  44. 530 DATA     46,    87,     1,    46,   198,     6,    55,     1,   440
  45. 540 DATA      1,   207,    46,   254,     6,    54,     1,   156,   725
  46. 550 DATA     46,   255,    30,    91,     1,   156,    46,   254,   879
  47. 560 DATA     14,    54,     1,   157,   202,     2,     0,   251,   681
  48. 570 DATA    156,    46,   255,    30,    95,     1,    46,   128,   757
  49. 580 DATA     62,    55,     1,     0,   116,     9,    46,   198,   487
  50. 590 DATA      6,    55,     1,     0,   232,    11,     0,   207,   512
  51. 600 DATA    251,    46,   198,     6,    72,     1,     1,   176,   751
  52. 610 DATA      0,   207,    46,   198,     6,    53,     1,     1,   512
  53. 620 DATA     80,    83,    81,    82,    86,    87,    30,     6,   535
  54. 630 DATA     14,    31,    14,     7,   180,    15,   205,    16,   482
  55. 640 DATA     60,     2,   116,    22,    60,     3,   116,    18,   397
  56. 650 DATA     60,     7,   116,    14,   198,     6,    53,     1,   455
  57. 660 DATA      0,     7,    31,    95,    94,    90,    89,    91,   497
  58. 670 DATA     88,   195,   136,    62,    59,     1,   180,     3,   724
  59. 680 DATA    205,    16,   137,    14,    64,     1,   232,   131,   800
  60. 690 DATA      1,   163,    66,     1,   252,   128,    62,    56,   729
  61. 700 DATA      1,     1,   117,     3,   232,    60,     1,   232,   647
  62. 710 DATA    218,     0,   232,   153,     1,   128,    62,    56,   850
  63. 720 DATA      1,     1,   117,     3,   232,    59,     1,   232,   646
  64. 730 DATA     50,     2,   139,    62,    79,     1,   186,    10,   529
  65. 740 DATA      2,   177,    59,   232,   203,     1,    60,    27,   761
  66. 750 DATA    117,     3,   233,   134,     0,    81,   180,     1,   749
  67. 760 DATA    181,    32,   205,    16,    89,   186,    45,     1,   755
  68. 770 DATA     10,   201,   116,    20,   128,   125,   255,    92,   947
  69. 780 DATA    117,     1,    79,   141,    54,    44,     1,   185,   622
  70. 790 DATA      5,     0,   243,   164,   139,    22,    79,     1,   653
  71. 800 DATA    232,    70,     2,   198,     6,    70,     1,     0,   579
  72. 810 DATA     11,   201,   117,    21,   186,    33,     7,   141,   717
  73. 820 DATA     54,   114,     1,   232,   221,     2,   232,    46,   902
  74. 830 DATA      1,   232,    14,     3,   232,   250,     2,   235,   969
  75. 840 DATA    169,   232,   132,     2,   232,    32,     1,    60,   860
  76. 850 DATA      0,   116,    12,    60,    27,   117,   245,   232,   809
  77. 860 DATA    248,     2,   232,   228,     2,   235,   147,   128,  1222
  78. 870 DATA    252,    81,   117,    18,   160,    70,     1,    58,   757
  79. 880 DATA      6,    69,     1,   116,   223,   254,     6,    70,   745
  80. 890 DATA      1,   232,   205,     2,   235,   211,   128,   252,  1266
  81. 900 DATA     73,   117,   209,   128,    62,    70,     1,     0,   660
  82. 910 DATA    116,   202,   254,    14,    70,     1,   232,   184,  1073
  83. 920 DATA      2,   235,   190,   232,   195,     1,   128,    62,  1045
  84. 930 DATA     56,     1,     1,   117,     3,   232,   131,     0,   541
  85. 940 DATA    232,    78,     0,   128,    62,    56,     1,     1,   558
  86. 950 DATA    117,     3,   232,   133,     0,   180,     2,   138,   805
  87. 960 DATA     62,    59,     1,   139,    22,    66,     1,   205,   555
  88. 970 DATA     16,   180,     1,   139,    14,    64,     1,   205,   620
  89. 980 DATA     16,   233,   248,   254,   186,     8,     2,   138,  1085
  90. 990 DATA     30,    59,     1,    50,   255,   232,    63,     0,   690
  91. 1000 DATA   137,    62,    62,     1,   139,   247,    30,   142,   820
  92. 1010 DATA    30,    57,     1,    46,   139,    62,    83,     1,   419
  93. 1020 DATA   185,    12,     0,    81,   185,    64,     0,   243,   770
  94. 1030 DATA   165,    89,   131,   198,    32,   226,   244,    31,  1116
  95. 1040 DATA   195,     6,   139,    62,    62,     1,   142,     6,   613
  96. 1050 DATA    57,     1,   139,    54,    83,     1,   185,    12,   532
  97. 1060 DATA     0,    81,   185,    64,     0,   243,   165,    89,   827
  98. 1070 DATA   131,   199,    32,   226,   244,     7,   195,   176,  1210
  99. 1080 DATA   160,   246,   230,   208,   226,    50,   246,     3,  1369
  100. 1090 DATA   194,   139,   248,   184,     0,    16,   247,   227,  1255
  101. 1100 DATA     3,   248,   195,   186,   218,     3,   236,   168,  1257
  102. 1110 DATA     8,   116,   251,   131,   234,     2,   176,    37,   955
  103. 1120 DATA   238,   195,   180,    15,   205,    16,   141,    30,  1020
  104. 1130 DATA   107,     1,   215,   186,   216,     3,   238,   195,  1161
  105. 1140 DATA   228,    97,   138,   224,    12,   128,   230,    97,  1154
  106. 1150 DATA   138,   196,   230,    97,   250,   176,    32,   230,  1349
  107. 1160 DATA    32,   251,   195,   180,     1,   139,    14,    73,   885
  108. 1170 DATA     1,   205,    16,   195,   139,    22,    75,     1,   654
  109. 1180 DATA   176,    14,   238,    66,   236,   138,   224,    74,  1166
  110. 1190 DATA   176,    15,   238,    66,   236,    37,   255,     7,  1030
  111. 1200 DATA   179,    80,   246,   243,   134,   224,   195,   180,  1481
  112. 1210 DATA     1,   205,    22,   117,     4,   205,    40,   235,   829
  113. 1220 DATA   246,   180,     0,   205,    22,   195,     6,   142,   996
  114. 1230 DATA     6,    57,     1,   139,    62,    62,     1,   176,   504
  115. 1240 DATA   218,   138,    38,    60,     1,   171,   185,    62,   873
  116. 1250 DATA     0,   176,    32,   243,   171,   176,   191,   171,  1160
  117. 1260 DATA   131,   199,    32,   185,    10,     0,    81,   176,   814
  118. 1270 DATA   179,   138,    38,    60,     1,    80,   171,   185,   852
  119. 1280 DATA    62,     0,   176,    32,   138,    38,    61,     1,   508
  120. 1290 DATA   243,   171,    88,   171,   131,   199,    32,    89,  1124
  121. 1300 DATA   226,   228,   176,   192,   171,   185,    62,     0,  1240
  122. 1310 DATA   176,   196,   243,   171,   176,   217,   171,     7,  1357
  123. 1320 DATA   195,   136,    14,    68,     1,   180,     2,   138,   734
  124. 1330 DATA    62,    59,     1,   205,    16,   232,   115,   255,   945
  125. 1340 DATA    50,   201,   232,   146,   255,    60,    13,   116,  1073
  126. 1350 DATA    66,    60,    27,   116,    62,    60,     8,   116,   515
  127. 1360 DATA    32,    60,    32,   114,   237,    58,    14,    68,   615
  128. 1370 DATA     1,   116,   231,    80,    81,   180,    10,   185,   884
  129. 1380 DATA     1,     0,   205,    16,   254,   194,   180,     2,   852
  130. 1390 DATA   205,    16,    89,    88,   170,   254,   193,   235,  1250
  131. 1400 DATA   209,    10,   201,   116,   205,    81,   254,   202,  1278
  132. 1410 DATA   180,     2,   205,    16,   180,    10,   176,    32,   801
  133. 1420 DATA   185,     1,     0,   205,    16,    89,   254,   201,   951
  134. 1430 DATA    79,   235,   183,   195,     6,   180,    47,   205,  1130
  135. 1440 DATA    33,   140,     6,    99,     1,   137,    30,   101,   547
  136. 1450 DATA     1,   180,    26,   139,    22,    81,     1,   205,   655
  137. 1460 DATA    33,   180,    53,   176,    36,   205,    33,   140,   856
  138. 1470 DATA     6,   103,     1,   137,    30,   105,     1,   180,   563
  139. 1480 DATA    37,   141,    22,   248,     1,   205,    33,     7,   694
  140. 1490 DATA   195,   180,    37,   176,    36,   139,    22,   105,   890
  141. 1500 DATA     1,    30,    46,   142,    30,   103,     1,   205,   558
  142. 1510 DATA    33,   180,    26,    46,   139,    22,   101,     1,   548
  143. 1520 DATA    46,   142,    30,    99,     1,   205,    33,    31,   587
  144. 1530 DATA   195,   198,     6,    72,     1,     0,   180,    78,   730
  145. 1540 DATA   139,    14,    77,     1,   205,    33,   185,     0,   654
  146. 1550 DATA     0,   114,    61,   128,    62,    72,     1,     0,   438
  147. 1560 DATA   117,    54,    65,   139,    62,    85,     1,   232,   755
  148. 1570 DATA    47,     0,   180,    79,   205,    33,   114,    17,   675
  149. 1580 DATA   128,    62,    72,     1,     0,   117,    10,   232,   622
  150. 1590 DATA    31,     0,    65,   129,   249,   104,     1,   117,   696
  151. 1600 DATA   233,   131,   239,    13,    71,    38,   128,    61,   914
  152. 1610 DATA     0,   117,   249,    38,   254,    13,   139,   193,  1003
  153. 1620 DATA    72,   179,    40,   246,   243,   162,    69,     1,  1012
  154. 1630 DATA   195,   139,    54,    81,     1,   131,   198,    30,   829
  155. 1640 DATA    81,   185,    13,     0,   243,   164,    89,   195,   970
  156. 1650 DATA   198,     6,    71,     1,     0,   184,     8,     2,   470
  157. 1660 DATA   138,    30,    70,     1,    50,   255,   247,   227,  1018
  158. 1670 DATA   139,   240,     3,    54,    85,     1,   186,    10,   718
  159. 1680 DATA     3,   185,    10,     0,    81,   232,    15,     0,   526
  160. 1690 DATA   254,   198,   178,    10,    89,   128,    62,    71,   990
  161. 1700 DATA     1,     0,   117,     2,   226,   238,   195,   185,   964
  162. 1710 DATA     4,     0,    81,    86,    82,   232,    19,     0,   504
  163. 1720 DATA    90,   128,   194,    16,    94,   131,   198,    13,   864
  164. 1730 DATA    89,   128,    62,    71,     1,     0,   117,     2,   470
  165. 1740 DATA   226,   232,   195,   180,     2,   138,    62,    59,  1094
  166. 1750 DATA     1,   205,    16,   185,     1,     0,   172,    10,   590
  167. 1760 DATA   192,   116,    21,    60,   255,   116,    12,   180,   952
  168. 1770 DATA    10,   205,    16,   180,     2,   254,   194,   205,  1066
  169. 1780 DATA    16,   235,   235,   198,     6,    71,     1,     1,   763
  170. 1790 DATA   195,   180,     6,   176,     0,   185,    10,     3,   755
  171. 1800 DATA   186,    69,    12,   138,    62,    61,     1,   205,   734
  172. 1810 DATA    16,   195,   180,     2,   186,    10,     2,   138,   729
  173. 1820 DATA    62,    59,     1,   205,    16,   180,    10,   176,   709
  174. 1830 DATA    32,   185,    60,     0,   205,    16,   195,   180,   873
  175. 1840 DATA    18,   179,    16,   205,    16,   128,   251,    16,   829
  176. 1850 DATA   116,     7,    10,   255,   117,    19,   235,    39,   798
  177. 1860 DATA   144,   254,    14,    56,     1,   180,    15,   205,   869
  178. 1870 DATA    16,    60,     7,   117,    26,   254,    14,    56,   550
  179. 1880 DATA     1,   129,    46,    57,     1,     0,     8,   198,   440
  180. 1890 DATA     6,    60,     1,   112,   198,     6,    61,     1,   445
  181. 1900 DATA     7,   199,     6,    73,     1,    13,    12,   232,   543
  182. 1910 DATA   169,   253,   184,    64,     0,   142,   192,   191,  1195
  183. 1920 DATA    99,     0,    38,   139,    21,   137,    22,    75,   531
  184. 1930 DATA     1,   180,    52,   205,    33,   140,     6,    49,   666
  185. 1940 DATA     1,   137,    30,    51,     1,   180,    53,   176,   629
  186. 1950 DATA     9,   205,    33,   137,    30,    87,     1,   140,   642
  187. 1960 DATA     6,    89,     1,   180,    37,   141,    22,   129,   605
  188. 1970 DATA     1,   205,    33,   180,    53,   176,    19,   205,   872
  189. 1980 DATA    33,   137,    30,    91,     1,   140,     6,    93,   531
  190. 1990 DATA     1,   180,    37,   141,    22,   202,     1,   205,   789
  191. 2000 DATA    33,   180,    53,   176,    40,   205,    33,   137,   857
  192. 2010 DATA    30,    95,     1,   140,     6,    97,     1,   180,   550
  193. 2020 DATA    37,   141,    22,   223,     1,   205,    33,   186,   848
  194. 2030 DATA    31,    30,   205,    39,     0,     0,     0,     0,   305
  195.