home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n02.zip / SCANDIR.BAS < prev    next >
BASIC Source File  |  1987-12-13  |  5KB  |  83 lines
  1. 100 ' Program for creating SCANDIR.COM
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 65:FOR C=1 TO 17:READ A$:IF C<17 THEN 140
  4. 130 Z#=Z#+VAL(A$)
  5. 140 NEXT:NEXT
  6. 150 IF Z#=92396 THEN RESTORE:GOTO 180
  7. 160 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  8. 170 PRINT "EACH DATA STATEMENT--THEN REDO":END
  9. 180 FOR B=1 TO 65:FOR C=1 TO 16:READ A$:TTL=TTL+VAL("&H"+A$)
  10. 190 NEXT
  11. 200 READ S:IF S=TTL THEN 220
  12. 210 PRINT "DATA ERROR IN LINE";B*10+260;" -- REDO":END
  13. 220 TTL=0:NEXT:RESTORE
  14. 230 OPEN "SCANDIR.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  15. 240 FOR B=1 TO 65:FOR C=1 TO 16:READ A$
  16. 250 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
  17. 260 CLOSE:PRINT "SCANDIR.COM CREATED"
  18. 270 DATA E9,50,01,43,6F,70,79,72,69,67,68,74,20,31,39,38,1461
  19. 280 DATA 36,20,5A,69,66,66,20,44,61,76,69,73,20,50,75,62,1347
  20. 290 DATA 6C,69,73,68,69,6E,67,20,43,6F,2E,1A,4D,69,63,68,1417
  21. 300 DATA 61,65,6C,20,4A,2E,20,4D,65,66,66,6F,72,64,5C,43,1356
  22. 310 DATA 4F,4D,4D,41,4E,44,2E,43,4F,4D,00,7F,2F,43,20,44,1054
  23. 320 DATA 49,52,20,20,20,20,20,20,20,20,20,20,20,20,20,20,603
  24. 330 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  25. 340 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  26. 350 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  27. 360 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  28. 370 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  29. 380 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,512
  30. 390 DATA 20,3E,44,49,52,2E,24,24,24,0D,00,00,4B,01,00,00,560
  31. 400 DATA 00,00,00,00,00,00,00,0D,05,00,00,00,00,00,00,00,18
  32. 410 DATA 00,01,00,55,73,65,20,18,20,19,20,1B,20,1A,20,50,644
  33. 420 DATA 67,55,70,20,50,67,44,6E,20,53,63,72,6F,6C,6C,20,1380
  34. 430 DATA 4C,6F,63,6B,20,20,18,20,41,63,74,69,76,65,20,18,1173
  35. 440 DATA 20,20,20,20,20,20,20,20,20,50,72,65,73,73,20,45,914
  36. 450 DATA 73,63,20,74,6F,20,45,78,69,74,20,20,20,20,20,20,1107
  37. 460 DATA 20,0D,0A,43,4F,4D,4D,41,4E,44,2E,43,4F,4D,20,6D,976
  38. 470 DATA 75,73,74,20,62,65,20,69,6E,20,64,72,69,76,65,20,1428
  39. 480 DATA 41,3A,24,BB,00,10,B4,4A,CD,21,BF,0D,05,B9,30,75,1413
  40. 490 DATA 33,C0,FC,F3,AB,BE,81,00,BD,02,00,BF,53,01,AC,3C,1926
  41. 500 DATA 0D,75,0D,80,3E,D4,01,01,74,03,E8,49,01,EB,1E,90,1381
  42. 510 DATA 3C,20,74,EA,AA,AC,3C,0D,74,10,3C,20,75,F6,56,57,1617
  43. 520 DATA E8,33,01,5F,5E,4D,75,D3,EB,03,E8,29,01,B8,40,00,1638
  44. 530 DATA 8E,D8,A1,63,00,05,06,00,0E,1F,A3,D5,01,BB,00,B0,1414
  45. 540 DATA 3D,BA,03,74,04,81,C3,00,08,8E,C3,B9,00,20,B4,01,1437
  46. 550 DATA CD,10,E8,2E,02,B4,03,BE,0D,05,BF,00,00,E8,FB,01,1567
  47. 560 DATA 80,3C,20,75,03,83,C6,27,89,36,D9,01,89,36,DD,01,1530
  48. 570 DATA B4,14,E8,E6,01,B4,03,BE,3D,7A,BF,52,00,E8,DB,01,1944
  49. 580 DATA 80,3C,20,75,03,83,C6,27,89,36,DB,01,89,36,DF,01,1534
  50. 590 DATA B4,14,E8,C6,01,B4,02,BE,E3,01,BF,00,0F,E8,C3,01,1865
  51. 600 DATA 83,EF,52,FE,CC,75,F6,B4,02,CD,16,A8,10,74,0C,B4,2174
  52. 610 DATA 18,88,26,06,02,88,26,0F,02,EB,1E,B4,18,80,3E,E1,1281
  53. 620 DATA 01,01,74,02,B4,20,88,26,06,02,B4,18,80,3E,E2,01,1135
  54. 630 DATA 01,74,02,B4,20,88,26,0F,02,BE,06,02,BF,46,0F,E8,1228
  55. 640 DATA 81,01,B4,01,CD,16,74,BF,B4,00,CD,16,80,FC,01,75,1750
  56. 650 DATA 18,BA,C2,01,C6,06,C9,01,00,B4,41,CD,21,E8,83,01,1658
  57. 660 DATA B9,07,06,B4,01,CD,10,CD,20,80,FC,48,75,06,BD,D9,1818
  58. 670 DATA FF,E8,EE,00,80,FC,50,75,06,BD,27,00,E8,E3,00,80,2123
  59. 680 DATA FC,49,75,06,BD,F4,FC,E8,D8,00,80,FC,51,75,06,BD,2354
  60. 690 DATA 0C,03,E8,CD,00,80,FC,4B,75,0A,80,26,E2,01,00,80,1555
  61. 700 DATA 0E,E1,01,01,80,FC,4D,75,0A,80,26,E1,01,00,80,0E,1359
  62. 710 DATA E2,01,01,E9,51,FF,80,0E,D4,01,01,BA,3E,01,BB,CA,1791
  63. 720 DATA 01,8C,1E,CE,01,1E,06,55,FA,2E,8C,16,D0,01,2E,89,1349
  64. 730 DATA 26,D2,01,FB,B8,00,4B,CD,21,FA,2E,8B,26,D2,01,2E,1727
  65. 740 DATA 8E,16,D0,01,FB,5D,07,1F,73,09,BA,31,02,B4,09,CD,1510
  66. 750 DATA 21,CD,20,C6,06,C9,01,00,BA,C2,01,B8,02,3D,CD,21,1542
  67. 760 DATA 8B,D8,8B,16,D7,01,8B,FA,81,C2,E8,03,8B,F2,83,C6,2389
  68. 770 DATA 02,B9,30,75,B4,3F,CD,21,81,06,D7,01,30,75,2D,02,1396
  69. 780 DATA 00,8B,D0,B4,3E,CD,21,C6,06,C9,01,0D,33,DB,B9,27,1740
  70. 790 DATA 00,AC,3C,0D,74,06,AA,43,E2,F7,EB,05,B0,20,F3,AA,1938
  71. 800 DATA 4E,80,3C,0D,75,06,83,C6,02,83,C3,02,3B,DA,72,DE,1674
  72. 810 DATA B9,20,03,B0,00,F3,AA,B9,6E,00,BF,53,01,B0,20,F3,1830
  73. 820 DATA AA,C3,80,3E,06,02,18,75,25,8B,36,DD,01,03,F5,3B,1463
  74. 830 DATA 36,D9,01,77,04,8B,36,D9,01,80,3C,00,77,04,8B,36,1310
  75. 840 DATA D9,01,89,36,DD,01,BF,E0,01,B4,14,E8,2D,00,80,3E,1714
  76. 850 DATA 0F,02,18,75,25,8B,36,DF,01,03,F5,3B,36,DB,01,77,1312
  77. 860 DATA 04,8B,36,DB,01,80,3C,00,77,04,8B,36,DB,01,89,36,1332
  78. 870 DATA DF,01,BF,32,02,B4,14,E8,01,00,C3,E8,05,00,FE,CC,1790
  79. 880 DATA 75,F9,C3,8B,16,D5,01,B9,27,00,AC,8A,D8,EC,A8,01,2091
  80. 890 DATA 75,FB,FA,EC,A8,01,74,FB,8A,C3,AA,FB,47,E2,EB,83,2807
  81. 900 DATA C7,52,C3,32,FF,B4,08,CD,10,B0,19,B9,00,00,BA,4F,1841
  82. 910 DATA 19,8A,FC,B4,06,CD,10,C3,B4,09,CD,21,C3,00,00,00,1639
  83.