How to detect if a disk is write protected

Started by Blacklord, June 12, 2006, 10:18 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Blacklord

June 12, 2006, 10:18 AM
10 OPEN15,8,15:PRINT#1,"M-R";CHR$(30);CHR$(0):GET#1,A$:CLOSE1
20 IF ASC(A$+CHR$(1))=1 THEN PRINT"DISK IS WRITE PROTECTED"
Print
Go Up Pages1
User actions