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 1, 2025, 11:19 pm This article has been viewed/printed 35393 times. |