!    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
!
! initilize for VPW usage
set(margins,current_buffer,1,80);	! set margin for 80 col. paper
eve_set_tabs_at('5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90');	! WP tabs
body_of_letter := search('.AP',forward,no_exact);	! find '.AP' (end of header part of letter - start of main body) 
position(body_of_letter);				! and position 1 line below this
move_vertical(1);
!
! End of command file