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):KEY7,"Call0"+CHR$(13):POKE63875,184:POKE63886,184:POKE63019,20:POKE63066,1:GOTO7
6 BEEP:RUN
7 A$="NEW"+CHR$(13)+"KILL"+CHR$(34)+"COLD.BA"+CHR$(13)+"MENU"+CHR$(13):FORI=1TOLEN(A$):POKE65449+2*I,ASC(MID$(A$,I,1)):POKE65450+2*I,0:NEXT:POKE65450,I