0 'CHIME by DREW BLANCHAR 6/87
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
10 DEFSTRM,P,T:RESTORE
11 FOR C =1 TO 9
12 READ Y:SOUND Y,23
13 NEXT C
14 DATA 3728,4697,4184,6269,30,6269,4184,3728,4697
15 FORX=1TO300:NEXTX:FORX=1TOVAL(TIME$):BEEP:SOUND100,20:NEXTX
16 CLS:T=TIME$
17 IF VAL(T)<>0 GOTO19
18 H=12:P = " MIDNITE":GOTO24
19 IF VAL(T)>=12 GOTO21
20 H=VAL(T): P = " AM":GOTO24
21 IF VAL(T)>12 GOTO23
22 H=12:P = " NOON":GOTO24
23 H=VAL(T)-12:P=" PM"
24 M=MID$(T,3,3):K=VAL(RIGHT$(M,2)):IF(K=0ORK=30)ANDVAL(RIGHT$(T,2))=0THEN10
25 PRINT@ 123, "THE TIME IS ";H;M;P
26 PRINT@ 176, T
27 FOR R=1 TO 200
28 NEXT R
29 IFINKEY$<>""THENMENUELSEGOTO16