2900 2a1a 022d B ... SPIRALE
Keine Ahnung für welche BASIC Version das sein soll. 75 CALL 28C4H(Y,X)
10 CLS
20 LET PI=3.14159;XM=32.5;YM=32.5
22 FOR B=1 STEP 1 TO 8
30 LET RA=3
50 FOR W=0 STEP1/RA TO 2.3*PI
52 LET RA=RA+.3
55 FOR PH=0 STEP 2*PI/B TO PI*(2-1/B)
60 LET X=XM+RA*SIN(W+PH)
70 LET Y=YM+RA*COS(W+PH)
75 CALL 28C4H(Y,X)
80 NEXT
90 NEXT
95 CLS
100 NEXT
110 GOTO 10
1000 END