Differences

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

--- jbev_sin [2026/05/27 15:45] – created admin
+++ jbev_sin [2026/05/27 16:09] (current) – admin
@@ Line 3: / Line 3: @@
 **IBM**
-Original:
+Original: \\
-D$="................................................................................*"
+<code>5 D$="................................................................................*"
 PRINT "sinus (c) jbev 2022"
 W=79
@@ Line 20: / Line 20: @@
 PRINT TAB(L);LEFT$(D$,M);"*";LEFT$(D$,R)
 IF I<.9690001 THEN 110
-I=0:T=0:GOTO 110
+I=0:T=0:GOTO 110</code>
 Condensed 1
-W=38:T=0:I=0
+<code>10 W=38:T=0:I=0
 A=INT(W+W*SIN(T)):B=INT(W+W*COS(T*I)):IF A>B THEN SWAP A,B
 PRINT TAB(A);STRING$(B-A,".");"*"
 T=T+.125:I=I+.001:IF I<.97 GOTO 20
-I=0:T=0:GOTO 20
+I=0:T=0:GOTO 20</code>
 Condensed Qbasic
-A=38+38*SIN(T):B=38+38*COS(T*I):IF A>B THEN SWAP A,B
+<code>10 A=38+38*SIN(T):B=38+38*COS(T*I):IF A>B THEN SWAP A,B
-PRINT TAB(A);STRING$(B-A,".");"*":T=T+.125:I=I+.001:GOTO 10
+PRINT TAB(A);STRING$(B-A,".");"*":T=T+.125:I=I+.001:GOTO 10</code>
 line
-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>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>
+**VAX VMS Basic** \\
+<code>10  ! Centered Asterisk Ribbon Pattern
+  D$ = "................................................................................"
+  W = 38
+  T = 0.0
+  I = 0.0
+  A = INT(W + W * SIN(T))
+  B = INT(W + W * COS(T * I))
+  L = A
+  R = B
+IF L <= R GOTO 130
+L = B
+R = A
+M1 = INT((R - L) / 2)
+M2 = (R - L) - M1
+PRINT TAB(L); LEFT$(D$, M1); "*"; LEFT$(D$, M2)
+CALL LIB$WAIT(0.05)
+T = T + 0.125
+I = I + 0.001
+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>
-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