home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n20.zip / SUGGEST.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  4KB  |  73 lines

  1. 100 REM -- BASIC PROGRAM TO CREATE suggest.COM
  2. 110 OPEN "SUGGEST.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO 49 
  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";320 + 10 * I%
  16. 250 NEXT I%
  17. 260 FOR I% = 1 TO 236
  18. 270    LSET A$ = CHR$(0)
  19. 280    PUT #1
  20. 290 NEXT
  21. 300 CLOSE
  22. 310 IF CHECKSUM = 38454! THEN PRINT "Successful Completion!" : END
  23. 320 PRINT "COM file is not valid!" : END
  24. 330 DATA    233,   212,     0,    67,   111,   112,   121,   114,   970
  25. 340 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  26. 350 DATA     54,    32,    90,   105,   102,   102,    45,    68,   598
  27. 360 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  28. 370 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  29. 380 DATA     67,   111,    46,     0,   176,     0,     0,     0,   400
  30. 390 DATA      0,     0,     0,     0,     0,     1,     0,   135,   136
  31. 400 DATA    115,   251,   156,    80,    81,    82,    30,     6,   801
  32. 410 DATA     86,    87,    14,    31,   255,     6,    51,     1,   531
  33. 420 DATA    139,    22,    51,     1,    59,    22,    55,     1,   350
  34. 430 DATA    117,    71,   199,     6,    51,     1,     0,     0,   445
  35. 440 DATA    184,    64,     0,   142,   192,    38,   160,    73,   853
  36. 450 DATA      0,    60,     1,   118,    52,    60,     3,   118,   412
  37. 460 DATA      4,    60,     7,   117,    44,   139,    22,    49,   442
  38. 470 DATA      1,   161,    43,     1,    30,     7,   142,   216,   601
  39. 480 DATA    190,   224,     6,   191,   116,     3,   252,   232,  1214
  40. 490 DATA     36,     0,    30,     6,    31,     7,   190,   132,   432
  41. 500 DATA      2,   232,    47,     0,   139,    14,    53,     1,   488
  42. 510 DATA     73,   117,   253,   190,   116,     3,   232,    34,  1018
  43. 520 DATA      0,    95,    94,     7,    31,    90,    89,    88,   494
  44. 530 DATA    157,    46,   255,    46,    45,     1,   185,   240,   975
  45. 540 DATA      0,   236,   168,     1,   117,   251,   250,   236,  1259
  46. 550 DATA    168,     1,   116,   251,   172,   251,   170,    70,  1199
  47. 560 DATA    226,   239,   195,   191,   224,     6,   185,   240,  1506
  48. 570 DATA      0,   172,   138,   224,   236,   168,     1,   117,  1056
  49. 580 DATA    251,   250,   236,   168,     1,   116,   251,   138,  1411
  50. 590 DATA    196,   170,   251,    71,   226,   235,   195,   176,  1520
  51. 600 DATA     32,   191,   132,     2,   185,   240,     0,   243,  1025
  52. 610 DATA    170,    51,   201,   190,   130,     0,   128,   124,   994
  53. 620 DATA    254,     1,   119,     2,   205,    32,   172,    65,   850
  54. 630 DATA     60,    13,   116,    47,    60,    47,   117,   246,   706
  55. 640 DATA    172,    60,    13,   116,    38,    36,    95,    60,   590
  56. 650 DATA     70,   117,    14,   232,   109,     0,   187,   204,   933
  57. 660 DATA     12,   247,   227,    41,     6,    55,     1,   235,   824
  58. 670 DATA    231,    60,    68,   117,   227,   232,    91,     0,  1026
  59. 680 DATA    187,   109,    16,   247,   227,     1,     6,    53,   846
  60. 690 DATA      1,   235,   213,   190,   130,     0,   191,   212,  1172
  61. 700 DATA      2,    73,   131,   249,    80,   114,     5,   185,   839
  62. 710 DATA     80,     0,   235,     9,   187,    80,     0,    43,   634
  63. 720 DATA    217,   209,   235,     3,   251,   243,   164,   184,  1506
  64. 730 DATA     64,     0,   142,   192,    38,   161,    99,     0,   696
  65. 740 DATA      5,     6,     0,   163,    49,     1,    61,   186,   471
  66. 750 DATA      3,   116,     6,   129,     6,    43,     1,     0,   304
  67. 760 DATA      8,   184,    28,    53,   205,    33,   137,    30,   678
  68. 770 DATA     45,     1,   140,     6,    47,     1,   186,    57,   483
  69. 780 DATA      1,   184,    28,    37,   205,    33,   186,   101,   775
  70. 790 DATA      4,   205,    39,    50,   228,   172,    60,    49,   807
  71. 800 DATA    114,     7,    60,    57,   119,     3,    44,    48,   452
  72. 810 DATA    195,   176,     0,   195,     0,     0,     0,     0,   566
  73.