home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Supreme Volume 6 #1
/
swsii.zip
/
swsii
/
165
/
PROTDISK.ZIP
/
PROTECT.DOC
< prev
Wrap
Text File
|
1987-07-20
|
1KB
|
25 lines
10 REM PROTECT.BAS VERSION 1.0 08-28-84
20 REM A PROGRAM TO WRITE PROTECT AN MS-DOS 2.1 HARD DISK
30 REM THIS BASIC PROGRAM WILL CREATE A .COM FILE
40 PRINT:PRINT:INPUT "INPUT THE NAME OF THE COM FILE TO CREATE";F$
50 SUM=0:READ CHECKSUM
60 X = 89
70 FOR N= 1 TO X :READ K: SUM=SUM+K:NEXT
80 IF SUM<>CHECKSUM THEN PRINT "ERROR, CHECK DATA":END
90 RESTORE :READ K
100 OPEN "r",1,F$,1
110 FIELD 1, 1 AS X$
120 FOR I=1 TO X :READ K:LSET X$=CHR$(K) :PUT 1:NEXT
130 CLOSE:PRINT "***** ";F$ " SUCCESSFULLY CREATEED ******"
140 DATA 8012
150 DATA 235,26,0,0,0,0,128,252,3,117
160 DATA 12,128,250,3,118,7,184,0,3,249
170 DATA 202,2,0,46,255,46,2,1,187,76
180 DATA 0,184,0,0,142,192,38,139,71,2
190 DATA 38,139,31,142,192,139,251,190,6,1
200 DATA 185,8,0,243,166,117,4,180,76,205
210 DATA 33,137,30,2,1,140,6,4,1,186
220 DATA 6,1,184,19,37,205,33,186,28,1
230 DATA 177,4,211,234,66,180,49,205,33,0