Neptune Technology TRICON SmartTrol, Installation And Maintenance Manual

Page: 69 / 90

720 GOTO 640
730 LOCATE 7
740 PRINT “ENTER COMMUNICATIONS PORT NUMBER”
750 LOCATE 10
760 INPUT “(1 OR 2) “
770 IF VAL (PORT$) = 1 OR VAL (PORT$) =2 THEN 810 ELSE 780
780 LOCATE 10,
790 PRINT STRING$ (79,32)
800 GOTO 750
810 LOCATE 13,
820 PRINT “ENTER COMMUNICATIONS BAUD RATE”
830 LOCATE 16,
840 INPUT “(300, 600 1200, 2100, 4800, OR 9600) “,BAUDRATE$
850 IF VAL (BAUDRATE$)= 300 OR VAL (BAUDRATE$) = 600 OR VAL (BAUDRATE$) = 1200 OR VAL
(BAUDRATE$) = 2400 OR VAL (BAUDRATE$) OR VAL (BAUDRATE$) = 4800 OR VAL (BAUDRATE$) =
9600 THEN 890 ELSE 860
860 LOCATE 16,
870 PRINT STRING$ (79,32)
880 GOTO 830
890 LOCATE 19,
900 PRINT “ENTER PARITY”
910 LOCATE 22,
920 INPUT “E(ven), O(dd), S(pace), M(ark) “PARITY$
930 IF PARITY$ = “E’ OR PARITY$ = “O” OR PARITY$ = “S” OR PARITY$ = “M” THEN 970 ELSE 940
940 LOCATE 22
950 PRINT STRING$ (79, 32)
960 GOTO 910
970 COMFIL$ = “CPM”+ PORT$ + “:”+ BAUDRATE$ + “,” + PARITY$ + “, 7”
980 ___________________________________________________________________________________________________________
__________
990 ‘OPEN COMMUNICATIONS FILE WITH SELECTED VALUES
1000 '__________________________________________________________________________________________________________
__________
1010 OPEN COMFIL$ AS #1
1020 CLS
1030 PRINT, “REMEMBER TO PROGRAM SmartTrol TO THESE SETTINGS”
1040 LOCATE 4,
1050 PRINT “UNIT NUMBER = “UN$
1060 LOCATE 7,
1070 PRINT “BAUD RATE = “BAUDRATE$
1080 LOCATE 10,
1090 PRINT “PARITY = “PARITY$
1100 LOCATE 13,
1110 PRINT,, “PRESS ENTER WHEN READY TO PROCEED”
1120 IF INKEY$ <> CHR$ (13) THEN 1120
TRICON
®
SmartTrol
™
Installation and Maintenance Guide
57
Appendix B: Communications Program