5 REM *** SINUSKURVE IN KOORDINATENSYSTEM ***
10 GOSUB50000:REM GRAFIK EIN
20 GOSUB50100:REM GRAFIK LOESCHEN
30 VO=0:HI=14:REM ZEICHENFARBE SCHWARZ
35 :::::::::::REM HINTERGRUND HELLBLAU
40 GOSUB50200:REM FARBE SETZEN
45 REM KOORDINATENACHSEN ZEICHNEN
50 Y=100:FORX=0TO319:GOSUB50400:NEXTX
60 X=160:FORY=0TO199:GOSUB50400:NEXTY
65 REM SINUSKURVE ZEICHNEN
70 FORX=0TO319:Y=100+SIN(X*(null)/160)*50:GOSUB50400:NEXTX
80 WAIT198,255:GOSUB50300:REM GRAFIK AUS
90 END