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