10 ! TRIANG3D 20 ! 30 ! TRIAN3D 40 ! Ritar en fraktal triangel med en kul 3d efekt. 50 ! Program av Magnus <8042> 1991 60 ! F|r ABC806 70 ! 80 ! Loop med "WHILE", avbryts med tangenttryckning, 85 ! "GRED" etc f|r att ge bild p} monokrom sk{rm, 90 ! Namnbyte --> TRIANG3D <7759> 100 ! 110 EXTEND : INTEGER 120 ; CHR$(12) 130 Tx=100 : Ty=0 140 FGCTL BLK+GRED+GGRN+GBLU : FGPOINT 0,0,0 : FGFILL 511,239 150 WHILE -1 160 A=INT(RND*3) 170 IF A=1 THEN Tx=Tx-(Tx/2) : Ty=Ty-(Ty/2) 180 IF A=2 THEN Tx=Tx+((511-Tx)/2) : Ty=Ty-(Ty/2) 190 IF A=0 THEN Tx=Tx+((255-Tx)/2) : Ty=Ty+((239-Ty)/2) 200 Lx=Tx+((255-Tx)/10) : Ly=Ty+((120-Ty)/10) 210 FGPOINT Lx,Ly,3 : FGLINE Tx,Ty : FGPOINT Tx,Ty,2 220 IF SYS(5)=0 WEND 230 GET Z$ 240 END