TIME.bas

10 INPUT"Whish do you want? [1]-CLOCK  [2]-HORSE WATCH  [3]-SELF-CLOCK";W
20 CLS:T$=""
30 ON KEY(11) GOSUB 440
40 KEY(11) ON
50 ON W GOTO 160,290,60
60 ON KEY(14) GOSUB 120
70 KEY(14) ON
80 T$=INKEY$:IF T$="" THEN 80
90 SOUND 575,3
100 MN=VAL(MID$(TIME$,4,2)) : SN=VAL(MID$(TIME$,7,2))
110 GOTO 100
120 LOCATE 12,37 : PRINT TIME$
130 INPUT "(Y/N)";D$
140 IF D$="Y" OR D$="y" THEN RETURN 10
150 END
160 INPUT "??:??:??",SET$
170 T$=INKEY$
180 IF T$="" THEN 170
190 LOCATE 10,35:PRINT DATE$
200 LOCATE 12,36:PRINT TIME$
210 IF TIME$=SET$ THEN 230
220 GOTO 200
230 FOR K=1 TO 10
240 SOUND 575,5
250 NEXT K
260 INPUT "(Y/N)";D$
270 IF D$="Y" OR D$="y" THEN 10
280 END
290 LOCATE 12,37:PRINT"00:00"
300 ON KEY(14) GOSUB 400
310 KEY(14) ON
320 T$=INKEY$:IF T$="" THEN 320
330 M%=0
340 FOR S%=0 TO 1199
350 LOCATE 12,37
360 PRINT M%;":";S%*.05
370 NEXT
380 M%=M%+1
390 GOTO 340
400 LOCATE 12,48:PRINT"   "
410 LOCATE 15,38:INPUT "again(Y/N)";D$
420 IF D$="Y" OR D$="y" THEN RETURN 10
430 END
440 TIME$="00:00:00"
450 T$="BEGIN"
460 RETURN