30 lines
358 B
Text
30 lines
358 B
Text
PROGRAM:SIRPNSKI
|
|
:ClrHome
|
|
:Output(1,8,"^")
|
|
:{0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0}→L1
|
|
:{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}→L2
|
|
:L2→L3
|
|
:For(X,2,8,1)
|
|
:For(Y,2,17,1)
|
|
:If L1(Y-1)
|
|
:Then
|
|
:4→N
|
|
:End
|
|
:If L1(Y)
|
|
:Then
|
|
:N+2→N
|
|
:End
|
|
:If L1(Y+1)
|
|
:Then
|
|
:N+1→N
|
|
:End
|
|
:If N=1 or N=3 or N=4 or N=6
|
|
:Then
|
|
:1→L2(Y)
|
|
:Output(X,Y-1,"^")
|
|
:End
|
|
:0→N
|
|
:End
|
|
:L2→L1
|
|
:L3→L2
|
|
:End
|