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 November 21, 2024, 6:44 am This article has been viewed/printed 35317 times. |