10     CLOCK 1
20     PRINT "Press 'S' to setup, 'ESC' to finish."
100    GOSUB 1000
110   X=GET
120    IF X=27 THEN  END
130    IF X=53H.OR.X=73H THEN  GOTO 200
190    GOTO 100
200    INPUT "Enter hours:",H
210    INPUT "Enter minutes:",M
220    INPUT "Enter seconds:",S
230   T=H*3600+M*60+S
240   TIME=T
300    GOTO 100
1000  T=TIME
1005  PORT1=(PORT1.AND.0FEH).OR.(INT(T*2).AND.1)
1007   IF INT(OT)=INT(T) THEN  RETURN
1008  OT=T
1010  H=INT(T/3600)
1020  T=T-3600*H
1030  M=INT(T/60)
1040  T=T-60*M
1050  S=INT(T)
1060   PRINT USING(##),H,":",M,":",S, CR ,
1090   RETURN