!******************************************************!                        
!     File Name : L15CT_PROV_D0USER.LNK                !                        
!     Generated by the Program Builder                 !                        
!      1-DEC-94 18:16:01                               !                        
!******************************************************!                        
$ TASK = "L15CT_PROV"                                                           
$ DefDir = "MSUTRGROOT:[000000.TRG_OFFLINE.SOURCE_L15CT_PROV]"                  
$ pgbd_sources_object = DefDir + "'DEB'L15CT_PROV_D0USER.OBJ,"                  
$ SHO SYMB pgbd_sources_object                                                  
$ user_libraries = -                                                            
DefDir + "'DEB'L15CT_PROV_D0USER.OPT/OPT,"                                      
$ Verify_Mode = f$verify(1)                                                     
$ !                                                                             
$ ! Program_builder must be used to generate interfaces                         
$ ! and to specify the task, this command file will not work otherwise.         
$ !                                                                             
$ !  specify DEBUG if you want debug version                                    
$ !  specify DI3000 if you want to use DI3000 graphics                          
$ !                                                                             
$ SET NOVERIFY                                                                  
$ ON ERROR THEN GOTO CLEANUP                                                    
$ ON CONTROL_Y THEN GOTO CLEANUP                                                
$ !    select options                                                           
$ gosub link_flags                                                              
$ !                                                                             
$ IF DI3000_FLAG THEN GOTO DI3000                                               
$ NODI3000:                                                                     
$ SET VERIFY                                                                    
$ SHOW SYMB TASK                                                                
$ SHOW SYMB DEB                                                                 
$ LINK'SWIT'/NOMAP/EXE='TASK'_'DEB'D0USER -                                     
'pgbd_sources_object'-        ! see top of file on how to insert additional     
'user_libraries'-             ! objects and libraries                           
D0$D0USER:'DEB'FRAME/INCLUDE=(D0USER)/L,-                                       
D0$UTIL:'DEB''EMUOPT'UTIL4/OPT,-                                                
'CERN'                                                                          
$ GOTO END                                                                      
$ DI3000:                                                                       
$ SET NOVERIFY                                                                  
$DI3LOAD -                                                                      
'pgbd_sources_object'-        ! see top of file on how to insert additional     
'user_libraries'-             ! objects and libraries                           
D0$D0USER:'DEB'FRAME/INCLUDE=(D0USER)/L,-                                       
D0$UTIL:'DEB'DI3000_UTIL4/OPT,-                                                 
'CERNDI3' -                                                                     
SHARE 'SWIT'/NOMAP/EXE='TASK'_'DEB'D0USER                                       
$ END:                                                                          
$CLEANUP:                                                                       
$ Verify_Mode = f$verify(Verify_Mode)                                           
$ EXIT                                                                          
$ !                                                                             
$ !     sublevel to select options                                              
$Link_Flags:                                                                    
$ CERN="''CERNP'"                                                               
$ DI3000_FLAG = "FALSE"                                                         
$ DEB = ""                                                                      
$ IF P1 .EQS. "DI3000" .OR. P2 .EQS. "DI3000" THEN-                             
  DI3000_FLAG = "TRUE"                                                          
$ IF P1 .EQS. "DEBUG" .OR. P2 .EQS. "DEBUG" THEN-                               
  DEB = "DEB_"                                                                  
$ EMUOPT = ""                                                                   
$ IF P1 .EQS. "UISDI3" .OR. P2 .EQS. "UISDI3"                                   
$ THEN                                                                          
$   CERN="''CERNUIS'"                                                           
$   EMUOPT = "UISDI3_"                                                          
$ ENDIF                                                                         
$ IF P1 .EQS. "EASDI3" .OR. P2 .EQS. "EASDI3"                                   
$ THEN                                                                          
$    CERN="''CERNEAS'"                                                          
$    EMUOPT = "EASDI3_"                                                         
$ ENDIF                                                                         
$ SWIT = ""                                                                     
$ IF P1 .EQS. "DEBUG" .OR. P2 .EQS. "DEBUG" THEN-                               
   SWIT = "/DEBUG"                                                              
$ RETURN