1 REM ********************************
2 REM *                              *
3 REM *         FENSTERROSE          *
4 REM * VERSION M. ALLGEM. 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 STUETZPUNKTE";N
20 INPUT"RADIUS";R:INPUT"TEXTORT XT,YT";XT,YT
25 INIT
35 START
45 MITTE
60 D=2*(null)/N:DIMX(N),Y(N)
65 KREIS(0,0,R,R)
80 GOSUB200
90 A$="FENSTERROSE"
100 TEXT(A$,XT,YT)
105 SHOW
120 POKE198,0:WAIT198,1
125 NORMAL
135 GRESET
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
245 LINIE(X(I),Y(I),X(J),Y(J))
250 NEXTJ:NEXTI:RETURN