home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / POKEDBL.PRG < prev    next >
Text File  |  1990-10-22  |  459b  |  20 lines
  1. ***********
  2. * POKEDBL.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO POKEDBL WITH <segment>, <offset>, <data> 
  7. * RETURN: <expL> true is sucessful
  8. ***********
  9. PARAMETERS par1, par2, par3 
  10. CALL Trpass  WITH par1
  11. CALL Trpass  WITH par2
  12. CALL Trexe   WITH TYPE("par2")
  13. CALL Trpass  WITH par3
  14. CALL Trexe   WITH "POKEDBL"
  15. IF fox
  16.    RETURN (tr_retl)
  17. ENDIF
  18. * eof pokedbl *
  19.  
  20.