home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol6n02.zip / DIRCOMP.BAS < prev    next >
BASIC Source File  |  1987-12-13  |  5KB  |  83 lines
  1.  
  2.  
  3.  
  4. 100 ' Program for creating DIRCOMP.COM
  5. 110 CLS:PRINT "Checking DATA; please wait..."
  6. 120 FOR B=1 TO 55
  7. 130 FOR C=1 TO 17
  8. 140 READ A$:IF C<17 THEN 160
  9. 150 Z#=Z#+VAL(A$)
  10. 160 NEXT:NEXT
  11. 170 IF Z#=91367 THEN RESTORE:GOTO 200
  12. 180 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  13. 190 PRINT "EACH DATA STATEMENT--THEN REDO":END
  14. 200 FOR B=1 TO 55
  15. 210 FOR C=1 TO 16
  16. 220 READ A$:TTL=TTL+VAL("&H"+A$)
  17. 230 NEXT
  18. 240 READ S:IF S=TTL THEN 270
  19. 250 PRINT "DATA ERROR IN LINE";B*10+330
  20. 260 PRINT "CHECK FIGURES AND REDO":END
  21. 270 TTL=0:NEXT:RESTORE
  22. 280 OPEN "DIRCOMP.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  23. 290 FOR B=1 TO 55
  24. 300 FOR C=1 TO 16
  25. 310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
  26. 320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  27. 330 PRINT "DIRCOMP.COM CREATED"
  28. 340 DATA E9,EC,00,43,6F,70,79,72,69,67,68,74,20,31,39,38,1616
  29. 350 DATA 36,20,5A,69,66,66,2D,44,61,76,69,73,20,50,75,62,1360
  30. 360 DATA 6C,69,73,68,69,6E,67,20,43,6F,2E,1A,20,50,72,6F,1369
  31. 370 DATA 67,72,61,6D,6D,65,64,20,62,79,20,43,68,61,72,6C,1506
  32. 380 DATA 65,73,20,50,65,74,7A,6F,6C,64,20,1A,53,79,6E,74,1474
  33. 390 DATA 61,78,3A,20,44,49,52,43,4F,4D,50,20,66,69,6C,65,1281
  34. 400 DATA 73,70,65,63,20,66,69,6C,65,73,70,65,63,24,44,49,1479
  35. 410 DATA 52,43,4F,4D,50,3A,20,4E,65,65,64,73,20,44,4F,53,1232
  36. 420 DATA 20,32,2E,30,20,2B,24,44,49,52,43,4F,4D,50,3A,20,903
  37. 430 DATA 42,61,64,20,66,69,6C,65,20,6E,61,6D,65,24,44,49,1337
  38. 440 DATA 52,43,4F,4D,50,3A,20,54,6F,6F,20,6D,61,6E,79,20,1282
  39. 450 DATA 66,69,6C,65,73,24,44,49,52,43,4F,4D,50,3A,20,4E,1261
  40. 460 DATA 6F,74,20,65,6E,6F,75,67,68,20,6D,65,6D,6F,72,79,1602
  41. 470 DATA 24,09,20,2C,3B,3D,00,00,00,00,00,00,00,00,00,00,241
  42. 480 DATA 00,00,00,00,00,00,00,00,00,00,5C,2A,2E,2A,00,B4,402
  43. 490 DATA 30,CD,21,3C,02,73,09,BA,6E,01,B4,09,CD,21,CD,20,1433
  44. 500 DATA FC,BE,80,00,AC,8A,D8,2A,FF,C7,00,20,0D,BF,6A,04,1938
  45. 510 DATA E8,9E,00,BF,BA,04,E8,98,00,BA,B6,01,BC,86,07,8B,1992
  46. 520 DATA DC,83,C3,0F,B1,04,D3,EB,B4,4A,CD,21,72,CC,BA,0A,2194
  47. 530 DATA 05,B4,1A,CD,21,BA,6A,04,E8,C1,00,A3,D8,01,89,0E,1701
  48. 540 DATA E6,01,BA,BA,04,E8,B4,00,A3,E0,01,89,0E,E8,01,8D,1932
  49. 550 DATA 3E,35,05,B0,20,83,3E,E6,01,00,74,26,83,3E,E8,01,1332
  50. 560 DATA 00,74,30,56,57,1E,06,C4,3E,DE,01,C5,36,D6,01,B9,1505
  51. 570 DATA 0C,00,F3,A6,07,1F,5F,5E,72,19,77,0D,E8,30,01,AA,1370
  52. 580 DATA EB,0C,83,3E,E8,01,00,74,26,B9,28,00,F3,AA,E8,30,1745
  53. 590 DATA 01,EB,08,E8,19,01,B9,28,00,F3,AA,B8,0D,0A,AB,8D,1659
  54. 600 DATA 16,35,05,B9,51,00,BB,01,00,B4,40,CD,21,EB,A0,CD,1616
  55. 610 DATA 20,8B,D7,E8,30,00,74,FB,AA,E8,2A,00,75,FA,C6,05,2047
  56. 620 DATA 00,56,BE,EB,01,B9,04,00,80,7D,FF,3A,74,14,80,7D,1656
  57. 630 DATA FF,5C,74,0E,B8,00,43,CD,21,72,09,F6,C1,10,74,04,1664
  58. 640 DATA 4E,41,F3,A4,5E,C3,57,AC,3C,0D,75,06,BA,4C,01,E9,1790
  59. 650 DATA 08,FF,BF,D1,01,B9,05,00,F2,AE,5F,C3,06,BB,00,10,1769
  60. 660 DATA B4,48,CD,21,73,04,B4,48,CD,21,B1,04,D3,E3,83,EB,2084
  61. 670 DATA 14,8E,C0,2B,FF,2B,ED,B9,06,00,B4,4E,CD,21,73,0B,1745
  62. 680 DATA 3D,12,00,74,3F,BA,87,01,E9,CF,FE,3B,FB,72,06,BA,1890
  63. 690 DATA 9E,01,E9,C5,FE,45,BE,28,05,B9,0C,00,AC,0A,C0,74,1834
  64. 700 DATA 13,3C,2E,75,0C,83,E9,03,B0,20,F3,AA,83,C1,03,EB,1804
  65. 710 DATA EB,AA,E2,E8,B0,20,F3,AA,BE,20,05,B9,04,00,F3,A5,2308
  66. 720 DATA B4,4F,EB,B8,8B,DF,83,C3,0F,B1,04,D3,EB,B4,4A,CD,2467
  67. 730 DATA 21,1E,06,1F,2B,FF,8B,CD,E3,2E,49,E3,2B,51,8B,F7,1825
  68. 740 DATA 83,C6,14,51,56,57,B9,14,00,F3,A6,73,10,5F,5E,56,1623
  69. 750 DATA 57,B9,14,00,26,8A,05,A4,88,44,FF,E2,F7,5F,5E,59,1847
  70. 760 DATA E2,DE,59,83,C7,14,E2,D5,1F,8C,C0,07,8B,CD,C3,1E,2265
  71. 770 DATA C5,36,D6,01,E8,1C,00,1F,89,36,D6,01,FF,0E,E6,01,1663
  72. 780 DATA C3,1E,C5,36,DE,01,E8,0A,00,1F,89,36,DE,01,FF,0E,1655
  73. 790 DATA E8,01,C3,50,56,57,B9,0C,00,F3,A4,B0,20,B9,1B,00,1705
  74. 800 DATA F3,AA,83,EF,06,AD,B3,1F,B7,30,B1,0B,2A,D2,B6,3A,2083
  75. 810 DATA E8,55,00,BB,3F,00,B1,05,B6,20,E8,4B,00,83,EF,10,1656
  76. 820 DATA AD,B3,0F,B7,30,B1,05,B6,2D,E8,3C,00,BB,1F,00,B1,1694
  77. 830 DATA 00,E8,34,00,B3,7F,B1,09,B2,50,B6,20,E8,29,00,83,1652
  78. 840 DATA EF,0C,AD,8B,D0,AD,BB,0A,00,FD,8B,CA,2B,D2,F7,F3,2478
  79. 850 DATA 91,F7,F3,92,04,30,AA,8B,C1,0B,CA,75,ED,FC,5F,5E,2343
  80. 860 DATA 58,83,C6,14,83,C7,27,C3,50,53,51,52,D3,E8,22,C3,1999
  81. 870 DATA 02,C2,2A,E4,B3,0A,F6,F3,05,30,30,3A,C7,75,02,B0,1797
  82. 880 DATA 20,AB,8A,C6,AA,5A,59,5B,58,C3,00,00,00,00,00,00,1262
  83.