export ctr=1
while [ $ctr -le 4 ];do
export filename=`kdialog --getopenfilename --title=Select\ a\ disk\ for\ floppy\ drive\ $ctr $PWD/disks 2>/dev/null`
export ctr=$(($ctr+1))
done
cat|ncat 127.0.0.1 1234 -i 20ms <<EOF
file="$filename";for tag, filename in pairs(manager.machine.images) do;f=(manager.machine.images[tag].filename);if (f) then manager.machine.images[tag]:load(file) end end
EOF
