10 DIM PR(2),PD$(2)
20 PD$(0)="R=":PD$(1)="N=":PD$(2)="M=":PI=4*ATN(1)
30 SCREEN 2:OPEN"GRP:"AS#1
40 X=128:Y=96:C=4
50 PSET(X,Y),C
60 S=STICK(0)
70 P$=INKEY$
80  IF S=1 OR S=2 OR S=8 THEN Y=Y-1
90  IF S=2 OR S=3 OR S=4 THEN X=X+1
100 IF S=4 OR S=5 OR S=6 THEN Y=Y+1
110 IF S=6 OR S=7 OR S=8 THEN X=X-1
120 IF P$=" " AND C=15 THEN C=4:GOTO 160 '
W
W�
130 IF P$=" " AND C=4 THEN C=15
140 IF P$="O" OR P$="o" THEN GOSUB 500 '
W
W�
150 IF P$="Z" OR P$="z" THEN GOSUB 1000 '
W
W�
160 PSET(X,Y)
170 GOTO 50 '
W
W�
500 '� � � � � � � � � �
510 K=0:GOSUB 1500
520 CIRCLE(X,Y),PR(0)
530 RETURN
1000 ' � � � � � �
1010 K=2:GOSUB 1500
1020 R=PR(0):N=PR(1):M=PR(2)
1030 PSET(X,Y-R)
1040 FOR I=1 TO N
1050    U=I*2*PI*M/N+PI/2
1060    X1=X+R*COS(U):Y1=Y-R*SIN(U)
1070    LINE-(X1,Y1)
1080 NEXTI
1090 RETURN
1500 ' � � � �
1510 FOR J=0 TO K
1520    F$=""
1530    LINE(0,0)-(255,10),4,BF
1540    PSET(0,0),4:PRINT #1,PD$(J);
1550    C$=INPUT$(1):PRINT #1,C$;
1560    IF ASC(C$)=13 THEN 1580
1570    F$=F$+C$:GOTO 1550
1580    PR(J)=VAL(F$)
1590 NEXT J
1600 LINE(0,0)-(255,10),4,BF:RETURN