edit c 0 T 400
des * -
des -12:11,0 .
des -1:0,-8:7 .
add 1 1 1 p
add 2 2 2 p
add 3 3 3 p
add 4 4 4 p
add 5 5 5 p
add 6 6 6 v
add 7 7 7 v
add 98 98 98 g
give m * 1
setsect ow * ?xloc>0&yloc>0 1
setsect ow * ?xloc<-1&yloc>0 2
setsect ow * ?xloc>0&yloc<0 3
give m * ?own=0 -1
give c * ?own#0 1
des 1,-1 h
setse av 1,-1 9999
give l 1,-1 9999
give h 1,-1 9999
give o 1,-1 9999
give r 1,-1 9999
give m 1,-1 999
buil s 1,-1 cs 5 100
des 1,-1 *
buil p 1,-1 f1 5 100
des 1,-1 !
buil l 1,-1 sup 5 100
edit l 3,-1 L 1,-1
edit c 1/2/3/4/5 t 0 s 4