Stap 7: Binary clock.
binclock.bas
[code]
'=================================================================
' binaire klok door computothought
'
'--------------------------------------------------------
' housekeeping
CLS
ware % = -1
Zoek 4,10: afdrukken "de tijd is:"; tijd van $; ".";
Zoek 7,20: afdrukken "Hexadecimaal";
Zoek 7,36: afdrukken "Binary";
'--------------------------------------------------------
Hoofdlus
terwijl de echte %
HR = val(left$(time$,2))
min = val(mid$(time$,4,2))
SEC = val(mid$(time$,7,2))
' uren
Ga naar 08,20: afdrukken "";
HR$ = juiste$ ("" + hex$(hr),2)
Ga naar 08,10: afdrukken "Uren"; : Zoek 08,20: afdrukken van hr$;
N = hr
GOSUB binit
BHR$ C$ =
Ga naar 08,30: afdrukken "";
Ga naar 08,30: afdrukken van juiste$ ("" + bhr$, 16);
"mins
Zoek 10,20: afdrukken "";
min$ = juiste$ ("" + hex$(min),2)
Zoek 10,10: afdrukken "Minuten"; : Zoek 10,20: print min$;
N = min
GOSUB binit
Zoek 10,30: afdrukken "";
bmin$ C$ =
Zoek 10,30: print juiste$ ("" + bmin$, 16);
' secs
Zoek 12,20: afdrukken "";
SEC$ = juiste$ ("" + hex$(sec),2)
Zoek 12,10: afdrukken "Seconden"; : Zoek 12,20: print sec$;
N = sec
GOSUB binit
Zoek 12,30: afdrukken "";
BSEC$ C$ =
Zoek 12,30: print juiste$ ("" + bsec$, 16);
wend
'------------------------------------------------
' nep einde
Zoek 14,1: afdrukken;
einde
'------------------------------------------------
' subroutines
binit:
C$=""
TERWIJL N <> 0
A = 2 HACK N MOD
B$ = STR$(A)
N = FIX(N / 2)
C$ B$ + C$ =
WEND
terugkeer
[/ code]