Neptune Technology TRICON SmartTrol, Installation And Maintenance Manual

Page: 73 / 90

2290 IF DT =1 THEN 2300 ELSE 2310
2300 FOR I=1 TO 100 : NEXT
2310 IF PA=1 THEN PRINT # 1, “PA” + CHR$ (32);
2320 IF PA =1 THEN 2230 ELSE 2340
2330 FOR I=1 TO 100: NEXT
2340 IF PAS = 1 THEN PRINT # 1, “PA “ + PASN$ + CHR$ (32) ;
2350 IF PAS = 1 THEN 2360 ELSE 2370
2360 FOR I=1 TO 100 : NEXT
2370 IF PB = 1 THEN PRINT # 1, “PB” + CHR$ (32);
2380 IF PB = 1 THEN 2390 ELSE 2400
2390 FOR I=1 TO 100: NEXT
2400 IF PBS = 1 THEN PRINT # 1 , “PB” + PBSN$ + CHR$ (32);
2410 IF PBS = 1 THEN 2420 ELSE 2460
2420 FRO I= 1 TO 100: NEXT
2430 '__________________________________________________________________________________________________________
__________
2440 ‘ END SmartTrol COMMAND STRING WITH CAREGIVER RETURN FOR SmartTrol PROCESSING
2450 '__________________________________________________________________________________________________________
__________
2460 PRINT # 1, CHR$ (13);
2470 SEC=VAL (MID$ (TIME$, 7, 2))
2480 IF SEC =VAL (MID$ (TIME$, 7, 2)) THEN 2480
2490 SEC= VAL (MID$(TIME$, 7,2))
2500 IF SEC= VAL (MID$ (TIME$, 7, 2)) THEN 2500
2510 IF LOC(1) > 0 THEN 2520
2520 A$=INPUT$(LOC(1), #1)
2530 PRINT A$
2540 INPUT” ARE YOU THROUGH (Y=YES, N= NO) “;R$
2550 IF R$=”N” THEN 2570
2560 IF R$=”Y” THEN 2580
2570 GOTO 1230
2580 CLOSE
2590 END
TRICON
®
SmartTrol
™
Installation and Maintenance Guide
61
Appendix B: Communications Program