home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / tricks / strngadr.inc < prev    next >
Text File  |  1990-03-08  |  555b  |  14 lines
  1. '* ------------------------------------------------------- *
  2. '*                   STRNGADR.INC                          *
  3. '*   CALL StrngAdr(String$,Segment%,Offset%)               *
  4. '* ------------------------------------------------------- *
  5. SUB StrngAdr(S$,Segm%,Offs%)
  6.   DEF SEG
  7.   Segm%   = PEEK(0) + 256 * PEEK(1)
  8.   DEF SEG = VARSEG(S$)
  9.   Offs%   = PEEK(VARPTR(S$) + 2) + 256 * PEEK(VARPTR(S$)+3)
  10.   DEF SEG
  11. END SUB
  12. '* ------------------------------------------------------- *
  13. '*                Ende von STRNGADR.INC                    *
  14.