home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / ls4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  357 b   |  15 lines
  1. 10 gosub50000:rem grafik ein
  2. 20 gosub50100:rem grafik loeschen
  3. 30 vo=14:hi=0
  4. 40 gosub50200:rem farbe setzen
  5. 45 rem koordinatenachsen zeichnen
  6. 46 f=14
  7. 50 y=100:forx=0to319:gosub50400:nextx
  8. 60 x=160:fory=0to199:gosub50400:nexty
  9. 65 deffna(x)=100+sin(x*(NULL)/k)*50
  10. 70 fork=150to220step10
  11. 75 f=1+rnd(1)*16:rem farben zufaellig setzen
  12. 80 forx=0to319:y=fna(x):gosub50400:nextx,k
  13. 90 wait198,255:gosub50300:rem grafik aus
  14. 100 end
  15.