1FORO%=0TO3STEP3:P%=&60:[OPTO%
2.l5:LDX#5
3.l3:LDA#253:STA&A1
4.l2:LDY#5:LDAda+1,X:STA&A0
5.l1:LSR&A0:LDA#32:BCCp:LDA#42:.p:JSR&FFEE:DEY:BPLl1
6INC&A1:BEQl1:BMIl2
7JSR&FFE7:DEX:BPLl3
8INCl4:BEQl3:BMIl5
9RTS
10.l4 EQUB253
11.da EQUB 8:EQUB &14:EQUB &22:EQUB &41:EQUB &22:EQUB &14:EQUB 8
12]:N.
13CALL&60