Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CONV_001.ZIP
Filename : CONVERT.PRG

 
Output of file : CONVERT.PRG contained in archive : CONV_001.ZIP

* Program...: CONVERT.PRG
* Author....: W. Michel Kiteley, 1-303-776-4730 (voice)
* Purpose...: dBASE program lists convert data base to printer.
*
use CONVERT
set talk off
set heading off
set print on
set margin to 4
? ' TABLE OF CONVERSIONS FACTORS'
?
?
store 6 to LINE
store .T. to NEWPAGE
store 'A' to CAPITAL
do while .not. EOF()
do while NEWPAGE
? ' TO CONVERT: INTO: '+;
'MULTIPLY BY:'
? ' ============================= ============================ '+;
'================'
store .F. to NEWPAGE
enddo
if upper(substr(FROM,1,1))<>CAPITAL
?
store upper(substr(FROM,1,1)) to CAPITAL
store LINE+1 to LINE
endif
display off
store LINE+1 to LINE
skip
if LINE>56
eject
store 3 to LINE
store .T. to NEWPAGE
endif
enddo
if LINE<57
eject
endif
set margin to 0
set print off
set talk on
use
return
*
* Program...: CONVERT.PRG