home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 December
/
simtel1292_SIMTEL_1292_Walnut_Creek.iso
/
msdos
/
pcmag
/
vol6n18.arc
/
SNIPPER.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-09-17
|
16KB
|
227 lines
100 REM -- BASIC PROGRAM TO CREATE snipper.COM
110 OPEN "snipper.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 206
150 LINESUM = 0
155 PRINT ".";
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 = 170031 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 112, 5, 83, 78, 73, 80, 80, 744
300 DATA 69, 82, 32, 49, 46, 48, 32, 40, 398
310 DATA 99, 41, 32, 49, 57, 56, 55, 32, 421
320 DATA 90, 105, 102, 102, 32, 67, 111, 109, 718
330 DATA 109, 117, 110, 105, 99, 97, 116, 105, 858
340 DATA 111, 110, 115, 32, 67, 111, 46, 13, 605
350 DATA 10, 72, 111, 116, 107, 101, 121, 32, 670
360 DATA 105, 115, 32, 65, 76, 84, 45, 87, 609
370 DATA 13, 10, 36, 26, 84, 111, 109, 32, 421
380 DATA 75, 105, 104, 108, 107, 101, 110, 65, 775
390 DATA 108, 114, 101, 97, 100, 121, 32, 73, 746
400 DATA 110, 115, 116, 97, 108, 108, 101, 100, 855
410 DATA 13, 10, 36, 82, 101, 113, 117, 105, 577
420 DATA 114, 101, 115, 32, 68, 79, 83, 32, 624
430 DATA 50, 46, 48, 43, 13, 10, 36, 0, 246
440 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
450 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
460 DATA 69, 110, 116, 101, 114, 32, 70, 105, 717
470 DATA 108, 101, 110, 97, 109, 101, 58, 32, 716
480 DATA 83, 67, 82, 69, 69, 78, 46, 67, 561
490 DATA 85, 84, 0, 0, 0, 0, 0, 0, 169
500 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
510 DATA 0, 115, 6, 115, 6, 117, 14, 0, 373
520 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
530 DATA 0, 201, 205, 205, 205, 205, 205, 205, 1431
540 DATA 205, 205, 205, 205, 187, 186, 32, 70, 1295
550 DATA 32, 45, 32, 70, 105, 108, 101, 32, 525
560 DATA 186, 186, 32, 80, 32, 45, 32, 80, 673
570 DATA 114, 105, 110, 116, 186, 186, 32, 83, 932
580 DATA 32, 45, 32, 83, 97, 118, 101, 32, 540
590 DATA 186, 186, 32, 71, 32, 45, 32, 71, 655
600 DATA 101, 116, 32, 32, 186, 186, 69, 115, 837
610 DATA 99, 45, 32, 81, 117, 105, 116, 32, 627
620 DATA 186, 200, 205, 205, 205, 205, 205, 205, 1616
630 DATA 205, 205, 205, 205, 188, 51, 219, 139, 1417
640 DATA 22, 183, 1, 2, 247, 2, 211, 128, 796
650 DATA 250, 0, 125, 7, 38, 138, 22, 74, 654
660 DATA 0, 254, 202, 38, 58, 22, 74, 0, 648
670 DATA 114, 2, 50, 210, 128, 254, 0, 125, 883
680 DATA 5, 38, 138, 54, 132, 0, 38, 58, 463
690 DATA 54, 132, 0, 126, 2, 50, 246, 137, 747
700 DATA 22, 183, 1, 232, 72, 1, 50, 228, 789
710 DATA 205, 22, 80, 232, 64, 1, 88, 128, 820
720 DATA 252, 1, 117, 1, 195, 187, 0, 255, 1008
730 DATA 128, 252, 72, 116, 178, 187, 0, 1, 934
740 DATA 128, 252, 80, 116, 170, 187, 1, 0, 934
750 DATA 128, 252, 77, 116, 162, 187, 255, 0, 1177
760 DATA 128, 252, 75, 116, 154, 51, 219, 60, 1055
770 DATA 13, 117, 13, 139, 22, 183, 1, 137, 625
780 DATA 22, 185, 1, 232, 8, 1, 235, 13, 697
790 DATA 128, 252, 34, 116, 2, 235, 128, 198, 1093
800 DATA 6, 189, 1, 1, 195, 50, 228, 205, 875
810 DATA 22, 139, 22, 185, 1, 128, 252, 72, 821
820 DATA 116, 60, 128, 252, 80, 116, 71, 128, 951
830 DATA 252, 77, 116, 24, 128, 252, 75, 116, 1040
840 DATA 3, 235, 85, 144, 254, 202, 58, 22, 1003
850 DATA 183, 1, 124, 217, 136, 22, 185, 1, 869
860 DATA 254, 194, 235, 13, 254, 194, 38, 58, 1240
870 DATA 22, 74, 0, 115, 200, 136, 22, 185, 754
880 DATA 1, 232, 186, 0, 254, 206, 58, 54, 991
890 DATA 184, 1, 125, 245, 235, 183, 254, 206, 1433
900 DATA 58, 54, 184, 1, 124, 175, 136, 54, 786
910 DATA 186, 1, 254, 198, 235, 13, 254, 198, 1339
920 DATA 38, 58, 54, 132, 0, 127, 158, 136, 703
930 DATA 54, 186, 1, 232, 144, 0, 254, 202, 1073
940 DATA 58, 22, 183, 1, 125, 245, 235, 141, 1010
950 DATA 128, 252, 25, 117, 9, 199, 6, 187, 923
960 DATA 1, 5, 4, 233, 141, 0, 199, 6, 589
970 DATA 177, 1, 115, 6, 199, 6, 179, 1, 684
980 DATA 115, 6, 199, 6, 187, 1, 24, 4, 542
990 DATA 128, 252, 31, 117, 9, 199, 6, 187, 929
1000 DATA 1, 24, 4, 235, 110, 144, 128, 252, 898
1010 DATA 34, 117, 8, 198, 6, 189, 1, 1, 554
1020 DATA 235, 97, 144, 128, 252, 33, 117, 34, 1040
1030 DATA 198, 6, 190, 1, 0, 232, 11, 1, 639
1040 DATA 128, 62, 190, 1, 255, 116, 31, 232, 1015
1050 DATA 73, 0, 198, 6, 190, 1, 1, 246, 715
1060 DATA 6, 191, 1, 3, 117, 3, 232, 135, 688
1070 DATA 1, 195, 128, 252, 1, 116, 7, 60, 760
1080 DATA 13, 116, 12, 233, 31, 255, 199, 6, 865
1090 DATA 187, 1, 113, 3, 235, 37, 144, 232, 952
1100 DATA 180, 0, 50, 228, 205, 22, 80, 232, 997
1110 DATA 172, 0, 88, 233, 11, 255, 232, 92, 1083
1120 DATA 0, 138, 220, 128, 227, 136, 128, 228, 1205
1130 DATA 119, 177, 4, 210, 204, 10, 220, 232, 1176
1140 DATA 52, 0, 195, 139, 22, 183, 1, 232, 824
1150 DATA 228, 255, 232, 64, 0, 255, 22, 187, 1243
1160 DATA 1, 254, 194, 58, 22, 185, 1, 126, 841
1170 DATA 238, 232, 13, 0, 254, 198, 138, 22, 1095
1180 DATA 183, 1, 58, 54, 186, 1, 126, 223, 832
1190 DATA 195, 176, 13, 255, 22, 187, 1, 176, 1025
1200 DATA 10, 255, 22, 187, 1, 195, 83, 232, 985
1210 DATA 78, 0, 38, 137, 23, 91, 38, 138, 543
1220 DATA 62, 98, 0, 81, 185, 1, 0, 180, 607
1230 DATA 9, 205, 16, 89, 195, 232, 56, 0, 802
1240 DATA 38, 137, 23, 38, 138, 62, 98, 0, 534
1250 DATA 180, 8, 205, 16, 195, 82, 50, 228, 964
1260 DATA 51, 210, 205, 23, 208, 204, 115, 6, 1022
1270 DATA 199, 6, 187, 1, 113, 3, 90, 195, 794
1280 DATA 139, 30, 179, 1, 136, 7, 67, 137, 696
1290 DATA 30, 179, 1, 59, 30, 181, 1, 117, 598
1300 DATA 6, 199, 6, 187, 1, 113, 3, 195, 710
1310 DATA 38, 138, 30, 98, 0, 50, 255, 209, 818
1320 DATA 227, 129, 195, 80, 0, 195, 51, 210, 1087
1330 DATA 141, 54, 193, 1, 128, 250, 12, 124, 903
1340 DATA 10, 50, 210, 254, 198, 128, 254, 7, 1111
1350 DATA 124, 1, 195, 232, 159, 255, 46, 134, 1146
1360 DATA 4, 138, 220, 232, 128, 255, 254, 194, 1425
1370 DATA 70, 235, 225, 141, 54, 136, 1, 51, 913
1380 DATA 255, 51, 210, 185, 40, 0, 81, 232, 1054
1390 DATA 131, 255, 46, 137, 5, 71, 71, 46, 762
1400 DATA 138, 4, 70, 179, 71, 232, 94, 255, 1043
1410 DATA 254, 194, 89, 226, 233, 78, 254, 202, 1530
1420 DATA 128, 60, 0, 116, 248, 254, 194, 176, 1176
1430 DATA 219, 179, 199, 232, 72, 255, 50, 228, 1434
1440 DATA 205, 22, 60, 13, 116, 52, 60, 8, 536
1450 DATA 116, 27, 128, 252, 1, 116, 38, 60, 738
1460 DATA 46, 124, 228, 60, 122, 127, 224, 128, 1059
1470 DATA 250, 39, 125, 219, 179, 71, 232, 37, 1152
1480 DATA 255, 254, 194, 235, 210, 128, 250, 16, 1542
1490 DATA 126, 205, 176, 0, 179, 71, 232, 21, 1010
1500 DATA 255, 254, 202, 235, 194, 198, 6, 190, 1534
1510 DATA 1, 255, 50, 192, 232, 7, 255, 141, 1133
1520 DATA 62, 136, 1, 51, 246, 51, 210, 185, 942
1530 DATA 40, 0, 232, 16, 255, 46, 136, 5, 730
1540 DATA 71, 46, 139, 4, 138, 220, 70, 70, 758
1550 DATA 232, 235, 254, 254, 194, 226, 235, 195, 1825
1560 DATA 46, 198, 6, 190, 1, 0, 80, 83, 604
1570 DATA 81, 82, 30, 6, 14, 31, 184, 36, 464
1580 DATA 53, 205, 33, 83, 6, 186, 106, 6, 678
1590 DATA 184, 36, 37, 205, 33, 186, 152, 1, 834
1600 DATA 184, 2, 61, 205, 33, 114, 22, 139, 760
1610 DATA 216, 51, 201, 51, 210, 184, 2, 66, 981
1620 DATA 205, 33, 115, 27, 128, 62, 135, 1, 706
1630 DATA 0, 117, 37, 235, 31, 128, 62, 135, 745
1640 DATA 1, 0, 117, 28, 185, 32, 0, 180, 543
1650 DATA 60, 205, 33, 114, 231, 139, 216, 186, 1184
1660 DATA 115, 6, 139, 14, 179, 1, 43, 202, 699
1670 DATA 180, 64, 205, 33, 180, 62, 205, 33, 962
1680 DATA 31, 90, 184, 36, 37, 205, 33, 7, 623
1690 DATA 31, 90, 89, 91, 88, 195, 251, 80, 915
1700 DATA 228, 96, 60, 17, 116, 6, 88, 46, 657
1710 DATA 255, 46, 119, 1, 180, 2, 205, 22, 830
1720 DATA 36, 15, 60, 8, 117, 240, 46, 246, 768
1730 DATA 6, 191, 1, 4, 117, 232, 46, 128, 725
1740 DATA 14, 191, 1, 4, 156, 46, 255, 30, 697
1750 DATA 119, 1, 83, 81, 82, 85, 86, 87, 624
1760 DATA 30, 6, 14, 31, 184, 64, 0, 142, 471
1770 DATA 192, 232, 140, 254, 38, 255, 55, 232, 1398
1780 DATA 107, 252, 232, 131, 254, 38, 143, 7, 1164
1790 DATA 128, 38, 191, 1, 251, 7, 31, 95, 742
1800 DATA 94, 93, 90, 89, 91, 88, 207, 46, 798
1810 DATA 128, 14, 191, 1, 2, 156, 46, 255, 793
1820 DATA 30, 123, 1, 156, 46, 128, 38, 191, 713
1830 DATA 1, 253, 157, 251, 202, 2, 0, 83, 949
1840 DATA 46, 128, 62, 189, 1, 1, 116, 36, 579
1850 DATA 46, 128, 62, 190, 1, 1, 116, 6, 550
1860 DATA 91, 46, 255, 46, 127, 1, 46, 128, 740
1870 DATA 62, 192, 1, 10, 116, 8, 46, 128, 563
1880 DATA 62, 192, 1, 8, 117, 234, 251, 232, 1097
1890 DATA 246, 254, 235, 228, 251, 46, 139, 30, 1429
1900 DATA 177, 1, 46, 59, 30, 179, 1, 124, 617
1910 DATA 6, 46, 198, 6, 189, 1, 0, 46, 492
1920 DATA 138, 7, 60, 10, 117, 7, 46, 255, 640
1930 DATA 6, 177, 1, 235, 223, 128, 252, 1, 1023
1940 DATA 116, 11, 128, 252, 0, 117, 185, 67, 876
1950 DATA 46, 137, 30, 177, 1, 128, 203, 1, 723
1960 DATA 91, 202, 2, 0, 251, 10, 228, 117, 901
1970 DATA 2, 180, 76, 46, 128, 14, 191, 1, 638
1980 DATA 1, 46, 136, 38, 192, 1, 156, 46, 616
1990 DATA 255, 30, 131, 1, 156, 46, 128, 38, 785
2000 DATA 191, 1, 254, 46, 128, 62, 190, 1, 873
2010 DATA 1, 117, 3, 232, 146, 254, 157, 202, 1112
2020 DATA 2, 0, 251, 46, 254, 6, 135, 1, 695
2030 DATA 50, 192, 207, 141, 22, 3, 1, 180, 796
2040 DATA 9, 205, 33, 246, 22, 0, 1, 51, 567
2050 DATA 219, 140, 200, 67, 59, 195, 142, 195, 1217
2060 DATA 116, 21, 141, 54, 0, 1, 139, 254, 726
2070 DATA 185, 16, 0, 243, 166, 11, 201, 117, 939
2080 DATA 234, 141, 22, 79, 1, 235, 12, 180, 904
2090 DATA 48, 205, 33, 60, 2, 115, 9, 141, 613
2100 DATA 22, 99, 1, 180, 9, 205, 33, 195, 744
2110 DATA 70, 190, 129, 0, 232, 146, 0, 80, 847
2120 DATA 232, 142, 0, 5, 2, 0, 91, 247, 719
2130 DATA 227, 11, 192, 116, 14, 61, 16, 39, 676
2140 DATA 126, 3, 184, 16, 39, 5, 115, 6, 494
2150 DATA 163, 181, 1, 184, 64, 0, 142, 192, 927
2160 DATA 38, 128, 62, 132, 0, 0, 117, 6, 483
2170 DATA 38, 198, 6, 132, 0, 24, 184, 9, 591
2180 DATA 53, 205, 33, 137, 30, 119, 1, 140, 718
2190 DATA 6, 121, 1, 186, 102, 5, 184, 9, 614
2200 DATA 37, 205, 33, 184, 19, 53, 205, 33, 769
2210 DATA 137, 30, 123, 1, 140, 6, 125, 1, 563
2220 DATA 186, 191, 5, 184, 19, 37, 205, 33, 860
2230 DATA 184, 22, 53, 205, 33, 137, 30, 127, 791
2240 DATA 1, 140, 6, 129, 1, 186, 215, 5, 683
2250 DATA 184, 22, 37, 205, 33, 184, 33, 53, 751
2260 DATA 205, 33, 137, 30, 131, 1, 140, 6, 683
2270 DATA 133, 1, 186, 60, 6, 184, 33, 37, 640
2280 DATA 205, 33, 161, 44, 0, 142, 192, 180, 957
2290 DATA 73, 205, 33, 139, 22, 181, 1, 205, 859
2300 DATA 39, 51, 192, 138, 28, 128, 251, 13, 840
2310 DATA 116, 24, 70, 128, 251, 44, 116, 18, 767
2320 DATA 128, 235, 48, 114, 238, 128, 251, 9, 1151
2330 DATA 119, 233, 183, 10, 246, 231, 2, 195, 1219
2340 DATA 235, 225, 195, 0, 0, 0, 0, 0, 655