From MWM1757%TNTECH.BITNET@VM1.NoDak.EDU Fri Apr 20 10:38:02 1990
Date:         Fri, 20 Apr 90 00:56:00 CDT
Reply-To: HP-48 -  HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
Sender: HP-48 -  HP-48sx Hand Held System <HP-48@VM1.NoDak.EDU>
From: MWM1757%TNTECH.BITNET@VM1.NoDak.EDU
Subject:      RCL Defined Key
To: Multiple recipients of list HP-48 <HP-48@NDSUVM1>

        Well, we finally got our own list, so I decided to post some
 stuff...I'm sorry to those of you who have serial interfaces because
 this program doesn't have the special character symbols - I'm not sure
 of them so I was afraid I would mess it up. Anyway, this program is
 actually a program inside of a key definition.
        If you are into redefining keys, like myself, you probably are
 missing a RCL command for individual keys(like ASN). This makes editing
 individual keys much easier...
        Also, I used the TMENU command to simulate the right-shifted
 modes menu. I did this because I wanted RCL right there next to ASN.
 You've essentially added a command to the calculator. OK, I've rambled
 enough.
        One more thing - execute the program just like ASN : put the
 key number location on the stack...


<< { ASN  { Rcl << RCLKEYS DUP
   ROT POS IF DUP THEN 1 - GET
   ELSE DROP2 END >> } STOKEYS
   RCLKEYS DELKEYS MENU CST
   TMENU RCLMENU STOF RCLF SF
   CF FS? FC? FS?C FC?C } TMENU >>


Then,


23.3

ASN

and it's all ready!


        Like I said, I'm sorry about the format...I have a serial cable
 on order...As soon as I get it I'll post bunches of stuff!


                                                -Mike Morrison
                                                 Tenn. Tech. Univ.


