FWD » Core Development » Base Language

def var i as int.

def var ch as char.

def var ch2 as char.

def var ch3 as char.

def var dt1 as datetime.

def var dt2 as datetime.

def var h as handle.

form ch ch2 ch3 with frame f1 no-box width 132 down.

dt1 = now.

def stream rpt.

output stream rpt to value("sample.txt").

h = stream rpt:handle.

do i = 1 to 100000:

   ch = string(i).

   ch2 = string(i).

   ch3 = string(i).

   display stream-handle h ch ch2 ch3 with frame f1.

   down stream-handle h with frame f1.

end.

output stream-handle h close.

dt2 = now.

message dt2 - dt1.