home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / OnLineHelp.konrx < prev    next >
Text File  |  1994-08-16  |  781b  |  32 lines
  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro ARexxa: Test funkcji LINK portu KONWERSJA_OLH.1
  5.     Mogâ byê podane dwa argumenty (opcjonalne):
  6.     - nazwa node'a (rodziaîu instrukcji) do wyôwietlenia
  7.     - numer linii node'a widocznej u samej góry
  8.  
  9.     $VER: OnLineHelp.konrx 1.1 (29.6.94)
  10.  
  11.     Copyright © 1993, 1994 Kamil Iskra
  12. */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~SHOW("P","KONWERSJA_OLH.1") THEN
  17.     DO
  18.         SAY "Nie jest uruchomiony OnLineHelp!"
  19.         /* Ani razu nie uûyto klawisza HELP - OnLineHelp pozostaje uruchomiony
  20.             nawet po zamkniëciu okna pomocy - przestaje egzystowaê dopiero po
  21.             wyjôciu z programu Konwersja */
  22.         EXIT 10
  23.     END
  24. /* Poniûsza linia jest niezbëdna nawet przy uruchomieniu z poziomu Konwersji -
  25.     OnLineHelp ma swój wîasny port ARexxa */
  26. ADDRESS "KONWERSJA_OLH.1"
  27.  
  28. IF ARG() THEN
  29.     LINK ARG(1)
  30. ELSE
  31.     LINK Main
  32.