1 SYS58692
10 IFA=0THENA=1:LOAD"GRAPHICCLR",8,8
20 IFA=1THENA=2:LOAD"BITMAPON",8,8
25 IFA=2THENA=3:LOAD"BITMAPOFF",8,8
30 IFA=3THENA=4:LOAD"COLORS",8,8
40 IFA=4THENA=5:LOAD"PLOT",8,8
42 SYS28700:REM BITMAP LOESCHEN
45 SYS28726:REM HIRES-MODUS EIN
46 FORI=1024TO2023:POKEI,16*0+9:NEXT:REM FARBRAM
50 FORX=1TO319STEP.33
51 Y=INT(90+80*SIN(X/10))
52 GOSUB60:NEXT
55 FORY=0TO199STEP100:FORX=0TO319:GOSUB60:NEXTX,Y:REM HORIZONTALE LINIEN
57 FORY=0TO199:FORX=0TO319STEP159:GOSUB60:NEXTX,Y:REM VERTIKALE LINIEN
58 POKE198,0:WAIT198,1
59 SYS28743:END
60 XH=INT(X/256):XL=X-XH*256
70 POKE966,XL:POKE967,XH
90 POKE968,Y
100 POKE964,1
110 SYS28892:SYS28759
130 RETURN