PmWiki/rexx/regina1.rexx

/* rexx regina */
say 'hier bin ich r1.rexx regina' time() date('s')
say 'sourceline(2)' sourceline(2)
say 'args' arg()':' arg(1)',' arg(2)
fi = 'regina1.rexx'
fo = 'tstRegina1.out'
say 'stream(fo, c, open write replace)' stream(fo, 'c', 'open write replace') stream(fo, 'c', 'query size')
do lx=1 while lines(fi)
        li = lineIn(fi)
    if lx // 5 = 1 then
        say lx '=' li 
        call lineout fo, li
    end
say 'stream(fo, c, close)' stream(fo, c, close)
say 'stream(fi, c, query exists)' stream(fi, c, 'query exists') stream(fi, c, 'query size')
trace ?r
say 'pwd'
'pwd'
say 'end of rexx'