home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / GETDRIVE.ZIP / FOSE0004.PRG next >
Text File  |  1988-01-31  |  1KB  |  72 lines
  1. CLEAR
  2. CLEAR ALL
  3. SET TALK OFF
  4. SET STATUS OFF
  5. SET SCOREBOARD OFF
  6.  
  7. TEXT
  8.  
  9.  
  10. GETDRIVE.ARC contains GETDRIVE.ASM & GETDRIVE.BIN
  11.  
  12. getdrive.asm--get the current drive
  13.  
  14. syntax:
  15. memvar=' '
  16. load getdrive
  17. call getdrive with memvar
  18.  
  19. returns: capital letter of current drive
  20.  
  21.                   ******** WARNING **********
  22. I have not tested this extensively.  No guarantees or responsibility  taken.
  23. Russell Freeland
  24.  
  25. ENDTEXT
  26. WAIT
  27. CLEAR
  28.  
  29.  
  30. LOAD getdrive
  31. @ 4,5 TO 18,74 DOUBLE
  32. DO WHILE .T.
  33.   @ 19, 0 CLEAR
  34.   memvar = ' '
  35.   CALL getdrive WITH memvar
  36.   @ 10,10 SAY "The current working drive is " + memvar
  37.   @ 19,1 SAY ""
  38.   WAIT TO memwait
  39.   IF UPPER(memwait) = "X"
  40.     EXIT
  41.   ENDIF
  42.   @ 10,10 SAY SPACE(60)
  43. ENDDO
  44.  
  45. CLEAR
  46.  
  47. TEXT
  48.  
  49. LOAD getdrive
  50. @ 4,5 TO 18,74 DOUBLE
  51. DO WHILE .T.
  52.   @ 19, 0 CLEAR
  53.   memvar = ' '
  54.   CALL getdrive WITH memvar
  55.   @ 10,10 SAY "The current working drive is " + memvar
  56.   @ 19,1 SAY ""
  57.   WAIT TO memwait
  58.   IF UPPER(memwait) = "X"
  59.     EXIT
  60.   ENDIF
  61.   @ 10,10 SAY SPACE(60)
  62. ENDDO
  63.  
  64. ENDTEXT
  65. WAIT
  66.  
  67. CLEAR
  68. SET SCOREBOARD ON
  69. SET STATUS ON
  70. SET TALK ON
  71. RETURN
  72.