10   REM Geraden malen testen
20   USING 0,4:WHILE
30     INPUT 'x1 ';x1
40     INPUT 'y1 ';y1
50     INPUT 'x2 ';x2
60     INPUT 'y2 ';y2
70     CLS
80     PRINT x1 y1 x2 y2
90     LINE x1,y1,x2,y2
100  WEND
