Ordenador portátil (o pc) en un reloj. (7 / 9 paso)

Paso 7: Reloj binario.

BinClock.Bas
[código]
'=================================================================
' reloj binario por computothought
'
'--------------------------------------------------------
' servicio de limpieza
CLS
verdadero % = -1
localizar 4,10: Imprimir "el tiempo es:"; tiempo$; ".";
localizar 7,20: Imprimir "Hexadecimal";
localizar 7,36: Imprimir "Binario";
'--------------------------------------------------------
Bucle principal
mientras que el verdadero %

HR = val(left$(time$,2))
min = val(mid$(time$,4,2))
SEC = val(mid$(time$,7,2))

' horas
localizar 08,20: Imprimir "";
recursos humanos$ = right$ ("" + hex$(hr),2)
localizar 08,10: Imprimir "Horas";   : localizar 08,20: imprimir hr$;
N = hr
GoSub binit
BHR$ = C$
localizar a 08,30: Imprimir "";
localizar a 08,30: imprimir right$ ("" + $ bhr, 16);

' minutos
localizar 10,20: Imprimir "";
$ min = right$ ("" + hex$(min),2)
localizar 10,10: Imprimir "Minutos"; : localizar 10,20: imprimir min$;
N = min
GoSub binit
localizar 10,30: Imprimir "";
bmin$ = C$
localizar 10,30: imprimir right$ ("" + $ bmin, 16);

' segundos
localizar 12,20: Imprimir "";
$ s = right$ ("" + hex$(sec),2)
localizar 12,10: Imprimir "Segundos"; : localizar 12,20: imprimir $ seg;
N = s
GoSub binit
localizar 12,30: Imprimir "";
Mar Negro$ = C$
localizar 12,30: imprimir right$ ("" + $ de la OCEMN, 16);

WEND
'------------------------------------------------
' final falso
Localice 14.1: imprimir;
final
'------------------------------------------------
' subrutinas
binit:
C$=""
Mientras que N <> 0
A = N MOD 2
B$ = STR$(A)
N = FIX(N / 2)
C$ B$ = C$
VENDO
volver
[/ code]