home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / ls1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  404b  |  14 lines
  1. 5 REM *** SINUSKURVE IN KOORDINATENSYSTEM ***
  2. 10 GOSUB50000:REM GRAFIK EIN
  3. 20 GOSUB50100:REM GRAFIK LOESCHEN
  4. 30 VO=0:HI=14:REM ZEICHENFARBE SCHWARZ
  5. 35 :::::::::::REM HINTERGRUND HELLBLAU
  6. 40 GOSUB50200:REM FARBE SETZEN
  7. 45 REM KOORDINATENACHSEN ZEICHNEN
  8. 50 Y=100:FORX=0TO319:GOSUB50400:NEXTX
  9. 60 X=160:FORY=0TO199:GOSUB50400:NEXTY
  10. 65 REM SINUSKURVE ZEICHNEN
  11. 70 FORX=0TO319:Y=100+SIN(X*(null)/160)*50:GOSUB50400:NEXTX
  12. 80 WAIT198,255:GOSUB50300:REM GRAFIK AUS
  13. 90 END
  14.