lNT3R.NET

User Tools

Site Tools

Trace:
jbev_sin

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
jbev_sin [2026/09/15 01:41] – adminjbev_sin [2026/09/15 23:10] (current) – admin
Line 40: Line 40:
  
 <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> <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
 +20 A=30+30*SIN(T)
 +30 B=30+30*COS(T*I)
 +40 L=INT(ABS(A-B)/2)
 +50 P=INT((A+B)/2-L)
 +55 IF P<0 THEN P=0
 +60 PRINT TAB(P);
 +70 PRINT STRING$(L,".");
 +80 PRINT "*";
 +85 PRINT STRING$(L,".")
 +90 T=T+.1
 +100 I=I+.001
 +110 GOTO 20</code>
  
 **VAX VMS Basic** \\ **VAX VMS Basic** \\
jbev_sin.1789436463.txt.gz · Last modified: by admin