(extern DCL) (local LOCAL) (global GLOBAL #) (global-string SGLOBAL 2&#) (global-string= SGLOBAL #1&) (local-string SDCL) (return SIMPLE ) (top-killstack $SIMPLE ) (start-of-line SIMPLE ) (back SIMPLE ) (capitalize-character SIMPLE ) (delete-forward $SIMPLE ) (end-of-line SIMPLE ) (forward SIMPLE ) (beep SIMPLE ) (delete-back $SIMPLE ) (tab SIMPLE \011) (newline SIMPLE \012) (kill-line $SIMPLE ) (refresh SIMPLE ) (down SIMPLE ) (open-line SIMPLE ) (up SIMPLE ) (insert INSERT ) (reverse-search STRING ) (search STRING ) (transpose SIMPLE ) (next-page SIMPLE ) (kill-region $SIMPLE ) (restore STRING ) (exit SIMPLE ) (arg NUMBER ) (invocation-char UNARY ) (1 NUMBER ) (last NUMBER ) (delete-last-word $SIMPLE ) (redisplay-page SIMPLE ) (mail SIMPLE ) (literal QUOTE ) (quote QUOTE ) (repeat-character CHAR ) (regular-replace MAP ) (ed-regular-replace MAP ) (regular-search STRING ) (execute SIMPLE ) (arg= UNARY ) (invocation-char= UNARY ) (mark SIMPLE ) (run-command STRING ) (buffer-to-command STRING ) (command-to-buffer STRING ) (sub-process STRING ) (fill-buffer SIMPLE ) (fill-region SIMPLE ) (comment SIMPLE ) (map-keys MAP ) (assign-key-to-macro MAP ) (top SIMPLE ) (bottom SIMPLE ) (help UNARY ) /wont work/ (expand-environment $STRING ) (insert-ascii SIMPLE ) (underline-word SIMPLE ) (start-of-sentence SIMPLE ) (back-word SIMPLE ) (capitalize-word SIMPLE ) (delete-next-word $SIMPLE ) (end-of-sentence SIMPLE ) (forward-word SIMPLE ) (goto-line SIMPLE ) (show-modes SIMPLE ) (pickup-region $SIMPLE ) (replace MAP ) (ed-replace MAP ) (statistics SIMPLE ) (set-terminal-type STRING ) (back-page SIMPLE ) (wallchart SIMPLE ) (backspace-killstack SIMPLE ) (coredump SIMPLE ) (sequence BEGIN ) (unmodify SIMPLE ) (buffer-modified SIMPLE ) (next-argument $SIMPLE ) (change-buffer STRING ) (exit-emacs SIMPLE ) (change-directory STRING ) (recursive-edit SIMPLE ) (simulate STRING ) (edit-file STRING ) (interrupt-process SIMPLE ) (input-file STRING \011) (kill-buffer STRING ) (set-mode STRING ) (get-mode STRING ) (change-file-name STRING ) (change-buffer-name STRING ) (other-window SIMPLE ) (current-character SIMPLE ) (read-file STRING ) (insert-file STRING ) (save-buffer SIMPLE ) (send-region-to-buffer STRING ) (update-display SIMPLE ) (pause SIMPLE ) (get-version $SIMPLE ) (write-file STRING ) (append-file STRING ) (exchange-mark SIMPLE ) (grow-window SIMPLE ) (case CASE ) (exchange-killstack SIMPLE %) (string-<= STRING &) (string-== STRING &) (string-< STRING &) (string-> STRING &) (string-!= STRING &) (string->= STRING &) (start-keyboard-macro SIMPLE \050) (end-keyboard-macro SIMPLE \051) (append-to-killstack SIMPLE +) (pop-killstack $SIMPLE -) (one-window SIMPLE 1) (two-window STRING 2) (push $SSTRING <) (Lpush $STRING @) (display-prompt SSTRING <) (Ldisplay-prompt STRING @) (read-character SSTRING <) (Lread-character STRING @) (output-raw-characters SSTRING <) (Loutput-raw-characters STRING @) (read-line $SSTRING <) (Lread-line $STRING @) (file-line SIMPLE =) (file-character SIMPLE =) (screen-line SIMPLE =) (screen-character SIMPLE =) (first-visible-line SIMPLE =) (last-visible-line SIMPLE =) (window-top SIMPLE =) (window-bottom SIMPLE =) (duplicate-killstack $SIMPLE >) (copy-killstack STRING @) (display-killstack STRING @) (read-character-killstack STRING @) (output-raw-killstack STRING @) (read-line-killstack $STRING @) (stack-buffer $SIMPLE B) (execute-keyboard-macro SIMPLE E) (stack-filename $SIMPLE F) (trace UNARY T) (while WHILE ^) (define-macro SIMPLE d) (load-macro STRING ) (goto-screen SIMPLE g) (set-key STRING k) (cond COND |) (<= BINARY ~) (== BINARY ~) (< BINARY ~) (> BINARY ~) (!= BINARY ~) (>= BINARY ~) (|| BINARY ~) (&& BINARY ~) (not UNARY ~) (false SIMPLE ~ (true SIMPLE \040) (else SIMPLE \040) (+ BINARY 1~) (- BINARY 2~) (* BINARY 3~) (/ BINARY 4~) (& BINARY 8~) (| BINARY 9~) (^ BINARY 0~) (% BINARY 5~) (mod BINARY 5~) (convert-to-string $UNARY 6~) (convert-to-number STRING 7~) (unget-character UNARY 1~) (input-count SIMPLE 2~) (append-strings $STRING &) (string-index STRING &) (substring $BINARY &) (string-length STRING 0&) (format $STRING 3&)