.ENABLE SUBSTITUTION ; ; LZYCLI installation ; .ENABLE QUIET .; .SETS CURCLI DCL SET TERM CLI:DCL SET TERM WRAP .; .; Get the directory where LZYCLI will put its data files .; .DISABLE QUIET ; The next question will prompt you for the directory where LZYCLI ; is to put its data files. Please enter the directory name only with ; no device specification (i.e. [200,100] ). ; .SETS DIRNAM .ASKS [3:11:"'DIRNAM'"] DIRNAM Directory for data files .OPEN #1 LZYDEF.DEF .DATA #1 CHARACTER*11 ADIRCT .DATA #1 DATA ADIRCT /'''DIRNAM'''/ .CLOSE #1 .; .; Build LZYCLI's .TKB file .; .ASKS [10:33:"LB:[1,1]F4POTS.OLB"] F77LIB File spec of the FORTRAN object library .ASK RLB Do you have a FORTRAN resident library .SETS F77RLB " " .IFT RLB .ASKS F77RLB File spec of the resident library .PARSE F77RLB "." F77RLB JUNK .; .OPEN #1 LZYTKB.TKB .DATA #1 LZYCLI/PR:0=LZYCLI,'F77LIB'/LB .DATA #1 / .IFT RLB .DATA #1 RESLIB='F77RLB'/RO .DATA #1 TASK=...LZY .DATA #1 pri=100 .DATA #1 ACTFIL=2 .DATA #1 MAXBUF=2048 .DATA #1 // .CLOSE #1 .; FORTRAN/F77 LZYCLI.FTN/LIST/OBJ=LZYCLI LINK @LZYTKB.TKB ; ; Compile and Link complete... ; .; .ASK ACTIVT INSTAL Do you want to activate LZYCLI .IFF ACTIVT .GOTO RESTOR ; ; LZYCLI uses the logical device LZ0: to point to the device which ; contains the directory 'DIRNAM'. ; .ASKS [3:5:"LB00"] LOGDEV Which device should LZ0: point to .PARSE LOGDEV ":" LOGDEV JUNK ;'LOGDEV' AND 'JUNK' DCL MCR ASN LZ0:='LOGDEV'/GBL .IFNINS UFD INS $UFD UFD LZ0:'DIRNAM' @LZYINS SET TERM CLI:LZYCLI .GOTO EXIT .RESTOR: .IF CURCLI NE DCL SET TERM CLI:'CURCLI' .EXIT: .EXIT