home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_15_1987_Transactor_Publishing.d64
/
string
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
553b
|
35 lines
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 ;