GlobalLocal Sub.mac

args ival, rval
local i

rval = 1

for i = ival to 2 step -1

rval = rval * i

a1$ = "In Sub Macro, i = "

a2$ = format$(i,"#0")

a3$ = " rval = "

a4$ = format$(rval, "###0")

file_write_text 1, a1$+a2$+a3$+a4$

next i