home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / graf.einf. fx-80 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  187 b   |  9 lines

  1. 10 rem --- druck einer sinuskurve ---
  2. 20 rem -- im grafikmodus des epson --
  3. 30 open1,4
  4. 40 print#1,chr$(27);"*";chr$(0);chr$(100);chr$(0);
  5. 50 fori=1to100
  6. 60 a=2^int((1+sin(i*(NULL)/20))*3.5+.5)
  7. 70 print#1,chr$(a);
  8. 80 nexti
  9.