home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol6n02.zip
/
PARSE.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-12
|
8KB
|
122 lines
100 REM -- BASIC PROGRAM TO CREATE PARSE.COM
110 OPEN "PARSE.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 102
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 = 72690 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 21, 1, 32, 67, 111, 112, 121, 698
300 DATA 114, 105, 103, 104, 116, 32, 49, 57, 680
310 DATA 56, 54, 32, 90, 105, 102, 102, 45, 586
320 DATA 68, 97, 118, 105, 115, 32, 80, 117, 732
330 DATA 98, 108, 105, 115, 104, 105, 110, 103, 848
340 DATA 32, 67, 111, 46, 32, 80, 114, 111, 593
350 DATA 103, 114, 97, 109, 109, 101, 100, 32, 765
360 DATA 98, 121, 32, 77, 105, 99, 104, 97, 733
370 DATA 101, 108, 32, 74, 46, 32, 77, 101, 571
380 DATA 102, 102, 111, 114, 100, 0, 0, 0, 529
390 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
400 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
410 DATA 0, 0, 32, 112, 114, 105, 110, 116, 589
420 DATA 97, 98, 108, 101, 32, 99, 104, 97, 736
430 DATA 114, 97, 99, 116, 101, 114, 115, 46, 802
440 DATA 13, 10, 36, 32, 119, 111, 114, 100, 535
450 DATA 115, 46, 13, 10, 36, 32, 119, 111, 482
460 DATA 114, 100, 115, 32, 119, 105, 116, 104, 805
470 DATA 32, 116, 104, 114, 101, 101, 32, 111, 711
480 DATA 114, 32, 109, 111, 114, 101, 32, 115, 728
490 DATA 121, 108, 108, 97, 98, 108, 101, 115, 856
500 DATA 46, 13, 10, 36, 32, 115, 101, 110, 463
510 DATA 116, 101, 110, 99, 101, 115, 46, 13, 701
520 DATA 10, 36, 32, 97, 118, 103, 46, 32, 474
530 DATA 99, 104, 97, 114, 97, 99, 116, 101, 827
540 DATA 114, 115, 47, 119, 111, 114, 100, 46, 766
550 DATA 13, 10, 36, 32, 97, 118, 103, 46, 455
560 DATA 32, 119, 111, 114, 100, 115, 47, 115, 753
570 DATA 101, 110, 116, 101, 110, 99, 101, 46, 784
580 DATA 13, 10, 36, 13, 10, 32, 32, 82, 228
590 DATA 101, 97, 100, 105, 110, 103, 32, 105, 753
600 DATA 110, 100, 101, 120, 13, 10, 36, 32, 522
610 DATA 103, 114, 97, 100, 101, 32, 108, 101, 756
620 DATA 118, 101, 108, 46, 13, 10, 36, 46, 478
630 DATA 36, 54, 53, 53, 51, 54, 43, 36, 380
640 DATA 191, 128, 0, 138, 29, 50, 255, 198, 989
650 DATA 65, 1, 0, 71, 128, 61, 32, 116, 474
660 DATA 250, 139, 215, 184, 0, 61, 205, 33, 1087
670 DATA 114, 50, 80, 91, 83, 186, 48, 4, 656
680 DATA 185, 0, 250, 180, 63, 205, 33, 114, 1030
690 DATA 30, 61, 0, 0, 117, 32, 128, 62, 430
700 DATA 95, 1, 0, 116, 15, 255, 6, 85, 573
710 DATA 1, 128, 62, 96, 1, 0, 116, 4, 408
720 DATA 255, 6, 87, 1, 232, 141, 0, 91, 813
730 DATA 180, 62, 205, 33, 205, 32, 139, 200, 1056
740 DATA 190, 48, 4, 252, 172, 36, 127, 60, 889
750 DATA 32, 114, 10, 131, 6, 77, 1, 1, 372
760 DATA 131, 22, 79, 1, 0, 60, 32, 119, 444
770 DATA 18, 128, 62, 96, 1, 0, 116, 4, 425
780 DATA 255, 6, 87, 1, 128, 62, 95, 1, 635
790 DATA 0, 117, 59, 60, 46, 116, 48, 60, 506
800 DATA 33, 116, 44, 60, 63, 116, 40, 60, 532
810 DATA 45, 116, 58, 60, 48, 114, 59, 60, 560
820 DATA 57, 118, 10, 36, 95, 60, 65, 114, 555
830 DATA 49, 60, 90, 119, 45, 131, 6, 81, 581
840 DATA 1, 1, 131, 22, 83, 1, 0, 198, 437
850 DATA 6, 95, 1, 1, 67, 235, 27, 198, 630
860 DATA 6, 96, 1, 1, 235, 25, 255, 6, 625
870 DATA 85, 1, 131, 251, 8, 114, 4, 255, 849
880 DATA 6, 89, 1, 51, 219, 198, 6, 95, 665
890 DATA 1, 0, 198, 6, 96, 1, 0, 226, 528
900 DATA 131, 233, 71, 255, 178, 10, 180, 2, 1060
910 DATA 205, 33, 131, 62, 79, 1, 0, 116, 627
920 DATA 7, 186, 17, 2, 180, 9, 205, 33, 639
930 DATA 139, 30, 77, 1, 232, 167, 0, 186, 832
940 DATA 98, 1, 232, 232, 0, 139, 30, 85, 817
950 DATA 1, 232, 154, 0, 186, 123, 1, 232, 929
960 DATA 219, 0, 139, 30, 89, 1, 232, 141, 851
970 DATA 0, 186, 133, 1, 232, 206, 0, 139, 897
980 DATA 30, 87, 1, 232, 128, 0, 186, 172, 836
990 DATA 1, 232, 193, 0, 161, 81, 1, 139, 808
1000 DATA 22, 83, 1, 139, 14, 85, 1, 247, 592
1010 DATA 241, 232, 182, 0, 232, 212, 0, 186, 1285
1020 DATA 186, 1, 232, 168, 0, 161, 85, 1, 834
1030 DATA 51, 210, 139, 14, 87, 1, 247, 241, 990
1040 DATA 232, 159, 0, 232, 189, 0, 186, 211, 1209
1050 DATA 1, 232, 145, 0, 186, 235, 1, 232, 1032
1060 DATA 139, 0, 184, 40, 0, 247, 38, 89, 737
1070 DATA 1, 139, 14, 85, 1, 247, 241, 232, 960
1080 DATA 128, 0, 255, 54, 93, 1, 255, 54, 840
1090 DATA 91, 1, 184, 10, 0, 247, 38, 87, 658
1100 DATA 1, 80, 184, 4, 0, 247, 38, 85, 639
1110 DATA 1, 89, 247, 241, 232, 99, 0, 88, 997
1120 DATA 1, 6, 91, 1, 88, 3, 6, 93, 289
1130 DATA 1, 232, 103, 0, 232, 116, 0, 186, 870
1140 DATA 255, 1, 232, 72, 0, 195, 185, 16, 956
1150 DATA 39, 232, 30, 0, 185, 232, 3, 232, 953
1160 DATA 24, 0, 185, 100, 0, 232, 18, 0, 559
1170 DATA 185, 10, 0, 232, 12, 0, 185, 1, 625
1180 DATA 0, 232, 6, 0, 198, 6, 97, 1, 540
1190 DATA 0, 195, 139, 195, 51, 210, 247, 241, 1278
1200 DATA 139, 218, 138, 208, 60, 0, 116, 4, 883
1210 DATA 8, 6, 97, 1, 128, 62, 97, 1, 400
1220 DATA 0, 117, 2, 178, 240, 128, 194, 48, 907
1230 DATA 180, 2, 205, 33, 195, 180, 9, 205, 1009
1240 DATA 33, 195, 163, 91, 1, 184, 10, 0, 677
1250 DATA 247, 226, 247, 241, 3, 210, 59, 209, 1442
1260 DATA 114, 13, 64, 61, 10, 0, 114, 7, 383
1270 DATA 45, 10, 0, 255, 6, 91, 1, 163, 571
1280 DATA 93, 1, 195, 139, 30, 91, 1, 232, 782
1290 DATA 152, 255, 186, 15, 2, 232, 205, 255, 1302
1300 DATA 139, 22, 93, 1, 232, 190, 255, 195, 1127