.IFDF <UIC> .GOTO INDOK
;
; You are running on a pre-version 3.1 system and have little
;  hope of successfully running this command file.  Sorry.
;
/
.INDOK:
.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.ENABLE GLOBAL
.ENABLE LOWERCASE
.SETF $L
.SETS VRSN "34F"
;
; Video TECO System building command file
;
; VTECO Version 'VRSN'
;
;
;       Bruce Bernstein
;       General Electric Corporate Research and Development
;
;       August 18, 1980    20:38:00
;
.ASK VAX Are you installing VTECO on a VAX-11
.SETT PIPINS
.SETT MACINS
.SETT TKBINS
.SETT LBRINS
.IFT VAX .GOTO VX1
.SETF PIPINS
.SETF MACINS
.SETF TKBINS
.SETF LBRINS
.IFINS ...PIP .SETT PIPINS
.IFINS ...MAC .SETT MACINS
.IFINS ...TKB .SETT TKBINS
.IFINS ...LBR .SETT LBRINS
.VX1:	.SETS UIC <UIC>
.SETF V32
.SETF DBUG
.SETF LISTC
.SETF MACR
.SETF MPLUS
;
.IFT VAX ; VAX/VMS version using RSX-11M emulation
.IFT VAX .GOTO NLS1
.IFDF <DATE> .SETT V32
.IFF V32 ; RSX-11M version 3.1
.IFF V32 .GOTO NLS1
.IF <SYSTEM> = 6 .SETT MPLUS
.IFT V32 .IFF MPLUS ; RSX-11M version 3.2
.IFT V32 .IFT MPLUS ; RSX-11M PLUS version 1.0
;
; Build started on '<DATE>' at '<TIME>'
;
.SETF DCLCLI
.IF <CLI> = "DCL" .SETT DCLCLI
.IFT DCLCLI set terminal mcr
.IFNDF P1 .GOTO NLS1
.IF P1 EQ "" .GOTO NLS1
.SETF PERR
.SETS P1 P1[1:3]
.IF P1 EQ "DEB" .SETT DBUG
.IF P1 EQ "LIS" .SETT LISTC
.IF P1 EQ "MAC" .SETT MACR
.IFF DBUG .IFF LISTC .IFF MACR .SETT PERR
.IFF PERR .GOTO NOPERR
;
; ERROR - Illegal option specification
;
.STOP
.NOPERR:
.IFF MACR .GOTO MACR1
;
; Macros only
;
.GOTO MACSSS
.MACR1:
.IFF DBUG .GOTO NV1
.SETF DLTF
;
; Debug version
;
.NV1:
.IFF LISTC .GOTO NLS1
;
; Listings only
;
.NLS1:
.OPEN vtecpre.mac
.ENABLE DATA
.iif	ndf	l$$ist, .nlist
;
; Prefix file for RSX-11M/VMS Video Teco
;
; Version 'VRSN'
;
.DISABLE DATA
.IFF V32 .GOTO NV2
.DATA ; Created on '<DATE>' at '<TIME>'
.DATA ;
.NV2:
.IFT VAX .SETT SOB
.IFT MPLUS .SETT SOB
.IFT VAX .SETT EIS
.IFT MPLUS .SETT EIS
.IFT VAX .SETF MUSE
.IFT MPLUS .SETF MUSE
.IFNDF SOB .ASK SOB Does your system include the SOB instruction
.IFT SOB .DATA i$$sob	=	0		; Enable hardware SOB
.IFNDF EIS .ASK EIS Does your system include hardware multiply (EIS) support
.IFT EIS .DATA i$$mul	=	0		; Enable hardware multiply
.IFNDF MUSE .ASK MUSE Do you want to build the multi-user version of VTECO
.IFT MUSE .DATA mu$tec	=	0		; Multi-user version
.IFT DBUG .DATA d$$bug	=	0		; Debug version
.CLOSE
.IFF PIPINS ins $pip
.IFT V32 pip .obs/re/nm=teco.obj,swpfls.obj,prsfnd.obj
.IFF V32 pip .obs/re=teco.obj,swpfls.obj,prsfnd.obj
pip vtecpre.mac/ap=tecpre.mac
.IFT V32 pip *.obj;*/de/nm
.IFF V32 pip *.obj;*/de
.IFF PIPINS rem ...pip
.IFNDF DLTF .ASK DLTF Delete temporary files after use
@lstspl
.SETF FCS
.SETF ROL
.SETS RESL ""
.SETF SUPL
.IFT VAX .GOTO NFCS
.ASK FCS Does your system include a resident FCS library
.IFF FCS .GOTO NFCS
.ASKS RESL What is the name of the resident library?
.IFF MPLUS .IFT MUSE .ASK ROL Is it a memory resident overlayed library
.IFT MPLUS .ASK SUPL Is it a supervisor mode library
.NFCS:
.OPEN vtecmc.cmd
.ENABLE DATA
;
; Command file to assemble Video TECO V34
;
.DISABLE DATA
.IFF V32 .GOTO NV3
.DATA ; Created on '<DATE>' at '<TIME>'
.DATA ;
.NV3:
.ENABLE DATA
tecoio,'$LD':tecoio'$SL'=vtecpre,tecoio
tecini,'$LD':tecini'$SL'=vtecpre,tecini
cclcmd,'$LD':cclcmd'$SL'=vtecpre,cclcmd
exsrv,'$LD':exsrv'$SL'=vtecpre,exsrv
exit,'$LD':exit'$SL'=vtecpre,exit
getput,'$LD':getput'$SL'=vtecpre,getput
getfls,'$LD':getfls'$SL'=vtecpre,getfls
indcls,'$LD':indcls'$SL'=vtecpre,indcls
inderr,'$LD':inderr'$SL'=vtecpre,inderr
errors,'$LD':errors'$SL'=vtecpre,errors
tiast,'$LD':tiast'$SL'=vtecpre,tiast
listen,'$LD':listen'$SL'=vtecpre,listen
rubout,'$LD':rubout'$SL'=vtecpre,rubout
ttyout,'$LD':ttyout'$SL'=vtecpre,ttyout
gblcha,'$LD':gblcha'$SL'=vtecpre,gblcha
a3acha,'$LD':a3acha'$SL'=vtecpre,a3acha
a42cha,'$LD':a42cha'$SL'=vtecpre,a42cha
v52cha,'$LD':v52cha'$SL'=vtecpre,v52cha
v1hcha,'$LD':v1hcha'$SL'=vtecpre,v1hcha
ivtcha,'$LD':ivtcha'$SL'=vtecpre,ivtcha
elicha,'$LD':elicha'$SL'=vtecpre,elicha
screen,'$LD':screen'$SL'=vtecpre,screen
inschr,'$LD':inschr'$SL'=vtecpre,inschr
.DISABLE DATA
.IFT MUSE .DATA vtxini,'$LD':vtxini'$SL'=vtecpre,vtxini
.IFT MUSE .DATA vtxldr,'$LD':vtxldr'$SL'=vtecpre,vtxldr
.CLOSE
.IFF V32 .GOTO NV5
;
; Assembly started at '<TIME>'
;
.NV5:
.IFF MACINS .IFF MPLUS ins $bigmac
.IFF MACINS .IFT MPLUS .IFF SUPL ins $macbig
.IFF MACINS .IFT MPLUS .IFT SUPL ins $macfsl
mac @vtecmc
.IFF MACINS rem ...mac
.IFF V32 .GOTO NV6
;
; Assembly ended at '<TIME>'
;
.NV6:
.IFF PIPINS ins $pip
.IFT DLTF pip vtecmc.cmd;*/de,vtecpre.mac;*
pip vtec.obs=*.obj
.IFT V32 pip *.obj;*/de/nm,tec.olb;*
.IFF V32 pip *.obj;*/de,tec.olb;*
.IFF LBRINS ins $lbr
lbr tec/cr=teco.obs,swpfls.obs,prsfnd.obs,vtec.obs
.IFF LBRINS rem ...lbr
pip vtec.obs;*/de
.IFT MUSE .GOTO MU10
.OPEN vtecbl.odl
.ENABLE DATA
;
; VTECBL.ODL file to build Video TECO
;
.DISABLE DATA
.IFF MPLUS .DATA ;  Non-multiuser RSX-11M version
.IFT MPLUS .DATA ;  RSX-11M PLUS version
.DATA ;
.IFF V32 .GOTO NV6A
.DATA ;  Created on '<DATE>' at '<TIME>'
.DATA ;
.NV6A:
.ENABLE DATA
	.ROOT	ROOT-*(OV1,OV2),COTRE1
	.PSECT	ER$TXT,D,RO,GBL
