100 DEFine PROCedure FILE
110  OPEN #3;FLP2_DATA_BIN
120  REPeat Lp
130   IF EOF(#3) THEN CLOSE:STOP
140   C$=INKEY$(#3;-1)
150   IF C$<>"T" THEN NEXT Lp
160   C$=INKEY$(#3;-1)
170   IF C$<>"H" THEN GO TO 150
180   C$=INKEY$(#3;-1)
190   IF C$<>"G" THEN GO TO 150
200   C$=INKEY$(#3;-1)
210   IF C$<>"%" THEN GO TO 150
220   RETurn
230  END REPeat Lp
240 END DEFine
250 :
260 PRINT "Searching for status"
270 FILE
280 A%=CODE(INKEY$(#3;-1))
290 PRINT "Currently: ";
300 IF A%=0 THEN
310  PRINT "On"
320 ELSE
330  PRINT "Off"
340 END IF
350 PRINT "Toggling status"
360 FILE
370 PRINT #3;CHR$(NOT A%);
380 CLOSE #3
