mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-05 23:54:33 +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
|