1 AT
"Gold" followed by the named key inserts the INDIRECT keywords shown.

A  .ASK		   R  .RETURN	     (	<DATE>		>   .IF ? >
B  .BEGIN	   S  .ASKS	     )	<TIME>		.   .DATA
C  .CLOSE	   T  .TESTFILE	     _	.DEC		?   .TEST
D  .DATA	   U  .CHAIN	     +	.INC		/   .STOP
E  .END		   V  .SET	     =	.IF ? =		~   swap words
F  .ONERR	   W  .WAIT	     ]	<EOF>		      about cursor
G  .GOTO	   X  .XQT	     [	<UIC>		`   swap char at
H  this HELP text  Y  .DELAY	     |	SUBSTITUTION	      cursor & next
I  .IF		   Z  .EXIT	     \	QUIET		tab 16 chars ->
J  .READ	   !  .OR .IF	     :	<SYDISK><UNIT>	bs  16 chars <-
K  .GOSUB	   @  GLOBAL	     ;	.OPENR		del delete select
L  .ENABLE	   #  <STRLEN>	     "	<ALPHAN>		      range
M  .DISABLE	   $  <ESCAPE>	     '	LOWERCASE	cr   cr + tab
N  .ASKN [?:?:?]   %  <RAD50>	     }	<FILERR>	lf   cr + ?label + :
O  .OPEN	   ^  <EXSTAT>	     {	<FILSPC>	^=   shift right
P  .PAUSE	   &  .AND .IF	     <	.IF ? <		^\   shift left
Q  .PARSE	   *  <DEFAUL>	     ,	ESCAPE

Portions marked ? will be prompted for at the bottom of the screen.
1 BASIC
"Gold" followed by the named key inserts the BASIC keywords shown.

A  DIM		   Q  PRINT "?"; \   (	SIN(		?   RND(0)
B  RESTORE #	        INPUT #0%,   )	COS(		/   TRM$(
C  CLOSE	   R  RETURN	     _	INT(		~   swap words
D  DATA		   S  STOP	     +	SGN(		      about cursor
E  DEF FN	   T  THEN	     =	IF ?=? THEN	`   swap char at
F  FOR ?=? TO	   U  PRINT USING "  ]	STR$(		      cursor & next
G  GOSUB	   V  REM	     [	SEG$(		tab 16 chars ->
H  this HELP text  W  OVERLAY "	     |	ABS(		bs  16 chars <-
I  INPUT #	   X  READ	     \	 \		del delete select
J  GOTO		   Y  CHAIN "	     :	ASC(		      range
K  ON ? THEN	   Z  RANDOMIZE	     ;	TAB(		^=  shift right
L  LINPUT #	   @  SQR(	     }	DAT$		^\  shift left
M  CALL "MAT	   #  VAL(	     {	CHR$(
N  NEXT		   $  CLK$	     <	IF ?<? THEN
O  OPEN ? FOR	   ^  EXP(	     ,	LEN(
     ?PUT AS FILE  &  ATN(	     >	IF ?>? THEN
P  PRINT #	   *  LOG(	     .	POS(

Portions marked ? will be prompted for at the bottom of the screen.
1 CLANG
"Gold" followed by the named key inserts the C keywords shown.

A  auto		     Q  putlin("?");	&  arctan(	    ?   short
B  break;		  get		*  ln(		    ~   swap words
C  case		     R  return(		(  sin(			  about cursor
D  default:	     S  switch(		)  cos(		    `   swap char at
E  extern	     T  typedef		_  remark(		  cursor & next
F  for (?(exp);      U  union		=  if (?==?)	    tab 16 chars ->
     ?(exp); ?(exp)) V  fill(		]  sizeof(	    bs  16 chars <-
G  goto		     W  while(		[  printf(	    del delete select
H  this HELP text    X  getlin(		|  unsigned		  range
I  stdin	     Y  else		:  long		    ^=  shift right
J  cmpstr(	     Z  #define		\  static	    ^\  shift left
K  lenstr(	     !  abs(		;  float
L  #include <std.h>  @  sqrt(		}  min
M  struct	     #  false		{  max
N  continue;	     $  true		<  if (?<?)
O  stdout	     %  error(		,  int
P  putlin(	     ^  exp(		>  if (?>?)

Portions marked ? will be prompted for at the bottom of the screen.
1 DCL
"Gold" followed by the named key inserts the DCL keywords shown.

A  INQUIRE	   R  RETURN	     (	F$TIME()	>   .GT.
B  APPEND	   S  SHOW	     )	F$CVTIME	.   F$MODE()
C  CLOSE	   T  TYPE	     _	F$EXTRACT	?   F$LOCATE
D  DELETE	   U  DEF/USER I C   +	F$EDIT		/   F$ELEMENT
E  RUN		   V  SET	     =	.EQ.		~   swap words
F  GOSUB	   W  WRITE	     ]	F$FILE_ATTR	      about cursor
G  GOTO		   X  COPY	     [	F$DIRECTORY()	`   swap char at
H  this HELP text  Y  CREATE	     |	F$INTEGER	      cursor & next
I  IF		   Z  EXIT	     \	F$VERIFY	tab 16 chars ->
J  READ		   !  .OR.	     :	.EQS.		bs  16 chars <-
K  CALL		   @  F$ENVIRONMENT  ;	F$FAO		del delete select
L  TYPE SYS$INPUT  #  F$LENGTH	     "	F$STRING	      range
M  MOUNT	   $  F$GETDVI	     '	F$LOGICAL	cr   cr + $ + tab
N  RENAME	   %  F$MESSAGE	     }	.LTS.		lf   cr + $ + ?label + :
O  OPEN		   ^  F$TYPE	     {	.GTS.		^=   shift right
P  PRINT	   &  .AND.	     <	.GT.		^\   shift left
Q  SEARCH	   *  F$SEARCH	     ,	F$PID

Portions marked ? will be prompted for at the bottom of the screen.
1 CORAL
"Gold" followed by the named key inserts the CORAL keywords shown.

A  ARRAY	     Q	writetext("?");	  ^  AND	    >   IF ?>? THEN
B  BEGIN		  ?:=read	  &  MASK	    ?   BITS[?,?]
C  COMMON	     R	ANSWER		  *  true	    /   MOD
D  DELETE	     S	SWITCH		  (  LOCATION(	    ~   swap words
E  END;		     T	THEN		  )  OCTAL(		  about cursor
F  FOR ?:=? STEP ?   U	writef?("	  _  DIFFER -1	    `   swap char at
     UNTIL ? DO      V	COMMENT		  =  IF ?=? THEN	  cursor & next
G  GOTO		     W	FOR ?:=?,?	  ]  DIFFER	    tab 16 chars ->
H  this HELP text	  WHILE ? DO	  [  BYTE ARRAY	    bs  16 chars <-
I  IF		     X	:=read		  |  UNION	    del delete select
J  LABEL	     Y	ELSE		  \  :=			 range
K  CODE BEGIN {      Z	END		  :  UNSIGNED(	    ^=	shift right
L  LIBRARY (std)	  FINISH	  ;  FLOATING	    ^\	shift left
M  DEFINE	     @	ABSOLUTE (	  }  TABLE
N  LIBRARY (CNL)     #	false		  {  INFINITY
O  OVERLAY ? WITH    $	LITERAL(	  <  IF ?<? THEN
P  PROCEDURE	     %	VALUE		  ,  INTEGER

Portions marked ? will be prompted for at the bottom of the screen.
1 FORTRAN
"Gold" followed by the named key inserts the FORTRAN keywords shown.

A  ACCEPT *,	     P	SUBROUTINE	^  DECODE(	  {   DOUBLE
B  BYTE		     Q	TYPE ?		&  .AND.		PRECISION
C  CLOSE		  ACCEPT *,?	*  .TRUE.	  <   IF(?.LT.?)
     (UNIT=?)	     R	RETURN		(  FUNCTION	  ,   DIMENSION
D  DATA		     S	STOP		)  ASSIGN	  >   IF(?.GT.?)
E  END		     T	TYPE *,		_  .NOT.	  .   <CR>C (comment)
F  FORMAT(	     U	DO ? ?=		+  .EQV.	  ?   ENCODE(
G  GOTO		     V	VIRTUAL		]  CHARACTER	  /   EXTERNAL
H  this HELP text    W	WRITE(		[  .XOR.	  ~   swap words
I  INTEGER	     X	READ(		|  .OR.			about cursor
J  IF(		     Y	EQUIVALENCE(	\  <CR>  * (cont) `   swap char at
K  CALL		     Z	COMMON/		:  BLOCK DATA		cursor & next
L  LOGICAL	     !	,TYPE='		;  REAL		  tab 16 chars ->
M  ELSE		     @	INCLUDE '	"  ,DISPOSE='	  bs  16 chars <-
N  CONTINUE	     #	.FALSE.		'  ,CAR-CTRL='	  lf  <CR> ? (label)
O  OPEN(UNIT=?	     $	PARAMETER	}  COMPLEX	  cr  <CR><TAB>
     ,NAME=?	     %	,FORM='?FORMATTED'		  del delete select
								range
Portions marked ? will be prompted for at the bottom of the screen.
1 MACRO
"Gold" followed by the named key inserts the MACRO-11 keywords shown.

A  ADDL2	    R  RET		(  .PAGE	  ,   .WORD
B  BITL		    S  SUBL		)  .TITLE	  >   .IIF
C  CMPL		    T  TSTL		_  .SBTTL	  .   .BYTE
D  DECL		    U  MULL2		+  .MCALL	  ?   .ERROR
E  EDIV		    V  DIVL2		=  .EXTRN	  /   append F to
F  ROTL		    W  MOVC		]  .BLKW		instruction
G  MCOML	    X  XORL2		[  .BLKB	  ~   swap words
H  this HELP text   Y  CASEB		|  .NLIST		about cursor
I  INCL		    Z  CLRL		\  append B to	  `   swap char at
J  JMP		    !  .ENTRY		     instruction	cursor & next
K  CALLS	    @  .MACRO		:  .ODD		  tab 16 chars ->
L  SOBGTR	    #  .IFF		;  .EVEN	  bs  16 chars <-
M  MOVL		    $  .IDENT /		"  .ASCIZ	  lf  <CR> ? (label)
N  MNEGL	    %  .ADDRESS		'  .ASCII	  cr  <CR><TAB>
O  POPR #^M<	    ^  .PSECT		}  .DOUBLE	  del delete sel rnge
P  PUSHR #^M<	    &  .END		{  .FLOAT	  ^=  shift right
Q  ASHL		    *  .IFT		<  .IF		  ^\  shift left

Portions marked ? will be prompted for at the bottom of the screen.
1 MACRO11
"Gold" followed by the named key inserts the MACRO-11 keywords shown.

A  ADD		    R  RTS PC		(  .PAGE	  ,   .WORD
B  BIT		    S  SUB		)  .TITLE	  >   .IIF
C  CMP		    T  TST		_  .SBTTL	  .   .BYTE
D  DEC		    U  MUL		+  .MCALL	  ?   .ERROR
E  ASL		    V  DIV		=  .GLOBL	  /   append F to
F  ASR		    W  COM		]  .BLKW		instruction
G  SXT		    X  TRAP		[  .BLKB	  ~   swap words
H  this HELP text   Y  EMT		|  .NLIST		about cursor
I  INC		    Z  CLR		\  append B to	  `   swap char at
J  JMP		    !  .LIMIT		     instruction	cursor & next
K  JSR PC,	    @  .MACRO		:  .ODD		  tab 16 chars ->
L  SOB %	    #  .IFF		;  .EVEN	  bs  16 chars <-
M  MOV		    $  .IDENT		"  .ASCIZ	  lf  <CR> ? (label)
N  NEG		    %  .RAD50		'  .ASCII	  cr  <CR><TAB>
O  MOV (SP)+	    ^  .PSECT		}  .FLT4	  del delete sel rnge
P  MOV ?,-(SP)	    &  .END		{  .FLT2	  ^=  shift right
Q  ASH		    *  .IFT		<  .IF		  ^\  shift left

Portions marked ? will be prompted for at the bottom of the screen.
1 PASCAL
"Gold" followed by the named key inserts the Pascal keywords shown.

A  ARRAY	      R  REPEAT		  (  SIN(	    >   IF ?>? THEN
B  BEGIN	      S  SET		  )  COS(	    ?   VAR
C  CASE ? OF	      T  TYPE		  _  TRUNC(	    ~   swap words
D  FOR ?:=? DOWNTO    U  UNTIL		  +  OR			  about cursor
E  END		      V  FILE		  ]  PRED(	    `   swap char at
F  FOR ?:=? TO	      W  WHILE ? DO	  [  SUCC(		  cursor & next
G  GOTO		      X  FUNCTION	  =  IF ?=? THEN    tab 16 chars ->
H  this HELP text     Y  ELSE		  |  ABS(	    bs  16 chars <-
I  READ(	      Z  PROGRAM	  \  :=		    del delete select
J  READLN(	      !  ODD(		  :  EOF(		  range
K  CONST	      @  SQRT(		  ;  REAL	    ^=  shift right
L  LABEL	      #  ROUND(		  }  EOLN(	    ^\  shift left
M  PACKED	      $  SQR(		  {  CHR(
N  WRITE(	      %  ORD(		  <  IF ?<? THEN
O  WRITELN)	      ^  EXP(		  ,  INTEGER
P  PROCEDURE	      &  ARCTAN(	  .  BOOLEAN
Q  WRITE('?'); READ(  *  LN(		  /  DIV

Portions marked ? will be prompted for at the bottom of the screen.
1 PLOT
"Gold" followed by the named key inserts the Plot Processor keywords shown.

A  AXESSI	     R	REGION		(  ARC		    >	TYPENE
B  BROKEN	     S	SUBEND		)  PARAB	    ?	PLOTNF
C  CRSET	     T	TYPENF		_  LINE		    cr	FRAME
D  DIGIT	     U	HYPERB		+  OPENPLOT	    lf	TYPENL
E  ELLPSE	     V	SUFFIX		]  1.73913	    ~	swap words
F  FULL		     W	TYPENI		[  BORDER		  about cursor
G  GRAPHN	     X	PLOTNI		=  HISTGM	    `	swap char at
H  this HELP text    Y	FILL		|  pi	 		  cursor & next
I  ITALIC	     Z	GREND		\  ROTATE	    tab 16 chars ->
J  JOIN 	     !	CURPTC		:  CRASPC	    bs	16 chars <-
K  TYPENC	     @	CURPTO		;  CRSIZE	    del delete select
L  LIMITS	     #	CURVEC		}  -pi/2		  range
M  TYPEAS	     $	CURVEO		{  pi/2		    ^=	shift right
N  NEWPEN	     %	GRPHPT		<  PLOTNE	    ^\	shift left
O  CIRCLE	     ^	SUPFIX		,  POSITN
P  PTPLOT	     &	NORMAL		.  POINT
Q  GRAPHN	     *	PATTRN		/  /-DE
1 SAL
"Gold" followed by the named key inserts the SAL keywords shown.

A  ADD		    R  RET		(  PAGE		  ,   DW
B  BIT		    S  SUB		)  TITL		  .   DB
C  CLR		    T  TST		_  NOT		  ?   ERR
D  DEC		    U  AND		+  PROM		  /   SHR
E  ASL		    V  OR		=  IFEQ		  ~   swap words
F  SBC		    W  ASR		]  RAM			about cursor
G  ADC		    X  XOR		[  RMB		  `   swap char at
H  this HELP text   Y  EOR		|  MOD			cursor & next
I  INC		    Z  CLR		\  SHL		  tab 16 chars ->
J  JMP		    !  OR		:  ENDIF	  bs  16 chars <-
K  CALL		    @  IFDF		;  ELSE		  lf  <CR> ? (label)
L  LDA		    #  IFNE		"  ASCZ		  cr  <CR><TAB>
M  MOV		    $  LIST		'  ASCI		  del delete select
N  NEG		    %  NLST		}  DF			range
O  POP		    ^  HIGH		{  F		  ^=  shift right
P  PUSH		    &  END		<  IFL		  ^\  shift left
Q  STA		    *  IFND		>  IFG

Portions marked ? will be prompted for at the bottom of the screen.
