global i

MAIN
repaint on
repaint
single-step on
message "records is:"&str(records)

for i=1 to records
lock-record
[ProcessDate]=today
write-record
data goto record next
End for

END MAIN