⟦21ab1f47d⟧

TextFile

/* 0 to comment out product; 1 to include product */
#define PRODUCT_DESIGN_FACILITY 0

/* 0 to comment out product; 1 to include product */
#define PRODUCT_MAIL 0

/* 0 to comment out product; 1 to include product */
#define PRODUCT_SPELLER 0

BEGIN_MAIN_MENU("Environment");
 SUBM( " Item", XK_A );
  SUBM( "Object", XK_A );
   ITEM( "*Next", XK_A );
   ITEM( "*Previous", XK_B );
   ITEM( "*Copy", XK_C );
   ITEM( "*Move", XK_D );
   ITEM( "*Insert", XK_E );
   ITEM( "*Delete", XK_F );
   ITEM( "*Abandon", XK_G );
  ENDM();
  SUBM( "Region", XK_B );
   ITEM( "*Copy", XK_A );
   ITEM( "*Move", XK_B );
   ITEM( "*Delete", XK_C );
   ITEM( "*Fill", XK_D );
   ITEM( "*Off", XK_E );
  ENDM();
  SUBM( "Window", XK_C );
   ITEM( "*Join", XK_A );
   ITEM( "*Promote", XK_B );
   ITEM( "*Demote", XK_C );
   ITEM( "*Directory", XK_D );
   ITEM( "*Transpose", XK_E );
   ITEM( "*Expand", XK_F );
   ITEM( "*Contract", XK_G );
   ITEM( "*Focus", XK_H );
   ITEM( "*Delete", XK_I );
  ENDM();
  SUBM( "Image", XK_D );
   ITEM( "*Begin Of", XK_A );
   ITEM( "*End Of", XK_B );
   ITEM( "*Up", XK_C );
   ITEM( "*Down", XK_D );
   ITEM( "*Left", XK_E );
   ITEM( "*Right", XK_F );
  ENDM();
  SUBM( "Line", XK_E );
   ITEM( "*Join", XK_A );
   ITEM( "*Delete", XK_B );
   ITEM( "*Delete Forward", XK_C );
   ITEM( "*Copy", XK_D );
  ENDM();
  SUBM( "Word", XK_F );
   ITEM( "*Previous", XK_A );
   ITEM( "*Next", XK_B );
   ITEM( "*Delete", XK_C );
   ITEM( "*Delete Forward", XK_D );
  ENDM();
  SUBM( "Mark/Macro", XK_G );
   ITEM( "*Next", XK_A );
   ITEM( "*Previous", XK_B );
   ITEM( "*Push", XK_C );
   ITEM( "*Swap", XK_D );
   ITEM( "*Top", XK_E );
   ITEM( "*Delete", XK_F );
   ITEM( "*Execute", XK_G );
  ENDM();
#if PRODUCT_SPELLER
  SUBM( "Spell", XK_H );
   ITEM( "*Check Text", XK_A );
   ITEM( "*Check Image", XK_B );
   ITEM( "*Explain Next", XK_C );
   ITEM( "*Exchange Word", XK_D );
   ITEM( "*Learn Word", XK_E );
  ENDM();
#endif
 ENDM();
 SUBB( "*Traverse", XK_C, XK_D );
  SUBB( "*Definition", XK_A, XK_B );
   ITEM( "*Definition", XK_A );
   ITEM( "*Def in Place", XK_B );
   ITEM( "*Home Library", XK_C );
  ENDM();
  SUBB( "*Enclosing", XK_C, XK_D );
   ITEM( "*Enclosing", XK_A );
   ITEM( "*Encl in Place", XK_B );
  ENDM();
  SUBB( "*Other Part", XK_E, XK_F );
   ITEM( "*Other Part", XK_A );
   ITEM( "*Other in Place", XK_B );
  ENDM();
#if PRODUCT_DESIGN_FACILITY
  SUBB( "*PDL Definiton", XK_G, XK_H );
   ITEM( "*PDL Definiton", XK_A );
   ITEM( "*PDL Def in Place", XK_B );
  ENDM();
  SUBB( "*PDL Enclosing", XK_I, XK_J );
   ITEM( "*PDL Enclosing", XK_A );
   ITEM( "*PDL Enc in Place", XK_B );
  ENDM();
#endif
  SUBB( "*Next Special", XK_K, XK_L );
   ITEM( "*Both", XK_A );
   ITEM( "*Prompt", XK_B );
   ITEM( "*Underline", XK_C );
   ITEM( "*Prompt Off", XK_D );
   ITEM( "*Clear Underlines", XK_E );
  ENDM();
  SUBB( "*Previous Special", XK_M, XK_N );
   ITEM( "*Both", XK_A );
   ITEM( "*Prompt", XK_B );
   ITEM( "*Underline", XK_C );
   ITEM( "*Prompt Off", XK_D );
   ITEM( "*Clear Underlines", XK_E );
  ENDM();
 ENDM();
 SUBB( "*Promote", XK_E, XK_F );
  SUBB( "*Promote", XK_A, XK_B );
   ITEM( "*Promote Unit", XK_A );
   ITEM( "*Install Unit", XK_B );
   ITEM( "*Code Unit", XK_C );
   ITEM( "*Install World", XK_D );
   ITEM( "*Code World", XK_E );
   ITEM( "*Install All", XK_F );
   ITEM( "*Code All", XK_G );
  ENDM();
  SUBB( "*Complete", XK_C, XK_D );
   ITEM( "*Complete", XK_A );
#if PRODUCT_DESIGN_FACILITY
   ITEM( "*PDL Complete", XK_B );
