Category : Files from Magazines
Archive   : N7V11.ZIP
Filename : COMPARE.BAS

100 REM - BASIC PROGRAM TO CREATE COMPARE.COM
110 CLS: PRINT "Creating COMPARE.COM ": OPEN "COMPARE.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 154: LINESUM#=0: LOCATE 2,3: PRINT "Countdown: ";154 - I;
140 FOR J = 1 TO 16 : READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
150 LINESUM#=LINESUM#+VAL("&H"+BYTE$)
160 IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$))
170 PUT #1: NEXT J
180 READ LINETOT$: LINECHECK# = VAL("&H" + LINETOT$)
190 IF LINECHECK# = LINESUM# THEN GOTO 210
200 LOCATE 4,2: PRINT "Error in line #" ;240 + 10 * I
210 NEXT I
220 CLOSE: LOCATE 6,2: IF CHECKSUM# <> 254690 THEN GOTO 240
230 PRINT "COMPARE.COM created successfully": SYSTEM
240 PRINT "COMPARE.COM is not valid!": SYSTEM
250 DATA E9, 0, 2, D, 20, 20, 20, D, A, 43, 4F, 4D, 50, 41, 52, 45, 376
260 DATA 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 340
270 DATA 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 642
280 DATA 73, 20, 43, 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 496
290 DATA 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 57C
300 DATA 4D, 65, 66, 66, 6F, 72, 64, D, A, D, A, 53, 79, 6E, 74, 61, 500
310 DATA 78, 3A, 20, 20, 43, 4F, 4D, 50, 41, 52, 45, 20, 66, 69, 6C, 65, 4B9
320 DATA 73, 70, 65, 63, 20, 66, 69, 6C, 65, 73, 70, 65, 63, 5B, 2F, 42, 5E2
330 DATA 5D, 5B, 2F, 57, 5D, D, A, 2F, 42, 20, 3D, 20, 42, 69, 6E, 61, 41A
340 DATA 72, 79, 20, 20, 20, 2F, 57, 20, 3D, 20, 57, 6F, 72, 64, 53, 74, 4B1
350 DATA 61, 72, 24, 1A, 0, 0, 0, B0, 0, 0, 18, 7, 70, FF, 0, 1, 350
360 DATA 0, 0, 3A, 33, 3A, 83, 0, 0, 0, 0, 0, 0, 0, 0, 3A, 5B, 1BF
370 DATA 3A, AB, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, 135
380 DATA 0, 50, 0, 3A, 33, 3A, 83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 17A
390 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
400 DATA 0, 0, 0, 0, 0, 0, 0, 98, A, E8, A, 0, 0, 0, 0, 52, 1E6
410 DATA 65, 71, 75, 69, 72, 65, 73, 20, 36, 34, 4B, 20, 66, 72, 65, 65, 595
420 DATA 20, 52, 41, 4D, 24, 55, 6E, 73, 75, 70, 70, 6F, 72, 74, 65, 64, 5CD
430 DATA 20, 76, 69, 64, 65, 6F, 20, 6D, 6F, 64, 65, 24, 43, 4F, 4D, 45, 544
440 DATA 58, 45, 36, 2, 51, 2, D, A, A, 45, 6E, 74, 65, 72, 20, 66, 3CD
450 DATA 69, 72, 73, 74, 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65, D, A, 55A
460 DATA 24, D, A, A, 45, 6E, 74, 65, 72, 20, 73, 65, 63, 6F, 6E, 64, 4DF
470 DATA 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65, D, A, 24, D, A, 46, 419
480 DATA 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 24, 50, 72, 5CD
490 DATA 65, 73, 73, 20, 61, 6E, 79, 20, 6B, 65, 79, 20, 66, 6F, 72, 20, 5A3
500 DATA 6E, 65, 78, 74, 20, 63, 6F, 6D, 70, 61, 72, 65, 20, 20, 20, 45, 56B
510 DATA 73, 63, 20, 74, 6F, 20, 45, 78, 69, 74, 0, 57, 6F, 72, 6B, 69, 59F
520 DATA 6E, 67, 0, 46, 69, 6C, 65, 73, 20, 73, 69, 67, 6E, 69, 66, 69, 5D1
530 DATA 63, 61, 6E, 74, 6C, 79, 20, 64, 69, 66, 66, 65, 72, 65, 6E, 74, 662
540 DATA 0, 46, 69, 6C, 65, 73, 20, 61, 72, 65, 20, 65, 66, 66, 65, 63, 564
550 DATA 74, 69, 76, 65, 6C, 79, 20, 69, 64, 65, 6E, 74, 69, 63, 61, 6C, 66A
560 DATA 0, 43, 6F, 6D, 70, 61, 72, 65, 20, 63, 6F, 6D, 70, 6C, 65, 74, 5DB
570 DATA 65, 64, 0, FC, BB, 0, 10, B4, 4A, CD, 21, BA, FF, 1, 73, 3, 6AC
580 DATA E9, 12, 1, BE, 81, 0, AC, 3C, D, 74, 28, 3C, 2F, 75, F7, C6, 669
590 DATA 44, FF, 0, AC, 3C, D, 74, 1B, C6, 44, FF, 0, 24, 5F, 3C, 57, 5E6
600 DATA 75, 5, C6, 6, AD, 1, 7F, 3C, 42, 75, DB, C7, 6, EB, 1, 10, 60A
610 DATA 0, EB, D3, BE, 81, 0, 33, ED, AC, 3C, 20, 77, 4, 3C, D, 75, 65E
620 DATA F7, 4E, 8B, FE, 8B, D6, AC, 3C, 20, 77, FB, C6, 44, FF, 0, 56, 908
630 DATA 50, E8, 18, 5, 73, 3, E8, 81, 6, 58, 5E, 89, BE, F7, 1, 83, 6B2
640 DATA C5, 2, 83, FD, 2, 77, 9, 3C, D, 75, CD, E8, 6C, 6, EB, EB, 784
650 DATA BD, 2, 0, 8B, B6, F7, 1, AC, 3C, 0, 74, E, 3C, 61, 72, F7, 668
660 DATA 3C, 7A, 77, F3, 80, 64, FF, 5F, EB, ED, 83, ED, 2, 73, E4, BD, 9C0
670 DATA 2, 0, 8B, B6, F7, 1, AC, 3C, 0, 74, 1D, 3C, 2E, 75, F7, BB, 645
680 DATA 2, 0, BF, 2C, 2, 56, 57, B9, 3, 0, F3, A6, 5F, 5E, 74, F, 531
690 DATA 83, C7, 3, 4B, 75, EF, EB, DE, 83, ED, 2, 73, D5, EB, 6, C7, 937
700 DATA 6, EB, 1, 10, 0, A1, B2, 1, A3, E1, 1, A1, B4, 1, A3, E9, 6BD
710 DATA 1, E8, D2, 4, E8, 8A, 5, E8, 59, 0, 73, 26, E8, 8B, 6, 8B, 714
720 DATA 3E, ED, 1, 3, 3E, A8, 1, 8A, 3E, AB, 1, 80, 3E, B0, 1, 1, 4FA
730 DATA 74, 8, BE, D1, 2, 83, EF, 1E, EB, 22, BE, F1, 2, 83, EF, 10, 7DD
740 DATA EB, 1A, E8, C6, 5, E8, 2E, 6, E8, 1E, 6, 80, FC, 1, 75, C7, 799
750 DATA E8, 57, 6, EB, A, E8, 68, 6, B0, 1, EB, 13, E8, 4, 6, 8A, 6BB
760 DATA 36, AA, 1, FE, CE, 32, D2, 32, FF, B4, 2, CD, 10, 32, C0, B4, 81B
770 DATA 4C, CD, 21, E8, 34, 6, BE, AB, 2, 8B, 3E, ED, 1, 83, C7, 48, 710
780 DATA 8A, 3E, AB, 1, 80, CF, 80, E8, D9, 5, A1, A8, 1, D1, E0, 8B, 88F
790 DATA F8, D1, E7, 89, 3E, C2, 1, 8A, 16, CE, 1, FE, C2, F6, E2, 3, 944
800 DATA F8, 89, 3E, C4, 1, BD, 2, 0, 8B, 86, CF, 1, 89, 86, C6, 1, 6FA
810 DATA 8B, 86, D3, 1, 89, 86, B6, 1, A0, CE, 1, 32, E4, 89, 86, CA, 809
820 DATA 1, 83, ED, 2, 73, E2, BF, DB, 1, A1, E1, 1, B9, 4, 0, F3, 796
830 DATA AB, A1, E9, 1, B9, 4, 0, F3, AB, C6, 6, B1, 1, 0, C6, 6, 6DB
840 DATA AF, 1, 0, 8B, 36, B6, 1, 8B, 3E, B8, 1, E8, 2, 3, E8, 2B, 5AA
850 DATA 3, 73, 7, E8, 36, 3, 73, 7, F9, C3, E8, 2F, 3, 73, 9, F6, 660
860 DATA 6, B1, 1, 7, 74, 9, EB, 5E, 80, 3E, B1, 1, 7, 74, 57, 8A, 551
870 DATA 3E, AB, 1, E8, 6, 3, 72, 43, E8, 11, 3, 72, 3E, 8A, 4, 8A, 554
880 DATA 25, A6, 74, 28, 83, 3E, EB, 1, 10, 74, 30, 3C, A, 74, 19, 3C, 4D7
890 DATA D, 74, 10, 80, FC, A, 74, 19, 80, FC, D, 75, 1E, 3C, 20, 74, 590
900 DATA B, EB, E, 80, FC, 20, 74, 4, 33, ED, EB, A, 33, ED, E8, 17, 74C
910 DATA 0, BD, 2, 0, 8A, C4, E8, F, 0, EB, 88, C6, 6, B0, 1, 1, 5F5
920 DATA E8, 7C, 1, E9, 7D, FF, F8, C3, 50, 51, 56, 57, 8B, 8E, C6, 1, 8B3
930 DATA 83, 3E, EB, 1, 10, 74, 5, E8, 76, 0, EB, 3, E8, B6, 0, FF, 71F
940 DATA 86, B6, 1, E3, 6, 89, 8E, C6, 1, EB, 60, A1, EB, 1, 89, 86, 7EB
950 DATA C6, 1, 3D, 10, 0, 74, 1B, B, ED, 75, 5, E8, 7E, 2, EB, 3, 56B
960 DATA E8, 89, 2, 72, D, 8B, BE, B6, 1, 80, 3D, D, 75, 4, FF, 86, 6BA
970 DATA B6, 1, 80, 3E, AF, 1, 1, 75, 18, 83, BE, CA, 1, 0, 74, 2B, 55E
980 DATA FF, 8E, CA, 1, 75, B, 8B, CD, 80, C1, 2, 8, E, B1, 1, EB, 726
990 DATA 1A, F6, 6, B1, 1, 1, 75, 13, E8, C6, 2, 8B, F7, 83, C6, 2, 6CE
1000 DATA B9, 3, 0, F3, A5, 8B, 86, B6, 1, 89, 5, 5F, 5E, 59, 58, C3, 6DB
1010 DATA 3C, D, 74, 21, 3C, 9, 74, E, 3C, A, 74, 38, 51, B9, 1, 0, 3A2
1020 DATA E8, 14, 0, 59, 49, C3, 51, 49, 83, E1, 7, 41, 51, E8, 5, 0, 5E5
1030 DATA 58, 59, 2B, C8, C3, B0, 20, 80, 3E, AF, 1, 1, 75, 14, 83, BE, 670
1040 DATA CA, 1, 0, 74, D, 8B, BE, C2, 1, E8, 57, 3, E2, FB, 89, BE, 7BE
1050 DATA C2, 1, 33, C9, C3, 80, 3E, AF, 1, 1, 75, 7, 83, BE, CA, 1, 679
1060 DATA 0, 75, 2, 49, C3, 51, 50, 51, 8B, BE, C2, 1, 83, F9, 10, 75, 682
1070 DATA 3B, 50, 53, 8B, 86, B6, 1, 2B, 86, B2, 1, 3, 86, F3, 1, 50, 5D7
1080 DATA 8B, 86, EF, 1, 73, 3, 5, 0, 10, 8A, 3E, AB, 1, B9, 1, 0, 4BA
1090 DATA 86, E0, E8, 4F, 0, 86, E0, E8, 4A, 0, B, C9, 74, 9, B0, 3A, 770
1100 DATA E8, 0, 3, 58, 49, EB, E9, 83, C7, 4, 5B, 58, E8, 35, 0, B0, 72E
1110 DATA 20, 59, 83, F9, 9, 75, 2, B0, 2D, 53, 8A, 3E, AB, 1, E8, E2, 6E3
1120 DATA 2, 5B, 89, BE, C2, 1, D1, E1, D1, E1, 3, F9, 83, C7, 1E, 58, 887
1130 DATA E8, D0, 2, 59, 49, 75, C, A1, A8, 1, 2D, 3B, 0, D1, E0, 1, 641
1140 DATA 86, C2, 1, C3, 51, B9, 4, 2, D2, C0, 50, 24, F, 4, 30, 3C, 5A1
1150 DATA 39, 7E, 2, 4, 7, E8, AB, 2, 58, FE, CD, 75, EB, 59, C3, 80, 778
1160 DATA 3E, AF, 1, 1, 74, 32, C6, 6, AF, 1, 1, E8, 9C, 3, BD, 2, 558
1170 DATA 0, A1, EB, 1, 89, 86, C6, 1, 8B, 8E, B6, 1, E8, A2, 1, 8B, 749
1180 DATA 5, 89, 86, B6, 1, 8B, B6, B6, 1, 3B, F1, 73, 6, AC, E8, 57, 753
1190 DATA FE, EB, F2, 83, ED, 2, 73, D9, 8B, 1E, B6, 1, B9, 90, 1, 51, 894
1200 DATA 8B, 16, B8, 1, B9, 90, 1, 51, B9, A, 0, 8B, F3, 8B, FA, E8, 7A3
1210 DATA EA, 0, 72, 3F, E8, F5, 0, 72, 37, 8A, 4, 8A, 25, A6, 74, 28, 6A0
1220 DATA 83, 3E, EB, 1, 10, 74, 2C, 3C, A, 74, 1A, 3C, D, 74, 11, 80, 47F
1230 DATA FC, A, 74, 9, 80, FC, D, 75, 1A, 3C, 20, 74, D2, 4E, EB, CF, 745
1240 DATA 80, FC, 20, 74, CA, 4F, EB, C7, 3C, 20, 74, C3, E2, C1, EB, 2D, 929
1250 DATA 59, EB, 4, 42, 59, E2, B0, 43, 59, E2, A4, 56, 57, BE, B3, 2, 7B7
1260 DATA 8B, 3E, ED, 1, A1, A8, 1, D1, E0, 2D, 3A, 0, 3, F8, 53, 52, 6B9
1270 DATA 8A, 3E, AB, 1, E8, CC, 2, 5A, 5B, 5F, 5E, EB, 2, 59, 59, E8, 723
1280 DATA 7A, 0, 73, 4, 8B, 1E, BA, 1, E8, 81, 0, 73, 4, 8B, 16, BC, 592
1290 DATA 1, 89, 1E, D7, 1, 89, 16, D9, 1, 8A, 3E, AC, 1, BD, 2, 0, 52D
1300 DATA 8B, B6, B6, 1, 3B, B6, D7, 1, 74, D, 83, BE, CA, 1, 0, 74, 6C2
1310 DATA 6, AC, E8, 93, FD, EB, E9, 83, ED, 2, 73, E4, E8, 11, 0, BD, 97D
1320 DATA 2, 0, 8B, 86, D7, 1, 89, 86, B6, 1, 83, ED, 2, 73, F3, C3, 74C
1330 DATA F6, 6, B1, 1, 6, 74, 24, F6, 6, B1, 1, 1, 75, 1D, 80, E, 51B
1340 DATA B1, 1, 1, BD, 2, 0, 8B, 86, B6, 1, 89, 86, D3, 1, 8B, 86, 62E
1350 DATA C6, 1, 89, 86, CF, 1, 83, ED, 2, 73, EB, C3, 33, ED, 3B, B6, 84A
1360 DATA BA, 1, 72, 79, 3B, B6, BE, 1, 72, 75, EB, F, BD, 2, 0, 3B, 631
1370 DATA BE, BA, 1, 72, 68, 3B, BE, BE, 1, 72, 64, 50, 53, 51, 52, 56, 67D
1380 DATA 57, 8B, B6, B2, 1, 8B, FE, 81, EF, 0, 28, B9, 0, 14, F3, A5, 7D1
1390 DATA E8, 68, 0, 81, AE, D3, 1, 0, 28, 81, AE, D7, 1, 0, 28, 81, 62B
1400 DATA AE, B6, 1, 0, 28, 81, 86, F3, 1, 0, 28, 73, 6, 81, 86, EF, 61F
1410 DATA 1, 0, 10, E8, 2B, 0, B9, 4, 0, 81, 2D, 0, 28, 47, 47, E2, 427
1420 DATA F8, 5F, 5E, 5A, 59, 5B, 58, B, ED, 74, A, 81, EF, 0, 28, 81, 6AA
1430 DATA EA, 0, 28, EB, 8, 81, EE, 0, 28, 81, EB, 0, 28, F8, C3, F9, 7E4
1440 DATA C3, 8B, FD, D1, E7, D1, E7, 81, C7, DB, 1, C3, B8, 0, 3D, CD, A64
1450 DATA 21, 72, 7, 89, 86, FB, 1, E8, 1, 0, C3, 8B, 9E, FB, 1, 8B, 701
1460 DATA 96, B2, 1, 8B, F2, B9, 0, 28, B4, 3F, CD, 21, 72, 17, 3, D0, 6E4
1470 DATA 89, 96, BA, 1, 8B, C8, E3, C, A0, AD, 1, 3C, FF, 74, 5, 20, 73E
1480 DATA 4, 46, E2, FB, F8, C3, 6, B8, 0, 5, CD, 10, B8, 40, 0, 8E, 708
1490 DATA C0, 26, A0, 49, 0, 3C, 7, 74, A, 3C, 3, 76, 6, BA, 15, 2, 41C
1500 DATA E9, 52, FB, B4, 12, B3, 10, CD, 10, 80, FB, 10, 74, 15, 26, F6, 7CC
1510 DATA 6, 87, 0, 8, 75, D, 32, FF, B8, 30, 11, 6, CD, 10, 7, 88, 4B3
1520 DATA 16, AA, 1, 26, A0, 4A, 0, 32, E4, 8B, D0, 8B, 1E, EB, 1, 83, 65A
1530 DATA FB, 10, 75, 6, 8B, D3, 3C, 28, 74, C3, 89, 16, EB, 1, 89, 16, 6A9
1540 DATA CF, 1, 89, 16, D1, 1, A3, A8, 1, D1, E0, 8A, 16, AA, 1, F6, 77F
1550 DATA E2, A3, ED, 1, 80, EA, 4, D0, EA, 88, 16, CE, 1, 26, A1, 63, 832
1560 DATA 0, 5, 6, 0, A3, A4, 1, 3D, BA, 3, 74, 15, 81, 6, A6, 1, 404
1570 DATA 0, 8, B4, 8, CD, 10, 88, 26, AB, 1, 80, F4, 77, 88, 26, AC, 640
1580 DATA 1, 7, C3, 6, 8B, 16, A6, 1, 8E, C2, 8B, 16, A4, 1, 8A, D8, 611
1590 DATA EC, D0, D8, 72, FB, FA, EC, D0, D8, 73, FB, 8B, C3, AB, FB, 7, BF8
1600 DATA C3, E8, D8, 0, 8A, 36, AA, 1, FE, C6, 32, D2, 32, FF, B4, 2, 89D
1610 DATA CD, 10, 33, FF, BE, 9, 1, 8A, 3E, AB, 1, E8, A5, 0, 8B, 3E, 6A1
1620 DATA A8, 1, D1, E7, 83, EF, 40, 46, E8, 98, 0, BD, 0, 0, 8B, E, 72F
1630 DATA A8, 1, 57, B0, CD, E8, AB, FF, E2, FB, 5F, 83, FD, 2, 77, 2A, 96E
1640 DATA 57, 83, C7, A, B0, B5, E8, 9A, FF, 8B, B6, F7, 1, E8, 73, 0, 925
1650 DATA B0, C6, E8, 8E, FF, 5F, A1, A8, 1, D1, E0, 8A, 16, CE, 1, FE, 9B2
1660 DATA C2, F6, E2, 3, F8, 83, C5, 2, EB, C4, C3, BE, 7E, 2, 8B, 3E, 958
1670 DATA ED, 1, 8A, 3E, AB, 1, E8, 4A, 0, C3, 80, 3E, AE, 1, 1, 74, 639
1680 DATA B, C6, 6, AE, 1, 1, BA, 3, 1, E8, 94, 0, 8B, 96, 32, 2, 516
1690 DATA E8, 8D, 0, 8B, BE, F7, 1, 8B, D7, 83, EA, 2, 8B, DA, C6, 7, 8B9
1700 DATA 50, B4, A, CD, 21, 57, B0, D, AE, 75, FD, C6, 45, FF, 0, 5F, 799
1710 DATA 8B, D7, E8, 57, FE, 73, 8, BA, 6D, 2, E8, 63, 0, EB, CD, C3, 909
1720 DATA E8, 20, FF, AC, 3C, 20, 73, F8, C3, B4, 0, CD, 16, C3, B4, 1, 84C
1730 DATA CD, 16, C3, E8, F3, FF, E8, F5, FF, 75, F8, C3, 33, C9, 8B, 16, B29
1740 DATA A8, 1, FE, CA, 8A, 36, AA, 1, EB, 2A, B9, 0, 2, 8B, 16, A8, 6F5
1750 DATA 1, FE, CA, 8A, 36, CE, 1, FE, C6, E8, 18, 0, 2, 2E, CE, 1, 71B
1760 DATA FE, C5, 2, 36, CE, 1, FE, C6, EB, A, 8A, 2E, AA, 1, 32, C9, 7E1
1770 DATA 8A, F5, B2, 2C, 53, 8A, 3E, AB, 1, B8, 0, 6, CD, 10, 5B, C3, 6DD
1780 DATA B4, 9, CD, 21, C3, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2FE