10 cls
20 line(0,0)-(640,800),1,2
30 run