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
Source: geocities.com/renwand
