.key ""

if not exists ram:ParNET-DriveList

echo "Weise Laufwerke für Fernzugriff zu...        *e[32m"Noline
if exists parnet-drivelist
  copy ParNET-DriveList to RAM:
  echo "OK*e[31m"
else
  echo "FEHLER*e[31m"
endif

Echo "Starte Netzwerk-Server...                    *e[32m"NoLine
c/NETPNET-SERVER UNIT $ParNET
Echo "OK*e[31m"

Echo "Binde NET: ein...                            *e[32m"NoLine
MOUNT NET: from MountList.ParNET.$ParNET
echo "OK*e[31m"

assign nc: c/
path nc: add

c/netpatch NET: >nil:
; ^^ Bitte entfernen falls auf Ihrem Rechner nicht erforderlich!

echo "Warte auf Netzwerk-verbindung...             *e[32m"Noline
CD NET:RAM
echo "OK*e[31m"

Echo "Aktiviere Netzwerk-piktogramme...            *e[32m"NoLine
If Exists NET:RAM/ParNET-DriveList
  Execute NET:RAM/ParNET-DriveList
  echo "OK*e[31m"
Else
  echo "FEHLER*e[31m"
  echo "Benutze Standard-Laufwerke....               *e[32m"Noline
  COPY Node.rinfo to NET:RAM/
  COPY Node.rinfo to NET:SYS/
  ECHO "OK*e[31m"
EndIF

wait 1

else

echo "ParNET wird entfernt...              *e[32m" noline
assign >nil: NET: dismount
assign >nil: nc:
delete >nil: ram:parnet-drivelist
;breakname NetPNet-handler                ;semik.weg wenn breakname vorhanden

echo "Beendet*e[31m"
endif