5 REM SINUSKURVE AUF CBM-64
10 POKE53272,PEEK(53272)OR8 :REM BEREICH FUER BITMAPPING AB 8192
20 POKE53265,PEEK(53265)OR32 :REM BITMAPMODE WIRD EINGESCHALTET
25 FORK=0TO999:POKE1024+K,14:NEXT :REM WAHL DER FARBKOMBINATION
27 FORI=0TO7999:POKE8192+I,0:NEXT :REM BILDSCHIRM WIRD GELOESCHT
50 FORX=0TO319
60 Y=INT(100+80*SIN(X*2*π/160)) :REM FUNKTION
70 FORN=0TO24
80 IFY>N*8−1ANDY<(N+1)*8THENBY=8192+N*320+8*INT(X/8)+Y−8*N:N=24:GOTO100
85 : :REM NUMMER DES BYTES WIRD BERECHNET
90 NEXTN
100 BI=8*(1+INT(X/8))−X−1 :REM BITMUSTER WIRD BERECHNET
110 IFPEEK(BY)<>0THENPOKEBY,PEEK(BY)OR2↑BI
120 IFPEEK(BY)=0THENPOKEBY,2↑BI
130 NEXTX
150 GOTO150
READY.