ROOT:	.FCTR	TEC/LB:TECO:TECOIO:TTYOUT:TIAST:EXIT:SCREEN:ERRORS-DATA-ER$TXT
DATA:	.FCTR	TEC/LB:GETPUT:LISTEN:RUBOUT:INSCHR
	.NAME	INIT
OV1:	.FCTR	INIT-TEC/LB:TECINI:CCLCMD:EXSRV-PIPUTL/LB:GERRM:FCSERR
	.NAME	FILES
OV2:	.FCTR	FILES-TEC/LB:GETFLS-*(OV21,OV22,OV23)
	.NAME	CSI
OV21:	.FCTR	CSI-LB:[1,1]SYSLIB/LB:.CSI1:.CSI2
	.NAME	PARSE
.DISABLE DATA
.IFF FCS .DATA OV22:	.FCTR	PARSE-TEC/LB:PRSFND-PIPUTL/LB:TMPDIR-OV22A
.IFF FCS .DATA OV22A:	.FCTR	LB:[1,1]SYSLIB/LB:PARSE
.IFT FCS .DATA OV22:	.FCTR	PARSE-TEC/LB:PRSFND-PIPUTL/LB:TMPDIR
.ENABLE DATA
	.NAME	OPEN
OV23:	.FCTR	OPEN-TEC/LB:SWPFLS:INDCLS:INDERR
	.NAME	TCHAR
