YOKOGAWA F3LC11-1F, User Manual

Page: 64 / 202

A3-6
IM 34M6H41-02E 2nd Edition : Aug. 1, 2005-00
Auto-Dial Function BASIC Sample Program
This example assumes that the PC link module is installed in slot 2 and port 2 of
F3LC12-1F is used.
10 !*****************************************
20 !*** F3LC12-1F Sample Program
30 !*** Auto-Dial Function
40 !*****************************************
50 DEFINT A-Z
60 !
70 LCSLOT=2
80 ASSIGN LC12=LCSLOT :! Declare use of module
90 ! :! Setup telephone number
100 CONTROL LCSLOT,79;10 :! Telephone number size (port 2)
110 CONTROL LCSLOT,80;0 :! Number of dial digits for external
connection (port2)
120 CONTROL LCSLOT,81;$0123 :! Telephone number (port 2)
121 CONTROL LCSLOT,82;$4567 :! Telephone number (port 2)
122 CONTROL LCSLOT,83;$8900 :! Telephone number (port 2)
130 !
140 CONTROL LCSLOT,102;$0000,$07F6 :! Turn off output relay (port 2)
150 !
160 STATUS LCSLOT,102;XREL :! Read input relay
170 IF BIT(XREL,8)=1 THEN :! Check for external connection
180 PR "X25 ON":GOTO FIN@
190 ENDIF
200 !
210 CONTROL LCSLOT,102;$0080,$0080 :! Turn on Y56 (Dial Request) relay
220 STATUS LCSLOT,102;XREL :! Read input relay (port 2)
230 WHILE BINAND(XREL,$00B0)=0 :! Wait till X21(Connected) relay turns on
240 :! or X22 (Connection Failed) relay turns on
250 :! or X24(Disconnection Failed) turns on
260 STATUS LCSLOT,102;XREL :! Read input relay
270 END WHILE
280 CONTROL LCSLOT,102;$0000,$0080 :! Turn off Y56 (Dial Request) relay
290 IF BIT(XREL,5)=1 THEN :! Skip if connection fails
300 PR "CONNECT ERROR":GOTO FIN@
310 ELSE
320 PR "CONNECT"
330 ENDIF
340 !
350 CONTROL LCSLOT,102;$0400,$0400 :! Turn on Y59 (Disconnect Line) relay
360 STATUS LCSLOT,102;XREL :! Read input relay
370 WHILE BIT(XREL,4) =1 AND BIT(XREL,7
)
=0 :! Wait until X21 (Connected)
relay turns off or
380 :! X24 (Connection Failed) relay turns on
390 STATUS LCSLOT,102;XREL :! Read input relay
400 END WHILE
410 CONTROL LCSLOT,102;$0000,$0400 :! Turn off Y59 (Disconnect Line) relay
420 !