1 print"{white}{clear}{home}"
2 forr=0to12:a$=a$+"*":printspc(5)a$:next:print"{home}"
3 forr=0to12:b$=b$+"*":printspc(13-r)b$:next
4 c=5:forr=16to4step-1:c$=c$+"*":gosub8:printc$:next
5 c=14:forr=16to4step-1:d$=d$+"*":c=c-1:gosub8:printd$:next
6 geta$:ifa$=""goto6
7 end
8 poke214,r:print:poke211,c:return