   10MODE7
   20DIMC%256
   30FORJ%=4TO7STEP3
   40O%=C%:P%=&60
   50[OPTJ%
   60.draw
   70LDY#18
   80.row
   90LDX#18
  100.col
  110SEC
  120LDApattern,X
  130ADCpattern,Y
  140CMP#42
  150BEQprt1
  180.prt_sp
  190LDA#&20
  200.prt1
  210JSR&FFEE
  220DEX
  230BPLcol
  240JSR&FFE7
  250DEY
  260BPLrow
  270RTS
  280.pattern
  290EQUB19:EQUB20:EQUB21:EQUB22:EQUB21:EQUB20:EQUB19:EQUB20:EQUB21:EQUB22:EQUB21:EQUB20:EQUB19:EQUB20:EQUB21:EQUB22:EQUB21:EQUB20:EQUB19
  300]
  310NEXT
  320F$="PATTERN"
  330OSCLI"SAVE "+F$+" "+STR$~C%+" "+STR$~O%+" "+STR$~draw+" "+STR$~draw
