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

Brookfield Engineering Labs., Inc. Page 26 Manual No. M/02-207-C009
2120 ‘
2130 ‘
2140 ‘ Routine to clear the com port input buffer
2150 ‘
2160 WHILE LOC(1) > 0 ‘ If data in input buffer
2170 DUMMY$ = INPUT$(LOC(1), #1) ‘ Dump it out
2180 WEND
2190 RETURN
2200 ‘
2210 ‘
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
Appendix B - Warranty Repair and Service