26 lines
471 B
QBasic
26 lines
471 B
QBasic
|
10 COL 0,255,0
|
||
|
|
20 CLS
|
||
|
|
22 TLOAD 1,"sysfontb.dat",16,11
|
||
|
|
23 STILE 1
|
||
|
|
30 FOR i=0 TO 100
|
||
|
|
40 x=RND (39)
|
||
|
|
50 y=RND (29)
|
||
|
|
60 BOX i,x,y,x+5,y+5,1
|
||
|
|
70 NEXT i
|
||
|
|
80 FOR i=100 TO 0 STEP -1
|
||
|
|
90 x=RND (39):y=RND (29)
|
||
|
|
100 BOX i,x,y,x+5,y+5,0
|
||
|
|
110 NEXT i
|
||
|
|
120 FOR i=0 TO 100
|
||
|
|
130 x=RND (39):y=RND (29)
|
||
|
|
140 FRAME i+5,i,i+10,x,y,x+5,y+5
|
||
|
|
150 NEXT i
|
||
|
|
155 CROFF
|
||
|
|
160 FOR i=100 TO 0 STEP -1
|
||
|
|
170 x=RND (39):y=RND (29)
|
||
|
|
180 WIN c(1,i+5,i,i+10,x,y,x+8,y+8,4,0,"Hey!")
|
||
|
|
185 PRINT "Hey!"
|
||
|
|
190 NEXT i
|
||
|
|
200 WSET 0
|
||
|
|
|