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


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


desc
@base release
@


1.1
log
@Initial revision
@
text
@DEFM DIRNAME                                                                    
;  C2  -  A macro used to go to any available directory located in the          
;        NASA2 volume.  It requires one argument which is the directory         
;        on NASA2 that the user wishes to go to.                                
IFP %DIRNAME OK2GO                                                              
$NOTE TO WHAT DIRECTORY NAME ??--->                                             
$SET %DIRNAME                                                                   
$DEFNAME OK2GO                                                                  
CHANGE DIRECTORY   @@NASA2(%DIRNAME;)                                            
%ENDCD                                                                          
PWD                                                                             
CLEAR                                                                           
@
