home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / ls4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  357b  |  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.