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