Newsgroups: comp.sys.apple2
Path: news.uiowa.edu!news.uiowa.edu!uunet!in1.uu.net!newsfeed.internetmci.com!howland.reston.ans.net!usc!crash!lch
From: lch@crash.cts.com (Laine C. Houghton)
Subject: ProTERM
Organization: CTS Network Services (CTSNET), San Diego, CA
Date: Mon, 28 Aug 1995 16:13:37 GMT
Message-ID: <DE13qq.J1F@crash.cts.com>
X-Newsreader: TIN [version 1.2 PL2]
Sender: news@crash.cts.com (news subsystem)
Nntp-Posting-Host: crash-i2.cts.com
Lines: 34

Dear ProTERM 3.X users,
If your like me and collect tons of junk on the drive to peruse latter then
this is for you. Add this to your PT3.global file. You enter the editor and
load a file... look it over..Trash? then hit solid apple-D and bingo it's
gone. If on the otherhand you want more time to decide, hit the ESC key.
the file remains and a new one can be loaded. Let me explain, the SA-D starts
the process. Once a file is loaded the SA-D prompts you to hit return to 
delete or ESC to abort the process and load a new file.

If your PT3.global file reaches the 8K limit this thing will crash but I've
created one to work from a macro file as well. I like this one better and
trashed the unneeded stuff from my PT3.global to allow it to work.
If this doesn't make sense or you wish to see the macro version then
Email me....
                               [Cut]
*
OPTION-d : Editor delete function. With special thanks to John Edwards and 
Greg Schaefer for making this happen...By Laine Houghton
*
@@d
 if !(eq $d,1) {no"This Command only works from the Editor!^m^m"ex}
 ME 4096,"8d08c02000bfc70d108d09c06001101000"
 JS 4096 se&5,"" se&6,""
 se$4,(me 4112) se$3,(va"4112")
 re{ se$3,$3+1 se&5,<ch(me $3)> se$4,$4-1 se&6,&6+&5} un!$4
 se&0,<sc1> se$1,(in": ",&0)+1 se$2,(in"/",&0)-1
 se&1,<mi&0,$1,$2-$1> if (se<le &1,1>, " "),{no"No file name to delete.^m"ex}
 se&2,&6+&1
 no&2+" <-- is about to be wiped out.^m"+" Hit ESC key to abort."
 se$5,(me49168) if (eq $5,155) {do"fi:ne" do"fi:op" exit}
 de&2 do"fi:ne" do"fi:op"
exit
                                [Cut]