%%HP: T(1)A(R)F(.);
« "ERABLE" {
"1.SIMP" "2.TRIG"
"3.INTDER" "4.EXEC"
"5.PLOT" "6.CFG"
"7.ARIT" } 1
CHOOSE2
  IF
  THEN DUP { { EXPA
COLC EXPLIN SINCOS
TEXPA LNCOLC TSIMP
{ "0.BACK" STARTEQW
} } { TRIGLIN
TRIGCOS TRIGSIN
TAN2SC TAN2SC2
HALFTAN { "0.BACK"
STARTEQW } } { der1
RISCH PF LAP ILAP {
"0.BACK" STARTEQW }
} { { "1.NEW VX"
    « DUP 'VX' STO
    » } { 2
"REPLACE"
    « "REPLACE" {
"'X='" 4 ALG V }
INPUT STR¨ EXEC
    » } {
"3.COMMAND"
    « "COMMAND" {
"" 4 ALG V } INPUT
STR¨ EVAL
    » } {
"4.ISOL VX"
    « VX EXEC
    » } { "0.BACK"
STARTEQW } } { {
"1.ERASE AND PLOT"
    « ERASE DUP
STEQ # B4045h
LIBEVAL
    » } {
"2.ADD TO PLOT"
    « EQ DUP TYPE 5
==
      IF
      THEN OVER +
      ELSE OVER 2
¨LIST
      END STEQ
# B4045h LIBEVAL
    » } {
"3.PLOT MENU"
    « # B4045h
LIBEVAL
    » } { "0.BACK"
STARTEQW } } { {
"1.COMPLEX MODE"
    « 13 SF
    » } {
"2.REAL MODE"
    « 13 CF
    » } {
"3.INTEGER ARIT"
    « 10 SF
    » } {
"4.POLYN. ARIT"
    « 10 CF
    » } { "0.BACK"
STARTEQW } } { CHS
re im conj { "BACK"
STARTEQW } } } SWAP
1 1 SUB STR¨ GET 1
CHOOSE2
    IF
    THEN EVAL
    END
  END
»