Files
harbour-core/contrib/hbnf/tests/nwuid.prg
vszakats 9687850865 2013-03-16 02:10 UTC+0100 Viktor Szakats (harbour syenar.net)
* (all files)
    * stripped svn header
    * minor cleanups
    ; use following command to find out the history of files:
       git log
       git log --follow
       git blame
       git annotate
2013-03-16 02:11:42 +01:00

19 lines
266 B
Plaintext

#require "hbnf"
PROCEDURE Main()
LOCAL x, cUid
? "I am: [" + ft_NWUID() + "]"
? "---------------------"
FOR x := 1 TO 100
cUid := ft_NWUID( x )
IF ! Empty( cUid )
? Str( x, 3 ) + Space( 3 ) + cUid
ENDIF
NEXT
RETURN