ClrHome
1→A
1→B
Repeat C=45
Output(B,A,"*
Repeat Ans
getkey→C
End
Output(B,A,"
max(1,min(16,A-(C=24)+(C=26→A
max(1,min(8,B-(C=25)+(C=34→B
End