1 REM**********************************
2 REM*                                *
3 REM*     VERSCHLUNGENE SPIRALEN     *
4 REM*   VERSION FUER H I R E S - 3   *
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 REM**** INIT ****
23 SYS37498:HFL,6,12
25 REM**** START ****
26 TRS,0,320,0,200
30 REM**** MITTE ****
32 TRS,-160,160,-100,100
35 GOSUB100:TKR,0,0,R,R,2*(null)
40 A$="VERSCHLUNGENE SPIRALEN"
42 REM**** TEXT ****
45 TEX,A$,YT,XT
50 REM**** SHOW (HIER UNNOETIG)****
55 POKE198,0:WAIT198,1
60 REM**** NORMAL ****
62 HOF
65 REM**** GRESET ****
67 LOE:AUS
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 TLN,(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