0 'CLOCK.BA - AUTHOR UNKNOWN 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ST$="20:00:00":SL=300:MD=1:XC=120:YC=31:IFMD=2THENYC=63 3 DIMX(60),Y(60):PI=ATN(1)*4:R=YC-1:FORL=0TO15:X(L)=SIN(L*PI/30):Y(L)=COS(L*PI/30):X(30-L)=X(L):Y(30-L)=-Y(L):X(L+30)=-X(L):Y(L+30)=-Y(L):X(60-L)=-X(L):Y(60-L)=Y(L):NEXT:Y(15)=0:Y(45)=0:GOTO50 4 FORL=1TO60:LINE(XC+X(L)*R,YC-Y(L)*R)-(XC+X(L-1)*R,YC-Y(L-1)*R),PS:LINE(XC+X(L-1)*(R-2),YC-Y(L-1)*(R-2))-(XC+X(L)*(R-2),YC-Y(L)*(R-2)),PS:X=XC+X(L)*(R-6):Y=YC-Y(L)*(R-6) 5 IFINT(L/5)=L/5THENLINE(X-1,Y-1)-(X+1,Y+1),PS,BELSEIFPS=1THENPSET(X,Y)ELSEPRESET(X,Y) 6 X=XC+X(L)*R/2:Y=YC-Y(L)*R/2:IFINT(L/5)=L/5THENLINE(X,Y)-(X+SGN(X-XC),Y+SGN(Y-YC)),PS,BFELSEIFMD=1THEN7ELSEIFPS=1THENPSET(X,Y)ELSEPRESET(X,Y) 7 NEXT:S1=XC:S2=YC:M1=XC:M2=YC:H1=XC:H2=YC:S3=XC:S4=YC:M3=XC:M4=YC:H3=XC:H4=YC:SR=R-9:MR=R-9:HR=R/2 8 T$=TIME$:S=VAL(RIGHT$(T$,2)):H=VAL(LEFT$(T$,2)):M=VAL(MID$(T$,4,2)):H=H+AP*12:IFH<0ORH>11THEN50 9 M1=XC+X(M)*MR:M2=YC-Y(M)*MR:H1=XC+X(H*5+M/12)*HR:H2=YC-Y(H*5+M/12)*HR:S1=XC+X(S)*SR:S2=YC-Y(S)*SR:IFCL=-1THENSOUND0,1 10 LINE(S3,S4)-(XC,YC),PR:LINE-(S1,S2),PS:X=XC+X(SS)*HR:Y=YC-Y(SS)*HR:IFSS/5=INT(SS/5)THENLINE(X,Y)-(X+SGN(X-XC),Y+SGN(Y-YC)),PS,BF 11 SS=S:IFMD=2THENIFPS=1THENPSET(X,Y)ELSEPRESET(X,Y) 12 LINE(XC-1,YC)-(M3,M4),PR:LINE-(XC+1,YC),PR:LINE(XC,YC+1)-(M3,M4),PR:LINE-(XC,YC-1),PR:LINE(XC-1,YC)-(M1,M2),PS:LINE-(XC+1,YC),PS:LINE(XC,YC+1)-(M1,M2),PS:LINE-(XC,YC-1),PS 13 LINE(XC-2,YC)-(H3,H4),PR:LINE-(XC+2,YC),PR:LINE(XC,YC+2)-(H3,H4),PR:LINE-(XC,YC-2),PR:LINE(H3,H4)-(XC,YC),PR:LINE-(H1,H2),PS:LINE(XC-2,YC)-(H1,H2),PS:LINE-(XC+2,YC),PS:LINE(XC,YC+2)-(H1,H2),PS:LINE-(XC,YC-2),PS 14 LINE(XC-2,YC-2)-(XC+2,YC+2),PS,BF:H3=H1:H4=H2:M3=M1:M4=M2:S3=S1:S4=S2 15 IFT$=TIME$THEN15ELSEIFT$=ST$ANDAS=-1THEN32ELSEIFSC=1THEN32ELSEK$=INKEY$:IFK$<>""THEN16ELSESC=SC-1:GOTO8 16 PRINT@0,"";:IFAP=-1THENPRINTCHR$(27)+"p"ELSEPRINTCHR$(27)+"q 17 IFK$<>"a"THEN20 18 IFAS=0THENAS=-1:PRINT@69,"Alarm Set:":PRINT@110,ST$:GOTO8 19 AS=0:GOTO29 20 IFK$="s"THENPRINT@40,"Set Time: ":PRINT@80," HH:MM:SS ":PRINT@81,;:LINEINPUTST$:GOTO29 21 IFK$<>CHR$(13)THEN23ELSESN=(SN=0):SC=-SN*SL:IFSN=0THENGOSUB31:PRINT@160,"Snooze Off":ELSEGOSUB30:PRINT@190,"Snooze On 22 GOTO8 23 IFK$="c"THENCL=(CL=0) 24 IFK$<>"t"THEN27ELSEPRINT@40,"P.D.Time: ":H=VAL(LEFT$(T$,2)):A=(H>11):H=H+12*A:PRINT@80,STR$(H)+MID$(T$,3,3)" "; 25 IFA=0THENPRINT"AM "ELSEPRINT"PM " 26 FORL=0TO700:NEXT:GOTO28 27 IFK$="d"THENPRINT@40,"Snooze Time:":PRINT"Sec.= ";:PRINT@86,;:LINEINPUTSL$:SL=VAL(SL$)+1:GOTO8 28 FORL=0TO120:NEXT:FORL=1TO2:PRINT@L*40," ":NEXT:GOTO8 29 FORL=0TO120:NEXT:FORL=1TO2:PRINT@L*40+29," ":NEXT:GOTO8 30 FORL=0TO120:NEXT:FORL=3TO4:PRINT@L*40," ":NEXT:RETURN 31 FORL=0TO120:NEXT:FORL=3TO4:PRINT@L*40+30," ":NEXT:RETURN 32 'alarm 33 ONERRORGOTO37 34 RESTORE 35 READF,D:SOUNDF,D:K$=INKEY$:IFK$=""THEN35ELSEIFK$=" "THEN36ELSEIFK$<>CHR$(13)THEN35ELSESC=-1:GOTO16 36 K$=CHR$(13):SN=0:GOTO16 37 RESUME34:DATA 4184,10,3950,10,3718,10,2348,20,3718,10:DATA 2348,20,3718,10,2348,60,2348,10,2092,10:DATA 1975,10,1864,10,2348,10,2092,10,1864,20:DATA 2484,10,2092,20,2348,50,0,10,4184,10,3950,10 38 DATA 3718,10,2348,20,3718,10,2348,20,3718,10:DATA 2348,70,2793,10,3134,10,3321,10,2793,10:DATA 2348,10,1864,20,2092,10,2348,10,2793,10:DATA 2092,50,0,10,4184,10,3950,10,3718,10 39 DATA 2348,20,3718,10,2348,20,3718,10,2348,60:DATA 2348,10,2092,10,1975,10,1864,10,2348,10:DATA 2092,10,1864,20,2484,10,2092,20,2348,50,0,10:DATA 2348,10,2092,10,1864,10,2348,10,2092,10 40 DATA 1864,20,2348,10,2092,10,2348,10,1864,10:DATA 2348,10,2092,10,1864,20,2348,10,2092,10:DATA 2348,10,1864,10,2348,10,2092,10,1864,20:DATA 2484,10,2092,20,2348,50,3718,10,3516,10 41 DATA 3321,10,3134,20,2793,10,3134,10,0,10:DATA 3718,10,3516,10,3321,10,3134,20,2793,10:DATA 3134,10,0,10,1864,10,2348,10,3134,10:DATA 2793,10,2484,10,2348,10,2092,10,1864,10 42 DATA 2092,10,2348,10,2092,10,3134,40,0,10,3718,10:DATA 3516,10,3321,10,3134,20,2793,10,3134,10,0,10:DATA 3718,10,3516,10,3321,10,3134,20,2793,10:DATA 3134,10,0,10,3134,10,2793,10,2636,10 43 DATA 2484,10,2484,20,2484,20,2793,10,3321,10:DATA 4184,10,3134,40,0,10,3718,10,3516,10,3321,10:DATA 3134,20,2793,10,3134,10,0,20,3718,10,3516,10,3321,10:DATA 3134,20,2793,10,3134,10,0,10,1864,10 44 DATA 2348,10,3134,10,2793,10,2484,10,2348,10:DATA 2092,10,1864,10,2092,10,2348,10,2092,10:DATA 2348,40,0,10,3134,10,3321,10,3134,10,2348,20:DATA 2793,10,2348,20,2793,10,2348,10,2793,10 45 DATA 3134,10,2348,10,1864,10,1567,20,1864,10:DATA 2348,10,3134,10,2793,20,2348,20,1864,10:DATA 2092,20,2348,60,0,10:DATA 4184,10,3950,10,3718,10,2348,20,3718,10:DATA 2348,20,3718,10,2348,60,2348,10,2092,10 46 DATA 1975,10,1864,10,2348,10,2092,10,1864,20:DATA 2484,10,2092,20,2348,50,0,10,4184,10,3950,10:DATA 3718,10,2348,20,3718,10,2348,20,3718,10:DATA 2348,70,2793,10,3134,10,3321,10,2793,10 47 DATA 2348,10,1864,20,2092,10,2348,10,2793,10:DATA 2092,50,0,10,4184,10,3950,10,3718,10:DATA 2348,20,3718,10,2348,20,3718,10,2348,60:DATA 2348,10,2092,10,1975,10,1864,10,2348,10 48 DATA 2092,10,1864,20,2484,10,2092,20,2348,50,0,10:DATA 2348,10,2092,10,1864,10,2348,10,2092,10:DATA 1864,20,2348,10,2092,10,2348,10,1864,10:DATA 2348,10,2092,10,1864,20,2348,10,2092,10 49 DATA 2348,10,1864,10,2348,10,2092,10,1864,20:DATA 2484,10,2092,20,2348,50 50 AP=(VAL(LEFT$(TIME$,2))>11):PS=1:PR=0:IFAP=-1THENPS=0:PR=1 51 P$="p":IFAP=0THENP$="q 52 PRINTCHR$(27)+P$:FORL=1TO75:PRINT" ";:NEXT:LINE(0,63*MD-1)-(239,63*MD-9),PR,BF:GOTO4