screen 13
dim c(1 to 478) as integer
circle(160,100),30,4
get(130,70)-(190,30),c
x=160:y=100:x1=x:y1=y
i=int(rnd*8)
select case i
case 0
x=x+1
ju=320-x-30
case 1
x=x-1
ju=x-30
case 2
y=y+1
ju=y-30
case 3
y=y-1
ju=200-y-30
case 4
x=x+1
y=y+1
ju=(320-x-30)/sqr(2)/2
case 5
x=x+1
y=y-1
ju=(320-x-30)/sqr(2)/2
case 6
x=x-1
y=y+1
ju=(x-30)/sqr(2)/2
case 7
x=x-1
y=y-1
ju=(x-30)/sqr(2)/2
end select
paint(x,y),i,4
for j=1 to ju
put(x,y),c
put(x1,y1),c
for s=1 to 1000:next
next
系统提示第4句