Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/src/config.b19
There are no other files named config.b19 in the archive.
00135	LET VER$ = "6-1-"
00138	PRINT " " \ PRINT  'TOPS20 CONFIGURATOR PROGRAM VER ';ver$
00139	PRINT "TYPE 'H' FOR HELP"
00140	REM INITIALIZATION ROUTINES
00160	REM LET DEB = 1\ REM PRINT "DEBUG MODE"	! REM UNTIL RELEASE
00180	LET TX$="PASSWORD"
00200	REM FL$ = FLAG FOR AN20 MONITOR
00220	LET P1 = 0	!USE DDRPI
00240	DIM R$(60)	!SAVE FOR RELIAB.CMD
00260	let r$(1) = '!Additional tests'
00280	LET U1 = 0\LET U2 = 0\ LET U3 = 0\LET UU = 0
00300	LET FLA$ = 'CONFIG'
00310	LET PROC$ = "S"
00311	LET CILOOP$ = "N"
00312	LET NILOOP$ = "N"
00313	LET CIDISK$ = "N"
00320	LET FLB = 0
00340	LET FLC =0
00360	LET FLD = 0
00380	LET FLE$ = '0'
00400	LET FLF = 0
00420	LET FLG = 0
00440	LET FLH = 0
00460	LET FLI = 0
00470	Let Fll = 0
00480	LET FLV = 0
00500	REM IF FLA$ <> 'CONFIG' THEN RETURN
00520	DIM R2$(60)
00540	LET P2 = 0
00560	LET DN  = 0
00565	LET N = 0
00566	LET BL$ ='Y'
00580	PRINT TX$;
00600	X=NOECHO(0%)
00620	INPUT WDR$
00640	WDR$=EDIT$(WDR$,32%)
00650	IF WDR$ = 'PV' THEN LET FLV = 1 \GOTO 680
00660	IF WDR$="F-S" THEN GOTO 680
00665	IF WDR$<>"MFG" THEN PRINT "CONSULT <MANUALS>KLAD20-USER-GUIDE.DOC"\GOTO 27820
00680	X=ECHO(0%)
00700   PRINT
00720	!GET COMMAND
00740	PRINT " " \ INPUT 'COMMAND (at least 2 characters) 'E$
00760	E$ = EDIT$(E$,32%)
00780	B1$ = 'CONFIGURE'
00800	B2$ = 'ADD'
00820	B3$ = 'REMOVE'
00840	B4$ = 'CHANGE'
00860	B5$ = 'EXIT'
00870	B6$ = 'AUDIT'
00880	BX$ = 'DEB'
00885	IF LEFT(E$,1) = 'H' THEN GOTO 960	!HELP
00887	IF LEN(E$) < 2 THEN GOTO 960
00900	IF LEFT(E$,2) = 'EX' THEN GOTO 27840	!EXIT
00940	IF LEFT(E$,2) = LEFT(BX$,2) THEN LET DEB = 1\PRINT 'SPECIAL TEST MODE'
00960	IF LEFT(E$,1) <> 'H' GOTO 1020	!
00980	PRINT " " \ PRINT 'Commands are:'
01000	PRINT B1$\PRINT B2$\PRINT B3$\PRINT B4$\PRINT B6$\PRINT B5$
01020	IF LEN(E$) < 2 THEN GOTO 720	!GET
01040	FF$ = LEFT(E$,2)
01060	IF FF$ = 'CO' THEN GOTO 6680	!BEGIN
01065	REM IF FF$ <> 'CO' THEN let wdr$ = 'F-S'\! print "USER AUDIT ENABLED"
01070	IF FF$ = 'AU' THEN LET WDR$ = 'F-S'\PRINT "USER AUDIT ENABLED"
01080	IF FF$ = 'AD' THEN LET FLA$ = 'APPEND'\GOTO 1200	!ADD
01100	IF FF$ = 'RE' THEN LET FLA$ = 'REMOVE'\GOTO 1160	!REMOVE
01120	IF FF$ = 'CH' THEN LET FLA$ = 'APPEND'\ LET FLE$ = 'CHANGE'\ GOTO 1200
01140	GOTO 720	!GET
01160	!remove
01180	LET FF$ = 'REMOVE>	'\GOTO 1280	!LOOP
01200	!ADD(APPEND)
01220	IF FLE$ = 'CHANGE' THEN LET FF$ = 'CHANGE>	'\GOTO 1280	!LOOP
01240	LET FF$ = 'ADD>	'\GOTO 1280	!LOOP
01260	STOP
01280	!LOOP
01300	PRINT FF$;
01305 let b$ = ""
01320	INPUT CC$
01340	CC$ = EDIT$(CC$,32%)
01360	A1$ = 'CUSTOMER NAME'
01380	A2$ = 'AN20'
01400	A3$ = 'MAGTAPE'
01420	A4$ = 'DC20 LINES'
01440	A5$ = 'LINEPRINTER'
01460	A6$ = 'DISK DRIVE'
01480	A7$ = 'AUTO  UETP'
01500	A8$ = 'TIME'
01520	A9$ = 'DN20'
01540	B2$ = 'MEMORY'
01560	B3$ = 'EXIT'
01565	B4$ = 'RETURN'
01580	IF CC$ <> 'H' THEN GOTO 1680
01600	REM
01620	PRINT " " \ PRINT 'Commands are:'
01640	PRINT A1$\PRINT A2$ unless wdr$ = 'MFG'		\&
\PRINT A3$ unless wdr$ = 'MFG'				\&
\PRINT A4$\PRINT A5$\PRINT A6$ unless wdr$ = 'MFG'	\&
\ PRINT A7$\PRINT A8$\PRINT A9$\ REM PRINT B1$  \PRINT B2$\PRINT B4$\PRINT B3$
01660	GOTO	1280	!LOOP
01680	IF LEN(CC$) < 2 THEN GOTO 1280	!LOOP
01700	LET B7$ = LEFT(CC$,2)
01710	IF  LEFT(CC$,2) = 'EX' THEN GOTO 27840	!EXIT
01720	IF  B7$ = LEFT(A1$,2) THEN GOSUB 6680	!NAME
01740	IF  B7$ = LEFT(A2$,2) THEN GOSUB 2960	!AN20
01760	IF  B7$ = LEFT(A3$,2) THEN GOSUB 3160	!MAGTAPE
01780	IF  B7$ = LEFT(A4$,2) THEN GOSUB 2000	!DC20 
01800	IF  B7$ = LEFT(A5$,2) THEN GOSUB 2000	!LP20
01820	IF  B7$ = LEFT(A6$,2) THEN GOSUB 3500	!DISK
01830	 IF  B7$ = LEFT(A7$,2) THEN GOSUB 3381	!UETP (new)
01840 rem	 IF  B7$ = LEFT(A7$,2) THEN GOSUB 2600	!UETP 1190
01860	IF  B7$ = LEFT(A8$,2) THEN GOSUB 2720	!TIME
01880	IF  B7$ = LEFT(A9$,2) THEN GOSUB 2240	!DN20
01900	IF  B7$ = LEFT(B2$,2) THEN GOSUB 2960	!MEMORY
01910	IF  B7$ = LEFT(B4$,2) THEN LET FLE$ = " "\LET FLA$ ='CONFIG'\GOTO 720	!RETURN
01915	GOSUB 26840
01920	LET FLL = 0	!TURN OFF ALTR MODE
01940	GOTO 1280	!LOOP
01960	STOP
01980	!DISPATCH ROUTINES
02000	!LP20
02020	IF FLE$ <> 'CHANGE' THEN GOSUB 15660\RETURN
02040	LET FLI = 1
02060	GOSUB 27000	!ENTER RELIAB.CMD
02080	LET FLI = 0
02100	GOSUB 15660	!";VER$;"config
02120	RETURN
02140	!LPLOOP
02160	IF LEN(C$) < 6 THEN RETURN
02180	C1$ = LEFT(C$,6)
02200	IF C1$ = 'ENA LP' THEN LET B$ = C$
02220	RETURN
02240	!DN20
02260	LET FLD = 1\&
	LET N = 0
02280	GOSUB 27000	!ENTER NO IBMCON ?
02300	LET FLD = 0
02320	GOSUB 16960
02340	RETURN
02360	!DNLOOP
02380	IF LEN(C$) < 6 THEN RETURN
02400	C1$ = LEFT(C$,6)
02420	IF C1$ = 'ENA DN' THEN LET B$ = C$
02440	RETURN
02460	!DNLOAD-ATO FOR IBMCON
02480	PRINT " " \ INPUT 'Disable DNLOAD ATO start up 'N$
02500	N$ = EDIT$(N$,32%)
02520	N$ = LEFT(N$,1)
02540	IF N$ <> 'Y' THEN LET N = 1 ELSE LET N = 0
02560	GOSUB 22540	!SYSJOB-RUN
02580	!UETP-ATO
02600	PRINT " " \ INPUT 'Disable UETP ATO start  up 'N1$
02620	N1$ = EDIT$(N1$,32%)
02640	N1$ = LEFT(N1$,1)
02660	IF N1$ = 'Y' THEN LET FLB = 1
02680	IF FLA$ <> 'CONFIG' THEN GOSUB 7100	!6-1-PTYCON.ATO
02700	RETURN
02720	!TIME
02740	!LET P1 = P1 + 1
02760	PRINT " " \ INPUT 'ACCEPTANCE RUN TIME(HH:MM,PASSES,OR CONT) 'H$
02780	LET FLC = 1
02800	GOSUB 27000	!ENTER
02820	REM IF FLA$ ='REMOVE'  GOTO 	!REM END
02840	RETURN
02860	!XLOOP
02880	IF LEN(C$) < 9 THEN GOTO 2940	!RETURN
02900	C1$ = LEFT(C$,9)
02920	IF C1$ = "DEFAULT/C" THEN LET C$ = "DEFAULT/CYCLE:" + H$ 
02940	RETURN
02960	GOSUB 7100	!FIX PTYCON FIRST
02980	REM AN20-MEMORY
03000	!MEMORY
03020	LET AN$= '>2060-'
03040	PRINT " " \ INPUT 'HOW MUCH K TOTAL OF MEMORY ' S1
03042 IF FL$ <> "Y" THEN GOTO 3120
03045	 PRINT "PLEASE COPY YOUR NEW MONITOR E.G.: "
03060	IF FL$ ="Y" THEN LET AN$ = '>AN-'\&
IF S1 > 512 THEN PRINT 'PLEASE "COPY (FROM) <SYSTEM';&
AN$;'MONLGE.EXE (TO) <SYSTEM>MONITR.EXE"' &
ELSE PRINT 'COPY (FROM) <SYSTEM';&
AN$;'MONBIG.EXE';' (TO) <SYSTEM>MONITR.EXE'
03080	IF FL$ = 'Y' THEN GOTO 3120 
03100	IF S1 > 512 THEN PRINT 'COPY (FROM) <SYSTEM>2060-MONMAX.EXE ';&
'(TO) <SYSTEM>MONITR.EXE' ELSE PRINT 'COPY (FROM) <SYSTEM>2060-MONBIG.EXE';&
' (TO) <SYSTEM>MONITR.EXE'
03120 	GOSUB 23620 !SYSTEM_CMD
03140	RETURN
03160	!MAGTAPE
03180	IF FLE$ <> 'CHANGE' THEN GOSUB 8740\RETURN
03200	LET FLF = 1
03220	GOSUB 27000	!ENTER
03240	LET FLF = 0
03260	GOSUB 8740	!MTAX
03280	RETURN
03300	!MAGLOOP
03320	IF LEN(C$) < 6 THEN RETURN
03340	C1$ = LEFT(C$,6)
03360	IF C1$ = 'ENA MT' THEN LET B$ = C$
03380	RETURN
03381	!new-module
03382	IF FLE$ <> 'CHANGE' THEN return
03383	LET FLj = 1
03384	GOSUB 26985	!ENTER
03385	LET FLj = 0
03386	!GOSUB 8740	MTAX
03387	RETURN
03388	!new-LOOP
03389	IF LEN(C$) < 6 THEN RETURN
03390	c1$=edit$(c$,8%)
03392	C1$ = LEFT(C1$,6)
03394	IF C1$ = 'TAKE R' THEN LET B$ = C$			&
	\let cL$ = "			!TAKE RELIAB"		&
	\LET P2 = P2 + 1					&
	\LET R2$(P2) = CL$					&
	\PRINT 'UETP DISABLED'
03396	IF C1$ = '!TAKE ' THEN LET B$ = C$			&
	\let cL$ = "TAKE RELIAB"				&
	\LET P2 = P2 + 1					&
	\LET R2$(P2) = CL$					&
	\PRINT 'UETP ENABLED'
