29 lines
681 B
QBasic
29 lines
681 B
QBasic
|
screen 2
|
|||
|
|
loop = 1
|
|||
|
|
while loop
|
|||
|
|
gosub split
|
|||
|
|
check = min
|
|||
|
|
while check = min
|
|||
|
|
a$ = inkey$
|
|||
|
|
if len(a$) <> 0 then end _
|
|||
|
|
else _
|
|||
|
|
gosub split
|
|||
|
|
gosub face
|
|||
|
|
wend
|
|||
|
|
cls
|
|||
|
|
wend
|
|||
|
|
split: rem ** This splits time$ into numeric values
|
|||
|
|
let t$ = time$
|
|||
|
|
hr$ = left$(t$,2) : min$ = mid$(t$,4,2)
|
|||
|
|
hr = val(hr$) : min = val(min$)
|
|||
|
|
return
|
|||
|
|
face: rem ** This draws clock face
|
|||
|
|
circle (320,100),175
|
|||
|
|
little = 360 -(30 * hr + min/2)
|
|||
|
|
draw "ta=" + varptr$(little) + "nu40"
|
|||
|
|
big = 360 -(6*min)
|
|||
|
|
draw "ta=" + varptr$(big) + "nu70"
|
|||
|
|
locate 2,37 : print time$
|
|||
|
|
locate 23,25 : print "Press any key to return to system"
|
|||
|
|
return
|
|||
|
|
|