home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CLIPB52.ZIP / SCHINKEL.ZIP / LANG_ENH.CH < prev    next >
Encoding:
Text File  |  1990-05-17  |  606 b   |  22 lines
  1. /* LANG_ENH.CH - Misc. Clipper 5.0 Langauge Enhancements
  2.  
  3.    Copyright (c) 1990; The DSW Group, Ltd.
  4. */
  5.  
  6. #command DEFAULT <var1> TO <value1> [,<varN> TO <valueN>] ;
  7. =>;
  8.          IF ( <var1> ==NIL); <var1>:=<value1>;  end;
  9.          [;IF ( <varN> ==NIL); <varN>:=<valueN>;  end]
  10.  
  11. #command EXIT IF <log> =>   IF (<log>); EXIT; END
  12. #command RETURN IF <log> => IF (<log>); RETURN; END
  13. #command LOOP IF <log> =>   IF (<log>); LOOP; END
  14.  
  15. #define K_ESC 27
  16. #translate LStr(<cExpr>) => LTrim(Str(<cExpr>))
  17.  
  18. // ANSWERS TO COMMON QUESTIONS
  19. #define YES (.T.)
  20. #define NO  (.F.)
  21.  
  22. // EOF: LANG_ENH.CH