18 lines
198 B
Plaintext
18 lines
198 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing SET
|
|
|
|
#include "set.ch"
|
|
|
|
function Main()
|
|
local n, cNewLine := HB_OSNewLine()
|
|
|
|
for n := 1 to _SET_COUNT
|
|
outstd (cNewLine)
|
|
outstd (set (n))
|
|
next
|
|
|
|
return nil
|