1 REM**********************************
2 REM*                                *
3 REM*     VERSCHLUNGENE SPIRALEN     *
4 REM* VERSION M. ALLGEMEINEN BEFEHLEN*
5 REM*                                *
6 REM*  HEIMO PONNATH  HAMBURG  1985  *
7 REM*                                *
8 REM**********************************
9 REM ***** EINGABEN ******************
10 POKE53280,0:POKE53281,0:POKE646,5:PRINTCHR$(147)
15 INPUT"ANZAHL SPIRALEN";N:INPUT"TEXTSTART XT,YT";XT,YT
20 INPUT"RADIUS,STARTWINKEL";R,A1
22 INIT
25 START
30 MITTE
35 GOSUB100:KREIS(0,0,R,R)
40 A$="VERSCHLUNGENE SPIRALEN"
45 TEXT(A$,XT,YT)
50 SHOW
55 POKE198,0:WAIT198,1
60 NORMAL
65 GRESET
70 END
100 REM****** UNTERPROGRAMM ZEICHNEN ***
102 NN=N*100:RA=R/NN:DIMT(NN):A=A1
105 FORJ=1TON:A=A+2*(null)/N
110 T=A:TH=2*(null)/100:T(0)=T
115 FORI=1TONN:T(I)=T(I-1)+TH:RR=RA*I
120 LINIE((RR-RA)*COS(T(I-1)),(RR-RA)*SIN(T(I-1)),RR*COS(T(I)),RR*SIN(T(I)))
125 NEXTI
130 NEXTJ
135 RETURN