Keskustelu: Koodit: QB kello

DECLARE SUB aika (rivi, paikka)

SCREEN 13
DIM SHARED numerot(20 * 11)

' Luetaan datat
FOR k = 1 TO 11
FOR p = 1 TO 7
FOR r = 1 TO 5
READ v
PSET (r, p), v
NEXT r
NEXT p
GET (0, 0)-(6, 8), numerot(20 * k - 20)
CLS
NEXT k

' Tulostetaan aika
DO
CLS
aika 1, 1
a = TIMER
WHILE b < 1
b = TIMER - a
WEND
a = 0
b = 0
LOOP

' Datat
DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00

DATA 00,15,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,15,15,15,00

DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 00,15,15,15,00
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,15

DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00

DATA 15,00,00,15,00
DATA 15,00,00,15,00
DATA 15,00,00,15,00
DATA 15,15,15,15,15
DATA 00,00,00,15,00
DATA 00,00,00,15,00
DATA 00,00,00,15,00

DATA 15,15,15,15,15
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,00
DATA 00,00,00,00,15
DATA 00,00,00,00,15
DATA 15,15,15,15,00

DATA 00,15,15,15,15
DATA 15,00,00,00,00
DATA 15,00,00,00,00
DATA 15,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00

DATA 15,15,15,15,15
DATA 00,00,00,00,15
DATA 00,00,00,15,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00
DATA 00,00,15,00,00

DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,00


DATA 00,15,15,15,00
DATA 15,00,00,00,15
DATA 15,00,00,00,15
DATA 00,15,15,15,15
DATA 00,00,00,00,15
DATA 00,00,00,15,00
DATA 00,15,15,00,00

DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,15,00,00
DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,00,00,00
DATA 00,00,15,00,00

SUB aika (rivi, paikka)

' Tulostetaan aika
klo$ = TIME$
FOR kirjain = 1 TO LEN(klo$)
IF MID$(klo$, kirjain, 1) = "0" THEN merkki = 1
IF MID$(klo$, kirjain, 1) = "1" THEN merkki = 2
IF MID$(klo$, kirjain, 1) = "2" THEN merkki = 3
IF MID$(klo$, kirjain, 1) = "3" THEN merkki = 4
IF MID$(klo$, kirjain, 1) = "4" THEN merkki = 5
IF MID$(klo$, kirjain, 1) = "5" THEN merkki = 6
IF MID$(klo$, kirjain, 1) = "6" THEN merkki = 7
IF MID$(klo$, kirjain, 1) = "7" THEN merkki = 8
IF MID$(klo$, kirjain, 1) = "8" THEN merkki = 9
IF MID$(klo$, kirjain, 1) = "9" THEN merkki = 10
IF MID$(klo$, kirjain, 1) = ":" THEN merkki = 11

PUT (6 * paikka * kirjain, 7 * rivi), numerot(20 * merkki - 20)
NEXT kirjain

END SUB