0 REM STRING (STEWART WATTON, JAN/86) :
1 :
2 REM 0 STATEMENTS, 1 FUNCTION
3 :
4 REM KEYWORD CHARS: 8
5 :
6 REM KEYWORD    ROUTINE   LINE  SER #
7 REM F/STRING$( STRING    15156  199
8 :
9 REM =================================
10 :
624 .ASC "STRING$": .BYTE $A8
1624 .WORD STRING-1
15156 STRING JSR $B79E
15158 TXA
15160 PHA
15162 JSR $AEFD
15164 JSR $AD9E
15166 JSR $B6A3
15168 LDY #0
15170 LDA ($22),Y
15172 STA T2
15174 JSR $AEF7
15176 PLA
15178 JSR $B47D
15180 TAY
15182 BEQ STR2
15184 LDA 2
15186 STR1 DEY
15188 STA ($62),Y
15190 CPY #0
15192 BNE STR1
15194 STR2 JMP $B4CA
15196 ;