home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n20.zip / STICK.BAS < prev    next >
BASIC Source File  |  1987-10-16  |  9KB  |  141 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE stick.COM
  2. 110 OPEN "stick.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. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 89896 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   210,     1,    83,    84,    73,    67,    75,   826
  22. 300 DATA     32,    49,    46,    48,    32,    40,    99,    41,   387
  23. 310 DATA     32,    49,    57,    56,    55,    32,    90,   105,   476
  24. 320 DATA    102,   102,    32,    67,   111,   109,   109,   117,   749
  25. 330 DATA    110,   105,    99,    97,   116,   105,   111,   110,   853
  26. 340 DATA    115,    32,    67,   111,    46,    13,    10,    36,   430
  27. 350 DATA     26,    74,   101,   102,   102,    32,    80,   114,   631
  28. 360 DATA    111,   115,   105,   115,   101,   255,   255,   255,  1312
  29. 370 DATA      0,     0,     0,     2,     0,     0,     0,     0,     2
  30. 380 DATA    251,   128,   252,     6,   114,    43,   128,   252,  1174
  31. 390 DATA      7,   119,    33,    10,   192,   117,    29,    46,   553
  32. 400 DATA    246,     6,    63,     1,   128,   117,    21,   128,   710
  33. 410 DATA    255,     7,   117,    16,    46,   138,    62,    64,   705
  34. 420 DATA      1,    81,   177,     4,   210,   231,    89,    46,   839
  35. 430 DATA     10,    62,    63,     1,    46,   255,    46,    68,   551
  36. 440 DATA      1,   128,   252,     1,   117,   246,   246,   197,  1188
  37. 450 DATA     32,   117,   241,    46,   128,    62,    61,     1,   688
  38. 460 DATA    255,   116,    17,    80,    81,    82,     6,    46,   683
  39. 470 DATA    139,    14,    65,     1,   232,   118,     0,     7,   576
  40. 480 DATA     90,    89,    88,   207,    46,   128,    62,    62,   772
  41. 490 DATA      1,   255,   116,   208,    46,   128,    62,    67,   883
  42. 500 DATA      1,     1,   117,   200,    80,     6,   184,    64,   653
  43. 510 DATA      0,   142,   192,    38,   246,     6,   135,     0,   759
  44. 520 DATA      8,   117,    75,    38,   246,     6,   135,     0,   625
  45. 530 DATA      1,   117,    67,    83,    81,    82,   128,   249,   808
  46. 540 DATA      7,   119,    50,    10,   201,   116,    46,   139,   688
  47. 550 DATA    217,   184,    48,    17,   205,    16,   138,   193,  1018
  48. 560 DATA    254,   200,    42,   195,    10,   255,   116,     2,  1074
  49. 570 DATA      2,   248,     2,   216,   129,   251,    13,    12,   873
  50. 580 DATA    117,     3,   187,    12,    11,   254,   195,    58,   837
  51. 590 DATA    217,   117,     2,    50,   219,    11,   219,   117,   952
  52. 600 DATA      2,   179,    30,   139,   203,   232,    13,     0,   798
  53. 610 DATA     90,    89,    91,     7,    88,   207,     7,    88,   667
  54. 620 DATA     46,   255,    46,    68,     1,   184,    64,     0,   664
  55. 630 DATA    142,   192,    38,   137,    14,    96,     0,    38,   657
  56. 640 DATA    139,    22,    99,     0,   176,    10,   238,    66,   750
  57. 650 DATA    138,   197,   238,    74,   176,    11,   238,    66,  1138
  58. 660 DATA    138,   193,   238,   195,    13,    10,    67,   117,   971
  59. 670 DATA    114,   115,   111,   114,    32,    76,   111,    99,   772
  60. 680 DATA    107,   105,   110,   103,    58,    32,    32,    32,   579
  61. 690 DATA     32,    32,    32,    36,    67,   111,   108,   111,   529
  62. 700 DATA    114,    32,    76,   111,    99,   107,   105,   110,   754
  63. 710 DATA    103,    58,    32,    32,    32,    32,    32,    32,   353
  64. 720 DATA     32,    36,    69,   109,   117,   108,    97,   116,   684
  65. 730 DATA    105,   111,   110,    32,    77,   111,   100,   101,   747
  66. 740 DATA     58,    32,    32,    32,    32,    32,    32,    36,   286
  67. 750 DATA     69,    71,    65,    32,    69,   109,   117,   108,   640
  68. 760 DATA     97,   116,   105,   111,   110,    32,    66,   105,   742
  69. 770 DATA    116,    58,    32,    32,    32,    36,    13,    10,   329
  70. 780 DATA     85,   115,    97,   103,   101,    58,    32,    91,   682
  71. 790 DATA    100,    58,    93,    91,   112,    97,   116,   104,   771
  72. 800 DATA     93,    83,    84,    73,    67,    75,    32,    91,   598
  73. 810 DATA     47,    76,    43,   124,    45,    93,    32,    91,   551
  74. 820 DATA     47,    69,    43,   124,    45,    93,    32,    91,   544
  75. 830 DATA     47,    66,    43,   124,    45,    93,    32,    91,   541
  76. 840 DATA     47,    67,    45,   124,    32,   102,   103,    32,   552
  77. 850 DATA     98,   103,    93,    13,    10,    36,    79,   110,   542
  78. 860 DATA     13,    10,    36,    79,   102,   102,    13,    10,   365
  79. 870 DATA     36,    48,    13,    10,    36,   184,     0,    26,   353
  80. 880 DATA    205,    16,    60,    26,   117,    10,   128,   251,   813
  81. 890 DATA      7,   116,    24,   128,   251,     8,   116,    19,   669
  82. 900 DATA    254,    14,    67,     1,   180,    18,   179,    16,   729
  83. 910 DATA    205,    16,   128,   251,    16,   117,     4,   254,   991
  84. 920 DATA     14,    67,     1,   252,   199,     6,     0,     1,   540
  85. 930 DATA      0,     0,    51,   219,   140,   200,    67,   142,   819
  86. 940 DATA    195,    59,   195,   116,    12,   190,     0,     1,   768
  87. 950 DATA    139,   254,   185,    16,     0,   243,   166,   117,  1120
  88. 960 DATA    237,   190,   129,     0,   128,   124,   255,     2,  1065
  89. 970 DATA    114,     5,   232,    92,     1,   115,    82,   180,   821
  90. 980 DATA      9,   186,    44,     2,   205,    33,   191,    61,   731
  91. 990 DATA      1,   232,   119,     1,   180,     9,   186,    68,   796
  92. 1000 DATA     2,   205,    33,   191,    63,     1,   232,   106,   833
  93. 1010 DATA     1,   128,    62,    67,     1,     1,   117,    44,   421
  94. 1020 DATA   180,     9,   186,    90,     2,   205,    33,   191,   896
  95. 1030 DATA    62,     1,   232,    86,     1,   180,     9,   186,   757
  96. 1040 DATA   112,     2,   205,    33,   184,    64,     0,   142,   742
  97. 1050 DATA   192,    38,   246,     6,   135,     0,     1,   116,   734
  98. 1060 DATA     4,   254,     6,   209,     2,   180,     9,   186,   850
  99. 1070 DATA   209,     2,   205,    33,   184,     0,    76,   205,   914
  100. 1080 DATA    33,    60,    47,   117,    94,   172,    36,   223,   782
  101. 1090 DATA    60,    76,   117,     3,   235,    97,   144,    60,   792
  102. 1100 DATA    67,   117,     3,   233,   149,     0,    60,    69,   698
  103. 1110 DATA   117,     3,   235,   117,   144,    60,    66,   117,   859
  104. 1120 DATA    66,   233,   178,     0,   232,   226,     0,   115,  1050
  105. 1130 DATA   216,   140,   200,   140,   195,    59,   195,   116,  1261
  106. 1140 DATA     5,   184,     0,    76,   205,    33,   184,    16,   703
  107. 1150 DATA    53,   205,    33,   137,    30,    68,     1,   140,   667
  108. 1160 DATA     6,    70,     1,   184,    16,    37,   186,    72,   572
  109. 1170 DATA     1,   205,    33,   180,     9,   186,     3,     1,   618
  110. 1180 DATA   205,    33,   161,    44,     0,   142,   192,   180,   957
  111. 1190 DATA    73,   205,    33,   184,     0,    49,   186,    35,   765
  112. 1200 DATA     0,   205,    33,   180,     9,   186,   134,     2,   749
  113. 1210 DATA   205,    33,   184,     1,    76,   205,    33,   172,   909
  114. 1220 DATA    60,    43,   117,    17,    38,   198,     6,    61,   540
  115. 1230 DATA     1,     0,   180,     3,   205,    16,    38,   137,   580
  116. 1240 DATA    14,    65,     1,   235,   159,    60,    45,   117,   696
  117. 1250 DATA   218,    38,   198,     6,    61,     1,   255,   235,  1012
  118. 1260 DATA   147,   172,    60,    43,   117,     8,    38,   198,   783
  119. 1270 DATA     6,    62,     1,     0,   235,   134,    60,    45,   543
  120. 1280 DATA   117,   193,    38,   198,     6,    62,     1,   255,   870
  121. 1290 DATA   233,   121,   255,   172,    60,    45,   117,     9,  1012
  122. 1300 DATA    38,   198,     6,    63,     1,   255,   233,   107,   901
  123. 1310 DATA   255,   232,    90,     0,   114,   165,   138,   224,  1218
  124. 1320 DATA    70,   232,    82,     0,   114,   157,    60,     7,   722
  125. 1330 DATA   119,   153,    38,   136,    38,    63,     1,    38,   586
  126. 1340 DATA   162,    64,     1,   233,    78,   255,   128,    62,   983
  127. 1350 DATA    67,     1,     1,   114,    18,   172,    60,    43,   476
  128. 1360 DATA   117,    16,     6,   184,    64,     0,   142,   192,   721
  129. 1370 DATA    38,   128,    14,   135,     0,     1,     7,   233,   556
  130. 1380 DATA    50,   255,    60,    45,   117,    16,     6,   184,   733
  131. 1390 DATA    64,     0,   142,   192,    38,   128,    38,   135,   737
  132. 1400 DATA     0,   254,     7,   233,    30,   255,   233,    90,  1102
  133. 1410 DATA   255,   172,    60,    13,   116,     6,    60,    32,   714
  134. 1420 DATA   116,   247,   248,   195,   249,   195,   172,    60,  1482
  135. 1430 DATA    48,   114,    22,    60,    57,   119,     4,    44,   468
  136. 1440 DATA    48,   248,   195,    36,   223,    60,    65,   114,   989
  137. 1450 DATA     8,    60,    70,   119,     4,    44,    55,   248,   608
  138. 1460 DATA   195,   249,   195,   180,     9,   186,   203,     2,  1219
  139. 1470 DATA    38,   128,    61,   255,   116,     3,   186,   198,   985
  140. 1480 DATA     2,   205,    33,   195,     0,     0,     0,     0,   435
  141.