' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2024.09.09.00.00]) on 2025.10.14 at 14:11 (Coordinated Universal Time)
' By Charlie Veniot, a port and mod of Richard Keijzer' program 
' shared with the "BASIC Programming Language" Facebook group
' ( https://www.facebook.com/share/p/1Wtbotsh2Q/ )
' Some or the original code commented out; new code has no line numbers.
' Spaces have been added (To make it easier for me to read.)

   SCREEN _NEWIMAGE( 600, 360, 15 )
 5 A$ = STRING$( 60, 32 )
   N = 0                           ' 🔶 10 FOR N=0 TO 360 STEP 20
20 M = N * 0.017453
30 A = 30 * ( 1 + SIN(M) / 1.766 )
   COLOR INT(A) MOD 63 + 16
40 PRINT RIGHT$( A$, A ); "spiralling text"
   N = N + 10 : SLEEP 0.1 : GOTO 20 ' 🔶 50 NEXT N