1 SCREEN 7:DIM A(7),D(59),E(59),F(59),G(59),H(59),I(59):FOR I=0 TO 15:D(I)=I*.4+159:E(I)=I*.4+93:F(I)=I*4.6+159:G(I)=I*3.2+51:H(I)=I*2.4+159:I(I)=I*1.8+72:NEXT
2 FOR I=16 TO 30:D(I)=D(I-1)-.4:E(I)=E(I-1)+.4:F(I)=F(I-1)-4.6:G(I)=G(I-1)+3.2:H(I)=H(I-1)-2.4:I(I)=I(I-1)+1.8:NEXT:FOR I=31 TO 45:D(I)=D(I-1)-.4:E(I)=E(I-1)-.4:F(I)=F(I-1)-4.6:G(I)=G(I-1)-3.2:H(I)=H(I-1)-2.4:I(I)=I(I-1)-1.8:NEXT
3 FOR I=46 TO 59:D(I)=D(I-1)+.4:E(I)=E(I-1)-.4:F(I)=F(I-1)+4.6:G(I)=G(I-1)-3.2:H(I)=H(I-1)+2.4:I(I)=I(I-1)-1.8:NEXT:PRINT"6":GET(0,0)-(6,6),A
4 SCREEN,,D,1-D:SOUND 45,.8:D=1-D
5 IF INKEY$>"" THEN END ELSE ON-(A$=TIME$)GOTO 5:CLS:COLOR 2:PRINT"C.E.Software"TAB(29)"(C)opyright":COLOR 10:LOCATE 3:PRINT"Watch"TAB(36)"1993":COLOR 5:LINE(159,3)-(286,99):LINE(286,99)-(159,196):LINE(159,196)-(32,99):LINE(32,99)-(159,3)
6 COLOR 15:LOCATE 3,20:PRINT"12":PUT(156,176),A:LOCATE 6,16:PRINT"11"SPC(7)"1":LOCATE 9,12:PRINT"10"SPC(15)"2":LOCATE 13,8:PRINT"9"SPC(24)"3":LOCATE 17,12:PRINT"8"SPC(16)"4":LOCATE 20,16:PRINT"7"SPC(8)"5":LINE(159,96)-(162,99)
7 LINE(162,99)-(159,102):LINE(159,102)-(156,99):LINE(156,99)-(159,96):PAINT(159,99):COLOR 11:LINE(156,27)-(162,33),,BF:LINE(245,96)-(251,102),,BF:LINE(156,165)-(162,171),,BF:LINE(67,96)-(73,102),,BF:COLOR 14:LINE(163,34)-(244,95)
8 LINE(244,103)-(163,164):LINE(155,164)-(74,103):LINE(74,95)-(155,34):COLOR 3:LINE(188,53)-(192,57),,BF:LINE(217,74)-(221,78),,BF:LINE(217,120)-(221,124),,BF:LINE(188,141)-(192,145),,BF:LINE(126,141)-(130,145),,BF:LINE(97,120)-(101,124),,BF
9 LINE(97,74)-(101,78),,BF:LINE(126,53)-(130,57),,BF:A$=TIME$:C=VAL(MID$(A$,7)):B=VAL(MID$(A$,4,2)):A=VAL(LEFT$(A$,2))*5+INT(B/12):IF A>59 THEN A=A-60
10 LINE(D(B),E(B))-(F(B),G(B)),7:LINE(D(A),E(A))-(H(A),I(A)),8:LINE(D(C),E(C))-(F(C),G(C)),4:GOTO 4