1 REM ********************************
2 REM *                              *
3 REM *         FENSTERROSE          *
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 STUETZPUNKTE";N
20 INPUT"RADIUS";R:INPUT"TEXTORT XT,YT";XT,YT
25 REM **** INIT *****
30 OPEN1,6,1:OPEN2,6,2:PRINT#2,1:CLOSE2
35 REM **** START *****
40 PRINT#1,"M",0,-200:PRINT#1,"I"
45 REM **** MITTE *****
50 PRINT#1,"R",240,0:PRINT#1,"I"
55 REM*******
60 D=2*(null)/N:DIMX(N),Y(N)
65 REM **** KREIS *****
70 M=50:DD=360*(null)/(M*180):DIMT(M):T(0)=2*(null)
72 FORI=1TOM:T(I)=T(I-1)+DD:PRINT#1,"R",R*COS(T(I-1)),R*SIN(T(I-1))
74 PRINT#1,"J",R*COS(T(I)),R*SIN(T(I)):NEXTI
75 REM*******
80 GOSUB200
90 A$="FENSTERROSE"
95 REM **** TEXT *****
100 OPEN4,6:PRINT#1,"R",XT,YT:PRINT#4,A$:CLOSE4:PRINT#1,"M",240,-YT:PRINT#1,"I"
105 REM **** SHOW *****
110 PRINT#1,"R",0,-200
115 REM******
120 POKE198,0:WAIT198,1
125 REM **** NORMAL *****
130 OPEN3,6,3:PRINT#3,0:OPEN4,6:PRINT#4:PRINT#4," N","   R","    XT","    YT"
132 PRINT#4,N,R,XT,YT:PRINT#3,1:PRINT#4:CLOSE3:CLOSE4:CLOSE1
135 REM **** GRESET *****
150 OPEN7,6,7:PRINT#7:CLOSE7
160 END
200 REM ****** UP ZEICHNEN **********
210 FORI=1TON:T=T+D:X(I)=R*COS(T):Y(I)=R*SIN(T):NEXTI
220 S=N-1
230 FORI=1TOS:Z=I+1
240 FORJ=ZTON
242 REM **** LINIE *****
245 PRINT#1,"R",X(I),Y(I):PRINT#1,"J",X(J),Y(J)
247 REM********
250 NEXTJ:NEXTI:RETURN