Category : Files from Magazines
Archive   : VOL8N11.ZIP
Filename : COLOR.BAS

100 REM - BASIC PROGRAM TO CREATE COLOR.EXE
110 CLS:PRINT "Creating COLOR.EXE ": OPEN "COLOR.EXE " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 78
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 78 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(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 "COLOR.EXE created successfully": SYSTEM
260 PRINT: PRINT "COLOR.EXE is not valid!": END
270 DATA 4D, 5A, D7, 0, 3, 0, 0, 0, 4, 0, 0, 0, FF, FF, 0, 0, 383
280 DATA B6, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, 0, F6
290 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
300 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 80, 0, 0, 0, 80
310 DATA E, 1F, BA, E, 0, B4, 9, CD, 21, B8, 1, 4C, CD, 21, 54, 68, 54F
320 DATA 69, 73, 20, 70, 72, 6F, 67, 72, 61, 6D, 20, 63, 61, 6E, 6E, 6F, 623
330 DATA 74, 20, 72, 75, 6E, 20, 69, 6E, 20, 44, 4F, 53, 20, 6D, 6F, 64, 546
340 DATA 65, 2E, D, D, A, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, DB
350 DATA 4E, 45, 5, 1, 85, 0, 2, 0, F6, 22, A3, F5, A, 0, 1, 0, 3DB
360 DATA 0, 0, 0, 10, 0, 0, 2, 0, 0, 0, 1, 0, 2, 0, 2, 0, 17
370 DATA D, 0, 40, 0, 50, 0, 50, 0, 59, 0, 5D, 0, 7, 1, 0, 0, 1AB
380 DATA 0, 0, 9, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, A
390 DATA 1, 0, 7F, 0, 1, C, 7F, 0, 2, 0, B5, 0, 0, D, B5, 0, 285
400 DATA 5, 43, 4F, 4C, 4F, 52, 0, 0, 0, 1, 0, A, 0, 0, 8, 44, 1DB
410 DATA 4F, 53, 43, 41, 4C, 4C, 53, 8, 56, 49, 4F, 43, 41, 4C, 4C, 53, 476
420 DATA 9, 56, 49, 4F, 57, 52, 54, 54, 54, 59, A, 56, 49, 4F, 53, 45, 485
430 DATA 54, 41, 4E, 53, 49, 0, 0, 9, 43, 4F, 4C, 4F, 52, 2E, 45, 58, 3D2
440 DATA 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 45
450 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
460 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
470 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
480 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
490 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
500 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
510 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
520 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
530 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
540 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
550 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
560 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
570 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
580 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
590 DATA 55, 73, 61, 67, 65, 3A, 20, 43, 4F, 4C, 4F, 52, 20, 66, 62, D, 4C3
600 DATA A, 49, 6E, 76, 61, 6C, 69, 64, 20, 63, 6F, 6C, 6F, 72, 20, 49, 579
610 DATA 44, D, A, 1B, 5B, 30, 3B, 0, 0, 0, 0, 0, 0, 0, 0, 4, 140
620 DATA 0, 58, 42, 47, 43, 52, 4D, 59, 57, 78, 62, 67, 63, 72, 6D, 79, 56F
630 DATA 77, 33, 37, 3B, 20, 33, 33, 3B, 20, 33, 35, 3B, 20, 33, 31, 3B, 35F
640 DATA 20, 33, 36, 3B, 20, 33, 32, 3B, 20, 33, 34, 3B, 20, 33, 30, 3B, 304
650 DATA 34, 37, 6D, 20, 34, 33, 6D, 20, 34, 35, 6D, 20, 34, 31, 6D, 20, 3D4
660 DATA 34, 36, 6D, 20, 34, 32, 6D, 20, 34, 34, 6D, 20, 34, 30, 6D, 0, 3B0
670 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
680 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
690 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
700 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
710 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
720 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
730 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
740 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
750 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
760 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
770 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
780 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
790 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
800 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
810 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
820 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
830 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
840 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
850 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
860 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
870 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
880 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
890 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
900 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
910 DATA 8E, C0, 8B, FB, FC, 32, C0, F2, AE, 26, 80, 3D, 20, 75, 3, 47, 824
920 DATA EB, F7, 26, 8A, 5, A, C0, 75, 16, 1E, 68, 0, 0, 6A, 11, 6A, 557
930 DATA 0, 9A, FF, FF, 0, 0, 6A, 1, 6A, 1, 9A, FF, FF, 0, 0, 26, 62C
940 DATA 8A, 65, 1, A, E4, 74, E2, BB, FF, FF, 8E, C3, BF, 31, 0, B9, 8E7
950 DATA 10, 0, F2, AE, 74, 8, 1E, 68, 11, 0, 6A, 12, EB, D1, 83, F9, 677
960 DATA 8, 72, 12, 83, E9, 8, C6, 6, 27, 0, 31, C6, 6, 28, 0, 3B, 453
970 DATA 83, 6, 2F, 0, 2, BE, 41, 0, E8, 33, 0, 86, E0, BF, 39, 0, 532
980 DATA B9, 8, 0, F2, AE, 75, CF, BE, 60, 0, E8, 21, 0, 6A, 1, 6A, 6A1
990 DATA 0, 9A, FF, FF, 0, 0, 1E, 68, 23, 0, FF, 36, 2F, 0, 6A, 0, 50F
1000 DATA 9A, 22, 0, 0, 0, 6A, 1, 6A, 0, 9A, 2B, 0, 0, 0, C1, E1, 3F8
1010 DATA 2, 3, F1, BF, 23, 0, 3, 3E, 2F, 0, B9, 3, 0, F3, A4, 83, 51E
1020 DATA 6, 2F, 0, 3, C3, 4, 0, 2, 0, 38, 0, 1, 0, 0, 0, 3, 13D
1030 DATA 1, 9A, 0, 1, 0, 5, 0, 3, 2, 91, 0, 2, 0, 13, 0, 3, 14F
1040 DATA 2, 82, 0, 2, 0, 1D, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, A3
1050 DATA 37110