home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a054 / 1.img / GETPRGS.EXE / DEMO.PRG next >
Encoding:
Text File  |  1992-03-09  |  954 b   |  36 lines
  1. // Demo.prg
  2. //
  3. // Note - good idea to integrate this with "on key" clause, or its
  4. // own reader
  5.  
  6. // Get Object Analyser Demo
  7.  
  8. #include "inkey.ch"
  9. MEMVAR GetList
  10.  
  11. FUNCTION GetObjDemo()
  12.  
  13. LOCAL cStock := 'T0157384', cName := Space(20)
  14. LOCAL nReOrder := 0, dReOrder := Date(), lReOrder := .F.
  15.  
  16.   SET DATE BRITISH
  17.   SET SCOREBOARD OFF
  18.  
  19.   * set offensive colour scheme ON
  20.   SET COLOR TO W+/B, GR+/G,,,GR/G
  21.   CLEAR
  22.   @ 0, 0 TO MaxRow() - 1, MaxCol()
  23.   @ 1, 1 SAY 'Get Object Analyser Demo'
  24.   @ 2, 0 SAY '├' + Replicate('─', MaxCol() - 1) + '┤'
  25.   SET KEY K_F10 TO GetObjAnalyser()
  26.   @  9, 1 SAY 'Stock code   ' GET cStock PICTURE '@!'
  27.   @ 10, 1 SAY 'Stock name   ' GET cName
  28.   @ 11, 1 SAY 'ReOrder level' GET nReOrder picture '999.99'
  29.   @ 12, 1 SAY 'ReOrder date ' GET dReOrder
  30.   @ 13, 1 SAY 'ReOrder ?    ' GET lReOrder picture 'Y'
  31.   @ 15, 1 SAY 'Press F10 to use Get Object Analyser'
  32.   READ
  33.   SET KEY K_F10 TO
  34.  
  35. RETURN (NIL)
  36.