home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n16.zip / XDEL.BAS < prev    next >
BASIC Source File  |  1987-12-13  |  10KB  |  139 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE XDEL.COM
  2. 110 OPEN "XDEL.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  119 
  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 = 88160 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   245,     1,    67,   111,   112,   121,   114,  1004
  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,     0,    65,    84,    84,   483
  26. 350 DATA     82,    61,     0,     0,     9,    32,    44,    59,   287
  27. 360 DATA     61,     0,     0,     0,     0,    92,     0,     0,   153
  28. 370 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  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,     0,     0,     0,     0,     0,     0
  34. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  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,     0,     0,    65,    65
  38. 470 DATA     58,    42,    46,    42,     0,     0,     0,     0,   188
  39. 480 DATA      0,     0,     0,     0,     0,     0,    13,    10,    23
  40. 490 DATA     10,    72,   111,   109,   101,    32,    45,    32,   512
  41. 500 DATA    102,   105,   114,   115,   116,    32,   102,   105,   791
  42. 510 DATA    108,   101,    32,   109,    97,   116,    99,   104,   766
  43. 520 DATA     32,    32,    32,     9,     9,     9,    80,   103,   306
  44. 530 DATA     68,   110,    32,    45,    32,   110,   101,   120,   618
  45. 540 DATA    116,    32,   102,   105,   108,   101,    32,   109,   705
  46. 550 DATA     97,   116,    99,   104,    32,    13,    10,    70,   541
  47. 560 DATA     49,    32,    32,    32,    45,    32,   100,   101,   423
  48. 570 DATA    108,   101,   116,   101,    32,   108,    97,   115,   778
  49. 580 DATA    116,    32,   102,   105,   108,   101,    32,   115,   711
  50. 590 DATA    104,   111,   119,   110,     9,     9,     9,    69,   540
  51. 600 DATA     83,    67,    32,    32,    45,    32,    98,    97,   486
  52. 610 DATA     99,   107,    32,   116,   111,    32,    68,    79,   644
  53. 620 DATA     83,    13,    10,   205,   205,   205,   205,   205,  1131
  54. 630 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  55. 640 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  56. 650 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  57. 660 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  58. 670 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  59. 680 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  60. 690 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  61. 700 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  62. 710 DATA    205,   205,   205,   205,   205,   205,   205,   205,  1640
  63. 720 DATA    205,   205,   205,    13,     0,     9,     9,     9,   655
  64. 730 DATA     32,    32,    32,    32,    68,    73,    82,    69,   420
  65. 740 DATA     67,    84,    79,    82,    89,    32,    80,    85,   598
  66. 750 DATA     82,    71,    69,    32,    85,    84,    73,    76,   572
  67. 760 DATA     73,    84,    89,    13,    10,    67,   117,   114,   567
  68. 770 DATA    114,   101,   110,   116,    32,    68,   105,   114,   760
  69. 780 DATA    101,    99,   116,   111,   114,   121,    32,    58,   752
  70. 790 DATA     13,    10,     0,    16,    32,     0,    13,    10,    94
  71. 800 DATA     70,   105,   108,   101,    32,   110,   111,   116,   753
  72. 810 DATA     32,   102,   111,   117,   110,   100,     0,    13,   585
  73. 820 DATA     10,    73,   110,   118,    97,   108,   105,   100,   721
  74. 830 DATA     32,   100,   114,   105,   118,   101,    32,    47,   649
  75. 840 DATA     32,   102,   105,   108,   101,    32,   115,   112,   707
  76. 850 DATA    101,    99,   105,   102,   105,    99,    97,   116,   824
  77. 860 DATA    105,   111,   110,    13,    10,    67,   104,    97,   617
  78. 870 DATA    110,   103,   101,    32,   100,   105,   114,   101,   766
  79. 880 DATA     99,   116,   111,   114,   121,    32,    98,   101,   792
  80. 890 DATA    102,   111,   114,   101,    32,   117,   115,   105,   797
  81. 900 DATA    110,   103,    32,    88,    68,    69,    76,     0,   546
  82. 910 DATA    186,   167,     2,   232,    86,     1,   205,    32,   911
  83. 920 DATA    180,     8,   205,    16,   136,    62,    44,     1,   652
  84. 930 DATA    128,    62,    50,     1,     0,   117,     4,   136,   498
  85. 940 DATA     38,    50,     1,   252,   190,   129,     0,   191,   851
  86. 950 DATA     58,     1,   232,   237,     0,   116,   251,    78,   973
  87. 960 DATA     60,    13,   116,    12,   128,   124,     1,    58,   512
  88. 970 DATA    117,     6,   173,    36,   223,   235,     9,   144,   943
  89. 980 DATA    180,    25,   205,    33,     4,    65,   180,    58,   750
  90. 990 DATA     60,    65,   114,   188,    60,    90,   119,   184,   880
  91. 1000 DATA   171,   191,   128,     1,   171,   191,   143,     1,   997
  92. 1010 DATA   171,    44,    65,   162,    57,     1,   128,    60,   688
  93. 1020 DATA    13,   116,    25,   185,    12,     0,   232,   177,   760
  94. 1030 DATA     0,   116,   251,    60,    13,   116,    10,    60,   626
  95. 1040 DATA    92,   116,   149,   170,    73,   227,     2,   235,  1064
  96. 1050 DATA   237,   198,     5,     0,   232,   169,     0,   232,  1073
  97. 1060 DATA    23,     1,   186,    93,     2,   232,   220,     0,   757
  98. 1070 DATA   186,   147,     2,   232,   214,     0,   186,    58,  1025
  99. 1080 DATA     1,   232,   208,     0,   186,    61,     1,   232,   921
  100. 1090 DATA   202,     0,   186,   145,     1,   232,   196,     0,   962
  101. 1100 DATA   186,   158,     1,   232,   190,     0,   198,     6,   971
  102. 1110 DATA    51,     1,     0,   186,   143,     1,   185,     0,   567
  103. 1120 DATA     0,   180,    78,   205,    33,   114,    91,   186,   887
  104. 1130 DATA   158,     0,   232,   167,     0,   128,     6,    51,   742
  105. 1140 DATA     1,     1,   232,   189,     0,    60,    27,   116,   626
  106. 1150 DATA    79,    60,    59,   116,    10,    60,    71,   116,   571
  107. 1160 DATA   174,    60,    81,   116,    36,   235,   235,    81,  1018
  108. 1170 DATA   190,   158,     0,   191,   130,     1,   185,    13,   868
  109. 1180 DATA     0,   243,   164,    89,   232,   170,     0,   114,  1012
  110. 1190 DATA     9,   178,    17,   232,   141,     0,    65,   235,   877
  111. 1200 DATA     8,   144,   178,     7,   232,   132,     0,   235,   936
  112. 1210 DATA   201,   232,    90,     0,   232,    74,     0,   114,   943
  113. 1220 DATA    23,   128,    62,    51,     1,    80,   114,   175,   634
  114. 1230 DATA   232,   169,     0,   128,    46,    51,     1,    40,   667
  115. 1240 DATA   235,   165,   186,   150,     2,   232,    76,     0,  1046
  116. 1250 DATA   205,    32,    81,    87,   172,   191,    52,     1,   821
  117. 1260 DATA   185,     5,     0,   242,   174,    95,    89,   195,   985
  118. 1270 DATA    86,   180,    71,   138,    22,    57,     1,   254,   809
  119. 1280 DATA   194,   190,    62,     1,   205,    33,    42,   192,   919
  120. 1290 DATA    56,     4,   116,    11,   139,   254,   185,    64,   829
  121. 1300 DATA     0,   242,   174,    79,   176,    92,   170,    94,  1027
  122. 1310 DATA   195,    81,   186,   143,     1,   185,     0,     0,   791
  123. 1320 DATA   180,    79,   205,    33,    89,   195,   131,   249,  1161
  124. 1330 DATA    16,   115,     8,   178,    32,   232,    27,     0,   608
  125. 1340 DATA    65,   235,   243,   195,    86,    82,    43,   201,  1150
  126. 1350 DATA   139,   242,   138,    20,   128,   250,     0,   116,  1033
  127. 1360 DATA     7,   232,     7,     0,    70,    65,   235,   242,   858
  128. 1370 DATA    90,    94,   195,    80,   180,     2,   205,    33,   879
  129. 1380 DATA    88,   195,   180,     0,   205,    22,    60,    27,   777
  130. 1390 DATA   116,     6,    60,     0,   117,   244,   134,   224,   901
  131. 1400 DATA   195,   186,   128,     1,   180,    65,   205,    33,   993
  132. 1410 DATA   195,   180,     2,   138,    62,    44,     1,   186,   808
  133. 1420 DATA     0,     0,   205,    16,   138,    62,    50,     1,   472
  134. 1430 DATA   184,     0,     6,   185,     0,     0,   186,    80,   641
  135. 1440 DATA    24,   205,    16,   195,   180,     2,   138,    62,   822
  136. 1450 DATA    44,     1,   186,     0,    15,   205,    16,   138,   605
  137. 1460 DATA    62,    50,     1,   184,     8,     6,   185,     0,   496
  138. 1470 DATA     7,   186,    80,    24,   205,    16,   195,     0,   713
  139.