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