COTRE1:	.FCTR	TCHAR-(TEC/LB:GBLCHA,TEC/LB:V52CHA,TEC/LB:V1HCHA,COTR12)
COTR12:	.FCTR	(TEC/LB:A3ACHA,TEC/LB:A42CHA,TEC/LB:ELICHA,TEC/LB:IVTCHA)
	.END
.DISABLE DATA
.CLOSE
.GOTO MU11
.MU10:
.OPEN vtecmu.odl
.DATA ;
.DATA ; Video TECO taskbuild "overlay" file
.DATA ;  Multi-user RSX-11M version
.DATA ;  Impure section
.IFF V32 .GOTO NV6B
.DATA ;
.DATA ; Built on '<DATE>' at '<TIME>'
.NV6B:
.ENABLE DATA
;
	.ROOT TECLIB-PIPLIB
	.NAME	TECO
TECLIB:	.FCTR	TECO-TEC/LB:TECOIO:VTXINI:VTXLDR
PIPLIB:	.FCTR	PIPUTL/LB:FCSERR:GERRM:TMPDIR
	.END
.DISABLE DATA
.CLOSE
.OPEN vtxpurbld.odl
.ENABLE DATA
;
; Video TECO taskbuild "overlay" file
;  Multi-user RSX-11M version
;  Pure section
;
.DISABLE DATA
.IFF V32 .GOTO NV6C
.DATA ; Built on '<DATE>' at '<TIME>'
.DATA ;
.NV6C:
.ENABLE DATA
	.ROOT	TEC
