1CLS:POKE#26A,PEEK(#26A)AND#FE:FORI=0TO8:FORJ=0TOI
2IFI<5THEN?@27-I,7+J;"*":?@I+11,7+J;"*":?@15+J,19-I;"*":?@23-J,19-I;"*"
3?@15+J,I+3;"*":?@23-J,I+3;"*":?@I+11,15-J;"*":?@27-I,15-J;"*"
4NEXTJ:NEXTI:?@0,24;:POKE#26A,PEEK(#26A)OR1
