CALIPER.bas<ˆDõ<‰^WWTEXTSmBa`@A@d@A@HSMainþ0Q +™ˆPh, PhÁXºþ*þ*Q +™ˆP|,³èþ*,³°' CALIPER.bas PEN ON 1 AT 50,5 ? CAT(0); "2 3/16 2.1875" AT 5,50 ? " 2" ? ? " 3" ? " /" ? " 16" RECT 0,0,160,160 RECT 130,133,155,155 AT 133,134 ? CAT(87); "END" WHILE PEN(3)=0 y=1 WEND CLS LINE PEN(4),0,PEN(4),160 LINE 0,0,0,160 IF PEN(1)>133 AND PEN(2)>136 AND PEN(3)=1 END FI i = PEN(4) / 73.1428 k=ROUND(i,3) m=k+.125 AT 10,134 ? CAT(87); k AT 5,120 ? m GOTO 11