/* AmigaAMP Random Skin Selector v 1.0 */ /* Made by Nils Erik Reklev Skilnand */ z=0 address Command 'List skins/ LFORMAT="%n" >ENV:Skinsl' CALL Open('Skinsl','ENV:Skinsl','r') do until ln="" z=z+1 ln=ReadLn('Skinsl') file.z=ln end Antall=z-1 call addlib('rexxsupport.library',36,-30) b=random(1,Antall,time('s')) Address Command 'AmigaAmp NG S='File.b''