Simtel MSDOS 1992 June

home *** CD-ROM | disk | FTP | other *** search

/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol6n10.arc / MAKEBAR.BAS < prev next >

Wrap

BASIC Source File | 1987-03-23 | 19.1 KB | 280 lines

100 REM -- BASIC PROGRAM TO CREATE MAKEBAR.COM 110 OPEN "MAKEBAR.COM" AS #1 LEN = 1 120 FIELD #1,1 AS A$ 130 CHECKSUM = 0 140 FOR I = 1 TO 260 150 LINESUM = 0 160 FOR J = 1 TO 8 170 READ BYTE 180 CHECKSUM = CHECKSUM + BYTE 190 LINESUM = LINESUM + BYTE 200 IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE) 210 PUT #1 220 NEXT J 230 READ LINECHECK 240 IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I 250 NEXT I 260 CLOSE 270 IF CHECKSUM = 206640 THEN PRINT "Successful Completion!" : END 280 PRINT "COM file is not valid!" : END 290 DATA 233, 90, 2, 77, 65, 75, 69, 66, 677 300 DATA 65, 82, 32, 49, 46, 48, 32, 40, 394 310 DATA 99, 41, 32, 49, 57, 56, 55, 44, 433 320 DATA 32, 90, 105, 102, 102, 45, 68, 97, 641 330 DATA 118, 105, 115, 32, 80, 117, 98, 108, 773 340 DATA 105, 115, 104, 105, 110, 103, 32, 67, 741 350 DATA 111, 114, 112, 13, 10, 36, 26, 82, 504 360 DATA 111, 98, 101, 114, 116, 32, 76, 46, 694 370 DATA 32, 72, 117, 109, 109, 101, 108, 0, 648 380 DATA 0, 0, 0, 255, 255, 0, 0, 0, 510 390 DATA 0, 0, 0, 0, 255, 0, 65, 83, 403 400 DATA 75, 0, 67, 82, 0, 69, 88, 69, 450 410 DATA 67, 85, 84, 69, 0, 73, 78, 80, 536 420 DATA 85, 84, 0, 77, 69, 78, 85, 0, 478 430 DATA 79, 80, 84, 73, 79, 78, 0, 80, 553 440 DATA 82, 79, 71, 82, 65, 77, 0, 84, 540 450 DATA 89, 80, 69, 0, 77, 69, 78, 68, 530 460 DATA 0, 69, 78, 68, 0, 0, 83, 0, 298 470 DATA 67, 0, 65, 0, 70, 49, 0, 70, 321 480 DATA 50, 0, 70, 51, 0, 70, 52, 0, 293 490 DATA 70, 53, 0, 70, 54, 0, 70, 55, 372 500 DATA 0, 70, 56, 0, 70, 57, 0, 70, 323 510 DATA 49, 48, 0, 69, 83, 67, 0, 84, 400 520 DATA 65, 66, 0, 69, 78, 84, 69, 82, 513 530 DATA 0, 66, 83, 0, 72, 79, 77, 69, 446 540 DATA 0, 80, 71, 85, 80, 0, 69, 78, 463 550 DATA 68, 0, 80, 71, 68, 78, 0, 73, 438 560 DATA 78, 83, 0, 68, 69, 76, 0, 85, 459 570 DATA 0, 68, 0, 76, 0, 82, 0, 0, 226 580 DATA 65, 66, 67, 68, 69, 70, 71, 72, 548 590 DATA 73, 74, 75, 76, 77, 78, 79, 80, 612 600 DATA 81, 82, 83, 84, 85, 86, 87, 88, 676 610 DATA 89, 90, 49, 50, 51, 52, 53, 54, 488 620 DATA 55, 56, 57, 48, 45, 61, 92, 91, 505 630 DATA 93, 0, 59, 0, 3, 254, 34, 0, 443 640 DATA 0, 0, 0, 0, 30, 0, 0, 0, 30 650 DATA 0, 0, 0, 0, 0, 0, 31, 0, 31 660 DATA 0, 0, 28, 0, 27, 0, 29, 0, 84 670 DATA 30, 48, 46, 32, 18, 33, 34, 35, 276 680 DATA 23, 36, 37, 38, 50, 49, 24, 25, 282 690 DATA 16, 19, 31, 20, 22, 47, 17, 45, 217 700 DATA 21, 44, 13, 254, 8, 127, 71, 119, 657 710 DATA 73, 132, 79, 117, 81, 118, 82, 0, 682 720 DATA 83, 0, 72, 0, 80, 0, 75, 115, 425 730 DATA 77, 116, 0, 0, 0, 85, 115, 97, 490 740 DATA 103, 101, 58, 32, 77, 65, 75, 69, 580 750 DATA 66, 65, 82, 32, 91, 112, 97, 116, 661 760 DATA 104, 93, 105, 110, 112, 117, 116, 95, 852 770 DATA 102, 105, 108, 101, 32, 91, 112, 97, 748 780 DATA 116, 104, 93, 111, 117, 116, 112, 117, 886 790 DATA 116, 95, 102, 105, 108, 101, 36, 67, 730 800 DATA 97, 110, 39, 116, 32, 79, 112, 101, 686 810 DATA 110, 32, 70, 105, 108, 101, 36, 69, 631 820 DATA 114, 114, 111, 114, 32, 82, 101, 97, 765 830 DATA 100, 105, 110, 103, 32, 70, 105, 108, 733 840 DATA 101, 36, 68, 117, 112, 108, 105, 99, 746 850 DATA 97, 116, 101, 32, 67, 109, 100, 36, 658 860 DATA 67, 109, 100, 32, 79, 117, 116, 32, 652 870 DATA 79, 102, 32, 79, 114, 100, 101, 114, 721 880 DATA 36, 85, 110, 107, 110, 111, 119, 110, 788 890 DATA 32, 67, 109, 100, 36, 77, 69, 78, 568 900 DATA 85, 32, 87, 105, 116, 104, 111, 117, 757 910 DATA 116, 32, 77, 69, 78, 68, 36, 83, 559 920 DATA 121, 110, 116, 97, 120, 32, 69, 114, 779 930 DATA 114, 111, 114, 36, 77, 105, 115, 115, 787 940 DATA 105, 110, 103, 32, 78, 97, 109, 101, 735 950 DATA 36, 66, 97, 100, 32, 77, 69, 78, 555 960 DATA 85, 32, 82, 101, 102, 101, 114, 101, 718 970 DATA 110, 99, 101, 36, 77, 105, 115, 115, 758 980 DATA 105, 110, 103, 32, 69, 78, 68, 36, 601 990 DATA 68, 101, 97, 100, 45, 75, 101, 121, 708 1000 DATA 32, 111, 114, 32, 66, 97, 100, 32, 584 1010 DATA 75, 101, 121, 36, 13, 10, 69, 114, 539 1020 DATA 114, 111, 114, 32, 65, 116, 32, 76, 660 1030 DATA 105, 110, 101, 32, 35, 32, 32, 32, 479 1040 DATA 32, 32, 32, 32, 36, 180, 9, 186, 539 1050 DATA 3, 1, 205, 33, 252, 232, 11, 0, 737 1060 DATA 232, 111, 0, 232, 91, 0, 184, 0, 850 1070 DATA 76, 205, 33, 190, 129, 0, 232, 17, 882 1080 DATA 0, 163, 71, 1, 232, 11, 0, 163, 641 1090 DATA 77, 1, 199, 6, 75, 1, 0, 0, 359 1100 DATA 195, 0, 232, 111, 2, 60, 13, 117, 730 1110 DATA 6, 186, 101, 2, 233, 28, 2, 86, 644 1120 DATA 232, 78, 2, 139, 206, 94, 43, 206, 1000 1130 DATA 11, 201, 116, 237, 191, 31, 9, 243, 1039 1140 DATA 164, 50, 192, 170, 184, 0, 61, 128, 949 1150 DATA 62, 137, 3, 0, 116, 2, 254, 204, 778 1160 DATA 186, 31, 9, 205, 33, 115, 5, 186, 770 1170 DATA 151, 2, 235, 208, 254, 6, 137, 3, 996 1180 DATA 195, 180, 62, 139, 30, 71, 1, 205, 883 1190 DATA 33, 180, 62, 139, 30, 77, 1, 205, 727 1200 DATA 33, 195, 51, 192, 162, 100, 2, 162, 897 1210 DATA 98, 2, 163, 82, 1, 191, 79, 220, 836 1220 DATA 185, 160, 15, 243, 170, 232, 135, 4, 1144 1230 DATA 191, 255, 24, 232, 6, 2, 60, 13, 783 1240 DATA 117, 5, 232, 55, 2, 235, 244, 232, 1122 1250 DATA 189, 4, 86, 190, 86, 1, 232, 115, 903 1260 DATA 1, 94, 60, 255, 117, 5, 186, 217, 935 1270 DATA 2, 235, 75, 128, 62, 100, 2, 0, 604 1280 DATA 156, 60, 6, 116, 6, 157, 117, 32, 650 1290 DATA 233, 148, 0, 157, 116, 5, 186, 186, 1031 1300 DATA 2, 235, 51, 139, 223, 176, 32, 185, 1043 1310 DATA 10, 0, 243, 170, 232, 166, 1, 232, 1054 1320 DATA 189, 2, 254, 6, 100, 2, 235, 179, 967 1330 DATA 60, 9, 117, 45, 160, 98, 2, 10, 501 1340 DATA 6, 99, 2, 116, 5, 186, 229, 2, 645 1350 DATA 235, 12, 160, 84, 1, 10, 6, 85, 593 1360 DATA 1, 116, 6, 186, 17, 3, 233, 82, 644 1370 DATA 1, 186, 255, 24, 139, 207, 43, 202, 1057 1380 DATA 180, 64, 139, 30, 77, 1, 205, 33, 729 1390 DATA 195, 60, 4, 117, 46, 128, 62, 98, 710 1400 DATA 2, 0, 117, 209, 187, 175, 204, 137, 1031 1410 DATA 62, 79, 1, 51, 192, 171, 254, 6, 816 1420 DATA 98, 2, 232, 80, 1, 60, 13, 116, 602 1430 DATA 69, 232, 43, 4, 161, 79, 1, 45, 634 1440 DATA 255, 24, 232, 166, 1, 232, 148, 1, 1059 1450 DATA 233, 80, 255, 128, 62, 98, 2, 0, 858 1460 DATA 116, 13, 128, 62, 99, 2, 0, 156, 576 1470 DATA 60, 5, 116, 8, 157, 117, 79, 186, 728 1480 DATA 200, 2, 235, 162, 157, 116, 5, 176, 1053 1490 DATA 10, 232, 87, 4, 254, 6, 99, 2, 694 1500 DATA 139, 46, 79, 1, 255, 70, 0, 232, 822 1510 DATA 11, 1, 60, 13, 117, 5, 186, 4, 397 1520 DATA 3, 235, 131, 232, 225, 3, 139, 195, 1163 1530 DATA 45, 175, 204, 171, 86, 190, 31, 9, 911 1540 DATA 172, 232, 47, 4, 10, 192, 117, 248, 1022 1550 DATA 94, 232, 233, 0, 139, 195, 45, 175, 1113 1560 DATA 204, 171, 232, 250, 1, 139, 195, 45, 1237 1570 DATA 175, 204, 171, 233, 237, 254, 60, 8, 1342 1580 DATA 117, 65, 176, 10, 232, 12, 4, 86, 702 1590 DATA 139, 54, 79, 1, 173, 139, 200, 209, 994 1600 DATA 225, 3, 200, 227, 23, 81, 139, 193, 1091 1610 DATA 64, 209, 224, 139, 14, 79, 1, 129, 859 1620 DATA 233, 255, 24, 3, 193, 89, 1, 4, 802 1630 DATA 70, 70, 226, 250, 139, 203, 190, 175, 1323 1640 DATA 204, 43, 206, 243, 164, 94, 198, 6, 1158 1650 DATA 98, 2, 0, 198, 6, 99, 2, 0, 405 1660 DATA 233, 168, 254, 232, 205, 3, 60, 2, 1157 1670 DATA 117, 22, 232, 136, 0, 60, 13, 117, 697 1680 DATA 3, 233, 122, 255, 232, 96, 3, 184, 1128 1690 DATA 255, 255, 232, 222, 0, 233, 139, 254, 1590 1700 DATA 60, 0, 116, 7, 60, 7, 116, 3, 369 1710 DATA 233, 128, 254, 232, 103, 0, 232, 126, 1308 1720 DATA 1, 233, 119, 254, 87, 81, 82, 50, 907 1730 DATA 201, 128, 60, 0, 117, 8, 177, 255, 946 1740 DATA 138, 193, 90, 89, 95, 195, 139, 248, 1187 1750 DATA 232, 6, 0, 115, 243, 254, 193, 235, 1278 1760 DATA 232, 138, 21, 71, 138, 52, 70, 58, 780 1770 DATA 242, 116, 10, 78, 138, 52, 70, 10, 716 1780 DATA 246, 117, 249, 249, 195, 11, 210, 117, 1394 1790 DATA 232, 248, 195, 180, 9, 205, 33, 191, 1293 1800 DATA 91, 3, 161, 82, 1, 187, 10, 0, 535 1810 DATA 51, 210, 247, 243, 128, 194, 48, 136, 1257 1820 DATA 21, 79, 11, 192, 117, 242, 186, 68, 916 1830 DATA 3, 180, 9, 205, 33, 232, 241, 253, 1156 1840 DATA 184, 255, 76, 205, 33, 232, 52, 0, 1037 1850 DATA 115, 3, 232, 4, 0, 232, 20, 0, 606 1860 DATA 195, 138, 4, 60, 13, 116, 12, 232, 770 1870 DATA 237, 2, 60, 13, 116, 5, 232, 27, 692 1880 DATA 0, 114, 244, 195, 138, 4, 60, 13, 768 1890 DATA 116, 12, 232, 218, 2, 60, 13, 116, 769 1900 DATA 5, 232, 8, 0, 115, 244, 195, 32, 831 1910 DATA 44, 58, 10, 9, 80, 81, 87, 138, 507 1920 DATA 4, 185, 5, 0, 191, 15, 6, 242, 648 1930 DATA 174, 248, 116, 1, 249, 95, 89, 88, 1060 1940 DATA 195, 60, 97, 114, 6, 60, 122, 119, 773 1950 DATA 2, 44, 32, 195, 138, 4, 60, 13, 488 1960 DATA 116, 5, 232, 162, 2, 235, 247, 232, 1231 1970 DATA 157, 2, 195, 86, 87, 82, 81, 61, 751 1980 DATA 255, 255, 116, 84, 232, 141, 0, 115, 1198 1990 DATA 27, 254, 6, 84, 1, 185, 255, 255, 1067 2000 DATA 191, 31, 9, 138, 21, 71, 136, 20, 617 2010 DATA 70, 10, 210, 117, 246, 137, 4, 137, 931 2020 DATA 76, 2, 235, 107, 254, 6, 85, 1, 766 2030 DATA 139, 84, 2, 131, 250, 255, 116, 5, 982 2040 DATA 131, 250, 254, 117, 6, 186, 17, 3, 964 2050 DATA 233, 48, 255, 139, 60, 129, 199, 255, 1318 2060 DATA 24, 139, 13, 209, 225, 3, 249, 65, 927 2070 DATA 209, 225, 3, 249, 3, 124, 2, 137, 952 2080 DATA 5, 199, 68, 2, 254, 255, 235, 55, 1073 2090 DATA 232, 57, 0, 114, 29, 254, 14, 84, 784 2100 DATA 1, 139, 84, 2, 131, 250, 255, 117, 979 2110 DATA 204, 139, 4, 232, 101, 2, 138, 196, 1016 2120 DATA 232, 96, 2, 199, 68, 2, 254, 255, 1108 2130 DATA 235, 21, 254, 14, 85, 1, 161, 79, 850 2140 DATA 1, 45, 255, 24, 139, 203, 129, 233, 1029 2150 DATA 175, 204, 131, 195, 2, 235, 129, 89, 1160 2160 DATA 90, 95, 94, 195, 87, 82, 190, 79, 912 2170 DATA 220, 128, 60, 0, 117, 4, 249, 90, 868 2180 DATA 95, 195, 191, 31, 9, 232, 169, 254, 1176 2190 DATA 115, 245, 131, 198, 4, 235, 234, 128, 1290 2200 DATA 60, 34, 117, 13, 87, 198, 6, 81, 596 2210 DATA 1, 0, 232, 218, 1, 60, 13, 117, 642 2220 DATA 3, 233, 157, 0, 60, 34, 117, 10, 614 2230 DATA 50, 192, 232, 6, 2, 232, 28, 255, 997 2240 DATA 95, 195, 60, 123, 116, 123, 128, 62, 902 2250 DATA 81, 1, 0, 117, 18, 50, 228, 10, 505 2260 DATA 228, 116, 7, 134, 224, 232, 235, 1, 1177 2270 DATA 134, 224, 232, 230, 1, 235, 198, 128, 1382 2280 DATA 62, 81, 1, 1, 117, 6, 186, 48, 502 2290 DATA 3, 233, 111, 254, 232, 226, 254, 138, 1451 2300 DATA 224, 191, 232, 1, 139, 207, 138, 5, 1137 2310 DATA 71, 10, 192, 116, 233, 58, 196, 117, 993 2320 DATA 245, 79, 139, 199, 43, 193, 60, 25, 983 2330 DATA 118, 33, 44, 26, 128, 62, 81, 1, 493 2340 DATA 2, 116, 9, 60, 11, 119, 207, 5, 529 2350 DATA 120, 254, 235, 179, 208, 224, 191, 18, 1429 2360 DATA 2, 3, 248, 139, 5, 11, 192, 116, 716 2370 DATA 189, 235, 164, 128, 62, 81, 1, 4, 864 2380 DATA 116, 4, 254, 192, 235, 153, 191, 48, 1193 2390 DATA 2, 3, 248, 138, 5, 180, 254, 235, 1065 2400 DATA 142, 191, 31, 9, 232, 64, 1, 60, 730 2410 DATA 123, 117, 12, 129, 255, 31, 9, 116, 792 2420 DATA 137, 186, 247, 2, 233, 4, 254, 60, 1123 2430 DATA 34, 116, 246, 60, 125, 116, 6, 232, 935 2440 DATA 111, 254, 170, 235, 223, 50, 192, 170, 1405 2450 DATA 86, 190, 142, 1, 184, 31, 9, 232, 875 2460 DATA 178, 253, 94, 60, 255, 116, 218, 10, 1184 2470 DATA 192, 117, 8, 198, 6, 81, 1, 1, 604 2480 DATA 233, 39, 255, 254, 200, 117, 8, 198, 1304 2490 DATA 6, 81, 1, 2, 233, 27, 255, 254, 859 2500 DATA 200, 117, 8, 198, 6, 81, 1, 4, 615 2510 DATA 233, 15, 255, 254, 200, 60, 9, 119, 1145 2520 DATA 32, 4, 59, 138, 38, 81, 1, 128, 481 2530 DATA 252, 1, 117, 2, 4, 25, 128, 252, 781 2540 DATA 2, 117, 2, 4, 35, 128, 252, 4, 544 2550 DATA 117, 2, 4, 45, 180, 254, 233, 14, 849 2560 DATA 255, 128, 62, 81, 1, 4, 117, 3, 651 2570 DATA 233, 27, 255, 44, 10, 117, 5, 176, 867 2580 DATA 27, 233, 6, 255, 254, 200, 117, 25, 1117 2590 DATA 128, 62, 81, 1, 0, 116, 13, 128, 529 2600 DATA 62, 81, 1, 1, 117, 226, 184, 15, 687 2610 DATA 254, 233, 227, 254, 176, 9, 233, 233, 1619 2620 DATA 254, 254, 200, 50, 228, 191, 74, 2, 1253 2630 DATA 209, 224, 3, 248, 138, 54, 81, 1, 958 2640 DATA 128, 254, 2, 117, 1, 71, 138, 21, 732 2650 DATA 10, 210, 116, 188, 134, 194, 128, 250, 1230 2660 DATA 2, 116, 219, 119, 5, 128, 254, 2, 845 2670 DATA 117, 212, 180, 254, 233, 176, 254, 83, 1509 2680 DATA 81, 82, 180, 66, 50, 192, 139, 30, 820 2690 DATA 71, 1, 51, 201, 139, 22, 73, 1, 559 2700 DATA 205, 33, 114, 30, 180, 63, 139, 30, 794 2710 DATA 71, 1, 185, 160, 15, 190, 95, 9, 726 2720 DATA 139, 214, 131, 62, 73, 1, 0, 117, 737 2730 DATA 5, 198, 4, 32, 73, 66, 205, 33, 616 2740 DATA 115, 6, 186, 167, 2, 233, 3, 253, 965 2750 DATA 1, 6, 73, 1, 43, 214, 3, 194, 535 2760 DATA 163, 75, 1, 90, 89, 91, 195, 87, 791 2770 DATA 191, 31, 9, 87, 232, 77, 253, 115, 995 2780 DATA 15, 138, 4, 60, 13, 116, 9, 232, 587 2790 DATA 87, 253, 170, 232, 9, 0, 235, 236, 1222 2800 DATA 50, 192, 170, 88, 95, 195, 0, 80, 870 2810 DATA 70, 139, 198, 45, 95, 9, 59, 6, 621 2820 DATA 75, 1, 88, 114, 13, 232, 135, 255, 913 2830 DATA 11, 192, 117, 6, 186, 36, 3, 233, 784 2840 DATA 185, 252, 138, 4, 60, 13, 117, 17, 786 2850 DATA 198, 6, 222, 8, 0, 255, 6, 82, 777 2860 DATA 1, 128, 62, 222, 8, 0, 117, 207, 745 2870 DATA 195, 60, 59, 117, 244, 254, 6, 222, 1157 2880 DATA 8, 235, 196, 136, 7, 67, 195, 0, 844