home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / DUH.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-23  |  86b  |  3 lines
  1.     for c1:=30 downto 27 do
  2.       rl:=(rl*$100)+ord(dta[c1]);
  3.     i1:=cstrr(rl,10);