' https://rosettacode.org/wiki/Archimedean_spiral#GW-BASIC
' Last three lines commented out; otherwise left as is to test BAM compatibility with GW-BASIC

10 A = 0
20 B = 1
30 SCREEN 1
40 FOR THETA = 0 TO 160 STEP .01
50 R = A + B*THETA
60 X = R*COS(THETA)
70 Y = R*SIN(THETA)
80 PSET (160+X, 100-Y),3
90 NEXT THETA
'100 IF INKEY$="" THEN GOTO 100
'110 SCREEN 2:SCREEN 0
'120 END