#endif
  ENDM();
  SUBB( "*Format", XK_E, XK_F );
   ITEM( "*Format", XK_A );
#if PRODUCT_DESIGN_FACILITY
   ITEM( "*PDL Format", XK_B );
#endif
  ENDM();
  SUBB( "*Edit", XK_G, XK_H );
   ITEM( "*Edit", XK_A );
   ITEM( "*Edit in Place", XK_B );
   ITEM( "*Source Unit", XK_C );
   ITEM( "*Demote", XK_D );
  ENDM();
 ENDM();
 SUBB( "*Create", XK_G, XK_I );
  ITEM( "*Create Command", XK_A );
  ITEM( "*Create Body", XK_B );
  ITEM( "*Create Object", XK_C );
  ITEM( "*Create Text", XK_D );
  ITEM( "*Create Directory", XK_E );
  ITEM( "*Create World", XK_F );
  ITEM( "*Create Private", XK_G );
 ENDM();
 SUBB( "*Analyze", XK_J, XK_K );
  ITEM( "*Semanticize", XK_A );
  SUBB( "*Explain", XK_C, XK_D );
   ITEM( "*Explain", XK_A );
#if PRODUCT_DESIGN_FACILITY
   ITEM( "*PDL Explain", XK_B );
#endif
  ENDM();
  ITEM( "*Prompt For", XK_E );
  SUBB( "*Show Usage", XK_F, XK_G );
   ITEM( "*Global Usage", XK_A );
   ITEM( "*Local Usage", XK_B );
   ITEM( "*Indirect Usage", XK_C );
#if PRODUCT_DESIGN_FACILITY
   ITEM( "*PDL Show Usage", XK_D );
#endif
   ITEM( "*Global Unused", XK_E );
   ITEM( "*Local Unused", XK_F );
  ENDM();
  SUBB( "*What", XK_H, XK_I );
   ITEM( "*What Object", XK_A );
   ITEM( "*What Users", XK_B );
   ITEM( "*What Load", XK_C );
   ITEM( "*What Time", XK_D );
   ITEM( "*What Access", XK_E );
  ENDM();
 ENDM();
 SUBM( " CMVC", XK_L );
  ITEM( "*Check In", XK_A );
  ITEM( "*Check Out", XK_B );
  ITEM( "*Accept Changes", XK_C );
  ITEM( "*Edit", XK_H );
  ITEM( "*Information", XK_G );
  ITEM( "*Show", XK_D );
  ITEM( "*Show Checked Out", XK_E );
  ITEM( "*Show Out-of-Date", XK_F );
 ENDM();
 SUBB( "*Debug", XK_N, XK_O );
  ITEM( "*Window", XK_Z );
  SUBB( "*Run", XK_A, XK_B );
   ITEM( "*Run Statement", XK_A );
   ITEM( "*Run Local", XK_B );
   ITEM( "*Execute", XK_C );
   ITEM( "*Run Returned", XK_D );
  ENDM();
  ITEM( "*Stop", MENU_DEBUG_STOP );
  ITEM( "*Put", XK_C );
  ITEM( "*Modify", XK_E );
  SUBB( "*Source", XK_G, XK_H );
   ITEM( "*<Selection>", XK_Z );
   ITEM( "*Source _1", XK_A );
   ITEM( "*Source _2", XK_B );
   ITEM( "*Source _3", XK_C );
   ITEM( "*Source _4", XK_D );
   ITEM( "*Source _5", XK_E );
   ITEM( "*Source _6", XK_F );
   ITEM( "*Source _7", XK_G );
   ITEM( "*Source _8", XK_H );
   ITEM( "*Source _9", XK_I );
   ITEM( "*Source _10", XK_J );
  ENDM();
  ITEM( "*Catch", XK_I );
  SUBB( "*Break", XK_K, XK_L );
   ITEM( "*Set Break", XK_A );
   ITEM( "*Show Breaks", XK_B );
   ITEM( "*Activate", XK_C );
   ITEM( "*Deactivate", XK_D );
   ITEM( "*Delete Breaks", XK_E );
  ENDM();
  ITEM( "*Stack", XK_M );
  ITEM( "*Promote", XK_O );
 ENDM();
#if PRODUCT_MAIL
 SUBB( "*Mail", XK_P, XK_Q );
  ITEM( "*Main Mailbox", XK_A );
  ITEM( "*Edit", XK_B );
  ITEM( "*Send", XK_C );
  ITEM( "*Reply", XK_D );
  ITEM( "*Forward", XK_E );
 ENDM();
#endif
 SUBM( " Job", XK_R );
  ITEM( "*Print", XK_A );
  ITEM( "*Enable", XK_B );
  ITEM( "*Disable", MENU_JOB_DISABLE );
  ITEM( "*Connect", XK_D );
  ITEM( "*Kill", MENU_JOB_KILL );
 ENDM();
 SUBB( "*Help", XK_T, XK_U );
  ITEM( "*Help on Command", XK_A );
  ITEM( "*Help on Key", XK_B );
  ITEM( "*Help Window", XK_C );
  ITEM( "*Help on Help", XK_D );
 ENDM();
 SUBB( "*Quit", XK_W, XK_V );
  ITEM( "*Quit(Ignore_Changes => False)", XK_A );
  ITEM( "*Quit(Ignore_Changes => True )", XK_B );
 ENDM();
END_MAIN_MENU();
DataMuseum.dk

Rational R1000/400 Tapes

⟦21ab1f47d⟧ TextFile

Derivation

TextFile
