home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol6n10.zip
/
MAKEBAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-23
|
20KB
|
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