$ ON ERROR THEN CONTINUE
$ ON CONTROL_Y THEN GOTO CONT
$SET TERM /NOWRAP
$SET TERM/NOLINE
$ IF P1 .EQS. "VM" THEN GOTO DOVM
$ 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
$ DOXLS:
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCX
$ GOTO CONT
$ DOPCX:
$ MCR PCCX
N
AnalytiCalc V19-01B~ Commands start with /  Use PF2 for help, Gold PF2 = Kpd
@DK:PCCINIT.CMD
$! should go and read SYS$COMMAND on close of PCCINIT.CMD
$ GOTO CONT
$ DOCS:
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCCS
$ COPY SYS$INPUT SYS$OUTPUT
 
$GOTO CONT
$DOVM:
$ 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 PCCVM
$ GOTO CONT
$ HELPUSR:
$ COPY SYS$INPUT SYS$OUTPUT
    PCC      Runs normal PCC-XL for VAX
    PCC VM   Runs VAX "VM" version of PCC
    PCC XL   Runs large space "intelligent" PCC
    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
$ SET TERM /LINE