#1
D 1
D 2
D 3
D 4

GOTO 1



'NASTAVENI HODNOT
EQU S1 "START VALUE:"
EQU S2 "END VALUE:"
'CISLO PRVNIHO REZISTORU
EQU C1 1
'CISLO POSLEDNIHO REZISTORU
EQU C2 4

'STARTOVACI SEKVENCE
SUM C2 C2 1
CLS
PRINT "PROGRAM DOSTAVENI REZISTORU"
PRINT "DESKA BLIKACE"
PRINT " "
PRINT "STLAC MEZERNIK"
KEY


#10
CLS
PRINT C1
D C1
GOTO 900

SUM C1 C1 1
WAIT 1000
JLESS C1 C2 10
PRINT " "
PRINT "OK"

GOTO 900

#100


#900
END