Комментарий к скрипту

Главная страница (MAIN PAGE)

 

! Set AXE10 time EQUAL to PC time; (Установить время AXE, равное времени ПК)

 

! Copyright (c) Anatoliy Avroniev ;

! aavroniev@yahoo.com ;

 

@LABEL BEG

@O

@CLEAR

@PRESERVE

CACLP;

@GETTIME {pctime} HHMMSS

@COPY {_line6} {extime} 10 6

@COPY {pctime} {pchh} 1 2

@COPY {pctime} {pcmm} 3 2

@COPY {pctime} {pcss} 5 2

@COPY {extime} {exhh} 1 2

@COPY {extime} {exmm} 3 2

@COPY {extime} {exss} 5 2

 

@COMMENT COMPUTER TIME IS {pctime}

@COMMENT EXCHANGE TIME IS {extime}

 

@IF {pchh}={exhh} THEN GOTO 1

@IF {pchh}>{exhh} THEN GOTO 2

@IF {pchh}<{exhh} THEN GOTO 3

 

!pchh=exhh;

@LABEL 1

@IF {pcmm}={exmm} THEN GOTO 11

@IF {pcmm}>{exmm} THEN GOTO 12

@IF {pcmm}<{exmm} THEN GOTO 13

 

!pchh=exhh, pcmm=exmm;

@LABEL 11

@IF {pcss}={exss} THEN GOTO 111

@IF {pcss}>{exss} THEN GOTO 112

@IF {pcss}<{exss} THEN GOTO 113

 

!pchh=exhh, pcmm>exmm;

@LABEL 12

@IF {pcss}={exss} THEN GOTO 121

@IF {pcss}>{exss} THEN GOTO 122

@IF {pcss}<{exss} THEN GOTO 123

 

!pchh=exhh, pcmm<exmm;

@LABEL 13

@IF {pcss}={exss} THEN GOTO 131

@IF {pcss}>{exss} THEN GOTO 132

@IF {pcss}<{exss} THEN GOTO 133

 

!pchh=exhh, pcmm=exmm, pcss=exss;

@LABEL 111

@COMMENT EXCHANGE AND PC TIMES ARE EQUAL

@GOTO END

 

!pchh=exhh, pcmm=exmm, pcss>exss;

@LABEL 112

@SET {dss}={pcss}

@DEC {dss} {exss}

CACLC:TDSF={dss};

@GOTO END

 

!pchh=exhh, pcmm=exmm, pcss<exss;

@LABEL 113

@SET {dss}={exss}

@DEC {dss} {pcss}

CACLC:TDSB={dss};

@GOTO END

 

!pchh=exhh, pcmm>exmm, pcss=exss;

@LABEL 121

@SET {dmm}={pcmm}

@DEC {dmm} {exmm}

@SET {dms}={dmm}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@INC {dms} {dss}

CACLC:TDSF={dms};

@GOTO END

 

!pchh=exhh, pcmm>exmm, pcss>exss;

@LABEL 122

@SET {dss}={pcss}

@DEC {dss} {exss}

@SET {dmm}={pcmm}

@DEC {dmm} {exmm}

@SET {dms}={dmm}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@INC {dms} {dss}

CACLC:TDSF={dms};

@GOTO END

 

!pchh=exhh, pcmm>exmm, pcss<exss;

@LABEL 123

@SET {dss}=60

@DEC {dss} {exss}

@INC {dss} {pcss}

@SET {dmm}={pcmm}

@DEC {dmm} {exmm}

@DEC {dmm} 1

@SET {dms}={dmm}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@INC {dms} {dss}

CACLC:TDSF={dms};

@GOTO END

 

!pchh=exhh, pcmm<exmm, pcss=exss;

@LABEL 131

@SET {dmm}={exmm}

@DEC {dmm} {pcmm}

@SET {dms}={dmm}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

CACLC:TDSB={dms};

@GOTO END

 

!pchh=exhh, pcmm<exmm, pcss>exss;

!pchh=exhh, pcmm<exmm, pcss<exss;

@LABEL 132

@LABEL 133

@SET {dss}=60

@DEC {dss} {pcss}

@INC {dss} {exss}

@SET {dmm}={exmm}

@DEC {dmm} {pcmm}

@DEC {dmm} 1

@SET {dms}={dmm}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@INC {dms} {dms}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@DEC {dms} {dmm}

@INC {dms} {dss}

CACLC:TDSB={dms};

@GOTO END

 

!pchh>exhh, pcmm=exmm, pcss=exss;

@LABEL 2

@SET {dhh}={pchh}

@DEC {dhh} {exhh}

CACLC:TDSF=3600;

@IF {dhh}>1 THEN GOTO BEG

@GOTO END

 

!pchh<exhh, pcmm=exmm, pcss=exss;

@LABEL 3

@SET {dhh}={exhh}

@DEC {dhh} {pchh}

CACLC:TDSB=3600;

@IF {dhh}>1 THEN GOTO BEG

@GOTO END

 

@LABEL END

@E

@T 1

@O

@CLEAR

@PRESERVE

@ONRECEIVE "TIME"

CACLP;

@GETTIME {pctime} HHMMSS

@COPY {_line6} {extime} 10 6

@COMMENT COMPUTER TIME IS {pctime}

@COMMENT EXCHANGE TIME IS {extime}

@COMMENT END

@END

 

! Copyright (c) Anatoliy Avroniev ;

! aavroniev@yahoo.com ;

 

Комментарий к скрипту

Главная страница (MAIN PAGE)