10 !:!:!"TIME-DATE MENU:"
15 !"   <1> READ TIME         <3> SET TIME"
20 !"   <2> READ DATE         <4> SET DATE"
25 !:!"ENTER SELECTION: ";:INPUT Z0
30 IF Z0=1 GOTO 225
35 IF Z0=2 GOTO 120
40 IF Z0=3 GOTO 180
45 IF Z0=4 GOTO 50
50 !:!"TYPE DATE (MM/DD/YY): ";:INPUT D$
55 IF LEN(D$)>8 GOTO 110
60 IF LEN(D$)<8 GOTO 110
65 !:!"ENTER DAY-OF-WEEK (1=SUN 7=SAT): ":INPUT D0
70 OUT 128,1
75 OUT 139,VAL(LEFT$(D$,1)):OUT 138,VAL(MID$(D$,2,1))
80 OUT 137,VAL(MID$(D$,4,1)):OUT 136,VAL(MID$(D$,5,1))
85 OUT 141,VAL(MID$(D$,7,1)):OUT 140,VAL(MID$(D$,8,1)):OUT 142,D0
90 D2=VAL(MID$(D$,7,2))-84
95 IF D2>4 GOTO 115
100 D3=((INP(143)-240)&2)
105 OUT 143,(D2*4+D3):GOTO 10
110 !"INCORRECT FORMAT":GOTO 50
115 D2=D2-4:GOTO 95
120 D4=INP(139)-192:D5=INP(138)-192:D6=INP(137)-192:D7=INP(136)-192
125 D8=INP(141)-192:D9=INP(140)-192:D0=INP(142)-240
130 D3$="/"
135 D1$=CHR$(D4)+CHR$(D5)+D3$+CHR$(D6)+CHR$(D7)+D3$+CHR$(D8)+CHR$(D9)
140 IF D0=1 THEN D2$=" - SUN"
145 IF D0=2 THEN D2$=" - MON"
150 IF D0=3 THEN D2$=" - TUE"
155 IF D0=4 THEN D2$=" - WED"
160 IF D0=5 THEN D2$=" - THU"
165 IF D0=6 THEN D2$=" - FRI"
170 IF D0=7 THEN D2$=" - SAT"
175 !:!"   >>>> DATE IS: ";:!D1$+D2$;:!"   <<<<":GOTO 10
180 !:!"ENTER TIME:":!"FORMAT IS HH:MM-AM  OR  HH:MM-PM   (8 CHAR)"
185 !"'RETURN' WHEN SET TIME=ACTUAL TIME"
190 !:!"TIME IS: ";:INPUT T$
195 IF MID$(T$,7,1)="A" THEN T0=0
200 IF MID$(T$,7,1)="P" THEN T0=2
205 T1=INP(143):T2=(T1&12)+T0
210 OUT 135,VAL(LEFT$(T$,1)):OUT 134,VAL(MID$(T$,2,1)):OUT 133,VAL(MID$(T$,4,1))
215 OUT 132,VAL(MID$(T$,5,1)):OUT 130,0:OUT 131,0:OUT 143,T2
220 GOTO 10
225 T1=INP(135)-192:T2=INP(134)-192:T3=INP(133)-192:T4=INP(132)-192
230 T5=INP(131)-192:T6=INP(130)-192:T7=(INP(143)&2)
235 IF T7=0 THEN T3$=" AM"
240 IF T7=2 THEN T3$=" PM"
245 T1$=CHR$(T1)+CHR$(T2)+CHR$(58)+CHR$(T3)+CHR$(T4)+CHR$(58)
250 T2$=CHR$(T5)+CHR$(T6)
255 !:!"   >>>> TIME IS: ";:!T1$+T2$+T3$;:!" <<<<":GOTO 10