Specifications

Chapter 4 101
Preparation for Accurate Measurement
Fixture Compensation
4. Preparation for Accurate Measurement
1310 !
1320 SUB Inp_data(Mes$,Inp_val)
1330 DIM Inp_char$[9]
1340 PRINT "Input "&Mes$
1350 Inp_start: INPUT "Value?",Inp_val
1360 PRINT Mes$&" Value: ";Inp_val
1370 PRINT
1380 INPUT "OK? [Y/N]",Inp_char$
1390 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
1400 SUBEND