*CUBPRINT.PRG

CLEAR
SET TALK OFF
*SET PRINT ON
*SET MARGIN TO 5
*? CHR(27)+CHR(99)+CHR(49)
?
?
?
?
? CHR(14)+CHR(27)+CHR(33)
? '      CUBSCOUT PACK 240'
? CHR(15)+'                        Vilseck, GE'
?
?
STORE DATE() TO MDATE
IF MDEN = ' ALLCUBS'
    ? '                                                          �
     '+MDEN
ELSE
? '                                                               �
  '+MDEN                   
ENDIF
? '                                                               '+DTOC(MDATE)
?
?
?
? CHR(27)+CHR(81)+CHR(27)+CHR(34)
? 'SCOUT                         DOB            RESIDENCE          �
                    HOME               DUTY              DEN'
?
STORE 1 TO PAGCNT
STORE 0 TO PAGECNT
STORE 0 TO LINECNT
DO WHILE .NOT. EOF()
? SCOUT, DOB, '     ', RESIDENCE,' ', HOME, DUTY, DEN
?
LINECNT = LINECNT+1
SKIP
    IF LINECNT >21
    ?
    ? CHR(12)
    ? CHR(10)+CHR(10)+CHR(10)+CHR(10)
? 'SCOUT                         DOB            RESIDENCE           �
                   HOME               DUTY              DEN'
    ?
    STORE 0 TO LINECNT
    PAGECNT = PAGECNT + 1
    PAGCNT = PAGCNT + 1
    ENDIF
ENDDO
?
? CHR(27)+CHR(69)
? 'RECORDS REPORTED' +STR(LINECNT + PAGECNT * 22)
?
?
*? '                              Page ' +STR(PAGCNT) 
? CHR(12)
SET PRINT OFF
RETURN
  /  /  '
?
?
? '