home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a054 / 1.img / GETEXS.EXE / GETEX06.PRG < prev   
Encoding:
Text File  |  1992-03-16  |  842 b   |  40 lines
  1. // Getex06.prg
  2. //
  3. // Get command which only allows user to exit if ALL valid clauses
  4. // are satisfied
  5.  
  6. #command READ => ReadModal(GetList);          ;
  7.                  ReadValid(GetList);          ;
  8.                  GetList := {}
  9.  
  10. MEMVAR GetList
  11.  
  12. FUNCTION Getex06
  13.  
  14. LOCAL nVar1 := 0, ;
  15.       nVar2 := 0, ;
  16.       nVar3 := 0
  17.  
  18.   CLEAR SCREEN
  19.   @ 10, 10 SAY "Must be > 10" GET nVar1 VALID nVar1 > 10
  20.   @ 11, 10 SAY " Must be > 5" GET nVar2 VALID nVar2 >  5
  21.   @ 12, 10 SAY " Must be < 0" GET nVar3 VALID nVar3 <  0
  22.   READ
  23.  
  24. RETURN NIL
  25.  
  26.  
  27. FUNCTION ReadValid(GetList)
  28.  
  29. LOCAL nGet := 1
  30.  
  31.   DO WHILE nGet <= Len(GetList)
  32.     DO WHILE ValType(GetList[nGet]:postBlock) == "B" .AND. ;
  33.              !Eval(GetList[nGet]:postBlock, GetList[nGet])
  34.       ReadModal({GetList[nGet]})
  35.     ENDDO
  36.     nGet++
  37.   ENDDO
  38.  
  39. RETURN NIL
  40.