; this take file maps the keys of the PC for use ; with the VT320 Stratus ttp so that the keyboard ; Follows the keyboard template of the PC/Connect-2 ttp (host_pc2) ; Created by Neil Marko - Intelligent Software System, Inc. 98-02-25 ; scan DEC PC Stratus ; code seq key request echo Executing \v(cmdfile) echo for full PC/Connect-2 key mappings... echo ver 98-09-13 set key \368 \Kkp5 ; F1 repeat set key \880 \Kkp8 ; shift regional set key \1392 \{27}[123~ ; ctrl repeat last set key \2416 \Kkp1 ; alt func 1 set key \369 \Kdecdo ; F2 menu set key \881 \Kdechelp ; shift help set key \1393 \Kdecf9 ; ctrl change case set key \2417 \Kkp2 ; alt func 2 set key \370 \Kkp6 ; F3 shorthand set key \882 \Kkp9 ; shift define shorthand set key \1394 \Kkpdot ; ctrl query set key \2418 \Kkp3 ; alt func 3 set key \371 \Kpf4 ; F4 paragraph set key \883 \Kpf3 ; shift page set key \1395 \Kpf1 ; ctrl sentence set key \2419 \Kkp4 ; alt func 4 set key \372 \Kdecf12 ; F5 scroll set key \884 \{27}[120~ ; shift pattern set key \1396 \Kkpminus ; ctrl overstrike set key \2420 \Kkp5 ; alt func 5 set key \373 \Kkp4 ; F6 search set key \885 \Kkp7 ; shift marked set key \1397 \Kkp3 ; ctrl caseless set key \2421 \Kkp6 ; alt func 6 set key \374 \Kdecf14 ; F7 word set key \886 \{27}[126~ ; shift blanks set key \1398 \kdec13 ; ctrl tab stop set key \2422 \Kkp7 ; alt func 7 set key \375 \Kdecremove ; F8 delete set key \887 \Kdecf10 ; shift save set key \1399 \{27}[117~ ; ctrl discard set key \2423 \Kkp8 ; alt func 8 set key \376 \Kkp0 ; F9 window set key \888 \Kdecf8 ; shift display status set key \1400 \{27}[119~ ; ctrl clear status set key \2424 \Kkp9 ; alt func 9 set key \377 \Kdecinsert ; F10 insert saved set key \889 \Kdecf11 ; shift insert default set key \1401 \{27}[125~ ; ctrl column set key \2425 \Kpf1\Kkp0 ; alt func 10 set key \2146 \{27}[131~ ; alt b cycle back set key \2147 \Kdecf17 ; alt c cycle set key \2150 \10 ; alt f line feed set key \2151 \Kdecfind ; alt g goto set key \2153 \{27}[134~ ; alt i interrupt set key \2156 \Kpf2 ; alt l line set key \2157 \Kdecselect ; alt m mark set key \2158 \Kdecf6 ; alt n name set key \2160 \{27}[132~ ; alt p no pause set key \2162 \{27}[133~ ; alt r redisplay set key \2165 \Kkpcomma ; alt u underline set key \2097 \Kpf1\Kkp1 ; alt 1 func 11 set key \2098 \Kpf1\Kkp2 ; alt 2 func 12 set key \2099 \Kpf1\Kkp3 ; alt 3 func 13 set key \2100 \Kpf1\Kkp4 ; alt 4 func 14 set key \2101 \Kpf1\Kkp5 ; alt 5 func 15 set key \2102 \Kpf1\Kkp6 ; alt 6 func 16 set key \2103 \Kpf1\Kkp7 ; alt 7 func 17 set key \2104 \Kpf1\Kkp8 ; alt 8 func 18 set key \2105 \Kpf1\Kkp9 ; alt 9 func 19 set key \2096 \Kkp0 ; alt 0 func 0 set key \4385 \Kdecprev ; PgUp prev screen set key \5409 ; ctrl rotate form set key \4386 \Kdecnext ; PgDn next screen set key \5410 ; ctrl rotate back set key \4387 \Kdecfind\Krtarr ; end goto right set key \5411 \Kdecfind\Knarr ; ctrl goto down set key \4388 \Kdecfind\Klfarr ; home goto left set key \5412 \Kdecfind\Kuparr ; ctrl goto up set key \4397 \Kdecf20 ; ins insert/overlay set key \5421 ; ctrl set key \4398 \127 ; del delete char set key \5422 ; ctrl set key \4389 \Klfarr ; left char left set key \5413 \Kdecf14\Klfarr ; ctrl word left set key \4390 \Kuparr ; up set key \5414 ; ctrl set key \4391 \Krtarr ; right char right set key \5415 \Kdecf14\Krtarr ; ctrl word right set key \4392 \Kdnarr ; down set key \5416 ; ctrl set key \362 \Kdecf18 ; * cancel set key \365 \Kdecf19 ; - display form set key \4365 \Kkpenter ; + enter set key \379 \Kbreak ; F12 break set key \891 \Ktn_ayt ; Shift F12 Telnet Are You There set key \1403 \Ktn_ip ; Ctrl F12 Telnet Interupt Process ; reprogram the keypad so that it works OK set key \352 0 set key \353 1 set key \354 2 set key \355 3 set key \356 4 set key \357 5 set key \358 6 set key \359 7 set key \360 8 set key \361 9 set key \366 . ; this is the dec pt on the key pad set key \4897 \Kupscn ; ctl-gray-page up - page back the screen set key \4898 \Kdnscn ; ctl-gray-page dn - page fwd the screen set key \4900 \Khomscn ; ctl-home - first screen set key \4899 \Kendscn ; ctl-end - last screen set key \3408 \Kdump ; ctl-alt-P - print screen ; alt right arrow - telnet Window term next window set key \6439 \Ktn_ip\{27}[131~\Kdecf18\{22} ; alt left arrow - telnet Window term next window set key \6437 \Ktn_ip\Kdecf17\Kdecf18\{22} set terminal answerback on set terminal control 7 ;