home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n10.zip / PUSHDIR.BAS < prev    next >
BASIC Source File  |  1986-03-03  |  7KB  |  111 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE pushdir.COM
  2. 110 OPEN "pushdir.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  91 
  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 = 30304 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    52,     2,    67,   111,   112,   121,   114,   812
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     54,    32,    90,   105,   102,   102,    45,    68,   598
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    80,    85,    83,    72,   570
  26. 350 DATA     68,    73,    82,    32,    86,    69,    82,    83,   575
  27. 360 DATA     73,    79,    78,    32,    49,    46,    48,     0,   405
  28. 370 DATA      0,     0,     0,    69,     1,     0,     0,     0,    70
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  31. 400 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  32. 410 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  33. 420 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  34. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  35. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 460 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 470 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  39. 480 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  40. 490 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  41. 500 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  42. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  43. 520 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  44. 530 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 540 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  46. 550 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  47. 560 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  48. 570 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  49. 580 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  50. 590 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 600 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  52. 610 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  53. 620 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 630 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  55. 640 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  56. 650 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  57. 660 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  58. 670 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  59. 680 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  60. 690 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  61. 700 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  62. 710 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  63. 720 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  64. 730 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 740 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  66. 750 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  67. 760 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  68. 770 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  69. 780 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  70. 790 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  71. 800 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  72. 810 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  73. 820 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  74. 830 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  75. 840 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  76. 850 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  77. 860 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  78. 870 DATA      0,     0,     0,     0,     0,     0,     0,   156,   156
  79. 880 DATA     61,   136,   119,   116,     6,   157,    46,   255,   896
  80. 890 DATA     46,    63,     1,   129,   251,   137,   119,   117,   863
  81. 900 DATA    244,     6,    87,    81,   191,    44,     1,   185,   839
  82. 910 DATA     19,     0,   243,   166,    89,    95,     7,   117,   736
  83. 920 DATA    228,    14,    31,   147,   157,   207,     1,    69,   854
  84. 930 DATA    114,   114,   111,   114,    32,   114,   101,    97,   797
  85. 940 DATA    100,   105,   110,   103,    32,   116,   104,   101,   771
  86. 950 DATA     32,    99,   117,   114,   114,   101,   110,   116,   803
  87. 960 DATA     32,   100,   105,   114,   101,    99,   116,   111,   778
  88. 970 DATA    114,   121,    46,    36,    80,    85,    83,    72,   637
  89. 980 DATA     68,    73,    82,    32,   105,   110,   115,   116,   701
  90. 990 DATA     97,   108,   108,   101,   100,    46,    36,   251,   847
  91. 1000 DATA   184,   136,   119,   187,   137,   119,   190,    44,  1116
  92. 1010 DATA     1,   205,    22,   129,   251,   136,   119,   117,   980
  93. 1020 DATA    11,    61,   137,   119,   117,     6,    46,   198,   695
  94. 1030 DATA     6,   254,     2,     0,   139,    54,    67,     1,   523
  95. 1040 DATA   131,   198,     3,   178,     0,   180,    71,   205,   966
  96. 1050 DATA    33,   114,    48,   180,    25,   205,    33,     4,   642
  97. 1060 DATA    65,   136,    68,   253,   198,    68,   254,    58,  1100
  98. 1070 DATA   198,    68,   255,    92,   129,    62,    67,     1,   872
  99. 1080 DATA   148,     2,   116,     7,   131,     6,    67,     1,   478
  100. 1090 DATA    67,   235,     6,   199,     6,    67,     1,    69,   650
  101. 1100 DATA     1,    46,   128,    62,   254,     2,     1,   116,   610
  102. 1110 DATA    11,   205,    32,   186,   255,     2,   180,     9,   880
  103. 1120 DATA   205,    33,   205,    32,    14,    31,     6,   184,   710
  104. 1130 DATA    22,    53,   205,    33,   137,    30,    63,     1,   544
  105. 1140 DATA   140,     6,    65,     1,     7,   186,   215,     2,   622
  106. 1150 DATA   184,    22,    37,   205,    33,   186,    36,     3,   706
  107. 1160 DATA   180,     9,   205,    33,   161,    44,     0,   142,   774
  108. 1170 DATA   192,   180,    73,   205,    33,   186,   254,     2,  1125
  109. 1180 DATA   131,   194,    15,   177,     4,   211,   234,   184,  1150
  110. 1190 DATA     0,    49,   205,    33,     0,     0,     0,     0,   287
  111.