Re: Keyboard

[Carl Distefano CLDistefano@xxxxxxxx]

Reply to note from TBaehr@xxxxxxxx Sun, 1 Nov 1998 01:09:19 EST

-> It would be fairly easy to convert the clipboard to a file
-> system so that the contents ended up on disk. I've never
-> bothered -- there are other ways to accomplish the same thing,
-> albeit roundabout (SAveSelect -- SAS -- or the Xy3 SAveDefine
-> -- SAD -- will save highlighted text to a file; Append will add
-> highlighted text to a file, etc.).

I'm big on preserving block deletions in a file. When you need 'em,
you *really* need 'em, and there's nothing lilke having it all right
there, full text, in a single file. With today's fast, memory-cached
drives, there's no downside -- no hesitation, no disk activity, no
discernible overhead at all. An important element is easy access to
the deletions file. I like to set it up so that the same key that
erases the DF block also opens the deletions file if no text is
DeFined.

Set-up is one-time thing. You need a line in STARTUP.INT that creates
the deletions file if it doesn't already exist (or overwrites it if you
want to start out fresh each time), a routine that APPENDs DF blocks to
the file before deleting them, and a key assignment for the append
routine. Here's pseudo-code for my scheme. If anyone's interested,
I UL'd the live code to XyWWWeb.

For STARTUP.INT:
BX exist [SX01,[VADR]+"CLIPBD.XY"][PV01]Q2 ;*; Does clipboard file exist?
[IF[ER]]BX sa %01,[PV01][SV01,]Q2 BX (wait)[EI];*; If not, create it

For .U2 or LDPMing to a Save/Get (A-Z|0-9|&A-&Z|&0-&9):
[GLa]
{{5RD}} Append block deletions to disk file [CLD]
{2}[LBa]XH BX (es 1)DZ [SX01,[VADR]+"CLIPBD.XY"];*;
[IF[VA$WS]<1![VA$DE]<1]BX gofile [PV01]Q2 ;*;
[IF[ER]][SX02,[VA$WA]][IF[PV02]<1][PR\81][EX]
[EI][EI]BX (func #[PV02])BX ca/100 [PV01]Q2 BX (wait)BF ;*;
[PRDeletions - ABort after use][EX][EI];*;
[SX02,[VA$1A]]BX (d 1a=1);*;
BX append [PV01]Q2 BX (wait)BX (d 1a=[PV02]);*;
[SX03,@abs([VA$DN]-[VA$DS])]RD ;*;
[SX01,"Clipped "+[IS03]+" bytes"][PR@01][EX]{2}

For .KBD file (with frame {{5RD}} in U2)
nn=JM(,2,.,R,D,)


--------------
Carl Distefano
CLDistefano@xxxxxxxx
http://users.datarealm.com/xywwweb/


®LM¯®RM80DI¯