Retro1.org codex

ASCII
*NOSEQ
*WIDTH 132
.PROC,KEY*I"K^E^Y D^E^F^I^N^I^T^I^O^N U^T^I^L^I^T^Y - V^E^R^S^I^O^N 2.0",
          OP[O^P^T^I^O^N]=(EDIT,LOAD,HELP,DEFAULT,DISPLAY,CHECK,PRINT,*N=),
          FN[F^I^L^E]=(*F,*N=KEYDEFS).
.HELP,,NOLIST

                 KEY ^C^O^M^M^A^N^D ^D^E^F^I^N^E^S ^T^H^E CDC 721 ^P^R^O^G^R^A^M^M^A^B^L^E ^K^E^Y^S.
                 T^H^E ^F^O^L^L^O^W^I^N^G ^O^P^T^I^O^N^S ^A^R^E ^A^V^A^I^L^A^B^L^E@D
                             HELP          EDIT
                             CHECK         LOAD
                             DEFAULT       PRINT
                             DISPLAY
                 F^I^L^E ^I^S ^T^H^E ^F^I^L^E^N^A^M^E ^O^F ^T^H^E ^K^E^Y ^D^E^F^I^N^I^T^I^O^N^S.
                 B^Y ^D^E^F^A^U^L^T, F^I^L^E = KEYDEFS.

.HELP,OP,NOLIST

            HELP    - G^I^V^E ^I^N^F^O^R^M^A^T^I^O^N ^O^N ^H^O^W ^T^O ^U^S^E KEY.
            CHECK   - L^O^A^D ^T^H^E ^T^E^R^M^I^N^A^L ^D^E^F^I^N^I^T^I^O^N^S ^O^N^L^Y ^I^F ^T^H^E^Y ^H^A^V^E ^N^O^T
                      ^A^L^R^E^A^D^Y ^B^E^E^N ^L^O^A^D^E^D ^W^I^T^H ANY ^P^R^E^V^I^O^U^S ^D^E^F^I^N^I^T^I^O^N^S.
            DEFAULT - S^E^T ^D^E^F^I^N^I^T^I^O^N^S ^T^O ^T^H^E NOS ^S^Y^S^T^E^M ^D^E^F^A^U^L^T^S.
            DISPLAY - D^I^S^P^L^A^Y ^T^H^E ^C^U^R^R^E^N^T ^F^U^N^C^T^I^O^N ^K^E^Y ^L^A^B^E^L^S.
            EDIT    - C^R^E^A^T^E ^N^E^W ^K^E^Y ^D^E^F^I^N^I^T^I^O^N^S ^O^R ^U^P^D^A^T^E ^E^X^I^S^T^I^N^G ^O^N^E^S.
            LOAD    - L^O^A^D ^T^H^E ^T^E^R^M^I^N^A^L ^D^E^F^I^N^I^T^I^O^N^S.
            PRINT   - P^R^I^N^T^S ^T^H^E ^K^E^Y ^D^E^F^I^N^I^T^I^O^N^S ^O^N^T^O ^A ^F^I^L^E ^N^A^M^E^D KEYPRNT.

.HELP,FN,NOLIST

                  T^H^E ^S^Y^S^T^E^M ^P^L^A^C^E^S ^A^N^D ^G^E^T^S ^Y^O^U^R ^K^E^Y ^D^E^F^I^N^I^T^I^O^N^S ^F^R^O^M
                  ^T^H^I^S ^F^I^L^E.  I^T ^I^S ^A^N ^I^N^D^I^R^E^C^T ^A^C^C^E^S^S ^F^I^L^E.  T^H^I^S ^U^T^I^L^I^T^Y
                  ^A^L^W^A^Y^S ^R^E^P^L^A^C^E^S ^T^H^E ^F^I^L^E ^A^F^T^E^R ^C^H^A^N^G^E^S ^H^A^V^E ^B^E^E^N
                  ^M^A^D^E.  I^F ^Y^O^U ^A^R^E ^P^L^A^N^N^I^N^G ^T^O ^C^R^E^A^T^E ^A ^S^E^T ^O^F ^N^E^W ^K^E^Y
                  ^D^E^F^I^N^I^T^I^O^N^S, ^T^H^E ^F^I^L^E ^N^E^E^D ^N^O^T ^E^X^I^S^T.

                  D^E^F^A^U^L^T ^F^I^L^E@D  KEYDEFS

.ENDHELP
.******** COMMAND SECTION.*******************

.IF($OP$.EQ.$$)  $REVERT,EX. KEY,?.
$SET,R1=0.
$KEYEX(#OP=OP,#FN=FN)
$IF(($OP$.EQ.$HELP$).AND.(R1.EQ.0))  $REVERT,EX. KEY,?.
$RETURN,KEYDEFS,ZZZKEYC,TTFILE,ZZZZZOU.
$REVERT,NOLIST.  KEY UTILITY COMPLETE.
$EXIT.
$REVERT.  KEY UTILITY ABORTED.
*WEOR