home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0970.lha / ADM / ARexx / DisplayAddress.ttx < prev    next >
Text File  |  1993-06-13  |  2KB  |  56 lines
  1. /* $VER InsertAddress.ttx 1.1 (11.02.93)
  2.  
  3.    Makro fⁿr TurboText.
  4.  
  5.    Fⁿgt die zum unter dem Cursor befindlichen Nachnamen zugeh÷rige
  6.    Adresse in den Text ein. Fragt nach, ob Adresse eingefⁿgt werden
  7.    soll - wenn nicht, dann wird weitergesucht.
  8.  
  9.    Es k÷nnten auch Patterns benutzt werden, doch leider liefert die
  10.    GETWORD-Funktion von TTX keine Patterns wie #? zurⁿck.
  11.  
  12.    Written by Jan Geissler.
  13.                                                                  */
  14.  
  15.  
  16. OPTIONS RESULTS
  17.  
  18. GETWORD                      /*    Wort unter Cursor holen */
  19. WORT = RESULT
  20.  
  21. ADDRESS 'ADM.1'
  22.  
  23. fst = 1                      /* Anfangsposition = 1 (= erste Adresse) */
  24. res = 0
  25.  
  26. DO FOREVER                   /* Endlosschleife */
  27.  
  28.    ADM.LASTNAME = WORT
  29.    SEARCH fst ADM            /* Eintrag suchen */
  30.    res = RESULT
  31.  
  32.    IF res >-1 THEN DO        /* Rⁿckgabewert = Nummer der gefundenen
  33.                                 Adresse */
  34.  
  35.       GETADDRESS RESAD       /* Adresse holen in Stemvariable RESAD   */
  36.  
  37.            DISPLAY
  38.  
  39.            EXIT                /* ... und Programm verlassen          */
  40.    END
  41.    ELSE                      /* Fehler aufgetreten */
  42.  
  43.       ADDRESS
  44.       IF res=-2 THEN msg="AdressSpeicher_leer!"
  45.       IF res=-3 THEN msg="Nicht_genug_Speicher!"
  46.       IF res=-4 THEN msg="Aufruf_v.SEARCH_falsch!"
  47.       IF res=-5 THEN msg="Interner_Fehler_in_Search"
  48.       IF res=-6 THEN msg="Kein_Suchparam.in_Stem"
  49.       IF res=-7 THEN msg="SearchPos_ungⁿltig!"
  50.       REQUESTBOOL "Fehler!" msg
  51.  
  52.       EXIT
  53.  
  54.    END /* IF */
  55. END /* DO */
  56.