Path: santra!tut!sunic!uupsi!rpi!zaphod.mps.ohio-state.edu!usc!rutgers!texbell!texsun!newstop!sun!imagen!atari!portal!portal!cup.portal.com!Jake-S
From: Jake-S@cup.portal.com (Jake G Schwartz)
Newsgroups: comp.sys.handhelds
Subject: Improved HP48SX Stack View Routine
Message-ID: <27587@cup.portal.com>
Date: 6 Mar 90 03:10:23 GMT
Organization: The Portal System (TM)
Lines: 55


           An Improved HP48SX Stack View Routine 

     Jim Donnelly made some significant improvements to the STKV routine,
not the least of which was elimination of manipulation of the PPAR variable
by using pixel coordinates instead of user coordinates. Also, the generation 
of stack labels is now done using the ->STR command instead of CHR. I thank
Jim for these suggestions.



STKV  275 bytes, checksum #4C38h

<< PICT RCL -> pict
  << PICT PURGE
     1 DEPTH 1 - 10 MIN DUP
     IF 8 >
     THEN #6 1
     ELSE #8 2 
     END -> rowht tsize
     << FOR I PICT #0 65 I rowht * - 2 ->LIST
          I ->STR ": " +
          I 3 + PICK ->STR +
          tsize ->GROB GOR
        NEXT { } PVIEW
        pict PICT STO
     >> 
  >> 
>>


  For those with a Serial Cable, the following is the directly downloadable
version of the routine. Simply strip away the rest of this file and set your
machine to ASCII transfer, translate code 3, and RECEIVE away:


%%HP: T(3)A(D)F(.);
\<< PICT RCL \-> pict
\<< PICT PURGE
1 DEPTH 1 - 10 MIN DUP
IF 8 >
THEN #6 1
ELSE #8 2
END \-> rowht tsize
\<< FOR I PICT #0 65 I rowht * - 2 \->LIST
        I \->STR ": " +
        I 3 + PICK \->STR +
        tsize \->GROB GOR
    NEXT { } PVIEW
    pict PICT STO
\>> \>> \>>


---------------------------------------------------------
Jake Schwartz  

