1 REM**********************************
2 REM*                                *
3 REM*     VERSCHLUNGENE SPIRALEN     *
4 REM*   VERSION FUER PLOTTER 1520    *
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 OPEN1,6,1:OPEN2,6,2:PRINT#2,0:CLOSE2
25 REM**** START ****
26 PRINT#1,"M",0,-200:PRINT#1,"I"
30 REM**** MITTE ****
32 PRINT#1,"R",240,0:PRINT#1,"I":GOSUB100
33 REM **** KREIS ******
35 M=50:D=360*(null)/(M*180):DIMK(M):K(0)=2*(null)
36 FORI=1TOM:K(I)=K(I-1)+D:PRINT#1,"R",R*COS(K(I-1)),R*SIN(K(I-1))
37 PRINT#1,"J",R*COS(K(I)),R*SIN(K(I)):NEXTI:PRINT#1,"H"
40 A$="VERSCHLUNGENE SPIRALEN"
42 REM**** TEXT ****
43 OPEN4,6:PRINT#1,"R",XT,YT:PRINT#4,A$:CLOSE4
45 PRINT#1,"M",240,-YT:PRINT#1,"I"
50 REM**** SHOW ****
52 PRINT#1,"R",0,-200:PRINT#1,"I"
55 POKE198,0:WAIT198,1
60 REM**** NORMAL ****
62 PRINT#1,"H":CLOSE1
65 REM**** WERTE AUSDRUCKEN *****
70 OPEN3,6,3:PRINT#3,0:OPEN4,6:PRINT#4:PRINT#4," N","  XT","  YT","  R","  W"
75 PRINT#4,N,XT,YT,R,A1:PRINT#3,1:PRINT#4:CLOSE4:CLOSE3
80 REM**** GRESET ****
85 OPEN7,6,7:PRINT#7:CLOSE7
90 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 PRINT#1,"R",(RR-RA)*COS(T(I-1)),(RR-RA)*SIN(T(I-1))
122 PRINT#1,"J",RR*COS(T(I)),RR*SIN(T(I))
125 NEXTI
130 NEXTJ
135 RETURN