1OsWrch=&FFEE
   10zp0=&70
   20DIM Code 1000
   30CliV=&208
   40FOR Pass=0 TO 2 STEP 2
   41P%=Code
   50[OPT Pass
   60Lda CliV:Sta hisv
   70Lda CliV+1:Sta hisv+1
   80Lda #mycli MOD 256:Sta CliV
   90Lda #mycli DIV 256:Sta CliV+1
  100Rts
  110.hisv
  120NOP
  130NOP
  140.mycli
  150PHP:PHA:PHY:PHX
  160Stx zp0
  170Sty zp0+1
  180Ldy #0
  190.lp
  200Lda (zp0),Y
  210Cmp #13:Beq done
  220Jsr OsWrch
  230Iny
  240Bra lp
  250.done
  260Lda #13:Jsr OsWrch
  270Lda #10:Jsr OsWrch
  280PLX:PLY:PLA:PLP
  290Jmp (hisv)
  300]
  310NEXT Pass
  320CALL Code