03397	RETURN
03400	!RPLOOP
03420	IF LEN(C$) < 6 THEN RETURN
03440	C1$ = LEFT(C$,6)
03460	IF C1$ = 'ENABLE' THEN LET B$ = C$
03480	RETURN
03500	!RP20-RP07
03520	IF FLE$ = 'CHANGE' THEN LET FLH = 1\GOSUB 27000	!ENTER
03540	LET FLH = 0
03545	IF WDR$ = "MFG" THEN RETURN
03560	PRINT " " \ PRINT "TYPE 'H' FOR HELP 'E' TO EXIT"
03580	INPUT "Enable DISK DRIVE testing" A$	unless fla$ = 'REMOVE' !
03600	IF FLA$ = 'REMOVE' THEN INPUT "Disable DISK DRIVE testing" A$ 
03620	A$ = EDIT$(A$,32%)
03640	A$ = LEFT(A$,1)
03660	IF A$ = 'H' THEN PRINT '(YES,NO)' \GOTO 3580	!MORE
03680 	IF A$ <> 'Y' THEN  return	!
03700	PRINT " " \ INPUT 'What is the controller ID NO. (RP20=0,RP06/7=-1,ETC.)' CT$
03705	CT$ = edit$(CT$,32%)
03710	IF CT$ = 'E' THEN  return	!END
03720	IF CT$ = 'H' THEN PRINT 'REFER TO PRINTS'\GOTO 3700
03740!	LET P1 = P1 + 1	IF  CT$ = '0'
03760!	LET R$(P1) = 'ENABLE DFDXG'	IF CT$ = '0'
03780	REM LET P1 = P1 + 1	IF CT$ <> '0'
03800	REM LET R$(P1) = 'ENABLE DFRPM/CYCLE:1'	IF CT$ <> '0'
03820	!MORE
03840	INPUT "Type in the STRUCTURE NAME (E.G. 'USER') " USER$
03860	user$ = edit$(user$,32%)
03880	IF USER$ = 'E' THEN  return	!END
03900	IF USER$ = 'H' THEN PRINT "A UNIQUE NAME FOR EACH  DRIVE SPINDLE "\GOTO 3840
03920	IF LEN(USER$) > 1 THEN IF LEFT(USER$,2) = 'EX' THEN RETURN
03940	INPUT "What CHANNEL is the DRIVE on (0-7) " CHAN$\CHAN$ = EDIT$(CHAN$,32%)
03960	IF CHAN$ = 'H' THEN PRINT 'RH20 NUMBER'\GOTO 3940
03962	IF CHAN$ = "7" THEN LET CIDISK$ = "Y"
03980	INPUT "What is the UNIT NUMBER (0-7) " UNIT$\UNIT$ = EDIT$(UNIT$,32%)
04000	IF UNIT$ = 'H' THEN PRINT 'UNIT YOU HAVE SELECTED'\GOTO 3980
04020	O$ = "<UETP.LIB>" + USER$ + ".VER"  UNLESS DEB = 1
04040	O$ = "<UETP.RUN>" + USER$ + ".VER" UNLESS DEB = 0
04060	OPEN O$ FOR OUTPUT AS FILE #1, ACCESS WRITE
04080	PRINT #1:	"@SILENCE"
04100	PRINT #1:	"!THIS FILE WAS CREATED BY THE CONFIGURATOR PROGRAM "
04120	PRINT #1:	"!"
04140	PRINT #1:	"!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
04160	PRINT #1:	"!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
04180	PRINT #1:	"!"
04200	PRINT #1:	"!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
04220	PRINT #1:	"!"
04240	PRINT #1:	"!FILES NEEDED:"
04260	PRINT #1:	"!"
04280	PRINT #1:	"!PAGES.EXE"
04300	PRINT #1:	"!"
04320	!PRINT #1:	"@NOERROR"
04340	PRINT #1:	""
04360	PRINT #1:	""
04380	PRINT #1:	"BEGIN::"
04400	PRINT #1:	"@ERROR"
04425	PRINT #1:	"@revive"
04430	PRINT #1:	"@DEFINE UTP: PS:<UETP.LIB>"
04460	PRINT #1:	"@TAKE UTP:SYS.CMD"
04462	PRINT #1:	"!@CONN PS:<UETP.RUN>"
04465	PRINT #1:	"@DEFINE DSK: DSK:,PS:<UETP.LIB>"
04480	PRINT #1:	"@revive"
04500	PRINT #1:	"START::"
04520	PRINT #1:	"@SILENCE!***** message: Start of ";USER$;" test for ";user$;""
04540	PRINT #1:	"@RUN UTP:sender"
04560	PRINT #1:	"*TYPE START"
04580	PRINT #1:	"*BLABEL START::"
04600	PRINT #1:	"*TEST ";user$;""
04620	PRINT #1:	"*SEND Start test for ";user$;""
04640	PRINT #1:	"*EXIT"
04660	PRINT #1:	"@REVIVE"
04680	PRINT #1:	"!"
04700	PRINT #1:	"@MOUNT STR ";USER$;":"
04720	PRINT #1:	"@I STR ";USER$;":"
04740	PRINT #1:	"@def dsk: ";USER$;":<SUBSYS>,PS:<UETP.LIB>"
04760	PRINT #1:	"@DEF OUT: ";USER$;":<SUBSYS>"
04780	PRINT #1:	"@ENA"
04800	PRINT #1:	"@IF (NOERROR) @GOTO TEST1::"
04820	PRINT #1:	"ERROR::"
04840	PRINT #1:	"@SILENCE!***** message: ERRORS IN ";USER$;""
04860	PRINT #1:	"@RUN UTP:sender"
04880	PRINT #1:	"*TYPE ERROR"
04900	PRINT #1:	"*BLABEL BEGIN::"
04920	PRINT #1:	"*TEST ";user$;""
04940	PRINT #1:	"*SEND ERRORS IN ";USER$;""
04960	PRINT #1:	"*EXIT"
04980	PRINT #1:	"@REVIVE"
05000	PRINT #1:	"@SYSTAT"
05020	PRINT #1:	"@GOTO END::"
05040	PRINT #1:	""
05060	PRINT #1:	"TEST1::"
05080	PRINT #1:	"!"
05100	PRINT #1:	"!"
05120	PRINT #1:	"@REVIVE"
05125	PRINT #1:	"@EXPUNGE ";USER$;":<SUBSYS>"
05140	PRINT #1:	"@PAGES"
05160!	PRINT #1:	"*FILES OUT:";USER$
05180	PRINT #1:	"*FILES ";USER$
05200	PRINT #1:	"*MODE RAN"
05220	PRINT #1:	"*CONTENTS RAN"
05240	PRINT #1:	"*SIZ 100"
05260	PRINT #1:	"*NUMBER 15"
05280	PRINT #1:	"*WRITE"
05300	PRINT #1:	"*VERIFY"
05320	PRINT #1:	"*DELETE"
05340	PRINT #1:	"*EXIT"
05360	PRINT #1:	"^C"
05380	PRINT #1:	"@IF (NOERROR) @GOTO END::"
05400	PRINT #1:	"!"
05420	PRINT #1:	"@SILENCE!***** message: error running PAGES on ";USER$;""
05440	PRINT #1:	"@run UTP:sender"
05460	PRINT #1:	"*type error"
05480	PRINT #1:	"*blabel TEST1::"
05500	PRINT #1:	"*test ";user$;""
05520	PRINT #1:	"*send error running PAGES on ";USER$;""
05540	PRINT #1:	"*exit"
05560	PRINT #1:	"@revive"
05580	PRINT #1:	"@GOTO END::"
05600	PRINT #1:	"!"
05620	PRINT #1:	"%ERR::"
05640	PRINT #1:	"!"
05660	PRINT #1:	"@SILENCE!***** message: unknown ERROR in ";USER$;" test ";user$;""
05680	PRINT #1:	"@RUN UTP:sender"
05700	PRINT #1:	"*TYPE ERROR"
05720	PRINT #1:	"*BLABEL END::"
05740	PRINT #1:	"*TEST ";user$;""
05760	PRINT #1:	"*SEND unknown ERROR in test ";user$;""
05780	PRINT #1:	"*EXIT"
05800	PRINT #1:	"@REVIVE"
05820	PRINT #1:	"@GOTO END::"
05840	PRINT #1:	"!"
05860	PRINT #1:	"END::"
05880	PRINT #1:	"@CHKPNT ADSF::"
05900	PRINT #1:	"!"
05920	PRINT #1:	"@SILENCE!***** message: End of ";USER$;" test ";user$;""
05940	PRINT #1:	"@RUN UTP:sender"
05960	PRINT #1:	"*TYPE END"
05980	PRINT #1:	"*BLABEL END::"
06000	PRINT #1:	"*TEST ";user$;""
06020	PRINT #1:	"*SEND End of test ";user$;""
06040	PRINT #1:	"*EXIT"
06060	PRINT #1:	"@REVIVE"
06080	PRINT #1:	"@reset"
06100	PRINT #1:	"%FIN::"
06120	PRINT O$, "FINISHED"
06140	CLOSE #1
06160	let p1 = p1+1
06180	let r$(p1) = 'ENABLE ' + USER$
06200	IF CT$ = '0' THEN GOTO 6260
06220	IF CT$ <> '0' THEN GOTO 6260
06240	GOTO 3700
06260	O$ = "<UETP.RUN>" + USER$ + ".MIC" UNLESS DEB = 0
06280	O$ = "<MFG>" + USER$ + ".MIC" UNLESS DEB = 1
06300	OPEN O$ FOR OUTPUT AS FILE #2, ACCESS WRITE
06320	PRINT #2:	"@ENA"
06340	IF CHAN$+UNIT$ = '00'  THEN 6580
06360	PRINT #2:	"@CHECKD"
06380	PRINT #2:	"CREATE ";USER$;":"
06400	PRINT #2:	"*"
06420	PRINT #2:	"1"
06440	PRINT #2:	"?"
06460	PRINT #2:	"";CHAN$;",";CT$;",";UNIT$;""
06480	PRINT #2:	"0"
06500	PRINT #2:	"0"
06520	PRINT #2:	"*"
06540	PRINT #2:	"NO"
06560	PRINT #2:	"EXIT"
06561	IF CT$<>"7" THEN GOTO 6580
06562	REM TEMP FIX TILL NEWER CHECKD 19-SEP-85
06564	REM PRINT #2:	"HOMBLK"	\&
	REM PRINT #2:	CHAN$		\&
	REM PRINT #2:	UNIT$
