shift=&8E
absx=&8F

osnewl=&FFE7
oswrch=&FFEE

DIM B% 60
FORA%=0TO2STEP2
P%=B%
[OPTA%
.start
LDY #&12
.yloop
LDX #&12
.xloop
TXA:JSR subabscmp
STA absx
TYA:JSR subabscmp
SEC:SBC absx
JSR abscmp
LDA shift
CMP #&60
LDA #32
BCS unset
LDA #42
.unset
JSR oswrch
DEX:BPL xloop
JSR osnewl
DEY:BPL yloop
RTS
.subabscmp
SEC:SBC #&09
.abscmp
BPL nonneg
EOR #&FF
SEC:ADC #&00
.nonneg
CMP #5
ROR shift
RTS
.end
]
NEXT
CLS
CALLstart
