*LDRPRINT.PRG

CLEAR
? '                   ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
SET TALK OFF
SET PRINT ON
? CHR(27)+CHR(99)+CHR(49)
SET MARGIN TO 3
?
?
? CHR(14)+CHR(27)+CHR(33)
? '        CUBSCOUT PACK 240'
? CHR(15)+'                           Vilseck, GE'
STORE DATE() TO MDATE
?
?
? '                                                         �
        '+DTOC(MDATE)
?
?
? CHR(27)+CHR(81)+CHR(27)+CHR(34)
? 'SCOUT                  POSITION             RESIDENCE              �
    MAILING ADDRESS                HOME          DUTY'
?
STORE 0 TO LINECNT
DO WHILE .NOT. EOF()
IF DTOC(LEFT) = '  /  /  '
? SCOUT, POSITION, RESIDENCE, ADDRESS, HOME, DUTY
?
LINECNT = LINECNT + 1
SKIP
    IF LINECNT >21
    ? CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)
    ? CHR(10)+CHR(10)+CHR(10)
    ? 'SCOUT                  POSITION             RESIDENCE        �
          MAILING ADDRESS                HOME          DUTY '
    ?
    STORE 0 TO LINECNT
   ENDIF
ENDIF
ENDDO
?
?
? CHR(27)+CHR(69)
? 'Records Reported'+STR(LINECNT)
? CHR(12)
SET PRINT OFF
RETURN