home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / EDG-TRAP.DMS / in.adf / Install_TrapFax next >
Encoding:
Text File  |  1994-03-15  |  17.3 KB  |  533 lines
  1. ; Script to install TrapFax, Version 1.1 (20-Nov-93)
  2.  
  3. ; ---- Environmental section ----
  4.  
  5. ; The number of K needed to install TrapFax
  6. (set diskspace_needed 820)
  7.  
  8. ; The current version
  9. (set tfax_ver 1)
  10. (set tfax_rev 1)
  11.  
  12. ; Source disk name
  13. (set source_disk "TrapFax-Install:")
  14.  
  15. ; Do not change. Magick.
  16. (set current_version (+ (* 65536 tfax_ver) tfax_rev))
  17. (set tfax_verstr (cat "TrapFax " tfax_ver "." tfax_rev))
  18.  
  19. (set osversion (/ (getversion "libs:version.library") 65536))
  20. ;(set osversion 36)
  21.  
  22. (set @app-name tfax_verstr)
  23.  
  24. ; ---- Language section ----
  25. ;  1 English
  26. ;  2 Deutsch
  27. ;  3 Français
  28. ;  4 Svenska
  29. ;  5 Nederlands
  30. ;  6 Dansk
  31.  
  32. (set lang 0)
  33. (if (>= osversion 38)
  34.     (
  35. ;        (run "c/lang english deutsch français svenska nederlands dansk" (safe))
  36.         (run "c/lang english deutsch" (safe))
  37.         (set x (getenv "pref_language"))
  38.         (set lang (- x 1))
  39.         (if (= lang -1) (set lang 0))
  40.     )
  41. )
  42.  
  43. (set msg_readme (select lang
  44.     "Read-Me"
  45.     "Lies-Mich"
  46.     "Read-Me"
  47.     "Read-Me"
  48.     "Read-Me"
  49.     "Read-Me"
  50. ))
  51.  
  52. (set msg_aborted (select lang
  53.     "\n\nInstallation aborted\n\n"
  54.     "\n\nInstallation abgebrochen\n\n"
  55.     "\n\nInstall terminé\n\n"
  56.     "\n\n(S) Installation aborted\n\n"
  57.     "\n\n(NL) Installation aborted\n\n"
  58.     "\n\n(DK) Installation aborted\n\n"
  59. ))
  60.  
  61. (set msg_intro (select lang
  62.     "\n\nThis program lets you install %s on a hard drive from scratch or upgrade from an older release."
  63.     "\n\nHiermit können Sie %s auf einer Festplatte von Grund auf neu installieren oder eine ältere Version aktualisieren."
  64.     "\n\nCe programme vous permet d'installer %s sur un disque dur pour la première fois, ou de mettre à jour une version antérieure."
  65.     "\n\nDetta program låter dig installera %s på en hårddisk. Det kan användas för att uppgradera en äldre version av TrapFax, eller för att installera från början."
  66.      "\n\nMet dit programma installeert u %s op een harddisk. Hetzij voor het eerst, hetzij om op een nieuwere versie over te gaan."
  67.     "\n\nDette program lader dig installere %s på en harddisk.  Det kan opgradere en ældre version eller installere påny."
  68. ))
  69.  
  70. ;(set msg_intro (select lang
  71. ;    "\n\nThis program lets you install %s on a hard drive from scratch."
  72. ;    "\n\nHiermit können Sie %s auf einer Festplatte von Grund auf neu installieren."
  73. ;    "\n\nCe programme vous permet d'installer %s sur un disque dur pour la première fois."
  74. ;    "\n\nDetta program låter dig installera %s på en hårddisk. Det kan användas för att installera från början."
  75. ;     "\n\nMet dit programma installeert u %s op een harddisk. Hetzij voor het eerst, hetzij om op een nieuwere versie over te gaan."
  76. ;    "\n\nDette program lader dig installere %s på en harddisk.  Det kan installere påny."
  77. ;))
  78.  
  79. (set msg_where? (select lang
  80.     "In which disk or drawer should a drawer called 'TrapFax' containing all files pertaining to %s be created?"
  81.     "In welcher Schublade oder auf welcher Platte soll eine Schublade 'TrapFax', die alle Dateien für %s beinhaltet, angelegt werden?"
  82.     "Dans quel tiroir ou partition voulez-vous créer un nouveau tiroir 'TrapFax', qui contient tous les fichier de %s?"
  83.      "På vilken partition eller låda skall en ny låda 'TrapFax' skapas, där %s placeras?"
  84.      "Op welke partitie of in welke lade moet een lade 'TrapFax', die alle bestanden voor %s bevat, worden aangemaakt?"
  85.     "På hvilken disk/i hvilken skuffer skal %s installeres?"
  86. ))
  87.  
  88. (set msg_already_installed (select lang
  89.     "\n%s is already installed in\n\n%s.\n\nInstall anyway?"
  90.     "\n%s ist bereits in\n\n%s\n\ninstalliert.\n\nTrotzdem installieren?"
  91.     "\n%s est déjà installé dans\n\n%s.\n\nInstaller quand même?"
  92.     "\n%s är redan installerat i\n\n%s.\n\nInstall?"
  93.      "\n%s is reeds in\n\n%s\n\ngeïnstalleerd. Install?"
  94.     "\n%s er allerede installeret i\n\n%s.\n\nInstall?"
  95. ))
  96.  
  97. (set help_already_installed (select lang
  98.     "\nThe current version of TrapFax is already installed in the directory shown.  Select 'Yes' if you want to re-install TrapFax, 'No' to abort."
  99.     "\nDie aktuelle Version von TrapFax befindet sich bereits im angegebenen Verzeichnis. Wählen Sie bitte 'Ja' um TrapFax trotzdem zu installieren, 'Nein' um den Installationsvorgang abzubrechen."
  100.     "\n%s est déjà installé dans\n\n%s.\n\nInstaller quand même?"
  101.     "\n%s är redan installerat i\n\n%s.\n\nInstall?"
  102.      "\n%s is reeds in\n\n%s\n\ngeïnstalleerd. Install?"
  103.     "\n%s er allerede installeret i\n\n%s.\n\nInstall?"
  104. ))
  105.  
  106. (set msg_newer_installed (select lang
  107.     "You are about to install %s in\n\n%s.\n\nHowever, version %ld.%ld is already installed.\n\nAre you sure you want to\noverwrite your newer version?"
  108.     "Sie versuchen gerade %s in\n\n%s\n\nzu installieren. Allerdings ist dort bereits Version %ld.%ld installiert.\n\nMöchten Sie wirklich Ihre\nneuere Version überschreiben?"
  109.     "Vous essayez d'installer %s dans\n\n%s,\n\nmais version %ld.%ld a été y installé auparavant.\n\nInstallation terminée. *****"
  110.     "Du ska just installera %s i\n\n%s.\n\nVersion %ld.%ld finns dock redan installerad.\n\nInstallationen avbryts. *****"
  111.      "U wilde %s in\n\n%s\n\ninstalleren. Daar is versie %ld.%ld echter reeds geïnstalleerd.\n\nInstallatie afgebroken. *****"
  112.     "Du er ved at installere %s i\n\n%s.\n\nVersion %ld.%ld er dog allerede installeret.\n\nInstallation afbrudt. *****"
  113. ))
  114.  
  115. (set msg_no_room (select lang
  116.     "The installation of %s requires about %ldK of free storage on drive %s which only has %ldK available.\n\nDo you want to continue anyway?"
  117.     "Um %s zu installieren, werden etwa %ldK freier Plattenplatz auf %s (etwa %ldK frei) benötigt.\n\nWollen Sie die Installation fortsetzen?"
  118.     "Pour installer %s, il nous faut environ %ldKo libres sur %s, qui n'a plus que %ldKo libres.\n\nDésirez-vous de terminer l'install? *****"
  119.      "Installationen av %s kräver ca %ldK fritt lagringsutrymme på enhet %s, som bara har %ldK ledigt.\n\nVill du avbryter installationen? *****"
  120.     "Voor het installeren van %s is ongeveer %ldK nodig. Op %s is echter slechts %ldK beschikbaar.\n\nWilt u *** Abort? *****"
  121.     "Installationen af %s behøver ca. %ldK fri diskplads på drev %s, som kun har %ldK fri.\n\nInstallation afbrudt. *****"
  122. ))
  123.  
  124. (set help_no_room (select lang
  125.     "TrapFax requires a certain amount of disk space on the hard disk.  There seems to be insufficient space available on the drive you want to install it on.\n\nSelect 'Yes' to ignore this warning and continue the installation procedure, select 'No' to abort."
  126.     "TrapFax benötigt mehr Speicherplatz als auf der von Ihnen angegebenen Partition verfügbar ist.  Das kann dazu führen, daß der Installationsprozeß nicht vollständig ausgeführt werden kann.\n\nWählen Sie 'Ja' um die Warnung zu ignorieren und TrapFax trotzdem zu installieren, wählen Sie 'Nein' um den Installationsvorgang abzubrechen."
  127.     "Pour installer %s, il nous faut environ %ldKo libres sur %s, qui n'a plus que %ldKo libres.\n\nDésirez-vous de terminer l'install? *****"
  128.      "Installationen av %s kräver ca %ldK fritt lagringsutrymme på enhet %s, som bara har %ldK ledigt.\n\nVill du avbryter installationen? *****"
  129.     "Voor het installeren van %s is ongeveer %ldK nodig. Op %s is echter slechts %ldK beschikbaar.\n\nWilt u *** Abort? *****"
  130.     "Installationen af %s behøver ca. %ldK fri diskplads på drev %s, som kun har %ldK fri.\n\nInstallation afbrudt. *****"
  131. ))
  132.  
  133. (set msg_abort_room (select lang
  134.     "Not enough diskspace on destination drive '%s'.\n\nInstallation aborted."
  135.     "Nicht genug Plattenplatz auf dem Ziellaufwerk '%s'.\n\nInstallation beendet."
  136.     "Pas assez d'espace libre sur le disque destination '%s'.\n\nInstallation terminée."
  137.      "(S) *** Not enough diskspace on destination drive '%s'.\n\nInstallationen avbryts."
  138.     "(NL) *** %s \n\nInstallatie afgebroken."
  139.     "(DK) %s Installation aborted."
  140. ))
  141.  
  142.  
  143. (set msg_create_dir (select lang
  144.     "Creating drawer"
  145.     "Erzeuge neue Schublade"
  146.     "Création du tiroir"
  147.      "Skapar låda"
  148.      "Nieuwe lade wordt aangemaakt"
  149.     "Opretter skuffe"
  150. ))
  151.  
  152. (set msg_which_lang? (select lang
  153.     "Which languages do you want to install?"
  154.     "Welche Sprachen sollen installiert werden?"
  155.     "Quelles sont les langages à installer?"
  156.     "Vilka språk skall installeras?"
  157.     "Welke taal moet geïnstalleerd worden?"
  158.     "Hvilke sprog ønsker du at installere?"
  159. ))
  160.  
  161. (set msg_welcome (select lang
  162.     "Welcome to the %s installation utility."
  163.     "Willkommen beim %s-Installationsprogramm."
  164.     "Bienvenu à l'utilitaire d'installation %s"
  165.      "Välkommen till installationsprogrammet för %s."
  166.      "Welkom bij het %s installatieprogramma."
  167.     "Velkommen til %s installationsprogramet."
  168. ))
  169.  
  170. (set msg_datatypes? (select lang
  171.     "Do you want to install the FAXX datatype on your system? It will allow you to view fax files using the MultiView utility."
  172.     "Soll der FAXX-DataType installiert werden? Er ermöglicht es, Fax-Dateien mit MultiView zu verwenden."
  173.     "Voulez-vous installer le 'datatype FAXX' sur votre système? Il permet d'utilisier MultiView avec des fichier fax."
  174.      "Vill du installera datatypen FAXX i ditt system? Med den, kan du t.ex titta på fax dokument från MultiView."
  175.      "Wilt u het FAXX DataType installeren? Dit maakt het mogelijk, fax-bestanden te bekijken met MultiView."
  176.     "Ønsker du at installere FAXX datatypen på dit system? Den giver dig mulighed for at se fax filer fra MultiView programmet."
  177. ))
  178.  
  179. (set help_datatypes? (select lang
  180.     "With the FAXX datatype installed you can use MultiView in addition to TFaxView to view faxes.  It also allows other programs that support datatypes to display fax files.\n\nThe FAXX data type will be installed on your system partition (SYS:)\n\nSelect 'Yes' to install the FAXX datatype, 'No' to skip this part of the installation procedure."
  181.     "Mit Hilfe des FAXX-DataTypes können Sie MultiView dazu benutzen, Faxe anzuzeigen.  Außerdem erlaubt es Programmen, die den DataType-Standard unterstützen, ebenfalls Faxe anzuzeigen.\n\nBitte wählen Sie 'Ja', um den FAXX-DataType auf Ihrer Systempartition (SYS:) zu installieren, wählen Sie 'Nein', wenn Sie das nicht wünschen."
  182.     "Voulez-vous installer le 'datatype FAXX' sur votre système? Il permet d'utilisier MultiView avec des fichier fax. *****"
  183.      "Vill du installera datatypen FAXX i ditt system? Med den, kan du t.ex titta på fax dokument från MultiView. *****"
  184.      "Wilt u het FAXX DataType installeren? Dit maakt het mogelijk, fax-bestanden te bekijken met MultiView. *****"
  185.     "Ønsker du at installere FAXX datatypen på dit system? Den giver dig mulighed for at se fax filer fra MultiView programmet. *****"
  186. ))
  187.  
  188. (set msg_examples? (select lang
  189.     "\nDo you want to install the example fax files?"
  190.     "\nWollen Sie Beispiel-Faxdateien installieren?"
  191.     "\nVoulez-vous installer les fichiers exemplaires?"
  192.     "\nVill du installera exempel fax filerna?"
  193.      "\nWilt u het *** fax example files *** installeren?"
  194.     "\n(DK) Do you want to install the example fax files?"
  195.     "\n(I) Do you want to install the example fax files?"
  196. ))
  197.  
  198. (set help_examples? (select lang
  199.     "TrapFax comes with example fax files.  Experimenting with these examples will help you understanding the program and getting acquainted with its functions.\n\nSelect 'Yes' to install the example faxes, select 'No' if you don't want them installed."
  200.     "TrapFax wird mit einer Reihe von Beispielfaxen ausgeliefert.  Mit Hilfe dieser Faxe können Sie den Umgang mit TrapFax leicht erlernen.\n\nWählen Sie 'Ja' um die Beispielfaxe zu installieren, 'Nein' um sie nicht zu installieren."
  201.     "Voulez-vous installer les fichiers exemplaires? *****"
  202.     "Vill du installera exempel fax filerna? *****"
  203.      "Wilt u het *** fax example files *** installeren? *****"
  204.     "(DK) Do you want to install the example fax files? *****"
  205.     "(I) Do you want to install the example fax files? *****"
  206. ))
  207.  
  208. ; ---- Program section ---- Oops, COBOL? :)
  209.  
  210. (welcome (msg_welcome tfax_verstr))
  211. (message (msg_intro tfax_verstr))
  212.  
  213. (complete 0)
  214.  
  215. (if (< osversion 37)
  216.     (abort "TrapFax needs at least version 2.04 of the operating system")
  217. )
  218.  
  219. (set tfaxdir
  220.     (set @default-dest
  221.         (tackon
  222.             (expandpath
  223.                 (askdir
  224.                     (prompt (msg_where? tfax_verstr))
  225.                     (help @askdir-help)
  226.                     (default @default-dest)
  227.                 )
  228.             )
  229.         "TrapFax"
  230.         )
  231.     )
  232. )
  233.  
  234.  
  235. ; Find out whether this may be an update from an earlier version...
  236.  
  237. (set is_update 0)
  238. (set ver_file (tackon tfaxdir "TrapFax.version"))
  239.  
  240. (if (exists ver_file)
  241.     (if (= (set installed_ver (getversion ver_file)) current_version)
  242.         (if (not (askbool (prompt (msg_already_installed tfax_verstr tfaxdir))
  243.                                 (help help_already_installed)
  244.                     )
  245.              )
  246.             (abort msg_aborted)
  247.         )
  248.         (if (< installed_ver current_version)
  249.             (
  250.                 (set is_update 1)
  251.             )
  252.             (if (not (askbool (prompt (msg_newer_installed tfax_verstr tfaxdir
  253.                             (/ installed_ver 65536) (bitand installed_ver 65535)))
  254.                                 (help @askbool-help)
  255.                         )
  256.                  )
  257.                 (abort msg_aborted)
  258.                 (set is_update 1)
  259.             )
  260.  
  261. ;            (abort (msg_newer_installed tfax_verstr tfaxdir
  262. ;                            (/ installed_ver 65536) (bitand installed_ver 65535))
  263. ;            )
  264.         )
  265.     )
  266. ;    (
  267. ;        (run (cat (tackon source_disk "c/initprefs") " " tfaxdir) (safe))
  268. ;    )
  269. )
  270.  
  271. (run (cat (tackon source_disk "c/initprefs") " " tfaxdir) (safe))
  272.  
  273. ; if update, delete obsolete stuff
  274. (if is_update
  275.     (
  276.         (run ("C:Delete >NIL: Quiet All " (tackon tfaxdir "Catalogs/#?")))
  277. ;        (run "C:Delete >NIL: Quiet All ENV:TrapFax/#? ENVARC:TrapFax/#?")
  278.         (run "C:Delete >NIL: Quiet LOCALE:Catalogs/#?/trapfax-printer.catalog")
  279.     )
  280. )
  281.  
  282. (if (< (getdiskspace (pathonly tfaxdir)) (* diskspace_needed 1024))
  283.     (if (not (askbool (prompt (msg_no_room tfax_verstr diskspace_needed (pathonly tfaxdir)
  284.                              (/ (getdiskspace (pathonly tfaxdir)) 1024)))
  285.                      (help help_no_room)
  286.                      (default 1)
  287.                 )
  288.          )
  289.          (abort (msg_abort_room (pathonly tfaxdir)))
  290.     )
  291. )
  292.  
  293. (complete 10)
  294.  
  295. (makedir tfaxdir (prompt msg_create_dir tfaxdir)
  296.                       (infos)
  297. )
  298.  
  299. (complete 20)
  300.  
  301. (copyfiles
  302.     (source (tackon source_disk "TrapFax"))
  303.     (dest tfaxdir)
  304.     (all)
  305.     (infos)
  306.     (optional force)
  307. )
  308.  
  309. (complete 29)
  310.  
  311. (if (not (exists (tackon tfaxdir "TrapFax.Log")))
  312.     (textfile
  313.         (dest (tackon tfaxdir "TrapFax.Log"))
  314.         (append "******  01/01 00:00 Preferences missing. Please set up using TFaxPrefs first.")
  315.     )
  316. )
  317.  
  318. (complete 30)
  319.  
  320. (copyfiles
  321.     (source (tackon source_disk "TrapFax/Storage/Presets"))
  322.     (dest "SYS:Prefs/Presets")
  323.     (all)
  324.     (infos)
  325.     (optional force)
  326. )
  327.  
  328. (complete 40)
  329.  
  330. (set do_it 0)
  331. (if (< @user-level 2)
  332.     (set do_it 1)
  333.     (set do_it (askbool (prompt msg_examples?)
  334.                         (help help_examples?)
  335.                         (default 1)
  336.                     )
  337.     )
  338. )
  339.  
  340. (complete 45)
  341.  
  342. (if do_it
  343.     (copyfiles
  344.         (source (tackon source_disk "Examples"))
  345.         (dest tfaxdir)
  346.         (all)
  347.         (infos)
  348.         (optional force)
  349.     )
  350. )
  351.  
  352. (complete 50)
  353.  
  354. (tooltype
  355.     (dest (tackon tfaxdir "TFaxAnswer"))
  356.     (setdefaulttool (tackon tfaxdir "TFaxDoor"))
  357. )
  358.  
  359. (tooltype
  360.     (dest (tackon tfaxdir "Templates/incoming"))
  361.     (setdefaulttool (tackon tfaxdir "TFaxView"))
  362.     (noposition)
  363. )
  364.  
  365. (tooltype
  366.     (dest (tackon tfaxdir "Templates/fax"))
  367.     (setdefaulttool (tackon tfaxdir "TFaxView"))
  368.     (noposition)
  369. )
  370.  
  371. (tooltype
  372.     (dest (tackon tfaxdir "Templates/ilbm"))
  373.     (noposition)
  374. )
  375.  
  376. (complete 60)
  377.  
  378. (if (not @pretend)
  379.     (copyfiles
  380.         (source (tackon tfaxdir "Storage/Printers"))
  381.         (dest "DEVS:Printers")
  382.         (all)
  383.         (infos)
  384.         (optional force)
  385.     )
  386. )
  387.  
  388. (complete 70)
  389.  
  390. (if (>= osversion 38)
  391.     (
  392.       (set langbits
  393.          (askoptions
  394.             (prompt msg_which_lang?)
  395.             (help @askoptions-help)
  396.             (choices "English"
  397.                      "Deutsch"
  398. ;                     "Français"
  399. ;                     "Svenska"
  400. ;                     "Nederlands"
  401. ;                     "Dansk"
  402.             )
  403.             (default -1)
  404.          )
  405.       )
  406.  
  407.       (set n 0)
  408.       (set langpat "(%")
  409.       (while (set this_lang (select n
  410.                           "English"
  411.                                     "Deutsch"
  412. ;                                    "Français"
  413. ;                                    "Svenska"
  414. ;                                    "Nederlands"
  415. ;                                    "Dansk"
  416.                                     ""
  417.                             )
  418.               )
  419.  
  420.               (
  421.                   (if (in langbits n)
  422.                      (set langpat (cat langpat "|" this_lang))
  423.                   )
  424.                   (set n (+ n 1))
  425.               )
  426.       )
  427.  
  428.       (set langpat (cat langpat ")"))
  429.  
  430.       (complete 80)
  431.  
  432.       (copyfiles
  433.          (source (tackon source_disk "TFCatalogs"))
  434.          (dest (tackon tfaxdir "Catalogs"))
  435.          (pattern langpat)
  436.          (optional force)
  437.       )
  438.     )
  439. )
  440.  
  441. (complete 90)
  442.  
  443. (copyfiles
  444.     (source source_disk)
  445.     (dest tfaxdir)
  446.     (pattern "(Read|Lies)#?")
  447.     (optional force)
  448.     (infos)
  449. )
  450.  
  451. (tooltype
  452.     (dest (tackon tfaxdir "Read-Me"))
  453.     (setdefaulttool "More")
  454.     (noposition)
  455. )
  456. (tooltype
  457.     (dest (tackon tfaxdir "Lies-Mich"))
  458.     (setdefaulttool "More")
  459.     (noposition)
  460. )
  461.  
  462. (complete 95)
  463.  
  464. ; Now do some magic if we are running under 3.0
  465.  
  466. (if (>= osversion 39)
  467. (
  468.     (set do_it 0)
  469.     (if (< @user-level 2)
  470.         (set do_it 1)
  471.         (set do_it (askbool (prompt msg_datatypes?)
  472.                             (help help_datatypes?)
  473.                             (default 1)
  474.                         )
  475.         )
  476.     )
  477.     (if (and do_it (not @pretend))
  478.         (
  479.             (copyfiles
  480.                 (source (tackon source_disk "Classes/Datatypes/faxx.datatype"))
  481.                 (dest "SYS:Classes/Datatypes")
  482.                 (optional force)
  483.             )
  484.  
  485.             (copyfiles
  486.                 (source (tackon tfaxdir "Storage/Datatypes"))
  487.                 (dest ("DEVS:Datatypes"))
  488.                 (all)
  489.                 (optional force)
  490.             )
  491.  
  492.            (run "C:AddDatatypes QUIET REFRESH")
  493.         )
  494.     )
  495.  
  496.    (complete 97)
  497.  
  498.     (tooltype
  499.         (dest (tackon tfaxdir "Templates/ilbm"))
  500.         (setdefaulttool "MultiView")
  501.         (noposition)
  502.     )
  503.  
  504.     (tooltype
  505.         (dest (tackon tfaxdir "Read-Me"))
  506.         (setdefaulttool "MultiView")
  507.         (noposition)
  508.     )
  509.     (tooltype
  510.         (dest (tackon tfaxdir "Lies-Mich"))
  511.         (setdefaulttool "MultiView")
  512.         (noposition)
  513.     )
  514.     (tooltype
  515.         (dest (tackon tfaxdir "TrapFax.log"))
  516.         (setdefaulttool "MultiView")
  517.     )
  518.  
  519. ))
  520.  
  521. (complete 99)
  522.  
  523. (if (>= osversion 39)
  524.     (set disp_readme (cat "run <nil: >nil: SYS:Utilities/MultiView \"" (tackon tfaxdir msg_readme) "\""))
  525.     (set disp_readme (cat "run <nil: >nil: SYS:Utilities/More \"" (tackon tfaxdir msg_readme) "\""))
  526. )
  527.  
  528. (run disp_readme)
  529.  
  530. (complete 100)
  531.  
  532. (exit)
  533.