1 C$="84/09/01":REM Enter C$= 3 months after batteries installed.
2 D$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,5):IFD$<C$THEN4
3 CLS:PRINT@122,"WARNING - Change Bank 1 Batteries !!":FORX=1TO20:BEEP:FORY=1TO50:NEXTY,X
4 A$="":B=VARPTR(A$):POKE B,211:POKE B+1,128:POKE B+2,199:CALL B