home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST33.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  466 b   |  28 lines
  1. ********************
  2.  
  3. FUNCTION Counting
  4.  
  5.    PARAMETER _count1, _count2, _count3
  6.  
  7.    IF PCOUNT() = 2
  8.       _count3 = .T.
  9.    ELSEIF PCOUNT() = 1
  10.       RETURN(.F.)
  11.    ELSEIF PCOUNT() = 0
  12.       _count1 = 24
  13.       _count2 = 65
  14.       _count3 = .T.
  15.    ENDIF
  16.  
  17.    @ _count1, _count2 SAY ""
  18.  
  19.    IF _count3
  20.       @ ROW(), COL() - IF( (COL() < 9), 0, 9) SAY "Record "
  21.    ENDIF
  22.  
  23.    @ ROW(),COL() SAY RECNO() PICT "@B"
  24.  
  25.    RETURN( !(INKEY() = 27) )
  26.  
  27.  
  28.