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 May 9, 2024, 4:23 pm This article has been viewed/printed 35114 times. |