Posts: 1,841
Threads: 54
Joined: Jul 2005
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.
Posts: 11
Threads: 4
Joined: Feb 2012
I thank all of the solutions