home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh18a.d64
/
grafik.einfach
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
192b
|
9 lines
10 REM --- DRUCK EINER SINUSKURVE ---
20 REM -- IM GRAFIKMODUS DES EPSON --
30 OPEN 1,4
40 PRINT#1,CHR$(27);"*";CHR$(0);CHR$(100);CHR$(0);
50 FOR I=1 TO 100
60 A=2^INT((1+SIN(I*(null)/20))*3.5+.5)
70 PRINT#1,CHR$(A);
80 NEXT I