home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / cubprint.prg < prev    next >
Encoding:
Text File  |  1989-03-31  |  1.3 KB  |  63 lines
  1.  
  2. *CUBPRINT.PRG
  3.  
  4. CLEAR
  5. SET TALK OFF
  6. *SET PRINT ON
  7. *SET MARGIN TO 5
  8. *? CHR(27)+CHR(99)+CHR(49)
  9. ?
  10. ?
  11. ?
  12. ?
  13. ? CHR(14)+CHR(27)+CHR(33)
  14. ? '      CUBSCOUT PACK 240'
  15. ? CHR(15)+'                        Vilseck, GE'
  16. ?
  17. ?
  18. STORE DATE() TO MDATE
  19. IF MDEN = ' ALLCUBS'
  20.     ? '                                                          ì
  21.      '+MDEN
  22. ELSE
  23. ? '                                                               ì
  24.   '+MDEN                   
  25. ENDIF
  26. ? '                                                               '+DTOC(MDATE)
  27. ?
  28. ?
  29. ?
  30. ? CHR(27)+CHR(81)+CHR(27)+CHR(34)
  31. ? 'SCOUT                         DOB            RESIDENCE          ì
  32.                     HOME               DUTY              DEN'
  33. ?
  34. STORE 1 TO PAGCNT
  35. STORE 0 TO PAGECNT
  36. STORE 0 TO LINECNT
  37. DO WHILE .NOT. EOF()
  38. ? SCOUT, DOB, '     ', RESIDENCE,' ', HOME, DUTY, DEN
  39. ?
  40. LINECNT = LINECNT+1
  41. SKIP
  42.     IF LINECNT >21
  43.     ?
  44.     ? CHR(12)
  45.     ? CHR(10)+CHR(10)+CHR(10)+CHR(10)
  46. ? 'SCOUT                         DOB            RESIDENCE           ì
  47.                    HOME               DUTY              DEN'
  48.     ?
  49.     STORE 0 TO LINECNT
  50.     PAGECNT = PAGECNT + 1
  51.     PAGCNT = PAGCNT + 1
  52.     ENDIF
  53. ENDDO
  54. ?
  55. ? CHR(27)+CHR(69)
  56. ? 'RECORDS REPORTED' +STR(LINECNT + PAGECNT * 22)
  57. ?
  58. ?
  59. *? '                              Page ' +STR(PAGCNT) 
  60. ? CHR(12)
  61. SET PRINT OFF
  62. RETURN
  63.