Differences

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

--- jbev_sin [2026/05/27 16:09] – admin
+++ jbev_sin [2026/09/15 23:10] (current) – admin
@@ Line 37: / Line 37: @@
 line
-<code>1 A=40+40*SIN(T):B=40+40*COS(T*I):IF A>B THEN SWAP A,B:?TAB(A)STRING$(B-A,".")"*":T=T+.1:I=I+.001:GOTO<code>
+<code>1 A=40+40*SIN(T):B=40+40*COS(T*I):IF A>B THEN SWAP A,B:?TAB(A)STRING$(B-A,".")"*":T=T+.1:I=I+.001:GOTO</code>
-<code>1 A=39+39*SIN(T):B=39+39*COS(T*I):IF A>B SWAP A,B:?TAB(A)STRING$(B-A,46)"*":T=T+.1:I=I+.001:GOTO 1</code>
+<code>1 1 A=30+30*SIN(T):B=30+30*COS(T*I):L=ABS(A-B):?TAB((A+B-L)/2)STRING$(L/2,".")"*"STRING$(L/2,".");:T=T+.1:I=I+.001:GOTO 1</code>
+**CP/M MBasic friendly** \\
+<code>10 T=0:I=0
+A=30+30*SIN(T)
+B=30+30*COS(T*I)
+L=INT(ABS(A-B)/2)
+P=INT((A+B)/2-L)
+IF P<0 THEN P=0
+PRINT TAB(P);
+PRINT STRING$(L,".");
+PRINT "*";
+PRINT STRING$(L,".")
+T=T+.1
+I=I+.001
+GOTO 20</code>
 **VAX VMS Basic** \\