# Copyright (c) 2002-08 Peter Guntert. All rights reserved.
## 7MACROS: random_all - CYANA macro
##
## Parameters: structures=<integer>           (required)
##
## Creates n random structures in the structure memories.

var echo i s

syntax $macro:structures=0<@i

echo:=off; s=seed
do i 1 structures
  random info=none
  structure copy 0 i
  print "    Random structure $i created with seed $seed." level=full
end do
structure select 1..$structures
print "    $structures random structures created (seed $s)."