10 rem ** 320x200x32col fractal(?) 20 rem ** 30 rem ** this is a little demonstration how to do a formula-based 40 rem ** computer graphic using the screen instructions of the c65 50 rem ** calculation will last about 20 minutes on a real c65, 60 rem ** but will be much faster on hi65 70 rem ** http://devilmaster.altervista.org/hi65.html 80 rem ** 90 rem ** contact me: devilmaster (a snail) email (a period) com 100 rem 110 trap 330 120 graphic clr 130 screen def 1,1,1,5 140 screen open 1 150 for i=1 to 31 160 read a,b,c 170 palette 1,i,a,b,c 180 next i 190 screen set 1,1 200 scnclr 0 210 border 0 220 pen 0,15 230 char 14,2,2,2,2,"devil master" 240 char 15,20,1,1,2,"calculating 20 minutes" 245 t1=ti 250 for x=0 to 639 260 for y=0 to 379 261 ca=x*x 262 cb=y*y 263 cc=ca+cb 270 a=cc/600 280 pen 0,a 290 line x,y,x,y 300 next y 310 next x 315 t2=ti-t1 316 t2=t2/600 320 get a$ : if a$ = "" then goto 320 330 screen close 1 340 palette restore 350 border 6 355 print "programma eseguito in ";t2;" secondi" 360 end 370 data 1,0,1,3,0,3,5,0,5,7,0,7,9,0,9,11,0,11,13,0,13,15,0,15 380 data 15,0,13,15,0,11,15,0,9,15,0,7,15,0,5,15,0,3,15,0,1 390 data 13,0,3,11,0,5,9,0,7,7,0,9,5,0,11,3,0,13,1,0,15,0,0,13 400 data 0,0,11,0,0,9,0,0,7,0,0,5,0,0,3,0,0,1,0,0,0,0,0,0