1 REM ********************************
2 REM *                              *
3 REM *         FENSTERROSE          *
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 STUETZPUNKTE";N
20 INPUT"RADIUS";R:INPUT"TEXTORT XT,YT";XT,YT
25 REM **** INIT *****
30 SYS37498:HFL,6,12
35 REM **** START *****
40 TRS,0,320,0,200
45 REM **** MITTE *****
50 TRS,-160,160,-100,100
55 REM*******
60 D=2*(null)/N:DIMX(N),Y(N)
65 REM **** KREIS *****
70 TKR,0,0,R,R,2*(null)
75 REM*******
80 GOSUB200
90 A$="FENSTERROSE"
95 REM **** TEXT *****
100 TEX,A$,YT,XT
105 REM **** SHOW (HIER UNNOETIG) *****
115 REM******
120 POKE198,0:WAIT198,1
125 REM **** NORMAL *****
130 HOF
135 REM **** GRESET *****
150 LOE:AUS
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 TLN,X(I),Y(I),X(J),Y(J)
247 REM********
250 NEXTJ:NEXTI:RETURN