| 1 | C DRAW A PENTAGRAM IN A CIRCLE |
| 2 | C |
| 3 | C |
| 4 | C |
| 5 | INTEGER X,Y |
| 6 | INTEGER RADIUS |
| 7 | REAL RADIUR,RADF |
| 8 | C |
| 9 | RADIUS=400 |
| 10 | RADIUR=RADIUS |
| 11 | PI=3.14159265 |
| 12 | RADF=(2.0*PI)/360.0 |
| 13 | C |
| 14 | CALL PL$INI |
| 15 | CALL PL$MV(RADIUS,RADIUS) |
| 16 | CALL PL$RST |
| 17 | C |
| 18 | |
| 19 | DO 2000 I=0,362,1 |
| 20 | P=I |
| 21 | PHI=P*RADF |
| 22 | X=COS(PHI)*RADIUR |
| 23 | Y=SIN(PHI)*RADIUR |
| 24 | CALL PL$MV(X,Y) |
| 25 | IF (I.EQ.0) CALL PL$PD |
| 26 | 2000 CONTINUE |
| 27 | CALL PL$PU |
| 28 | DO 1000 I=0,720,144 |
| 29 | P=I-18 |
| 30 | PHI=P*RADF |
| 31 | X=COS(PHI)*RADIUR |
| 32 | Y=SIN(PHI)*RADIUR |
| 33 | CALL PL$MV(X,Y) |
| 34 | IF (I.EQ.0) CALL PL$PD |
| 35 | 1000 CONTINUE |
| 36 | |
| 37 | CALL PL$PU |
| 38 | CALL PL$MV(-RADIUS,-RADIUS) |
| 39 | CALL PL$RST |
| 40 | C |
| 41 | C |
| 42 | CALL REBOOT |
| 43 | END |
| 44 | $0 |