Return to Concept100.pad CVS log

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

Annotation of researchv9/cmd/emacs/macros/Concept100.pad, revision 1.1.1.1

1.1       root        1:                      Concept100 cursor pad interpreter
                      2: 
                      3: C. Douglas Blewett (DR30L19) Version 4
                      4: 
                      5: This routine handles all of the Concept100 cursor pad keys.
                      6: This routine assumes that the escape character for the Concept
                      7: has been changed to ^\.  This should have been done in the
                      8: c100* terminal data base file.  All escapes are changed to ^\.
                      9: This routine also takes advantage of the different handling of
                     10: the comment character interactively and in macros by EMACS.
                     11: 
                     12: Keys handled                  Approximate translation
                     13:       HOME                            M-g
                     14:       PAGE (upper and lower)          M-v and ^V
                     15:       SCROL (upper and lower)         M-3^P and M-3^N
                     16:       B TAB                           ^R^I
                     17:       BREAK                           ^G
                     18:       All of the arrowed keys         line or character movement
                     19: 
                     20: Arguments supplied to these commands multiply the affect.
                     21: 
                     22: The first five programmable function keys (upper and lower) are
                     23: defined in the data base file
                     24: (INSRT, DEL CHAR, DEL & INS LINE, CLEAR EOP & EOL, and SEND).
                     25: 
                     26: Modified to my own tastes 7/5/81: added MULT, reset & stat, print and tape
                     27: 
                     28:        !�-<
                     29:                �;             Up
                     30:                        
                     31:                �
                     32:                �<             Down
                     33:                        
                     34:                �
                     35:                �>             Left
                     36:                        
                     37:                �
                     38:                �=             Right
                     39:                        
                     40:                �
                     41:                �.             Page up
                     42:                        v
                     43:                �
                     44:                �-             Page down
                     45:                        
                     46:                �
                     47:                �[             Scroll down
                     48:                        �13~3
                     49:                        
                     50:                �
                     51:                �\             Scroll up
                     52:                        �13~3
                     53:                        
                     54:                �
                     55:                �?             Home
                     56:                        �
                     57:                �
                     58:                �]             Set tab
                     59:                        �
                     60:                �
                     61:                �_             Clear tab
                     62:                        
                     63:                �
                     64:                �'             Backtab
                     65:                        ^�3~0
                     66:                                �12~1    Loop
                     67:                                <    
                     68:                                -1
                     69:                        �
                     70:                �
                     71:                �:             Mult Code - back a word
                     72:                        b
                     73:                �
                     74:                �{             print - forward a word
                     75:                        f
                     76:                �
                     77:                �,             reset - back a line - from move
                     78:                        
                     79:                �
                     80:                �+             stat - forward a line - from move
                     81:                        
                     82:                �
                     83:                �`             tape - end of buffer
                     84:                        �
                     85:                �
                     86:                ��     Defaults: | = PRINT(shifted),  = break
                     87:                        
                     88:                �
                     89:        �
                     90: 

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