{1} "load"          ->
{2} "clr"           ->
{3} "pop"           ->
{4} "swap"          ->
{5} "?"             ->
{6} "save"          ->
{7} "if"            ->
{8} "until"         ->
{9} "list"          ->
{10} "!"            ->
{11} "dup"          ->
{12} "key"          ->
{13} "version"      ->
{14} "graphics"     ->
{15} "text"         ->
{16} "line"         ->
{17} "point"        ->
{18} "gotoxy"       ->
{19} "error"        ->
{20} "sound"        ->
{21} "stackview"    ->
{22} "dial"         ->
{23} "off"          ->
{24} "@->"          ->
{25} "ssize"        ->
{26} "run"          ->
{27} "exec"         ->
{28} "push"         ->
{29} "endload"      ->
{30} "write"        ->
{31} "endwrite"     ->

{32} "+"            ->
{33} "-"            ->
{34} "*"            ->
{35} "/"            ->
{36} "="            ->
{37} "<"            ->
{38} "<="           ->
{39} "@"            ->
{40} ","            ->

{41} "<-"           ->
{42} "number"       ->
{43} "string"       ->
{44} "char"         ->
{45} "int"          ->
{46} "size"         ->
{47} "class"        ->
{48} "sin"          ->
{49} "atn"          ->
{50} "exp"          ->
{51} "ln"           ->
{52} "#"            ->

3.1415926536 "pi"   ->
pi 2 /       "pi/2" ->

[ pi/2 + sin ]               "cos"  ->
[ dup sin swap cos / ]       "tan"  ->
[ 0 swap - ]                 "chs"  ->
[ 1 swap / ]                 "inv"  ->
[ swap ln * exp ]            "^"    ->
[ 0.5 ^ ]                    "sqrt" ->
[ dup * ]                    "sqr"  ->
[ ln 10 ln / ]               "log"  ->
[ dup sqr 1 swap - / atn ]   "asn"  ->
[ asn pi/2 swap - ]          "acs"  ->
[ "false" "true" if ]        "not"  ->
[ <= not ]                   ">"    ->
[ <  not ]                   ">="   ->
[ =  not ]                   "<>"   ->
[ ! "
" ! ]                        "!!"   ->

"bclstmp.tmp"                "tmpf" ->
[
  tmpf write ! endwrite
  text [ 5 3 ] gotoxy "Edit " tmpf + "..." + !
  key pop
  tmpf load
]
                              "edit" ->