Anonymous

dim h as uinteger		'hour
dim m as uinteger	'minutes
dim s as uinteger		'sec
dim ms as uinteger	'ms
dim zeit as double
zeit = 72720000

open cons for output as #1
zeit = zeit/1000/60/60


h=int(zeit) 
zeit = zeit-int(zeit)
zeit = zeit * 60

m = int(zeit)
zeit = zeit-int(zeit)
zeit = zeit * 60

s=int(zeit)
zeit = zeit-int(zeit)
zeit = zeit * 1000
ms=int(zeit) : zeit = zeit-int(zeit)

print #1, str(h) & ":" & str(m) & ":" & str(s) & ":" & str(ms)