home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n05.zip / ASC.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  12KB  |  167 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE ASC.COM
  2. 110 OPEN "ASC.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  147 
  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 = 117531 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    29,     4,    67,   111,   112,   121,   114,   791
  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,    80,   114,   111,   103,   114,   746
  26. 350 DATA     97,   109,   109,   101,   100,    32,    98,   121,   767
  27. 360 DATA     32,    74,   101,   102,   102,    32,    80,   114,   637
  28. 370 DATA    111,   115,   105,   115,   101,    32,    73,    66,   718
  29. 380 DATA     77,     2,     0,   184,     0,    15,    31,    30,   339
  30. 390 DATA      1,     3,     0,     0,     0,     0,     0,     0,     4
  31. 400 DATA      0,     0,    32,     5,    44,    40,    45,    41,   207
  32. 410 DATA      0,    42,    46,    30,    32,    68,   101,    99,   418
  33. 420 DATA     32,    72,   101,   120,    32,    67,   104,    97,   625
  34. 430 DATA    114,    32,    32,    68,   101,    99,    32,    72,   550
  35. 440 DATA    101,   120,    32,    67,   104,    97,   114,    32,   667
  36. 450 DATA     46,   128,    62,    83,     1,     0,   117,    31,   468
  37. 460 DATA    251,    80,    83,    81,    82,    86,    87,    30,   780
  38. 470 DATA      6,   228,    96,    60,    30,   117,     8,   180,   725
  39. 480 DATA      2,   205,    22,   168,     8,   117,    13,     7,   542
  40. 490 DATA     31,    95,    94,    90,    89,    91,    88,    46,   624
  41. 500 DATA    255,    46,    86,     1,   232,    74,     1,    14,   709
  42. 510 DATA     31,    14,     7,   180,    15,   205,    16,    60,   528
  43. 520 DATA      2,   116,    17,    60,     3,   116,    13,    60,   387
  44. 530 DATA      7,   116,     9,     7,    31,    95,    94,    90,   449
  45. 540 DATA     89,    91,    88,   207,   136,    62,    76,     1,   750
  46. 550 DATA    198,     6,    83,     1,     1,   180,     3,   205,   677
  47. 560 DATA     16,   137,    14,    84,     1,   180,     1,   181,   614
  48. 570 DATA     32,   205,    16,   128,    62,    73,     1,     0,   517
  49. 580 DATA    117,     3,   232,   239,     0,   139,    62,    90,   882
  50. 590 DATA      1,   232,   130,     0,   232,   183,     1,   128,   907
  51. 600 DATA     62,    73,     1,     0,   117,     3,   232,   234,   722
  52. 610 DATA      0,   232,    84,     1,   180,     0,   205,    22,   724
  53. 620 DATA     60,     0,   116,    46,    60,    27,   117,   244,   670
  54. 630 DATA    128,    62,    73,     1,     0,   117,     3,   232,   616
  55. 640 DATA    194,     0,   139,    54,    90,     1,   232,   129,   839
  56. 650 DATA      0,   128,    62,    73,     1,     0,   117,     3,   384
  57. 660 DATA    232,   192,     0,   180,     1,   139,    14,    84,   842
  58. 670 DATA      1,   205,    16,   198,     6,    83,     1,     0,   510
  59. 680 DATA    235,   137,   128,   252,    72,   117,     5,   232,  1178
  60. 690 DATA     26,     2,   235,   192,   128,   252,    80,   117,  1032
  61. 700 DATA      5,   232,   217,     1,   235,   182,   128,   252,  1252
  62. 710 DATA     73,   117,     5,   232,    59,     2,   235,   172,   895
  63. 720 DATA    128,   252,    81,   117,     5,   232,    83,     2,   900
  64. 730 DATA    235,   162,   128,   252,    79,   117,     5,   232,  1210
  65. 740 DATA    126,     2,   235,   152,   128,   252,    71,   117,  1083
  66. 750 DATA      3,   232,    97,     2,   235,   142,   138,    54,   903
  67. 760 DATA     80,     1,   138,    22,    81,     1,   138,    30,   491
  68. 770 DATA     76,     1,    50,   255,    87,   232,    64,     0,   765
  69. 780 DATA    139,   247,    95,    30,   142,    30,    74,     1,   758
  70. 790 DATA    185,    19,     0,   252,    81,   185,    30,     0,   752
  71. 800 DATA    243,   165,   131,   198,   100,    89,   226,   244,  1396
  72. 810 DATA     31,   195,   138,    54,    80,     1,   138,    22,   659
  73. 820 DATA     81,     1,   138,    30,    76,     1,    50,   255,   632
  74. 830 DATA    232,    21,     0,   142,     6,    74,     1,   185,   661
  75. 840 DATA     19,     0,   252,    81,   185,    30,     0,   243,   810
  76. 850 DATA    165,   131,   199,   100,    89,   226,   244,   195,  1349
  77. 860 DATA    176,   160,   246,   230,   208,   226,    50,   246,  1542
  78. 870 DATA      3,   194,   139,   248,   184,     0,    16,   247,  1031
  79. 880 DATA    227,     3,   248,   195,   186,   218,     3,   236,  1316
  80. 890 DATA    168,     8,   116,   251,   131,   234,     2,   176,  1086
  81. 900 DATA     37,   238,   195,   180,    15,   205,    16,   141,  1027
  82. 910 DATA     30,    92,     1,   215,   186,   216,     3,   238,   981
  83. 920 DATA    195,   228,    97,   138,   224,    12,   128,   230,  1252
  84. 930 DATA     97,   138,   196,   230,    97,   250,   176,    32,  1216
  85. 940 DATA    230,    32,   251,   195,    80,    51,   201,    50,  1090
  86. 950 DATA    228,   246,   243,    80,    65,    50,   228,    10,  1150
  87. 960 DATA    192,   117,   246,    88,   138,   196,    12,    48,  1037
  88. 970 DATA     60,    57,   118,     2,     4,     7,   138,    38,   424
  89. 980 DATA     78,     1,   232,     6,     0,   254,   194,   226,   991
  90. 990 DATA    234,    88,   195,    82,    80,   138,    30,    76,   923
  91. 1000 DATA     1,    50,   255,   232,   138,   255,   128,    62,  1121
  92. 1010 DATA    73,     1,     0,   117,    14,   186,   218,     3,   612
  93. 1020 DATA   236,   168,     1,   117,   251,   250,   236,   168,  1427
  94. 1030 DATA     1,   116,   251,    88,   171,   251,    90,   195,  1163
  95. 1040 DATA   138,    54,    80,     1,   128,   198,     2,   160,   761
  96. 1050 DATA    82,     1,   185,    16,     0,    81,   138,    22,   525
  97. 1060 DATA    81,     1,   128,   194,     2,   232,    16,     0,   654
  98. 1070 DATA   128,   194,     5,     4,    16,   232,     8,     0,   587
  99. 1080 DATA    44,    15,   254,   198,    89,   226,   230,   195,  1251
  100. 1090 DATA   142,     6,    74,     1,    60,   100,   115,     8,   506
  101. 1100 DATA   254,   194,    60,    10,   115,     2,   254,   194,  1083
  102. 1110 DATA   179,    10,   232,   119,   255,   128,   194,     2,  1119
  103. 1120 DATA    60,    16,   115,     2,   254,   194,   179,    16,   836
  104. 1130 DATA   232,   105,   255,   128,   194,     2,   138,    38,  1092
  105. 1140 DATA    78,     1,   232,   134,   255,   195,   138,    54,  1087
  106. 1150 DATA    80,     1,   138,    22,    81,     1,   142,     6,   471
  107. 1160 DATA    74,     1,   252,   138,    30,    76,     1,    50,   622
  108. 1170 DATA   255,   232,     4,   255,   176,   218,   138,    38,  1316
  109. 1180 DATA    77,     1,   171,   185,    28,     0,   176,   196,   834
  110. 1190 DATA   243,   171,   176,   191,   171,   131,   199,   100,  1382
  111. 1200 DATA   176,   179,   171,   141,    54,   100,     1,   185,  1007
  112. 1210 DATA    28,     0,   138,    38,    79,     1,   172,   171,   627
  113. 1220 DATA   226,   252,   138,    38,    77,     1,   176,   179,  1087
  114. 1230 DATA   171,   131,   199,   100,   185,    16,     0,    81,   883
  115. 1240 DATA   176,   179,   138,    38,    77,     1,   171,   176,   956
  116. 1250 DATA    32,   138,    38,    78,     1,   185,    28,     0,   500
  117. 1260 DATA   243,   171,   176,   179,   138,    38,    77,     1,  1023
  118. 1270 DATA   171,   131,   199,   100,    89,   226,   224,   176,  1316
  119. 1280 DATA   192,   171,   185,    28,     0,   176,   196,   243,  1191
  120. 1290 DATA   171,   176,   217,   171,   195,   128,    62,    82,  1202
  121. 1300 DATA     1,   224,   116,    47,   180,     6,   176,     1,   751
  122. 1310 DATA   232,   214,     0,   138,    62,    78,     1,   205,   930
  123. 1320 DATA    16,   254,     6,    82,     1,   160,    82,     1,   602
  124. 1330 DATA     4,    15,   138,    54,    80,     1,   128,   198,   618
  125. 1340 DATA    17,   138,    22,    81,     1,   128,   194,     2,   583
  126. 1350 DATA   232,    45,   255,     4,    16,   128,   194,     5,   879
  127. 1360 DATA   232,    37,   255,   195,   128,    62,    82,     1,   992
  128. 1370 DATA     0,   116,    45,   180,     7,   176,     1,   232,   757
  129. 1380 DATA   159,     0,   138,    62,    78,     1,   205,    16,   659
  130. 1390 DATA   254,    14,    82,     1,   160,    82,     1,   138,   732
  131. 1400 DATA    54,    80,     1,   128,   198,     2,   138,    22,   623
  132. 1410 DATA    81,     1,   128,   194,     2,   232,   248,   254,  1140
  133. 1420 DATA     4,    16,   128,   194,     5,   232,   240,   254,  1073
  134. 1430 DATA   195,   128,    62,    82,     1,     0,   116,    26,   610
  135. 1440 DATA   128,    62,    82,     1,    31,   119,     8,   198,   629
  136. 1450 DATA     6,    82,     1,     0,   235,     6,   144,   128,   602
  137. 1460 DATA    46,    82,     1,    32,   232,    76,     0,   232,   701
  138. 1470 DATA   166,   254,   195,   128,    62,    82,     1,   224,  1112
  139. 1480 DATA   116,    26,   128,    62,    82,     1,   193,   114,   722
  140. 1490 DATA     8,   198,     6,    82,     1,   224,   235,     6,   760
  141. 1500 DATA   144,   128,     6,    82,     1,    32,   232,    42,   667
  142. 1510 DATA     0,   232,   132,   254,   195,   128,    62,    82,  1085
  143. 1520 DATA     1,     0,   116,    11,   198,     6,    82,     1,   415
  144. 1530 DATA     0,   232,    23,     0,   232,   113,   254,   195,  1049
  145. 1540 DATA   128,    62,    82,     1,   224,   116,    11,   198,   822
  146. 1550 DATA     6,    82,     1,   224,   232,     4,     0,   232,   781
  147. 1560 DATA    94,   254,   195,   180,     6,   176,     0,   232,  1137
  148. 1570 DATA     7,     0,   138,    62,    78,     1,   205,    16,   507
  149. 1580 DATA   195,   138,    46,    80,     1,   128,   197,     2,   787
  150. 1590 DATA   138,    14,    81,     1,   128,   193,     2,   139,   696
  151. 1600 DATA   209,   128,   198,    15,   128,   194,    25,   195,  1092
  152. 1610 DATA   184,     0,   192,   142,   192,   191,    30,     0,   931
  153. 1620 DATA   141,    54,    70,     1,   185,     3,     0,   252,   706
  154. 1630 DATA   243,   166,   116,    17,   198,     6,    73,     1,   820
  155. 1640 DATA     0,   180,    15,   205,    16,    60,     7,   117,   600
  156. 1650 DATA     4,   254,     6,    73,     1,    60,     7,   116,   521
  157. 1660 DATA     4,    60,    15,   117,    21,   129,    46,    74,   466
  158. 1670 DATA     1,     0,     8,   198,     6,    77,     1,   112,   403
  159. 1680 DATA   198,     6,    78,     1,     7,   198,     6,    79,   573
  160. 1690 DATA     1,     7,   185,    13,    12,    60,     7,   116,   401
  161. 1700 DATA     7,    60,    15,   116,     3,   185,     7,     6,   399
  162. 1710 DATA   180,     1,   205,    16,   180,    53,   176,     9,   820
  163. 1720 DATA   205,    33,   137,    30,    86,     1,   140,     6,   638
  164. 1730 DATA    88,     1,   180,    37,   176,     9,   141,    22,   654
  165. 1740 DATA   128,     1,   205,    33,   186,   148,     9,   205,   915
  166. 1750 DATA    39,     0,     0,     0,     0,     0,     0,     0,    39
  167.