Neptune Technology TRICON SmartTrol, Installation And Maintenance Manual

Page: 67 / 90

TRICON
®
SmartTrol
™
Installation and Maintenance Guide
55
Appendix B: Communications Program
This appendix provides a sample communications program.
10 '__________________________________________________________________________________________________________
__________
20 'INITIALIZE PROGRAM
30 '__________________________________________________________________________________________________________
__________
40 KEY OFF: CLS: CLOSE
50 PRINT, "SAMPLE PROGRAM IN BASIC FOR COMMUNICATIONS"
60 PRINT
70 PRINT, 'WITH NEPTUNE TECHNOLOGY GROUP SmartTrol"
80 LOCATE 10,
90 PRINT,, :WRITTEN BY JOHN SMITH
100 PRINT
110 PRINT,, "SEPTEMBER 30, 2020
120 LOCATE 20,
130 PRINT,, "*** PROGRAM WILL CONTINUE MOMENTARILY ***
140 '__________________________________________________________________________________________________________
__________
150 'FIRST SCREEN HELD FOR 8 SECONDS, THEN PROGRAM PROCEEDS.
160 '__________________________________________________________________________________________________________
__________
170 OLDSEC = VAL (MID$(TIME$, 7, 2))
180 SEC = VAL (MID$ (TIME$, 7, 2))
190 IF OLDSEC>51 THEN IF SEC< THEN SEC=SEC+60
200 IF SEC-OLDSEC<8 THEN 180
210 CLS
220 PRINT“ THIS PROGRAM IS INTENDED FOR DEMONSTRATION PURPOSES ONLY. NEPTUNE
230 PRINT
240 PRINT“ TECHNOLOGY GROUP IS NOT LIABLE FOR ERRORS OF OMISSION OR COMMISSION
SHOULD
250 PRINT
260 PRINT“ THE PROGRAM BE USED FOR OTHER THAN INTENDED PURPOSES. QUESTION MAY BE
270 PRINT
280 PRINT“ FORWARDED TO : NEPTUNE TECHNOLOGY GROUP INC
290 PRINT
300 PRINT’ REPAIR DEPARTMENT
310 PRINT
320 PRINT” ROUTE 229 SOUTH
330 PRINT
340 PRINT” TALLASSEE, AL 36078
350 PRINT