'PROGRAM PRO DOSTAVENI
'REZISTORU NA DESCE BLIKACE
' AUTOR MARTIN ADAMEK

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

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


#10
CLS
PRINT "CISLO REZISTORU"
PRINT C1
D? C1
PRINT S1
READ_RES R45
PRINTB R45
D C1
PRINT S2
D? C1
READ_RES R45
PRINTB R45
SUM C1 C1 1
WAIT 1000
JLESS C1 C2 10
PRINT " "
PRINT "OK"

GOTO 900

#100


#900
END