SCREEN 12:CLS
PAINT(0,0),0
CVLAMP=11
'CVLAMP-CVET LAMPY. 12-RED.11-LIGHT BLUE.9-BLUE.2-GREEN
'SEVEN SEGMENTS TABLE
DIM S(10,7)
DIM C(4)
DIM A(7):'X-KOORDINATA SEGMENTA
DIM B(7):'Y-KOORDINATA SEGMENTA
A(1)=50:A(2)=72:A(3)=72:A(4)=50:A(5)=42:A(6)=42:A(7)=50
B(1)=36:B(2)=50:B(3)=80:B(4)=90:B(5)=80:B(6)=50:B(7)=63

DATA 1,1,1,1,1,1,0
DATA 0,1,1,0,0,0,0
DATA 1,1,0,1,1,0,1
DATA 1,1,1,1,0,0,1
DATA 0,1,1,0,0,1,1
DATA 1,0,1,1,0,1,1
DATA 1,0,1,1,1,1,1
DATA 1,1,1,0,0,0,0
DATA 1,1,1,1,1,1,1
DATA 1,1,1,1,0,1,1
FOR DIG=0 TO 9
FOR SE=1 TO 7
READ S(DIG,SE)
NEXT SE
NEXT DIG

HH=128:LL=256
FILE$="PICT\WATCH.BMP"
OPEN FILE$ FOR BINARY AS #1
XC=200
YC=300
GOSUB CART
CLOSE 1
TOC=8
TEKVRE$=TIME$
KLAV:
 VREM$=TIME$
 IF TEKVRE$<>VREM$ THEN GOSUB CLOCK
 FOR T=0 TO 30000
 IF INKEY$=CHR$(27) THEN STOP
 NEXT T
 PAINT(XC+126,YC-128+56),TOC,0
 PAINT(XC+126,YC-128+70),TOC,0
 IF TOC=8 THEN TOC=CVLAMP:GOTO KLAV
 IF TOC=CVLAMP THEN TOC=8:GOTO KLAV
 GOTO KLAV
STOP

CVET:
 N1$=LEFT$(A$,4)
 N2$=MID$(A$,5,4)
 B1=VAL(MID$(N1$,4,1))
 B2=VAL(MID$(N1$,3,1))
 B3=VAL(MID$(N1$,2,1))
 B4=VAL(MID$(N1$,1,1))
 CV1=8*B4+4*B1+2*B2+1*B3
 B1=VAL(MID$(N2$,4,1))
 B2=VAL(MID$(N2$,3,1))
 B3=VAL(MID$(N2$,2,1))
 B4=VAL(MID$(N2$,1,1))
 CV2=8*B4+4*B1+2*B2+1*B3
RETURN

CART:
 L=LOF(1)
 SEEK 1,118
 FOR L=1 TO HH
 FOR C=1 TO LL/2
 GET$ 1,1,A$
 A=ASC(A$)
 A$=BIN$(A)
 J=LEN(A$)
 J=8-J
 D$=""
 FOR N=1 TO J
 D$="0"+D$
 NEXT N
 A$=D$+A$
 GOSUB CVET
 X=(2*C)-1
 PSET(X+XC,-L+YC),CV1
 PSET(X+1+XC,-L+YC),CV2
 NEXT C
 NEXT L
RETURN

CLOCK:
 TEKVRE$=VREM$
 CAS$=MID$(TEKVRE$,1,2)
 MIN$=MID$(TEKVRE$,4,2)
 SEC$=MID$(TEKVRE$,7,2)
 C(1)=VAL(MID$(CAS$,1,1))
 C(2)=VAL(MID$(CAS$,2,1))
 C(3)=VAL(MID$(MIN$,1,1))
 C(4)=VAL(MID$(MIN$,2,1))


 FOR R=1 TO 4
  FOR SE=1 TO 7
  SX=A(SE)+40*(R-1)+20*INT((R-1)/2)
  SY=B(SE)
  SX=XC+SX
  SY=YC-128+SY
  MASK=S(C(R),SE)
  'PSET(SX,SY),2
  PAINT(SX,SY),(8+(CVLAMP-8)*MASK),0
  NEXT SE
 NEXT R
 'STOP
RETURN