
1 MODE 1:FOR y=5 to 13:READ x,n:i=30-x-n:j=24-y:x=x+11:LOCATE x,y:PRINT STRING$(n,"*"):LOCATE i,y:PRINT STRING$(n,"*"):LOCATE x,j:PRINT STRING$(n,"*"):LOCATE i,j:PRINT STRING$(n,"*"):NEXT:WHILE 1:WEND:DATA 5,1,5,2,5,3,5,4,1,9,2,8,3,6,4,6,5,5:'siko 2022 

