home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n02.zip / PARSE.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  8KB  |  122 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE PARSE.COM
  2. 110 OPEN "PARSE.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  102 
  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 = 72690 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    21,     1,    32,    67,   111,   112,   121,   698
  21. 300 DATA    114,   105,   103,   104,   116,    32,    49,    57,   680
  22. 310 DATA     56,    54,    32,    90,   105,   102,   102,    45,   586
  23. 320 DATA     68,    97,   118,   105,   115,    32,    80,   117,   732
  24. 330 DATA     98,   108,   105,   115,   104,   105,   110,   103,   848
  25. 340 DATA     32,    67,   111,    46,    32,    80,   114,   111,   593
  26. 350 DATA    103,   114,    97,   109,   109,   101,   100,    32,   765
  27. 360 DATA     98,   121,    32,    77,   105,    99,   104,    97,   733
  28. 370 DATA    101,   108,    32,    74,    46,    32,    77,   101,   571
  29. 380 DATA    102,   102,   111,   114,   100,     0,     0,     0,   529
  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,    32,   112,   114,   105,   110,   116,   589
  33. 420 DATA     97,    98,   108,   101,    32,    99,   104,    97,   736
  34. 430 DATA    114,    97,    99,   116,   101,   114,   115,    46,   802
  35. 440 DATA     13,    10,    36,    32,   119,   111,   114,   100,   535
  36. 450 DATA    115,    46,    13,    10,    36,    32,   119,   111,   482
  37. 460 DATA    114,   100,   115,    32,   119,   105,   116,   104,   805
  38. 470 DATA     32,   116,   104,   114,   101,   101,    32,   111,   711
  39. 480 DATA    114,    32,   109,   111,   114,   101,    32,   115,   728
  40. 490 DATA    121,   108,   108,    97,    98,   108,   101,   115,   856
  41. 500 DATA     46,    13,    10,    36,    32,   115,   101,   110,   463
  42. 510 DATA    116,   101,   110,    99,   101,   115,    46,    13,   701
  43. 520 DATA     10,    36,    32,    97,   118,   103,    46,    32,   474
  44. 530 DATA     99,   104,    97,   114,    97,    99,   116,   101,   827
  45. 540 DATA    114,   115,    47,   119,   111,   114,   100,    46,   766
  46. 550 DATA     13,    10,    36,    32,    97,   118,   103,    46,   455
  47. 560 DATA     32,   119,   111,   114,   100,   115,    47,   115,   753
  48. 570 DATA    101,   110,   116,   101,   110,    99,   101,    46,   784
  49. 580 DATA     13,    10,    36,    13,    10,    32,    32,    82,   228
  50. 590 DATA    101,    97,   100,   105,   110,   103,    32,   105,   753
  51. 600 DATA    110,   100,   101,   120,    13,    10,    36,    32,   522
  52. 610 DATA    103,   114,    97,   100,   101,    32,   108,   101,   756
  53. 620 DATA    118,   101,   108,    46,    13,    10,    36,    46,   478
  54. 630 DATA     36,    54,    53,    53,    51,    54,    43,    36,   380
  55. 640 DATA    191,   128,     0,   138,    29,    50,   255,   198,   989
  56. 650 DATA     65,     1,     0,    71,   128,    61,    32,   116,   474
  57. 660 DATA    250,   139,   215,   184,     0,    61,   205,    33,  1087
  58. 670 DATA    114,    50,    80,    91,    83,   186,    48,     4,   656
  59. 680 DATA    185,     0,   250,   180,    63,   205,    33,   114,  1030
  60. 690 DATA     30,    61,     0,     0,   117,    32,   128,    62,   430
  61. 700 DATA     95,     1,     0,   116,    15,   255,     6,    85,   573
  62. 710 DATA      1,   128,    62,    96,     1,     0,   116,     4,   408
  63. 720 DATA    255,     6,    87,     1,   232,   141,     0,    91,   813
  64. 730 DATA    180,    62,   205,    33,   205,    32,   139,   200,  1056
  65. 740 DATA    190,    48,     4,   252,   172,    36,   127,    60,   889
  66. 750 DATA     32,   114,    10,   131,     6,    77,     1,     1,   372
  67. 760 DATA    131,    22,    79,     1,     0,    60,    32,   119,   444
  68. 770 DATA     18,   128,    62,    96,     1,     0,   116,     4,   425
  69. 780 DATA    255,     6,    87,     1,   128,    62,    95,     1,   635
  70. 790 DATA      0,   117,    59,    60,    46,   116,    48,    60,   506
  71. 800 DATA     33,   116,    44,    60,    63,   116,    40,    60,   532
  72. 810 DATA     45,   116,    58,    60,    48,   114,    59,    60,   560
  73. 820 DATA     57,   118,    10,    36,    95,    60,    65,   114,   555
  74. 830 DATA     49,    60,    90,   119,    45,   131,     6,    81,   581
  75. 840 DATA      1,     1,   131,    22,    83,     1,     0,   198,   437
  76. 850 DATA      6,    95,     1,     1,    67,   235,    27,   198,   630
  77. 860 DATA      6,    96,     1,     1,   235,    25,   255,     6,   625
  78. 870 DATA     85,     1,   131,   251,     8,   114,     4,   255,   849
  79. 880 DATA      6,    89,     1,    51,   219,   198,     6,    95,   665
  80. 890 DATA      1,     0,   198,     6,    96,     1,     0,   226,   528
  81. 900 DATA    131,   233,    71,   255,   178,    10,   180,     2,  1060
  82. 910 DATA    205,    33,   131,    62,    79,     1,     0,   116,   627
  83. 920 DATA      7,   186,    17,     2,   180,     9,   205,    33,   639
  84. 930 DATA    139,    30,    77,     1,   232,   167,     0,   186,   832
  85. 940 DATA     98,     1,   232,   232,     0,   139,    30,    85,   817
  86. 950 DATA      1,   232,   154,     0,   186,   123,     1,   232,   929
  87. 960 DATA    219,     0,   139,    30,    89,     1,   232,   141,   851
  88. 970 DATA      0,   186,   133,     1,   232,   206,     0,   139,   897
  89. 980 DATA     30,    87,     1,   232,   128,     0,   186,   172,   836
  90. 990 DATA      1,   232,   193,     0,   161,    81,     1,   139,   808
  91. 1000 DATA    22,    83,     1,   139,    14,    85,     1,   247,   592
  92. 1010 DATA   241,   232,   182,     0,   232,   212,     0,   186,  1285
  93. 1020 DATA   186,     1,   232,   168,     0,   161,    85,     1,   834
  94. 1030 DATA    51,   210,   139,    14,    87,     1,   247,   241,   990
  95. 1040 DATA   232,   159,     0,   232,   189,     0,   186,   211,  1209
  96. 1050 DATA     1,   232,   145,     0,   186,   235,     1,   232,  1032
  97. 1060 DATA   139,     0,   184,    40,     0,   247,    38,    89,   737
  98. 1070 DATA     1,   139,    14,    85,     1,   247,   241,   232,   960
  99. 1080 DATA   128,     0,   255,    54,    93,     1,   255,    54,   840
  100. 1090 DATA    91,     1,   184,    10,     0,   247,    38,    87,   658
  101. 1100 DATA     1,    80,   184,     4,     0,   247,    38,    85,   639
  102. 1110 DATA     1,    89,   247,   241,   232,    99,     0,    88,   997
  103. 1120 DATA     1,     6,    91,     1,    88,     3,     6,    93,   289
  104. 1130 DATA     1,   232,   103,     0,   232,   116,     0,   186,   870
  105. 1140 DATA   255,     1,   232,    72,     0,   195,   185,    16,   956
  106. 1150 DATA    39,   232,    30,     0,   185,   232,     3,   232,   953
  107. 1160 DATA    24,     0,   185,   100,     0,   232,    18,     0,   559
  108. 1170 DATA   185,    10,     0,   232,    12,     0,   185,     1,   625
  109. 1180 DATA     0,   232,     6,     0,   198,     6,    97,     1,   540
  110. 1190 DATA     0,   195,   139,   195,    51,   210,   247,   241,  1278
  111. 1200 DATA   139,   218,   138,   208,    60,     0,   116,     4,   883
  112. 1210 DATA     8,     6,    97,     1,   128,    62,    97,     1,   400
  113. 1220 DATA     0,   117,     2,   178,   240,   128,   194,    48,   907
  114. 1230 DATA   180,     2,   205,    33,   195,   180,     9,   205,  1009
  115. 1240 DATA    33,   195,   163,    91,     1,   184,    10,     0,   677
  116. 1250 DATA   247,   226,   247,   241,     3,   210,    59,   209,  1442
  117. 1260 DATA   114,    13,    64,    61,    10,     0,   114,     7,   383
  118. 1270 DATA    45,    10,     0,   255,     6,    91,     1,   163,   571
  119. 1280 DATA    93,     1,   195,   139,    30,    91,     1,   232,   782
  120. 1290 DATA   152,   255,   186,    15,     2,   232,   205,   255,  1302
  121. 1300 DATA   139,    22,    93,     1,   232,   190,   255,   195,  1127
  122.