CIRCLES (by Regeya)

[Charlie Veniot]

' from https://github.com/regeya/circles/blob/master/CIRCLES.BAS
' changes (noted below), by Charlie Veniot because BAM!, unlike GW-BASIC, does require the color parameter in the CIRCLE statement

10 SCREEN 7
15 CLS
20 KEY OFF
30 FOR I=0 TO 360 STEP 10
40 LET R = I*(3.14/180)
50 LET F = COS(R)*50+160
60 LET G = SIN(R)*50+100
' 🟠 70 COLOR INT(RND*14)+1
70 this_color = INT(RND*14)+1
' 🟠 80 CIRCLE (F,G),50
80 CIRCLE (F,G),50, this_color
90 NEXT
' 🟠'100 COLOR 15
100 this_color = 15
110 WHILE INKEY$="": WEND
120 SYSTEM : REM FOR COMPLETENESS SAKE

[Charlie Veniot]