1*0a0da059Sjeremylt!----------------------------------------------------------------------- 2*0a0da059Sjeremylt program test 3*0a0da059Sjeremylt 4*0a0da059Sjeremylt include 'ceedf.h' 5*0a0da059Sjeremylt 6*0a0da059Sjeremylt integer ceed,err 7*0a0da059Sjeremylt character arg*32 8*0a0da059Sjeremylt 9*0a0da059Sjeremylt 10*0a0da059Sjeremylt call getarg(1,arg) 11*0a0da059Sjeremylt 12*0a0da059Sjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 13*0a0da059Sjeremylt 14*0a0da059Sjeremylt call ceedview(ceed,err) 15*0a0da059Sjeremylt 16*0a0da059Sjeremylt call ceeddestroy(ceed,err) 17*0a0da059Sjeremylt 18*0a0da059Sjeremylt end 19*0a0da059Sjeremylt!----------------------------------------------------------------------- 20