Basic/data/KREIS.BAS

27 lines
386 B
QBasic
Raw Normal View History

2014-04-30 20:24:00 +02:00
10 CLS
20 c=15
30 r=15
35 f=260
40 FOR i=14 TO 0 STEP -1
45 f=RND (255)
50 CIRC f,c,c,i
60 NEXT i
100 FOR i=0 TO 29
110 f=RND (255)
120 LINE f,0,i,i,0,0
130 NEXT i
140 FOR i=30 TO 39
150 f=RND (255)
160 LINE f,i,0,i-29,29
170 NEXT i
180 FOR i=11 TO 39
185 f=RND (255)
190 LINE f,i,29,39,i-10
195 NEXT i
198 PAUSE 1000
200 FOR i=0 TO 29
210 f=RND (255)
220 BOX f,0,i,39,i,0
230 NEXT i