! ! 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