use strict;


# load an URL
sub loadurl($) {
  my $req = shift;
  my $data;

  print "fetching $req\n";
  $data = get($req);
  if ((length($data) == 174848) && $req =~ /\.d64$/i) {
#    $req = s#^.*/##;
    print "mounting $req\n";
    # we got ourselves a d64, mount it
    for (0..682) {
      $::block[$_] = substr($data, $_*256, 256);
    }
    $::cd = $req;
    sendc(".");
  } elsif ($data) {
    print "loading " . length($data) . " bytes from $req\n";
    send_wsize($data);
  } else {
    print "load failed\n";
    sendc("?");
  }
}


return(1);