i have no clue what to do on line 32
i want it to colide with the upper (and lower) part of the block


:.OBJECT
:"AXE TEST→Str1
:[FFFFFFFFFFFFFFFF]→Pic1
:DiagnosticOff
:ClrHome
:Output(2,3,Str1
:Pause 1750
:1→X
:1→Y
:44→A
:23→B
:Repeat getKey(15)
:If getKey(1)
:Y+1→Y
:End
:If getKey(4)
:Y-1→Y
:End
:If getKey(3)
:X+1→X
:End
:If getKey(2)
:X-1→X
:End
:
:If (abs(Y-B)<8) and (abs(X-A)<8)
:A-1→A
:If (X<A)
:A+2→A
:End
:End
:???????????????????????????????
:A-1→A
:If (Y<A)
:A+2→A
:End
:End
:
:ClrDraw
:Pt-On(X,Y,Pic1
:Pt-On(A,B,Pic1
:DispGraph
:End

I know it is crazy long but, if you work hard you will be rewarded .
If something has 3 comas, it's line(x,y,x,y
If it only has 1 coma, it's a pt-on(x,y

text(0,1,"bear
-11,30,-10
11,30,15,30   (line)
16,29            (pt-on)
13,29
10,29
-9,29
-12,29
-13,28
-8,28
9,28
11,28,14,28
17,28
17,27
15,27,10,27
8,27
-7,27,-8,27
-11,27,-12,27
-14,27
-14,26,-11,26
-9,26,-6,26
4,26,9,26
11,26,15,26
17,26
17,25
13,25,12,25
4,25,-10,25
-12,25,-15,25
-15,24,-14,24
-11,24,-5,24
3,24
-12,24,13,24

16,24,17,24
17,23,16,23
14,23,11,23
8,23,7,23
2,23,-1,23
-9,23,-12,23
-15,23
-15,22,-10,22
-2,22,3,22
5,22,12,22
14,22,17,22
18,21,5,21
3,21,-7,21
-11,21,-15,21
-15,20,-12,20
-8,29,-6,20
-3,20,3,20
6,20,18,20
18,19,7,19
4,19,-4,19
-8,19
-13,19,-16,19
-17,18,-14,18
-5,18,4,18
7,18,18,18
18,17,6,17
4,17,-5,17
-14,17,-15,17
-17,17
-17,16
-15,16,-14,16
-5,16


-3,16,5,16
7,16,18,16
18,15,-3,15
-17,15
-17,14
-8,14
-4,14,18,14
18,13,-4,13
-7,13,-9,13
-14,13,-15,13
-17,13
-18,12
-15,12,-14,12
-10,12,-6,12
-3,12,19,12
19,11,-3,11
-6,11,-11,11
-14,11,-15,11
-18,11,-19,11
-20,10,-17,10
-14,10,-13,-10
-11,10,-7,10
-4,10,19,10
19,9,-4,9
-6,9,-14,9
-17,9
-20,9
-20,8
-17,8
-14,8,-5,8
-3,8
-1,8,19,8

19,7,-1,7
-3,7
-5,7,-14,7
-20,7
-20,6
-14,6,-5,6
0,6,1,6
4,6,19,6
19,5,4,5
-4,5,-14,5
-16,5,-17,5
-20,5
-20,4
-17,4,-4,4
-2,4,20,4
20,3,-2,3
-4,3,-17,3
-17,2,20,2
20,1,-19,1

I hope I wrote all the PT.s and wrote them correctly,