Jake-S@cup.portal.com (Jake G Schwartz) (03/06/90)
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