$ ON ERROR THEN CONTINUE
$ ON CONTROL_Y THEN GOTO CONT
$ IF P1 .EQS. "CS" THEN GOTO  DOCS
$ IF P1 .EQS. "XL" THEN GOTO DOXLS
$ IF P1 .EQS. "PC" THEN GOTO DOPCX
$ IF P1 .EQS. "52" THEN GOTO DO52
$ IF P1 .EQS. "HELP" THEN GOTO HELPUSR
$ IF P1 .EQS. "?" THEN GOTO HELPUSR
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCVM
$ GOTO CONT
$ DO52:
$ SET TERM /VT52
$ copy sys$input sys$output
[?2l
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCC52
$ GOTO CONT
$ DOCS:
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCCS
$ COPY SYS$INPUT SYS$OUTPUT
 
$GOTO CONT
$ DOXLS:
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCX
$ GOTO CONT
$ DOPCX:
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCPCX
$ GOTO CONT
$ HELPUSR:
$ COPY SYS$INPUT SYS$OUTPUT
    PCC      Runs normal PCC-VM
    PCC XL   Runs 2-file "intelligent" PCC
    PCC PC   Runs Color PCC for IBM PC via comm line
    PCC CS   Runs Color PCC for Colorscan 10
    PCC 52   Runs PCC for VT52
$GOTO FINI
$ CONT:
$ COPY SYS$INPUT SYS$OUTPUT
<[?3l
$ FINI:
$ SET TERM /NOESCAPE