06580	REM [END_CHECKD]
06600	PRINT O$, "FINISHED"
06620	CLOSE #2
06640	GOTO 3700	!MORE
06660!
06680	rem	[MONNAM-TXT]
06685	IF WDR$ = "F-S" THEN GOTO 6840
06700	open  "<SYSTEM>monnam.txt" for output as file #1,access write	UNLESS DEB = 1
06720	open  "<UETP.RUN>monnam.txt" for output as file #1,access write	UNLESS DEB = 0
6725 OPEN "<UTILITIES>KLAD20.REV" FOR INPUT AS FILE #2
6730 INPUT #2,KLREV$
6735 CLOSE #2
06740	PRINT " " \ input 'Customer name ........	' n$
06760	input 'System serial number .. ' n1$
06780	print #1: n$; " sys# "; n1$;" "; KLREV$!	[CUST-NAME] SYS# [SYS-SERIAL] KLAD20-REVISION
06800	rem	[END-MOD]
06820	close #1
06840	IF FLA$ <> 'CONFIG' THEN RETURN
06860	rem	[RELIAB-CMD]
06880	
06900	open  "<UETP.LIB>reliab.cmd" for output as file #2,access write UNLESS DEB = 1
06920	open  "<UETP.RUN>reliab.cmd" for output as file #2,access write UNLESS DEB = 0
06940	PRINT " " \ INPUT 'ACCEPTANCE RUN TIME(HH:MM,PASSES,OR CONT) 'H$
06960	PRINT #2:	"DEFAULT/TIME:01:00:00"
06970	PRINT #2:	"DEFAULT/LIMIT:5"
06980	PRINT #2:	"DEFAULT/CYCLE:";H$
07000	
07020	rem	insert all extras here"
07040		![END-MOD]"
07060	CLOSE #2
07080	GOSUB 2600	!UETP-ATO
07085	GOTO 8700
07100	rem	[PTYCON-ATO]
07120	open  "<SYSTEM>6-1-PTYCON.ATO" for output as file #3,access write UNLESS DEB = 1
07140	open  "<UETP.RUN>6-1-PTYCON.ATO" for output as file #3,access write UNLESS DEB = 0
07160	PRINT #3:	"SILENCE"
07180	PRINT #3:	"LOG" UNLESS FLV = 1
07200	PRINT #3:	"DEFINE ^$OPR"
07220	PRINT #3:	"DEFINE ^$UETP"
07240	PRINT #3:	"DEFINE ^$O"
07260	PRINT #3:	"CONN OPR"
07280	PRINT #3:	"LOG OPERATOR FOO OPERATOR"
07300	PRINT #3:	"ENA"
07320	rem PRINT #3:	" !NEW OPERATOR INTERFACE PARSER"
07340	PRINT #3:	"OPR"
07345	PRINT #3:	"DISABLE OUTPUT-DISPLAY BUGINF-MESSAGES"
07350	PRINT #3:	"DISABLE OUTPUT-DISPLAY BUGCHK-MESSAGES"
07355	PRINT #3:	"DISABLE OUTPUT-DISPLAY SYSTEM-MESSAGES"
07360	PRINT #3:	"TAKE SYSTEM:SYSTEM.CMD"
07380	PRINT #3:	"CLOSE" UNLESS FLV = 0
07400	PRINT #3:	"PUSH"
07420	PRINT #3:	"ENA"
07440	PRINT #3:	"^ESET LOGIN ANY"
07460	PRINT #3:	"^ESEND * SYSTEM IN OPERATION"
07480	rem PRINT #3:	"APPEND PS:<SPOOL>ORION-SYSTEM-LOG.002.* PS:<SPOOL>ORION-OLD.LOG"
07500	rem PRINT #3:	"DELETE PS:<SPOOL>ORION-SYSTEM-LOG.002.*"
07520	PRINT #3:	"POP"
07530	PRINT #3:	"TAKE SYSTEM:DN20N1.CMD"		UNLESS BL$ = 'Y'
07531	!PRINT #3:	"NCP SET NODE TOPS20:: STATE ON"	UNLESS BL$ = 'Y'
07532	PRINT #3:	"NCP CLEAR LOGGING FILE EVENT 0.*"	UNLESS BL$ = 'Y'
07533	PRINT #3:	"NCP SET CIRC DTE-0-1 SERVICE ENABLED" UNLESS BL$ = 'Y'
07536	if bl$ = 'Y' then 7559
07538	PRINT #3:	"TAKE SYSTEM:DN20N2.CMD"	unless n < 2
07539	PRINT #3:	"NCP SET NODE TOPS20:: STATE ON"	UNLESS N < 2
07540	PRINT #3:	"NCP SET CIRCUIT DTE-0-2 SERVICE ENABLED" UNLESS n < 2
07542	PRINT #3:	"TAKE SYSTEM:DN20N3.CMD"	unless n < 3
07543	PRINT #3:	"NCP SET NODE TOPS20:: STATE ON"	UNLESS  N< 3
07544	PRINT #3:	"NCP SET CIRCUIT DTE-0-3 SERVICE ENABLED" UNLESS n < 3
07559	PRINT #3:	"^X"
07560	PRINT #3:	"CONN O"
07580	PRINT #3:	"LOG OPERATOR FOO OPERATOR"
07600	PRINT #3:	"ENA"
07620	PRINT #3:	"^X"
07630	PRINT #3:	"CONN UETP"
07632	PRINT #3:	"LOG F-S FOO F-S"
07634	PRINT #3:	"ENA"
07636	PRINT #3:	"^X"
07640		![END-MOD]"
07645	IF WDR$ = "MFG" GOTO 8000
07647	IF FLA$ = "CONFIG" THEN GOTO 7660
07650	IF CC$ <> LEFT(A2$,2) THEN GOTO 8000
07660		![PTYCON-AN20]"
07680	REM	)AN20-DDANB INSERTED HERE"
07700	PRINT " " \ INPUT 'Do you have an AN20	' FL$
07720	FL$ = LEFT(FL$,1)
07740	FL$ = EDIT$(FL$,32%)
07760	IF FL$ <> 'Y' THEN GOTO 8000	!SKIP AN20 STUFF
07764	PRINT #3:	"CONN O"
07766	PRINT #3:	"ENA"
07768	PRINT #3:	"NETSRV"
07770	PRINT #3:	"^X"
07780	PRINT #3:	"DEFINE ^AN20"
07800	PRINT #3:	"CONN AN20"
07820	PRINT #3:	"LOG F-S FOO F-S"
07840	PRINT #3:	"ENA"
07860	PRINT #3:	"SET NO LOGINS ARPA"
07880	PRINT #3:	"DEF DSK: <1-DIAGNOSTICS>,<2-DIAGNOSTICS>"
07900	PRINT #3:	"RUN D20MON"
07920	PRINT #3:	"DDANB.A10"
07940	PRINT #3:	"N"
07960	PRINT #3:	"START"
07980	PRINT #3:	"^X"
08000	!uetp.ato
08010	PRINT #3:	"NO SILENCE"
08012	GOTO 8040 UNLESS NILOOP$ = "Y"
08020	PRINT #3:	"CONN OPR"
08021	PRINT #3:	"!"
08030	PRINT #3:	"! Enable NI Port for diagnostics..."
08032	PRINT #3:	"SET PORT NI UNAVAILABLE"
08034	PRINT #3:	"WAIT 1"
08036	PRINT #3:	"WAIT 1"
08038	PRINT #3:	"^X"
08040	GOTO 8100 UNLESS CILOOP$ = "Y"
08041	PRINT #3:	"CONN OPR"
08042	PRINT #3:	"!"
08043	PRINT #3:	"! Enable CI Port for diagnostics."
08044	PRINT #3:	"SET PORT CI UNAVAILABLE"
08046	PRINT #3:	"WAIT 1"
08047	PRINT #3:	"WAIT 1"
08050	PRINT #3:	"RESPOND 1 FORCE"
08052	PRINT #3:	"WAIT 3"
08054	PRINT #3:	"WAIT 1"
08056	PRINT #3:	"!"
08058	PRINT #3:	"^X"
08100	PRINT #3:	"CONN UETP"
08110	PRINT #3:	"CAN BATCH */USER:F-S"
08115	PRINT #3:	"DAY"
08120	PRINT #3:	"PAUSE"
08125	PRINT #3:	"CONN <UETP.RUN>"
08130	PRINT #3:	"DEL UETP.LOGS"
08135	PRINT #3:	"APPEND *.LOG.0 UETP.LOGS"
08160	PRINT #3:	"TAKE SYSTEM:UETP.CMD" 
08180	PRINT #3:	"RUN UETP"
08200	PRINT #3:	"	TAKE RELIAB.CMD"	UNLESS FLB = 1
08220	PRINT #3:	"	!TAKE RELIAB.CMD"	UNLESS FLB = 0
08230	PRINT #3:	"^X"
08235	PRINT #3:	"WHAT ALL"
08236	PRINT #3:	"UETP-STATUS"
08240	CLOSE #3
08260		![END-MOD]
08280	IF FLA$ <> 'CONFIG' THEN RETURN
08300	rem	[UETP-ATO]
08320 	open  "<SYSTEM>UETP.CMD" for output as file #5,access write UNLESS DEB = 1
08340		open  "<UETP.RUN>UETP.CMD" for output as file #5,access write UNLESS DEB = 0
08360	PRINT #5:	"TERM WIDTH 132"
08380 REM 	PRINT #5:	"CAN BATCH */USER:F-S"
08400	PRINT #5:	"CONN <UETP.RUN>"
08420	PRINT #5:	"DEL *.LOG"
08440	REM PRINT #5:	"UNDELETE RUN.LOG.*"
08460	REM PRINT #5:	"UNDELETE EXCEPT.LOG"
08480	PRINT #5:	"EXP"
08500	PRINT #5:	";SUB <MFG>SPEAR.CTL/UNI:YES/OUT:NOL/AFT:+23:59/TIME:04:00:00"	UNLESS FLV = 1
08520	PRINT #5:	";SUB <MFG>PVSPR.CTL/UNI:YES/OUT:NOL/AFT:+71:59/TIME:04:00:00"	UNLESS FLV = 0
08540	PRINT #5:	"TAKE PS:<UETP.LIB>CLEAN-UP.CMD"
08560	PRINT #5:	"TAKE PS:<UETP.LIB>SET-UP.CMD"
08580	PRINT #5:	"DEFINE DSK: <UETP.RUN>,PS:<UETP.LIB>"
08600	REM PRINT #5:	"RUN <UETP.LIB>UETP"
08620	REM PRINT #5:	"TAKE <UETP.LIB>RELIAB.CMD"
08640		![END-MOD]
08660	close #5
08665	RETURN
08680	IF FLA$ <> 'CONFIG' THEN RETURN
08700	GOSUB 3500	!RP20
08720	
08740	rem	[MTA-MAX]
08745	IF WDR$ = "MFG" THEN GOTO 15629
08760	PRINT " " \ PRINT "MAGTAPE ROUTINES"
08780	PRINT "TYPE 'H' FOR HELP 'E' TO EXIT"
08800	PRINT " " \ INPUT 'TYPE  TEST DENSITY EG."6250" ';A1$
08820	A1$ = EDIT$(A1$,32%)\IF A1$ = 'E' THEN GOTO 15629
08840	IF A1$ = 'H' then print 'TU78 IS 6250 '\ GOTO 8800
08860! LET T1 = POS(A1$,"6",1)\IF LEN(A1$) = 1 THEN GOTO 4290
08880	LET DEN$ = A1$
08900	LET T1 = 1
08920 IF MID$(A1$,T1+1,1)= '0' THEN LET MAX$ = '1'\GOTO 8960
08940 IF MID$(A1$,T1+1,1) = '2' THEN LET MAX$ = '2' \GOTO 8960
08960	INPUT 'Tape to be tested	' A$	UNLESS FLA$ = 'REMOVE'
08980	IF FLA$ = 'REMOVE' THEN INPUT 'Tape to be removed' a$
09000	A$ = EDIT$(A$,32%)
09020	IF LEFT$(A$,1) ='H' THEN PRINT "TYPE 'MTA0' ETC."\GOTO 8760
09040	MTA$ =A$\ IF mta$ = 'E' GOTO 15629	!EXIT
09060!	IF MAX$<>'1' THEN 9220
09080	IF LEN(A$) < 3 THEN GOTO 8740	!RESTART
09100	O$ = "<UETP.LIB>" + A$ + ".MAX" UNLESS DEB = 1
09120	O$ = "<UETP.RUN>" +A$ + ".MAX" UNLESS DEB = 0
09140	open O$  for output as file #7,access write 
09160	MARGIN #7, 120
09180		PRINT #7:	"!TIME 0:30:0"
09200		PRINT #7:	"! Template for Comprehensive tape tests"
09220		PRINT #7:	"!"
09240		PRINT #7:	"! Test ";MTA$;".CMP"
09260		PRINT #7:	"!"
09280		PRINT #7:	"!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
09300		PRINT #7:	"!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
09320		PRINT #7:	"!"
09340		PRINT #7:	"!COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
09360		PRINT #7:	"!"
09380		PRINT #7:	"!FILES NEEDED:"
09400		PRINT #7:	"!	MTASKR.EXE"
09420		PRINT #7:	"!	MTASKF.EXE"
09440		PRINT #7:	"!	MTABAK.EXE"
09460		PRINT #7:	"!	MTABKR.EXE"
09480		PRINT #7:	"!	TAPWRT.EXE"
09500		PRINT #7:	"!	TAPRED.EXE"
09520		PRINT #7:	"!"
09540		PRINT #7:	""
09560		PRINT #7:	"!.R SETSRC"
09580		PRINT #7:	"*CP [5,33,MTA]"
09600		PRINT #7:	"*LIB:[5,33]"
09620		PRINT #7:	"*"
09640		PRINT #7:	""
09660		PRINT #7:	"!.Set default prot <000>"
09680		PRINT #7:	""
09700		PRINT #7:	"@DEFINE UTP: <UETP.LIB>		!.none"
09710		PRINT #7:	"@TAKE UTP:SYS.CMD	!.none"
09720		PRINT #7:	"@DEF DSK: <UETP.MTA>,DSK:<UETP.LIB>	!.none"
09740		PRINT #7:	""
09760		PRINT #7:	"@DEF OUT: PS:<UETP.MTA>	!.ASSIGN DSK: OUT:"
09800		PRINT #7:	""
09820		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
09840		PRINT #7:	"*TYPE START"
09860		PRINT #7:	"*BLABEL BEGIN:"
09880		PRINT #7:	"*TEST ";MTA$;""
09900		PRINT #7:	"*SEND Start of ";MTA$;""
09920		PRINT #7:	"*EXIT"
09940		PRINT #7:	""
09960		PRINT #7:	"@TAKE SYS.CMD	!.none"
09980		PRINT #7:	"@IF (NOERROR) @GOTO BEGIN2:	!.IF (NOERROR) .GOTO BEGIN2:"
10000		PRINT #7:	""
10020		PRINT #7:	"@RUN  UTP:SENDER	!.RUN  UTP:SENDER"
10040		PRINT #7:	"*TYPE error"
10060		PRINT #7:	"*BLABEL BEGIN1:"
10080		PRINT #7:	"*TEST ";MTA$;""
10100		PRINT #7:	"*SEND ERROR on TAKE SYS.CMD"
10120		PRINT #7:	"*EXIT"
10140		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
10160		PRINT #7:	""
10180		PRINT #7:	"begin2::"
10200		PRINT #7:	""
10220		PRINT #7:	"MTA::"
10240		PRINT #7:	"@DEFINE MAG: ";MTA$;":	!.none"
10260		PRINT #7:	"@ASSIGN MAG:	!.ASSIGN ";MTA$;": MAG:"
10280		PRINT #7:	"@IF (NOERROR) @GOTO MTA1:	!.IF (NOERROR) .GOTO MTA1:"
10300		PRINT #7:	""
10320		PRINT #7:	'@MOUNT TAPE ';MTA$;':/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount ';MTA$;":"	!.MOUNT MTA:MAG/WRIT:Y/REEL:";MTA$;"/VID:"Please mount ";MTA$;""'
10340		PRINT #7:	"@IF (NOERROR) @GOTO MTA1:	!.IF (NOERROR) .GOTO MTA1:"
10360		PRINT #7:	""
10380		PRINT #7:	"	! ***** message: ERROR assigning ";MTA$;""
10400		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
10420		PRINT #7:	"*TYPE ERROR"
10440		PRINT #7:	"*BLABEL MTA:"
10460		PRINT #7:	"*TEST ";MTA$;""
10480		PRINT #7:	"*SEND ERROR assigning ";MTA$;":"
10500		PRINT #7:	"*EXIT"
10520		PRINT #7:	"@GOTO ENDERR::	!.GOTO ENDERR::"
10540		PRINT #7:	""
10560		PRINT #7:	"MTA1::"
10580		PRINT #7:	"SET TAPE DENSITY 1600"
10600		PRINT #7:	"@REW MAG:"
10620		PRINT #7:	"@IF (NOERROR) GOTO MTA2:	!.IF (NOERROR) GOTO MTA2:"
10640		PRINT #7:	""
10660		PRINT #7:	"	! ***** message: device ";MTA$;": is not online"
10680		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
10700		PRINT #7:	"*type error"
10720		PRINT #7:	"*blabel MTA1:"
10740		PRINT #7:	"*test ";MTA$;""
10760		PRINT #7:	"*Send Device ";MTA$;": is not online"
10780		PRINT #7:	"*exit"
10800		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
10820		PRINT #7:	""
10840		PRINT #7:	"MTA2::"
10860		PRINT #7:	"@copy ";MTA$;".CMP mag:	!.COP MAG:=";MTA$;".CMP"
10880		PRINT #7:	"@IF (NOERROR) GOTO MTA3:	!.IF (NOERROR) GOTO MTA3:"
10900		PRINT #7:	""
10920		PRINT #7:	"	! ***** message: device ";MTA$;": is write-protected"
10940		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
10960		PRINT #7:	"*type error"
10980		PRINT #7:	"*blabel MTA2::"
11000		PRINT #7:	"*test ";MTA$;""
11020		PRINT #7:	"*send device ";MTA$;": is write-protected"
11040		PRINT #7:	"*exit"
11060		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
11080		PRINT #7:	""
11100		PRINT #7:	"MTA3::"
11120		PRINT #7:	"@RUN UTP:MTABKR.EXE	!.RUN UTP:MTABKR.EXE"
11140		PRINT #7:	"@IF (NOERROR) @GOTO MTA4:	!.IF (NOERROR) .GOTO MTA4:"
11160		PRINT #7:	""
11180		PRINT #7:	"	! ***** MESSAGE: ERROR in ";MTA$;" ON 'RUN MTABKR'"
11200		PRINT #7:	""
11220		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
11240		PRINT #7:	"*TYPE ERROR"
11260		PRINT #7:	"*BLABEL MTA3:"
11280		PRINT #7:	"*TEST ";MTA$;""
11300		PRINT #7:	"*SEND ERROR in ";MTA$;" ON 'RUN MTABKR'"
11320		PRINT #7:	"*EXIT"
11340		PRINT #7:	"@GOTO MTA5:	!.GOTO MTA5:"
11360		PRINT #7:	""
11380		PRINT #7:	"MTA4::"
11400		PRINT #7:	"*00003"
11420		PRINT #7:	"@IF (NOERROR) @GOTO MTA5:	!.IF (NOERROR) .GOTO MTA5:"
11440		PRINT #7:	""
11460		PRINT #7:	"	! ***** message: ERROR in ";MTA$;" MTABKR.EXE"
11480		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
11500		PRINT #7:	"*TYPE ERROR"
11520		PRINT #7:	"*BLABEL MTA4:"
11540		PRINT #7:	"*TEST ";MTA$;""
11560		PRINT #7:	"*SEND ERROR in ";MTA$;" MTABKR.EXE"
11580		PRINT #7:	"*EXIT"
11600		PRINT #7:	""
11620		PRINT #7:	"MTA5::"
11640		PRINT #7:	"@RUN UTP:MTASKF.EXE	!.RUN UTP:MTASKF.EXE"
11660		PRINT #7:	"@IF (NOERROR) @GOTO MTA6:	!.IF (NOERROR) .GOTO MTA6:"
11680		PRINT #7:	""
11700		PRINT #7:	"	! ***** MESSAGE: ERROR in ";MTA$;" ON 'RUN MTASKF'"
11720		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
11740		PRINT #7:	"*TYPE ERROR"
11760		PRINT #7:	"*BLABEL MTA5:"
11780		PRINT #7:	"*TEST ";MTA$;""
11800		PRINT #7:	"*SEND ERROR ";MTA$;" ON 'RUN MTASKF'"
11820		PRINT #7:	"*EXIT"
11840		PRINT #7:	"@GOTO MTA7:	!.GOTO MTA7:"
11860		PRINT #7:	""
11880		PRINT #7:	"MTA6::"
11900		PRINT #7:	"*00003"
11920		PRINT #7:	"@IF (NOERROR) @GOTO MTA7:	!.IF (NOERROR) .GOTO MTA7:"
11940		PRINT #7:	""
11960		PRINT #7:	"	! ***** message: ERROR in ";MTA$;" MTASKF.EXE"
11980		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
12000		PRINT #7:	"*TYPE ERROR"
12020		PRINT #7:	"*BLABEL MTA6:"
12040		PRINT #7:	"*TEST ";MTA$;""
12060		PRINT #7:	"*SEND ERROR in ";MTA$;" MTASKF.EXE"
12080		PRINT #7:	"*EXIT"
12100		PRINT #7:	""
12120		PRINT #7:	"MTA7::"
12140		PRINT #7:	"@RUN UTP:MTASKR.EXE	!.RUN UTP:MTASKR.EXE"
12160		PRINT #7:	"@IF (NOERROR) @GOTO MTA8:	!.IF (NOERROR) .GOTO MTA8:"
12180		PRINT #7:	""
12200		PRINT #7:	"	! ***** MESSAGE: ERROR in ";MTA$;" ON 'RUN MTASKR'"
12220		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
12240		PRINT #7:	"*TYPE ERROR"
12260		PRINT #7:	"*BLABEL MTA7:"
12280		PRINT #7:	"*TEST ";MTA$;""
12300		PRINT #7:	"*SEND ERROR in ";MTA$;" ON 'RUN MTASKR'"
12320		PRINT #7:	"*EXIT"
12340		PRINT #7:	"@GOTO MTA9:	!.GOTO MTA9:"
12360		PRINT #7:	""
12380		PRINT #7:	"MTA8::"
12400		PRINT #7:	"*00003"
12420		PRINT #7:	"@IF (NOERROR) @GOTO MTA9:	!.IF (NOERROR) .GOTO MTA9:"
12440		PRINT #7:	""
12460		PRINT #7:	"	! ***** message: ERROR in ";MTA$;" MTASKR.EXE"
12480		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
12500		PRINT #7:	"*TYPE ERROR"
12520		PRINT #7:	"*BLABEL MTA8:"
12540		PRINT #7:	"*TEST ";MTA$;""
12560		PRINT #7:	"*SEND ERROR in ";MTA$;" MTASKR.EXE"
12580		PRINT #7:	"*EXIT"
12600		PRINT #7:	""
12620		PRINT #7:	"MTA9::"
12640		PRINT #7:	"@RUN UTP:MTABAK.EXE	!.RUN UTP:MTABAK.EXE"
12660		PRINT #7:	"@IF (NOERROR) @GOTO MTA10:	!.IF (NOERROR) .GOTO MTA10:"
12680		PRINT #7:	""
12700		PRINT #7:	"	! ***** MESSAGE: ERROR in ";MTA$;" ON 'RUN MTABAK'"
12720		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
12740		PRINT #7:	"*TYPE ERROR"
12760		PRINT #7:	"*BLABEL MTA9:"
12780		PRINT #7:	"*TEST ";MTA$;""
12800		PRINT #7:	"*SEND ERROR in ";MTA$;" ON 'RUN MTABAK'"
12820		PRINT #7:	"*EXIT"
12840		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
12860		PRINT #7:	""
12880		PRINT #7:	"MTA10::"
12900		PRINT #7:	"*3"
12920		PRINT #7:	"@IF (NOERROR) GOTO MTA11:	!.IF (NOERROR) GOTO MTA11:"
12940		PRINT #7:	""
12960		PRINT #7:	"	! ***** message: ERROR in ";MTA$;" MTAbak.EXE"
12980		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
13000		PRINT #7:	"*TYPE ERROR"
13020		PRINT #7:	"*BLABEL MTA10:"
13040		PRINT #7:	"*TEST ";MTA$;""
13060		PRINT #7:	"*SEND ERROR in ";MTA$;" MTABAK.EXE"
13080		PRINT #7:	"*EXIT"
13100		PRINT #7:	"@GOTO MTA11:	!.GOTO MTA11:"
13120		PRINT #7:	""
13140		PRINT #7:	"MTA11::"
13160 REM	LET DEN$ = '1600'		!DEFAULT DENSITY
13180!	IF MAX$ = "1" THEN LET DEN$ = '800'
13200!	IF MAX$ = "2" THEN LET DEN$ = '6250'
13220		PRINT #7:	"	! ***** MESSAGE: RUNNING TAPWRT AT ";DEN$;" BPI"
13240		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
13260		PRINT #7:	"*TYPE MINOR"
13280		PRINT #7:	"*BLABEL MTA11:"
13300		PRINT #7:	"*TEST ";MTA$;""
13320		PRINT #7:	"*SEND RUNNING TAPWRT AT ";DEN$;" BPI"
13340		PRINT #7:	"*EXIT"
13360		PRINT #7:	""
13380		PRINT #7:	"@RUN UTP:TAPWRT	!.RUN UTP:TAPWRT"
13400		PRINT #7:	"*";MTA$;":"
13420		PRINT #7:	"*";DEN$
13440		PRINT #7:	"@IF (NOERROR) GOTO MTA12:	!.IF (NOERROR) GOTO MTA12:"
13460		PRINT #7:	""
13480		PRINT #7:	"	! ***** MESSAGE ERROR RUNNING TAPWRT"
13500		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
13520		PRINT #7:	"*TYPE ERROR"
13540		PRINT #7:	"*BLABEL MTA11:"
13560		PRINT #7:	"*TEST ";MTA$;""
13580		PRINT #7:	"*SEND PROBLEM RUNNING TAPWRT"
13600		PRINT #7:	"*EXIT"
13620		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
13640		PRINT #7:	""
13660		PRINT #7:	"MTA12::"
13680		PRINT #7:	"@RUN UTP:TAPRED.EXE	!.RUN UTP:TAPRED.EXE"
13700		PRINT #7:	"*";MTA$;":"
13720		PRINT #7:	"*";DEN$
13740		PRINT #7:	"@IF (NOERROR) GOTO REQTUK:" IF MAX$ = '9'
13760		PRINT #7:	"@IF (NOERROR) GOTO END:" 
13780		PRINT #7:	""
13800		PRINT #7:	"	! ***** MESSAGE ERROR RUNNING TAPRED"
13820		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
13840		PRINT #7:	"*TYPE ERROR"
13860		PRINT #7:	"*BLABEL MTA12:"
13880		PRINT #7:	"*TEST ";MTA$;""
13900		PRINT #7:	"*SEND PROBLEM RUNNING TAPRED"
13920		PRINT #7:	"*EXIT"
13940		PRINT #7:	"@GOTO REQTUK:" IF MAX$ = '9'
13960		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
13980		PRINT #7:	""
14000	 GOTO 14760
14020		PRINT #7:	"REQTUK::"
14040		PRINT #7:	"@REQUE TUK::"
14060		PRINT #7:	"!"
14080		PRINT #7:	"TUK::"
14100		PRINT #7:	"@ENA"
14120		PRINT #7:	"@DEF DSK:<UETP.RUN>,<1-DIAGNOSTICS>,<2-DIAGNOSTICS>"
14140		PRINT #7:	"@DEF UTP: <UETP.LIB>"
14160		PRINT #7:	"@RUN DIAMON"
14180		PRINT #7:	"*S"
14200		PRINT #7:	"*DFTUK"
14220		PRINT #7:	"@IF (ERROR) @GOTO TUKERR::"
14240		PRINT #7:	"@ERROR"
14260		PRINT #7:	"*Y"
14280		PRINT #7:	"*10"
14300		PRINT #7:	"*2000"
14320		PRINT #7:	"*Y"
14340		PRINT #7:	"*";MTA$;":"
14360		PRINT #7:	"*TU77"
14380		PRINT #7:	"*R8"
14400		PRINT #7:	"*"
14420		PRINT #7:	"*"
14440		PRINT #7:	"*"
14460		PRINT #7:	"*Y"
14480		PRINT #7:	"*"
14500		PRINT #7:	"@IF (NOERROR) @GOTO END:"
14520		PRINT #7:	"!"
14540		PRINT #7:	"TUKERR::"
14560		PRINT #7:	"@silence!***** message: error running DFTUK on ";MTA$;""
14580		PRINT #7:	"@Run <uetp.lib>sender"
14600		PRINT #7:	"*type error"
14620		PRINT #7:	"*blabel tuk::"
14640		PRINT #7:	"*test ";MTA$;""
14660		PRINT #7:	"*send error running DFTUK on ";MTA$;""
14680		PRINT #7:	"*exit"
14700		PRINT #7:	"@revive"
14720		PRINT #7:	"@goto end::"
14740		PRINT #7:	"!"
14760		REM	[END-MOD]
14780		PRINT #7:	"%TERR::"
14800		PRINT #7:	"	! ***** MESSAGE: TIME-OUT ERROR ";MTA$;""
14820		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
14840		PRINT #7:	"*TYPE ERROR"
14860		PRINT #7:	"*BLABEL %TERR:"
14880		PRINT #7:	"*TEST ";MTA$;""
14900		PRINT #7:	"*SEND TIME-OUT ERROR ";MTA$;""
14920		PRINT #7:	"*EXIT"
14940		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
14960		PRINT #7:	""
14980		PRINT #7:	"%ERR::"
15000		PRINT #7:	"	! ***** MESSAGE: UNKNOWN ERROR IN ";MTA$;""
15020		PRINT #7:	"@RUN UTP:SENDER	!.RUN UTP:SENDER"
15040		PRINT #7:	"*TYPE ERROR"
15060		PRINT #7:	"*BLABEL %ERR:"
15080		PRINT #7:	"*TEST ";MTA$;""
15100		PRINT #7:	"*SEND UNKNOWN ERROR IN ";MTA$;""
15120		PRINT #7:	"*EXIT"
15140		PRINT #7:	"@GOTO ENDERR:	!.GOTO ENDERR:"
15160		PRINT #7:	""
15180		PRINT #7:	"ENDERR::"
15200		PRINT #7:	"@INF DIS <UETP.MTA>	!.none"
15220		PRINT #7:	"@VDIR *.*	!.none"
15240		PRINT #7:	"@I LOG ALL	!.none"
15260		PRINT #7:	"@INF FI	!.none"
15280		PRINT #7:	"@INF MEM	!.none"
15300		PRINT #7:	""
15320		PRINT #7:	"END::"
15340		PRINT #7:	"%FIN::"
15360		PRINT #7:	"	! ***** message: END OF ";MTA$;": TEST"
15380		PRINT #7:	"@RUN  UTP:SENDER	!.RUN  UTP:SENDER"
15400		PRINT #7:	"*TYPE END"
15420		PRINT #7:	"*BLABEL END:"
15440		PRINT #7:	"*TEST ";MTA$;""
15460		PRINT #7:	"*SEND END OF ";MTA$;":  TEST"
15480		PRINT #7:	"*EXIT"
15500	close #7
15520	PRINT O$, 'FINISHED'
15540!	IF MAX$='1' THEN LET MTA$="ENA "+MTA$+'/DEPTH:MAX'  ELSE LET mta$ = "ENA "+ mta$ + "/DEPTH:COM/CYCLE:10"
15560	LET MTA$ = "ENA "+ MTA$+"/DEPTH:MAX/CYCLE:10"
15580	LET P1 = P1 + 1
15600	LET R$(P1) = mta$ + "/TIME:01:00:00"
15620	GOTO 8800	!REPEAT
15629	IF FLA$ <> 'CONFIG' THEN RETURN
15630	!CI20
15633	IF CIDISK$ = "Y" THEN PRINT " " \ PRINT "CI20 Loopback Test disabled because Disk(s) configured on Channel 7" \ GOTO 15650
15635	PRINT " " \ INPUT "Does the system have a CI20 (Y,N) ? " CILOOP$
15636	CILOOP$ = EDIT$(CILOOP$,32%)
15637	IF CILOOP$ = "N" THEN GOTO 15650
15638	IF CILOOP$ <> "Y" THEN GOTO 15635
15639	LET P1 = P1+1
15640	LET R$(P1) = "ENA CILOOP"
15641	IF FLA$ <> 'CONFIG' THEN RETURN
15650	!NI20
15651	PRINT " " \ INPUT "Does the system have a NI20 (Y,N) ? " NILOOP$
15652	NILOOP$ = EDIT$(NILOOP$,32%)
15653	IF NILOOP$ = "N" THEN GOTO 15660
15654	IF NILOOP$ <> "Y" THEN GOTO 15651
15655	LET P1 = P1+1
15656	LET R$(P1) = "ENA NILOOP"
15657	IF FLA$ <> 'CONFIG' THEN RETURN
15660	rem	[";VER$;"config-CMD]
15670	LET FS$ = "<SYSTEM>"+VER$+"config.cmd"
15680	open  FS$ for output as file #8,access write UNLESS DEB = 1
15685	LET FS$ =  "<UETP.RUN>"+VER$+"config.cmd"
15700	open  FS$ for output as file #8,access write UNLESS DEB = 0
15720	MARGIN #8, 132
15740	PRINT " " \ INPUT 'How many DC20 lines (0-200 octal) ' N
15760	LET N1 = N + 1
15780	let N$ = str$(N)
15800	let N1$ = str$(N1)
15820	PRINT #8:	'TERM 1-';N$; ' SPEED 9600' UNLESS N = 0
15840	PRINT #8:	'TERM '; N1$;'-200 SPEED 0' UNLESS N > 177
15860	PRINT #8:	"TERM 1-200 SP 0" UNLESS N <> 0
15880	PRINT #8:	"TIMEZONE 5"
15900	PRINT #8:	"DEFINE SYS: PS:<NEW-SUBSYS>,PS:<FIELD-IMAGE>,PS:<SUBSYS>,PS:<UNSUPPORTED>,PS:<UTILITIES>,PS:<UETP.LIB>,PS:<MFG>,PS:<TOOLS>"
15910	PRINT #8:	"DEFINE HLP: PS:<HELP>, SYS:"
15920	PRINT #8:	"DEFINE SYSTEM: PS:<NEW-SYSTEM>,PS:<SYSTEM>,ps:<system-error>"
15940	PRINT #8:	"DEFINE SERR: PS:<SYSTEM-ERROR>"
15960	REM
15980	PRINT #8:	"ENA FULL-LATENCY-OPTIMIZATION"
16000	PRINT #8:	"ENABLE WORKING-SET-PRELOADING"
16020	PRINT #8:	"DISABLE ACCOUNT-VALIDATION"
16040	PRINT #8:	"DISABLE DIRECTORY-PARAMETER-SETTING"
16060	PRINT #8:	"NODE TOPS20 67"
16080	PRINT #8:	"HOST 1200000117"
16090	PRINT #8:	"BATCH-BACKGROUND"
16100		![END-MOD]
16120		![";VER$;"config-PRINTERS]"
16140		!";VER$;"config printer mod inserted here"
16160	LET N$ = '0'
16180	RAM$ = '64'
16200	LC$ = ' '
16220	PRINT " " \ INPUT 'How many linprinters are on the system (0-2) ' L
16240	IF L = 0 THEN GOTO 16800	!CLOSE
16260	IF L > 2 THEN LET L = 2
16280	PRINT 'Does lpt';N$;' have a programmable vfu ';\INPUT  a$
16300	A$ = LEFT(A$,1)
16320	a$ = edit$(a$,32%)
16340	if a$ = 'H' then print 'VS. FORMS TAPE '\GOTO 16280
16360	PRINT 'Does lpt';N$;' have lowercase ';\INPUT a1$
16380	A1$ = LEFT(A1$,1)
16400	a1$ = edit$(a1$,32%)
16420	IF A1$ = 'H' THEN PRINT 'LOWERCASE DRUM'\GOTO 16360
16440	if a1$ <> 'Y' goto 16500 !+2
16460	LC$ = ' LOWERCASE '
16480	RAM$ = '96'
16500	!IF L>2 GOTO 30400
16520	PRINT #8:	"PRINTER ";N$;LC$;"VFU SYS:NORMAL.VFU" UNLESS A$ <> 'Y'
16540	PRINT #8:	"PRINTER ";N$;LC$;"RAM SYS:LP";RAM$;".RAM" UNLESS L = 0
16560	LET P1 = P1 + 1
16580	LET R$(P1) = 'ENA LPT0/CYCLE:10' UNLESS N$ = '1'
16600	LET R$(P1) = 'ENA LPT1/CYCLE:10' UNLESS N$ = '0'
16620	LET LC$ = ' '
16640	LET RAM$ = '64'
16660	IF L <> 2 THEN GOTO 16800	!CLOSE
16680	LET L = L + 1
16700	LET N$ = '1'
16720	GOTO 16280	!INPUT
16740		![END-MOD]"
16760		!";VER$;"config magtape mod inserted here"
16780	
16800	close #8
16820	rem	
16840		![";VER$;"config-DECNET]
16860		![END-MOD]
16880	IF FLA$ <> 'CONFIG' THEN RETURN
16900	rem	[DEAD_END]
16920	IF FLA$ <> 'CONFIG' THEN RETURN
16930	REM IF WDR$ = "MFG" THEN LET N = 0\REM GOTO 22540
16940	rem	[DN64X]
16960	![FIND OUT ABOUT DN20'S]
16965	rem IF WDR$ = "MFG" THEN LET N = 0\ rem GOTO 22540
16980	PRINT " " \ INPUT 'How many DN20 front ends (0-3)' n
17000	LET NN = N
17020	if n = 0 THEN LET BL$ = 'Y' \goto 22540 !exit to sysjob
17025	IF WDR$ = "MFG" THEN LET BL$ = 'N'\GOTO 17060
17040	input 'Enable IBMCON (Y,N) ' BL$
17060	BL$ = EDIT$(BL$,32%)
17080	BL$ = LEFT$(BL$,1)
17100	IF BL$ = 'H' THEN PRINT "Modem turn-around test on DUP's"\goto 17040
17120	rem IF BL$ <> 'Y' THEN GOTO 17760	!IBMCOM  ?
17125	PRINT " " \ Print 'On DN20 #1'
17140	input 'How many DUPs on KDP_0 ' NU1
17145	if nu1 >4 then print 'Max=4 '\goto 17140
17150	input 'How many DUPs on KDP_1 ' NO1
17155	if no1 >4 then print 'Max=4 '\goto 17150
17160	input "How many DMCs	" m1
17180	input "How many DMRs	" MR1
17190	if m1 + mr1 > 6 then print 'Max high-speed = 6'\ goto 17160
17195	if nu1+no1+m1+mr1 > 8 then print 'Max sync. lines = 8 '\goto 17125
17200	if n = 1 goto 17360	!do 1
17210	PRINT " " \ PRINT 'On DN20 #2'
17220	input 'How many DUPs on KDP_0 ' NU2
17230	input 'How many DUPs on KDP_1 ' NO2
17240	INPUT 'How many DMCs	' M2
17260	input "How many DMRs	" MR2
17280	IF N = 2 goto 17360	!DO 2
17290	PRINT 'On DN20 #3'
17300	input 'How many DUPs on KDP_0 ' NU3
17310	input 'How many DUPs on KDP_1 ' NO3
17320	INPUT 'How many DMCs	' m3
17340	input "How many DMRs	" MR3
17360	![begin]
17380	LET U1 = NU1+NO1\ LET U2 = NU2+NO2\ LET U3 = NU3+NO3
17390	if bl$ <> 'Y' then goto 17760
17400	rem	[DNLOAD-ATO]
17420	open  "<SYSTEM>DNLOAD.ato" for output as file #6,access write UNLESS DEB = 1
17440	open  "<UETP.RUN>DNLOAD.ato" for output as file #6,access write UNLESS DEB = 0
17460	PRINT #6:	""
17480	PRINT #6:	"CONN UETP"
17500	PRINT #6:	""
17520	PRINT #6:	"PUSH"
17540	PRINT #6:	"ENA"
17560	PRINT #6:	"DNLOAD"
17580	PRINT #6:	"LOAD DTE 1 <DN64-BINARIES>DN64KM.BIN DL1:" unless u1 = 0
17600	PRINT #6:	"LOAD DTE 2 <DN64-BINARIES>DN64KM.BIN DL2:" unless u2 = 0
17620	PRINT #6:	"LOAD DTE 3 <DN64-BINARIES>DN64KM.BIN DL3:" unless u3 = 0
17640	PRINT #6:	""
17660	PRINT #6:	"EXIT"
17680	PRINT #6:	"POP"
17700	PRINT #6:	"^X"
17720	rem	[END-MOD]
17740	close #6
17760	REM let a = 65-1	!dec a - 1
17780	LET U = U1
17790	if u >6 then let u = 6 	!Max no. IBMCON supports
17800	if n = 0 goto 22540	!exit networks
17820	for i = 1 to n	!n # of dn20s
17840	let a = 65-1	!dec a - 1
17860	if U = 0 goto 18400	!try dmc
17880	If BL$ <> 'Y' then GOTO 18040   !IBMCON ?
17900	if U = 8 then let n1 = 4 \goto 18040	!dup
17920	if U = 6 then let n1 = 3 \goto 18040	!dup
17940	if U = 4 then let n1 = 2 \goto 18040	!dup
17960	if U = 2 then let n1 = 1 \goto 18040	!dup
17980	INPUT 'Must be even DUP (0-8) ARE YOU SURE' ANS$ unless ans$ = 'Y'
18000	ANS$ = EDIT$(ANS$,32%)
18020	IF LEFT$(ANS$,1) <> 'Y' THEN goto 16960 ELSE GOTO 18400 !AND SKIP DUP
18040	![dup]
18060	for i1 = 1 to n1	!set up pairs of dups
18080	let d1 = i
18100	let d1 = d1 + 48
18120	LET d1$ = CHR$(D1)	!dte #
18140	t$ = 'DN1' + d1$	!test
18160	let a = a + 1
18180	LET A$ = CHR$(A)
18200	let p$ = a$		!pair a - d
18220	let r1$ = "1" + d1$	!port
18240	LET I2 = (I1*2) - 2
18260	REM CAL LINES
18280	let  w = 48 + I2	!receive line
18300	let w1 = 48 +(i2 + 1) 	!send line
18320	LET l1$ = CHR$(W)	!rec line
18340	LET l2$ = CHR$(W1)	!send line
18360	If BL$ = 'Y' THEN  gosub 18780	![DN64X] NO IBMCON ?
18380	next i1	!up to 4 times for dups
18400	IF I = 1 THEN LET U = U2 ELSE LET U = U3
18410	if u > 6 then let u = 6 !Max IBMCON supports
18420	next i 	!up to 3 times for dn20s
18440	![dmc]
18460	let uu = 0
18480	for i = 1 to NN	!#of dn20s
18500	IF U <= 4 THEN LET UU = 0
18520	let d = i
18540	let d = d + 48
18560	LET d$ = CHR$(D)	!DTE #
18580	s$ = 'tops20'	!servername
18600	x$ = '6' + d$	!nodename
18620	p$ = 'DN20N' + d$
18640	if i = 1 then let u = u1\ let m = m1\ let mr = mr1	\&
	let Nu = Nu1\ let No = No1
18660	if i = 2 then let u = u2\ let m = m2\ let mr = mr2	\&
	let Nu = Nu2\ let No = No2
18680	if i = 3 then let u = u3\ let m = m3\ let mr = mr3	\&
	let Nu = Nu3\ let No = No3
18700	REM if u > 4 then let uu = (u - 4)\ let u = 4 !OBS
18710	REM if uu > 2 then let uu = 2	!OBS
18720	gosub 24200	![node]
18740	next i
18760	goto 22540	!exit
18780	O$ = '<UETP.LIB>' + T$ + P$ + '.VER' UNLESS DEB = 1
18800	O$ = '<UETP.RUN>' + T$ + P$ + '.VER' UNLESS DEB = 0
18820	open  O$  for output as file #11,access write 
18840	MARGIN #11: 120
18860	PRINT #11:	"!THIS FILE WAS CREATED BY THE ACCEPTANCE CONFIGURATION PROGRAM CONFIG.EXE"
18880	PRINT #11:	"!  FROM A MODEL OF THE DN64X TESTS"
18900	PRINT #11:	""
18920	PRINT #11:	"!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
18940	PRINT #11:	"!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
18960	PRINT #11:	"!"
18980	PRINT #11:	"!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
19000	PRINT #11:	"!CONVERTED FROM THE EXERCISER ON NOVEMBER 14, 1977"
19020	PRINT #11:	"!"
19040	PRINT #11:	"!VERSION 2	11/7/77"
19060	PRINT #11:	"@DEF DSK: DSK:,<UETP.LIB>"
19080	PRINT #11:	"@I LOG ALL"
19100	PRINT #11:	"COM0::"
19120	PRINT #11:	"@RUN <UETP.LIB>SENDER"
19140	PRINT #11:	"*TYPE START"
19160	PRINT #11:	"*BLABEL COM00::"
19180	PRINT #11:	"*TEST ";T$;P$![TEST][PAIR]
19200	PRINT #11:	"*SEND START OF ";T$;P$![TEST][PAIR]
19220	PRINT #11:	"*EXIT"
19240	PRINT #11:	"!"
19260	PRINT #11:	"!"
19280	PRINT #11:	"@DELETE ";T$;"S";P$;".LOG"![TEST]S[PAIR].LOG
19300	PRINT #11:	"@SUBMIT <UETP.LIB>";T$;"S";P$;".SEND /OUTPUT:NOLOG /UNIQUE:0/TIME:00:01:00/AFTER:+00:01:00/PRIO:11"
19320	PRINT #11:	"@IF (NOERROR) @GOTO DOTST::"
19340	PRINT #11:	"@RUN <UETP.LIB>SENDER"
19360	PRINT #11:	"*TYPE ERROR"
19380	PRINT #11:	"*BLABEL COM00::"
19400	PRINT #11:	"*TEST ";T$;P$![TEST][PAIR]
19420	PRINT #11:	"*SEND ERROR SUBMIT'ING THE SENDER SIDE"
19440	PRINT #11:	"*EXIT"
19460	PRINT #11:	"@GOTO DONE::"
19480	PRINT #11:	"!"
19500	PRINT #11:	"DOTST::"
19520	PRINT #11:	""
19540	PRINT #11:	"!INITIATE RECEIVE PROGRAM"
19560	PRINT #11:	"!"
19580	PRINT #11:	"!NOW RUN D60SPD TO APPEAR TO BE A LINE PRINTER.  IT WILL EXPECT"
19600	PRINT #11:	"! TO RECEIVE CARRIAGE CONTROL SEQUENCES.  THE DATA RECEIVED WILL"
19620	PRINT #11:	"! BE WRITTEN TO THE FILE ";T$;P$;".DAT, TO BE COMPARED AGAINST A CONTROL"
19640	PRINT #11:	"! FILE."
19660	PRINT #11:	"@ENABLE"
19680	PRINT #11:	"@DELETE ";T$;P$;".DAT"![TEST][PAIR].DAT
19700	PRINT #11:	"@RUN <UETP.LIB>D60SPD.EXE"
19720	PRINT #11:	"*SET SIMULATE/PORT:";R1$;"/LINE:";L1$;"/DEV:0/3780"
19740	PRINT #11:	"*NOTYPEAHEAD"
19760	PRINT #11:	"*STATUS ALL"
19780	PRINT #11:	"*INPUT ";T$;P$;".DAT/TIME:60"![TEST][PAIR].DAT/TIME:60
19800	PRINT #11:	"*STATUS ALL"
19820	PRINT #11:	"@IF (NOERROR) @GOTO COM7::"
19840	PRINT #11:	"@RUN <UETP.LIB>SENDER"
19860	PRINT #11:	"*TYPE ERROR"
19880	PRINT #11:	"*BLABEL DOTST::"
19900	PRINT #11:	"*TEST ";T$;P$![TEST][PAIR]
19920	PRINT #11:	"*SEND ERRORS RECEIVING DATA"
19940	PRINT #11:	"*EXIT"
19960	PRINT #11:	"@GOTO DONE::"
19980	PRINT #11:	""
20000	PRINT #11:	"COM7::"
20020	PRINT #11:	""
20040	PRINT #11:	"@DISABLE"
20060	PRINT #11:	"!NOW RUN A PROGRAM WHICH WILL COMPARE THE RECEIVED DATA "
20080	PRINT #11:	"@RUN <UETP.LIB>UETCMP"
20100	PRINT #11:	"*COMPARE"
20120	PRINT #11:	"*";T$;P$;".DAT"![TEST][PAIR].DAT
20140	PRINT #11:	"*SND";R1$;P$;".DAT"![PORT][PAIR].DAT
20160	PRINT #11:	"*exit"
20180	PRINT #11:	"@IF (NOERROR) @GOTO DONE::"
20200	PRINT #11:	"!"
20220	PRINT #11:	"@RUN <UETP.LIB>SENDER"
20240	PRINT #11:	"*TYPE ERROR"
20260	PRINT #11:	"*BLABEL DONE::"
20280	PRINT #11:	"*TEST ";T$;P$	![TEST][PAIR]
20300	PRINT #11:	"*SEND ERRORS IN THE RECEIVED FILE ";T$;P$;".DAT"![TEST][PAIR].DAT
20320	PRINT #11:	"*EXIT"
20340	PRINT #11:	"%ERR::"
20360	PRINT #11:	"@RUN <UETP.LIB>SENDER"
20380	PRINT #11:	"*TYPE ERROR"
20400	PRINT #11:	"*BLABEL DONE::"
20420	PRINT #11:	"*TEST ";T$;P$	![TEST][PAIR]
20440	PRINT #11:	"*SEND UNKNOWN ERRORS IN RECEIVE SIDE"
20460	PRINT #11:	"*EXIT"
20480	PRINT #11:	"!"
20500	PRINT #11:	"DONE::"
20520	PRINT #11:	"!"
20540	PRINT #11:	"%FIN::"
20560	PRINT #11:	"@DELETE SND";R1$;P$;".DAT"![PORT][PAIR].DAT
20580	PRINT #11:	"@EXPUNGE"
20600	PRINT #11:	"@CA BATCH ";T$;"S";P$![TEST]S[PAIR]
20620	PRINT #11:	"@CHKPNT ADSF::"
20640	PRINT #11:	"@RUN <UETP.LIB>SENDER"
20660	PRINT #11:	"*TYPE END"
20680	PRINT #11:	"*BLABEL DONE::"
20700	PRINT #11:	"*TEST ";T$;P$	![TEST][PAIR]
20720	PRINT #11:	"*SEND END OF TEST"
20740	PRINT #11:	"*EXIT"
20760	rem	[END-MOD]
20780	PRINT O$, 'FINISHED'
20800	close #11
20820	rem	
20840	TS$ = 'ENA ' + T$ + P$
20860	LET P1 = P1 + 1
20880	LET R$(P1) = TS$	
20900	rem	[DN64SX]
20920	O$ = '<UETP.LIB>' + T$ + 'S' +  P$ + '.SEND' UNLESS DEB = 1
20940	O$ = '<UETP.RUN>' + T$ + 'S' +  P$ + '.SEND' UNLESS DEB = 0
20960	open  O$  for output as file #12,access write 
20980	MARGIN #12, 120
21000	PRINT #12:	"!THIS FILE WAS CREATED BY THE ACCEPTANCE CONFIGURATION PROGRAM CONFIG.EXE"
21020	PRINT #12:	"!  FROM A MODEL OF THE DN64SX.SEND FILE"
21040	PRINT #12:	"!"
21060	PRINT #12:	"!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
21080	PRINT #12:	"!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
21100	PRINT #12:	";"
21120	PRINT #12:	"!"
21140	PRINT #12:	"!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
21160	PRINT #12:	"!THIS TEST WAS TAKEN FROM THE EXERCISER ON NOVEMBER 14,1977"
21180	PRINT #12:	"!"
21200	PRINT #12:	"!VERSION 2	11/7/77"
21220	PRINT #12:	"!COMUN1.BAT"
21240	PRINT #12:	"!"
21260	PRINT #12:	"!BATCH CONTROL FILE"
21280	PRINT #12:	"!TO PERFORM COMMUNICATION SEND FUNCTION."
21300	PRINT #12:	""
21320	PRINT #12:	"COM00::"
21340	PRINT #12:	""
21360	PRINT #12:	"@RUN <UETP.LIB>SENDER"
21380	PRINT #12:	"*TYPE MINOR"
21400	PRINT #12:	"*BLABEL COM00::"
21420	PRINT #12:	"*TEST ";T$;P$	![TEST][PAIR]
21440	PRINT #12:	"*SEND START OF ";T$;"S";P$;" SEND"![TEST]S[PAIR] SEND"
21460	PRINT #12:	"*EXIT"
21480	PRINT #12:	"!"
21500	PRINT #12:	"@ENABLE"
21520	PRINT #12:	"!"
21540	PRINT #12:	"!  NOW SEND THE DATA "
21560	PRINT #12:	"!"
21580	PRINT #12:	"@COPY <UETP.LIB>DN64.DAT (TO)  SND";R1$;P$;".DAT"	![PORT][PAIR].DAT
21600	PRINT #12:	"@IF (NOERROR) @GOTO GOSND::"
21620	PRINT #12:	"@RUN <UETP.LIB>SENDER"
21640	PRINT #12:	"*TYPE ERROR"
21660	PRINT #12:	"*BLABEL COM00::"
21680	PRINT #12:	"*TEST ";T$;P$	![TEST][PAIR]
21700	PRINT #12:	"*SEND ERROR COPYING DN64.DAT FILE"
21720	PRINT #12:	"*EXIT"
21740	PRINT #12:	"@GOTO DONE::"
21760	PRINT #12:	"!"
21780	PRINT #12:	"GOSND::"
21800	PRINT #12:	""
21820	PRINT #12:	"@RUN <UETP.LIB>D60SPD.EXE"
21840	PRINT #12:	"*SET SUPPORT/PORT:";R1$;"/LINE:";L2$;"/DEV:0/3780"
21860	PRINT #12:	"*NOTYPEAHEAD"
21880	PRINT #12:	"*STATUS ALL"
21900	PRINT #12:	"*OUTPUT SND";R1$;P$;".DAT/TIME:60"
21920	PRINT #12:	"*STATUS ALL"
21940	PRINT #12:	"@IF (NOERROR) @GOTO DONE::"
21960	PRINT #12:	"@RUN <UETP.LIB>SENDER"
21980	PRINT #12:	"*TYPE ERROR"
22000	PRINT #12:	"*BLABEL DONE::"
22020	PRINT #12:	"*TEST ";T$;P$	![TEST][PAIR]
22040	PRINT #12:	"*SEND ERRORS IN SENDING FILE DN64.DAT FROM ";T$;"S";P$	![TEST]S[PAIR]
22060	PRINT #12:	"*EXIT"
22080	PRINT #12:	"%ERR::"
22100	PRINT #12:	"@RUN <UETP.LIB>SENDER"
22120	PRINT #12:	"*TYPE ERROR"
22140	PRINT #12:	"*BLABEL DONE::"
22160	PRINT #12:	"*TEST ";T$;P$	! [TEST][PAIR]
22180	PRINT #12:	"*SEND UNKNOWN ERRORS IN SEND FROM ";T$;"S";P$	![TEST]S[PAIR]
22200	PRINT #12:	""
22220	PRINT #12:	"*EXIT"
22240	PRINT #12:	""
22260	PRINT #12:	"DONE::"
22280	PRINT #12:	""
22300	PRINT #12:	"%FIN::"
22320	PRINT #12:	"@RUN <UETP.LIB>SENDER"
22340	PRINT #12:	"*TYPE MINOR"
22360	PRINT #12:	"*BLABEL DONE::"
22380	PRINT #12:	"*TEST ";T$;P$	![TEST][PAIR]
22400	PRINT #12:	"*SEND END OF SEND FROM ";T$;"S";P$	![TEST]S[PAIR]"
22420	PRINT #12:	"*EXIT"
22440	rem	[END-MOD]
22460	PRINT O$, 'FINISHED'
22480	close #12
22500	RETURN
22520	!STOP
22540	rem	[SYSJOB-RUN]
22550	GOSUB	7100	!PTYCON-ATO
22560	IF FLA$ = "CONFIG" THEN GOSUB 2980	!MEMORY	
22570	LET FS$ = "<SYSTEM>sysjob.run"
22575	if VER$ <> "5-" THEN  LET FS$ = "<SYSTEM>"+VER$+"sysjob.run"
22580	open  FS$ for output as file #13,access write UNLESS DEB = 1
22590	LET FS$ ="<UETP.RUN>sysjob.run"
22595	if VER$ <> "5-" THEN  LET FS$ = "<UETP.RUN>"+VER$+"sysjob.run"
22600	open  FS$ for output as file #13,access write UNLESS DEB = 0
22610	IF VER$ <> '5-' THEN PRINT 'NOTE: USING PREFIX "';VER$;'"'
22620	PRINT #13:	"RUN SYS:INFO"
22625	PRINT #13:	"RUN SYS:MAPPER"
22640	PRINT #13:	"RUN SYS:ORION"
22660!	PRINT #13:	"RUN SYS:NETSER"	UNLESS FL$ <> 'Y'
22680	PRINT #13:	"RUN SYS:QUASAR"
22700	PRINT #13:	"RUN SYS:MOUNTR"
22720	PRINT #13:	"RUN SYS:MAILER"
22740	PRINT #13:	"RUN SYS:LPTSPL"
22760	PRINT #13:	"RUN SYS:LPTSPL"
22780	PRINT #13:	"RUN SYS:CDRIVE"
22800	PRINT #13:	"RUN SYS:SPRINT"
22840	PRINT #13:	"JOB 0 /LOG OPERATOR XX OPERATOR"
22860	PRINT #13:	"ENA"
22880	PRINT #13:	"SET LOGIN PSEUDO"
22900	PRINT #13:	"SET LOGIN CONSOLE"
22920	PRINT #13:	"SET OPERATOR"
22940	PRINT #13:	"PTYCON"
22950	PRINT #13:	"GET SYSTEM:NETWRK.ATO" UNLESS BL$ = 'Y'
22951	PRINT #13:	"GET SYSTEM:DNDLX.ATO" UNLESS BL$ = 'Y'
22960	PRINT #13:	"GET SYSTEM:6-1-PTYCON.ATO"
22962 IF N = 0 GOTO 23040
22980	PRINT #13:	"GET SYSTEM:DNLOAD.ATO" UNLESS BL$ <> 'Y'
23020!	PRINT #13:	";GET SYSTEM:UETP.ATO" UNLESS FLB = 1
23040	PRINT #13:	"/"
23060	PRINT #13:	"JOB 1 /LOG OPERATOR XX OPERATOR"
23080	PRINT #13:	"ENA"
23100	PRINT #13:	"RUN SYS:BATCON"
23120	PRINT #13:	"/"
23140		![SYSJOB-DECNET]
23160!	PRINT #13:	"JOB 2 /LOG OPERATOR XX OPERATOR" UNLESS N = 0
23180!	PRINT #13:	"ENA"				UNLESS N = 0
23200!	PRINT #13:	"RUN SYS:FAL"			UNLESS N = 0
23220!	PRINT #13:	"/"				UNLESS N = 0
23240!	PRINT #13:	"JOB 3 /LOG OPERATOR XX OPERATOR" UNLESS N = 0
23260!	PRINT #13:	"ENA"				UNLESS N = 0
23280!	PRINT #13:	"RUN SYS:NETCON"		UNLESS N = 0
23300!	PRINT #13:	"/"				UNLESS N = 0
23320		![END-MOD]
23340	PRINT #13:	"JOB 4 /LOG OPERATOR XX OPERATOR" UNLESS FLV = 1
23360	PRINT #13:	"ENA"				UNLESS FLV = 1
23380	PRINT #13:	"RUN SYS:BATCON"		UNLESS FLV = 1
23400	PRINT #13:	"/"				UNLESS FLV = 1
23420		![END-MOD]
23440	PRINT #13:	"JOB 5 /LOG OPERATOR XX OPERATOR"
23460	PRINT #13:	"ENA"
23480	PRINT #13:	"RUN SYSTEM:UPTIME"
23500	PRINT #13:	"/"	
23520		![END-MOD]
23540	close #13
23560	IF FLA$ <> 'CONFIG' THEN RETURN
23580	REM GOSUB 1430	!MEMORY
23600	GOTO 26420	!END
23620	rem	[SYSTEM-CMD]
23640	open  "<SYSTEM>system.cmd" for output as file #14,access write UNLESS DEB = 1
23660	open  "<UETP.RUN>system.cmd" for output as file #14,access write UNLESS DEB = 0
23680	margin #14,120
23700	PRINT #14:	"!This command file will startup the necessay Batch Streams, Printers,"
23720	PRINT #14:	"! and Readers allows all messages to appear on the console."
23740	PRINT #14:	"! The objects all will use system default limits which can be changed"
23760	PRINT #14:	"! by adding various Set commands."
23780	PRINT #14:	"! If yoU wish to suppress Job Messages for all objects insert the following"
23800	PRINT #14:	"! command into this file."
23820	PRINT #14:	"!"
23840	PRINT #14:	"DISABLE OUTPUT-DISPLAY ALL-MESSAGES/JOB "
23850	PRINT #14:	"DISABLE OUTPUT-DISPLAY BATCH/INF" unless wdr$ = 'F-S'
23860	PRINT #14:	"!"
23880	PRINT #14:	"!"
23900	PRINT #14:	"SET BATCH-STREAM 1:5 TIME-LIMIT 11000 !Set Time Limit in minutes"
23902	PRINT #14:	"SET BATCH-STREAM 6:10 TIME-LIMIT 11000 !Set Time Limit in minutes"
23904	PRINT #14:	"SET BATCH-STREAM 11:15 TIME-LIMIT 11000 !Set Time Limit in minutes"
23920	PRINT #14:	"START BATCH-STREAM 0:2 !This will start up 3 Batch Streams"
23960	PRINT #14:	"START BATCH-STREAM 3 !This will start up 4 Batch Streams"	UNLESS S1 < 386
23980	PRINT #14:	"START BATCH-STREAM 4:5 !This will start up 6 Batch Streams"	UNLESS S1 < 768
23985	rem IF CT$ = '-1' THEN GOTO 24020
24000	PRINT #14:	"START BATCH-STREAM 6:10 !This will start up 11 Batch Streams"	UNLESS S1 < 1024
24010	PRINT #14:	"START BATCH-STREAM 11:14 !This will start up 15 Batch Streams"	UNLESS S1 < 1024
24020	PRINT #14:	"START PRINTER 0 !This will start up 1 printer locally"
24040	PRINT #14:	"START PRINTER 1 !This will start up 1 printer locally"
24060	PRINT #14:	"SET PRINTER 0 PAGE-LIMIT 20000 ! Set Page Limits for Printer 0"
24080	PRINT #14:	"SET PRINTER 1 PAGE-LIMIT 20000 ! Set Page Limits for Printer 0"
24100	PRINT #14:	"START READER 0  !This will start up a Card Reader if you have one"
24120	rem	[END-MOD]
24140	close #14
24160	RETURN
24180	STOP
24200	rem	[NODE-BLD1]
24220	rem	@ENA
24240	O$ = '<MFG>' + P$ + '.CTL' UNLESS DEB = 1
24260	O$ = '<UETP.RUN>' + P$ + '.CTL' UNLESS DEB = 0
24280	open  O$  for output as file #15,access write 
24300	PRINT #15:	"@ENA"
24320	print #15:	"@error ?"
24340	PRINT #15:	"@BUILD <DN20-";D$;">"
24360	PRINT #15:	"@PERM 750"
24380	PRINT #15:	"@WORKING 750"
24400	PRINT #15:	"@USER 4747"
24420	PRINT #15:	"@PASS F-S"
24440	PRINT #15:	"@"
24460	PRINT #15:	"@DELETE <DN20-";D$;">*.*,"
24480	PRINT #15:	"@EXP"
24500	PRINT #15:	"@"
24520	PRINT #15:	"@DEFINE DSK:"
24540	PRINT #15:	"@"
24560	PRINT #15:	"DEFINE GEN: <DN20>,<DNGEN>,<DNGEN.CMDS>"
24580	PRINT #15:	"DEFINE DN20: <DN20-";D$;">"
24600	PRINT #15:	"DEFINE DSK: DSK:,GEN:"
24620	PRINT #15:	"CONN DN20:"
24640	PRINT #15:	"ACCESS DN20:"
24660!	PRINT #15:	"@TAKE GEN:DN20BLD.CMD"
24680	PRINT #15:	"@NETGEN"
24700	PRINT #15:	"START"
24710	PRINT #15:	P$	!NODE NAME 
24730	PRINT #15:	X$	!NODE ADDRESS 
24740	PRINT #15:	"*"	!XMIT PASSWORD
24785	PRINT #15:	D$	!DTE NUMBER
24790	LET DMC$ = STR$(M)
24800	PRINT #15:	DMC$	!TOTAL DMCS
24820	print #15:	"*"	UNLESS M < 1 \&
	!print #15:	"*"	UNLESS M < 1 \&
	print #15:	"*"	UNLESS M < 2 \&
	!print #15:	"*"	UNLESS M < 2 \&
	print #15:	"*"	UNLESS M < 3 \&
	!print #15:	"*"	UNLESS M < 3 \&
	print #15:	"*"	UNLESS M < 4 \&
	!print #15:	"*"	UNLESS M < 4
24890	LET DMR$ = STR$(MR)
24900	PRINT #15:	DMR$	!TOTAL DMRS 	
24910	print #15:	"*"	UNLESS MR < 1	\&
	print #15:	"*"	UNLESS MR < 1	\&
	print #15:	"*"	UNLESS MR < 2	\&
	print #15:	"*"	UNLESS MR < 2	\&
	print #15:	"*"	UNLESS MR < 3	\&
	print #15:	"*"	UNLESS MR < 3	\&
	print #15:	"*"	UNLESS MR < 4	\&
	print #15:	"*"	UNLESS MR < 4	
24920	IF NO = 0 THEN LET KDP$ = '1' ELSE LET KDP$ = '2' 
24940	LET DUP$ = STR$(NU)
24960	LET DUU$ = STR$(NO)
24970	PRINT #15:	"0"	IF     NU = 0	!kdps
24980	Print #15:	KDP$ 	UNLESS NU = 0	!Kdps
25000	Print #15:	DUP$	UNLESS NU = 0	!Dups on Kdp_0
25010	print #15:	"*"	UNLESS NU < 1	\&
	print #15:	"*"	UNLESS NU < 1	\&
	print #15:	"*"	UNLESS NU < 2	\&
	print #15:	"*"	UNLESS NU < 2	\&
	print #15:	"*"	UNLESS NU < 3	\&
	print #15:	"*"	UNLESS NU < 3	\&
	print #15:	"*"	UNLESS NU < 4	\&
	print #15:	"*"	UNLESS NU < 4	
25040	Print #15:	DUU$	UNLESS NO = 0	!Dups on Kdp_1
25050	print #15:	"*"	UNLESS NO < 1	\&
	print #15:	"*"	UNLESS NO < 1	\&
	print #15:	"*"	UNLESS NO < 2	\&
	print #15:	"*"	UNLESS NO < 2	\&
	print #15:	"*"	UNLESS NO < 3	\&
	print #15:	"*"	UNLESS NO < 3	\&
	print #15:	"*"	UNLESS NO < 4	\&
	print #15:	"*"	UNLESS NO < 4	
25080	PRINT #15:	"INFO"
25100	PRINT #15:	"EXIT"
25120	PRINT #15:	";TAKES A COUPLE MINUTES TO RUN VNP20"
25140	PRINT #15:	"@SUBMIT gen:dnsys";d$;".MIC/BAT:SUP/OUT:NOL"
25145	PRINT #15:	"@SUBMIT <MFG>";P$;".CTL/TAG:Nipgen/OUT:NOL/BAT:SUP"	UNLESS DEB = 1
25150	PRINT #15:	"@SUBMIT <UETP.RUN>";P$;".CTL/TAG:Nipgen/OUT:NOL/BAT:SUP"	UNLESS DEB = 0
25155	PRINT #15:	"@GOTO END"
25157	PRINT #15:	"NIPGEN::"
25158	PRINT #15:	"@DEFINE DSK:"				\&
	PRINT #15:	"@"					\&
	PRINT #15:	"DEFINE GEN: <DN20>,<DNGEN>,<DNGEN.CMDS>"\&
	PRINT #15:	"DEFINE DN20: <DN20-";D$;">"		\&
	PRINT #15:	"DEFINE DSK: DSK:,GEN:"			\&
	PRINT #15:	"ENA"					\&
	PRINT #15:	"CONN DN20:"				\&
	PRINT #15:	"ACCESS DN20:"
25160	PRINT #15:	"@COPY <DN20-";D$;">";P$;".SYS <SUBSYS>";P$;".SYS"
25620	PRINT #15:	"@ERROR %"
25640	REM PRINT #15:	"@ENA"
25660	PRINT #15:	"R NIPGEN"
25670	PRINT #15:	s$ !Host Name: tops20
25680	PRINT #15:	"67" ! Host Node Address: 67
25690	PRINT #15:	p$ ! Tops20's Load Target Node Name: DN20Nx
25700	PRINT #15:	x$ ! Target Node Address: 6x
25710	PRINT #15:	"dte-0-";d$ ! Service Circuit: DTE-0-x
25720	PRINT #15:	"MCB" !Node Type
25730	PRINT #15:	"*" !Other nodes handled separately
25740	PRINT #15:	p$ ! Tops20's Adjacent Node Name: DN20Nx
25742	PRINT #15:	x$ ! Adjacent Node Address: 6x
25744	PRINT #15:	"dte-0-";d$ ! Connecting Circuit: DTE-0-x
25746	PRINT #15:	"*" ! Other nodes handled separately
25749	PRINT #15:	"*" ! Forget nodes adjacent to DN20
25750	PRINT #15:	"f-s" ! MCB DN20nx's User ID: F-S
25752	PRINT #15:	"f-s" ! Account: F-S
25754	PRINT #15:	"fs" ! Password: FS
25760	PRINT #15:	"*" ! Remote nodes Omitted
25840	GOTO 26090
25860	REM OBSOLETE
25880	PRINT #15:	"kdp-0 ! Data Link: KDP-0" unless m < 1
25900	PRINT #15:	"5! Link Cost: 5"	   unless m < 1
25920	PRINT #15:	"dup-0! Data Link: DUP-0"  unless u < 1
25940	PRINT #15:	"5! Link Cost: 5"	   unless u < 1
25960	PRINT #15:	"kdp-1 ! Data Link: KDP-1" unless m < 2
25980	PRINT #15:	"5! Link Cost: 5"	   unless m < 2
26000	PRINT #15:	"dup-1! Data Link: DUP-1"  unless u < 2
26020	PRINT #15:	"5! Link Cost: 5"	   unless u < 2
26040	PRINT #15:	"*"
26060	PRINT #15:	"*"
26080	PRINT #15:	"*"
26082	PRINT #15:	"*"
26090	PRINT #15:	"*"
26100	PRINT #15:	"@COP NCP.CMD <SYSTEM>";P$;".CMD"
26140	PRINT #15:	"!******************************************"
26160	PRINT #15:	"!PLEASE LOAD DECNET SOFTWARE"
26180	PRINT #15:	"!AND TYPE DO <MFG>";P$;".MIC"
26185	PRINT #15:	"@PLEASE  ";p$;" finished^["
26200	PRINT #15:	"!******************************************"
26210	PRINT #15:	"@IF (NOERROR) @GOTO END"
26220	PRINT #15:	"%err::"
26225	PRINT #15:	"@PLEASE AN ERROR IN NIPGEN"
26230	PRINT #15:	"!******************************************"
26235	PRINT #15:	"END::"
26240	PRINT #15:	"%fin::"
26260	PRINT #15:	"@DEFINE DSK:"
26280	PRINT #15:	"@"
26300	print #15:   	"!kmic"
26320	PRINT O$, 'FINISHED'
26340	CLOSE #15
26360	rem	[END-MOD]
26380	rem	
26382	let p1 = p1 + 1		UNLESS BL$ = 'Y'
26384	let r$(p1) = "ENA " + P$ UNLESS BL$ = 'Y'
26400	RETURN
26420	REM  FINISH RELIAB.CMD
26421	print " "\&
	PRINT "Type 'H' for help."
26422	INPUT "Test Process (S = System, P = Peripheral, H) " PROC$\&
	PROC$ = EDIT$(PROC$,32%)
26423	GOTO 26460 UNLESS PROC$ = "H"
26424	PRINT "Type 'S' if you wish to test the system (CPU,MEM,PS:)"
26425	PRINT "         as well as the peripherals."
26426	PRINT "TYPE 'P' if you wish to only test peripherals."
26427	GOTO 26421
26440	!END
26460	OPEN '<UETP.LIB>RELIAB.CMD' AS FILE #19, ACCESS APPEND UNLESS DEB = 1
26480	OPEN '<UETP.RUN>RELIAB.CMD' AS FILE #19, ACCESS APPEND UNLESS DEB = 0
26500 	MAT PRINT #19: R$(P1) UNLESS P1 = 0
26540	PRINT #19:	"ENA ALGOL" UNLESS PROC$ = "P"
26560	PRINT #19:	"ENA APL" UNLESS PROC$ = "P"
26580	PRINT #19:	"ENA APLSF" UNLESS PROC$ = "P"
26600	PRINT #19:	"ENA BASIC" UNLESS PROC$ = "P"
26625!	PRINT #19:	"ENA CBL74" UNLESS PROC$ = "P"
26626!	PRINT #19:	"ENA CBLSRT" UNLESS PROC$ = "P"
26630	PRINT #19:	"ENA COBOL" UNLESS PROC$ = "P"
26631!	PRINT #19:	"ENA COBOLD" UNLESS PROC$ = "P"
26632!	PRINT #19:	"ENA DBMS" UNLESS PROC$ = "P"
26633!	PRINT #19:	"ENA DBMS20" UNLESS PROC$ = "P"
26634	PRINT #19:	"ENA FORTRA" UNLESS PROC$ = "P"
26640	PRINT #19:	"ENA RANCBL" UNLESS PROC$ = "P"
26650!	PRINT #19:	"ENA RANFOR" UNLESS PROC$ = "P"
26652	PRINT #19:	"ENA RMS" UNLESS PROC$ = "P"
26655	PRINT #19:	"ENA SORT" UNLESS PROC$ = "P"
26680	PRINT #19:	"ENA MEMBAS" UNLESS PROC$ = "P"\&
	PRINT #19:	"ENA CPUBAS" UNLESS PROC$ = "P"\&
	PRINT #19:	"ENA MEMREL" UNLESS PROC$ = "P"\&
	PRINT #19:	"ENA CPUREL" UNLESS PROC$ = "P"
26690	PRINT #19:	"MESS VER"
26700	PRINT #19:	"SILENCE"	UNLESS FLV = 0
26720	PRINT #19:	"BEGIN"	UNLESS FLA$<>'CONFIG'
26740!	PRINT #19:	"WAIT ALL 23:59" UNLESS FLV = 0
26760	PRINT
26780	PRINT 'Peripheral Tests:'
26800 	MAT PRINT  R$(P1) UNLESS P1 = 0
26810	GOSUB 26830	!BATCH MESSAGE
26820	GOTO 27830	!END
26830	!BATCH MESSAGE FOR DN20
26831	IF BL$ = "Y" THEN RETURN
26832	PRINT "PLEASE SUBMIT <MFG>DN20N1.CTL/TIME" UNLESS N = 0\&
	PRINT "PLEASE SUBMIT <MFG>DN20N2.CTL/TIME" UNLESS N < 2\&
	PRINT "PLEASE SUBMIT <MFG>DN20N3.CTL/TIME" UNLESS N < 3
26838	RETURN
26840	!CHANGE ROUTINES
26850	IF FLL = 1 THEN 27820	!END
26860	IF FLA$ <> 'REMOVE' GOTO 27720	!APPEND
26880	!LOOP
26900	FOR I = 1 TO P1
26920	LET B$ = R$(I)
26940	GOSUB 27000	!ENTER
26960	NEXT I
26980	GOTO 27830	!END
26985	!alternate
26986 	open '<uetp.run>6-1-PTYCON.ATO' AS FILE # 20  UNLESS DEB = 0
26987	open '<SYSTEM>6-1-PTYCON.ATO' AS FILE # 20, ACCESS READ UNLESS DEB = 1
26988	let fll = 1
26989	goto 27060
27000	!ENTER
27020	OPEN '<UETP.RUN>RELIAB.CMD' AS FILE # 20  UNLESS DEB = 0
27040	OPEN '<UETP.LIB>RELIAB.CMD' AS FILE # 20, ACCESS READ UNLESS DEB = 1
27060	!IN
27080	ONERROR GOTO 27120
27100	GOTO 27160
27120	PRINT 
27140	RESUME 27160
27160	IFEND #20 GOTO 27400	!WRITE IT
27180	INPUT #20, C$
27200	IF FLC = 1 THEN GOSUB 2860	!XLOOP
27220	IF FLD = 1 THEN GOSUB 2360	!DNLOOP
27240	IF FLF = 1 THEN GOSUB 3300	!MAGLOOP
27260	IF FLH = 1 THEN GOSUB 3400	!RPLOOP
27280	IF FLI = 1 THEN GOSUB 2140	!LPLOOP
27282	IF Flj = 1 then gosub 3388	!new module
27300	!PRINT C$
27320	IF C$ = 'BEGIN' THEN GOTO 27360
27340	IF B$ <> C$ THEN GOSUB 27420	!STORE
27360	IFMORE #20 THEN GOTO 27060	!IN
27380	!STOP
27400	GOTO 27500	!WRITE
27420	!STORE
27440	LET P2 = P2 + 1
27460	LET R2$(P2) = C$
27480	RETURN
27500	!WRITE
27520	CLOSE #20
27530	if fll <> 1 then goto 27540
27532	OPEN '<SYSTEM>6-1-PTYCON.ATO' AS FILE #21, ACCESS WRITE UNLESS DEB = 1
27534	OPEN '<UETP.RUN>6-1-PTYCON.ATO' AS FILE #21, ACCESS WRITE UNLESS DEB = 0
27536	goto 27580
27540	OPEN '<UETP.LIB>RELIAB.CMD' AS FILE #21, ACCESS WRITE UNLESS DEB = 1
27560	OPEN '<UETP.RUN>RELIAB.CMD' AS FILE #21, ACCESS WRITE UNLESS DEB = 0
27580	MAT PRINT #21: R2$(P2) UNLESS P2 = 0
27600	MAT R2$ = NUL$
27620	LET P2 = 0
27640	CLOSE #21
27660	ONERROR GOTO 0
27680	LET FLC = 0\&
	GOSUB 26830	unless fll = 1	!BATCH MESSAGE
27700	RETURN
27720	!APPEND
27740	OPEN '<UETP.LIB>RELIAB.CMD' AS FILE #20, ACCESS APPEND UNLESS DEB = 1
27760	OPEN '<UETP.RUN>RELIAB.CMD' AS FILE #20, ACCESS APPEND UNLESS DEB = 0
27780	MAT PRINT #20: R$(P1) UNLESS P1 = 0
27781	GOSUB 26830	!BATCH MESSAGE
27800	PRINT #20: "BEGIN"
27820	!END
27830	IF FLA$ <> 'CONFIG' THEN  MAT R$ = NUL$ \RETURN
27840	END