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