!
! Sample APLTPU$INIT file 
!
!	$ DEFINE APLTPU$INIT disk:[dir]this.file
!
set quiet
set word edt
enable margin
!
! Procedure to SPAWN out
!
tpu 	procedure wgb$spawn-
		message("Spawning...");-
		spawn;-
	endprocedure
!
! Procedure to SPAWN out to MAIL
!
tpu 	procedure wgb$spawn_mail-
		message("Spawning Mail...");-
		spawn('MAIL');-
	endprocedure
!
! Define keys
! 
tpu define_key('wgb$spawn',f17)
tpu define_key('wgb$spawn_mail',f20)
set verify