30FOR PASS=4 TO 6 STEP 2
   31P%=&A00
   32O%=&5000
   40[OPT PASS
   41Lda &208:Sta Jump
   42Lda &209:Sta Jump+1
   50Lda #mycli MOD 256:Sta &208
   60Lda #mycli DIV 256:Sta &209
   70Rts
   80.mycli
   90Lda &70:Pha:Lda &71:Pha:Stx &70:Sty &71
  100Ldy #&FF
  110.zz Iny: Lda (&70),Y
  111Pha
  120Jsr &FFE3
  121Pla
  130Cmp #13:Bne zz
  140Ldx &70:Ldy &71:Pla:Sta &71:Pla:Sta &70:Jmp 0
  150]
  151Jump = P%-2
  160NEXT
  170*save Echo 5000 +80 FFFF0A00 FFFF0A00