mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
20 lines
405 B
QBasic
20 lines
405 B
QBasic
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
|