Advantech PCL-848A/B Manual de usuario descargar pdf (Pagina 48)

42 PCL-848AB User's Manual

420 'OUTPUT UTILITY

430 '

440 TMP$=SPACE$(80)

450 IF 22-LIN.Y<6 TREN CLS:LIN Y=1

460 LOCATE 22,1,0:PRINT “ “;SPACE$(79):LOCATE LIN.Y,1

430 INPUT “To which address 7 “,ADDR

490 LINE INPUT ‘’OUTPUT string 7 “,TNP$

500 E.FG%=0 : CALL OUTPUT%(ADDR%,TMP$)

510 GOSUB 710

520 IF S%=0 THEN PRINT “Data transmitted 1”

530 PRINT : PRINT : LIN.Y=CSRLIN : GOSUB 330

540 RETURN

550 '

560 '

570 'ENTER UTILITY

580 '

590 PRINT

600 D$=SPACE$(80)

610 IF 22-LIN.Y<6 TUEN CLS : LIN.Y=1

620 LOCATE 22,1,0:PRINT “ “;SPC(79):LOCATE LIN.Y,1

630 INPUT l’From which address 7 “,ADDR% 3

640 CALL ENTER%(ADDR%,D$)

650 GOSUB 710 ‘Error check

660 IF S%c>0 THEN 690 ‘Error happened

670 PRINT “ENTERED STRING :”

680 PRINT D$

690 PRINT : LIN.Y=CSRLIN : GOSUB 430

700 RETURN

710 '

720 '

730 'TIMEOUT CUECK ROUTINE

740 '

750 CONDITION%=8

760 CALL STATUS%(CONDITION%,S%)

770 IF S%=1 THEN PRINT “TIMEOUT 1”

780 IF S%<>0 AND S%<>1 THEN PRINT “INTERFACE ERROR l”

790 RETURN

800 '

810 END

820 '

830 'TUEN END OF THIS PROGRAM

1 2 ... 43 44 45 46 47 48 49 50 51 52 53 ... 83 84

Sin comentarios

Advantech PCL-848A/B Manual de usuario Pagina 48