home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / cubs.prg < prev    next >
Encoding:
Text File  |  1989-03-31  |  684 b   |  31 lines
  1. *CUBS.PRG
  2.  
  3. CLEAR
  4. @ 12,30 SAY ' Loading Cubs Program '
  5. SET TALK OFF
  6. SET PROCEDURE TO MAIN
  7. SELECT 1
  8. USE CUBS INDEX CUBS
  9. SELECT 2
  10. USE CUBLDR INDEX CUBLDR
  11. CLEAR
  12. @ 6,12 SAY '     WELCOME TO CUB SCOUT PACK 240 PERSONNEL SYSTEM'
  13. ?
  14. ?
  15. ?
  16. ? '             Please be patient while I update the records for you.'
  17. ? '  Some of the Cub Scouts have had birthdays since you last ran this program.'
  18. ? '                         I have to check their age.'
  19. SELECT 1
  20. GO TOP
  21. DO WHILE .NOT. EOF()
  22. @ 18,21 SAY 'Checking Record Number: '+STR(RECNO())
  23. STORE DATE() - DOB TO DAYS
  24. SET DECIMALS TO 1
  25. STORE DAYS / 367.3 TO MAGE
  26. SET SAFETY OFF
  27. REPLACE AGE WITH MAGE
  28. SKIP
  29. ENDDO
  30. DO MENU
  31.