Kgog TV - Exapunks

Here is my solution for KGOG TV (273,99,7)

GRAB 300
LINK 800
LINK 799
SEEK 1
COPY F X
REPL AZIMUTH
SEEK 1
COPY F X
SEEK 1
COPY F T
WIPE
COPY T #FREQ
LINK 801
MARK ADJUST_ELEV
@REP 12
SUBI X #ELEV #MOTR
@END
TEST #ELEV = X
FJMP ADJUST_ELEV
MARK AZIMUTH
LINK 800
MARK ADJUST_AZIM
@REP 12
SUBI X #AZIM #MOTR
@END
TEST #AZIM = X
FJMP ADJUST_AZIM

GRAB 301
LINK 800
REPL FORK_KEY
VOID F
MARK ENCRYPT
SUBI M 9999 X
ADDI X F X
TEST X < 0
FJMP ADJUST
ADDI X 9999 X
MARK EMIT
SEEK -1
COPY X F
TEST EOF
FJMP ENCRYPT
KILL
LINK 799
SEEK -999
@REP 24
COPY F #DATA
@END
WIPE
MARK FORK_KEY
GRAB 199
MARK SEND_KEY
COPY F M
TEST EOF
FJMP SEND_KEY
SEEK -999
JUMP SEND_KEY
MARK ADJUST
SUBI X 1 X
JUMP EMIT