home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n03.zip / DOS-EDIT.BAS < prev    next >
BASIC Source File  |  1987-12-13  |  7KB  |  97 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE DOS-EDIT.COM
  2. 110 OPEN "DOS-EDIT.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  77 
  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";280 + 10 * I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 59165 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    46,     2,    40,    67,    41,    32,    67,   528
  21. 300 DATA    111,   112,   121,   114,   105,   103,   104,   116,   886
  22. 310 DATA     32,    49,    57,    56,    53,    32,    90,   105,   474
  23. 320 DATA    102,   102,    45,    68,    97,   118,   105,   115,   752
  24. 330 DATA     32,    80,   117,    98,   108,   105,   115,   104,   759
  25. 340 DATA    105,   110,   103,    32,    67,   111,    46,     0,   574
  26. 350 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  27. 360 DATA    128,     0,     0,     0,     0,     0,     0,   125,   253
  28. 370 DATA      2,   130,     2,   137,     2,   194,     2,   140,   609
  29. 380 DATA      2,   194,     2,   153,     2,   194,     2,   167,   716
  30. 390 DATA      2,   175,     2,   178,     2,   195,     2,   201,   757
  31. 400 DATA      2,    46,   198,     6,    55,     1,     0,   128,   436
  32. 410 DATA    252,    10,   116,     5,    46,   255,    46,    47,   777
  33. 420 DATA      1,    46,   198,     6,    55,     1,   255,   156,   718
  34. 430 DATA     46,   255,    30,    47,     1,    46,   198,     6,   629
  35. 440 DATA     55,     1,     0,    46,   198,     6,    58,     1,   365
  36. 450 DATA      0,   207,   251,    46,   128,    62,    55,     1,   750
  37. 460 DATA      0,   116,    13,    46,   128,    62,    58,     1,   424
  38. 470 DATA      0,   117,    46,   128,   252,     0,   116,     5,   664
  39. 480 DATA     46,   255,    46,    51,     1,   156,    46,   255,   856
  40. 490 DATA     30,    51,     1,    61,     0,    72,   117,    24,   356
  41. 500 DATA    232,    57,     0,    46,   128,    62,    58,     1,   584
  42. 510 DATA      0,   116,   234,   232,    33,     0,    46,   255,   916
  43. 520 DATA      6,    56,     1,    46,   254,    14,    58,     1,   436
  44. 530 DATA    207,   128,   252,     2,   115,   210,   128,   252,  1294
  45. 540 DATA      0,   116,   232,   232,     9,     0,    46,   128,   763
  46. 550 DATA     62,    58,     1,     0,   202,     2,     0,    83,   408
  47. 560 DATA     46,   139,    30,    56,     1,    46,   138,     7,   463
  48. 570 DATA     42,   228,    91,   195,    80,    83,    81,    82,   882
  49. 580 DATA     87,    30,     6,   140,   200,   142,   216,   142,   963
  50. 590 DATA    192,   180,    15,   205,    16,   254,   204,   136,  1202
  51. 600 DATA     38,    59,     1,   180,     3,   205,    16,   137,   639
  52. 610 DATA     22,    60,     1,   232,   124,     0,    58,    54,   551
  53. 620 DATA     61,     1,   116,    97,   180,     2,   205,    16,   678
  54. 630 DATA    180,     0,   156,    46,   255,    30,    51,     1,   719
  55. 640 DATA     60,    27,   116,    81,    60,     8,   117,    11,   480
  56. 650 DATA     10,   210,   116,   226,   254,   202,   232,   226,  1476
  57. 660 DATA      0,   235,   219,    60,    13,   117,    12,   232,   888
  58. 670 DATA    117,     0,   176,    13,   170,   254,     6,    58,   794
  59. 680 DATA      1,   235,   203,    60,    32,   114,    24,   128,   797
  60. 690 DATA     62,    62,     1,     0,   116,     5,   232,   178,   656
  61. 700 DATA      0,   235,     7,   185,     1,     0,   180,    10,   618
  62. 710 DATA    205,    16,   232,    68,     0,   235,   175,   134,  1065
  63. 720 DATA    196,    45,    71,     0,   114,   178,    61,    12,   677
  64. 730 DATA      0,   119,   173,     3,   192,   139,   248,   255,  1129
  65. 740 DATA    149,    63,     1,   235,   153,   139,    22,    60,   822
  66. 750 DATA      1,   180,     2,   205,    16,     7,    31,    95,   537
  67. 760 DATA     90,    89,    91,    88,   195,   138,    22,    60,   773
  68. 770 DATA      1,   195,    10,   246,   116,     2,   254,   206,  1030
  69. 780 DATA    195,    42,   210,   195,    10,   210,   117,     6,   985
  70. 790 DATA    138,    22,    59,     1,   235,   236,   254,   202,  1147
  71. 800 DATA    195,    58,    22,    59,     1,   114,     5,    42,   496
  72. 810 DATA    210,   235,    12,   144,   254,   194,   195,   232,  1476
  73. 820 DATA     35,     0,   139,    22,    60,     1,   195,   254,   706
  74. 830 DATA    198,   195,   138,    14,    59,     1,   254,   193,  1052
  75. 840 DATA     42,   202,    42,   237,   176,    32,   180,    10,   921
  76. 850 DATA    205,    16,   195,   128,    54,    62,     1,   255,   916
  77. 860 DATA    195,   232,    63,     0,   195,    43,   201,   191,  1120
  78. 870 DATA    128,     0,   137,    62,    56,     1,   252,   180,   816
  79. 880 DATA      2,   205,    16,   180,     8,   205,    16,   170,   802
  80. 890 DATA     65,   254,   194,    58,    22,    59,     1,   118,   771
  81. 900 DATA    238,    79,   176,    32,   253,   243,   174,   252,  1447
  82. 910 DATA    116,     3,   254,   193,    71,    71,   136,    14,   858
  83. 920 DATA     58,     1,   195,    82,   139,   248,   232,    31,   986
  84. 930 DATA      0,   254,   194,    58,    22,    59,     1,   118,   706
  85. 940 DATA    245,    90,   195,   191,    32,     0,   138,   218,  1109
  86. 950 DATA    138,    22,    59,     1,   232,     9,     0,   254,   715
  87. 960 DATA    202,    58,   211,   125,   247,   254,   194,   195,  1486
  88. 970 DATA    180,     2,   205,    16,   180,     8,   205,    16,   812
  89. 980 DATA    151,   185,     1,     0,   180,    10,   205,    16,   748
  90. 990 DATA    195,    43,   192,   142,   216,   196,    30,   132,  1146
  91. 1000 DATA     0,    46,   137,    30,    47,     1,    46,   140,   447
  92. 1010 DATA     6,    49,     1,   196,    30,    88,     0,    46,   416
  93. 1020 DATA   137,    30,    51,     1,    46,   140,     6,    53,   464
  94. 1030 DATA     1,    14,    31,   186,    89,     1,   184,    33,   539
  95. 1040 DATA    37,   205,    33,   186,   130,     1,   184,    22,   798
  96. 1050 DATA    37,   205,    33,   186,    49,     3,   205,    39,   757
  97.