4 REM POSTED TO TWITTER BY 8-BIT FRACTALS
10 DIM S(30)
20 HGR2:HCOLOR=7
30 X=107:Y=142
40 H=0:V=6
50 S(0)=9:S(1)=1:SP=2
60 GOSUB 80
70 END
80 SP=SP-2:N=S(SP):A=S(SP+1)
90 IF N=0 THEN XX=X+H:YY=Y-V:HPLOT X,Y TO XX,YY:X=XX:Y=YY:RETURN
100 S(SP)=N-1:S(SP+1)=-1
110 S(SP+2)=A
120 S(SP+3)=N-1:S(SP+4)=1
130 SP=SP+5
140 GOSUB 80:GOSUB 160:GOSUB 80
150 RETURN
160 SP=SP-1:A=S(SP)
170 T=-A*H:H=A*V:V=T
180 RETURN
