Re: 41 Help !!! :-) Message #3 Posted by Raymond Del Tondo on 19 Nov 2005, 7:05 p.m., in response to message #2 by Vieira, Luiz C. (Brazil)
Hi,
another simple solution:
Suppose you have ABCDEFGHI... in Alpha.
ASTO L (stores the 6 leftmost chars in L, that is 'ABCDEF')
"XXX" (replace old Alpha contents by 'XXX')
ARCL L (appends the 6 chars from L to ALPHA, giving 'XXXABCDEF')
ASTO L (store again, this time 'XXXABC' )
"YYY" (replace old Alpha contents by 'YYY')
ARCL L (append prev stored chars, giving 'YYYXXXABC')
ASHF (shift 6 leftmost chars out. Here you are: 'ABC' ;-)
Seven steps, only uses Alpha and L register.
No X-Functions or CX needed.
Works on any HP-41;-)
Shorter version anyone, using a basic 41?
HTH
Raymond
Edited: 19 Nov 2005, 7:42 p.m.
|