Practice Reading a Metric Ruler

Program that allows practice reading a metric ruler.
I got some more help from the LB forum guys to put together this program. It allows the user to read and input the observed length of a rectangle. It gives the user 5 different rectangles to measure and it gives instant feedback as well as it saves a copy of the results to a file. Caution on the use of the program. Make sure that the file address is suitable for your computer. I worked off of a jump drive so the file was opened, written to, and saved on the g:\ drive. If you are working only on your c:\ drive or some other drive, please change the file address code in the program to reflect the drive to which you are using to save the results. *

Otherwise, it is a straightforward program

[[code]]
'This program attempts to give students practice reading a rule.
'*** Must set file parameters for your particular situation
'*** example "g:\record.txt" vs "c:\record.txt"
 
'*****************************************************
'set graphics window parameters
'*****************************************************
nomainwin
open "g:\record.txt" for append as #1
close #1
kill"g:\record.txt"
 
UpperLeftX = 500
UpperLeftY = 150
WindowWidth = 640
WindowHeight = 760
 
graphicbox #w.g, 10, 10, 600, 500
statictext #w.s, "Enter your measurement in the box and click 'Save' button", 10, 600, 600, 30
textbox #w.tb1, 10, 550, 600, 32
button #w.b1, "Save", [entered], LR, 300, 50, 60, 30
 
 
open "Measuring Practice" for window as #w
 
#w, "trapclose [quit]"
#w.tb1 "!font arial 16 bold"
#w.s "!font arial 12"
#w.tb1 "!setfocus"
 
'*****************************************
'draw the ruler borders
'*****************************************
#w.g, "goto 50 400"
#w.g, "down"
#w.g, "goto 50 450"
#w.g, "goto 550 450"
#w.g, "goto 550 400"
#w.g, "goto 50 400"
 
'*******************************************
'add the centimeter and .5 centimeter markings
'*******************************************
[skip1]
x = 50
y = 400
z = 425
 
for j = 1 to 19
x = x + 25
#w.g, "goto ";x;" ";y
#w.g, "down"
#w.g, "goto ";x;" ";z
#w.g, "up"
next j
 
x = 50
y = 400
z = 410
 
#w.g, "up"
#w.g, "goto ";x;" ";z
 
for i = 1 to 100
x = x + 5
#w.g, "goto ";x;" ";y
#w.g, "down"
#w.g, "goto ";x;" ";z
#w.g, "up"
next i
 
'**************************************************
'print the numbers 1-9 to label the centimeter marks
'**************************************************
x = 95
y = 430
d = 1
#w.g,"down"
#w.g, "place ";x;" ";y
print #w.g, "\";d
for j = 1 to 8
d = d+1
x = x + 50
#w.g, "place ";x;" ";y
print #w.g, "\";d
next j
#w.g, "flush"
#w.g, "up"
 
'*******************************************************
'Draw a rectangle above the ruler and store length as cm
'*******************************************************
 
for b = 1 to 5
#w.g, "goto 50 400"
#w.g, "down"
x = 550:y = 350
print #w.g, "backcolor white"
print #w.g, "color white"
print #w.g, "boxfilled ";x;" ";y
#w.g, "goto 50 400"
#w.g, "down"
x=int(rnd(1)*450) + 100:y=350
print #w.g, "backcolor blue"
print #w.g, "box ";x;" ";y
print #w.g, "boxfilled ";x;" ";y
print #w.g,"flush"
cm = (x-50)/50
i = 2
rounded = int(cm*10^i +0.5) / 10^i
wait
 
'*************************************************
'allow guess and compare with actual length of bar
'*************************************************
 
[entered]
#w.tb1 "!contents? reply$"
guess =val( reply$)
if ( rounded -0.1 <guess) and ( rounded +0.1 >guess) then
#w.tb1 "GOOD ANSWER"
else
#w.tb1 "The correct answer was "; rounded; " cm, not "; guess
end if
 
timer 3000, [continue]
wait
[continue] '<- when time is up, execution branches here
timer 0
 
#w.s "Measurement # "; b+1
#w.tb1 ""
#w.tb1 "!setfocus"
 
'*************************************************
'write to file
'*************************************************
 
[save]
open "g:\record.txt" for append as #1 'create a new file on disk
print #1, guess;",";rounded
close #1
next b
 
[grade]
 
open "g:\record.txt" for input as #2
correct = 0
while eof (#2) = 0
input #2, guess, rounded
 
IF rounded - .1 < guess AND rounded + .1 > guess THEN
correct = correct + 1
ELSE
correct = correct
END IF
wend
#w.tb1 "% correct = ";(correct/5)*100
 
timer 3000, [finish]
wait
[finish] '<- when time is up, execution branches here
timer 0
[quit]
close#2
close #w
end

code