; HLink Applicatino Transmission Script
; Octamed -  script


if exists work:applic/octamed

else
  ;remove rest of Octamed from the system
  cd work:applic
  del octamed
  del octamedplayer
  del ray.b-f.gfx#?
  del med_paths
  del octamed.config

  ;archive remote Octamed stuff
  echo "lha a d:Octamed.Lha dh1:music/Octamed" >> hl:execute
  echo "lha a d:Octamed.Lha dh1:music/Octamedplayer" >> hl:execute
  echo "lha a d:Octamed.Lha dh1:music/RAY.B-F.gfx#?" >> hl:execute
  echo "lha a d:Octamed.lha s:med_paths" >> hl:execute
  echo "lha a d:Octamed.lha s:octamed.config" >> hl:execute


  ;Receive Octamed archive
  echo "chd d:"            >> hl:execute
  wait 1
  echo "#send d:Octamed.lha" >> hl:execute

  ;Wait for receiving octamed archive
  del d:octamed.lha
  lab LOOP
  if exists d:octamed.lha
  else
    skip LOOP back
  endif

  wait 1
  echo "Goinging..."
  wait 1
  echo "Unpacking Application... "
  wait 1
  lha x -T d:octamed.lha work:applic/
  wait 4

endif

cd work:applic
run > nil: work:applic/octamed
del d:octamed.lha