function2.bas

1 REM VYKRESLENI PRUBEHU FUNKCE
2 REM UPRAVA PRO TURBO-BASIC XL
3 REM 
4 REM ----------------------------
5 REM 
10 GRAPHICS 8+16
11 COLOR 1
12 PLOT 0,0:DRAWTO 0,191
13 PLOT 0,95:DRAWTO 319,95
18 PLOT 0,95
20 FOR I=1 TO 319
21 X=I/16
22 Y=60*SIN(X)
25 DRAWTO I,95-Y
30 NEXT I
998 REM CEKANI NA STISK TLACITKA JOYSTICKU
999 REPEAT :UNTIL STRIG(0)=0
1000 END