Differences

This shows you the differences between two versions of the page.

--- jbev_sin [2026/05/27 15:48] – admin
+++ jbev_sin [2026/05/27 16:09] (current) – admin
@@ Line 63: / Line 63: @@
 IF I < 0.97 GOTO 60
 GOTO 40</code>
+**TRS-80 (Tested on a MDL3)**
+<code>5 D$="................................................................"
+W=63
+W=W/2:H=W-1
+T=T+.125
+I=I+.001
+A=INT(W+H*SIN(T))
+B=INT(W+H*COS(T*I))
+IF A<B THEN L=A:R=B
+IF A>B THEN L=B:R=A
+IF A=B THEN PRINT TAB(L);"*":GOTO 240
+M=INT((L+R)/2)
+M=M-L
+R=R-(M+L)
+IF M=0 THEN PRINT TAB(L);"*";LEFT$(D$,R):GOTO 240
+PRINT TAB(L);LEFT$(D$,M);"*";LEFT$(D$,R)
+IF I<.9690001 THEN 110
+I=0:T=0:GOTO 110</code>