Commodore 128 Alive!

Commodore 128 => Tips & tricks => Topic started by: Blacklord on June 12, 2006, 10:18 AM

Title: How to detect if a disk is write protected
Post by: Blacklord on 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"

Text only | Text with Images