$ 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:
$! Following sort of assign may be used for DK for aux keypad files
$ ! ASS/USER sys$sysroot:[dk] dk
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCX
$ GOTO CONT
$ DOPCX:
$! Following sort of assign may be used for DK for aux keypad files
$ ! ASS/USER sys$sysroot:[dk] dk
$ 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:
$! Following sort of assign may be used for DK for aux keypad files
$ ! ASS/USER sys$sysroot:[dk] dk
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCCS
$ COPY SYS$INPUT SYS$OUTPUT
 
$GOTO CONT
$DOVM:
$! Following sort of assign may be used for DK for aux keypad files
$ ! ASS/USER sys$sysroot:[dk] dk
$ ASS/USER SYS$COMMAND SYS$INPUT
$ MCR PCCVM
$ GOTO CONT
$ DO52:
$ SET TERM /VT52
$ copy sys$input sys$output
[?2l
$! Following sort of assign may be used for DK for aux keypad files
$ ! ASS/USER sys$sysroot:[dk] dk
$ 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 (obsolete)
    PCC XL   Same as "PCC" command.
    PCC CS   Runs Color PCC for Colorscan 10
    PCC 52   Runs PCC for VT52 (or VT100 in VT52 mode)
    PCC PC   Runs AnalytiCalc starting in "Enter-Mostly" mode
$GOTO FINI
$ CONT:
$ COPY SYS$INPUT SYS$OUTPUT
<[?3l
$ FINI:
$ SET TERM /NOESCAPE
$ SET TERM /LINE