initial cammit
[qbasicapps.git] / unsorted / contrast.bas
1 SCREEN 13\r
2 \r
3 FOR a = 16 TO 31 STEP .06\r
4 x = x + 1\r
5 LINE (x, 0)-(x, 150), a\r
6 NEXT a\r
7 \r