#console

dim true_ans as char
dim user_ans as char

open "Test.txt" for output as #1

randomize
while -1
	true_ans = Fix(Rnd() * 4)
	input "数字",user_ans
	print #1, true_ans;
	print #1, ",";
	print #1, user_ans
	if true_ans = user_ans then
	    exit while
	else
		print "ハズレ"
    end if
wend

close #1
Exec "Test.txt"