2 P=P+1:IFP=2THEN22
4 F=PEEK(53280):POKE56576,PEEK(56576)AND254:POKE53272,PEEK(53272)OR128
6 POKE53265,PEEK(53265)OR32:B=16384:C=25600
8 GOSUB30:FORI=0TO7999:POKEB+I,180:NEXT
10 F=255-F:POKE53280,F:POKE53270,PEEK(53270)OR16:X=INT(RND(0)*255):FORI=0TO999
12 POKE55296+I,X:GETK$:IFK$<>""THEN18
14 IFINT(I/200)=I/200THENPOKE53281,INT(RND(0)*256)
16 NEXT:POKE53270,PEEK(53270)AND239:F=255-F:POKE53280,F:GOSUB30:GOTO10
18 POKE53270,PEEK(53270)AND239:F=255-F:POKE53280,F
20 LOAD"BMP.DEMO",8,1
22 FORI=0TO999:POKEC+I,27:NEXT:FORI=0TO1000:NEXT:FORI=0TO7999:POKEB+I,0:NEXT
24 GOSUB32:FORI=0TO5000:NEXT
26 POKE53265,PEEK(53265)AND223:POKE53270,PEEK(53270)AND239
28 POKE53272,PEEK(53272)AND127:POKE56576,PEEK(56576)OR1:SYS42115
30 X=INT(RND(0)*256):FORI=0TO999:POKEC+I,X:NEXT:RETURN
32 :REM * QUADRAT *
34 XA=40:YA=10:XE=120:YE=10:GOSUB60:XA=120:YA=10:XE=120:YE=90:GOSUB60
36 XA=120:YA=90:XE=40:YE=90:GOSUB60:XA=40:YA=90:XE=40:YE=10:GOSUB60
38 :REM * RAUTE *
40 XA=240:YA=10:XE=280:YE=50:GOSUB60:XA=280:YA=50:XE=240:YE=90:GOSUB60
42 XA=240:YA=90:XE=200:YE=50:GOSUB60:XA=200:YA=50:XE=240:YE=10:GOSUB60
44 :REM * KREIS *
46 XM=80:YM=150:XR=40:YR=40:FORW=0TO360
48 XA=XM+INT(XR*COS(W*(null)/180)):YA=YM+INT(YR*SIN(W*(null)/180)):GOSUB74:NEXT
50 :REM * SINUS *
52 XA=170:YA=150:XE=310:YE=150:GOSUB60:XA=240:YA=110:XE=240:YE=190:GOSUB60
54 XA=180:YA=150:Y=YA:FORX=0TO360STEP3
56 YA=Y+INT(30*SIN(X*(null)/180)):GOSUB74:XA=XA+1:NEXT
58 RETURN
60 IFXA=XEANDYA=YETHENRETURN
62 GOSUB74:REM * PLOT *
64 IFXA<XETHENXA=XA+1
66 IFYA<YETHENYA=YA+1
68 IFXA>XETHENXA=XA-1
70 IFYA>YETHENYA=YA-1
72 GOTO60
74 Z=2^(7+INT(XA/8)*8-XA):PO=B+INT(YA/8)*320+YA-INT(YA/8)*8+INT(XA/8)*8
76 POKEPO,PEEK(PO)ORZ:RETURN