$ GOTO ITER
$REP:
$ CYCLES = CYCLES + 1
$ 'COM1
$ SET CONTROL_Y
$ SET ON
$ 'COM2
$ SET CONTROL_Y
$ SET ON
$ 'COM3
$ SET CONTROL_Y
$ SET ON
$ 'COM4
$ SET CONTROL_Y
$ SET ON
$ 'COM5
$ SET CONTROL_Y
$ SET ON
$ 'COM6
$ SET CONTROL_Y
$ SET ON
$ 'COM7
$ SET CONTROL_Y
$ SET ON
$ 'COM8
$ SET CONTROL_Y
$ SET ON
$ IF CYCLES.EQ.MAXCYC THEN $ GOTO RFRSH
$ WT OUT
$ GOTO REP
$RFRSH:
$ WT P
$ CYCLES = 0
$ WAIT 00:00:02
$ WT CL
$ GOTO REP
$
$ITER:
$ IF "''F$MODE()'".EQS."BATCH" THEN $ EXIT
$ WT := WRITE SYS$OUTPUT
$!SET TERMINAL
$ IF "''F$LOG("TRMHND")'".EQS."ADE100" THEN GOTO ADEVT100
$ IF "''F$LOG("TRMHND")'".EQS."VT100" THEN GOTO ADEVT100
$ IF "''F$LOG("TRMHND")'".EQS."VT220" THEN GOTO ADEVT100
$ IF "''F$LOG("TRMHND")'".EQS."VT200" THEN GOTO ADEVT100
$ IF "''F$LOG("TRMHND")'".EQS."WYSE100" THEN GOTO WYSE100
$ CL[0,8]=%X8C
$ H[0,16]=%X481B
$ P[0,16]=%X4A1B
$ GOTO GETCOMMANDS
$WYSE100:
$ H[0,16]=%X7B1B
$ P[0,16]=%X591B
$ CL[0,8]=%X1A
$ GOTO GETCOMMANDS
$ADEVT100:
$ H[0,32]=%X483B5B1B
$ P[0,32]=%X4A305B1B
$ CL  := 'H''P'
$GETCOMMANDS:
$ OUT := 'P''H'
$ IF P1.EQS."0" THEN OUT := ""
$ read/prompt="ITER>"/end=exit  sys$command COM1
$ IF COM1.EQS."" THEN STOP
$ read/prompt="ITER>"/end=start sys$command COM2
$ IF COM2.EQS."" THEN GOTO START
$ read/prompt="ITER>"/end=start sys$command COM3
$ IF COM3.EQS."" THEN GOTO  START
$ read/prompt="ITER>"/end=start sys$command COM4
$ IF COM4.EQS."" THEN GOTO  START
$ read/prompt="ITER>"/end=start sys$command COM5
$ IF COM5.EQS."" THEN GOTO  START
$ read/prompt="ITER>"/end=start sys$command COM6
$ IF COM6.EQS."" THEN GOTO  START
$ read/prompt="ITER>"/end=start sys$command COM7
$ IF COM7.EQS."" THEN GOTO  START
$ read/prompt="ITER>"/end=start sys$command COM8
$START:
$ if com1.eqs."" then stop
$ SET CONTROL_Y
$ SET ON
$ ON ERROR THEN EXIT
$ ON WARNING THEN EXIT
$ MAXCYC = 10
$ IF P1.NES."" THEN $ MAXCYC = 'P1
$ CYCLES = 0
$ WT CL
$ GOTO REP
$EXIT:
$ exit