10 DIM X5(24),Y5(24)
20 SCREEN 4,2,1:COLOR 1,0,1
30 X=0:Y=0:CLS:GOTO 220
40 FOR T=T1 TO T2 STEP T3
50 X2=R*SIN(T*C):Z2=R*COS(T*C):GOTO 420
60 X4=X:Y4=Y
70 FOR D=T4 TO T5 STEP T6
80 Q4=SIN(D*C):X3=X2*COS(D*C)
90 Y3=X2*Q1*Q4-Z2*Q0
100 X=128-INT((X3*Q2-Y3*Q3)*1.14)
110 Y= 98-INT((X2*Q0*Q4+Z2*Q1)*1.1)
120 IF X3*Q3+Y3*Q2>=0 THEN 180
130 IF P=0 THEN 170
140 IF (X5(D/15+1)=0)+(Y5(D/15+1)=0) THEN X5(D/15+1)=X:Y5(D/15+1)=Y
150 LINE(X,Y)-(X5(D/15+1),Y5(D/15+1)),1
160 X5(D/15+1)=X:Y5(D/15+1)=Y:GOTO 190
170 LINE(X,Y)-(X4,Y4),1
180 X4=X:Y4=Y
190 NEXT D
200 NEXT T
210 RETURN
220 SCREEN 1,1,1
225 INPUT "てまえ に かたむける かくど=";X1
230 X1=INT(X1-INT(X1/360)*360)
240 IF X1>=0 THEN 260
250 X1=X1+365
260 INPUT "みぎ に かたむける かくど=";Z1
270 Z1=INT(Z1-INT(Z1/360)*360)
280 SCREEN 4,2,2:COLOR 1,0,2
290 IF Z1>=0 THEN 310
300 Z1=Z1+365
310 C=3.141592/180:R=80
320 Q0=SIN(X1*C):Q1=COS(X1*C)
330 Q2=COS(Z1*C):Q3=SIN(Z1*C)
340 T=15:D=0
350 T1=15:T2=165:T3=15:T4=0:T5=360
360 T6=10:P=0:GOSUB 40
370 T1=0:T2=180:T3=15:T4=0:T5=345
380 T6=15:P=1:GOSUB 40
390 PRINT "てまえに";X1;"ど みぎに";Z1;"ど"
400 REM
410 END
420 X2=R*SIN(T*C):Z2=R*COS(T*C)
430 Q4=SIN(D*C):X3=X2*COS(D*C)
440 Y3=X2*Q1*Q4-Z2*Q0
450 X=128-INT((X3*Q2-Y3*Q3)*1.14)
460 Y=98-INT((X2*Q0*Q4+Z2*Q1)*1.1)
470 GOTO 60
480 IF T=7.5 THEN X5(D/15+1)=X:Y5(D/15+1)=Y