Multiscan/1200 – Measurement Computing TempScan/1100 User Manual
Page 291
TempScan / MultiScan, Appendix C
879696
Program Examples in Quick Basic C-21
MultiScan/1200
Example 15l. ALAR2SRQ.BAS Program
(1)
…… 15-CLS : PRINT “The MultiScan/1200 is resetting...”
…… 15-PRINT #1, “OUTPUT 07;*RX”
(3)
…… 15-SLEEP 10
(4)
…… 15-S% = 0
…… 15-WHILE (S% AND 4) = 0
…… 15-PRINT #1, “SPOLL 07”
…… 15-INPUT #2, S%
(8)
…… 15-WEND
(9)
…… 15-ON PEN GOSUB AlarmHandler
…… 15-PEN ON
(10)
…… 15-PRINT #1, “ARM SRQ”
(11)
…… 15-PRINT #1, “OUTPUT 07;M1X”
(12)
…… 15-PRINT #1, “OUTPUT 07;M#0X”
(13)
…… 15-PRINT #1, “OUTPUT 07;W#32X”
(14)
…… 15-PRINT #1, “OUTPUT 07;C1-24,3X”
(15)
…… 15-PRINT #1, “OUTPUT 07;C1-2,3,1,25,0X”
(16)
…… 15-PRINT #1, “OUTPUT 07;A1,1X”
(17)
…… 15-PRINT #1, “OUTPUT 07;A2,2X”
(18)
…… 15-PRINT #1, “OUTPUT07;Y1,0,0X”
(19)
…… 15-PRINT #1, “OUTPUT07;T1,1,0,0X"
(20)
…… 15-PRINT “The program is continuously detecting Alarms...”
…… 15-PRINT “Hit a key to Quit..”
…… 15-WHILE INKEY$ = “”: WEND
…… 15-END
(24)
…… 15-AlarmHandler:
…… 15- …… 15-LOCATE 5, 1
…… 15- …… 15-PRINT “An Alarm condition has been detected.”
…… 15- …… 15-PRINT #1, “SPOLL 07"
…… 15- …… 15-INPUT #2, S%
(29)
…… 15- …… 15-PRINT #1, “OUTPUT 07;O?X”
…… 15- …… 15-PRINT #1, “ENTER 07"
…… 15- …… 15-LINE INPUT #2, A$
(32)
…… 15- …… 15-PRINT A$
…… 15- …… 15-A% = VAL(MID$(A$, 2, 3))
…… 15- …… 15-IF A% = 1 THEN PRINT “Alarm on Channel 1 only”
…… 15- …… 15-IF A% = 2 THEN PRINT “Alarm on Channel 2 only”
…… 15- …… 15-IF A% = 3 THEN PRINT “Alarm on Channels 1 and 2”
(37)
…… 15-RETURN