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
jbev_sin [2026/09/15 01:44] – adminjbev_sin [2026/09/15 23:10] (current) – admin
Line 41: Line 41:
 <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 1 liner** \\+**CP/M MBasic friendly** \\
  
-<code>1 A=30+30*SIN(T):B=30+30*COS(T*I):L=ABS(A-B)/2:?TAB((A+B)/2-L)STRING$(L,".")"*"STRING$(L,".");:T=T+.1:I=I+.001:GOTO1</code>+<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.txt · Last modified: by admin