home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / FIND (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  1.2 KB  |  50 lines

  1. SEQ formatted GEOS file V1.0
  2. Epson FX-80
  3. AUTOSAVE
  4. LASTER'S 
  5. ONVERTER 
  6. COPE Source V1.1
  7. DISK A
  8. COPE Editor V1.1
  9. Untitled
  10. B B*B,B5B=BeB
  11. /; routines to find a text string.
  12. FIND3b
  13.  loadw R0:VNDB1
  14.  JSR $C256
  15. ;-  DIALOG BOX FOR PROMPT
  16. VNDB1
  17. .BYTE 128+2
  18. .Byte 2,17,77-8
  19. .BYTE 11,8,24
  20. .WORD Xh1
  21. .BYTE 11,8,36
  22. .WORD Xh2
  23. .BYTE 11,8,48
  24. .WORD Xh3
  25. .Byte 14
  26. .Byte 0
  27. Xh1 .BYTE 'You have loaded Record #2',0
  28. Xh2 .BYTE 'This is where the FIND routines',0
  29. Xh3 .BYTE 'Are located at.',0
  30. ;=======
  31. RP1a; replace string routine
  32.  loadw R0:VNDB2
  33.  JSR $C256
  34. ;-  DIALOG BOX FOR PROMPT
  35. VNDB2
  36. .BYTE 128+2
  37. .Byte 2,17,77-8
  38. .BYTE 11,8,24
  39. .WORD XI1
  40. .BYTE 11,8,36
  41. .WORD XI2
  42. .BYTE 11,8,48
  43. .WORD XI3
  44. .Byte 14
  45. .Byte 0
  46. XI1 .BYTE 'You have loaded Record #2',0
  47. XI2 .BYTE 'This is where the replace routines',0
  48. XI3 .BYTE 'Are located at.',0
  49. ;=======
  50.