home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / string (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  553b  |  35 lines
  1. 0 rem string (stewart watton, jan/86) :
  2. 1 :
  3. 2 rem 0 statements, 1 function
  4. 3 :
  5. 4 rem keyword chars: 8
  6. 5 :
  7. 6 rem keyword    routine   line  ser #
  8. 7 rem f/string$( string    15156  199
  9. 8 :
  10. 9 rem =================================
  11. 10 :
  12. 624 .asc "string$": .byte $a8
  13. 1624 .word string-1
  14. 15156 string jsr $b79e
  15. 15158 txa
  16. 15160 pha
  17. 15162 jsr $aefd
  18. 15164 jsr $ad9e
  19. 15166 jsr $b6a3
  20. 15168 ldy #0
  21. 15170 lda ($22),y
  22. 15172 sta t2
  23. 15174 jsr $aef7
  24. 15176 pla
  25. 15178 jsr $b47d
  26. 15180 tay
  27. 15182 beq str2
  28. 15184 lda 2
  29. 15186 str1 dey
  30. 15188 sta ($62),y
  31. 15190 cpy #0
  32. 15192 bne str1
  33. 15194 str2 jmp $b4ca
  34. 15196 ;
  35.