def var a as char format "x(60)".
def var b as int.

b = 8.
repeat while b = 8:  
	os-rename c:\a.lis c:\b.lis.
	b = os-error.
end.

display b.

if b = 0 then do:
	os-rename c:\b.lis c:\a.lis.

	input from c:\a.lis.
	import a.
	display a.
	pause.
	input close.
end.