home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n08.zip / STAYDOWN.BAS < prev    next >
BASIC Source File  |  1988-04-26  |  9KB  |  129 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE staydown.COM
  2. 110 OPEN "staydown.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  108 
  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 = 75565 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    54,     2,    83,    84,    65,    89,    68,   678
  22. 300 DATA     79,    87,    78,    32,    49,    46,    48,    32,   451
  23. 310 DATA     40,    99,    41,    32,    49,    57,    56,    56,   430
  24. 320 DATA     32,    90,   105,   102,   102,    32,    67,   111,   641
  25. 330 DATA    109,   109,   117,   110,   105,    99,    97,   116,   862
  26. 340 DATA    105,   111,   110,   115,    32,    67,   111,    46,   697
  27. 350 DATA     13,    10,    80,    67,    32,    77,    97,   103,   479
  28. 360 DATA     97,   122,   105,   110,   101,    32,   254,    32,   853
  29. 370 DATA     74,   101,   102,   102,    32,    80,   114,   111,   716
  30. 380 DATA    115,   105,   115,   101,    13,    10,    36,    26,   521
  31. 390 DATA      0,     0,     0,     0,    21,     0,     0,     0,    21
  32. 400 DATA      0,    46,   128,    62,    80,     1,     0,   116,   433
  33. 410 DATA     10,   251,    80,   228,    96,   232,   109,     0,  1006
  34. 420 DATA    115,     6,    88,    46,   255,    46,    85,     1,   642
  35. 430 DATA    228,    97,   138,   224,    12,   128,   230,    97,  1154
  36. 440 DATA    138,   196,   230,    97,   250,   176,    32,   230,  1349
  37. 450 DATA     32,   251,    88,   207,   128,   252,    79,   117,  1154
  38. 460 DATA     71,   251,    46,   128,    62,    80,     1,     0,   639
  39. 470 DATA    116,    58,    60,   224,   117,     8,    46,   198,   827
  40. 480 DATA      6,    83,     1,   128,   235,    46,    46,   128,   673
  41. 490 DATA     62,    83,     1,     0,   116,    24,    60,    42,   388
  42. 500 DATA    116,    12,    60,   170,   116,     8,    60,    54,   596
  43. 510 DATA    116,     4,    60,   182,   117,     8,    46,   198,   731
  44. 520 DATA      6,    83,     1,     0,   235,    14,    80,   232,   651
  45. 530 DATA     19,     0,    46,   198,     6,    83,     1,     0,   353
  46. 540 DATA     88,   202,     2,     0,   249,   202,     2,     0,   745
  47. 550 DATA     46,   255,    46,    85,     1,   168,   128,   117,   846
  48. 560 DATA     11,    46,    10,     6,    83,     1,    46,   162,   365
  49. 570 DATA     82,     1,   249,   195,    46,   128,    62,    81,   844
  50. 580 DATA      1,     0,   117,    58,    36,   127,    46,    10,   395
  51. 590 DATA      6,    83,     1,    46,    58,     6,    82,     1,   283
  52. 600 DATA    116,     8,    46,   198,     6,    82,     1,     0,   457
  53. 610 DATA    249,   195,    60,    56,   116,    20,    60,   184,   940
  54. 620 DATA    116,    16,    60,    29,   116,    12,    60,   157,   566
  55. 630 DATA    116,     8,    60,    42,   116,     4,    60,    54,   460
  56. 640 DATA    117,   224,    46,   162,    81,     1,    46,   198,   875
  57. 650 DATA      6,    82,     1,     0,   248,   195,    46,   160,   738
  58. 660 DATA     81,     1,    46,   198,     6,    81,     1,     0,   414
  59. 670 DATA      6,    80,   184,    64,     0,   142,   192,    88,   756
  60. 680 DATA     60,    54,   117,     8,    38,   128,    38,    23,   466
  61. 690 DATA      0,   254,   235,   110,    60,    42,   117,     8,   826
  62. 700 DATA     38,   128,    38,    23,     0,   253,   235,    98,   813
  63. 710 DATA     60,   157,   117,     8,    38,   128,    38,   150,   696
  64. 720 DATA      0,   251,   235,    58,    60,    29,   117,    22,   772
  65. 730 DATA     38,   128,    38,    23,     0,   251,    38,   128,   644
  66. 740 DATA     38,    24,     0,   254,    38,   246,     6,   150,   756
  67. 750 DATA      0,    16,   116,    62,   235,    32,    60,   184,   705
  68. 760 DATA    117,     8,    38,   128,    38,   150,     0,   247,   726
  69. 770 DATA    235,    20,    38,   128,    38,    23,     0,   247,   729
  70. 780 DATA     38,   128,    38,    24,     0,   253,    38,   246,   765
  71. 790 DATA      6,   150,     0,    16,   116,    28,    38,   138,   492
  72. 800 DATA     38,    24,     0,   208,   228,   208,   228,    38,   972
  73. 810 DATA     10,    38,   150,     0,   128,   228,    12,    38,   604
  74. 820 DATA    128,    38,    23,     0,   243,    38,     8,    38,   516
  75. 830 DATA     23,     0,     7,   233,    68,   255,    13,    10,   609
  76. 840 DATA     83,    84,    65,    89,    68,    79,    87,    78,   633
  77. 850 DATA     58,    32,    36,    85,   115,    97,   103,   101,   627
  78. 860 DATA     58,    32,    83,    84,    65,    89,    68,    79,   558
  79. 870 DATA     87,    78,    32,    91,    47,    68,    93,    91,   587
  80. 880 DATA     47,    85,    93,    13,    10,    36,    78,   111,   473
  81. 890 DATA    116,    32,    73,   110,   115,   116,    97,   108,   767
  82. 900 DATA    108,   101,   100,    13,    10,    36,    67,    97,   532
  83. 910 DATA    110,   110,   111,   116,    32,    85,   110,   105,   779
  84. 920 DATA    110,   115,   116,    97,   108,   108,    13,    10,   677
  85. 930 DATA     36,    85,   110,   105,   110,   115,   116,    97,   774
  86. 940 DATA    108,   108,    32,    69,   114,   114,   111,   114,   770
  87. 950 DATA     13,    10,    36,    68,   105,   115,    97,    98,   542
  88. 960 DATA    108,   101,   100,    13,    10,    36,    85,   110,   563
  89. 970 DATA    105,   110,   115,   116,    97,   108,   108,   101,   860
  90. 980 DATA    100,    13,    10,    36,    65,    99,   116,   105,   544
  91. 990 DATA    118,    97,   116,   101,   100,    13,    10,    36,   591
  92. 1000 DATA     0,   252,   247,    22,     0,     1,    51,   219,   792
  93. 1010 DATA   140,   200,    67,   142,   195,    59,   195,   116,  1114
  94. 1020 DATA    17,   190,     0,     1,   139,   254,   185,    16,   802
  95. 1030 DATA     0,   243,   166,   117,   237,   198,     6,    56,  1023
  96. 1040 DATA     3,     1,   190,   129,     0,   128,    60,    32,   543
  97. 1050 DATA   117,     3,    70,   235,   248,   128,    60,    13,   874
  98. 1060 DATA   116,   109,   128,   100,     1,   223,   129,    60,   866
  99. 1070 DATA    47,    68,   116,    30,   129,    60,    47,    85,   582
  100. 1080 DATA   116,    65,   176,     1,   186,   195,     2,    80,   821
  101. 1090 DATA    82,   186,   182,     2,   180,     9,   205,    33,   879
  102. 1100 DATA    90,   180,     9,   205,    33,    88,   180,    76,   861
  103. 1110 DATA   205,    33,   128,    62,    56,     3,     1,   116,   604
  104. 1120 DATA     7,   176,     2,   186,   222,     2,   235,   223,  1053
  105. 1130 DATA    38,   198,     6,    80,     1,     0,   186,    19,   528
  106. 1140 DATA     3,    82,   186,   182,     2,   180,     9,   205,   849
  107. 1150 DATA    33,    90,   180,     9,   205,    33,   184,     0,   734
  108. 1160 DATA    76,   205,    33,   128,    62,    56,     3,     1,   564
  109. 1170 DATA   116,     7,   176,     3,   186,   222,     2,   235,   947
  110. 1180 DATA   182,   232,    92,     0,   115,     4,   176,     4,   805
  111. 1190 DATA   235,   173,   186,    30,     3,   235,   210,    38,  1110
  112. 1200 DATA   198,     6,    80,     1,     1,   128,    62,    56,   532
  113. 1210 DATA     3,     1,   117,     5,   186,    44,     3,   235,   594
  114. 1220 DATA   192,   180,   192,   205,    21,   186,   132,     1,  1109
  115. 1230 DATA   115,     8,   198,     6,    84,     1,     9,   186,   607
  116. 1240 DATA    89,     1,   180,    53,   160,    84,     1,   205,   773
  117. 1250 DATA    33,   137,    30,    85,     1,   140,     6,    87,   519
  118. 1260 DATA     1,   180,    37,   160,    84,     1,   205,    33,   701
  119. 1270 DATA   161,    44,     0,   142,   192,   180,    73,   205,   997
  120. 1280 DATA    33,   180,     9,   186,     3,     1,   205,    33,   650
  121. 1290 DATA   184,     0,    49,   186,    52,     0,   205,    33,   709
  122. 1300 DATA     6,   180,    53,    38,   160,    84,     1,   205,   727
  123. 1310 DATA    33,   140,   195,     7,   140,   192,    59,   216,   982
  124. 1320 DATA   116,     5,   186,   238,     2,   249,   195,    30,  1021
  125. 1330 DATA    38,   197,    22,    85,     1,   180,    37,    38,   598
  126. 1340 DATA   160,    84,     1,   205,    33,    31,    38,   247,   799
  127. 1350 DATA    22,     0,     1,   180,    73,   205,    33,   186,   700
  128. 1360 DATA     1,     3,   195,     0,     0,     0,     0,     0,   199
  129.