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

D 1
GOTO 900
EQU C1 0
EQU C2 500


#5
SUM C1 C1 1
D 1
WAIT 1000
CLS
PRINT C1
JLESS C1 C2 5
PRINT " "
PRINT C1
PRINT "OK"

GOTO 900







D 1
GOTO 900


#1
'NASTAVENI HODNOT
EQU S1 "R"
EQU S2 " START:"
EQU S3 " END:"
'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 "STLAC MEZERNIK"
KEY


#10
EQU S20 ""
ADD S20 S1
STR S10 C1
ADD S20 S10

D? C1
READ_RES R1
ADD S20 S2
STR S10 R1
ADD S20 S10

D C1
D? C1
READ_RES R2
ADD S20 S3
STR S10 R2
ADD S20 S10

PRINT S20

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

GOTO 900

#100


#900
END