home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol4n24.zip / WAITASEC.BAS < prev    next >
BASIC Source File  |  1985-05-26  |  8KB  |  115 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE WAITASEC.COM
  2. 110 OPEN "WAITASEC.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  95 
  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       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";299 + I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 67120 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 300 DATA    233,   168,     2,     8,     0,    40,    67,    41,   559
  21. 301 DATA     32,    67,   111,   112,   121,   114,   105,   103,   765
  22. 302 DATA    104,   116,    32,    67,   104,    97,   114,   108,   742
  23. 303 DATA    101,   115,    32,    80,   101,   116,   122,   111,   778
  24. 304 DATA    108,   100,    44,    32,    49,    57,    56,    53,   499
  25. 305 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  26. 306 DATA      0,     0,   171,     3,     0,     0,   171,     3,   348
  27. 307 DATA    171,     3,     0,     0,   124,     2,   129,     2,   431
  28. 308 DATA    134,     2,   191,     2,   191,     2,   191,     2,   715
  29. 309 DATA    191,     2,   191,     2,   192,     2,   197,     2,   779
  30. 310 DATA    202,     2,    61,     1,     6,   117,    69,   131,   589
  31. 311 DATA    249,     0,   117,    64,   128,   250,    79,   117,  1004
  32. 312 DATA     59,   232,   229,     1,   114,    54,   251,   252,  1192
  33. 313 DATA     81,    86,    87,    30,     6,    14,     7,    46,   357
  34. 314 DATA    139,    62,    54,     1,    46,   142,    30,    40,   514
  35. 315 DATA      1,    43,   246,   185,    80,     0,   232,   245,  1032
  36. 316 DATA      1,   243,   165,   232,    17,     2,    46,    59,   765
  37. 317 DATA     62,    52,     1,   114,     5,    46,   139,    62,   481
  38. 318 DATA     50,     1,    46,   137,    62,    54,     1,     7,   358
  39. 319 DATA     31,    95,    94,    89,    46,   255,    46,    46,   702
  40. 320 DATA      1,   251,    80,   228,    96,    60,    70,   116,   902
  41. 321 DATA      7,    60,   198,   116,    66,   235,    97,   144,   923
  42. 322 DATA     46,   198,     6,    59,     1,     1,    46,   128,   485
  43. 323 DATA     62,    58,     1,     1,   116,    82,   180,     2,   502
  44. 324 DATA    205,    22,   168,     4,   117,    87,   232,   128,   963
  45. 325 DATA      1,   114,    82,    46,   198,     6,    58,     1,   506
  46. 326 DATA      1,    46,   255,    54,    54,     1,    46,   143,   600
  47. 327 DATA      6,    56,     1,   156,    46,   255,    30,    42,   592
  48. 328 DATA      1,   232,   179,     1,    46,   128,    62,    58,   707
  49. 329 DATA      1,     1,   116,   248,   235,    47,   144,    46,   838
  50. 330 DATA    198,     6,    59,     1,     0,    46,   128,    62,   500
  51. 331 DATA     58,     1,     1,   117,    32,    46,   161,    54,   470
  52. 332 DATA      1,    46,    59,     6,    56,     1,   117,    21,   307
  53. 333 DATA     46,   198,     6,    58,     1,     0,    88,   207,   604
  54. 334 DATA     46,   128,    62,    58,     1,     1,   117,     5,   418
  55. 335 DATA    232,     8,     0,    88,   207,    88,    46,   255,   924
  56. 336 DATA     46,    42,     1,   252,    81,    82,    86,    87,   677
  57. 337 DATA     30,     6,   140,   202,   142,   218,   142,   194,  1074
  58. 338 DATA    138,   224,    36,   127,    44,    71,   114,    12,   766
  59. 339 DATA     60,    10,   119,     8,    60,     2,   118,    22,   399
  60. 340 DATA     60,     8,   115,    18,   128,    62,    59,     1,   451
  61. 341 DATA      1,   116,    25,   232,   114,     0,   198,     6,   692
  62. 342 DATA     58,     1,     0,   235,    32,   144,   246,   196,   912
  63. 343 DATA    128,   117,     9,   152,     3,   192,   139,   240,   980
  64. 344 DATA    255,   148,    60,     1,   228,    97,   138,   224,  1151
  65. 345 DATA     12,   128,   230,    97,   138,   196,   230,    97,  1128
  66. 346 DATA    250,   176,    32,   230,    32,     7,    31,    95,   853
  67. 347 DATA     94,    90,    89,   195,   185,   255,   255,   235,  1398
  68. 348 DATA      8,   185,     1,     0,   235,     3,   185,    25,   642
  69. 349 DATA      0,   161,    56,     1,    59,     6,    50,     1,   334
  70. 350 DATA    119,     3,   161,    52,     1,    45,   160,     0,   541
  71. 351 DATA     59,     6,    54,     1,   116,    33,   163,    56,   488
  72. 352 DATA      1,    81,   190,     0,    15,   232,    93,     0,   612
  73. 353 DATA    190,   254,    14,   191,   158,    15,   253,   232,  1307
  74. 354 DATA    101,     0,   252,   191,     0,     0,   232,   112,   888
  75. 355 DATA      0,   232,   128,     0,    89,   226,   202,   195,  1072
  76. 356 DATA    185,   255,   255,   235,     8,   185,     1,     0,  1124
  77. 357 DATA    235,     3,   185,    25,     0,   161,    56,     1,   666
  78. 358 DATA     59,     6,    54,     1,   116,    46,    81,   190,   553
  79. 359 DATA      0,     0,   232,    40,     0,   190,   160,     0,   622
  80. 360 DATA    191,     0,     0,   232,    49,     0,   191,     0,   663
  81. 361 DATA     15,   232,    61,     0,   232,    77,     0,   161,   778
  82. 362 DATA     56,     1,     5,   160,     0,    59,     6,    52,   339
  83. 363 DATA      1,   114,     3,   161,    50,     1,   163,    56,   549
  84. 364 DATA      1,    89,   226,   201,   195,    30,   142,    30,   914
  85. 365 DATA     40,     1,   191,   128,     0,   185,    80,     0,   625
  86. 366 DATA    232,    99,     0,   243,   165,    31,   195,    30,   995
  87. 367 DATA      6,   142,     6,    40,     1,   142,    30,    40,   407
  88. 368 DATA      1,   185,   128,     7,   243,   165,     7,    31,   767
  89. 369 DATA    195,     6,   142,     6,    40,     1,   139,    54,   583
  90. 370 DATA     56,     1,   185,    80,     0,   243,   165,   232,   962
  91. 371 DATA     93,     0,     7,   195,   190,   128,     0,   139,   752
  92. 372 DATA     62,    56,     1,   185,    80,     0,   243,   165,   792
  93. 373 DATA    195,    80,    83,    46,   199,     6,    40,     1,   650
  94. 374 DATA      0,   176,   180,    15,   205,    16,    60,     7,   659
  95. 375 DATA    116,    21,    60,     3,   119,    20,   128,   255,   722
  96. 376 DATA      0,   117,    15,   128,   252,    80,   117,    10,   719
  97. 377 DATA     46,   199,     6,    40,     1,     0,   184,   248,   724
  98. 378 DATA    235,     1,   249,    91,    88,   195,    46,   129,  1034
  99. 379 DATA     62,    40,     1,     0,   184,   117,    23,    80,   507
  100. 380 DATA     82,   186,   218,     3,   236,   168,     8,   117,  1018
  101. 381 DATA    251,   236,   168,     8,   116,   251,   186,   216,  1432
  102. 382 DATA      3,   176,    37,   238,    90,    88,   195,    46,   873
  103. 383 DATA    129,    62,    40,     1,     0,   184,   117,    10,   543
  104. 384 DATA     80,    82,   186,   216,     3,   176,    41,   238,  1022
  105. 385 DATA     90,    88,   195,   184,   160,    15,   247,    38,  1017
  106. 386 DATA      3,     1,     5,   171,     3,   163,    52,     1,   399
  107. 387 DATA    139,   208,    43,   192,   142,   216,   250,   196,  1386
  108. 388 DATA     54,    36,     0,    46,   137,    54,    42,     1,   370
  109. 389 DATA     46,   140,     6,    44,     1,   199,     6,    36,   478
  110. 390 DATA      0,   161,     1,   140,    14,    38,     0,   196,   550
  111. 391 DATA     54,    64,     0,    46,   137,    54,    46,     1,   402
  112. 392 DATA     46,   140,     6,    48,     1,   199,     6,    64,   510
  113. 393 DATA      0,    82,     1,   140,    14,    66,     0,   251,   554
  114. 394 DATA    205,    39,     0,     0,     0,     0,     0,     0,   244
  115.