/*
    $VER: ShowFkeys.zprx (17.09.94) Copyright (c) Ulf Böttcher

    Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man die
    Belegung der Funktionstasten anzeigen lassen kann. Nach Eingabe
    der Funktionstastennummer ( F10>=>10 ). Wird die entsprechende
    Zeile von fkeys.zp ausgeführt.

    Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
    mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
    nicht ohne Erlaubnis des Autors.

    Sie erreichen den Autor wie folgt:

       Ulf Böttcher    EMail: HULK@Green.sh.sub.de

    Hinweise zur Installation:

    Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
    fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
    "F1:SYS:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s" hinzu.
    Alternativ können auch folgende Zeilen in die Datei usermenus.zp
    eingefügt werden:

    *Funktionstasten anzeigen
    Sys:Rexxc/RX ZP:Rexx/ShowFkeys.zprx %s

*/

/*******************************************************************************/
/*    In der Variablen Pfadname muß der Pfad zu fkeys.zp im ZPoint Verzeichnis */
/*    eingetragen werden.                                                      */
/*******************************************************************************/

Pfadname = "ZP:fkeys.zp"

/*******************************************************************************/

OPTIONS RESULTS
PARSE ARG port
ADDRESS VALUE(port)
LF = '0a'x
/* Rexxreqtools.lib öffnen */
call addlib("rexxreqtools.library", 0, -30, 0)

/* Rexxsupport.library öffnen (für SHOWLIST() ) */
call addlib("rexxsupport.library",  0, -30, 0)

GUILOCK ON
CALL Open('Ftasten',Pfadname,"READ")
zeile = ''                
taste = ''
tasten = ''
text = ''
befehle = ''
DO FOREVER
    zeile = Strip(ReadLn('Ftasten'),"T","%s")
    IF zeile = ''
        THEN BREAK
    taste = Left(zeile,Index(zeile,":"))
    text = text || taste || SubStr(zeile,Lastpos("/",zeile)+1) || LF
    tasten = tasten || taste || "|"
    befehle = befehle || SubStr(zeile,LastPos(zeile,"/")+1) || "|"
END
IF tasten = '' THEN
    DO
        GUILOCK OFF
        REQUESTNOTIFY "Keine Funktionstasten belegt!"
        EXIT(0)
    END

text = text || LF || LF || "Funktionstastennummer eingeben" || LF || "F10 <=> 10"
test = 0
do  UNTIL test = 1
    Nummer = rtgetstring(,text,
                        ,"Abfrage....",,"rt_pubscrname=" || port "rt_lockwindow=true")
    IF Nummer = '' THEN
      DO
          GUILOCK OFF
          EXIT
      END
    test = Index(tasten,"F" || Nummer )
END
befehl = SubStr(befehle,Index(befehle,"F" || Nummer))
befehl = Left(befehl,Index(befehl,"|")-1)
befehl = SubStr(befehl,Index(befehl,":")+1)
ADDRESS command befehl port
GUILOCK OFF
EXIT(0)