do
line (20,20)-(40,40); CLR:R
do loop while end keys = ""

something like that? Qbasic was so much fun sophomore year.