home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / STAMP.ZIP / TEST.PRG < prev   
Encoding:
Text File  |  1989-05-11  |  579 b   |  18 lines
  1. * Program Name: test.prg 
  2. * Author: Dave Irwin 
  3. * Copyright (c) 1989 by Software Solutions 
  4. *-----------------------------------------------------------------------------
  5. * Created: 5/11/1989 at 11:35
  6. *---------------------------- ALL RIGHTS RESERVED ----------------------------
  7. * JUST A TEST OF HOW TO READ THE EMBEDDED SERIAL NUMBER AND FILE SERVER NAME!
  8. * Linking: TLINK TEST CODEIT,,,EXTEND CLIPPER
  9. CLEAR
  10. mSERIAL = SPACE(15)
  11. mSERVER = SPACE(48)
  12. mFILENAME = 'TEST.EXE'
  13. DO GETID WITH mFILENAME, mSERIAL, mSERVER
  14. @10,10 SAY mSERIAL
  15. @12,10 SAY mSERVER
  16. RETURN
  17.  
  18.