Specifications

Chapter 15 181
Sample Application Programs
Measuring the DUT with a Test Fixture
15. Sample Application
Programs
3150 !=============================================
3160 ! Data Input Function
3170 !=============================================
3180 SUB Inp_data(Mes$,Inp_val)
3190 DIM Inp_char$[30]
3200 ON ERROR GOTO Inp_start
3210 Inp_start:!
3220 PRINT "Input "&Mes$
3230 INPUT "Value?",Inp_char$
3240 Inp_val=VAL(UPC$(Inp_char$))
3250 PRINT "Input Value: ";Inp_val
3260 INPUT "OK? [Y/N]",Inp_char$
3270 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
3280 OFF ERROR
3290 SUBEND