initial cammit
[qbasicapps.git] / tutorial / group3 / 08.bas
1 SCREEN 13\r
2 \r
3 \r
4 FOR x = 0 TO 319\r
5 \r
6   y = SIN(x / 10) * 50 + 100\r
7   PSET (x, y), 14\r
8 \r
9   y = COS(x / 10) * 50 + 100\r
10   PSET (x, y), 12\r
11 \r
12 NEXT x\r
13 \r