11 - 431 11 - 431
MELSEC-Q
11 INSTRUCTIONS AND FUNCTIONS
Program Example
10 ' This program reads the printer status
20 DIM TBL%(1)
:
' Defines an array
30 ZOPEN #4
:
' Opens the communication channel
40 TBL%(0)=128
:
' Specifies to read the printer status
50 ZCNTL #4,0,TBL%( )
:
' Executes the read operation
60 A=RDSET(0,TBL%(1))
:
' Reads the bits
70 B=RDSET(1,TBL%(1))
80 C=RDSET(2,TBL%(1))
90 PRINT "The printer status"
:
' Displays the result
100 IF A=1 THEN PRINT "Terminal is normal" ELSE PRINT "Terminal error!"
110 IF B=1 THEN PRINT "Out of paper!" ELSE PRINT "Paper supplied"
120 IF C=1 THEN PRINT "The terminal is connected" ELSE PRINT "The terminal is not connected!"
130 ZCLOSE #4
