User`s manual

48 PCL-848AB User's Manual

420 '

430 D2$=SPACE$(40)

440 CALL ENTER%(ADDR2%,D$) ‘ Enter DVM #2 reading

450 GOSUB 550 ‘ Error check

460 IF ER%<>0 TEEN PRINT “Error when reading DVM #2.” : END

470 '

480 PRINT I,D1$,D2$

490 '

500 NEXT I

510 '

520 END

530

540 '

550 'Error check routine

560 '

570 CONDITION%=8 530 CA L STATUS%(CONDITION%,ER%) ‘ Read the

error number

590 IF ER%0 TEEN PRINT “Error” ER%

600 IF ER%=1 TEEN PRINT “Device timeoutl”

610 RETURN

620 '

630 'End of thie program 570 CONDITION%=8