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