initial cammit
[qbasicapps.git] / tutorial / group3 / 01.bas
1 SCREEN 13\r
2 \r
3 FOR y = 50 TO 150\r
4   FOR x = 100 TO 200\r
5     PSET (x, y), 10\r
6   NEXT x\r
7   SOUND y, 1\r
8 NEXT y\r
9 \r