home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d445 / turbotext / rexx / speaklines.ttx < prev    next >
Text File  |  1991-01-24  |  1KB  |  58 lines
  1.  
  2. /** $VER: SpeakLines.ttx Demo 1.0 (26.12.90)
  3.  **
  4.  ** Send selected lines, or the whole document to the narrator device
  5.  **
  6.  ** Written by Martin Taillefer
  7.  **/
  8.  
  9.  
  10. OPTIONS RESULTS
  11. PARSE ARG attributes
  12.  
  13.  
  14.   GetBlkInfo
  15.   PARSE VAR RESULT selectMode dummy selLine .
  16.  
  17.   SetDisplayLock ON
  18.   SetBookmark 0
  19.  
  20.   IF selectMode = "ON" THEN DO
  21.     GetCursorPos
  22.     PARSE VAR RESULT curLine dummy .
  23.     IF curLine > selLine THEN DO
  24.       temp    = curLine
  25.       curLine = selLine
  26.       selLine = temp
  27.       Move curLine
  28.     END
  29.  
  30.     DO i = 1 TO (selLine - curLine)
  31.       GetLine
  32.       IF RESULT = "" THEN DO
  33.         LEAVE
  34.       END;
  35.  
  36.       text = 'SAY ' || attributes || ' "' || LEFT(RESULT,LENGTH(RESULT)-1) || '"'
  37.       ADDRESS COMMAND text
  38.       MoveDown
  39.     END
  40.  
  41.   END; ELSE DO
  42.     MoveSOF
  43.  
  44.     DO FOREVER
  45.       GetLine
  46.       IF RESULT = "" THEN DO
  47.         LEAVE
  48.       END;
  49.  
  50.       text = 'SAY ' || attributes || ' "' || LEFT(RESULT,LENGTH(RESULT)-1) || '"'
  51.       ADDRESS COMMAND text
  52.       MoveDown
  53.     END
  54.   END
  55.  
  56.   MoveBookmark 0
  57.   SetDisplayLock OFF
  58.