! WPS Keypad assignment emulator for EDT ! ! B. Z. Lederman ! ! This does not replace WPS or WPS-Plus and won't edit their files. ! It is intended to let people who are familiar with the WPS/WPS-Plus ! Keypad layout (or who have "Gold key keyboards" with the definitions ! printed on them) to use EDT (or TPU/EDT?) without having to learn ! a new set of keypad assignments. ! ! Keys not specifically defined do not change: this includes the ! GOLD key (PF1), Sel (keypad .), Enter (though Gold Enter changes), ! and all LK201 specials (Help, Find, Select, Insert, Remove, etc.) ! Also, no Control keys are changed. ! ! Top row of keypad ! DEF K 10 AS "PAGE." DEF K GOLD 10 AS "PAGE." DEF K 11 AS "DEW." DEF K GOLD 11 AS "UNDW." DEF K 17 AS "D+C." DEF K GOLD 17 AS "UNDC." ! ! Second row of keypad ! DEF K 7 AS "SEN." ! may search differently than WPS-Plus DEF K GOLD 7 AS "SEN." ! and may even be better here. DEF K 8 AS "." ! no definition for Tab Pos DEF K GOLD 8 AS "." !DEF K 9 AS "." ! no definition for Under Line !DEF K GOLD 9 AS "." ! ! The following may be used to insert ASCII escape sequences ! DEF K 9 AS "^[I[4m^Z." ! Start underline VT100, VT200, LN03 DEF K GOLD 9 AS "^[I[0m^Z." ! End underline VT100, VT200, LN03 ! DEF K 18 AS "CUTSR." DEF K GOLD 18 AS "CUTSR." ! ! Third line of keypad ! DEF K 4 AS "W." DEF K GOLD 4 AS "W." DEF K 5 AS "PAR." DEF K GOLD 5 AS "PAR." !DEF K 6 AS "." ! no definition for Bold !DEF K GOLD 6 AS "." ! ! They following may be used to insert ASCII escape sequences ! DEF K 6 AS "27ASCI[1m^Z." ! Start bold VT100, VT200, LN03 DEF K GOLD 6 AS "27ASCI[0m^Z." ! End bold VT100, VT200, LN03 ! DEF K 19 AS "PASTE." DEF K GOLD 19 AS "PASTE." ! ! Fourth line of keypad ! DEF K 1 AS "BACK." DEF K GOLD 1 AS "-C." DEF K 2 AS "L." DEF K GOLD 2 AS "L." DEF K 3 AS "CHGCSR." ! Could be upper case only (CHGU), I like ! change case better. ! ! Bottom line of keypad. Select doesn't change ! DEF K 0 AS "ADV C." ! WPS does one character advance (annoying) DEF K GOLD 21 AS "CUTSR=DELETE PASTE." ! might change this ! ! Numeric row of keyboard ! DEF K GOLD DELETE AS "UNDC-C." ! added attraction ! ! Top row of keyboard; Gold keys. ! DEF K GOLD T AS "BR." DEF K GOLD P AS "12ASC." ! page marker = form feed DEF K GOLD [ AS "EXT ?'EDT Command: '." ! not WPS commands, of course ! ! Home row of keyboard ! DEF K GOLD F AS "EXT EXIT." DEF K GOLD G AS "EXT INCLUDE ?'VMS file name: '." DEF K GOLD K AS "QUIT." ! no warning given DEF K GOLD \ AS "DATE." DEF K GOLD CONTROL M AS "^M^M." ! paragraph marker seems ok (defines ! EDT para search). ! Bottom row of keyboard ! DEF K GOLD B AS "ER." DEF K GOLD N AS "^L^M." ! Formfeed and new line ! DEF K GOLD , AS "?'Search for: '." ! search not working DEF K GOLD . AS "''." ! continue search works DEF K GOLD / AS "SEL''." ! select first then Cont Srch? ! SET SEARCH WPS ! this seems like a good idea !SET WRAP 78 SET MODE CHANGE