home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA4 / Tekst.ced < prev   
Text File  |  2002-10-23  |  240b  |  14 lines
  1. /*
  2.    Tekst.ced
  3. */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS 'rexx_ced'
  7.  
  8. /* pobranie tekstu */
  9. GETSTRING '"To jest tekst. Zmieï go!"' '"Wpisz co˜"'
  10. /* czy Cancel? */
  11. IF (RESULT ~= 'RESULT') THEN
  12.    /* nie... Wyprowadú tekst */
  13.    say "Wpisaîeô: " || RESULT
  14.