home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / pcmag / vol5n07.arc / RENDIR.BAS < prev    next >
BASIC Source File  |  1986-01-23  |  6KB  |  97 lines
  1. 100 ' Program for creating RENDIR.COM
  2. 110 CLS:PRINT "Checking DATA; please wait..."
  3. 120 FOR B=1 TO 72
  4. 130 FOR C=1 TO 17
  5. 140 READ A$:IF C<17 THEN 160
  6. 150 Z#=Z#+VAL(A$)
  7. 160 NEXT:NEXT
  8. 170 IF Z#=93811 THEN RESTORE:GOTO 200
  9. 180 PRINT "ERROR:  CHECK THE LAST NUMBER IN"
  10. 190 PRINT "EACH DATA STATEMENT--THEN REDO":END
  11. 200 FOR B=1 TO 72
  12. 210 FOR C=1 TO 16
  13. 220 READ A$:TTL=TTL+VAL("&H"+A$)
  14. 230 NEXT
  15. 240 READ S:IF S=TTL THEN 270
  16. 250 PRINT "DATA ERROR IN LINE";B*10+330
  17. 260 PRINT "CHECK FIGURES AND REDO":END
  18. 270 TTL=0:NEXT:RESTORE
  19. 280 OPEN "RENDIR.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  20. 290 FOR B=1 TO 72
  21. 300 FOR C=1 TO 16
  22. 310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
  23. 320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  24. 330 PRINT "RENDIR.COM CREATED"
  25. 340 DATA E9, D4, 02, 52, 45, 4E, 44, 49, 52, 20, 28, 43, 29, 20, 31, 39, 1217
  26. 350 DATA 38, 36, 2C, 20, 5A, 69, 66, 66, 2D, 44, 61, 76, 69, 73, 20, 50, 1245
  27. 360 DATA 75, 62, 6C, 69, 73, 68, 69, 6E, 67, 20, 43, 6F, 2E, 0D, 0A, 24, 1280
  28. 370 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  29. 380 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  30. 390 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  31. 400 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  32. 410 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  33. 420 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  34. 430 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  35. 440 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  36. 450 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0
  37. 460 DATA 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, C9, 01, 2F, 61, 62, 63, 543
  38. 470 DATA 64, 65, 66, 67, 68, 69, 6A, 6B, 6C, 6D, 6E, 6F, 70, 71, 72, 73, 1720
  39. 480 DATA 74, 75, 76, 77, 78, 79, 7A, 2C, 3B, 3D, 09, 5C, 41, 42, 43, 44, 1364
  40. 490 DATA 45, 46, 47, 48, 49, 4A, 4B, 4C, 4D, 4E, 4F, 50, 51, 52, 53, 54, 1224
  41. 500 DATA 55, 56, 57, 58, 59, 5A, 20, 20, 20, 20, 0A, 0D, 52, 45, 4E, 44, 973
  42. 510 DATA 49, 52, 20, 45, 72, 72, 6F, 72, 20, 2D, 20, 24, 4D, 75, 73, 74, 1279
  43. 520 DATA 20, 62, 65, 20, 50, 43, 2D, 44, 4F, 53, 20, 33, 2E, 30, 20, 6F, 1005
  44. 530 DATA 72, 20, 48, 69, 67, 68, 65, 72, 24, 43, 6F, 72, 72, 65, 63, 74, 1503
  45. 540 DATA 20, 53, 79, 6E, 74, 61, 78, 20, 69, 73, 3A, 0D, 0A, 0A, 52, 45, 1173
  46. 550 DATA 4E, 44, 49, 52, 20, 5B, 44, 3A, 5D, 5B, 53, 6F, 75, 72, 63, 65, 1359
  47. 560 DATA 5F, 50, 61, 74, 68, 5D, 53, 6F, 75, 72, 63, 65, 5F, 4E, 61, 6D, 1589
  48. 570 DATA 65, 5B, 2E, 45, 78, 74, 5D, 20, 54, 61, 72, 67, 65, 74, 5F, 4E, 1456
  49. 580 DATA 61, 6D, 65, 5B, 2E, 45, 78, 74, 5D, 24, 4E, 6F, 20, 54, 61, 72, 1394
  50. 590 DATA 67, 65, 74, 20, 4E, 61, 6D, 65, 20, 53, 70, 65, 63, 69, 66, 69, 1476
  51. 600 DATA 65, 64, 24, 49, 6E, 76, 61, 6C, 69, 64, 20, 22, 5C, 22, 20, 6F, 1283
  52. 610 DATA 72, 20, 22, 3A, 22, 20, 69, 6E, 20, 54, 61, 72, 67, 65, 74, 20, 1198
  53. 620 DATA 4E, 61, 6D, 65, 24, 53, 6F, 75, 72, 63, 65, 20, 44, 69, 72, 65, 1466
  54. 630 DATA 63, 74, 6F, 72, 79, 20, 4E, 6F, 74, 20, 46, 6F, 75, 6E, 64, 24, 1474
  55. 640 DATA 53, 6F, 75, 72, 63, 65, 20, 46, 69, 6C, 65, 20, 4E, 6F, 74, 20, 1410
  56. 650 DATA 61, 20, 44, 69, 72, 65, 63, 74, 6F, 72, 79, 24, 53, 6F, 75, 72, 1539
  57. 660 DATA 63, 65, 20, 6F, 72, 20, 54, 61, 72, 67, 65, 74, 20, 50, 61, 74, 1429
  58. 670 DATA 68, 20, 4E, 6F, 74, 20, 46, 6F, 75, 6E, 64, 24, 41, 63, 63, 65, 1381
  59. 680 DATA 73, 73, 20, 74, 6F, 20, 54, 61, 72, 67, 65, 74, 20, 44, 65, 6E, 1447
  60. 690 DATA 69, 65, 64, 20, 6F, 72, 20, 54, 61, 72, 67, 65, 74, 20, 45, 78, 1431
  61. 700 DATA 69, 73, 74, 73, 24, 0D, 0A, 6F, 72, 20, 24, 53, 6F, 75, 72, 63, 1327
  62. 710 DATA 65, 20, 61, 6E, 64, 20, 54, 61, 72, 67, 65, 74, 20, 44, 69, 73, 1407
  63. 720 DATA 6B, 20, 44, 72, 69, 76, 65, 73, 20, 43, 6F, 6E, 66, 6C, 69, 63, 1494
  64. 730 DATA 74, 24, 55, 6E, 64, 65, 66, 69, 6E, 65, 64, 20, 45, 72, 72, 6F, 1506
  65. 740 DATA 72, 3A, 20, 50, 43, 2D, 44, 4F, 53, 20, 46, 75, 6E, 63, 74, 69, 1275
  66. 750 DATA 6F, 6E, 20, 35, 36, 48, 24, 0A, 0A, 0D, 20, 2E, 20, 2E, 20, 2E, 735
  67. 760 DATA 20, 41, 62, 6F, 72, 74, 69, 6E, 67, 0A, 0D, 0D, 24, 0A, 0D, 44, 1017
  68. 770 DATA 69, 72, 65, 63, 74, 6F, 72, 79, 20, 22, 24, 22, 20, 2E, 20, 2E, 1173
  69. 780 DATA 20, 72, 65, 6E, 61, 6D, 65, 64, 20, 74, 6F, 20, 2E, 20, 2E, 20, 1211
  70. 790 DATA 22, 24, 22, 24, 0A, 0D, 24, BA, 03, 01, B4, 09, CD, 21, B4, 30, 1044
  71. 800 DATA CD, 21, 3C, 03, 73, 06, BA, 1C, 02, E9, 75, 01, BE, 80, 00, 8A, 1445
  72. 810 DATA 0C, 32, ED, E3, 66, 8B, D1, 46, 8B, FE, FC, AC, 57, BF, CC, 01, 2346
  73. 820 DATA 51, B9, 20, 00, F2, AE, E3, 09, BB, 20, 00, 2B, D9, 8A, 87, EA, 1936
  74. 830 DATA 01, 59, 5F, AA, E2, E5, 8B, CA, BA, 02, 00, BB, 30, 01, B0, 20, 1783
  75. 840 DATA BF, 81, 00, F3, AE, 8B, F7, 4E, 41, E3, 22, 8B, FB, 8B, C1, AA, 2419
  76. 850 DATA AC, 3C, 20, 74, 01, AA, E0, F8, 29, 0F, E3, 11, FE, 0F, 8B, FE, 1985
  77. 860 DATA 4F, 41, 4A, 83, FA, 00, 74, 05, 83, C3, 4D, EB, D6, 80, 3E, 30, 1810
  78. 870 DATA 01, 00, 74, 07, 80, 3E, 7D, 01, 00, 77, 06, BA, 39, 02, E9, 00, 1043
  79. 880 DATA 01, 8B, 3E, CA, 01, BE, 7D, 01, AC, 32, E4, 8B, C8, 51, 03, F1, 1835
  80. 890 DATA 4E, FD, AC, 3C, 5C, 74, 0E, 3C, 3A, 74, 0A, AA, E2, F4, 83, C7, 1999
  81. 900 DATA 01, 57, EB, 07, 90, BA, A3, 02, E9, D6, 00, BE, 30, 01, AC, 32, 1733
  82. 910 DATA E4, 8B, FE, 8B, C8, 03, F9, 4F, B0, 5C, F2, AE, FC, 75, 0C, 49, 2429
  83. 920 DATA BF, 7E, 01, BE, 31, 01, F3, A4, EB, 19, 90, 80, 3E, 32, 01, 3A, 1668
  84. 930 DATA 75, 0E, BF, 7E, 01, BE, 31, 01, B9, 02, 00, F3, A4, EB, 04, 90, 1666
  85. 940 DATA BF, 7E, 01, 5E, 59, F3, A4, B0, 00, AA, BA, 31, 01, B4, 4E, B9, 1933
  86. 950 DATA 10, 00, CD, 21, 73, 03, EB, 0F, 90, BE, 95, 00, AC, 24, 10, 75, 1446
  87. 960 DATA 0C, BA, E0, 02, EB, 7B, 90, BA, C5, 02, EB, 75, 90, BA, 31, 01, 2043
  88. 970 DATA BF, 7E, 01, B4, 56, CD, 21, 73, 27, 3D, 03, 00, 75, 06, BA, FC, 1601
  89. 980 DATA 02, EB, 5E, 90, 3D, 05, 00, 75, 06, BA, 1C, 03, EB, 53, 90, 3D, 1404
  90. 990 DATA 11, 00, 75, 06, BA, 4B, 03, EB, 48, 90, BA, 72, 03, EB, 42, 90, 1603
  91. 1000 DATA B4, 09, BA, AD, 03, CD, 21, B9, 02, 00, BB, 31, 01, 8B, F3, AC, 1767
  92. 1010 DATA 3C, 00, 74, 08, 8A, D0, B4, 02, CD, 21, EB, F3, 83, F9, 02, 75, 1927
  93. 1020 DATA 0A, B4, 09, BA, BB, 03, CD, 21, EB, 0F, 90, B4, 09, BA, D2, 03, 1795
  94. 1030 DATA CD, 21, BA, D4, 03, B4, 09, CD, 21, 83, C3, 4D, E2, CF, EB, 11, 2154
  95. 1040 DATA 90, 52, B4, 09, BA, 0A, 02, CD, 21, 5A, CD, 21, BA, 97, 03, CD, 1724
  96. 1050 DATA 21, CD, 20, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 270
  97.