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

Paso 8: Reloj semi-analógico.

analogclock.Bas
[código]
'=================================================================
' reloj semi-análogo por computothought
'
'--------------------------------------------------------
' servicio de limpieza
CLS
verdadero % = -1
localizar 4,1: Imprimir "Horas";
localizar 6.1: Imprimir "Minutos";
localizar 8,1: Imprimir "Segundos";

localizar 15.1: Imprimir "Horas";
localizar 18,1: Imprimir "Minutos";
localizar 21.1: Imprimir "Segundos";
'--------------------------------------------------------
' Bucle principal
mientras que el verdadero %
localizar 2,10: Imprimir "el tiempo es:"; tiempo$; ".";

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

recursos humanos$ = right$ ("00" + str$(hr),2)
$ min = right$ ("00" + str$(min),2)
$ s = right$ ("00" + str$(sec),2)

LHR$ = left$(hr$,1)
RHR$ = right$(hr$,1)
$ Lmín = left$(min$,1)
$ Rmin = right$(min$,1)
$ LSEC = left$(sec$,1)
rsec$ = right$(sec$,1)

' horas
localizar 5.1: impresión left$(string$(hr,"H") + string$ (60, ""), 60);
' minutos
localizar 7,1: impresión left$(string$(min,"M") + string$ (60, ""), 60);
' segundos
localizar 9,1: impresión left$(string$(sec,"S") + string$ (60, ""), 60);

' horas
Si h = 0 entonces localizar 16.1: imprimir string$ (60, "");
localizar 16.1: imprimir string$ (hr - 1, ""); $lhr; String$ (60 - h, "");
Si h = 0 entonces localizar 17,1: imprimir string$ (60, "");
localizar 17,1: imprimir string$ (hr - 1, ""); $rhr; String$ (60 - h, "");
' minutos
Si min = 0 y luego Localice 19,1: imprimir string$ (60, "");
localizar 19,1: imprimir string$ (min - 1, ""); $Lmín; String$ (60 - h, "");
Si min = 0 y luego Localice 20,1: imprimir string$ (60, "");
localizar 20,1: imprimir string$ (min - 1, ""); $rmino; String$ (60 - h, "");
' segundos
Si s = 0 entonces localizar 22.1: imprimir string$ (60, "");
localizar 22.1: imprimir string$ (seg - 1, ""); $lsec; String$ (60 - h, "");
Si s = 0 entonces localizar 23.1: imprimir string$ (60, "");
localizar 23.1: imprimir string$ (seg - 1, ""); $rsec; String$ (60 - h, "");

WEND
'------------------------------------------------
' final falso
Localice 14.1: imprimir;
final
[/ code]