User`s manual

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