Par2: Detecting Drive A: 2002-09-04 -- Jeff Slarve Map
Module('')
SetErrorMode(UNSIGNED),UNSIGNED,PASCAL,PROC
end
end
Code
SetErrorMode(1) !Get control from Windows
SetPath( YourFloppyDrive & ':\' )
IF ~ErrorCode()
!There's a disk
end
SetErrorMode(0) !Return Control to Windows
Printed April 3, 2025, 12:05 am This article has been viewed/printed 35395 times. |