home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTORD.PRG < prev    next >
Text File  |  1994-01-16  |  258b  |  20 lines
  1. function Main()
  2.  
  3.    USE Dialog
  4.  
  5.    INDEX ON Name    TO DiaName
  6.    INDEX ON FivePro TO DiaFia
  7.  
  8.    SET INDEX TO DiaName, DiaFia
  9.  
  10.    DbSetOrder( 2 )
  11.  
  12.    MsgInfo( Str( IndexOrd() ) )
  13.  
  14.    MsgInfo( "Prueba Superada" )
  15.  
  16.  
  17.    // IndexOrd()
  18.  
  19. return
  20.