home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / FIND (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  1.2 KB  |  46 lines
  1. prg FORMATTED geos FILE v1.0
  2. cope sOURCE v1.1
  3. disk a
  4. cope eDITOR v1.1
  5. uNTITLED
  6. b b*b,b5b=bEb
  7. /; ROUTINES TO FIND A TEXT STRING.
  8. find3B
  9.  LOADW r0:vndb1
  10.  jsr $c256
  11. ;-  dialog box for prompt
  12. vndb1
  13. .byte 128+2
  14. .bYTE 2,17,77-8
  15. .byte 11,8,24
  16. .word xH1
  17. .byte 11,8,36
  18. .word xH2
  19. .byte 11,8,48
  20. .word xH3
  21. .bYTE 14
  22. .bYTE 0
  23. xH1 .byte 'yOU HAVE LOADED rECORD #2',0
  24. xH2 .byte 'tHIS IS WHERE THE find ROUTINES',0
  25. xH3 .byte 'aRE LOCATED AT.',0
  26. ;=======
  27. rp1A; REPLACE STRING ROUTINE
  28.  LOADW r0:vndb2
  29.  jsr $c256
  30. ;-  dialog box for prompt
  31. vndb2
  32. .byte 128+2
  33. .bYTE 2,17,77-8
  34. .byte 11,8,24
  35. .word xi1
  36. .byte 11,8,36
  37. .word xi2
  38. .byte 11,8,48
  39. .word xi3
  40. .bYTE 14
  41. .bYTE 0
  42. xi1 .byte 'yOU HAVE LOADED rECORD #2',0
  43. xi2 .byte 'tHIS IS WHERE THE REPLACE ROUTINES',0
  44. xi3 .byte 'aRE LOCATED AT.',0
  45. ;=======
  46.