rem this program finds out the maximum coordinates of a screen

xvel = -50
10 if dmge>80 or (abs(xvel)<1) then 20
   goto 10

20 locate 20,60:print "left  xpos=";xpos:xvel=50

30 if dmge>90 or (abs(xvel)<1) then 40
   goto 30

40 xvel=0:locate 21,60:print "right xpos=";xpos:yvel=50

50 if dmge>80 or (abs(yvel)<1) then 60
   goto 50

60 locate 22,60:print "bottom ypos=";ypos:yvel=-50

70 if dmge>80 or (abs(yvel)<1) then 80
   goto 70

80 locate 23,60:print "top    ypos=";ypos

90 shot=5:locate 5,30:print "Kill self"
100 shot=10:goto 100
