home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / ldrprint.prg < prev    next >
Encoding:
Text File  |  1989-03-31  |  1.1 KB  |  52 lines
  1.  
  2. *LDRPRINT.PRG
  3.  
  4. CLEAR
  5. ? '                   ALIGN TOP OF PAPER WITH PRINTHEAD'
  6. ?
  7. WAIT ' Press any key to begin printing...'
  8. SET TALK OFF
  9. SET PRINT ON
  10. ? CHR(27)+CHR(99)+CHR(49)
  11. SET MARGIN TO 3
  12. ?
  13. ?
  14. ? CHR(14)+CHR(27)+CHR(33)
  15. ? '        CUBSCOUT PACK 240'
  16. ? CHR(15)+'                           Vilseck, GE'
  17. STORE DATE() TO MDATE
  18. ?
  19. ?
  20. ? '                                                         ì
  21.         '+DTOC(MDATE)
  22. ?
  23. ?
  24. ? CHR(27)+CHR(81)+CHR(27)+CHR(34)
  25. ? 'SCOUT                  POSITION             RESIDENCE              ì
  26.     MAILING ADDRESS                HOME          DUTY'
  27. ?
  28. STORE 0 TO LINECNT
  29. DO WHILE .NOT. EOF()
  30. IF DTOC(LEFT) = '  /  /  '
  31. ? SCOUT, POSITION, RESIDENCE, ADDRESS, HOME, DUTY
  32. ?
  33. LINECNT = LINECNT + 1
  34. SKIP
  35.     IF LINECNT >21
  36.     ? CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)
  37.     ? CHR(10)+CHR(10)+CHR(10)
  38.     ? 'SCOUT                  POSITION             RESIDENCE        ì
  39.           MAILING ADDRESS                HOME          DUTY '
  40.     ?
  41.     STORE 0 TO LINECNT
  42.    ENDIF
  43. ENDIF
  44. ENDDO
  45. ?
  46. ?
  47. ? CHR(27)+CHR(69)
  48. ? 'Records Reported'+STR(LINECNT)
  49. ? CHR(12)
  50. SET PRINT OFF
  51. RETURN
  52.