home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST36.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.0 KB  |  60 lines
  1. ********************
  2.  
  3. FUNCTION Verify
  4.  
  5.    PARAMETERS _comp, _extra
  6.  
  7.    DO CASE
  8.    CASE PCOUNT() = 0
  9.       _comp = "YyNn"
  10.       _extra = .F.
  11.    CASE PCOUNT() = 1
  12.       IF TYPE("_comp") = "L"
  13.          _extra = _comp
  14.          _comp = "YyNn"
  15.       ELSE
  16.          _extra = .F.
  17.       ENDIF
  18.    ENDCASE
  19.  
  20.    scrpause = IF((TYPE("scrpause") = "U"), 100, scrpause)
  21.  
  22.    DO WHILE .T.
  23.       the_var = ""
  24.       inside = INKEY(0)
  25.       DO CASE
  26.       CASE inside = 4
  27.          the_var = "Y"
  28.       CASE inside = 19
  29.          the_var = "N"
  30.       OTHERWISE
  31.          the_var = CHR(inside)
  32.       ENDCASE
  33.       IF the_var$_comp .OR. inside = 27
  34.          EXIT
  35.       ENDIF
  36.    ENDDO
  37.    IF the_var$SUBSTR(_comp,1,2)
  38.       ?? "Yes"
  39.       IF _extra
  40.          INKEY(0)
  41.       ELSE
  42.          FOR qaz = 1 TO scrpause
  43.          NEXT
  44.       ENDIF
  45.       RETURN(.T.)
  46.    ELSE
  47.       ?? "No "
  48.       IF _extra
  49.          INKEY(0)
  50.       ELSE
  51.          FOR qaz = 1 TO scrpause
  52.          NEXT
  53.       ENDIF
  54.       RETURN(.F.)
  55.    ENDIF
  56.  
  57. * End of File
  58.  
  59.  
  60.