home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Vector18.lha / Install_Software < prev    next >
Encoding:
Text File  |  1993-12-22  |  16.2 KB  |  638 lines
  1. ; $VER: Install Vector Connection Software 1.1 (17.09.93) © Henning Schmiedehausen 1993
  2.  
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;
  5. ; Generic Install Script 
  6. ;
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8.  
  9. (set #FirmenName "HK Computer")
  10. (set #Board      "Vector Connection I/O Board")
  11.  
  12. (set #Diskname   "VectorConnection")
  13.  
  14. (set @default-dest "SYS:")
  15.  
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. ;
  18. ; Language Section
  19. ;
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21.  
  22. (if (<> @language "english")
  23. ((if (<> @language "deutsch")
  24.  ( set @language "english")
  25.  )
  26. ))
  27.  
  28. (if (= @language "english")
  29. (
  30.  
  31.     (set #Yes    "Yes")
  32.     (set #No    "No")
  33.  
  34.     (set #prolog
  35.     (cat    "This program will install the software for your " #Board
  36.         " It will install all necessary drivers and programs."
  37.     ))
  38.  
  39.     (set #ask_boardrev
  40.     (cat     "Due to a bug on the board up to Rev. 2.7, it is necessary to "
  41.         "copy a special version of the device. Do you have a board revision "
  42.         "up to 2.7 (It is printed in the top left corner of your board)? "
  43.     ))
  44.  
  45.     (set #copy_duart
  46.     (cat     "The 'hkduart.device' must be copied to 'DEVS:'. This is "
  47.         "the driver for the serial ports."
  48.     ))
  49.  
  50.     (set #copy_pio
  51.     (cat     "The 'pio.device' must be copied to 'DEVS:'. This is "
  52.         "the driver for the parallel ports."
  53.     ))
  54.  
  55.     (set #copy_handlers
  56.     (cat     "These are the DOS Handlers for the parallel and serial "
  57.         "ports. They must be copied to L: They provide the DOS "
  58.         "Devices for the system."
  59.     ))
  60.  
  61.     (set #copy_dprefs
  62.     (cat    "This is a daemon program, which supplies User Preferences "
  63.         "for the serial ports. It should be installed in C:."
  64.     ))    
  65.  
  66.     (set #dprefs_startup
  67.     (cat    "To use the preferences mechanism of the Vector Connection Software "
  68.         "it is necessary to run the hkdprefs daemon on Startup. This will "
  69.         "install the necessary line in your User-StartUp. "
  70.     ))    
  71.  
  72.     (set #ask_redirect
  73.     (    cat "You can install a Commodity called 'Re-Director' to redirect "
  74.         "OpenDevice() calls from serial or parallel.device to the board. "
  75.         "Do you want to install it now? "
  76.     ))
  77.  
  78.     (set #ask_prefs
  79.     (    cat "Should I also copy the Preferences File to ENVARC: "
  80.     ))
  81.  
  82.     (set #copy_redirect
  83.     (cat    "These are redirection programs for the parallel.device and "
  84.         "the serial.device. They are useful if you use software which "
  85.         "uses hardwired device access. You don't need them if you've already "
  86.         "copied the Re-Director program."
  87.     ))
  88.  
  89.     (set #copy_duart_prefs
  90.     (cat    "You're running under AmigaOS 2.0 or above. So you can install "
  91.         "this GUI based program for serial preferences. It should be copied "
  92.         "to SYS:PREFS. "
  93.     ))
  94.  
  95.     (set #copy_duart_13_prefs
  96.     (cat    "You're running under AmigaOS 1.2 or 1.3. You really should upgrade to 2.0 or better. "
  97.         "You cannot use the GUI based preferences program but the text based preferences mechanism. "
  98.         "These are some example prefs files, which should be copied to DEVS:duart. "
  99.     ))    
  100.  
  101.     (set #copy_dosfiles
  102.     (cat    "You're running under AmigaOS 2.1 or above. So you can install "
  103.         "these DosDriver Mountlists into SYS:Storage/DosDrivers. If you "
  104.         "want them installed at Boottime, move their icons to DEVS:DosDrivers. "
  105.     ))    
  106.  
  107.     (set #copy_13_dosfiles
  108.     (cat    "You're running under AmigaOS 2.0 or lower. This will copy a Mountlist File "
  109.         "to the DEVS: Drawer. Cut and paste the entries to the Devs:Mountlist or use "
  110.         "the FROM option of mount to mount these DOS devices."
  111.     ))    
  112.  
  113.     (set #copy_includes
  114.     (cat    "These files are includes for C and Assembler programmers. They should be installed "
  115.         "in SC:Includes/Devices for SAS C or DINCLUDE:Devices for DICE. If you're using "
  116.         "another Compiler or Assembler, please consult its Manual. "
  117.     ))
  118.  
  119.     (set #install_parnet
  120.     (cat    "There are drivers for the Software Distillery Parnet included. You you want "
  121.         "them installed?"
  122.         
  123.     ))
  124.  
  125.     (set #install_par_dist
  126.     (cat    "This is the original Parnet distribution. It should be installed in "
  127.         "Work:PARNET."
  128.     ))
  129.  
  130.     (set #install_driver
  131.     (cat    "I can now create a real Parnet installation e.g. for use with CDTV. "
  132.     ))
  133.  
  134.     (set #install_par_device
  135.     (cat    "Which channel should be installed?\n"
  136.         "(Only one channel can be installed)"
  137.     ))
  138.  
  139.     (set #intpar "internal parallel port" )
  140.     (set #pio0par "Vector Connection Port 0" )
  141.     (set #pio1par "Vector Connection Port 1" )
  142.  
  143.     (set #local_unit     "Which ID should the local machine use?" )
  144.     (set #remote_unit    "Which ID should the remote machine use?" )
  145.     (set #par_dev_copy   "Copying the selected device" )
  146.     (set #par_hand_copy  "Copying the Parnet Handler" )
  147.     (set #par_serv_copy  "Copying the Parnet Server" )
  148.     (set #par_mount_copy "Copying the Mountlist" )
  149.  
  150.     (set #par_us_change  
  151.     (cat    "To start ParNet at boot time, it is necessary, that the Server is "
  152.         "run at startup time. This will install the necessary line in your User-StartUp."
  153.     ))
  154.  
  155. ))
  156.  
  157. (if (= @language "deutsch")
  158. (
  159.  
  160.     (set #Yes    "Ja")
  161.     (set #No    "Nein")
  162.  
  163.     (set #prolog
  164.     (cat "Dieses Programm installiert die Software für ihr " #Board ". "
  165.          " Alle notwendigen Programme und Treiber werden installiert."
  166.     ))
  167.  
  168.     (set #ask_boardrev
  169.     (cat     "Aufgrund eines Fehlers auf der Platine bis einschliesslich V 2.7 "
  170.         "ist es nötig, eine bestimmte Version des Devices zu kopieren. Haben sie "
  171.         "eine Platinenversion bis einschliesslich 2.7? "
  172.         "(Sie ist in der linken oberen Ecke der Platine aufgedruckt."
  173.     ))
  174.  
  175.     (set #copy_duart
  176.     (cat     "Das 'hkduart.device' muss nach  'DEVS:' kopiert werden. Dies ist "
  177.         "der Treiber für die seriellen Ports."
  178.     ))
  179.  
  180.     (set #copy_pio
  181.     (cat     "Das 'pio.device' muss nach 'DEVS:' kopiert werden. Dies ist "
  182.         "der Treiber für die parallelen Ports."
  183.     ))
  184.  
  185.     (set #copy_handlers
  186.     (cat     "Dies sind die DOS Handler für die Parallelen und Seriellen Schnittstellen. "
  187.         "Sie müssen nach L: kopiert werden und dienen als DOS Devices für das System. "
  188.     ))
  189.  
  190.     (set #copy_dprefs
  191.     (cat    "Dies ist ein Hintergrundprogramm, bei dem der serielle Treiber seine "
  192.         "Voreinstellungen abholt. Es sollte in C: installiert werden. "
  193.     ))
  194.  
  195.     (set #dprefs_startup
  196.     (cat    "Damit der Voreinstellungsmechanismus der Vector Connection Software "
  197.         "funktioniert, muss das Programm HKDPrefs beim Systemstart aufgerufen "
  198.         "werden. Jetzt kann die notwendige Zeile in ihrem User-Startup installiert "
  199.         "werden. "
  200.     ))
  201.  
  202.     (set #ask_redirect
  203.     ( cat "Sie können ein Commodity-Programm namens 'Re-Director' installieren, um "
  204.         "OpenDevice() Aufrufe vom  serial oder parallel.device auf die I/O Karte "
  205.         "umzulenken. Soll ich es installieren? "
  206.     ))
  207.  
  208.     (set #ask_prefs
  209.     (    cat "Soll ich auch die Voreinstellungsdatei nach ENVARC: kopieren? "
  210.     ))
  211.  
  212.  
  213.     (set #copy_redirect
  214.     (cat    "Dies sind Hilfsprogramme, die die Ausgabe des 'parallel.device' und des "
  215.         "'serial.device' auf die Vector Connection Software umlenken. Diese Programme "
  216.         "sind nützlich, wenn Sie Software verwenden wollen, die nicht auf andere "
  217.         "Devices umstellbar ist. Sie können diesen Schritt überspringen, wenn sie schon "
  218.         "das Re-Director Programm kopiert haben."
  219.     ))
  220.  
  221.     (set #copy_duart_prefs
  222.     (cat    "Sie haben AmigaOS 2.04 oder besser installiert. Sie können zum Wählen "
  223.         "der Voreinstellungen ein Programm mit graphischer Oberfläche verwenden. "
  224.         "Es soll nach SYS:Prefs kopiert werden. "
  225.     ))
  226.  
  227.     (set #copy_duart_13_prefs
  228.     (cat    "Sie haben noch AmigaOS 1.2 oder 1.3 installiert. Sie sollten auf AmigaOS 2.04 "
  229.         "updaten. Leider können sie das grafische Programm für die Voreinstellungen nicht "
  230.         "verwenden, sondern müssen die text-basierten Voreinstellungen verwenden. "
  231.         "Dies sind einige Beispiel-Files, die nach DEVS:duart kopiert werden sollten. "
  232.     ))
  233.  
  234.     (set #copy_dosfiles
  235.     (cat    "Sie verwenden AmigaOS 2.1 oder besser. Deshalb können sie DOSTreiber Mountlists "
  236.         "in SYS:Storage/DosDrivers installieren. Wenn sie wollen, daß diese Treiber schon "
  237.         "beim Booten gestartet werden, dann bewegen sie die Piktogramme der Treiber nach "
  238.         "DEVS:DosDrivers."
  239.     ))
  240.  
  241.     (set #copy_13_dosfiles
  242.     (cat    "Sie verwenden AmigaOS 1.2, 1.3 oder 2.04. Dies ist eine Beispiel Mountlist, die "
  243.         "Treiber für die seriellen und parallelen Ports enthält. Schneiden sie mit einem "
  244.         "Text-Editor die gewünschten Einträge aus und kopieren sie sie nach DEVS:Mountlist "
  245.         "oder verwenden sie die 'FROM' Option des Mount-Befehls. "
  246.     ))
  247.  
  248.     (set #copy_includes
  249.     (cat    "Diese Files sind Include-Dateien für die Programmentwicklung in C oder Assembler. "
  250.         "Sie sollten für SAS C in SC:Include/Devices und für DICE in DINCLUDE:Devices installiert "
  251.         "werden. Wenn sie einen anderen C Compiler oder Assembler verwenden, so schauen sie "
  252.         "bitte in dessen Handbuch. "
  253.     ))
  254.  
  255.     (set #install_parnet
  256.     (cat    "Zur Vector Connection Software gehören Treiber für das ParNet der Software Distillery. "
  257.         "Wollen sie, dass diese installiert werden? "
  258.  
  259.     ))
  260.  
  261.     (set #install_par_dist
  262.     (cat    "Dies ist die Original ParNet Software, wie sie im UseNet gepostet wurde. "
  263.         "Sie sollte nach Work:ParNet installiert werden. "
  264.     ))
  265.  
  266.     (set #install_driver
  267.     (cat    "Jetzt kann eine tatsächliche ParNet Installation (z.B. für das CDTV) durchgeführt werden. "
  268.     ))
  269.  
  270.     (set #install_par_device
  271.     (cat    "Welche der folgenden Schnittstellen soll installiert werden? "
  272.         "Achtung: Sie können nur eine der Schnittstellen installieren! "
  273.     ))
  274.  
  275.     (set #intpar "Eingebauter Parallel Port" )
  276.     (set #pio0par "Vector Connection Port 0" )
  277.     (set #pio1par "Vector Connection Port 1" )
  278.  
  279.     (set #local_unit     "Welche ID soll auf dieser Maschine verwendet werden?" )
  280.     (set #remote_unit    "Welche ID soll auf der anderen Maschine verwendet werden?" )
  281.     (set #par_dev_copy   "Ausgewähltes Device wird kopiert" )
  282.     (set #par_hand_copy  "Der ParNet Handler wird kopiert" )
  283.     (set #par_serv_copy  "Der ParNet Server wird kopiert" )
  284.     (set #par_mount_copy "Die Mountlist für das NET: Device wird kopiert" )
  285.  
  286.     (set #par_us_change
  287.     (cat    "Um ParNet direkt nach dem Booten verwenden zu können, muss ein Server "
  288.         "gestartet werden. Dies schreibt das notwendige Kommando in ihren User-Startup. "
  289.     ))
  290.  
  291.  
  292. ))
  293.  
  294. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  295. ;
  296. ; Installation Procedure
  297. ;
  298. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  299.  
  300. (welcome)
  301.  
  302. (message #prolog)
  303.  
  304. ; This is the dir we clicked
  305.  
  306. (complete 0)
  307.  
  308. (set sourcedir (pathonly @icon))
  309.  
  310. ;
  311. ; Copy the Devices
  312. ;
  313.  
  314.     (if    (askbool    (prompt        #ask_boardrev)
  315.             (help        @askbool-help)
  316.             (choices    #Yes #No)
  317.     )
  318.     (
  319.         (copylib    (prompt    #copy_duart)
  320.                 (help    @copylib-help)
  321.                 (source    (tackon sourcedir "devs/hkduart.device.KLUDGE"))
  322.                 (dest    "DEVS:hkduart.device")
  323.                 (confirm "expert")
  324.                 (optional "askuser")
  325.         )
  326.  
  327.     )
  328.     else
  329.     (
  330.         (copylib    (prompt    #copy_duart)
  331.                 (help    @copylib-help)
  332.                 (source    (tackon sourcedir "devs/hkduart.device.NOKLUDGE"))
  333.                 (dest    "DEVS:hkduart.device")
  334.                 (confirm "expert")
  335.                 (optional "askuser")
  336. )
  337.  
  338.     )
  339. )
  340.  
  341. (complete 5)
  342.  
  343. (copylib    (prompt    #copy_pio)
  344.         (help    @copylib-help)
  345.         (source    (tackon sourcedir "devs/pio.device"))
  346.         (dest    "DEVS:")
  347.         (confirm "expert")
  348.         (optional "askuser")
  349. )
  350.  
  351. (complete 10)
  352.  
  353. ;
  354. ; Copy the Handlers
  355. ;
  356.  
  357. (copyfiles    (prompt     #copy_handlers)
  358.         (help        @copyfiles-help)
  359.         (source     (tackon sourcedir "L"))
  360.         (dest        "L:")
  361.         (pattern    "#?")
  362.         (confirm    "expert")
  363.         (optional "askuser")
  364. )        
  365.  
  366. (complete 15)
  367.  
  368. ;
  369. ; Copy the DPrefs Daemon
  370. ;
  371.  
  372. (copyfiles    (prompt     #copy_dprefs)
  373.         (help        @copyfiles-help)
  374.         (source     (tackon sourcedir "C"))
  375.         (dest        "C:")
  376.         (pattern    "HKDprefs")
  377.         (confirm    "expert")
  378.         (optional "askuser")
  379. )
  380.  
  381. (complete 20)
  382.  
  383.         (startup    "Vector Connection Preferences Daemon"
  384.                 (prompt        #dprefs_startup)
  385.                 (help        @startup-help)
  386.                 (command    "run <nil: >nil: C:hkdprefs <nil: >nil:")
  387.         )
  388.  
  389.  
  390. (complete 25)
  391.  
  392. ;
  393. ; Copy the Redirectors
  394. ;
  395.  
  396. (if (>= (/ (getversion) 65536) 37)
  397.     (
  398.     (copyfiles    (prompt     #ask_redirect)
  399.             (help        @copyfiles-help)
  400.             (source     (tackon sourcedir "WBStartUp"))
  401.             (dest        "SYS:WBStartUp")
  402.             (pattern    "#?")
  403.             (infos)
  404.             (confirm    "expert")
  405.             (optional    "askuser")
  406.     )
  407.  
  408.     (copyfiles    (prompt     #ask_prefs)
  409.             (help        @copyfiles-help)
  410.             (source     (tackon sourcedir "prefs/Env-Archive"))
  411.             (dest        "ENVARC:")
  412.             (pattern    "#?")
  413.             (infos)
  414.             (confirm    "expert")
  415.             (optional    "askuser")
  416.     )
  417. ))
  418.  
  419. (copyfiles    (prompt     #copy_redirect)
  420.         (help        @copyfiles-help)
  421.         (source     (tackon sourcedir "TOOLS"))
  422.         (dest        "C:")
  423.         (pattern    "(ReDirect|PReDirect)")
  424.         (confirm    "expert")
  425.         (optional "askuser")
  426. )        
  427.  
  428. (complete 30)
  429.  
  430. ;
  431. ; Running under 2.0 or better : Copy the duart preferences program
  432. ;
  433.  
  434. (if (>= (/ (getversion) 65536) 37)
  435.     (
  436.     (copyfiles    (prompt     #copy_duart_prefs)
  437.             (help        @copyfiles-help)
  438.             (source     (tackon sourcedir "PREFS"))
  439.             (dest        "SYS:PREFS")
  440.             (pattern    "HKDuart")
  441.             (infos)
  442.             (confirm    "expert")
  443.             (optional    "askuser")
  444. ))
  445.  else
  446.     (
  447.     (copyfiles    (prompt     #copy_duart_13_prefs)
  448.             (help        @copyfiles-help)
  449.             (source     (tackon sourcedir "DEVS/duart"))
  450.             (dest        "DEVS:DUART")
  451.             (pattern    "#?")
  452.             (infos)
  453.             (confirm    "expert")
  454.             (optional    "askuser")
  455. )))
  456.  
  457. (complete 40)
  458.  
  459. ;
  460. ; Running under <=37: copy Mountlist Entries to DEVS:
  461. ;
  462. ; Running under >= 38: Copy mountfiles to DEVS:DOSDrivers
  463. ;
  464.  
  465. (if (>= (/ (getversion "c:Version") 65536) 38)
  466.     (
  467.     (copyfiles    (prompt     #copy_dosfiles)
  468.             (help        @copyfiles-help)
  469.             (source     (tackon sourcedir "DEVS/DOSDRIVERS"))
  470.             (dest        "SYS:Storage/DosDrivers")
  471.             (pattern    "#?")
  472.             (infos)
  473.             (confirm    "expert")
  474.             (optional    "askuser")
  475.     ))
  476. ;    else
  477.     (
  478.     (copyfiles    (prompt     #copy_13_dosfiles)
  479.             (help        @copyfiles-help)
  480.             (source     (tackon sourcedir (cat "DEVS/Mountlist_" @language)))
  481.             (newname    "Mountlist.Vector_Connection")
  482.             (dest        "DEVS:")
  483.             (confirm    "average")
  484.             (optional    "askuser")
  485. )))
  486.  
  487. (complete 50)
  488.  
  489. (copyfiles    (prompt     #copy_includes)
  490.         (help        @copyfiles-help)
  491.         (source     (tackon sourcedir "INCLUDE"))
  492.         (dest        "SC:Include")
  493.         (pattern    "#?")
  494.         (confirm    "average")
  495.         (optional    "askuser")
  496. )
  497.  
  498. (complete 60)
  499.  
  500. (if    (askbool    (prompt        #install_parnet)
  501.             (help        @askbool-help)
  502.             (choices    #Yes #No)
  503.     )
  504.     (
  505.     (copyfiles    (source     (tackon sourcedir "PARNET/Original"))
  506.             (dest        (askdir    (prompt        #install_par_dist)
  507.                         (help        @askdir-help)
  508.                         (default    "Work:Parnet")
  509.                         (newpath)
  510.                     ))
  511.             (pattern    "#?")
  512.             (infos)
  513.             (optional    "askuser")
  514.     )
  515.  
  516.     (complete 70)
  517.  
  518.     (if    (askbool    (prompt        #install_driver)
  519.                 (help        @askbool-help)
  520.                 (choices    #Yes #No)
  521.         )
  522.         (
  523. ;
  524. ; Parnet-Installation:
  525. ;
  526. ;
  527. ; User-StartUp aendern
  528. ;
  529.  
  530.         (set #devicename (tackon sourcedir (select     (set #devicenum    (askchoice    (prompt        #install_par_device)
  531.                                                 (help        @askchoice-help)
  532.                                                 (choices    #intpar #pio0par #pio1par)
  533.                                 ))
  534.                                 "PARNET/Original"
  535.                                 "PARNET/channel0"
  536.                                 "PARNET/channel1"
  537.         )))
  538.  
  539.         (set #local_unit (asknumber    (prompt        #local_unit)
  540.                         (help        @asknumber-help)
  541.                         (default    0)
  542.         ))
  543.  
  544.         (set #remote_unit (asknumber    (prompt        #remote_unit)
  545.                         (help        @asknumber-help)
  546.                         (default    1)
  547.         ))
  548.  
  549.  
  550.         (complete 80)
  551.  
  552.         (copyfiles    (prompt        #par_dev_copy)
  553.                 (help        @copyfiles-help)
  554.                 (source        #devicename)
  555.                 (dest        "DEVS:")
  556.                 (pattern    "parnet.device")
  557.                 (confirm    "expert")
  558.                 (optional    "askuser")
  559.         )
  560.  
  561.         (complete 85)
  562.  
  563.         (copyfiles    (prompt        #par_hand_copy)
  564.                 (help        @copyfiles-help)
  565.                 (source        (tackon sourcedir "PARNET/original"))
  566.                 (dest        "L:")
  567.                 (pattern    "netpnet-handler")
  568.                 (confirm     "expert")
  569.                 (optional    "askuser")
  570.         )
  571.  
  572.         (complete 86)
  573.  
  574.         (copyfiles    (prompt        #par_serv_copy)
  575.                 (help        @copyfiles-help)
  576.                 (source        (tackon sourcedir "PARNET/original"))
  577.                 (dest        "C:")
  578.                 (pattern    "netpnet-server")
  579.                 (confirm     "expert")
  580.                 (optional    "askuser")
  581.         )        
  582.  
  583.         (complete 87)
  584.  
  585.         (delete        "t:mountfile.vc" "force")
  586.  
  587.         (complete 88)
  588.  
  589.         (textfile    (append    (cat    "NET:       Stacksize  = 8000\n"
  590.                         "           Priority   = 5\n"
  591.                         "           GlobVec    = -1\n"
  592.                         "           Device     = devs:parnet.device\n"
  593.                         "           Surfaces   = 0\n"
  594.                         "           BlocksPerTrack = 0\n"
  595.                         "           Reserved   = 0\n"
  596.                         "           LowCyl     = 0\n"
  597.                         "           HighCyl    = 0\n"
  598.                         "           Filesystem = l:netpnet-handler\n"  
  599.                         "           Unit       = " 
  600.                         #local_unit 
  601.                         "\n"
  602.                         "#"
  603.                 ))
  604.                 (dest    "T:mountfile.vc")
  605.                 (safe)
  606.         )
  607.  
  608.         (complete 89)
  609.  
  610.         (copyfiles    (source        "T:mountfile.vc")
  611.                 (newname    "mountlist.net")
  612.                 (dest        "DEVS:")
  613.                 (optional    "askuser")
  614.         )        
  615.  
  616.         (complete 90)
  617.  
  618.         (delete        "t:mountfile.vc" "force")
  619.  
  620.         (complete 91)
  621.  
  622.         (startup    "Vector Connection Parnet Installation"
  623.                 (prompt        #par_us_change)
  624.                 (help        @startup-help)
  625.                 (command    (cat    "MOUNT NET: FROM DEVS:Mountlist.NET\n"
  626.                             "RUN NETPNET-SERVER UNIT " #remote_unit
  627.                 ))
  628.         )        
  629.  
  630.         (complete 92)
  631.  
  632.     ))
  633.  
  634. ))
  635.  
  636. (complete 100)
  637.  
  638.