head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	95.11.30.21.48.02;	author SYSTEM;	state Exp;
branches;
next	;


desc
@base release
@


1.1
log
@Initial revision
@
text
@DEFM P1,P2                                                                      
;  CD  -  A macro used to change to any available directory on the              
;        system.  Up to two arguments can be used, the volume name              
;        and the directory name.  If only one argument is used, it is           
;        taken as the directory name.  If two are used, the first is            
;        the volume and the second is the directory.                            
IFA %P1 GOHOME                                                                  
IFA %P2 DIRONLY                                                                 
CHANGE DIRECTORY   @@%P1;(%P2;)                                                  
GOTO ENDCD                                                                      
%DIRONLY                                                                        
CHANGE DIRECTORY ^%P1                                                           
CLEAR                                                                           
GOTO ENDCD                                                                      
%GOHOME                                                                         
CHANGE DIRECTORY                                                                
%ENDCD                                                                          
PWD                                                                             
@
