Return to ConceptAVT.pad CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

researchv9-SUN3(old)

			ConceptAVT cursor pad interpreter

David W. Goldfarb -- 6/23/82  Version 1
Inspired by C. Douglas Blewett's Concept100.pad macro

This routine handles all of the ConceptAVT cursor pad keys.
This routine assumes that the escape character for the Concept
has been changed to ^\.  This is done in the "cAVT"
terminal data base file.  All escapes are changed to ^\.
This routine also takes advantage of the different handling of
the comment character interactively and in macros by EMACS.

Keys handled				ACTION
	HOME				Go to line arg (M-g)
	PAGE (upper and lower)		full page up or down (M-v or ^V)
	SCROL (upper and lower)		scroll 1/2 page up or down
	PRINT SCRN                      Forward Word  (M-f)
	shift PRINT SCRN		Delete word forward (M-d)
	PRINT 				Back word  (M-b) 
	shift PRINT			Delete word back  (M-bM-d)
	All of the arrowed keys		line or character movement

Arguments supplied to these commands multiply the affect.

The first seven programmable function keys (upper and lower) are
defined in the data base file
INSRT, DEL CHAR, DEL & INS LINE, CLEAR EOP & EOL,
SEND (sets mark when unshifted, saves to current file when shifted),
f6 (beginning of line when unshifted, beginning of sentence when shifted)
f7 (end of line when unshifted, end of sentence when shifted).

AVT character stream: ^\ [ char , "char" indicates command
	-<
 Above line gets rid of the "["
	!�-<
		�A		Up
			
		�
		�B		Down
			
		�
		�D		Left
			
		�
		�C		Right
			
		�
		�V		Page up
			v
		�
		�U		Page down
			
		�
		�T		Scroll down
			��
		�
		�S		Scroll up
			��
		�
		�H		Home
			�
		�
		�Z		Backtab
			^�3~0
				�12~1	Loop
				<	
				-1
			�
		�
		�5		print - back a word
			-<
 above line gets rid of "i"
			b
		�
		�4          print shifted - delete word back
			-<
 above line gets rid of "i"
			b
		�		
		�i 		print scrn - forward word
			f
		�
		�=		shifted print scrn - delete word forward
			-<
			-<
 above two line get rid of "8i"
			d
		�
		��	Defaults:   = break
			
		�
	�


This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.