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 5, 2024, 5:34 pm This article has been viewed/printed 35111 times. |