Neptune Technology TRICON SmartTrol, Руководство по установке и обслуживанию

Страница: 71 / 90

1520 IF ITEM% <> 2 THEN 1550
1530 IF ITEM% =2 THEN IF DR=0 THEN DR= 1 ELSE DR=0
1540 IF ITEM% = 2 THEN 1230
1550 IF ITEM% <> 3 THEN 1580
1560 IF ITEM% = 3 THEN IF DT=0 THEN DT=1 ELSE DT =0
1570 IF ITEM%= 3 THEN 1230
1580 IF ITEM% <> 4 THEN 1610
1590 IF ITEM% =4 THEN IF PA=0 THEN PA=1 ELSE PA=0
1600 IF ITEM%= 4 THEN 1230
1610 IF ITEM% <> 5 THEN 1690
1620 IF ITEM%= 5 THEN IF PAS=0 THEN PAS=1 ELSE PAS-0
1630 IF ITEM% = 5 THEN 1640
1640 LOCATE 23,
1650 PRINT STRING$ (79, 32)
1660 LOCATE 23,
1670 INPUT “LOAD WITH WHAT VALUE (PRESS ENTER IF DESELECTING 5) “, PASN$
1680 GOTO 1230
1690 IF ITEM% <> 6 THEN 1720
1700 IF ITEM% = 6 THEN IF PB=0 1 ELSE PB=0
1710 IF ITEM% = 6 THEN 1230
1720 IF ITEM% >7 THEN 1230
1730 IF ITEM% = 7 THEN IF PBS=0 THEN PBS=1 ELSE PBS=0
1740 IF ITEM% = 7 THEN 1750
1750 LOCATE 23,
1760 PRINT STRING$ (79, 32)
1770 LOCATE 23,
1780 INPUT “LOAD WITH WHAT VALUE (PRESS ENTER IF DESELECTING 7) “, PBSN$
1790 GOTO 1230
1800 CLS
1810 PRINT “COMMUNICATIONS ARE BEING OPENED WITH THESE PARAMETERS:”
1820 LOCATE 4,
1830 PRINT ,, COMFIL$
1840 '__________________________________________________________________________________________________________
__________
1850 “SEND A CARRIAGE RETURN TO CLEAR THE SmartTrol (ASCII 13). POLL SmartTrol TO ACTIVATE
COMMUNICATIONS.
1860 “SEND SELECTED COMMANDS. SUPPRESS UNWANTED CARRIAGE RETURNS BY ENDING PRINT
STATEMENT WITH A SEMICOLON.
1870 '__________________________________________________________________________________________________________
__________
1880 PRINT #1, CHR$ (13) ;
1890 PRINT #1, “D” = UN$ + CHR$ (32);
1900 '__________________________________________________________________________________________________________
__________
1910 ‘ ENTER ROUTINE THAT DETERMINES THE CURRENT SECOND OF TIME AND HOLDS THE PROGRAM
UNTIL SECONDS CHANGE TWICE. THE HOLD OF 1 TO 2 SECONDS ALLOWS SmartTrol TO RECEIVE
TRICON
®
SmartTrol
™
Installation and Maintenance Guide
59
Appendix B: Communications Program