31
Community news and announcements / Re: End of Retrogamecoding and Basicprogramming Forum
« Last post by Aurel on October 14, 2019, 05:20:15 PM »Ok Markus
and all best to you
and all best to you
1 REM iBASIC version 09/2019
5 screen window mode 45,60
7 window title "Espiral arquimediana"
10 LET A=1.5
20 LET B=0.7
30 FOR T=0 TO 7*PI STEP 0.05
40 LET R=A+B*T
45 let x = R*COS(T)+32 : let y = R*SIN(T)+22
50 locate y,x : print "*"
60 NEXT T
70 input "",a$
// Ported from ZX81 Sinclair BASIC to Yabasic by Galileo, 10/2018
5 OPEN WINDOW 320, 200 : WINDOW ORIGIN "CC"
10 LET A=1.5
20 LET B=0.7
30 FOR T=0 TO 30*PI STEP 0.05
40 LET R=A+B*T
50 LINE TO R*COS(T),R*SIN(T)
60 NEXT T