Since the program is soo small, I decided to publish the source here:
OFF30: LOCAL tid% tid%=PEEKW($20CD) tid%=tid%-30 IF tid%<30 tid%=300 ENDIF POKEW $20CD, tid% PRINT "Autoshutoff set" PRINT "to ",tid%," Seconds" PAUSE 20