OPTIONNOLETW1=4.1888XA=0YA=0XC=0XD=30XE=30XG=35YG=60XH=65YH=60XI=65YI=30XJ=0XF=0XO=-9.708YO=-50LOM=21LKM=15.5LAB=15LBC=80LCD=30LDE=35R=1SETWINDOW-80,130,-80,100FORQ1=0TO3600STEP5CALLLINK(0,0,0,0,0,0,Q1*PI/180,W1,0,LAB,XB,YB,VBX,VBY,ABX,ABY)CALLRRP1(+1,0,LBC,XB,VBX,ABX,QBC,WBC,EBC)CALLLINK(XB,YB,VBX,VBY,ABX,ABY,QBC,WBC,EBC,LBC,0,YC,0,VCY,0,ACY)!CALLLINK(XK,YK,0,0,0,0,(Q2+90)*PI/180,W2,E2,15.5,XM,YM,VMX,VMY,AMX,AMY)CALLLINK(XK,YK,0,0,0,0,(Q1+90)*PI/180,10,0,LKM,XM,YM,VMX,VMY,AMX,AMY)YD=YCYE=YC-LDEYP=YEXP=XI-((YE-YI)*TAN(45*PI/180))XF=XP-40YF=YPYJ=YC-35XK=XO+25YK=YO-9.708CLEARPLOTXA,YA;XB,YB;XC,YCPLOTXC,YC;XD,YDPLOTXD,YD;XE,YE+1PLOTXC,YC;XJ,YJPLOT-30.708,30;11.292,30PLOT-30.708,37.5;11.292,37.5PLOT-30.708,37.5;-30.708,30PLOT11.292,30;11.292,37.5PLOT-28.208,45;8.792,45PLOT-28.208,37.5;-28.208,45PLOT8.792,45;8.792,37.5PLOT8.792,37.5;-28.208,37.5PLOTXE+1,YE+1;XE-1,YE+1PLOTXE+1,YE-1;XE-1,YE-1PLOTXJ+5,YJ;XJ-5,YJPLOTXG,YG;XH,YHPLOTXG,YG;XI,YIPLOTXH,YH;XI,YIPLOTXF,YF;XP,YPBOXCIRCLE-R,R,-R,RPLOTTEXT,ATXA+1,YA:"A"BOXCIRCLEXB-R,XB+R,YB-R,YB+RPLOTTEXT,ATXB+1,YB:"B"BOXCIRCLEXC-R,XC+R,YC-R,YC+RPLOTTEXT,ATXC+2,YC+2:"C"PLOTTEXT,ATXJ,YJ-2:"J"PLOTTEXT,ATXD+1,YD:"D"PLOTTEXT,ATXG,YG+1:"G"PLOTTEXT,ATXH,YH+1:"H"PLOTTEXT,ATXI+1,YI:"I"PLOTTEXT,ATXE,YE-8:"E"PLOTTEXT,ATXF,YF-8:"F"PLOTTEXT,ATXP,YP-8:"P"PLOTXK,YK;XM,YMPLOTTEXT,ATXM+2,YM+1:"M"PLOTTEXT,ATXK+2,YK+1:"K"PLOTTEXT,ATXO-2,YO+2:"O"BOXCIRCLEXO-21,XO+21,YO-21,YO+21BOXCIRCLEXK-R,XK+R,YK-R,YK+RIFQ1>360THENQ1=Q1-360ENDIF!Q2=Q1-23Q2=Q1-18IFQ2<0THEN!Q2=216Q2=113ENDIFIFQ2<115THEN!IFQ2<211THENCALLRPR(-1,XO,YO,0,0,0,0,XM,YM,VMX,VMY,AMX,AMY,0,QOM,W2,E2)QOM=QOM*180/PIELSEQOM=18W2=0E2=0ENDIFCALLLINK(XO,YO,0,0,0,0,QOM*PI/180,W2,E2,LOM,XM1,YM1,VM1X,VM1Y,AM1X,AM1Y)CALLLINK(XO,YO,0,0,0,0,(QOM+72)*PI/180,W2,E2,LOM,XM2,YM2,VM2X,VM2Y,AM2X,AM2Y)CALLLINK(XO,YO,0,0,0,0,(QOM+144)*PI/180,W2,E2,LOM,XM3,YM3,VM3X,VM3Y,AM3X,AM3Y)CALLLINK(XO,YO,0,0,0,0,(QOM+216)*PI/180,W2,E2,LOM,XM4,YM4,VM4X,VM4Y,AM4X,AM4Y)CALLLINK(XO,YO,0,0,0,0,(QOM+288)*PI/180,W2,E2,LOM,XM5,YM5,...
