27 lines
472 B
Text
27 lines
472 B
Text
:StoreGDB 0
|
|
:ClrDraw
|
|
:FnOff
|
|
:AxesOff
|
|
:Pxl-On(31,47)
|
|
:For(I,1,50)
|
|
:randInt(1,93)→X
|
|
:randInt(1,61)→Y
|
|
:1→A
|
|
:While A
|
|
:randInt(1,4)→D
|
|
:Pxl-Off(Y,X)
|
|
:If D=1 and Y≥2
|
|
:Y-1→Y
|
|
:If D=2 and X≤92
|
|
:X+1→X
|
|
:If D=3 and Y≤60
|
|
:Y+1→Y
|
|
:If D=4 and X≥2
|
|
:X-1→X
|
|
:Pxl-On(Y,X)
|
|
:If pxl-Test(Y+1,X) or pxl-Test(Y+1,X+1) or pxl-Test(Y+1,X-1) or pxl-Test(Y,X+1) or pxl-Test(Y,X-1) or pxl-Test(Y-1,X) or pxl-Test(Y-1,X-1) or pxl-Test(Y-1,X+1)
|
|
:0→A
|
|
:End
|
|
:End
|
|
:Pause
|
|
:RecallGDB 0
|