home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / cdrom / CDDA-Player / YACDP_1.2 / AREXX / Locale.yacdp < prev    next >
Text File  |  1994-12-05  |  1KB  |  38 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Show usage of localized scripts.     */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7. 'GETVAR LANGUAGE'
  8.  
  9. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  10.  
  11. select
  12.   when LANGUAGE='German' then
  13.     'REQUESTER DUMMY "AREXX" "Dieser Text ist in deiner Muttersprache!" "Ja, ich geb es zu"'
  14.   otherwise
  15.     'REQUESTER DUMMY "AREXX" "This message is in your mothertongue!" "How true"'
  16. end
  17.  
  18. /* --------------------------- END OF YOUR CODE -------------------------- */
  19. EXIT
  20.  
  21. SYNTAX:
  22. select
  23.   when LANGUAGE='German' then
  24.     SAY "AREXX Fehler in Zeile" SIGL ":" ERRORTEXT(RC)
  25.   otherwise
  26.     SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  27. end
  28. EXIT
  29.  
  30. ERROR:
  31. select
  32.   when LANGUAGE='German' then
  33.     SAY "YACDP Fehler in Zeile" SIGL ":" ERR
  34.   otherwise
  35.     SAY "YACDP error at line" SIGL ":" ERR
  36. end
  37. EXIT
  38.