! ADPC&E TPU initilization routine for Rainbow's (go to 132 col mode) pce_init_translate; ! initilize stuff for translation routines pce$vt100_keys; ! define the VT100 keypad set(shift_key,pf1); ! define the 'shift' key eve_set_tabs_at('7 11 15 19 23 27 31 35 39 43 47 51 55 59 63 67 71 75 79 83 87'); ! set tabs up for FORTRAN !eve_set_tabs_at('4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84'); ! COBOL tabs !eve_set_tabs_every(8); ! Regular (system default) tabs ! ! End of command file