PROGRAM SETSPP;
CONST
   ESC = 27;
   CNTRLA = 01;
   CNTRLB = 02;
   CNTRLC = 03;
   CNTRLD = 04;
   CNTRLE = 05;
   CNTRLF = 06;
   CNTRLG = 07;
   CNTRLH = 08;
   CNTRLI = 09;
   CNTRLJ = 10;
   CNTRLK = 11;
   CNTRLL = 140;
   CNTRLM = 13;
   CNTRLN = 14;
   CNTRLO = 15;
   CNTRLP = 16;
   CNTRLQ = 17;
   CNTRLR = 18;
   CNTRLS = 19;
   CNTRLT = 20;
   CNTRLU = 21;
   CNTRLV = 22;
   CNTRLW = 23;
   CNTRLX = 24;
   CNTRLY = 25;
   CNTRLZ = 26;

   FIELDLEFT 	= 'Q';
   SCROLLUP  	= '\';
   SCREENUP	= 'V';
   FIELDRIGHT	= 'R';
   FINDAGAIN    = 'L';
   INSERT	= 'P';
   DELCHAR	= 'M' ;
   CURLEFT	= 'W';
{  BACKSPACE	= ????   }
{  TAB		= ????   }
   CURDOWN	= ']';
   CURUP	= 'U';
   CURRIGHT	= 'Y';
{  CARRET	= ????   }
   F10		= ':';
   DELWORD	= 'N';
   F11		= ';';
   HELP		= 'G';
   SCREENDOWN	= '^';
   F1		= '1';
   SCROLLDN	= 'T';
   REFORM	= 'K';
   STOP		= 'Z';
   FEIL		= 'H';
   F2		= '2';
   DELLIN	= 'O';
   F9		= '9';
   
BEGIN
   WRITE(CHR(ESC),'|',FIELDLEFT,'1',CHR(CNTRLA),CHR(CNTRLY));
		  	{CURSOR LEFT WORD}
   WRITE(CHR(ESC),'|',SCROLLUP,'1',CHR(CNTRLB),CHR(CNTRLY));
			{BEGIN/END OF LINE}
   WRITE(CHR(ESC),'|',SCREENUP,'1',CHR(CNTRLC),CHR(CNTRLY));
			{SCREEN FORWARD}
   WRITE(CHR(ESC),'|',FIELDRIGHT,'1',CHR(CNTRLD),CHR(CNTRLY));
			{CURSOR RIGHT WORD}
   WRITE(CHR(ESC),'|',FINDAGAIN,'1',CHR(CNTRLE),CHR(CNTRLY));
			{SEARCH FOR LAST WORD}
   WRITE(CHR(ESC),'|',INSERT,'1',CHR(CNTRLF),CHR(CNTRLY));
			{BEGIN INSERT}
   WRITE(CHR(ESC),'|',DELCHAR,'1',CHR(CNTRLG),CHR(CNTRLY));
			{DELETE CHAR RIGHT}
   WRITE(CHR(ESC),'|',CURLEFT,'1',CHR(CNTRLH),CHR(CNTRLY));
			{BACKSPACE}
{  WRITE(CHR(ESC),'|',TAB,'1',CHR(CNTRLI),CHR(CNTRLY));  }
			{NON-DESTRUCIVE FORWARD SPACE}
   WRITE(CHR(ESC),'|',CURDOWN,'1',CHR(CNTRLJ),CHR(CNTRLY));
			{CURSOR DOWN}
   WRITE(CHR(ESC),'|',CURUP,'1',CHR(CNTRLK),CHR(CNTRLY));
			{CURSOR UP}
   WRITE(CHR(ESC),'|',CURRIGHT,'1',CHR(CNTRLL),CHR(CNTRLY));
			{CURSOR RIGHT}
{  WRITE(CHR(ESC),'|',CARRET,'1',CHR(CNTRLM),CHR(CNTRLY));  }
			{CARRIAGE RETURN}
   WRITE(CHR(ESC),'|',F10,'1',CHR(CNTRLN),CHR(CNTRLY));
			{INSERT A BLANK LINE}
   WRITE(CHR(ESC),'|',DELWORD,'1',CHR(CNTRLO),CHR(CNTRLY));
			{DELETE A WORD RIGHT}
   WRITE(CHR(ESC),'|',F11,'1',CHR(CNTRLP),CHR(CNTRLP),CHR(CNTRLY));
			{DELETE LINE RIGHT}
   WRITE(CHR(ESC),'|',HELP,'1',CHR(CNTRLP),CHR(CNTRLQ),CHR(CNTRLY));
			{SUPER COMMAND}
   WRITE(CHR(ESC),'|',SCREENDOWN,'1',CHR(CNTRLR),CHR(CNTRLY));
			{CURSOR BACKWARD PAGE}
   WRITE(CHR(ESC),'|',F1,'1',CHR(CNTRLP),CHR(CNTRLS),CHR(CNTRLY));
			{SEARCH}
   WRITE(CHR(ESC),'|',SCROLLDN,'1',CHR(CNTRLT),CHR(CNTRLY));
			{CURSOR TO TOP/BOTTOM SCREEN}
   WRITE(CHR(ESC),'|',REFORM,'1',CHR(CNTRLU),CHR(CNTRLY));
			{ENTER ADJUST}
   WRITE(CHR(ESC),'|',STOP,'1',CHR(CNTRLV),CHR(CNTRLY));
			{END INSERT, DELETE, ADJUST}
   WRITE(CHR(ESC),'|',FEIL,'1',CHR(CNTRLW),CHR(CNTRLY));
			{COPY TEST FROM COPY BUFFER}
   WRITE(CHR(ESC),'|',F2,'1',CHR(CNTRLX),CHR(CNTRLY));
			{SEARCH AND REPLACE}
   WRITE(CHR(ESC),'|',DELLIN,'1',CHR(CNTRLP),CHR(CNTRLY),CHR(CNTRLY));
			{DELETE LINE}
   WRITE(CHR(ESC),'|',F9,'1',CHR(CNTRLZ),CHR(CNTRLY));
			{INSERT BLANK}
   WRITE(CHR(ESC),'f','F1 SEARCH  F2 REPLACE  F9 INS BLANK  F10 INS LINE');
     WRITE('  F11 DEL RIGHT  HELP SUPER');
     WRITELN;
   WRITE(CHR(ESC),'g')
END.
