home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 December
/
simtel1292_SIMTEL_1292_Walnut_Creek.iso
/
msdos
/
pcmag
/
vol6n22.arc
/
PRN2FILE.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-11-10
|
13KB
|
195 lines
100 REM -- BASIC PROGRAM TO CREATE prn2file.COM
110 OPEN "prn2file.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 174
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 = 138048 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 136, 2, 80, 82, 78, 50, 70, 731
300 DATA 73, 76, 69, 32, 49, 46, 48, 32, 425
310 DATA 40, 99, 41, 32, 49, 57, 56, 55, 429
320 DATA 32, 90, 105, 102, 102, 32, 67, 111, 641
330 DATA 109, 109, 117, 110, 105, 99, 97, 116, 862
340 DATA 105, 111, 110, 115, 32, 67, 111, 46, 697
350 DATA 36, 26, 84, 111, 109, 32, 75, 105, 578
360 DATA 104, 108, 107, 101, 110, 76, 80, 84, 770
370 DATA 49, 32, 82, 101, 100, 105, 114, 101, 684
380 DATA 99, 116, 101, 100, 32, 116, 111, 58, 733
390 DATA 32, 36, 73, 110, 118, 97, 108, 105, 679
400 DATA 100, 32, 102, 105, 108, 101, 110, 97, 755
410 DATA 109, 101, 46, 36, 85, 115, 97, 103, 692
420 DATA 101, 58, 32, 80, 82, 78, 50, 70, 551
430 DATA 73, 76, 69, 32, 91, 112, 97, 116, 666
440 DATA 104, 93, 91, 102, 105, 108, 101, 110, 814
450 DATA 97, 109, 101, 93, 91, 47, 80, 110, 728
460 DATA 93, 91, 47, 66, 110, 110, 93, 91, 701
470 DATA 47, 85, 93, 36, 77, 101, 109, 111, 659
480 DATA 114, 121, 32, 65, 108, 108, 111, 99, 758
490 DATA 97, 116, 105, 111, 110, 32, 69, 114, 754
500 DATA 114, 111, 114, 46, 36, 67, 97, 110, 695
510 DATA 110, 111, 116, 32, 85, 110, 105, 110, 779
520 DATA 115, 116, 97, 108, 108, 46, 36, 80, 706
530 DATA 82, 78, 36, 13, 10, 36, 13, 10, 278
540 DATA 42, 66, 117, 102, 102, 101, 114, 32, 676
550 DATA 79, 118, 101, 114, 102, 108, 111, 119, 852
560 DATA 42, 13, 10, 0, 0, 0, 0, 0, 65
570 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
580 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
590 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
600 DATA 0, 4, 0, 0, 0, 46, 59, 22, 131
610 DATA 245, 1, 117, 8, 46, 128, 62, 239, 846
620 DATA 1, 1, 116, 5, 46, 255, 46, 223, 693
630 DATA 1, 251, 46, 199, 6, 240, 1, 91, 835
640 DATA 0, 86, 128, 252, 1, 116, 37, 10, 630
650 DATA 228, 117, 56, 46, 139, 54, 247, 1, 888
660 DATA 46, 59, 54, 249, 1, 116, 44, 30, 599
670 DATA 46, 142, 30, 251, 1, 136, 4, 31, 641
680 DATA 70, 46, 137, 54, 247, 1, 129, 254, 938
690 DATA 0, 4, 124, 23, 46, 198, 6, 244, 645
700 DATA 1, 1, 30, 83, 46, 197, 30, 235, 623
710 DATA 1, 128, 63, 0, 91, 31, 117, 3, 434
720 DATA 232, 122, 0, 94, 180, 144, 207, 156, 1135
730 DATA 46, 255, 30, 219, 1, 46, 255, 14, 866
740 DATA 240, 1, 117, 14, 46, 131, 62, 247, 858
750 DATA 1, 0, 116, 6, 46, 198, 6, 244, 617
760 DATA 1, 1, 207, 156, 46, 128, 62, 244, 845
770 DATA 1, 1, 117, 17, 30, 83, 46, 197, 492
780 DATA 30, 235, 1, 128, 63, 0, 91, 31, 579
790 DATA 117, 3, 232, 64, 0, 10, 228, 117, 771
800 DATA 3, 184, 0, 76, 128, 252, 64, 117, 824
810 DATA 13, 131, 251, 4, 117, 8, 46, 128, 698
820 DATA 62, 239, 1, 1, 116, 7, 157, 250, 833
830 DATA 46, 255, 46, 227, 1, 251, 252, 81, 1159
840 DATA 82, 86, 139, 242, 46, 139, 22, 245, 1001
850 DATA 1, 227, 7, 172, 180, 0, 205, 23, 815
860 DATA 226, 249, 94, 90, 89, 139, 193, 157, 1237
870 DATA 248, 251, 202, 2, 0, 80, 83, 81, 947
880 DATA 82, 30, 6, 14, 31, 198, 6, 244, 611
890 DATA 1, 0, 184, 36, 53, 232, 129, 0, 635
900 DATA 83, 6, 186, 114, 3, 184, 36, 37, 649
910 DATA 232, 118, 0, 131, 62, 247, 1, 0, 791
920 DATA 116, 90, 186, 106, 6, 184, 2, 61, 751
930 DATA 232, 102, 0, 114, 16, 139, 216, 51, 870
940 DATA 201, 51, 210, 184, 2, 66, 232, 88, 1034
950 DATA 0, 114, 60, 235, 17, 61, 2, 0, 489
960 DATA 117, 58, 185, 32, 0, 180, 60, 232, 864
970 DATA 71, 0, 114, 43, 139, 216, 186, 0, 769
980 DATA 0, 139, 14, 247, 1, 180, 64, 30, 675
990 DATA 142, 30, 251, 1, 232, 50, 0, 31, 737
1000 DATA 114, 21, 59, 200, 117, 17, 59, 14, 601
1010 DATA 249, 1, 117, 11, 186, 198, 1, 185, 948
1020 DATA 21, 0, 180, 64, 232, 26, 0, 180, 703
1030 DATA 62, 232, 21, 0, 199, 6, 247, 1, 768
1040 DATA 0, 0, 31, 90, 184, 36, 37, 232, 610
1050 DATA 7, 0, 7, 31, 90, 89, 91, 88, 403
1060 DATA 195, 156, 250, 46, 255, 30, 227, 1, 1160
1070 DATA 251, 195, 251, 50, 192, 46, 162, 239, 1386
1080 DATA 1, 207, 251, 46, 128, 62, 244, 1, 940
1090 DATA 0, 116, 3, 232, 79, 255, 46, 255, 986
1100 DATA 46, 231, 1, 186, 3, 1, 232, 156, 856
1110 DATA 1, 247, 22, 0, 1, 51, 219, 140, 681
1120 DATA 200, 67, 59, 195, 142, 195, 116, 40, 1014
1130 DATA 190, 0, 1, 139, 254, 185, 16, 0, 785
1140 DATA 243, 166, 11, 201, 117, 235, 38, 198, 1209
1150 DATA 6, 239, 1, 1, 38, 139, 22, 245, 691
1160 DATA 1, 137, 22, 245, 1, 180, 1, 205, 792
1170 DATA 23, 128, 194, 49, 136, 22, 64, 1, 617
1180 DATA 140, 6, 242, 1, 14, 7, 128, 62, 600
1190 DATA 80, 0, 0, 116, 99, 176, 47, 232, 750
1200 DATA 95, 1, 242, 174, 227, 108, 138, 5, 990
1210 DATA 199, 69, 255, 32, 32, 12, 32, 60, 691
1220 DATA 112, 116, 55, 60, 98, 116, 13, 60, 630
1230 DATA 117, 116, 6, 186, 100, 1, 233, 4, 763
1240 DATA 1, 233, 238, 1, 199, 6, 249, 1, 928
1250 DATA 0, 0, 161, 249, 1, 179, 10, 246, 846
1260 DATA 227, 71, 138, 29, 128, 235, 48, 114, 990
1270 DATA 196, 128, 251, 9, 119, 191, 198, 5, 1097
1280 DATA 32, 50, 255, 3, 195, 163, 249, 1, 948
1290 DATA 235, 224, 71, 138, 5, 198, 5, 32, 908
1300 DATA 162, 64, 1, 44, 49, 50, 228, 60, 658
1310 DATA 3, 115, 192, 163, 245, 1, 235, 157, 1111
1320 DATA 186, 61, 1, 180, 9, 205, 33, 186, 861
1330 DATA 191, 1, 232, 232, 0, 176, 0, 233, 1065
1340 DATA 209, 0, 131, 62, 249, 1, 1, 114, 767
1350 DATA 162, 131, 62, 249, 1, 64, 119, 155, 943
1360 DATA 176, 32, 232, 220, 0, 243, 174, 227, 1304
1370 DATA 215, 128, 61, 58, 117, 10, 79, 138, 806
1380 DATA 5, 199, 5, 32, 32, 235, 7, 144, 659
1390 DATA 180, 25, 205, 33, 4, 65, 180, 58, 750
1400 DATA 163, 106, 6, 176, 92, 162, 108, 6, 819
1410 DATA 232, 182, 0, 242, 174, 227, 6, 191, 1254
1420 DATA 108, 6, 235, 37, 144, 138, 22, 106, 796
1430 DATA 6, 128, 226, 223, 128, 234, 64, 190, 1199
1440 DATA 109, 6, 139, 254, 180, 71, 205, 33, 997
1450 DATA 114, 88, 176, 0, 56, 5, 116, 9, 564
1460 DATA 185, 64, 0, 242, 174, 198, 69, 255, 1187
1470 DATA 92, 87, 176, 32, 232, 130, 0, 243, 992
1480 DATA 174, 139, 247, 78, 95, 172, 60, 32, 997
1490 DATA 116, 7, 60, 13, 116, 3, 170, 235, 720
1500 DATA 244, 87, 198, 5, 36, 186, 61, 1, 818
1510 DATA 180, 9, 205, 33, 186, 106, 6, 232, 957
1520 DATA 83, 0, 95, 198, 5, 0, 186, 106, 673
1530 DATA 6, 184, 0, 61, 205, 33, 114, 9, 612
1540 DATA 139, 216, 180, 62, 205, 33, 235, 18, 1088
1550 DATA 144, 185, 32, 0, 180, 60, 205, 33, 839
1560 DATA 115, 238, 186, 82, 1, 232, 45, 0, 899
1570 DATA 205, 32, 142, 6, 242, 1, 255, 54, 937
1580 DATA 245, 1, 38, 143, 6, 245, 1, 191, 870
1590 DATA 106, 6, 139, 247, 185, 128, 0, 243, 1054
1600 DATA 164, 176, 1, 140, 201, 59, 14, 242, 997
1610 DATA 1, 142, 6, 242, 1, 38, 162, 239, 831
1620 DATA 1, 116, 25, 205, 32, 180, 9, 205, 773
1630 DATA 33, 186, 195, 1, 180, 9, 205, 33, 842
1640 DATA 195, 191, 128, 0, 46, 138, 13, 50, 761
1650 DATA 237, 71, 252, 195, 187, 234, 6, 131, 1313
1660 DATA 195, 15, 177, 4, 211, 235, 180, 74, 1091
1670 DATA 205, 33, 115, 5, 186, 148, 1, 235, 928
1680 DATA 164, 139, 30, 249, 1, 177, 6, 211, 977
1690 DATA 227, 180, 72, 205, 33, 114, 237, 163, 1231
1700 DATA 251, 1, 161, 249, 1, 177, 10, 211, 1061
1710 DATA 224, 11, 192, 117, 1, 72, 163, 249, 1029
1720 DATA 1, 180, 52, 205, 33, 137, 30, 235, 873
1730 DATA 1, 140, 6, 237, 1, 184, 8, 53, 630
1740 DATA 205, 33, 137, 30, 219, 1, 140, 6, 771
1750 DATA 221, 1, 186, 95, 2, 184, 8, 37, 734
1760 DATA 205, 33, 184, 23, 53, 205, 33, 137, 873
1770 DATA 30, 223, 1, 140, 6, 225, 1, 186, 812
1780 DATA 253, 1, 184, 23, 37, 205, 33, 184, 920
1790 DATA 33, 53, 205, 33, 137, 30, 227, 1, 719
1800 DATA 140, 6, 229, 1, 186, 123, 2, 184, 871
1810 DATA 33, 37, 205, 33, 184, 40, 53, 205, 790
1820 DATA 33, 137, 30, 231, 1, 140, 6, 233, 811
1830 DATA 1, 186, 122, 3, 184, 40, 37, 205, 778
1840 DATA 33, 161, 44, 0, 142, 192, 180, 73, 825
1850 DATA 205, 33, 186, 111, 0, 184, 0, 49, 768
1860 DATA 205, 33, 176, 8, 232, 111, 0, 117, 882
1870 DATA 103, 176, 23, 232, 104, 0, 117, 96, 851
1880 DATA 176, 33, 232, 97, 0, 117, 89, 176, 920
1890 DATA 40, 232, 90, 0, 117, 82, 142, 6, 709
1900 DATA 242, 1, 38, 197, 22, 219, 1, 184, 904
1910 DATA 8, 37, 205, 33, 38, 197, 22, 223, 763
1920 DATA 1, 184, 23, 37, 205, 33, 38, 197, 718
1930 DATA 22, 227, 1, 184, 33, 37, 205, 33, 742
1940 DATA 38, 197, 22, 231, 1, 184, 40, 37, 750
1950 DATA 205, 33, 38, 142, 6, 251, 1, 180, 856
1960 DATA 73, 205, 33, 114, 21, 46, 142, 6, 640
1970 DATA 242, 1, 38, 247, 22, 0, 1, 180, 731
1980 DATA 73, 205, 33, 114, 5, 184, 0, 76, 690
1990 DATA 205, 33, 186, 148, 1, 233, 165, 254, 1225
2000 DATA 186, 173, 1, 233, 159, 254, 180, 53, 1239
2010 DATA 205, 33, 140, 192, 46, 59, 6, 242, 923
2020 DATA 1, 195, 0, 0, 0, 0, 0, 0, 196