10MODE7
   20 w=&FFEE:n=&FFE7
   30 A=&100
   50 FOR pass=0 TO 2 STEP 2:P%=A
   60[opt pass
   70.par
   80 EQUS"L.1":EQUB 13
   90.load
  100 ldx#par MOD 256:ldy#par DIV 256
  110 jsr &FFF7
  120 INC par+2
  130lda par+2:cmp #ASC"4":bne load 
  140lda #140:jsr &FFF4
  150 lda #&7C:sta &F7
  160 lda #&0D:sta &BF
  170 lda #0:sta &F6:sta &BE
  180 
  190 ldx#4:.copy1
  200 ldy#0
  210 BEQ &131:NOP:NOP:NOP
  220.copy lda(&F6),Y:sta(&BE),Y
  230 iny:bne copy
  240 inc &F7:inc &BF:dex:bne copy1
  250 lda#12:jsr w:jsr n:ldy #17
  260 jsr again:inc table:jsr n
  270 ldy#5
  280 jsr again:jmp &400
  290.again:ldx#0:.L1 lda table,X
  300 beq done:jsr w:inx:bne L1
  310.done dey:bne again:rts
  320 ]:P%=&39F:[opt pass
  330.table EQUB 134:EQUB 157:EQUB 132:EQUB 13:EQUB 10:EQUB 0
  340 ]:NEXT
  350 CALL &104