```' BASIC Anywhere Machine program by Charlie Veniot
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.23 at 23.02
1 SCREEN 13
2 M\$ =  _
"19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031" _
3 DO
for i = 17 to 31
' the "paintbrush" has 15 vertical lines; alter the "bgr" values in various ways to get different results
k = 25 + abs(i-21)*15
palette i, _bgr(k+75,k-20,k+50)
next i
4 FOR A! = 0 TO 25 STEP .01
5 FOR Y% = 0 TO 15
6 FOR X% = 0 TO 15
this_c = VAL(MID\$(M\$, ((Y% * 2) * 16) + (X% * 2) + 1, 2))
7 PSET (160 + COS(A!) * 50 + X%, 100 + SIN(A!) * 50 + Y%), this_c
8 NEXT X%, Y%
_delay 0.01
next A!
9 LOOP

```