home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / accrd1 / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  646 b   |  20 lines
  1. Option Base 1
  2.  
  3. Global Const AppName$ = "Accordian"
  4. Global Const CardSpace = 50  'Space between cards
  5.  
  6. Global Cards(52) As Integer  'Shuffled Deck
  7. Global Table(52) As Integer  'Laid out cards
  8.  
  9. Global Undoer(52) As Integer 'Undo Table: Last Table before move
  10. Global Undone As Integer
  11. Global UndoPiles As Integer
  12. Global UndoNextCard As Integer
  13.  
  14. Global NextCard As Integer    'Next card to be delt
  15. Global Piles As Integer       'Number of piles on table
  16. Global DisplayError As Integer'Should we display error messages?
  17. Global Compressed As Integer  'Should we display compressed?
  18. Global GamesWon, GamesLost As Integer 'Game stats
  19.  
  20.