TEC:	.FCTR	TEC/LB:TECO:TECINI:TTYOUT:TIAST:ERRORS-TEC2
TEC2:	.FCTR	TEC/LB:GETPUT:LISTEN:RUBOUT:INDERR:EXSRV-FILES
FILES:	.FCTR	TEC/LB:GETFLS:SWPFLS:INDCLS:PRSFND-INI
INI:	.FCTR	TEC/LB:CCLCMD:EXIT:screen:inschr-LIB
LIB:	.FCTR	vtec.stb-gblcha.stb
	.END
.DISABLE DATA
.CLOSE
.MU11:
.IFT V32 pip *.tsk;*/de/nm
.IFF V32 pip *.tsk;*/de
.IFF PIPINS rem ...pip
.IFF TKBINS .IFF MPLUS ins $bigtkb
.IFF TKBINS .IFT MPLUS .IFF SUPL ins $tkbbig
.IFF TKBINS .IFT SUPL ins $tkbfsl
.IFT LISTC .SETS $MP ""
.OPEN vtecbld.cmd
.IFF ROL .GOTO NOPAIN
.CLOSE
.OPEN vtbld1.cmd
;
; Congratulations!!!  You have selected the official Video TECO
; pain-in-the-ass option set.  Due to a restriction in the
; operation of the RSX-11M taskbuilder, you will be required to
; obtain a map of the impure section, and from it enter values
; later on in the build procedure so that the pure section can be
; built.
;
.SETS $MP ""
.NOPAIN:
@mapdev
.ENABLE DATA
;
; Video TECO build command file
;
; VTEC version 'VRSN'
;
.DISABLE DATA
.IFF V32 .GOTO NV6D:
.DATA ; Created on '<DATE>' at '<TIME>'
.DATA ;
.NV6D:
.SETS DA ""
.IFT DBUG .SETS DA "/DA"
.IFT MPLUS .DATA vtec/cp/-fp/mm/mu'DA','$MP':vtec/ma'$SM'=vtecbl/mp
.IFT MUSE .DATA vtec/cp/-fp/mm'DA','$MP':vtec/ma'$SM',sy:vtec=vtecmu/mp
.IFT MUSE .DATA wndws=2
.IFF MUSE .IFF MPLUS .DATA vtec/cp/-fp/mm'DA','$MP':vtec/ma'$SM'=vtecbl/mp
.DATA ;
.DATA ; Patch the LUN used by the error processor (GERRM)
.DATA ;
.IFF SUPL .IFF MUSE .DATA GBLPAT=INIT:.EOLUN:5
.IFF SUPL .IFT MUSE .DATA GBLPAT=TECO:.EOLUN:5
.IFT FCS .IFF SUPL .IFF MUSE .DATA libr='RESL':ro
.IFT FCS .IFF SUPL .IFT MUSE .DATA libr='RESL':ro:3
.IFT FCS .IFT SUPL .DATA suplib='RESL':sv
.ENABLE DATA
TASK=...TEC
PAR=GEN:0:0
PRI=65
;
; LUN 1 IS USED FOR THE INDIRECT COMMAND FILE
; LUN 2 IS USED FOR CONSOLE I/O
; LUN 3 IS USED FOR THE OUTPUT FILE
; LUN 4 IS USED FOR THE INPUT FILE
; LUN 5 IS USED BY THE ERROR PROCESSOR
; LUN 6 IS USED FOR THE TEMP DIRECTORY
; LUN 7 IS USED FOR "EN" COMMANDS
;
UNITS=7
ASG=TI:2
ASG=SY:1:3:4:5:6:7
;
STACK=200
;
; TECO'S DYNAMIC MEMORY IS ALLOCATED FROM THE REGION STARTING AT THE
; END OF THE TASK IMAGE AND ENDING AT THE END OF THE PARTITION.
; IF THE DYNAMIC MEMORY FACILITY IS NOT IN USE, ASSEMBLE TECOIO WITH
; THE PARAMETER R$$DYM=0, AND USE AN EXTSCT DIRECTIVE HERE TO 
; SPECIFY THE TOTAL NO. OF BYTES IN OCTAL FOR THE DYNAMIC MEMORY REGION
; E.G.
;	EXTSCT=$$DYB1:20000	;WOULD GIVE 4K WORDS, 8K BYTES
;
; IF DYNAMIC MEMORY IS IN USE, RECOMMEND A MINIMUM TASK SIZE:
;
EXTTSK=5000
;
; THE FOLLOWING PARAMETER SETS TECO'S BUFFER EXPANSION LIMIT. IF
; STARTED WITH A BUFFER SIZE UNDER THIS LIMIT, THEN IT WILL NOT
; EXPAND BEYOND IT. IF STARTED WITH A SIZE ABOVE THE LIMIT
; (WITH RUN OR INS /INC=) THEN IT WILL EXPAND TO THE MAXIMUM
; POSSIBLE TASK SIZE. THE VALUE GIVEN OF 40000 CORRESPONDS TO 8K WORDS.
;
GBLDEF=BUFLIM:40000
.DISABLE DATA
.IFF MUSE .GOTO MU3
.ENABLE DATA
/
gblcha/-hd/-mm,'$MP':gblcha'$SM',sy:gblcha=tec/lb:gblcha
/
par=gblcha:100000:20000
stack=0
/
v52cha/-hd/-mm=tec/lb:v52cha
/
par=v52cha:100000:20000
stack=0
/
v1hcha/-hd/-mm=tec/lb:v1hcha
/
par=v1hcha:100000:20000
stack=0
/
a3acha/-hd/-mm=tec/lb:a3acha
/
par=a3acha:100000:20000
stack=0
/
a42cha/-hd/-mm=tec/lb:a42cha
/
par=a42cha:100000:20000
stack=0
/
elicha/-hd/-mm=tec/lb:elicha
/
par=elicha:100000:20000
stack=0
/
.DISABLE DATA
.IFF ROL .GOTO MUNROL
.CLOSE
.IFF V32 .GOTO NV7A
;
; First taskbuild started at '<TIME>'
;
.NV7A:
tkb @vtbld1
.IFF V32 .GOTO NV7B
;
; First taskbuild ended at '<TIME>'
;
.NV7B:
.OPEN VTECBLD.CMD
.MUNROL: .ENABLE DATA
vtxpur/-hd/-mm,'$MP':vtxpur/ma'$SM'=vtxpurbld/mp
par=vtxpur:120000:60000
stack=0
.DISABLE DATA
.IFF ROL .GOTO MU3
;
; From the map produced, look at the global symbol table and
; enter values for the following symbols:
;
	.SETS X "ASCPP"
	.GOSUB X
	.SETS X "ASLUN"
	.GOSUB X
	.SETS X "CLOSE"
	.GOSUB X
	.SETS X "DCCVT"
	.GOSUB X
	.SETS X "ENTER"
	.GOSUB X
	.SETS X "FIND"
	.GOSUB X
	.SETS X "FINIT"
	.GOSUB X
	.SETS X "GET"
	.GOSUB X
	.SETS X "MARK"
	.GOSUB X
	.SETS X "ODCVT"
	.GOSUB X
	.SETS X "OPEN"
	.GOSUB X
	.SETS X "OPFNB"
	.GOSUB X
	.SETS X "PARSE"
	.GOSUB X
	.SETS X "POINT"
	.GOSUB X
	.SETS X "POSIT"
	.GOSUB X
	.SETS X "POSRC"
	.GOSUB X
	.SETS X "PPASC"
	.GOSUB X
	.SETS X "PRSDI"
	.GOSUB X
	.SETS X "PRSDV"
	.GOSUB X
	.SETS X "PRSFN"
	.GOSUB X
	.SETS X "PUT"
	.GOSUB X
	.SETS X "RDFDR"
	.GOSUB X
	.SETS X "RDFFP"
	.GOSUB X
	.SETS X "RDFUI"
	.GOSUB X
	.SETS X "REMOV"
	.GOSUB X
	.SETS X "RFOWN"
	.GOSUB X
	.SETS X "VRCVT"
	.GOSUB X
	.SETS X "WDFDR"
	.GOSUB X
	.SETS X "WDFFP"
	.GOSUB X
	.SETS X "WDFUI"
	.GOSUB X
	.SETS X "WFOWN"
	.GOSUB X
	.SETS X ".ALUN"
	.GOSUB X
	.SETS X ".DEL1"
	.GOSUB X
	.SETS X ".ENTR"
	.GOSUB X
	.SETS X ".FIND"
	.GOSUB X
	.SETS X ".MKDL"
	.GOSUB X
	.SETS X ".RMOV"
	.GOSUB X
	.SETS X ".STFN"
	.GOSUB X
