10REM (C) Edinburgh Software Products
   20REM This software is released into the public domain.
   30OSARGS = &FFDA
   40OSFILE = &FFDD
   50OSBYTE = &FFF4
   60OSWRCH = &FFEE
   70OSASCI = &FFE3
   80OSRDCH = &FFE0
   90 
  100size = &40
  110zp   = &70
  120from = &74
  130to   = &76
  140 
  150CodeSize = &300
  160CodeAddr = &3000-CodeSize
  170DIM Code CodeSize-1
  180 
  190FOR PASS = 4 TO 6 STEP 2
  200O%=Code
  210P%=CodeAddr
  220[OPT PASS
  230.Entry
  240\ Start up in MODE 7 so that display is not corrupted
  250   Lda #22: Jsr OSWRCH
  260   Lda #7:  Jsr OartWa