home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / dos / dbonlin2.exe / AUTOSELL.ZIP / AUTOSELL.PRG < prev    next >
Encoding:
Text File  |  1993-09-27  |  554 b   |  38 lines
  1. set procedure to sellproc
  2. use autosell
  3. set talk off
  4. set status off
  5. set heading off
  6. set scoreboard off
  7. set bell off
  8. set confirm on
  9. set escape off
  10.  
  11. XPACK=0
  12. USERNAME="ROY PEREIRA"
  13.  
  14. cmd=' '
  15. do while cmd <>'Q'
  16.   cmd='B'
  17.   clear
  18.   set color to n/w
  19.   @ 23,0 
  20.   @ 23,1 say "[S]ell - [B]uy - [Q]uit"
  21.   set color to w/n
  22.   @ 2,2 say "Are you selling or buying ?" get cmd picture "!"
  23.   read
  24.   if cmd='B'
  25.     do buy
  26.   else
  27.     if cmd='S'
  28.       do sell
  29.     endif
  30.   endif
  31. enddo
  32. set procedure to
  33. clear
  34. if XPACK=1
  35.   pack
  36. endif
  37. return
  38.