.GOTO MU3
.X:
.ASKN XN .'X'
.DATA GBLDEF=.'X':'XN'
.RETURN
.MU3: .ENABLE DATA
;
; THE FOLLOWING PARAMETER SETS THE SIZE OF TECO'S PUSH DOWN LIST.
; IT MAY BE NECESSARY TO INCREASE THIS TO ACCOMMODATE MANY LEVELS OF
; ITERATION, MACRO CALLS, ETC.
;
GBLDEF=PDLSIZ:100
;
; THE FOLLOWING PARAMETER SETS THE SIZE OF THE SEARCH BUFFER.
; IT MAY BE INCREASED TO ACCOMMODATE VERY LONG SEARCH STRINGS.
;
GBLDEF=SCHSIZ:100
;
; THE FOLLOWING PARAMETER SETS THE SIZE OF THE TAG BUFFER.  IT
; MAY BE INCREASED TO ACCOMODATE VERY LONG TAGS.
GBLDEF=TAGSIZ:100
;
; THE REMAINING SPACE IS DYNAMICALLY SHARED BETWEEN TEXT BUFFER AND
; Q REGISTER STORAGE.
; THE FOLLOWING PARAMTER DEFINES THE MINIMUM AMOUNT OF SPACE REQUIRED.
;
GBLDEF=MBFSIZ:1400
.DISABLE DATA
.CLOSE
.IFF V32 .GOTO NV8A
;
; Taskbuild started at '<TIME>'
;
.NV8A:
tkb @vtecbld
.IFF TKBINS rem ...tkb
.IFT V32 .GOTO NV8B
;
; Taskbuild ended at '<TIME>'
;
.NV8B:
.IFT DBUG .GOTO 999
.IFF PIPINS ins $pip
.IFT DLTF .IFT MUSE pip *.stb;*/de,vtecmu.odl;*,vtxpurbld.odl;*
.IFT DLTF .IFT MUSE .IFT ROL pip vtbld1.cmd;*/de
.IFT DLTF .IFF MUSE pip vtecbl.odl;*/de
.IFT DLTF pip tec.olb;*/de,vtecbld.cmd;*
.IFT LISTC pip *.tsk;*/de
.IFT LISTC .GOTO DOCASK
.IFT VAX .GOTO VAX
.ASK DCL DCL EDIT command rather than traditional TECO commands
.OPEN #1 tecins.cmd
.OPEN #2 tecrem.cmd
.IFT DCL .GOTO DCLC
.ENABLE DATA #1
ins lb:vtec/task=...tec/pri=55.
ins lb:vtec/task=...mak/pri=55.
ins lb:vtec/task=...mun/pri=55.
ins lb:vtec/task=...old/pri=100.
ins lb:vtec/task=...new/pri=100.
.DISABLE DATA #1
.IFT V32 .DATA #1 ins lb:vtec/task=...dir/pri=100.
.ENABLE DATA #2
.IFINS ...TEC rem ...tec
.IFINS ...MAK rem ...mak
.IFINS ...MUN rem ...mun
.IFINS ...OLD rem ...old
.IFINS ...NEW rem ...new
.DISABLE DATA #2
.IFT V32 .DATA #2 .IFINS ...DIR rem ...dir
.GOTO INSTKC
.DCLC:
.ENABLE DATA #1
ins lb:vtec/task=...edi/pri=65.
.DISABLE DATA #1
.ENABLE DATA #2
.IFINS ...EDI rem ...edi
.DISABLE DATA #2
.INSTKC:
.CLOSE #1
.CLOSE #2
.SETS LIBUIC <SYSUIC>
.IFF V32 .GOTO NV9
.SETS LIBUIC <LIBUIC>
.NV9:
set /uic='LIBUIC'
pip lb:/nv='UIC'*.tsk
@'UIC'tecrem
@'UIC'tecins
set /uic='UIC'
.GOTO INMAC
.VAX:
pip lb:[sysexe]tec.exe=vtec.exe
pip lb:[sysexe]mak.exe/en=lb:[sysexe]tec.exe
pip lb:[sysexe]mun.exe/en=lb:[sysexe]tec.exe
pip lb:[sysexe]old.exe/en=lb:[sysexe]tec.exe
pip lb:[sysexe]new.exe/en=lb:[sysexe]tec.exe
.INMAC:
.IFT VAX pip *.exe;*/de
.IFF VAX pip *.tsk;*/de
.IFF PIPINS rem ...pip
.MACSSS:
.ASK PUTMAC Do you want to install TECO''s library macros
.IFF PUTMAC .GOTO DOCASK
.IFF VAX set /uic=[1,2]
.IFT VAX set def [1,2]
pip lb:/nv='UIC'kbda3a.tec,kbda42,kbdeli,kbdv52,kbdv1h,kbdivt
;
; Now compress and move the editing macros where they
; can be found by the system.
;
.IFDF DCL .GOTO DCLDEF
.SETF DCL
.IFNINS ...MUN .SETT DCL
.DCLDEF:
.SETS MUN "mun"
.IFF DCL .GOTO XMUN
.SETS MUN "edit/mun"
.XMUN:
'MUN' 'UIC'squ,lb:[1,2]scope='UIC'scope/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopea3a='UIC'scopea3a/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopea42='UIC'scopea42/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopeivt='UIC'scopeivt/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopeeli='UIC'scopeeli/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopev52='UIC'scopev52/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]scopev1h='UIC'scopev1h/l/t/c/a/b
'MUN' 'UIC'squ,lb:[1,2]prescan='UIC'prescan/l/t/c/a/b
.IFT V32 'MUN' 'UIC'squ,lb:[1,2]dir='UIC'dir/l/t/c/a/b
.IFT VAX set def 'UIC'
.IFF VAX set /uic='UIC'
.DOCASK:
.ASK DOCP Do you want to run off a copy of the VTECO documentation
.IFF DOCP .GOTO 999
.IFNINS ...RNO ins $rno
.IFINS ...RNO .GOTO RNOOK
;
; RNO (Runoff) does not seem to be on your system. Sorry.
;
.GOTO 999
.RNOOK:
.IFDF MUN .GOTO MUNDEF
.SETS MUN "mun"
.IFINS ...MUN .GOTO MUNDEF
.SETS MUN "edit/mun"
.MUNDEF:
'MUN' lb:[1,2]prescan,vtec
.IFT V32 .GOTO 999
rno runoff.lst/sp=rno/ul:l
.IFINS PRT... .GOTO 999
.PRTLP:
.ASKS RNOLST Where would you like the listing printed [DDU]
.IF RNOLST = "" .GOTO 999
.IF <STRLEN> LT 2 .GOTO PRTLP
.SETS R2 RNOLST[3:3]
.SETS R3 RNOLST[4:4]
.IF R2 = ":" .SETS RD RNOLST[1:2]
.IF R3 = ":" .SETS RD RNOLST[1:3]
.IFNLOA 'RD': .GOTO PRTLP
pip 'RD':=runoff.lst
pip runoff.lst;*/de
.999:
.IFF V32 /
.IFT DCLCLI set /dcl=ti:
;
; Build completed on '<DATE>' at '<TIME>'
;