Category : Files from Magazines
Archive   : VOL7N5.ZIP
Filename : ASPRN.BAS
110 OPEN "asprn.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 290
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 = 236727 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 61, 1, 126, 65, 83, 80, 82, 731
300 DATA 78, 32, 49, 46, 48, 32, 40, 99, 424
310 DATA 41, 32, 49, 57, 56, 56, 32, 90, 413
320 DATA 105, 102, 102, 32, 67, 111, 109, 109, 737
330 DATA 117, 110, 105, 99, 97, 116, 105, 111, 860
340 DATA 110, 115, 32, 67, 111, 46, 13, 10, 504
350 DATA 80, 67, 32, 77, 97, 103, 97, 122, 675
360 DATA 105, 110, 101, 32, 254, 32, 82, 111, 827
370 DATA 98, 101, 114, 116, 32, 76, 46, 32, 615
380 DATA 72, 117, 109, 109, 101, 108, 13, 10, 639
390 DATA 36, 26, 0, 0, 0, 0, 214, 9, 285
400 DATA 0, 0, 53, 0, 0, 0, 46, 128, 227
410 DATA 62, 93, 1, 0, 117, 5, 251, 10, 539
420 DATA 228, 116, 6, 250, 46, 255, 46, 82, 1029
430 DATA 1, 46, 128, 62, 92, 1, 0, 117, 447
440 DATA 16, 46, 58, 6, 3, 1, 117, 235, 482
450 DATA 46, 254, 6, 92, 1, 180, 2, 235, 816
460 DATA 226, 46, 198, 6, 92, 1, 0, 46, 615
470 DATA 58, 6, 3, 1, 116, 213, 12, 32, 441
480 DATA 44, 97, 60, 25, 119, 231, 232, 2, 810
490 DATA 0, 235, 226, 30, 86, 81, 46, 197, 901
500 DATA 54, 86, 1, 138, 200, 2, 201, 254, 936
510 DATA 193, 10, 201, 116, 9, 254, 201, 172, 1156
520 DATA 10, 192, 117, 251, 235, 243, 172, 10, 1230
530 DATA 192, 116, 13, 156, 50, 228, 46, 255, 1056
540 DATA 30, 82, 1, 128, 252, 16, 116, 238, 863
550 DATA 89, 94, 31, 195, 252, 190, 214, 9, 1074
560 DATA 191, 249, 1, 139, 14, 90, 1, 140, 825
570 DATA 6, 88, 1, 137, 62, 86, 1, 139, 520
580 DATA 209, 3, 215, 243, 164, 131, 194, 15, 1174
590 DATA 177, 4, 211, 234, 184, 0, 49, 205, 1064
600 DATA 33, 78, 111, 116, 32, 82, 101, 115, 668
610 DATA 105, 100, 101, 110, 116, 36, 67, 97, 732
620 DATA 110, 110, 111, 116, 32, 85, 110, 105, 779
630 DATA 110, 115, 116, 97, 108, 108, 36, 85, 775
640 DATA 115, 97, 103, 101, 58, 32, 32, 65, 603
650 DATA 83, 80, 82, 78, 32, 91, 32, 47, 525
660 DATA 85, 32, 124, 32, 47, 83, 32, 93, 528
670 DATA 91, 32, 47, 77, 120, 32, 124, 32, 555
680 DATA 47, 67, 110, 110, 110, 32, 93, 36, 605
690 DATA 250, 188, 11, 11, 251, 186, 4, 1, 902
700 DATA 180, 9, 205, 33, 6, 139, 30, 44, 646
710 DATA 0, 142, 195, 180, 73, 205, 33, 7, 835
720 DATA 232, 91, 0, 115, 12, 186, 23, 2, 661
730 DATA 180, 9, 205, 33, 184, 1, 76, 205, 893
740 DATA 33, 246, 196, 1, 116, 10, 232, 192, 1026
750 DATA 0, 114, 237, 184, 0, 76, 205, 33, 849
760 DATA 246, 196, 2, 116, 3, 233, 230, 2, 1028
770 DATA 232, 250, 0, 114, 3, 233, 60, 1, 893
780 DATA 6, 184, 23, 53, 205, 33, 137, 30, 671
790 DATA 82, 1, 140, 6, 84, 1, 7, 184, 505
800 DATA 23, 37, 186, 94, 1, 205, 33, 232, 811
810 DATA 229, 1, 115, 3, 233, 45, 255, 232, 1113
820 DATA 237, 1, 186, 30, 0, 184, 0, 49, 687
830 DATA 205, 33, 32, 44, 59, 9, 50, 246, 678
840 DATA 190, 128, 0, 172, 10, 192, 117, 4, 813
850 DATA 248, 138, 230, 195, 138, 216, 10, 219, 1394
860 DATA 116, 246, 172, 254, 203, 191, 178, 2, 1362
870 DATA 185, 4, 0, 242, 174, 116, 239, 60, 1020
880 DATA 47, 116, 4, 180, 255, 249, 195, 10, 1056
890 DATA 219, 116, 248, 172, 254, 203, 36, 223, 1471
900 DATA 60, 85, 116, 14, 60, 83, 116, 15, 549
910 DATA 60, 77, 116, 16, 60, 67, 116, 24, 536
920 DATA 235, 225, 128, 206, 1, 235, 199, 128, 1357
930 DATA 206, 2, 235, 194, 10, 219, 116, 211, 1193
940 DATA 172, 254, 203, 162, 3, 1, 235, 182, 1212
950 DATA 185, 3, 0, 183, 10, 51, 192, 139, 763
960 DATA 248, 10, 219, 116, 190, 172, 254, 203, 1412
970 DATA 44, 48, 60, 9, 119, 181, 151, 246, 858
980 DATA 231, 3, 248, 226, 236, 139, 199, 235, 1517
990 DATA 218, 232, 73, 0, 186, 249, 1, 115, 1074
1000 DATA 1, 195, 83, 184, 23, 53, 205, 33, 777
1010 DATA 91, 186, 6, 2, 140, 192, 59, 195, 871
1020 DATA 116, 10, 83, 7, 38, 198, 6, 93, 551
1030 DATA 1, 255, 249, 195, 38, 197, 22, 82, 1039
1040 DATA 1, 184, 23, 37, 205, 33, 38, 196, 717
1050 DATA 6, 86, 1, 180, 73, 205, 33, 114, 698
1060 DATA 225, 140, 192, 59, 195, 116, 8, 142, 1077
1070 DATA 195, 180, 73, 205, 33, 114, 211, 248, 1259
1080 DATA 14, 31, 14, 7, 195, 252, 247, 22, 782
1090 DATA 0, 1, 187, 0, 6, 140, 200, 67, 601
1100 DATA 142, 195, 59, 195, 117, 2, 249, 195, 1154
1110 DATA 190, 0, 1, 139, 254, 185, 16, 0, 785
1120 DATA 243, 166, 11, 201, 117, 233, 248, 195, 1414
1130 DATA 13, 10, 65, 83, 80, 82, 78, 32, 443
1140 DATA 70, 97, 105, 108, 101, 100, 46, 32, 659
1150 DATA 83, 117, 103, 103, 101, 115, 116, 32, 770
1160 DATA 82, 101, 98, 111, 111, 116, 46, 13, 678
1170 DATA 10, 36, 0, 0, 180, 80, 140, 195, 641
1180 DATA 205, 33, 38, 161, 88, 1, 59, 195, 780
1190 DATA 116, 13, 6, 142, 192, 180, 73, 205, 927
1200 DATA 33, 7, 115, 12, 235, 52, 144, 187, 785
1210 DATA 30, 0, 180, 74, 205, 33, 114, 42, 678
1220 DATA 232, 156, 0, 114, 14, 232, 167, 0, 915
1230 DATA 180, 80, 140, 203, 205, 33, 184, 0, 1025
1240 DATA 76, 205, 33, 180, 80, 140, 203, 205, 1122
1250 DATA 33, 6, 180, 74, 187, 177, 0, 137, 794
1260 DATA 30, 194, 3, 14, 7, 205, 33, 7, 493
1270 DATA 115, 18, 186, 160, 3, 180, 9, 205, 876
1280 DATA 33, 38, 198, 6, 93, 1, 255, 184, 808
1290 DATA 255, 76, 205, 33, 180, 72, 187, 255, 1263
1300 DATA 255, 205, 33, 129, 251, 177, 0, 114, 1164
1310 DATA 225, 180, 72, 205, 33, 114, 219, 51, 1099
1320 DATA 246, 139, 254, 6, 142, 192, 185, 11, 1175
1330 DATA 11, 252, 243, 164, 7, 80, 186, 76, 1019
1340 DATA 4, 82, 250, 203, 14, 23, 188, 11, 775
1350 DATA 11, 251, 139, 216, 180, 80, 205, 33, 1115
1360 DATA 6, 30, 7, 180, 73, 205, 33, 7, 541
1370 DATA 114, 176, 14, 31, 180, 80, 140, 195, 930
1380 DATA 205, 33, 232, 26, 0, 232, 39, 0, 767
1390 DATA 180, 80, 140, 203, 205, 33, 14, 7, 862
1400 DATA 180, 74, 139, 30, 194, 3, 205, 33, 858
1410 DATA 114, 144, 184, 0, 76, 205, 33, 180, 936
1420 DATA 72, 139, 30, 90, 1, 131, 195, 15, 673
1430 DATA 177, 4, 211, 235, 205, 33, 195, 6, 1066
1440 DATA 139, 14, 90, 1, 38, 137, 14, 90, 523
1450 DATA 1, 51, 255, 38, 137, 62, 86, 1, 631
1460 DATA 38, 163, 88, 1, 142, 192, 190, 214, 1028
1470 DATA 9, 252, 243, 164, 7, 195, 78, 111, 1059
1480 DATA 116, 32, 69, 110, 111, 117, 103, 104, 762
1490 DATA 32, 77, 101, 109, 111, 114, 121, 36, 701
1500 DATA 13, 10, 83, 97, 118, 101, 32, 99, 553
1510 DATA 104, 97, 110, 103, 101, 115, 32, 97, 759
1520 DATA 115, 32, 65, 83, 80, 82, 78, 78, 613
1530 DATA 69, 87, 46, 67, 79, 77, 63, 32, 520
1540 DATA 40, 89, 47, 78, 41, 32, 36, 13, 376
1550 DATA 10, 79, 118, 101, 114, 119, 114, 105, 760
1560 DATA 116, 101, 32, 101, 120, 105, 115, 116, 806
1570 DATA 105, 110, 103, 32, 102, 105, 108, 101, 766
1580 DATA 63, 32, 40, 89, 47, 78, 41, 32, 422
1590 DATA 36, 13, 10, 70, 105, 108, 101, 32, 475
1600 DATA 101, 114, 114, 111, 114, 46, 32, 84, 716
1610 DATA 114, 121, 32, 65, 103, 97, 105, 110, 747
1620 DATA 63, 32, 40, 89, 47, 78, 41, 32, 422
1630 DATA 36, 13, 10, 87, 114, 105, 116, 101, 582
1640 DATA 32, 101, 114, 114, 111, 114, 46, 32, 664
1650 DATA 84, 114, 121, 32, 65, 103, 97, 105, 721
1660 DATA 110, 63, 32, 40, 89, 47, 78, 41, 500
1670 DATA 32, 36, 65, 83, 80, 82, 78, 78, 534
1680 DATA 69, 87, 46, 67, 79, 77, 0, 11, 436
1690 DATA 10, 24, 80, 0, 0, 0, 180, 74, 368
1700 DATA 187, 0, 16, 205, 33, 115, 12, 186, 754
1710 DATA 182, 4, 180, 9, 205, 33, 184, 2, 799
1720 DATA 76, 205, 33, 250, 188, 254, 255, 251, 1512
1730 DATA 232, 148, 0, 160, 98, 5, 44, 2, 689
1740 DATA 162, 99, 5, 232, 105, 2, 232, 219, 1056
1750 DATA 0, 139, 14, 95, 5, 129, 233, 214, 829
1760 DATA 9, 137, 14, 90, 1, 186, 200, 4, 641
1770 DATA 232, 96, 0, 114, 5, 184, 3, 76, 710
1780 DATA 205, 33, 184, 2, 61, 186, 82, 5, 758
1790 DATA 205, 33, 114, 16, 139, 216, 186, 239, 1148
1800 DATA 4, 232, 71, 0, 114, 29, 180, 62, 692
1810 DATA 205, 33, 235, 217, 180, 60, 51, 201, 1182
1820 DATA 186, 82, 5, 205, 33, 115, 10, 186, 822
1830 DATA 17, 5, 232, 46, 0, 114, 237, 235, 886
1840 DATA 196, 139, 216, 180, 64, 139, 14, 95, 1043
1850 DATA 5, 129, 233, 0, 1, 186, 0, 1, 555
1860 DATA 205, 33, 114, 4, 59, 193, 116, 10, 734
1870 DATA 186, 49, 5, 232, 13, 0, 114, 227, 826
1880 DATA 235, 196, 180, 62, 205, 33, 184, 0, 1095
1890 DATA 76, 205, 33, 180, 9, 205, 33, 232, 973
1900 DATA 190, 3, 36, 223, 60, 78, 117, 1, 708
1910 DATA 195, 60, 89, 117, 242, 249, 195, 180, 1327
1920 DATA 15, 205, 16, 198, 6, 101, 5, 31, 577
1930 DATA 60, 3, 118, 11, 60, 7, 116, 2, 377
1940 DATA 249, 195, 198, 6, 101, 5, 7, 136, 897
1950 DATA 38, 98, 5, 136, 62, 100, 5, 180, 624
1960 DATA 18, 179, 16, 205, 16, 128, 251, 16, 829
1970 DATA 178, 24, 116, 9, 6, 184, 48, 17, 582
1980 DATA 183, 0, 205, 16, 7, 136, 22, 97, 666
1990 DATA 5, 248, 195, 80, 180, 2, 138, 62, 910
2000 DATA 100, 5, 139, 22, 104, 6, 205, 16, 597
2010 DATA 88, 195, 0, 0, 0, 0, 0, 0, 283
2020 DATA 6, 0, 0, 0, 198, 6, 106, 6, 322
2030 DATA 0, 199, 6, 104, 6, 6, 1, 232, 554
2040 DATA 217, 255, 180, 10, 160, 3, 1, 185, 1011
2050 DATA 1, 0, 205, 16, 254, 6, 104, 6, 592
2060 DATA 232, 200, 255, 180, 10, 160, 106, 6, 1149
2070 DATA 4, 65, 185, 1, 0, 205, 16, 232, 708
2080 DATA 203, 2, 187, 0, 0, 232, 175, 2, 801
2090 DATA 232, 236, 2, 187, 2, 0, 232, 166, 1057
2100 DATA 2, 232, 227, 2, 232, 25, 3, 10, 733
2110 DATA 192, 116, 75, 61, 8, 14, 117, 30, 613
2120 DATA 10, 228, 116, 26, 232, 112, 2, 114, 840
2130 DATA 235, 232, 19, 2, 114, 230, 232, 198, 1262
2140 DATA 2, 131, 62, 102, 6, 0, 117, 220, 640
2150 DATA 255, 14, 100, 6, 235, 214, 128, 62, 1014
2160 DATA 107, 6, 0, 116, 8, 232, 205, 1, 675
2170 DATA 128, 60, 0, 117, 14, 232, 217, 1, 769
2180 DATA 131, 62, 102, 6, 0, 117, 4, 255, 677
2190 DATA 6, 100, 6, 232, 177, 1, 232, 150, 904
2200 DATA 2, 232, 248, 1, 235, 174, 128, 252, 1272
2210 DATA 65, 117, 14, 198, 6, 104, 6, 0, 510
2220 DATA 198, 6, 105, 6, 9, 232, 67, 255, 878
2230 DATA 195, 138, 30, 106, 6, 128, 252, 83, 938
2240 DATA 116, 167, 128, 252, 73, 116, 47, 128, 1027
2250 DATA 252, 81, 116, 58, 139, 30, 102, 6, 784
2260 DATA 128, 252, 77, 116, 204, 128, 252, 75, 1232
2270 DATA 116, 55, 128, 252, 72, 116, 56, 128, 923
2280 DATA 252, 80, 116, 62, 128, 252, 82, 116, 1088
2290 DATA 68, 128, 252, 79, 116, 70, 128, 252, 1093
2300 DATA 71, 116, 73, 233, 94, 255, 254, 203, 1299
2310 DATA 128, 251, 0, 125, 2, 179, 25, 136, 846
2320 DATA 30, 106, 6, 233, 19, 255, 254, 195, 1098
2330 DATA 128, 251, 25, 118, 242, 50, 219, 235, 1268
2340 DATA 238, 232, 195, 1, 233, 61, 255, 131, 1346
2350 DATA 251, 0, 116, 248, 187, 0, 0, 233, 1035
2360 DATA 44, 255, 131, 251, 2, 116, 237, 187, 1223
2370 DATA 2, 0, 233, 33, 255, 246, 22, 107, 898
2380 DATA 6, 233, 32, 255, 232, 101, 1, 115, 975
2390 DATA 251, 233, 24, 255, 232, 152, 1, 115, 1263
2400 DATA 251, 233, 16, 255, 181, 65, 83, 80, 1164
2410 DATA 82, 78, 32, 49, 46, 48, 198, 0, 533
2420 DATA 83, 84, 82, 73, 78, 71, 58, 32, 561
2430 DATA 27, 32, 26, 32, 73, 78, 83, 32, 383
2440 DATA 68, 69, 76, 32, 24, 32, 25, 32, 358
2450 DATA 32, 77, 65, 67, 82, 79, 58, 32, 492
2460 DATA 80, 103, 85, 112, 32, 80, 103, 68, 663
2470 DATA 110, 32, 32, 70, 55, 32, 61, 32, 424
2480 DATA 83, 97, 118, 101, 0, 78, 65, 77, 619
2490 DATA 69, 32, 58, 0, 77, 65, 67, 82, 450
2500 DATA 79, 58, 0, 201, 205, 187, 186, 32, 948
2510 DATA 186, 199, 196, 182, 200, 205, 188, 184, 1540
2520 DATA 0, 7, 138, 62, 101, 5, 51, 201, 565
2530 DATA 138, 54, 97, 5, 138, 22, 98, 5, 557
2540 DATA 254, 202, 205, 16, 138, 62, 100, 5, 982
2550 DATA 190, 235, 7, 139, 209, 185, 9, 0, 974
2560 DATA 81, 178, 0, 180, 2, 205, 16, 172, 834
2570 DATA 180, 14, 205, 16, 172, 180, 10, 138, 915
2580 DATA 14, 98, 5, 50, 237, 131, 233, 2, 770
2590 DATA 205, 16, 180, 2, 178, 0, 2, 22, 605
2600 DATA 98, 5, 254, 202, 205, 16, 172, 180, 1132
2610 DATA 10, 185, 1, 0, 205, 16, 254, 198, 869
2620 DATA 89, 128, 249, 9, 116, 16, 128, 249, 984
2630 DATA 2, 117, 3, 131, 198, 3, 246, 193, 893
2640 DATA 1, 116, 3, 131, 238, 6, 226, 184, 905
2650 DATA 198, 6, 105, 6, 0, 160, 99, 5, 579
2660 DATA 44, 17, 162, 104, 6, 190, 156, 7, 686
2670 DATA 232, 33, 0, 199, 6, 104, 6, 1, 581
2680 DATA 7, 190, 168, 7, 232, 21, 0, 199, 824
2690 DATA 6, 104, 6, 1, 3, 190, 221, 7, 538
2700 DATA 232, 9, 0, 199, 6, 104, 6, 1, 557
2710 DATA 5, 190, 228, 7, 232, 188, 253, 138, 1241
2720 DATA 62, 100, 5, 172, 10, 192, 116, 6, 663
2730 DATA 180, 14, 205, 16, 235, 241, 195, 232, 1318
2740 DATA 3, 0, 136, 4, 195, 139, 30, 102, 609
2750 DATA 6, 139, 183, 98, 6, 50, 237, 138, 857
2760 DATA 14, 104, 6, 128, 233, 7, 3, 241, 736
2770 DATA 195, 232, 233, 255, 139, 14, 95, 5, 1168
2780 DATA 139, 249, 43, 206, 139, 247, 78, 253, 1354
2790 DATA 243, 164, 255, 6, 95, 5, 195, 232, 1195
2800 DATA 211, 255, 128, 60, 0, 117, 2, 249, 1022
2810 DATA 195, 139, 14, 95, 5, 43, 206, 73, 770
2820 DATA 139, 254, 70, 252, 243, 164, 255, 14, 1391
2830 DATA 95, 5, 248, 195, 232, 182, 255, 128, 1340
2840 DATA 60, 0, 117, 2, 249, 195, 138, 14, 775
2850 DATA 104, 6, 58, 14, 99, 5, 116, 11, 413
2860 DATA 254, 193, 136, 14, 104, 6, 232, 66, 1005
2870 DATA 253, 248, 195, 255, 135, 98, 6, 255, 1445
2880 DATA 54, 104, 6, 198, 6, 104, 6, 7, 485
2890 DATA 232, 48, 253, 232, 105, 0, 143, 6, 1019
2900 DATA 104, 6, 232, 38, 253, 248, 195, 138, 1214
2910 DATA 14, 104, 6, 128, 249, 7, 116, 4, 628
2920 DATA 254, 201, 235, 206, 139, 183, 98, 6, 1322
2930 DATA 78, 128, 60, 0, 116, 182, 137, 183, 884
2940 DATA 98, 6, 232, 66, 0, 248, 195, 137, 982
2950 DATA 30, 102, 6, 198, 6, 104, 6, 7, 459
2960 DATA 182, 3, 11, 219, 116, 2, 182, 5, 720
2970 DATA 136, 54, 105, 6, 195, 138, 30, 106, 770
2980 DATA 6, 208, 227, 232, 14, 0, 137, 54, 878
2990 DATA 98, 6, 254, 195, 232, 5, 0, 137, 927
3000 DATA 54, 100, 6, 195, 190, 214, 9, 50, 818
3010 DATA 255, 58, 251, 117, 1, 195, 172, 10, 1059
3020 DATA 192, 117, 251, 254, 199, 235, 242, 252, 1742
3030 DATA 232, 192, 252, 232, 23, 255, 138, 46, 1370
3040 DATA 104, 6, 138, 14, 99, 5, 172, 10, 548
3050 DATA 192, 117, 3, 78, 176, 32, 232, 170, 1000
3060 DATA 252, 81, 180, 10, 138, 62, 100, 5, 828
3070 DATA 185, 1, 0, 205, 16, 89, 254, 6, 756
3080 DATA 104, 6, 58, 14, 104, 6, 115, 222, 629
3090 DATA 136, 46, 104, 6, 232, 140, 252, 195, 1111
3100 DATA 205, 40, 180, 1, 205, 22, 116, 248, 1017
3110 DATA 50, 228, 205, 22, 195, 0, 0, 0, 700
3120 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3130 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3140 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3150 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3160 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3170 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
3180 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/