home *** CD-ROM | disk | FTP | other *** search
- SEQ formatted GEOS file V1.0
- Epson FX-80
- AUTOSAVE
- LASTER'S
- ONVERTER
- COPE Source V1.1
- DISK A
- COPE Editor V1.1
- Untitled
- B B*B,B5B=BeB
- /; routines to find a text string.
- FIND3b
- loadw R0:VNDB1
- JSR $C256
- ;- DIALOG BOX FOR PROMPT
- VNDB1
- .BYTE 128+2
- .Byte 2,17,77-8
- .BYTE 11,8,24
- .WORD Xh1
- .BYTE 11,8,36
- .WORD Xh2
- .BYTE 11,8,48
- .WORD Xh3
- .Byte 14
- .Byte 0
- Xh1 .BYTE 'You have loaded Record #2',0
- Xh2 .BYTE 'This is where the FIND routines',0
- Xh3 .BYTE 'Are located at.',0
- ;=======
- RP1a; replace string routine
- loadw R0:VNDB2
- JSR $C256
- ;- DIALOG BOX FOR PROMPT
- VNDB2
- .BYTE 128+2
- .Byte 2,17,77-8
- .BYTE 11,8,24
- .WORD XI1
- .BYTE 11,8,36
- .WORD XI2
- .BYTE 11,8,48
- .WORD XI3
- .Byte 14
- .Byte 0
- XI1 .BYTE 'You have loaded Record #2',0
- XI2 .BYTE 'This is where the replace routines',0
- XI3 .BYTE 'Are located at.',0
- ;=======
-