1 CLS:PRINT"********-Post Cold Start Set-up-********";:ONERRORGOTO6:PRINT">"DATE$": ";:LINEINPUT"New Date 'MMDDYY'?:";A$:IFA$=""THEN2ELSEA1$=LEFT$(A$,2)+"/"+MID$(A$,3,2)+"/"+RIGHT$(A$,2):DATE$=A1$
2 PRINT">"DAY$"     : ";:LINEINPUT"New Day     'DDD'?:";A$:IFA$=""THEN3ELSEDAY$=A$
3 PRINT@120,">"TIME$" Y/CR ";:A$=INKEY$:IFA$=""THEN3ELSEIFA$="Y"ORA$="y"THENLINEINPUT"New Time 'HHMMSS':";A$ELSE5
4 IFA$=""THEN5ELSEA1$=LEFT$(A$,2)+":"+MID$(A$,3,2)+":"+RIGHT$(A$,2):TIME$=A1$
5 SOUNDOFF:POWERCONT:KEY6,"Kill "+CHR$(34):POKE63875,184:POKE63886,184:POKE63019,20:POKE63066,1:MENU
6 BEEP:RUN