LA MONTRE EN QBASIC

LA MONTRE EN QBASIC

IL SAGI D'UNE MONTDRE QUI AFFICE H'EURES

AVEC DES CHIFRES DIGITALE SPECIALE

DONS LES CHIFRES 0,2,3,4,5,6,7,8,9

AVEC UNE GRANDE HEUR DE 5 SPACE DE LARGUR

SUR 7 SPACE DE HAUEUR

ET LE CHIFRES 1

AVEC UNE GRANDE HEUR DE 1 SPACE DE LARGUR

SUR 7 SPACE DE HAUEUR

EN COULER 1,2,3,4,5,6,10,11,13

CLS
REM * PORAMSION DE QBASIC45 *
REM * QBASIC45@YAHOO.FR *
REM
DATA 092,032,032,032,047,032,219,219,219,032,032,219,219,219
DATA 032,032,219,219,219,032,032,219,219,219,032,032,219,219
DATA 219,032,047,032,032,032,092,032,032,032,032,032,032,032
DATA 032,032,032,032,047,219,219,219,219,032,219,219,219,219
DATA 032,092,032,032,032,092,032,219,219,219,219,032,219,219
DATA 219,219,047,032,032,032,032,032,032,032,032,047,219,219
DATA 219,219,032,219,219,219,219,032,032,032,032,032,062,219
DATA 219,219,219,032,219,219,219,219,032,032,032,032,032,092
DATA 032,219,219,219,032,032,219,219,219,032,032,219,219,219
DATA 032,047,032,032,032,062,219,219,219,219,032,219,219,219
DATA 219,032,219,219,219,219,032,092,032,032,032,032,032,219
DATA 219,219,219,032,219,219,219,219,047,032,032,032,047,219
DATA 219,219,219,032,219,219,219,219,032,032,032,032,032,092
DATA 092,032,032,032,032,032,219,219,219,219,032,219,219,219
DATA 219,060,032,032,032,047,032,219,219,219,032,032,219,219
DATA 219,032,047,032,032,032,092,032,032,032,032,047,219,219
DATA 219,219,032,219,219,219,219,032,219,219,219,219,032,219
DATA 219,219,219,032,219,219,219,219,032,219,219,219,219,032
DATA 092,032,032,032,047,032,219,219,219,032,032,219,219,219
DATA 032,060,032,032,032,062,032,219,219,219,032,032,219,219
DATA 219,032,047,032,032,032,092,092,032,032,032,047,032,219
DATA 219,219,032,032,219,219,219,032,047,032,032,032,062,219
DATA 219,219,219,032,219,219,219,219,032,032,032,032,032,092
k = 0
FOR c = 0 TO 9
IF c = 0 THEN k = 5
IF c = 1 THEN k = 1
IF c = 2 THEN k = 5
IF c = 3 THEN k = 5
IF c = 4 THEN k = 5
IF c = 5 THEN k = 5
IF c = 6 THEN k = 5
IF c = 7 THEN k = 5
IF c = 8 THEN k = 5
IF c = 9 THEN k = 5
FOR a = 1 TO 7
FOR b = 1 TO k
READ q: a$(c, a) = a$(c, a) + CHR$(q)
NEXT b, a, c
a = 0: b = 0: c = 0: q = 0: k = 0
z1$ = CHR$(219) + CHR$(219) + CHR$(219)
z2$ = CHR$(219)
z3$ = CHR$(32) + CHR$(42) + CHR$(32)
z4$ = CHR$(32) + CHR$(15) + CHR$(32)
z5$ = CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219) + CHR$(219)
DO
t$ = TIME$: IF t$ = "24:00:00" THEN TIME$ = "00:00:00": t$ = TIME$
h1 = VAL(MID$(t$, 1, 1)): h2 = VAL(MID$(t$, 2, 1))
m1 = VAL(MID$(t$, 4, 1)): m2 = VAL(MID$(t$, 5, 1))
S1 = VAL(MID$(t$, 7, 1)): s2 = VAL(MID$(t$, 8, 1))
IF S1 <> zezor THEN GOSUB 100
zezor = S1
s3 = VAL(MID$(t$, 8, 2))
IF s3 MOD 2 = 0 THEN x$ = CHR$(32) + CHR$(42) + CHR$(32)
IF s3 MOD 2 = 1 THEN x$ = CHR$(32) + CHR$(15) + CHR$(32)
FOR y = 1 TO 7
IF y = 1 OR y = 2 OR y = 4 OR y = 6 OR y = 7 THEN y$ = z1$
IF y = 3 OR y = 5 THEN y$ = x$
LOCATE y, 1: PRINT a$(h1, y); z2$; a$(h2, y);
IF y$ = z3$ OR y$ = z4$ THEN
COLOR vk, kv: PRINT y$;
ELSE
COLOR kv, vk: PRINT z1$;
END IF
COLOR kv, vk
PRINT a$(m1, y); z2$; a$(m2, y);
IF y$ = z3$ OR y$ = z4$ THEN
COLOR vk, kv: PRINT y$;
ELSE
COLOR kv, vk: PRINT z1$;
END IF
COLOR kv, vk
PRINT a$(S1, y); z2$; a$(s2, y); z5$
NEXT y: y = 0
LOOP UNTIL LEN(INKEY$)
COLOR 15, 0
END
100 REM
jp = jp + 1
IF jp > 9 THEN jp = 0: jp = 1
IF jp = 1 THEN vk = 1: kv = 0
IF jp = 2 THEN vk = 2: kv = 0
IF jp = 3 THEN vk = 3: kv = 0
IF jp = 4 THEN vk = 4: kv = 0
IF jp = 5 THEN vk = 5: kv = 0
IF jp = 6 THEN vk = 6: kv = 0
IF jp = 7 THEN vk = 10: kv = 0
IF jp = 8 THEN vk = 11: kv = 0
IF jp = 9 THEN vk = 13: kv = 0
RETURN