*TRATEST                                                           
*-----------------------------------------------------------------------        

*-----------------------------------------------------------------------        
                               INTERNAL                                         
*-----------------------------------------------------------------------
      tra trabns
      integer mnum, ier
      sol bnssol
       real  tra(12)
      char*4 ident
      undeflm gprdel,cstdel,ditdel
*integer gprdel,cstdel,ditdel

*-----------------------------------------------------------------------        
                               EXTERNAL                                         
*-----------------------------------------------------------------------        

*-----------------------------------------------------------------------        
                             PROC                                               
*-----------------------------------------------------------------------        
*

      let mnum=1
*-----------------------------------------------------------------------        


************      
LABEL solid

************

let tra(1) = 1.
let tra(2) = 0.
let tra(3) = 0.
let tra(4) = 0.
let tra(5) = 1.
let tra(6) = 0.
let tra(7) = 0.
let tra(8) = 0.
let tra(9) = 1.
let tra(10) =  1.
let tra(11) = 1.
let tra(12) = 1.



dump tra,trabns
LOAD GICTEM IER
load giwtra mnum,6,'trabns',tra,trabns,ier
load gilerr ier

dump tra,trabns

label ende
      msgcntl 'Fertig'
     
      msg 'Aktion beendet//YES:Ende' YES
      if(kode eq YES) exit
end