›; (c) 1995 by Kevin Atkinson››RETL=$D4›RETH=$D5›› ORG $4000››          PLA›          PLA›          STA RETH›          PLA›          STA RETL›; find the lenth of the string and›; record it to ICBLL (the buf len)›; (ICBLH is set to 0)››          LDY #0›GETLOP:   LDA (RETL),Y›          INY›          CMP #32›          BNE SPACE›          BEQ GETLOP››SPACE:    CMP #155›          BEQ GETDNE›          TYA          ; store loc.›          TAX          ; for later›          LDA #0›          CMP #0›          BEQ GETLOP››GETDNE:   TXA›          TAY›          LDA (RETL),Y ; to avoid two›          CMP #155     ; returns›          BEQ GGTDNE›          LDA #155›          INY›          STA (RETL),Y›GGTDNE:   STY RETL    ;loc to send to›                      ;basic›          LDA #0›          STA RETH››          RTS›› END $4000