home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
cubs
/
ldrprint.prg
< prev
next >
Wrap
Text File
|
1989-03-31
|
1KB
|
52 lines
*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