Neptune Technology TRICON SmartTrol, Installation And Maintenance Manual

Page: 70 / 90

1130 CLS
1140 PRINT “YOU MUST NOW SELECT WHAT THE SmartTrol WILL DO. A MENU WILL BE”
1150 PRINT
1160 PRINT “PRESENTED AND YOU MAY MAKE YOUR CHOICES. NOTE SOME CHOICES WILL”
1170 PRINT
1180 PRINT “REQUIRE YOU TO ENTER SOME NUMERIC VALUE.”
1190 LOCATE 9,
1200 PRINT,, “PRESS ENTER WHEN READY TO PROCEED”
1210 IF INKEY$ <> CHR$ (13) THEN 1210
1220 DC = 0: DR = 0 : DT = 0 : PA = 0 : PB = 0 : PAS = 0 : PANS$ = “0” : PBS = 0 : PBSN$ = “0”
1230 CLS
1240 '__________________________________________________________________________________________________________
__________
1250 ‘PRESET MENU OF SOME SmartTrol COMMANDS. CHOICES WHICH REQUIRE ADDITIONAL INPUTS
ONLY REQUEST INPUT WHEN THOSE CHOICES ARE SELECTED
1260 '__________________________________________________________________________________________________________
__________
1270 PRINT “STATUS l NUMBER l COMMAND”
1280 PRINT “——————-l————————-l————————————————-
1290 IF DC= 0 THEN PRINT “ 1 1 1 TRANSMIT COUNT (TOTAL)” ELSE PRINT “ * 1 1 1 TRANSMIT COUNT
(TOTAL)”
1300 IF DR= 0 THEN PRINT “ 1 2 1 TRANSMIT RATE” ELSE PRINT “ * 1 2 1 TRANSMIT RATE”
1310 IF DT=0 THEN PRINT “ 1 3 1 TRANSMIT GRAND TOTAL” ELSE PRINT “ * 1 3 1 TRANSMIT GRAND
TOTAL”
1320 IF PA= 0 THEN PRINT “ 1 4 1 TRANSMIT PRESET A” ELSE PRINT “ * 1 4 1 TRANSMIT PRESET A
1330 IF PAS =0 THEN PRINT “ 1 5 1 LOAD PRESET A WITH “ PASN$ ELSE PRINT “ * 1 5 1 LOAD PRESET A
WITH “PASN$
1340 IF PB= 0 THEN PRINT “ 1 6 1 TRANSMIT PRESET B “ ELSE PRINT “ * 1 6 1 TRANSMIT PRESET B”
1350 IF PBS =0 THEN PRINT “ 1 7 1 LOAD PRESET B WITH “ PBSN$ ELSE PRINT “ * 1 7 1 LOAD PRESET B
WITH “PBSN$
1360 PRINT “——————l—————-l————————————————————”
1370 PRINT “NOTE : * = SELECTED, BLANK = NOT SELECTED”
1380 LOCATE 23,
1390 INPUT “DO YOU WISH TO MAKE CHANGES TO ANY STATUS (Y= YES, N= NO)” ; Y$
1400 IF Y$= “n” OR Y$=”NO” OR Y$= “no” OR Y$= “N” THEN 1800
1410 IF Y$ = “y” OR Y$= “yes” OR Y$= “Y” OR Y$ = “YES” THEN 1450 ELSE 1420
1420 LOCATE 23,
1430 PRINT STRING$ (79, 32)
1440 GOTO 1380
1450 LOCATE 23,
1460 PRINT STRING$ (79, 32)
1470 LOCATE 23,
1480 INPUT “WHICH ITEM DO YOU WISH TO CHANGE”; ITEM %
1490 IF ITEM% <> 1 THEN 1520
1500 IF ITEM% = 1 THEN IF DC=0 THEN DC=1 ELSE DC=0
1510 IF ITEM% = 1 THEN 1230
58 TRICON
®
SmartTrol™ Installation and Maintenance Guide
Appendix B: Communications Program