|
|
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.