dim control$,key$ as string
dim posx,posy,dir,drw,found as byte
dim shtx,shty,shard as Uinteger

sub Drawscreen()
   dim x as ubyte
   dim adr as uinteger
   adr=@Buffer
   for x=0 to 21
   next x
end sub

Drawscreen()

Shoottable1:
Shoottable2:
UDGs01:
Buffer:
