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
|
||
|