'FBCC#7 Weltenprogramm 'Punktraster.bas von Camillo SCREENRES 90*8,7*16,32 WIDTH 90,7 RANDOMIZE 4711 DIM Text AS STRING*10 Text[0]= RND* 79 Text[1]= RND*245 Text[2]= RND*238 Text[3]= RND*217 Text[4]= RND*112 Text[5]= RND* 35 Text[6]= RND*341 Text[7]= RND*128 Text[8]= RND*536 Text[9]= RND*131 DIM AS ANY PTR Bild = IMAGECREATE(80,16,0) DRAW STRING Bild,(0,0),Text FOR y AS INTEGER = 0 TO 15 FOR x AS INTEGER = 0 TO 79 IF POINT(x,y,Bild) THEN CIRCLE(x*9+8,y*9),6,&Hffbb00,,,,f NEXT NEXT IF Bild THEN IMAGEDESTROY Bild GETKEY