home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
trl14db.zip
/
TRLPRG.EXE
/
POKECHAR.PRG
< prev
next >
Wrap
Text File
|
1990-10-22
|
554b
|
23 lines
***********
* POKECHAR.PRG
* by Tom Rettig and Leonard Zerman
* Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
*
* SYNTAX: DO POKECHAR WITH <segment>, <offset>, <data>
* RETURN: <expL> true is sucessful
***********
PARAMETERS par1, par2, par3
CALL Trpass WITH par1
CALL Trpass WITH par2
CALL Trexe WITH TYPE("par2")
CALL Trpass WITH par3
CALL Trexe WITH "POKECHAR"
CALL Trexe WITH "TRRETCLEN"
IF fox
PRIVATE tr_temp
tr_temp = SUBSTR(tr_retc,1,tr_retn)
RETURN (tr_temp)
ENDIF
* eof pokechar *