home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / ls1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.