home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n10.zip / POPDIR.BAS < prev    next >
BASIC Source File  |  1986-03-03  |  7KB  |  103 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE popdir.COM
  2. 110 OPEN "popdir.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO  83 
  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 = 22635 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    55,     2,    67,   111,   112,   121,   114,   815
  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,    77,    77
  79. 880 DATA    117,   115,   116,    32,   114,   117,   110,    32,   753
  80. 890 DATA     80,    85,    83,    72,    68,    73,    82,    46,   589
  81. 900 DATA     67,    79,    77,    32,    98,   101,   102,   111,   667
  82. 910 DATA    114,   101,    32,    80,    79,    80,    68,    73,   627
  83. 920 DATA     82,    46,    67,    79,    77,    32,   119,   105,   607
  84. 930 DATA    108,   108,    32,   100,   111,    32,    97,   110,   698
  85. 940 DATA    121,   116,   104,   105,   110,   103,    46,    13,   718
  86. 950 DATA     10,    10,    36,    69,   114,   114,   111,   114,   578
  87. 960 DATA     32,   112,   111,   112,   112,   105,   110,   103,   797
  88. 970 DATA     32,   116,   104,   101,    32,    99,   117,   114,   715
  89. 980 DATA    114,   101,   110,   116,    32,   100,   105,   114,   792
  90. 990 DATA    101,    99,   116,   111,   114,   121,    13,    10,   685
  91. 1000 DATA    10,    36,   251,   184,   136,   119,   187,   137,  1060
  92. 1010 DATA   119,   190,    44,     1,   205,    22,   129,   251,   961
  93. 1020 DATA   136,   119,   117,     7,    61,   137,   119,   117,   813
  94. 1030 DATA     2,   235,     9,   186,   215,     2,   180,     9,   838
  95. 1040 DATA   205,    33,   205,    32,   139,    46,    67,     1,   728
  96. 1050 DATA   131,   237,    67,   129,    62,    67,     1,    69,   763
  97. 1060 DATA     1,   117,     3,   189,   148,     2,   139,   213,   812
  98. 1070 DATA   180,    59,   205,    33,   114,    17,   137,    46,   791
  99. 1080 DATA    67,     1,    62,   138,    86,     0,   128,   234,   716
  100. 1090 DATA    65,   180,    14,   205,    33,   205,    32,    14,   748
  101. 1100 DATA    31,   186,    19,     3,   180,     9,   205,    33,   666
  102. 1110 DATA   205,    32,     0,     0,     0,     0,     0,     0,   237
  103.