!  wipe_go.map 
!  File initiated by the GO Button of the initialisation panel 
!  of file wipe_init.map 
! 
read uv 'wipe_name' 
if (wipe_proc.eq.0) 
  let wipe_proc 1 
endif 
if (wcol.eq.0) 
  let wcol 'wipe_proc' 
endif 
! 
! Seeking for power of 2 integer greater or equal to map_size 
if (.not.exist(tmp1)) then 
  define inte tmp1 
endif 
let tmp1 2 
for /while (tmp1.lt.map_size[1]) 
  let tmp1 'tmp1*2' 
next 
let map_size[1] 'tmp1' 
let tmp1 2 
for /while (tmp1.lt.map_size[2]) 
  let tmp1 'tmp1*2' 
next 
let map_size[2] 'tmp1' 
let map_size 'map_size[1]' 'map_size[2]' 
!