238 13
Application Sample Programs
Measurement using scanner
2280 Setup_start: !
2290 PRINT "Set "&Standard$&"-Connection"
2300 INPUT "OK? [Y/N]",Inp_char$
2310 OFF ERROR
2320 IF UPC$(Inp_char$)="Y" THEN
2330 ON INTR Scode GOTO Meas_end
2340 ENABLE INTR Scode;2
2350 PRINT "Now measuring..."
2360 SELECT Standard$
2370 CASE "Open"
2380 OUTPUT @Agt4294a;"ECALP"
2390 CASE "Load"
2400 OUTPUT @Agt4294a;"ECALC"
2410 END SELECT
2420 Meas_wait: GOTO Meas_wait
2430 Meas_end: !
2440 PRINT Standard$&" Data Measurement Complete"
2450 RETURN 0
2460 ELSE
2470 PRINT "Program Interruption"
2480 RETURN -1
2490 END IF
2500 FNEND
Comments to this Manuals