home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n10.zip
/
PUSHDIR.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-03-03
|
7KB
|
111 lines
100 REM -- BASIC PROGRAM TO CREATE pushdir.COM
110 OPEN "pushdir.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I% = 1 TO 91
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 = 30304 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 52, 2, 67, 111, 112, 121, 114, 812
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, 80, 85, 83, 72, 570
350 DATA 68, 73, 82, 32, 86, 69, 82, 83, 575
360 DATA 73, 79, 78, 32, 49, 46, 48, 0, 405
370 DATA 0, 0, 0, 69, 1, 0, 0, 0, 70
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, 0, 0
470 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
480 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
490 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
500 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
510 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
520 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
530 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
540 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
550 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
560 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
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, 0, 0, 0, 0, 0, 0, 0, 0
610 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
620 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
630 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
640 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
650 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
660 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
670 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
680 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
690 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
700 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
710 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
720 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
730 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
740 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
750 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
760 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
770 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
780 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
790 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
800 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
810 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
820 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
830 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
840 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
850 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
860 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
870 DATA 0, 0, 0, 0, 0, 0, 0, 156, 156
880 DATA 61, 136, 119, 116, 6, 157, 46, 255, 896
890 DATA 46, 63, 1, 129, 251, 137, 119, 117, 863
900 DATA 244, 6, 87, 81, 191, 44, 1, 185, 839
910 DATA 19, 0, 243, 166, 89, 95, 7, 117, 736
920 DATA 228, 14, 31, 147, 157, 207, 1, 69, 854
930 DATA 114, 114, 111, 114, 32, 114, 101, 97, 797
940 DATA 100, 105, 110, 103, 32, 116, 104, 101, 771
950 DATA 32, 99, 117, 114, 114, 101, 110, 116, 803
960 DATA 32, 100, 105, 114, 101, 99, 116, 111, 778
970 DATA 114, 121, 46, 36, 80, 85, 83, 72, 637
980 DATA 68, 73, 82, 32, 105, 110, 115, 116, 701
990 DATA 97, 108, 108, 101, 100, 46, 36, 251, 847
1000 DATA 184, 136, 119, 187, 137, 119, 190, 44, 1116
1010 DATA 1, 205, 22, 129, 251, 136, 119, 117, 980
1020 DATA 11, 61, 137, 119, 117, 6, 46, 198, 695
1030 DATA 6, 254, 2, 0, 139, 54, 67, 1, 523
1040 DATA 131, 198, 3, 178, 0, 180, 71, 205, 966
1050 DATA 33, 114, 48, 180, 25, 205, 33, 4, 642
1060 DATA 65, 136, 68, 253, 198, 68, 254, 58, 1100
1070 DATA 198, 68, 255, 92, 129, 62, 67, 1, 872
1080 DATA 148, 2, 116, 7, 131, 6, 67, 1, 478
1090 DATA 67, 235, 6, 199, 6, 67, 1, 69, 650
1100 DATA 1, 46, 128, 62, 254, 2, 1, 116, 610
1110 DATA 11, 205, 32, 186, 255, 2, 180, 9, 880
1120 DATA 205, 33, 205, 32, 14, 31, 6, 184, 710
1130 DATA 22, 53, 205, 33, 137, 30, 63, 1, 544
1140 DATA 140, 6, 65, 1, 7, 186, 215, 2, 622
1150 DATA 184, 22, 37, 205, 33, 186, 36, 3, 706
1160 DATA 180, 9, 205, 33, 161, 44, 0, 142, 774
1170 DATA 192, 180, 73, 205, 33, 186, 254, 2, 1125
1180 DATA 131, 194, 15, 177, 4, 211, 234, 184, 1150
1190 DATA 0, 49, 205, 33, 0, 0, 0, 0, 287