home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 012 / card_ce.zip / ENTRA.PRG < prev    next >
Text File  |  1994-07-23  |  1KB  |  44 lines
  1. set color to w+
  2. @ 02,31 say 'E N T E R   C A R D'
  3. set color to bg
  4. use card
  5. * use b:card
  6. stor ' ' to op
  7. do while op <> 'P'
  8.     stor '    ' to cardp
  9.     @ 17,20 say 'Card Number........--> ' get cardp  pict '!!!!'
  10.     read
  11.     loca for cardn = cardp
  12.     set color to g
  13.     if .not. eof()
  14.         @ 21,01 say 'This card already exist. Duplicate/Reenter/Quit ' ì
  15. get op pict '!'
  16.         set color to g+
  17.         @ 21,26 say 'D'     
  18.         @ 21,36 say 'R'
  19.         @ 21,44 say 'Q'
  20.         read
  21.         if uppe(op) = 'D'
  22.             appe blan
  23.             stor 'P' to op
  24.         endif
  25.     endif
  26.     if eof()
  27.         appe blan
  28.         stor 'P' to op
  29.     endif
  30.     if uppe(op) = 'Q'
  31.         close all
  32.         return
  33.     endif
  34. enddo
  35. set color to r+
  36. @ 07,20 say 'Company Name.......--> ' get comp pict '!!!!!!!!!!!!!!!'
  37. @ 09,20 say 'Year...............--> ' get year
  38. @ 11,20 say 'Player First Name..--> ' get fname pict '!!!!!!!!!!!!!!!'
  39. @ 13,20 say 'Playes Last Name...--> ' get lname pict '!!!!!!!!!!!!!!!'
  40. @ 15,20 say 'Team Name..........--> ' get team pict '!!!!!!!!!!!!!!!'
  41. @ 17,20 say 'Card Number........--> ' get cardp pict '!!!!'
  42. read
  43. repl cardn with cardp
  44. return