Brookfield Temperature Controller, Model 106 - Manual (Page 24)

Brookfield Engineering Labs., Inc. Page 24 Manual No. M/98-206-A0402
2220 ‘ Routine to close communications channel
2230 ‘
2240 CLOSE #1
2250 RETURN
2260 ‘
2270 ‘ Routine to countdown 10 minutes
2280 ‘
2290 T1 = TIMER
2300 T2 = T1 + 600
2310 WHILE T1 < T2
‘ Loop until 10 mins pass
2320 LOCATE (CURSY + 1), 1
2330 PRINT “Countdown to next temperature increase: “;
2340 PRINT USING “##”; FIX((T2 - T1) / 60);
2350 PRINT “:”;
2360 PRINT USING “##”; (T2 - T1) MOD 60
2370 T1 = TIMER
2380 GOSUB 2480
2390 WEND
2400 LOCATE (CURSY + 1), 1
2410 PRINT SPC(50);
2420 LOCATE CURSY, 32
2430 PRINT SPC(35);
2440 RETURN
2450 ‘
2460 ‘ Routine to update and print current temperature
2470 ‘
2480 HTCMD$ = “T”
2490 GOSUB 1890
‘ Send get temp command
2500 GOSUB 1970 ‘ Wait for response
2510 GOSUB 2090 ‘ Parse response
2520 LOCATE CURSY, 35 ‘ Position cursor
2530 PRINT “Current Temperature = “;
2540 PRINT USING “###.#”; TEMPERATURE;
‘ Print current temperature”
2550 PRINT “ ° ” + TMPTUNITS$;
2560 RETURN