home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pcmag / vol7n20.arc / CONFIG.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-29  |  9.1 KB  |  124 lines
  1. 100 REM - BASIC PROGRAM TO CREATE CONFIG.CTL  
  2. 110 CLS:PRINT "Creating CONFIG.CTL  ": OPEN "CONFIG.CTL  " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   105
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   105 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  7. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$)): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "CONFIG.CTL   created successfully": SYSTEM
  17. 260 PRINT: PRINT "CONFIG.CTL   is not valid!": END
  18. 270 DATA FF, FF, FF, FF,  0, 80, 17,  0, 22,  0, 43, 4F, 4E, 46, 49, 47,   66B
  19. 280 DATA 55, 52, 45,  0,  0,  0,  0, 2E, 89, 1E, 13,  0, 2E, 8C,  6, 15,   2A9
  20. 290 DATA  0, CB, 50, 53, 51, 52, 1E, 9C, 2E, 8E, 1E, 15,  0, 2E, 8B, 1E,   491
  21. 300 DATA 13,  0, 81, 4F,  3,  0,  1, 80, 7F,  2,  0, 74,  7, 81, 4F,  3,   336
  22. 310 DATA  3, 80, EB, 22, 8C, D1, 8B, D4, 8C, C8, FA, 8E, D0, BC, FE, FF,   AB1
  23. 320 DATA FB, 51, 52,  6, 56, 57, 55, E8, F3,  2, 5D, 5F, 5E,  7, 5A, 59,   657
  24. 330 DATA FA, 8E, D1, 8B, E2, FB, 9D, 1F, 5A, 59, 5B, 58, CB,  0,  0,  0,   7AE
  25. 340 DATA  0,  0,  0,  0, 44, 43, 4F, 4E, 46, 49, 47, 2E, 45, 4E, 44,  D,   30C
  26. 350 DATA  A,  A, 50, 72, 65, 73, 73, 20, 61, 6E, 79, 20, 6B, 65, 79, 20,   512
  27. 360 DATA 69, 66, 20, 79, 6F, 75, 20, 77, 69, 73, 68, 20, 74, 6F, 20, 6D,   5B7
  28. 370 DATA 6F, 64, 69, 66, 79, 20, 74, 68, 65, 20, 43, 4F, 4E, 46, 49, 47,   552
  29. 380 DATA 2E, 53, 59, 53, 20, 63, 6F, 6E, 66, 69, 67, 75, 72, 61, 74, 69,   5E8
  30. 390 DATA 6F, 6E, 2E,  D,  A, 50, 72, 65, 73, 73, 20, 45, 73, 63, 20, 66,   4F0
  31. 400 DATA 6F, 72, 20, 71, 75, 69, 63, 6B, 20, 62, 79, 70, 61, 73, 73, 20,   5F0
  32. 410 DATA 6F, 66, 20, 43, 4F, 4E, 46, 49, 47, 2E, 43, 54, 4C, 2E,  D,  A,   401
  33. 420 DATA  A, 24, 44, 45, 56, 49, 43, 45, 3D, 43, 4F, 4E, 46, 49, 47, 2E,   3FF
  34. 430 DATA 45, 4E, 44, 20, 68, 61, 73, 20, 74, 6F, 20, 62, 65, 20, 61, 64,   502
  35. 440 DATA 64, 65, 64, 20, 61, 73, 20, 61, 20, 74, 65, 72, 6D, 69, 6E, 61,   5B2
  36. 450 DATA 74, 69, 6E, 67, 20,  D,  A, 63, 6F, 6D, 6D, 61, 6E, 64, 20, 69,   551
  37. 460 DATA 6E, 20, 43, 4F, 4E, 46, 49, 47, 2E, 53, 59, 53, 20, 62, 65, 66,   4BE
  38. 470 DATA 6F, 72, 65, 20, 43, 4F, 4E, 46, 49, 47, 2E, 43, 54, 4C, 20, 63,   4B0
  39. 480 DATA 61, 6E, 20, 66, 75, 6E, 63, 74, 69, 6F, 6E, 2E,  D,  A, 50, 72,   55C
  40. 490 DATA 65, 73, 73, 20, 61, 6E, 64, 20, 6B, 65, 79, 20, 74, 6F, 20, 63,   58D
  41. 500 DATA 6F, 6E, 74, 69, 6E, 75, 65, 2E, 24, 43, 4F, 4E, 46, 49, 47, 2E,   538
  42. 510 DATA 43, 54, 4C, 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 38,   340
  43. 520 DATA 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74,   5DF
  44. 530 DATA 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67,   498
  45. 540 DATA 61, 7A, 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20,   628
  46. 550 DATA 4A, 2E, 20, 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  A, 50, 72, 65,   4A3
  47. 560 DATA 73, 73, 20, 46, 31, 20, 74, 6F, 20, 74, 6F, 67, 67, 6C, 65, 20,   542
  48. 570 DATA 61, 63, 74, 69, 76, 65, 20, 73, 74, 61, 74, 65, 20, 6F, 66, 20,   5D2
  49. 580 DATA 68, 69, 67, 68, 6C, 69, 67, 68, 74, 65, 64, 20, 63, 6F, 6D, 6D,   64D
  50. 590 DATA 61, 6E, 64, 2E,  D,  A, 59, 6F, 75, 20, 6D, 61, 79, 20, 6F, 70,   51B
  51. 600 DATA 74, 69, 6F, 6E, 61, 6C, 6C, 79, 20, 65, 64, 69, 74, 20, 61, 20,   5D3
  52. 610 DATA 68, 69, 67, 68, 6C, 69, 67, 68, 74, 65, 64, 20, 63, 6F, 6D, 6D,   64D
  53. 620 DATA 61, 6E, 64, 2E,  D,  A, 50, 72, 65, 73, 73, 20, 46, 32, 20, 74,   4B1
  54. 630 DATA 6F, 20, 61, 63, 63, 65, 70, 74, 20, 63, 68, 61, 6E, 67, 65, 73,   5F8
  55. 640 DATA 20, 61, 6E, 64, 20, 65, 78, 69, 74, 2E,  D,  A, 50, 72, 65, 73,   50C
  56. 650 DATA 73, 20, 45, 73, 63, 20, 74, 6F, 20, 61, 62, 6F, 72, 74, 20, 63,   56C
  57. 660 DATA 68, 61, 6E, 67, 65, 73, 20, 61, 6E, 64, 20, 65, 78, 69, 74, 2E,   5D1
  58. 670 DATA  D,  A, 4E, 6F, 74, 65, 3A, 20, 50, 65, 72, 6D, 61, 6E, 65, 6E,   53D
  59. 680 DATA 74, 20, 63, 68, 61, 6E, 67, 65, 73, 20, 61, 72, 65, 20, 6E, 6F,   5C2
  60. 690 DATA 74, 20, 6D, 61, 64, 65, 20, 74, 6F, 20, 74, 68, 65, 20, 43, 4F,   541
  61. 700 DATA 4E, 46, 49, 47, 2E, 53, 59, 53, 20, 66, 69, 6C, 65, 2E, 24, 43,   4A6
  62. 710 DATA 42, 51, 44, 58, 46, 53, 4B, 4C, 42, 52, 45, 41, 4B, 20, 20, 20,   424
  63. 720 DATA 20, 20, 42, 55, 46, 46, 45, 52, 53, 20, 20, 20, 43, 4F, 55, 4E,   3E2
  64. 730 DATA 54, 52, 59, 20, 20, 20, 44, 45, 56, 49, 43, 45, 20, 20, 20, 20,   38F
  65. 740 DATA 46, 43, 42, 53, 20, 20, 20, 20, 20, 20, 46, 49, 4C, 45, 53, 20,   371
  66. 750 DATA 20, 20, 20, 20, 53, 48, 45, 4C, 4C, 20, 20, 20, 20, 20, 53, 54,   33F
  67. 760 DATA 41, 43, 4B, 53, 20, 20, 20, 20, 4C, 41, 53, 54, 44, 52, 49, 56,   40B
  68. 770 DATA 45, 20, 49, 4E, 41, 43, 54, 49, 56, 45, 20, 20, 3B,  E, 48, 50,   3D9
  69. 780 DATA 4B, 4D, 47, 4F, 49, 51, 1C, 6F,  5, 83,  5, 9E,  5, B4,  5, CF,   50B
  70. 790 DATA  5, DB,  5, E7,  5, F0,  5, 17,  6, FF,  5, B4,  5, C7, 47,  E,   5BC
  71. 800 DATA 6D,  0, 8C, 4F, 10, 8B, 47, 14, 8E, C0, 8B, 5F, 12,  E, 1F, 8C,   541
  72. 810 DATA  6, 6D,  0, FC, 33, ED, 26, 8A,  7, 43, 3C,  D, 74, 17, 3C,  A,   4A3
  73. 820 DATA 74, 13, 2C, 30, 72, F0, 3C,  9, 77, EC, 98, 95, B9,  A,  0, F7,   6D4
  74. 830 DATA E1,  3, E8, EB, E1, 89, 1E, 6F,  0, BE, 74,  0, 8B, FB, B9,  B,   82A
  75. 840 DATA  0, F3, A6, 74,  8, 43, 83, FB, F4, 75, EE, EB,  E, C6,  6, 73,   865
  76. 850 DATA  0,  1, 26, C6,  7, 5A, 4B, 89, 1E, 71,  0, E8, CB,  2, 75, 16,   4F1
  77. 860 DATA 8B, CD, E3, 31, BA, 7F,  0, E8, CD,  2, E8, A1,  2, E8, B9,  2,   88A
  78. 870 DATA 75,  4, E2, F6, EB, 1F, 50, E8, B7,  2, 58, 80, FC,  1, 74, 15,   7AA
  79. 880 DATA 80, 3E, 73,  0,  1, 74,  B, BA, F2,  0, E8, AA,  2, E8, 94,  2,   66F
  80. 890 DATA EB,  3, E8,  1,  0, C3, E8, 6C,  2, BA, 79,  1, E8, 98,  2, 8B,   731
  81. 900 DATA 36, 6F,  0, 8B, 16, 71,  0, BB, 8C,  6,  E,  7, FF, 36, 6D,  0,   4BB
  82. 910 DATA 1F, 3B, F2, 73, 26, AC, 3C,  D, 74, F7, 3C,  A, 74, F3, 50, 4E,   690
  83. 920 DATA 26, 89, 77, 52, 8B, FB, E8, 4B,  0, 58, 3C, 5A, 74, E3, 49, 49,   708
  84. 930 DATA E3, DF, 26, 89, 4F, 50, 83, C3, 54, EB, D6,  E, 1F, C6,  7, FF,   864
  85. 940 DATA 81, FB, 8C,  6, 74, 2A, E8, 8B,  0, E8, E1,  0, 72, 22, BB, 8C,   7C3
  86. 950 DATA  6, FF, 36, 6D,  0,  7, 80, 3F, FF, 74, 15, F6,  7, 80, 74,  3,   5EA
  87. 960 DATA C6,  7, 5A, 8B, F3, 8B, 7F, 52, E8, 1B,  0, 83, C3, 54, EB, E6,   86F
  88. 970 DATA E8, F2,  1, C3, 33, C9, AC,  A, C0, 74, FB, AA, 41, 3C,  D, 74,   827
  89. 980 DATA  4, 3C,  A, 75, F1, C3, 8B, 4F, 50, 41, BD, FF, FF, 33, D2, AC,   84A
  90. 990 DATA 3C, 61, 72,  6, 3C, 7A, 77,  2, 24, 5F, 3C, 20, 75,  5, 83, FA,   51A
  91. 1000 DATA  1, 74, EC, 83, FD, FF, 75, 19, 3C, 20, 74, 10, 3C, 2C, 74,  C,   636
  92. 1010 DATA 3C, 2F, 74,  8, 3C,  D, 74,  4, 3C,  A, 75,  D, 95, 33, C0, AA,   4A2
  93. 1020 DATA 95, 3C,  D, 74,  8, 3C,  A, 74,  4, AA, 42, E2, C2, E3,  4, B0,   63F
  94. 1030 DATA 20, F3, AA, C3, BD, 8C,  6, B6,  9, 32, D2, E8, 80,  1, 80, 7E,   7F9
  95. 1040 DATA  0, FF, 74, 23, E8, 21,  0, B0, 3D, E8, 6D,  1, B0, 20, E8, 68,   702
  96. 1050 DATA  1, 8B, F5, 46, 8B, 4E, 50, AC, E8, 5E,  1, E2, FA, 83, C5, 54,   85B
  97. 1060 DATA FE, C6, 80, FE, 19, 75, D2, C3, BE, 22,  3, 8A, 46,  0, A8, 80,   840
  98. 1070 DATA 75, 11, BF, BF,  2, B9,  9,  0, F2, AE, BE, 22,  3, 41, 83, EE,   6FD
  99. 1080 DATA  A, E2, FB, B9,  A,  0, AC, E8, 2F,  1, E2, FA, C3, BD, 8C,  6,   85C
  100. 1090 DATA B6,  9, B3, 70, E8,  0,  1, E8, 4A,  1, 80, FC,  1, 74, 3E, 80,   6AD
  101. 1100 DATA FC, 3C, 74, 3A, 3C,  8, 74, 1C, 3C,  D, 74, 18, 80, FC, 3B, 73,   5B9
  102. 1110 DATA 13, 3C, 20, 72, E2, 3B, 7E, 50, 77, DD, 88,  3, 47, FE, C2, E8,   79A
  103. 1120 DATA F7,  0, EB, D3, 8A, C4, B9,  B,  0, 57, BF, 2C,  3, F2, AE, 5F,   80B
  104. 1130 DATA 75, C5, BE, 4B,  3, D1, E1, 2B, F1, FF, 14, EB, BA, F9, C3, 57,   9DF
  105. 1140 DATA 52, 32, D2, E8, D8,  0, 80, 76,  0, 80, E8, 7B, FF, 5A, E8, CD,   8FD
  106. 1150 DATA  0, 5F, C3, 83, FF,  1, 74, 15, FE, CA, 4F, C6,  3, 20, B0,  8,   6E6
  107. 1160 DATA E8, B6,  0, B0, 20, E8, B1,  0, B0,  8, E8, AC,  0, C3, 81, FD,   894
  108. 1170 DATA 8C,  6, 74,  F, B3,  7, E8, 7E,  0, 83, ED, 54, FE, CE, B3, 70,   7E8
  109. 1180 DATA E8, 74,  0, C3, 80, 7E, 54, FF, 74, 14, 80, FE, 18, 74,  F, B3,   7C4
  110. 1190 DATA  7, E8, 63,  0, 83, C5, 54, FE, C6, B3, 70, E8, 59,  0, C3, 83,   85C
  111. 1200 DATA FF,  1, 74,  6, 4F, FE, CA, E8, 74,  0, C3, 3B, 7E, 50, 77,  6,   736
  112. 1210 DATA 47, FE, C2, E8, 68,  0, C3, BF,  1,  0, B2,  C, E8, 5F,  0, C3,   7A2
  113. 1220 DATA 8B, 7E, 50, 8B, CF, 8A, D1, 80, C2,  C, 47, E8, 50,  0, C3, B3,   851
  114. 1230 DATA  7, E8, 23,  0, 80, 7E, 54, FF, 74,  7, 83, C5, 54, FE, C6, EB,   829
  115. 1240 DATA F3, B3, 70, E8, 11,  0, C3, B3,  7, E8,  B,  0, BD, 8C,  6, B6,   784
  116. 1250 DATA  9, B3, 70, E8,  1,  0, C3, 8B, 4E, 50, 8B, F5, 46, B2,  C, E8,   76D
  117. 1260 DATA 1C,  0, AC, 51, B9,  1,  0, B4,  9, CD, 10, FE, C2, 59, E2, EF,   757
  118. 1270 DATA B2,  C, E8,  9,  0, BF,  1,  0, C3, B4,  E, CD, 10, C3, 32, FF,   6C5
  119. 1280 DATA B4,  2, CD, 10, C3, B4,  F, CD, 10, 32, E4, CD, 10, C3, 1E, B8,   782
  120. 1290 DATA 40,  0, 8E, D8, A1, 6C,  0,  5, 12,  0, 8B, 16, 6C,  0, 3B, D0,   4E2
  121. 1300 DATA 75, F8, 1F, C3, B4,  0, CD, 16, C3, B4,  1, CD, 16, C3, E8, F3,   8DF
  122. 1310 DATA FF, E8, F5, FF, 75, F8, C3, B4,  9, CD, 21, C3,  0,  0,  0,  0,   879
  123. 1320 DATA 166382
  124.