initial cammit
[qbasicapps.git] / tutorial / group3 / 04.bas
1 SCREEN 13\r
2 \r
3 LINE (10, 10)-(50, 50), 14              ' line\r
4 \r
5 LINE (100, 10)-(150, 50), 14, B         ' box\r
6 \r
7 LINE (200, 10)-(250, 50), 14, BF        ' filled box\r
8 \r