1 FORI=1TO13:A=18-I:LOCATE9,I:B$=B$+"*":PRINTB$:LOCATEA,I:PRINTB$:LOCATE9,A:PRINTB$:LOCATEA,A:PRINTB$:NEXT
