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