home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Mops 2.5 / Mops source.sit / Mops source / System source / Neon Compatibility / Neon Compatibility.rsrc < prev    next >
Encoding:
Text File  |  1994-05-09  |  368 b   |  6 lines  |  [TEXT/MSET]
  1.     2 RTEXTMSETempRes  getnew: tempRes
  2.     remove:Neon Compatibility PartSITxPartSITx´#\    openMR
  3.     'type STR#  resID  getRes  dup NIF  0  EXIT  THEN
  4.     ( handle )  @  -> addr
  5.     idx  addr w@  >=  IF  0 0  EXIT  THEN
  6.     2 ++> aˇˇ