27 lines
386 B
QBasic
27 lines
386 B
QBasic
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
|
|
|