10FORI%=0TO2STEP2
20P%=&50
30[OPT I%
40LDX #9
50.loop1 LDY #256-9
60.loop2 TXA
70BEQ asterisk
80TYA
90BEQ asterisk
100BPL skip1
110EOR #255
120INC A
140.skip1 STA &50
150LDA data-1,X
160.loop3 LSR A
170DEC &50
180BNE loop3
190LDA #32
200BCC print
210.asterisk LDA #42
220.print JSR &FFEE
230INY
240CPY #10
250BNE loop2
260JSR &FFE7
270.dex DEX
280BNE skip2
290LDA #&E8 \ change DEX to INX
300STA dex
310.skip2 CPX #10
320BNE loop1
330RTS
340.data EQUD &9049249
350EQUD &2513072
360EQUB 0
370]
380NEXT
390*SAVE 65C02 50 8E
