Click above to get retro games delivered to your door ever month!

 curdisk()           Return the current DOS drive in character format
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func char( 1 ) curdisk extern

 Arguments
   None.

 Return
   An upper case character specifying the current drive.

 Description
   The curdisk() function returns the current DOS disk drive in character
   format. It is functionally equivalent to encoding chr( curdrive() + 'A' ).

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   proc Test_curdisk
   ? "Current drive is", curdisk()        // show the current drive
   endproc

   proc main
   Test_curdisk()
   endproc