Agilent Technologies 4288A Programming Manual page 52

Preparation for Accurate Measurement (Executing Compensation)
Using the Multi-compensation Function
1260 !=============================================
1270 ! Data Input Function
1280 !=============================================
1290 SUB Inp_data(Mes$,Inp_val)
1300 DIM Inp_char$[30]
1310 ON ERROR GOTO Inp_start
1320 Inp_start:!
1330 PRINT "Input "&Mes$
1340 INPUT "Value?",Inp_char$
1350 Inp_val=VAL(UPC$(Inp_char$))
1360 PRINT "Input Value: ";Inp_val
1370 INPUT "OK? [Y/N]",Inp_char$
1380 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
1390 OFF ERROR
1400 SUBEND
50 Chapter 4