home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n16.zip
/
XDEL.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-12-13
|
10KB
|
139 lines
100 REM -- BASIC PROGRAM TO CREATE XDEL.COM
110 OPEN "XDEL.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 119
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 = 88160 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 245, 1, 67, 111, 112, 121, 114, 1004
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, 26, 0, 65, 84, 84, 483
350 DATA 82, 61, 0, 0, 9, 32, 44, 59, 287
360 DATA 61, 0, 0, 0, 0, 92, 0, 0, 153
370 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
380 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
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, 0, 0, 0, 0, 0, 0, 0
420 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
430 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
440 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
450 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
460 DATA 0, 0, 0, 0, 0, 0, 0, 65, 65
470 DATA 58, 42, 46, 42, 0, 0, 0, 0, 188
480 DATA 0, 0, 0, 0, 0, 0, 13, 10, 23
490 DATA 10, 72, 111, 109, 101, 32, 45, 32, 512
500 DATA 102, 105, 114, 115, 116, 32, 102, 105, 791
510 DATA 108, 101, 32, 109, 97, 116, 99, 104, 766
520 DATA 32, 32, 32, 9, 9, 9, 80, 103, 306
530 DATA 68, 110, 32, 45, 32, 110, 101, 120, 618
540 DATA 116, 32, 102, 105, 108, 101, 32, 109, 705
550 DATA 97, 116, 99, 104, 32, 13, 10, 70, 541
560 DATA 49, 32, 32, 32, 45, 32, 100, 101, 423
570 DATA 108, 101, 116, 101, 32, 108, 97, 115, 778
580 DATA 116, 32, 102, 105, 108, 101, 32, 115, 711
590 DATA 104, 111, 119, 110, 9, 9, 9, 69, 540
600 DATA 83, 67, 32, 32, 45, 32, 98, 97, 486
610 DATA 99, 107, 32, 116, 111, 32, 68, 79, 644
620 DATA 83, 13, 10, 205, 205, 205, 205, 205, 1131
630 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
640 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
650 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
660 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
670 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
680 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
690 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
700 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
710 DATA 205, 205, 205, 205, 205, 205, 205, 205, 1640
720 DATA 205, 205, 205, 13, 0, 9, 9, 9, 655
730 DATA 32, 32, 32, 32, 68, 73, 82, 69, 420
740 DATA 67, 84, 79, 82, 89, 32, 80, 85, 598
750 DATA 82, 71, 69, 32, 85, 84, 73, 76, 572
760 DATA 73, 84, 89, 13, 10, 67, 117, 114, 567
770 DATA 114, 101, 110, 116, 32, 68, 105, 114, 760
780 DATA 101, 99, 116, 111, 114, 121, 32, 58, 752
790 DATA 13, 10, 0, 16, 32, 0, 13, 10, 94
800 DATA 70, 105, 108, 101, 32, 110, 111, 116, 753
810 DATA 32, 102, 111, 117, 110, 100, 0, 13, 585
820 DATA 10, 73, 110, 118, 97, 108, 105, 100, 721
830 DATA 32, 100, 114, 105, 118, 101, 32, 47, 649
840 DATA 32, 102, 105, 108, 101, 32, 115, 112, 707
850 DATA 101, 99, 105, 102, 105, 99, 97, 116, 824
860 DATA 105, 111, 110, 13, 10, 67, 104, 97, 617
870 DATA 110, 103, 101, 32, 100, 105, 114, 101, 766
880 DATA 99, 116, 111, 114, 121, 32, 98, 101, 792
890 DATA 102, 111, 114, 101, 32, 117, 115, 105, 797
900 DATA 110, 103, 32, 88, 68, 69, 76, 0, 546
910 DATA 186, 167, 2, 232, 86, 1, 205, 32, 911
920 DATA 180, 8, 205, 16, 136, 62, 44, 1, 652
930 DATA 128, 62, 50, 1, 0, 117, 4, 136, 498
940 DATA 38, 50, 1, 252, 190, 129, 0, 191, 851
950 DATA 58, 1, 232, 237, 0, 116, 251, 78, 973
960 DATA 60, 13, 116, 12, 128, 124, 1, 58, 512
970 DATA 117, 6, 173, 36, 223, 235, 9, 144, 943
980 DATA 180, 25, 205, 33, 4, 65, 180, 58, 750
990 DATA 60, 65, 114, 188, 60, 90, 119, 184, 880
1000 DATA 171, 191, 128, 1, 171, 191, 143, 1, 997
1010 DATA 171, 44, 65, 162, 57, 1, 128, 60, 688
1020 DATA 13, 116, 25, 185, 12, 0, 232, 177, 760
1030 DATA 0, 116, 251, 60, 13, 116, 10, 60, 626
1040 DATA 92, 116, 149, 170, 73, 227, 2, 235, 1064
1050 DATA 237, 198, 5, 0, 232, 169, 0, 232, 1073
1060 DATA 23, 1, 186, 93, 2, 232, 220, 0, 757
1070 DATA 186, 147, 2, 232, 214, 0, 186, 58, 1025
1080 DATA 1, 232, 208, 0, 186, 61, 1, 232, 921
1090 DATA 202, 0, 186, 145, 1, 232, 196, 0, 962
1100 DATA 186, 158, 1, 232, 190, 0, 198, 6, 971
1110 DATA 51, 1, 0, 186, 143, 1, 185, 0, 567
1120 DATA 0, 180, 78, 205, 33, 114, 91, 186, 887
1130 DATA 158, 0, 232, 167, 0, 128, 6, 51, 742
1140 DATA 1, 1, 232, 189, 0, 60, 27, 116, 626
1150 DATA 79, 60, 59, 116, 10, 60, 71, 116, 571
1160 DATA 174, 60, 81, 116, 36, 235, 235, 81, 1018
1170 DATA 190, 158, 0, 191, 130, 1, 185, 13, 868
1180 DATA 0, 243, 164, 89, 232, 170, 0, 114, 1012
1190 DATA 9, 178, 17, 232, 141, 0, 65, 235, 877
1200 DATA 8, 144, 178, 7, 232, 132, 0, 235, 936
1210 DATA 201, 232, 90, 0, 232, 74, 0, 114, 943
1220 DATA 23, 128, 62, 51, 1, 80, 114, 175, 634
1230 DATA 232, 169, 0, 128, 46, 51, 1, 40, 667
1240 DATA 235, 165, 186, 150, 2, 232, 76, 0, 1046
1250 DATA 205, 32, 81, 87, 172, 191, 52, 1, 821
1260 DATA 185, 5, 0, 242, 174, 95, 89, 195, 985
1270 DATA 86, 180, 71, 138, 22, 57, 1, 254, 809
1280 DATA 194, 190, 62, 1, 205, 33, 42, 192, 919
1290 DATA 56, 4, 116, 11, 139, 254, 185, 64, 829
1300 DATA 0, 242, 174, 79, 176, 92, 170, 94, 1027
1310 DATA 195, 81, 186, 143, 1, 185, 0, 0, 791
1320 DATA 180, 79, 205, 33, 89, 195, 131, 249, 1161
1330 DATA 16, 115, 8, 178, 32, 232, 27, 0, 608
1340 DATA 65, 235, 243, 195, 86, 82, 43, 201, 1150
1350 DATA 139, 242, 138, 20, 128, 250, 0, 116, 1033
1360 DATA 7, 232, 7, 0, 70, 65, 235, 242, 858
1370 DATA 90, 94, 195, 80, 180, 2, 205, 33, 879
1380 DATA 88, 195, 180, 0, 205, 22, 60, 27, 777
1390 DATA 116, 6, 60, 0, 117, 244, 134, 224, 901
1400 DATA 195, 186, 128, 1, 180, 65, 205, 33, 993
1410 DATA 195, 180, 2, 138, 62, 44, 1, 186, 808
1420 DATA 0, 0, 205, 16, 138, 62, 50, 1, 472
1430 DATA 184, 0, 6, 185, 0, 0, 186, 80, 641
1440 DATA 24, 205, 16, 195, 180, 2, 138, 62, 822
1450 DATA 44, 1, 186, 0, 15, 205, 16, 138, 605
1460 DATA 62, 50, 1, 184, 8, 6, 185, 0, 496
1470 DATA 7, 186, 80, 24, 205, 16, 195, 0, 713