5 dim t(3)
10 input "insert hours (0/23): ",t(0)
11 if t(0)>23 then print "value is out of range - enter a number from 0 to 23" : goto 10
20 input "insert minutes (0/59): ",t(1)
21 if t(1)>59 then print "value is out of range - enter a number from 0 to 59" : goto 20
30 input "insert seconds (o/59): ",t(2)
31 if t(2)>59 then print "value is out of range - enter a number from 0 to 59" : goto 30
40 graphic clr
50 screen def 1,0,0,4
60 screen open 1
70 palette 1,0,0,0,0 : rem black
80 palette 1,1,15,0,0 : rem red
90 palette 1,2,0,0,15 : rem blue
100 palette 1,3,0,15,0 : rem green
110 palette 1,4,15,11,0 : rem orange
120 palette 1,5,0,11,15 : rem dark cyan
130 screen set 1,1
140 scnclr 0
150 border 0
160 pen 0,3
170 char 7,1,2,2,2,"Devil Master's"
180 pen 0,2
190 circle 80,50,20,1
200 pen 0,0
210 circle 80,50,12,1
220 box 85,30,110,30,85,71,109,71,1
230 pen 0,2
240 box 85,40,100,40,85,47,93,47,1
250 pen 0,1
260 box 85,52,92,52,85,60,100,60,1
270 pen 0,1
280 char 13,44,2,2,2,"65"
290 pen 0,5
300 char 19,40,3,3,2,"CLOCK"
310 pen 0,4
320 char 10,117,1,1,2,"Press any key to exit"
310 box 50,130,255,130,50,170,255,170
320 line 50,130,70,110
330 line 255,130,275,110
340 line 255,170,275,150
350 line 70,110,275,110
360 line 275,150,275,110
390 pen 0,1

400 t(2)=t(2)+1
410 if t(2)=60 then t(2)=0 : t(1)=t(1)+1
420 if t(1)=60 then t(1)=0 : t(0)=t(0)+1
430 if t(0)=24 then t(0)=0
440 char 13,140,3,3,2,":"
450 char 22,140,3,3,2,":"
460 for i=0 to 2
470 if i=0 then x=7
480 if i=1 then x=16
490 if i=2 then x=25

1000 if t(i)=0 then t$="00"
1001 if t(i)=1 then t$="01"
1002 if t(i)=2 then t$="02"
1003 if t(i)=3 then t$="03"
1004 if t(i)=4 then t$="04"
1005 if t(i)=5 then t$="05"
1006 if t(i)=6 then t$="06"
1007 if t(i)=7 then t$="07"
1008 if t(i)=8 then t$="08"
1009 if t(i)=9 then t$="09"
1010 if t(i)=10 then t$="10"
1011 if t(i)=11 then t$="11"
1012 if t(i)=12 then t$="12"
1013 if t(i)=13 then t$="13"
1014 if t(i)=14 then t$="14"
1015 if t(i)=15 then t$="15"
1016 if t(i)=16 then t$="16"
1017 if t(i)=17 then t$="17"
1018 if t(i)=18 then t$="18"
1019 if t(i)=19 then t$="19"
1020 if t(i)=20 then t$="20"
1021 if t(i)=21 then t$="21"
1022 if t(i)=22 then t$="22"
1023 if t(i)=23 then t$="23"
1024 if t(i)=24 then t$="24"
1025 if t(i)=25 then t$="25"
1026 if t(i)=26 then t$="26"
1027 if t(i)=27 then t$="27"
1028 if t(i)=28 then t$="28"
1029 if t(i)=29 then t$="29"
1030 if t(i)=30 then t$="30"
1031 if t(i)=31 then t$="31"
1032 if t(i)=32 then t$="32"
1033 if t(i)=33 then t$="33"
1034 if t(i)=34 then t$="34"
1035 if t(i)=35 then t$="35"
1036 if t(i)=36 then t$="36"
1037 if t(i)=37 then t$="37"
1038 if t(i)=38 then t$="38"
1039 if t(i)=39 then t$="39"
1040 if t(i)=40 then t$="40"
1041 if t(i)=41 then t$="41"
1042 if t(i)=42 then t$="42"
1043 if t(i)=43 then t$="43"
1044 if t(i)=44 then t$="44"
1045 if t(i)=45 then t$="45"
1046 if t(i)=46 then t$="46"
1047 if t(i)=47 then t$="47"
1048 if t(i)=48 then t$="48"
1049 if t(i)=49 then t$="49"
1050 if t(i)=50 then t$="50"
1051 if t(i)=51 then t$="51"
1052 if t(i)=52 then t$="52"
1053 if t(i)=53 then t$="53"
1054 if t(i)=54 then t$="54"
1055 if t(i)=55 then t$="55"
1056 if t(i)=56 then t$="56"
1057 if t(i)=57 then t$="57"
1058 if t(i)=58 then t$="58"
1059 if t(i)=59 then t$="59"

1060 char x,140,3,3,2,t$
1070 next i
1080 sleep 1
1090 get a$
1100 if a$ = "" then goto 400
1110 screen close 1
1120 palette restore
1130 border 6