IOtech TempScan 1100 - Page 264

254 Chapter 15: Program Examples TempScan / MultiScan User's Manual
MultiScan/1200
Example 15j. ALARM2.BAS Program
(1)
CLS : PRINT “The MultiScan/1200 is resetting...”
PRINT #1, “OUTPUT 07;*RX”
(3)
SLEEP 10
(4)
S% = 0
WHILE (S% AND 4) = 0
PRINT #1, “SPOLL 07”
INPUT #2, S%
(8)
WEND
(9)
PRINT #1, “OUTPUT 07;M#0X”
(10)
PRINT #1, “OUTPUT 07;W#32X”
(11)
PRINT #1, “OUTPUT 07;C1-24,3,1,18,0X”
(12)
PRINT #1, “OUTPUT 07;A1-2,1X”
(13)
PRINT #1, “OUTPUT07;Y1,0,0X”
(14)
PRINT #1, “OUTPUT07;T1,1,0,0X"
(15)
WHILE INKEY$ = “”
PRINT #1, “OUTPUT 07;O?X”
PRINT #1, “ENTER 07”
LINE INPUT #2, O$
(19)
IF MID$(O$, 2, 3) = “001” THEN
PRINT “Channel 1 OR 2 is in an Alarm condition.”
PRINT #1, “OUTPUT 07;U11X”
PRINT #1, “ENTER 07”
LINE INPUT #2, A$
PRINT A$
(25)
IF MID$(A$, 5, 1) = “1” THEN
PRINT “Channel 1 is now in an Alarm condition.”:
ELSE
PRINT “Channel 1 is not in an Alarm condition.”
END IF
(30)
IF MID$(A$, 11, 1) = “1” THEN
PRINT “Channel 2 is now in an Alarm condition.”:
ELSE
PRINT “Channel 2 is not in an Alarm condition.”
END IF
END IF
(36)
WEND