home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / JSAGE / ZSUS / PROGPACK / NZ-TURBO.LBR / RETUD.FUN < prev    next >
Text File  |  2000-06-30  |  128b  |  6 lines
  1. Function RETUD:Integer;
  2. Begin
  3.   retud := 256 * (Bdos(25)+1) + Bdos(32,$FF)
  4. End;
  5.  
  6.