An appropriate graphic for the day.
10 CLS:PI=3.1415926:DEFINTX,I,J,K:DIMX(64),T(64),I(64 ),J(64)
20 T=0:GOSUB90:GOSUB80:T=1.46:GOSUB90:GOSUB80
30 I(S)=0:J(S)=1:GOSUB50
40 GOTO40
50 IFS<0RETURNELSEGOSUB60:GOTO50
60 I=I(S):J=J(S):S=S-1:IFX(I)+1=X(J)RETURN
70...