home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
disk_20.zip
/
GETDRIVE.ZIP
/
FOSE0004.PRG
next >
Wrap
Text File
|
1988-01-31
|
1KB
|
72 lines
CLEAR
CLEAR ALL
SET TALK OFF
SET STATUS OFF
SET SCOREBOARD OFF
TEXT
GETDRIVE.ARC contains GETDRIVE.ASM & GETDRIVE.BIN
getdrive.asm--get the current drive
syntax:
memvar=' '
load getdrive
call getdrive with memvar
returns: capital letter of current drive
******** WARNING **********
I have not tested this extensively. No guarantees or responsibility taken.
Russell Freeland
ENDTEXT
WAIT
CLEAR
LOAD getdrive
@ 4,5 TO 18,74 DOUBLE
DO WHILE .T.
@ 19, 0 CLEAR
memvar = ' '
CALL getdrive WITH memvar
@ 10,10 SAY "The current working drive is " + memvar
@ 19,1 SAY ""
WAIT TO memwait
IF UPPER(memwait) = "X"
EXIT
ENDIF
@ 10,10 SAY SPACE(60)
ENDDO
CLEAR
TEXT
LOAD getdrive
@ 4,5 TO 18,74 DOUBLE
DO WHILE .T.
@ 19, 0 CLEAR
memvar = ' '
CALL getdrive WITH memvar
@ 10,10 SAY "The current working drive is " + memvar
@ 19,1 SAY ""
WAIT TO memwait
IF UPPER(memwait) = "X"
EXIT
ENDIF
@ 10,10 SAY SPACE(60)
ENDDO
ENDTEXT
WAIT
CLEAR
SET SCOREBOARD ON
SET STATUS ON
SET TALK ON
RETURN