home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol4n20.zip / DDIR.BAS < prev    next >
BASIC Source File  |  1985-05-26  |  8KB  |  120 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE DDIR.COM
  2. 110 OPEN "DDIR.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  100 
  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       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";299 + I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 77143 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 300 DATA    233,   161,     0,    40,    67,    41,    32,    67,   641
  21. 301 DATA    111,   112,   121,   114,   105,   103,   104,   116,   886
  22. 302 DATA     32,    67,   104,    97,   114,   108,   101,   115,   738
  23. 303 DATA     32,    80,   101,   116,   122,   111,   108,   100,   770
  24. 304 DATA     44,    32,    49,    57,    56,    53,    78,   101,   470
  25. 305 DATA    101,   100,   115,    32,    68,    79,    83,    32,   610
  26. 306 DATA     50,    46,    48,    32,    43,    36,    77,   101,   433
  27. 307 DATA    109,   111,   114,   121,    32,    80,   114,   111,   792
  28. 308 DATA     98,   108,   101,   109,    36,    67,    79,    77,   675
  29. 309 DATA     77,    65,    78,    68,    32,    80,   114,   111,   625
  30. 310 DATA     98,   108,   101,   109,    36,    67,    79,    77,   675
  31. 311 DATA     83,    80,    69,    67,    61,     0,     0,     0,   360
  32. 312 DATA      0,     0,     0,   123,     0,     0,     0,    92,   215
  33. 313 DATA      0,     0,     0,   108,     0,     0,     0,     0,   108
  34. 314 DATA      0,     0,     0,    28,     4,     0,     0,     0,    32
  35. 315 DATA      0,     0,     0,     0,   205,   205,   205,   205,   820
  36. 316 DATA    205,   205,    32,    80,   114,   101,   115,   115,   967
  37. 317 DATA     32,    97,   110,   121,    32,   107,   101,   121,   721
  38. 318 DATA     32,   116,   111,    32,    99,   111,   110,   116,   727
  39. 319 DATA    105,   110,   117,   101,    32,   205,   205,   205,  1080
  40. 320 DATA    205,   205,   205,   181,   180,    48,   205,    33,  1262
  41. 321 DATA     60,     2,   115,     9,   186,    38,     1,   180,   591
  42. 322 DATA      9,   205,    33,   205,    32,   191,    28,     4,   707
  43. 323 DATA    185,   112,    80,   176,    32,   252,   243,   170,  1250
  44. 324 DATA    187,   140,    85,   139,   227,   131,   195,    15,  1119
  45. 325 DATA    177,     4,   211,   235,   180,    74,   205,    33,  1119
  46. 326 DATA    186,    54,     1,   114,   218,   142,     6,    44,   765
  47. 327 DATA      0,    43,   255,   252,    38,   128,    61,     0,   777
  48. 328 DATA    116,    21,    87,   190,    85,     1,   185,     8,   693
  49. 329 DATA      0,   243,   166,    95,   116,    14,    42,   192,   868
  50. 330 DATA    185,     0,   128,   242,   174,   235,   229,   186,  1379
  51. 331 DATA     69,     1,   235,   179,   131,   199,     8,   137,   959
  52. 332 DATA     62,    93,     1,   140,     6,    95,     1,   140,   538
  53. 333 DATA      6,    97,     1,   140,    14,   101,     1,   140,   500
  54. 334 DATA     14,   105,     1,   140,    14,   109,     1,   184,   568
  55. 335 DATA     33,    53,   205,    33,   137,    30,   111,     1,   603
  56. 336 DATA    140,     6,   113,     1,   186,   119,     2,   184,   751
  57. 337 DATA     33,    37,   205,    33,   160,   128,     0,     4,   600
  58. 338 DATA      5,   162,   123,     0,   199,     6,   124,     0,   619
  59. 339 DATA     47,    67,   199,     6,   126,     0,    68,    73,   586
  60. 340 DATA    198,     6,   128,     0,    82,    14,     7,   187,   622
  61. 341 DATA     97,     1,   197,    22,    93,     1,   184,     0,   595
  62. 342 DATA     75,   205,    33,   140,   200,   142,   216,   142,  1153
  63. 343 DATA    208,   188,   140,    85,   156,    30,   139,    22,   968
  64. 344 DATA    111,     1,   142,    30,   113,     1,   184,    33,   615
  65. 345 DATA     37,   205,    33,    31,   157,   115,     6,   186,   770
  66. 346 DATA     69,     1,   233,    58,   255,   205,    32,   251,  1104
  67. 347 DATA    128,   252,    64,   116,     5,    46,   255,    46,   912
  68. 348 DATA    111,     1,   131,   251,     1,   117,   246,   156,  1014
  69. 349 DATA     80,    81,    86,    87,     6,    14,     7,   252,   613
  70. 350 DATA    139,   242,    46,   139,    62,   115,     1,   131,   875
  71. 351 DATA    249,     2,   117,    45,   129,    60,    13,    10,   625
  72. 352 DATA    117,    39,    46,   139,    14,   117,     1,    46,   519
  73. 353 DATA    199,     6,   117,     1,     0,     0,    46,   128,   497
  74. 354 DATA     62,   119,     1,     1,   117,   116,   184,    39,   639
  75. 355 DATA      0,    43,   193,    46,     1,     6,   115,     1,   405
  76. 356 DATA     46,   198,     6,   119,     1,     0,   235,   119,   724
  77. 357 DATA    144,    46,     1,    14,   117,     1,    46,    57,   426
  78. 358 DATA     14,   117,     1,   117,    77,   128,    60,    32,   546
  79. 359 DATA    117,    19,    46,   128,    62,   120,     1,     1,   494
  80. 360 DATA    117,    72,   232,   102,     0,    46,   198,     6,   773
  81. 361 DATA    120,     1,     0,   235,    61,    46,   129,    62,   654
  82. 362 DATA    121,     1,    16,     2,   114,    27,    81,   232,   594
  83. 363 DATA     81,     0,    46,   199,     6,   121,     1,     0,   454
  84. 364 DATA      0,   191,    28,     4,    46,   137,    62,   115,   583
  85. 365 DATA      1,   185,   112,    80,   176,    32,   243,   170,   999
  86. 366 DATA     89,    46,   198,     6,   120,     1,     1,    46,   507
  87. 367 DATA    198,     6,   119,     1,     1,    46,   255,     6,   632
  88. 368 DATA    121,     1,    46,   128,    62,   119,     1,     1,   479
  89. 369 DATA    116,     9,     7,    95,    94,    89,    88,   157,   655
  90. 370 DATA    233,    74,   255,    46,   139,    62,   115,     1,   925
  91. 371 DATA    243,   164,    46,   137,    62,   115,     1,     7,   775
  92. 372 DATA     95,    94,    89,    88,   157,   139,   193,   248,  1103
  93. 373 DATA    202,     2,     0,    83,    82,    86,    30,    14,   499
  94. 374 DATA     31,   191,    28,     4,   139,    14,   121,     1,   529
  95. 375 DATA     73,   227,    43,    81,   139,   247,   131,   198,  1139
  96. 376 DATA     39,    81,    86,    87,   185,    39,     0,   243,   760
  97. 377 DATA    166,   115,    16,    95,    94,    86,    87,   185,   844
  98. 378 DATA     39,     0,    38,   138,     5,   164,   136,    68,   588
  99. 379 DATA    255,   226,   247,    95,    94,    89,   226,   222,  1454
  100. 380 DATA     89,   131,   199,    39,   226,   213,   190,    28,  1115
  101. 381 DATA      4,   139,    14,   121,     1,    65,   209,   233,   786
  102. 382 DATA    187,   168,     3,   131,   249,    24,   115,     7,   884
  103. 383 DATA    184,    39,     0,   247,   225,   139,   216,   232,  1282
  104. 384 DATA    106,     0,   176,    32,   232,    76,     0,   176,   798
  105. 385 DATA    179,   232,    71,     0,   176,    32,   232,    66,   988
  106. 386 DATA      0,     3,   243,   131,   238,    39,   232,    83,   969
  107. 387 DATA      0,   232,    62,     0,    43,   243,   254,     6,   840
  108. 388 DATA    123,     1,   128,    62,   123,     1,    24,   116,   578
  109. 389 DATA      4,   226,   212,   235,    33,   198,     6,   123,  1037
  110. 390 DATA      1,     0,     3,   243,    83,    81,   186,   124,   721
  111. 391 DATA      1,   185,    40,     0,   187,     2,     0,   180,   595
  112. 392 DATA     64,   205,    33,    89,    91,   180,     8,   205,   875
  113. 393 DATA     33,   232,    14,     0,   226,   162,    31,    94,   792
  114. 394 DATA     90,    91,   195,   138,   208,   180,     2,   205,  1109
  115. 395 DATA     33,   195,   176,    13,   232,   244,   255,   176,  1324
  116. 396 DATA     10,   232,   239,   255,   195,   172,   232,   234,  1569
  117. 397 DATA    255,   226,   250,   195,    81,   185,    32,     0,  1224
  118. 398 DATA    232,   242,   255,    70,   185,     6,     0,   232,  1222
  119. 399 DATA    235,   255,    89,   195,     0,     0,     0,     0,   774
  120.