Category : Files from Magazines
Archive   : VOL7N21.ZIP
Filename : LOG.BAS

100 REM - BASIC PROGRAM TO CREATE LOG.COM
110 CLS:PRINT "Creating LOG.COM ": OPEN "LOG.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 113
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 113 - 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 "LOG.COM created successfully": SYSTEM
260 PRINT: PRINT "LOG.COM is not valid!": END
270 DATA E9, 6, 5, 4C, 4F, 47, 20, 31, 2E, 30, 20, 28, 63, 29, 20, 31, 3AA
280 DATA 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 550
290 DATA 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E, D, A, 50, 43, 20, 4BB
300 DATA 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 4A, 65, 66, 66, 20, 605
310 DATA 50, 72, 6F, 73, 69, 73, 65, D, A, 24, 1A, 0, 0, 0, 0, 0, 33A
320 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
330 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3D, 0, 4B, 88
340 DATA 75, 8, 2E, 83, 3E, 53, 1, 9, 72, 5, 2E, FF, 2E, 4F, 1, FB, 4E6
350 DATA 50, 53, 51, 52, 56, 57, 55, 1E, 6, 53, 52, 1E, 6, E, 1F, FF, 461
360 DATA 6, 53, 1, E8, E2, 3, BA, 8D, 5, E8, 68, 1, 8B, 36, 53, 1, 5D9
370 DATA 4E, D1, E6, D1, E6, 81, C6, 5F, 6, 8B, FE, 83, C7, 4, A0, 53, 932
380 DATA 1, FE, C8, E8, A6, 1, E8, 99, 1, C7, 6, 55, 1, 1, 0, 7, 603
390 DATA 1F, 5A, 5B, 6, 53, 1E, 7, 8B, FA, 32, C0, B9, 80, 0, FC, F2, 6F0
400 DATA AE, BB, 7F, 0, 2B, D9, 8B, CB, 8B, F7, 83, EE, 2, FD, AC, 3C, 91C
410 DATA 5C, 74, 7, 3C, 3A, 74, 3, E2, F5, 4E, 83, C6, 2, 2B, D9, 8B, 6C3
420 DATA CB, FC, E, 7, B0, D, 2E, 8A, 16, 53, 1, F6, E2, 8B, F8, 81, 797
430 DATA C7, DD, 5, 8A, C1, AA, AC, 3C, 61, 72, 6, 3C, 7A, 77, 2, 24, 6B2
440 DATA DF, AA, E2, F2, 5B, 7, 26, C5, 77, 2, 8A, C, 32, ED, 41, E, 727
450 DATA 7, BF, AF, 6, F3, A4, 7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 50, 608
460 DATA 53, 51, 52, 56, 57, 55, 1E, 6, 2E, 89, 1E, 4B, 1, 2E, 8B, 1E, 414
470 DATA 53, 1, 4B, D1, E3, FA, 2E, 8C, 97, 87, 6, 2E, 89, A7, 9B, 6, 72A
480 DATA 2E, 8B, 1E, 4B, 1, 9C, 2E, FF, 1E, 4F, 1, 9F, 2E, 8B, 1E, 53, 523
490 DATA 1, 4B, D1, E3, FA, 2E, 8E, 97, 87, 6, 2E, 8B, A7, 9B, 6, FB, 7D6
500 DATA 9E, 7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 9C, 50, 53, 51, 52, 56, 57C
510 DATA 57, 55, 1E, 6, E, 1F, 81, 3E, 4D, 1, A, 3, 72, 28, 1E, B4, 383
520 DATA 59, 33, DB, CD, 21, 2E, 8C, 1E, 63, 1, 1F, A3, 57, 1, 89, 1E, 552
530 DATA 59, 1, 89, E, 5B, 1, 89, 16, 5D, 1, 89, 36, 5F, 1, 89, 3E, 430
540 DATA 61, 1, 8C, 6, 65, 1, FF, E, 53, 1, E8, BB, 2, BA, 8D, 5, 5AC
550 DATA E8, 41, 0, 8B, 36, 53, 1, 46, D1, E6, D1, E6, 81, C6, 5F, 6, 79E
560 DATA 8B, FE, 83, EF, 4, A0, 53, 1, FE, C0, E8, 7F, 0, E8, 72, 0, 872
570 DATA C7, 6, 55, 1, 0, 0, 81, 3E, 4D, 1, A, 3, 72, 8, B8, A, 379
580 DATA 5D, BA, 57, 1, CD, 21, 7, 1F, 5D, 5F, 5E, 5A, 59, 5B, 58, 9D, 5A0
590 DATA CF, 0, 0, 0, 89, 16, 1, 3, B8, 2, 3D, CD, 21, 72, 21, A3, 48D
600 DATA 4B, 1, 8B, D8, B8, 2, 42, 33, C9, 33, D2, CD, 21, 80, 3E, 3, 65B
610 DATA 3, 0, 75, A, FE, 6, 3, 3, E8, CE, 0, E8, 2, 2, F8, C3, 5E9
620 DATA B4, 3C, 33, C9, 8B, 16, 1, 3, CD, 21, 72, F3, A3, 4B, 1, 8B, 65E
630 DATA D8, C6, 6, 3, 3, 1, B4, 40, B9, 46, 0, BA, 3, 1, CD, 21, 54A
640 DATA EB, D6, B4, 3E, 8B, 1E, 4B, 1, CD, 21, C3, 0, A2, 5B, 3, E8, 741
650 DATA ED, 0, B9, 4, 0, E8, FD, 1, 56, 8B, F7, E8, E1, 0, B9, 3, 7ED
660 DATA 0, E8, F1, 1, 5E, E8, F8, 0, B9, 5, 0, E8, E7, 1, A0, 5B, 7A1
670 DATA 3, B3, 1, E8, 42, 1, B9, 6, 0, E8, D9, 1, B0, D, F6, 26, 63C
680 DATA 5B, 3, 8B, D0, 81, C2, DD, 5, B4, 40, 8B, DA, 8A, F, 32, ED, 7EF
690 DATA 51, 8B, 1E, 4B, 1, 42, CD, 21, 5B, 83, 3E, 55, 1, 0, 74, 1F, 47B
700 DATA B9, C, 0, 2B, CB, 83, C1, 5, E8, AA, 1, BB, AF, 6, 8A, F, 6A0
710 DATA 32, ED, E3, B, B4, 40, 8B, 1E, 4B, 1, BA, B0, 6, CD, 21, E8, 73C
720 DATA 83, 1, C3, 4A, 61, 6E, 46, 65, 62, 4D, 61, 72, 41, 70, 72, 4D, 5FD
730 DATA 61, 79, 4A, 75, 6E, 4A, 75, 6C, 41, 75, 67, 53, 65, 70, 4F, 63, 629
740 DATA 74, 4E, 6F, 76, 44, 65, 63, 31, 39, E8, 59, 1, B4, 2A, CD, 21, 62B
750 DATA 51, 52, 8A, C2, 32, DB, E8, BF, 0, B9, 1, 0, E8, 56, 1, 5A, 6F6
760 DATA FE, CE, 8A, CE, 32, ED, BA, D3, 3, E3, 5, 83, C2, 3, E2, FB, 9E0
770 DATA B4, 40, 8B, 1E, 4B, 1, B9, 3, 0, CD, 21, B9, 1, 0, E8, 34, 569
780 DATA 1, B4, 40, B9, 2, 0, BA, F7, 3, CD, 21, 59, 81, E9, 6C, 7, 688
790 DATA 8A, C1, 32, DB, E8, 81, 0, E8, B, 1, E8, 8, 1, C3, 3A, 8A, 72D
800 DATA 44, 1, B3, 1, E8, 71, 0, B4, 40, 8B, 1E, 4B, 1, B9, 1, 0, 4F5
810 DATA BA, 4E, 4, CD, 21, 8A, 4, 32, DB, E8, 5C, 0, C3, 0, 0, 0, 59C
820 DATA 8A, 5, 8A, 1C, 8A, 4D, 1, 8A, 54, 1, 8A, 65, 2, 8A, 7C, 2, 4E5
830 DATA 3A, E7, 73, 5, 80, C4, 3C, FE, C8, 3A, C3, 7D, 4, 4, 3C, FE, 79B
840 DATA C9, 3A, CA, 7D, 3, 80, C1, 18, 2A, E7, 88, 26, 6F, 4, 2A, C3, 6C5
850 DATA A2, 6D, 4, 2A, CA, 88, E, 6E, 4, BE, 6D, 4, E8, A0, FF, B4, 779
860 DATA 40, 8B, 1E, 4B, 1, B9, 1, 0, BA, 4E, 4, CD, 21, 8A, 44, 2, 4B9
870 DATA 32, DB, E8, 3, 0, C3, 0, 0, D4, A, 5, 30, 30, A, DB, 74, 557
880 DATA 7, 80, FC, 30, 75, 2, B4, 20, 86, E0, A3, C6, 4, B4, 40, 8B, 750
890 DATA 1E, 4B, 1, B9, 2, 0, BA, C6, 4, CD, 21, C3, 53, 54, 41, 52, 594
900 DATA 54, 20, 20, 20, 20, 20, 45, 4E, 44, 20, 20, 20, 20, 20, 45, 4C, 2FC
910 DATA 41, 50, 53, 45, 44, 20, 20, 20, 20, 4C, 45, 56, 45, 4C, 20, 20, 3A5
920 DATA 20, 20, 50, 52, 4F, 47, 52, 41, 4D, 20, 20, 20, 20, 20, 20, 20, 338
930 DATA 20, 20, 20, 50, 41, 52, 41, 4D, 45, 54, 45, 52, 53, D, A, 3D, 3A8
940 DATA B4, 40, 8B, 1E, 4B, 1, B9, 43, 0, BA, EC, 4, CD, 21, B9, 4F, 685
950 DATA 0, 51, B4, 40, B9, 1, 0, BA, 2F, 5, CD, 21, 59, E2, F2, E8, 6F0
960 DATA 3, 0, C3, D, A, B4, 40, 8B, 1E, 4B, 1, B9, 2, 0, BA, 53, 48E
970 DATA 5, CD, 21, C3, 20, 51, B4, 40, 8B, 1E, 4B, 1, B9, 1, 0, BA, 584
980 DATA 64, 5, CD, 21, 59, E2, EE, C3, B4, 2C, CD, 21, 8B, 1E, 53, 1, 70E
990 DATA D1, E3, D1, E3, 89, 8F, 5F, 6, 88, B7, 61, 6, C3, 55, 73, 61, 877
1000 DATA 67, 65, 3A, 20, 4C, 4F, 47, 20, 5B, 66, 69, 6C, 65, 73, 70, 65, 56B
1010 DATA 63, 5D, 20, 5B, 2F, 55, 5D, 24, 4E, 6F, 74, 20, 49, 6E, 73, 74, 52F
1020 DATA 61, 6C, 6C, 65, 64, 24, 43, 61, 6E, 6E, 6F, 74, 20, 55, 6E, 69, 5D5
1030 DATA 6E, 73, 74, 61, 6C, 6C, 24, 41, 6C, 72, 65, 61, 64, 79, 20, 49, 5DD
1040 DATA 6E, 73, 74, 61, 6C, 6C, 65, 64, 24, 49, 6E, 76, 61, 6C, 69, 64, 642
1050 DATA 20, 46, 69, 6C, 65, 73, 70, 65, 63, 24, 55, 6E, 69, 6E, 73, 74, 5F0
1060 DATA 61, 6C, 6C, 65, 64, 24, 5C, 55, 53, 41, 47, 45, 2E, 4C, 4F, 47, 507
1070 DATA D, 6, 3C, 69, 64, 6C, 65, 3E, 0, FC, C7, 6, 0, 1, 0, 0, 3F5
1080 DATA 33, DB, 8C, C8, 43, 8E, C3, 3B, C3, 74, 11, BE, 0, 1, 8B, FE, 7C1
1090 DATA B9, 10, 0, F3, A6, 75, ED, C6, 6, 8, 6, 1, BE, 81, 0, AC, 68A
1100 DATA 3C, 20, 74, FB, 3C, D, 74, 35, 3C, 2F, 75, 34, AC, 24, DF, 3C, 5BC
1110 DATA 55, 74, C, BA, 8D, 5, B4, 9, CD, 21, B8, 1, 4C, CD, 21, BA, 679
1120 DATA A8, 5, 80, 3E, 8, 6, 0, 74, ED, E8, A9, 0, BA, B6, 5, 72, 652
1130 DATA E5, BA, EA, 5, B4, 9, CD, 21, B8, 0, 4C, CD, 21, BE, F7, 5, 7E5
1140 DATA BA, C7, 5, 80, 3E, 8, 6, 0, 75, CC, 4E, E, 7, BF, 5E, 8, 51B
1150 DATA E8, B3, 0, BA, D9, 5, 72, BE, BF, 5E, 8, 32, C0, B9, 50, 0, 783
1160 DATA F2, AE, 4F, 80, 7D, FF, 5C, 75, B, BE, F7, 5, B9, 9, 0, F3, 836
1170 DATA A4, 32, C0, AA, BA, 5E, 8, E8, 5A, FC, BA, D9, 5, 72, 97, E8, 927
1180 DATA A0, FC, E8, C3, FE, B8, 0, 30, CD, 21, 86, E0, A3, 4D, 1, B8, 92A
1190 DATA 21, 35, CD, 21, 89, 1E, 4F, 1, 8C, 6, 51, 1, B8, 21, 25, BA, 4D7
1200 DATA 6D, 1, CD, 21, A1, 2C, 0, 8E, C0, B4, 49, CD, 21, E, 7, BE, 635
1210 DATA 5E, 8, BF, 8D, 5, AC, AA, A, C0, 75, FA, BE, 1, 6, BF, DD, 7A7
1220 DATA 5, B9, 7, 0, F3, A4, B4, 9, BA, 3, 1, CD, 21, B8, 0, 31, 5AE
1230 DATA BA, 73, 0, CD, 21, 8C, C1, B8, 21, 35, CD, 21, 8C, C0, 3B, C1, 7AC
1240 DATA 75, 1B, 8E, C1, B4, 49, CD, 21, 72, 13, 1E, B8, 21, 25, 26, C5, 656
1250 DATA 16, 4F, 1, CD, 21, 1F, 26, F7, 16, 0, 1, F8, C3, F9, C3, 0, 61E
1260 DATA 0, 0, 0, 0, 0, 0, 89, 3E, 31, 7, 56, B4, 19, CD, 21, A2, 3B2
1270 DATA 33, 7, B4, 47, 32, D2, BE, F, 8, CD, 21, 5E, 80, 7C, 1, 3A, 591
1280 DATA 75, 5, AD, 24, DF, EB, 7, A0, 33, 7, 4, 41, B4, 3A, AB, 89, 65D
1290 DATA 36, 2F, 7, 33, C9, AC, 3C, D, 74, D, 3C, 20, 74, 9, 3C, 5C, 44F
1300 DATA 75, F3, 8B, CE, 49, EB, EE, 89, E, 34, 7, 8B, 36, 2F, 7, B, 6B7
1310 DATA C9, 74, C, 3B, F1, 74, 7, 2B, CE, 49, E3, 2, F3, A4, A4, 32, 784
1320 DATA C0, AA, B4, E, 8B, 3E, 31, 7, 8A, 15, 80, EA, 41, CD, 21, 80, 6E5
1330 DATA 7D, 2, 0, 74, D, B4, 3B, 8B, 16, 31, 7, 83, C2, 2, CD, 21, 4FD
1340 DATA 72, 5B, B4, 47, 8B, 36, 31, 7, 8A, 14, 80, EA, 40, 83, C6, 3, 655
1350 DATA C6, 44, FF, 5C, CD, 21, 72, 45, B4, E, 8A, 16, 33, 7, CD, 21, 694
1360 DATA B4, 3B, BA, E, 8, CD, 21, 72, 34, 8B, 3E, 31, 7, 32, C0, B9, 5FF
1370 DATA 50, 0, F2, AE, 4F, 80, 7D, FF, 5C, 74, 3, B0, 5C, AA, 8B, 36, 785
1380 DATA 34, 7, B, F6, 75, 6, 8B, 36, 2F, 7, EB, 1, 46, AC, 3C, D, 4D5
1390 DATA 74, 7, 3C, 20, 74, 3, AA, EB, F4, 32, C0, AA, F8, C3, 5C, 0, 78A
1400 DATA 174387