' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.08.29.21.34]) on 2023.08.31 at 03:06 (Coordinated Universal Time)
' Based on "Blue.bas" found in "9liners.zip" (https://qb45.org/download.php?id=1076)
' This BASIC Anywhere Machine mod by Charlie Veniot

SCREEN _newimage(320,200,23)

DO 
  FOR A% = 0 TO 365 
    ' 🔶 Changed colour parameter in PSET from A% + C% to _RGB32(0,0,(A% + C% ) mod 256) and replaced hard-coded value for pi with _PI function
    PSET (COS(A% * _PI / 180) * R% + 160, SIN(A% * _PI / 180) * R% + 100), _RGB32(0,0,(A% + C% ) MOD 256)
  NEXT 
  ' 🔶 Replaced WAIT statement with _DELAY
  ' WAIT &H3DA, 8 
  _DELAY 0.0001
  C% = C% + 1 
  R% = RND * 100
LOOP