'===========================================================================
' Subject: GET BACK TO ROOT DIRECTORY         Date: 07-24-96 (11:26)       
'  Author: Scott Turchin                      Code: QB, QBasic, PDS        
'  Origin: nitehawk@tscnet.com              Packet: FAQS.ABC
'===========================================================================
I once needed a simple but effective way to return to my programs root 
directory each time I returned from a shell, rather than type it out 
each and every time (there are 4 shells in my program) I made this happy 
little subroutine...However, Somewhere in the beginning of the program 
this must be performed:
Here$=Curdir
Drive$=LEFT$(CURDIR,1)


SUB GETBACK( HERE$, DRIVE$ ) PUBLIC
  CHDRIVE DRIVE$
  CHDIR HERE$
END SUB

Very Very simple, but effective...