! EDTP TPU initilization routine for VPW using a VT2xx (use 132 col. mode)
pce_initilize;                      ! initilize our version
EDTP$define_keys;
pce$edtp_keys;                      ! set up the EDT keypad
set(shift_key,pf1);                 ! define the 'shift/gold' key
EDTP$init_procedure;                ! initilize for EDTPlus
eve_set_rectangular;
pce$total_shift := 0;               ! initilize shift
pce$x_current_editor := "XEDTPLUS";
! 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 95 100 105 110 115 120 125 130');  ! 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
move_vertical(1);                                   ! 1 line below
! End of command file