home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / pcmag / vol5n06.arc / BROWSE.BAS < prev    next >
BASIC Source File  |  1986-01-02  |  9KB  |  140 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE BROWSE.COM
  2. 110 OPEN "BROWSE.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  120 
  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 = 92718 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   150,     0,    65,    84,    84,    82,    61,   759
  21. 300 DATA      0,    83,    72,    73,    70,    84,    61,     8,   451
  22. 310 DATA     82,   101,   113,   117,   105,   114,   101,   115,   848
  23. 320 DATA     32,    68,    79,    83,    32,    50,    46,    48,   438
  24. 330 DATA     32,   111,   114,    32,    97,    98,   111,   118,   713
  25. 340 DATA    101,    36,    78,   111,   116,    32,   101,   110,   685
  26. 350 DATA    111,   117,   103,   104,    32,   109,   101,   109,   786
  27. 360 DATA    111,   114,   121,    36,    70,   105,   108,   101,   766
  28. 370 DATA     32,    78,   111,   116,    32,    70,   111,   117,   667
  29. 380 DATA    110,   100,    36,    85,   110,   115,   117,   112,   785
  30. 390 DATA    112,   111,   114,   116,   101,   100,    32,   118,   804
  31. 400 DATA    105,   100,   101,   111,    32,   109,   111,   100,   769
  32. 410 DATA    101,    36,     9,    32,    44,    59,    61,    47,   389
  33. 420 DATA      0,     0,   255,     0,    25,     0,     0,     0,   280
  34. 430 DATA      1,     0,     0,     0,     0,     0,   184,     0,   185
  35. 440 DATA      0,     0,     0,   255,   255,   255,   255,     0,  1020
  36. 450 DATA      0,     0,     0,   239,     2,    19,     3,    37,   300
  37. 460 DATA      3,    18,     3,    47,     3,    18,     3,    54,   149
  38. 470 DATA      3,    18,     3,    64,     3,    74,     3,    89,   257
  39. 480 DATA      3,   252,   180,    48,   205,    33,    60,     2,   783
  40. 490 DATA    115,     9,   186,    16,     1,   180,     9,   205,   721
  41. 500 DATA     33,   205,    32,   190,   129,     0,   172,    60,   821
  42. 510 DATA     13,   116,    59,   191,    98,     1,   185,     5,   668
  43. 520 DATA      0,   242,   174,   116,   241,   139,   214,    74,  1200
  44. 530 DATA    172,    60,    13,   116,    30,   191,    98,     1,   681
  45. 540 DATA    185,     6,     0,   242,   174,   117,   241,   198,  1163
  46. 550 DATA     68,   255,     0,   227,     2,   235,   233,   172,  1192
  47. 560 DATA     12,    32,    60,   119,   117,     5,   198,     6,   549
  48. 570 DATA    106,     1,   127,   198,    68,   255,     0,   184,   939
  49. 580 DATA      0,    61,   205,    33,   115,     5,   186,    60,   665
  50. 590 DATA      1,   235,   178,   163,   104,     1,     6,    43,   731
  51. 600 DATA    192,   142,   192,    38,   160,    73,     4,    60,   861
  52. 610 DATA      3,   118,    20,    60,     7,   116,     5,   186,   515
  53. 620 DATA     75,     1,   235,   153,   199,     6,   117,     1,   787
  54. 630 DATA      0,   176,   198,     6,   112,     1,     0,    38,   531
  55. 640 DATA    160,    74,     4,   162,   107,     1,    38,   161,   707
  56. 650 DATA     78,     4,   163,   115,     1,    38,   161,    99,   659
  57. 660 DATA      4,   163,   113,     1,     6,    42,   210,    42,   581
  58. 670 DATA    255,   184,    48,    17,   205,    16,     7,    10,   742
  59. 680 DATA    210,   116,    19,   254,   194,   136,    22,   108,  1059
  60. 690 DATA      1,    38,   246,     6,   135,     4,     4,   117,   551
  61. 700 DATA      5,   198,     6,   112,     1,     0,    38,   138,   498
  62. 710 DATA     62,    98,     4,     7,   160,   107,     1,   246,   685
  63. 720 DATA     38,   108,     1,     3,   192,   163,   110,     1,   616
  64. 730 DATA      5,   190,   132,     5,     0,     1,    59,   196,   588
  65. 740 DATA    118,     6,   186,    42,     1,   233,    53,   255,   894
  66. 750 DATA    128,    62,     8,     1,     0,   117,    20,   178,   514
  67. 760 DATA     32,   180,     2,   205,    33,   176,     8,   180,   816
  68. 770 DATA     14,   205,    16,   180,     8,   205,    16,   136,   780
  69. 780 DATA     38,     8,     1,   186,   216,     2,   184,    35,   670
  70. 790 DATA     37,   205,    33,   191,   190,   132,   139,    14,   941
  71. 800 DATA    110,     1,    30,   197,    54,   115,     1,   243,   751
  72. 810 DATA    164,    31,   232,    74,     0,   137,    54,   119,   811
  73. 820 DATA      1,   232,   183,     0,   180,     8,   205,    33,   842
  74. 830 DATA     60,    27,   116,    36,    60,     0,   117,   244,   660
  75. 840 DATA    180,     8,   205,    33,    44,    71,   114,   236,   891
  76. 850 DATA     60,    10,   119,   232,    42,   228,     3,   192,   886
  77. 860 DATA    139,   216,   139,    54,   119,     1,   255,   151,  1074
  78. 870 DATA    131,     1,   137,    54,   119,     1,   235,   209,   887
  79. 880 DATA    190,   190,   132,   196,    62,   115,     1,   139,  1025
  80. 890 DATA     14,   110,     1,   243,   164,   139,    30,   104,   805
  81. 900 DATA      1,   180,    62,   205,    33,   205,    32,    43,   761
  82. 910 DATA    219,   161,   123,     1,    11,     6,   125,     1,   647
  83. 920 DATA    137,    30,   123,     1,   137,    30,   125,     1,   584
  84. 930 DATA    137,    30,   127,     1,   190,   190,     4,   116,   795
  85. 940 DATA      9,   186,   190,     4,   185,     0,   128,   232,   934
  86. 950 DATA    122,     1,   195,   232,    55,     1,   114,    12,   732
  87. 960 DATA    232,    50,     1,   114,     7,    60,    10,   117,   591
  88. 970 DATA    247,   232,   222,     0,   195,   139,    14,   108,  1157
  89. 980 DATA      1,   232,   231,   255,   226,   251,   195,   199,  1590
  90. 990 DATA      6,   127,     1,     0,     0,   195,   160,    15,   504
  91. 1000 DATA     1,    42,   228,     1,     6,   127,     1,   195,   601
  92. 1010 DATA   139,   222,   232,    20,     0,    59,   222,   117,  1011
  93. 1020 DATA   247,   195,   232,   181,     0,   114,     9,   232,  1210
  94. 1030 DATA   176,     0,   114,   196,    60,    10,   117,   247,   920
  95. 1040 DATA   195,   139,    14,   108,     1,   232,   234,   255,  1178
  96. 1050 DATA   226,   251,   195,     6,   139,    54,   119,     1,   991
  97. 1060 DATA   196,    62,   115,     1,   139,    14,   110,     1,   638
  98. 1070 DATA   209,   233,   176,    32,   138,    38,     8,     1,   835
  99. 1080 DATA   243,   171,   160,   107,     1,    42,   228,     3,   955
  100. 1090 DATA     6,   127,     1,   163,   129,     1,    42,   210,   679
  101. 1100 DATA    43,   219,   160,   107,     1,   246,   226,     3,  1005
  102. 1110 DATA   192,   139,   248,     3,    62,   115,     1,   232,   992
  103. 1120 DATA   104,     0,   114,   100,    34,     6,   106,     1,   465
  104. 1130 DATA    60,    13,   116,   243,    60,    10,   116,    80,   698
  105. 1140 DATA    60,     9,   116,    62,   185,     1,     0,    59,   492
  106. 1150 DATA    30,   127,     1,   114,    48,    59,    30,   129,   538
  107. 1160 DATA     1,   115,    42,   138,    38,     8,     1,   128,   471
  108. 1170 DATA    62,   112,     1,     0,   116,    30,    83,    82,   486
  109. 1180 DATA   139,   216,   139,    22,   113,     1,   131,   194,   955
  110. 1190 DATA     6,   236,   208,   232,   114,   251,   250,   236,  1533
  111. 1200 DATA   208,   232,   115,   251,   139,   195,   171,   251,  1562
  112. 1210 DATA    90,    91,   235,     1,   171,    67,   226,   199,  1080
  113. 1220 DATA   235,   173,   139,   195,    37,     7,     0,   185,   971
  114. 1230 DATA     8,     0,    43,   200,   176,    32,   235,   183,   877
  115. 1240 DATA   254,   194,    58,    22,   108,     1,   114,   136,   887
  116. 1250 DATA     7,   195,    59,    54,   121,     1,   115,    67,   619
  117. 1260 DATA   129,   254,   190,   132,   114,    60,    81,    82,  1042
  118. 1270 DATA    87,     6,    30,     7,   190,   190,    68,   191,   769
  119. 1280 DATA   190,     4,   185,     0,    64,    41,    14,   119,   617
  120. 1290 DATA     1,   243,   164,   139,   247,   129,     6,   123,  1052
  121. 1300 DATA     1,     0,   128,   131,    22,   125,     1,     0,   408
  122. 1310 DATA   186,   190,    68,   185,     0,    64,   232,    83,  1008
  123. 1320 DATA     0,   129,    46,   123,     1,     0,    64,   131,   494
  124. 1330 DATA    30,   125,     1,     0,     7,    95,    90,    89,   437
  125. 1340 DATA   235,   184,   172,   245,   195,   129,   254,   190,  1604
  126. 1350 DATA     4,   119,    52,   161,   123,     1,    11,     6,   477
  127. 1360 DATA   125,     1,   116,    41,    81,    82,   190,   190,   826
  128. 1370 DATA     4,   191,   190,    68,   185,     0,    64,     1,   703
  129. 1380 DATA    14,   119,     1,   243,   164,   129,    46,   123,   839
  130. 1390 DATA     1,     0,    64,   131,    30,   125,     1,     0,   352
  131. 1400 DATA   186,   190,     4,   185,     0,    64,   232,    11,   872
  132. 1410 DATA     0,    90,    89,   235,     2,   249,   195,    78,   938
  133. 1420 DATA   138,     4,   248,   195,    80,    83,    81,    82,   911
  134. 1430 DATA   199,     6,   121,     1,   255,   255,   139,    22,   998
  135. 1440 DATA   123,     1,   139,    14,   125,     1,   139,    30,   572
  136. 1450 DATA   104,     1,    42,   192,   180,    66,   205,    33,   823
  137. 1460 DATA    90,    89,   180,    63,   205,    33,   115,     2,   777
  138. 1470 DATA    43,   192,    59,   193,   116,     5,     3,   194,   805
  139. 1480 DATA   163,   121,     1,    91,    88,   195,     0,     0,   659
  140.