home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol5n19.arc / CHANGE.BAS < prev    next >
BASIC Source File  |  1987-12-12  |  8KB  |  113 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE change.COM
  2. 110 OPEN "change.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  93 
  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 = 46976 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   134,     0,     0,     0,     0,     0,     0,   367
  21. 300 DATA      0,     0,    83,   121,   110,   116,    97,   120,   647
  22. 310 DATA     32,   101,   114,   114,   111,   114,    36,    70,   692
  23. 320 DATA    105,   108,   101,    32,   110,   111,   116,    32,   715
  24. 330 DATA    102,   111,   117,   110,   100,    36,    70,   105,   751
  25. 340 DATA    108,   101,    32,   116,   111,   111,    32,    98,   709
  26. 350 DATA    105,   103,    36,    78,   111,   116,    32,    67,   648
  27. 360 DATA    104,    97,   110,   103,   101,   100,    36,    67,   718
  28. 370 DATA    111,   112,   121,   114,   105,   103,   104,   116,   886
  29. 380 DATA     32,    49,    57,    56,    54,    32,    90,   105,   475
  30. 390 DATA    102,   102,    45,    68,    97,   118,   105,   115,   752
  31. 400 DATA     32,    80,   117,    98,   108,   105,   115,   104,   759
  32. 410 DATA    105,   110,   103,    32,    67,   111,    46,    26,   600
  33. 420 DATA     80,   114,   111,   103,   114,    97,   109,   109,   837
  34. 430 DATA    101,   100,    32,    98,   121,    32,    77,   105,   666
  35. 440 DATA     99,   104,    97,   101,   108,    32,    74,    46,   661
  36. 450 DATA     32,    77,   101,   102,   102,   111,   114,   100,   739
  37. 460 DATA     26,   190,   128,     0,   186,    10,     1,   252,   793
  38. 470 DATA    232,    53,     1,   137,    54,     3,     1,   128,   609
  39. 480 DATA     60,    13,   116,    63,   128,    60,    32,   116,   588
  40. 490 DATA      3,    70,   235,   243,   198,     4,     0,   232,   985
  41. 500 DATA     30,     1,    51,   201,   191,   225,     2,   232,   933
  42. 510 DATA    215,     0,   128,    60,    32,   116,     8,   128,   687
  43. 520 DATA     60,    13,   116,    31,    70,   235,   240,   232,   997
  44. 530 DATA      6,     1,   137,    14,     5,     1,    51,   201,   416
  45. 540 DATA    191,    97,     3,   232,   187,     0,   128,    60,   898
  46. 550 DATA     32,   116,    14,   128,    60,    13,   116,     9,   488
  47. 560 DATA     70,   235,   240,   180,     9,   205,    33,   205,  1177
  48. 570 DATA     32,   137,    14,     7,     1,   139,    22,     3,   355
  49. 580 DATA      1,   184,     0,    61,   205,    33,   186,    23,   693
  50. 590 DATA      1,   114,   232,   139,   216,   186,     1,    82,   971
  51. 600 DATA    185,    64,   156,   180,    63,   205,    33,   186,  1072
  52. 610 DATA     38,     1,    61,    64,   156,   116,   212,    80,   728
  53. 620 DATA    180,    62,   205,    33,    90,   161,     5,     1,   737
  54. 630 DATA     59,   208,   125,     5,   186,    51,     1,   235,   870
  55. 640 DATA    194,   187,     1,    82,   184,   225,     3,   190,  1066
  56. 650 DATA    225,     2,   139,   251,   139,    14,     5,     1,   776
  57. 660 DATA    243,   166,   139,   248,   116,     8,   139,   243,  1302
  58. 670 DATA    164,    64,    67,    74,   235,    24,   128,    14,   770
  59. 680 DATA      9,     1,     1,   190,    97,     3,   139,    14,   454
  60. 690 DATA      7,     1,     3,   193,     3,    30,     5,     1,   243
  61. 700 DATA     43,    22,     5,     1,   243,   164,    59,    22,   559
  62. 710 DATA      5,     1,   125,   203,   139,   202,     3,   193,   871
  63. 720 DATA    139,   243,   243,   164,    80,   139,    22,     3,  1033
  64. 730 DATA      1,    51,   201,   180,    60,   205,    33,    89,   820
  65. 740 DATA    129,   233,   225,     3,   139,   216,   186,   225,  1356
  66. 750 DATA      3,   180,    64,   205,    33,   180,    62,   205,   932
  67. 760 DATA     33,   186,    51,     1,   128,    62,     9,     1,   471
  68. 770 DATA      0,   116,     3,   131,   194,     4,   233,    82,   763
  69. 780 DATA    255,   128,    60,    34,   117,    20,    70,   172,   856
  70. 790 DATA     60,    13,   116,    49,    60,    34,   117,     6,   455
  71. 800 DATA    232,    52,     0,   115,     1,   195,   170,    65,   830
  72. 810 DATA    235,   237,    50,   219,   232,    40,     0,   115,  1128
  73. 820 DATA      5,   138,   195,   170,    65,   195,   172,    60,  1000
  74. 830 DATA     48,   114,    18,    60,    57,   119,    14,    44,   474
  75. 840 DATA     48,   138,   248,   176,    10,   246,   227,   138,  1231
  76. 850 DATA    216,     2,   223,   235,   223,   233,    19,   255,  1406
  77. 860 DATA     70,   128,    60,    32,   116,   250,   195,   248,  1099
  78. 870 DATA    128,    60,    32,   116,    10,   128,    60,    13,   547
  79. 880 DATA    116,     5,   128,    60,    44,   117,     1,   249,   720
  80. 890 DATA    195,     0,     0,     0,     0,     0,     0,     0,   195
  81. 900 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  82. 910 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  83. 920 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  84. 930 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  85. 940 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  86. 950 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  87. 960 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  88. 970 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  89. 980 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  90. 990 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  91. 1000 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  92. 1010 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  93. 1020 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  94. 1030 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  95. 1040 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  96. 1050 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  97. 1060 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  98. 1070 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  99. 1080 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  100. 1090 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  101. 1100 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  102. 1110 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  103. 1120 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  104. 1130 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  105. 1140 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  106. 1150 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  107. 1160 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  108. 1170 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  109. 1180 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  110. 1190 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  111. 1200 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  112. 1210 DATA     0,     0,     0,     0,     0,     0,     0,     0,     0
  113.