Here is what I've cobled together to get THE to work more like ISPF for me. It is a start and by no means perfect but y'all are welcome to it.
set compat xedit xedit xedit set color arrow gray blue set color cb grey blue set color cmdline white blue set color cu blue gray set color ct grey blue set color filearea white blue set color gap white blue set color id blue gray set color prefix yellow blue set color scale yellow blue set color st blue gray set color tof grey blue set clock on set case mixed set cmdline top set scale on 1 set curline 2 set coloring off define 'Control-R' sos doprefix execute "define Enter cursor screen down# sos prefix" "define END REXX if (inprefix()) then 'sos leftedge'; sos endchar" 'Set Prefix Synonym a f' 'Set Prefix Synonym r "' -------------------------------------------------------------------- Lionel B. Dyck, Systems Software Lead Kaiser Permanente Information Technology 25 N. Via Monte Ave Walnut Creek, Ca 94598 Phone: (925) 926-5332 (tie line 8/473-5332) E-Mail: [EMAIL PROTECTED] Sametime: (use Lotus Notes address) AIM: lbdyck
