home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol6n05.zip
/
ASC.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-12
|
12KB
|
167 lines
100 REM -- BASIC PROGRAM TO CREATE ASC.COM
110 OPEN "ASC.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 147
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 = 117531 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 29, 4, 67, 111, 112, 121, 114, 791
300 DATA 105, 103, 104, 116, 32, 49, 57, 56, 622
310 DATA 54, 32, 90, 105, 102, 102, 45, 68, 598
320 DATA 97, 118, 105, 115, 32, 80, 117, 98, 762
330 DATA 108, 105, 115, 104, 105, 110, 103, 32, 782
340 DATA 67, 111, 46, 80, 114, 111, 103, 114, 746
350 DATA 97, 109, 109, 101, 100, 32, 98, 121, 767
360 DATA 32, 74, 101, 102, 102, 32, 80, 114, 637
370 DATA 111, 115, 105, 115, 101, 32, 73, 66, 718
380 DATA 77, 2, 0, 184, 0, 15, 31, 30, 339
390 DATA 1, 3, 0, 0, 0, 0, 0, 0, 4
400 DATA 0, 0, 32, 5, 44, 40, 45, 41, 207
410 DATA 0, 42, 46, 30, 32, 68, 101, 99, 418
420 DATA 32, 72, 101, 120, 32, 67, 104, 97, 625
430 DATA 114, 32, 32, 68, 101, 99, 32, 72, 550
440 DATA 101, 120, 32, 67, 104, 97, 114, 32, 667
450 DATA 46, 128, 62, 83, 1, 0, 117, 31, 468
460 DATA 251, 80, 83, 81, 82, 86, 87, 30, 780
470 DATA 6, 228, 96, 60, 30, 117, 8, 180, 725
480 DATA 2, 205, 22, 168, 8, 117, 13, 7, 542
490 DATA 31, 95, 94, 90, 89, 91, 88, 46, 624
500 DATA 255, 46, 86, 1, 232, 74, 1, 14, 709
510 DATA 31, 14, 7, 180, 15, 205, 16, 60, 528
520 DATA 2, 116, 17, 60, 3, 116, 13, 60, 387
530 DATA 7, 116, 9, 7, 31, 95, 94, 90, 449
540 DATA 89, 91, 88, 207, 136, 62, 76, 1, 750
550 DATA 198, 6, 83, 1, 1, 180, 3, 205, 677
560 DATA 16, 137, 14, 84, 1, 180, 1, 181, 614
570 DATA 32, 205, 16, 128, 62, 73, 1, 0, 517
580 DATA 117, 3, 232, 239, 0, 139, 62, 90, 882
590 DATA 1, 232, 130, 0, 232, 183, 1, 128, 907
600 DATA 62, 73, 1, 0, 117, 3, 232, 234, 722
610 DATA 0, 232, 84, 1, 180, 0, 205, 22, 724
620 DATA 60, 0, 116, 46, 60, 27, 117, 244, 670
630 DATA 128, 62, 73, 1, 0, 117, 3, 232, 616
640 DATA 194, 0, 139, 54, 90, 1, 232, 129, 839
650 DATA 0, 128, 62, 73, 1, 0, 117, 3, 384
660 DATA 232, 192, 0, 180, 1, 139, 14, 84, 842
670 DATA 1, 205, 16, 198, 6, 83, 1, 0, 510
680 DATA 235, 137, 128, 252, 72, 117, 5, 232, 1178
690 DATA 26, 2, 235, 192, 128, 252, 80, 117, 1032
700 DATA 5, 232, 217, 1, 235, 182, 128, 252, 1252
710 DATA 73, 117, 5, 232, 59, 2, 235, 172, 895
720 DATA 128, 252, 81, 117, 5, 232, 83, 2, 900
730 DATA 235, 162, 128, 252, 79, 117, 5, 232, 1210
740 DATA 126, 2, 235, 152, 128, 252, 71, 117, 1083
750 DATA 3, 232, 97, 2, 235, 142, 138, 54, 903
760 DATA 80, 1, 138, 22, 81, 1, 138, 30, 491
770 DATA 76, 1, 50, 255, 87, 232, 64, 0, 765
780 DATA 139, 247, 95, 30, 142, 30, 74, 1, 758
790 DATA 185, 19, 0, 252, 81, 185, 30, 0, 752
800 DATA 243, 165, 131, 198, 100, 89, 226, 244, 1396
810 DATA 31, 195, 138, 54, 80, 1, 138, 22, 659
820 DATA 81, 1, 138, 30, 76, 1, 50, 255, 632
830 DATA 232, 21, 0, 142, 6, 74, 1, 185, 661
840 DATA 19, 0, 252, 81, 185, 30, 0, 243, 810
850 DATA 165, 131, 199, 100, 89, 226, 244, 195, 1349
860 DATA 176, 160, 246, 230, 208, 226, 50, 246, 1542
870 DATA 3, 194, 139, 248, 184, 0, 16, 247, 1031
880 DATA 227, 3, 248, 195, 186, 218, 3, 236, 1316
890 DATA 168, 8, 116, 251, 131, 234, 2, 176, 1086
900 DATA 37, 238, 195, 180, 15, 205, 16, 141, 1027
910 DATA 30, 92, 1, 215, 186, 216, 3, 238, 981
920 DATA 195, 228, 97, 138, 224, 12, 128, 230, 1252
930 DATA 97, 138, 196, 230, 97, 250, 176, 32, 1216
940 DATA 230, 32, 251, 195, 80, 51, 201, 50, 1090
950 DATA 228, 246, 243, 80, 65, 50, 228, 10, 1150
960 DATA 192, 117, 246, 88, 138, 196, 12, 48, 1037
970 DATA 60, 57, 118, 2, 4, 7, 138, 38, 424
980 DATA 78, 1, 232, 6, 0, 254, 194, 226, 991
990 DATA 234, 88, 195, 82, 80, 138, 30, 76, 923
1000 DATA 1, 50, 255, 232, 138, 255, 128, 62, 1121
1010 DATA 73, 1, 0, 117, 14, 186, 218, 3, 612
1020 DATA 236, 168, 1, 117, 251, 250, 236, 168, 1427
1030 DATA 1, 116, 251, 88, 171, 251, 90, 195, 1163
1040 DATA 138, 54, 80, 1, 128, 198, 2, 160, 761
1050 DATA 82, 1, 185, 16, 0, 81, 138, 22, 525
1060 DATA 81, 1, 128, 194, 2, 232, 16, 0, 654
1070 DATA 128, 194, 5, 4, 16, 232, 8, 0, 587
1080 DATA 44, 15, 254, 198, 89, 226, 230, 195, 1251
1090 DATA 142, 6, 74, 1, 60, 100, 115, 8, 506
1100 DATA 254, 194, 60, 10, 115, 2, 254, 194, 1083
1110 DATA 179, 10, 232, 119, 255, 128, 194, 2, 1119
1120 DATA 60, 16, 115, 2, 254, 194, 179, 16, 836
1130 DATA 232, 105, 255, 128, 194, 2, 138, 38, 1092
1140 DATA 78, 1, 232, 134, 255, 195, 138, 54, 1087
1150 DATA 80, 1, 138, 22, 81, 1, 142, 6, 471
1160 DATA 74, 1, 252, 138, 30, 76, 1, 50, 622
1170 DATA 255, 232, 4, 255, 176, 218, 138, 38, 1316
1180 DATA 77, 1, 171, 185, 28, 0, 176, 196, 834
1190 DATA 243, 171, 176, 191, 171, 131, 199, 100, 1382
1200 DATA 176, 179, 171, 141, 54, 100, 1, 185, 1007
1210 DATA 28, 0, 138, 38, 79, 1, 172, 171, 627
1220 DATA 226, 252, 138, 38, 77, 1, 176, 179, 1087
1230 DATA 171, 131, 199, 100, 185, 16, 0, 81, 883
1240 DATA 176, 179, 138, 38, 77, 1, 171, 176, 956
1250 DATA 32, 138, 38, 78, 1, 185, 28, 0, 500
1260 DATA 243, 171, 176, 179, 138, 38, 77, 1, 1023
1270 DATA 171, 131, 199, 100, 89, 226, 224, 176, 1316
1280 DATA 192, 171, 185, 28, 0, 176, 196, 243, 1191
1290 DATA 171, 176, 217, 171, 195, 128, 62, 82, 1202
1300 DATA 1, 224, 116, 47, 180, 6, 176, 1, 751
1310 DATA 232, 214, 0, 138, 62, 78, 1, 205, 930
1320 DATA 16, 254, 6, 82, 1, 160, 82, 1, 602
1330 DATA 4, 15, 138, 54, 80, 1, 128, 198, 618
1340 DATA 17, 138, 22, 81, 1, 128, 194, 2, 583
1350 DATA 232, 45, 255, 4, 16, 128, 194, 5, 879
1360 DATA 232, 37, 255, 195, 128, 62, 82, 1, 992
1370 DATA 0, 116, 45, 180, 7, 176, 1, 232, 757
1380 DATA 159, 0, 138, 62, 78, 1, 205, 16, 659
1390 DATA 254, 14, 82, 1, 160, 82, 1, 138, 732
1400 DATA 54, 80, 1, 128, 198, 2, 138, 22, 623
1410 DATA 81, 1, 128, 194, 2, 232, 248, 254, 1140
1420 DATA 4, 16, 128, 194, 5, 232, 240, 254, 1073
1430 DATA 195, 128, 62, 82, 1, 0, 116, 26, 610
1440 DATA 128, 62, 82, 1, 31, 119, 8, 198, 629
1450 DATA 6, 82, 1, 0, 235, 6, 144, 128, 602
1460 DATA 46, 82, 1, 32, 232, 76, 0, 232, 701
1470 DATA 166, 254, 195, 128, 62, 82, 1, 224, 1112
1480 DATA 116, 26, 128, 62, 82, 1, 193, 114, 722
1490 DATA 8, 198, 6, 82, 1, 224, 235, 6, 760
1500 DATA 144, 128, 6, 82, 1, 32, 232, 42, 667
1510 DATA 0, 232, 132, 254, 195, 128, 62, 82, 1085
1520 DATA 1, 0, 116, 11, 198, 6, 82, 1, 415
1530 DATA 0, 232, 23, 0, 232, 113, 254, 195, 1049
1540 DATA 128, 62, 82, 1, 224, 116, 11, 198, 822
1550 DATA 6, 82, 1, 224, 232, 4, 0, 232, 781
1560 DATA 94, 254, 195, 180, 6, 176, 0, 232, 1137
1570 DATA 7, 0, 138, 62, 78, 1, 205, 16, 507
1580 DATA 195, 138, 46, 80, 1, 128, 197, 2, 787
1590 DATA 138, 14, 81, 1, 128, 193, 2, 139, 696
1600 DATA 209, 128, 198, 15, 128, 194, 25, 195, 1092
1610 DATA 184, 0, 192, 142, 192, 191, 30, 0, 931
1620 DATA 141, 54, 70, 1, 185, 3, 0, 252, 706
1630 DATA 243, 166, 116, 17, 198, 6, 73, 1, 820
1640 DATA 0, 180, 15, 205, 16, 60, 7, 117, 600
1650 DATA 4, 254, 6, 73, 1, 60, 7, 116, 521
1660 DATA 4, 60, 15, 117, 21, 129, 46, 74, 466
1670 DATA 1, 0, 8, 198, 6, 77, 1, 112, 403
1680 DATA 198, 6, 78, 1, 7, 198, 6, 79, 573
1690 DATA 1, 7, 185, 13, 12, 60, 7, 116, 401
1700 DATA 7, 60, 15, 116, 3, 185, 7, 6, 399
1710 DATA 180, 1, 205, 16, 180, 53, 176, 9, 820
1720 DATA 205, 33, 137, 30, 86, 1, 140, 6, 638
1730 DATA 88, 1, 180, 37, 176, 9, 141, 22, 654
1740 DATA 128, 1, 205, 33, 186, 148, 9, 205, 915
1750 DATA 39, 0, 0, 0, 0, 0, 0, 0, 39