100 ' G23 T.WAKAMATSU
110 CLS:PI=3.14159!
120 FOR Q=0 TO 60
130   FOR I=Q TO 360+Q STEP 60
140     T=I/180*PI:U=(I+10)/180*PI
150     Z=COS(T*6*60)*100+140
160     S=SIN(T*6+60)*100+140
170     X=S*COS(U)+320:Y=S*SIN(U)+235
180     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
190     LINE(X,Y)-(X1,Y1),PSET,%4
200   NEXT I
210 NEXT Q
220 FOR Q=0 TO 60
230   FOR I=Q+.5! TO Q+359.5! STEP 60
240     T=I/180*PI:U=(I+10)/180*PI
250     Z=COS(T*6*60)*100+140
260     S=SIN(T*6+60)*100+140
270     X=S*COS(U)+320:Y=S*SIN(U)+235
280     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
290     LINE(X,Y)-(X1,Y1),PSET,%6
300   NEXT I
310 NEXT Q
320 FOR Q=0 TO 60
330   FOR I=Q TO 360+Q STEP 60
340     T=I/180*PI:U=(I+10)/180*PI
350     Z=COS(T*6*60)*100+140
360     S=SIN(T*6+60)*100+140
370     X=S*COS(U)+320:Y=S*SIN(U)+235
380     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
390     LINE(X,Y)-(X1,Y1),PSET,%5
400   NEXT I
410 NEXT Q
420 FOR I=.5! TO 359.5! 
430   T=I/180*PI:U=(I+10)/180*PI
440   Z=COS(T*6*60)*100+140
450   S=SIN(T*6+60)*100+140
460   X=S*COS(U)+320:Y=S*SIN(U)+235
470   Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
480   LINE(X,Y)-(X1,Y1),PSET,%3
490 NEXT I
500 FOR Q=0 TO 60
510   FOR I=Q TO 360+Q STEP 60
520     T=I/180*PI:U=(I+10)/180*PI
530     Z=COS(T*6*60)*100+140
540     S=SIN(T*6+60)*100+140
550     X=S*COS(U)+320:Y=S*SIN(U)+235
560     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
570     LINE(X,Y)-(X1,Y1),PSET,0
580   NEXT I
590 NEXT Q
600 FOR Q=0 TO 60
610   FOR I=Q+.5! TO Q+359.5! STEP 60
620     T=I/180*PI:U=(I+10)/180*PI
630     Z=COS(T*6*60)*100+140
640     S=SIN(T*6+60)*100+140
650     X=S*COS(U)+320:Y=S*SIN(U)+235
660     Y1=Z*SIN(T)+240:X1=Z*COS(T)+320
670     LINE(X,Y)-(X1,Y1),PSET,0
680   NEXT I
690 NEXT Q