' Based on "Blue.bas" found in "9liners.zip" (https://qb45.org/download.php?id=1076)
' This BASIC Anywhere Machine mod by Charlie Veniot
' ' This program built with BASIC Anywhere Machine Version 5.2.3_2023.01.14.03.45
' On 2023.01.14.03.48
SCREEN 13 
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% = INT(RND * 100) 
LOOP