home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / PEGASYS II Demo / Macros / ReadArea < prev    next >
Encoding:
Text File  |  1988-08-04  |  496 b   |  21 lines

  1. {------------------------- READAREA -------------------------
  2.  
  3. {This macro sends the extracted data to the screen or out to a text file
  4.  
  5. {Sys determines how to output data
  6. PROMPT Prompt=`Send Output to a Text File Y-N`  Var=#AN Typ=Swit
  7. If (#AN == 1), Goto File:
  8.  
  9. {Sys outputs data to the screen
  10. LS Typ=Att Class=200 Del=\ \
  11. Goto End:
  12.  
  13. {Sys outputs data to the specified text file.
  14. File:
  15. PROMPT Prompt=`Name of Text File` Var=#Name Typ=Str
  16. LS Typ=Att Class=200 Del=\ \ File=\#Name\
  17.  
  18. End:
  19.  
  20. RETURN
  21.