TIP: Click on subject to list as thread! ANSI
echo: wperfect
to: BRUCE WILSON
from: AUKE REITSMA
date: 1996-10-23 19:47:00
subject: Fackler Question

Hi Bruce,
On 20 Oct 96, 07:29, Bruce Wilson wrote to Auke Reitsma
 AR>> Hm. Basically, I don't think so. But with a macro it is
 AR>> definitely possible. A bit complicated though.
 BW> I had a feeling it might be both ... possible with a macro, but
 BW> complicated.  (In other words, a Fackler project - smile.)
Well, it turned out not to be as complicated as I thought. For me the major 
complication turned out to be that I don't have the English WP.MRS file 
available at the moment. (I have it at the office, but I won't be there this 
and next week.) So I had to translate manually -- probably with some errors. 
Sigh.
Before the translation it seemed to work as you specified though ...
Basically the macro intercepts all keyboard input within the F5 list and 
modifies the behaviour of the '1' option to what you wanted. Otherwise there 
should be no differences. You could use this in a keyboard definition as a 
replacement of F5.
{;} Adaptation of F5 to read a file with {Text in/out}13 ~
{;} A.Reitsma, 96-10-22. Public Domain.~
{DISPLAY ON}                  {;} _not_ {DISPLAY OFF} ~
{CANCEL OFF}                  {;} Handle 'cancel' as a normal key ~
                              {;} i.e. DON'T stop the macro with it ~
{List}{Enter}
{LABEL}Input~
   {CHAR}Key~~
   {CASE}{VARIABLE}Key~~
      1~Action~
      O~Action~               {;} O and o for Open ~
      o~Action~               {;} correct in English ??? ~
      {Enter}~Action~         {;} Change default 'Enter' action ~
   ~                          {;} NOT as such displayed !!!~
   {VARIABLE}Key~             {;} Do what the key normally does ~
                              {;} {ORIGINAL KEY} needed??? ~
   {IF}{STATE}&4~             {;} Back in normal screen? ~
      {ASSIGN}Key~~           {;} Yes: cleanup and ~
      {RETURN}                {;}      terminate macro ~
   {END IF}
{GO}Input~
{LABEL}Action~
   {ASSIGN}Name~{SYSTEM}29~~  {;} Get the file's name ~
   {Cancel}                   {;} Get out of the list ... ~
   {Text in/out}13
      {VARIABLE}Name~{Return} {;} Read the file ~
   {ASSIGN}Name~~             {;} Cleanup ~
{RETURN}
{;} That's it ... ~
Greetings from
 _____
 /_|__|  Auke Reitsma, Delft, The Netherlands.
/  | \  --------------------------------------
email: Auke.Reitsma@net.HCC.nl
--- GEcho 1.00
---------------
* Origin: Home by the C (2:281/400.20)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.