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

 
Output of file : COMP5.PRG contained in archive : COMP5.ZIP
Clear all
Close All
Clear
Set Talk off
Set Echo Off
Set Escape off

DEFINE WINDOW NOTES FROM 0,0 TO 21,79 PANEL


Do While .T.
Clear
in_file = ""
out_file = ""
@24,0 Say padc("Hit to Exit Demo",80)
in_file = GETFILE('*', 'Select a File To Compress',"Browse",1)
out_file = PUTFILE('Compressed File Name:',"", 'CMP')
if !empty(in_FILE) AND !Empty(out_file)
=COMPF(in_file,out_file)
Endif
If LastKey()=27
Exit
Endif
in_file = ""
out_file = ""
in_file = GETFILE('CMP', 'Select a File To De-Compress',"Browse",1)
out_file = PUTFILE('DeCompressed File Name:',"", '*')
if !empty(in_FILE) AND !Empty(out_file)
=DECOM(in_file,out_file)
Endif
If LastKey()=27
Exit
Endif
Enddo
clear
modi file COMP5.DOC NOMOD WINDOW NOTES
Release Window NOTES
Clear all

*********************
Procedure COMPF
*********************
Parameters IN,OUT
Clear
@20,0 Say Padc("Will Compress File "+IN+" To :"+OUT,80)
Wait "Strike any key to COMPRESS File" Window
Set Talk on
If "2.5" $VERSION()
Set Libr to COMP5C25
ELSE
set lIBR TO COMP5C20
Endif
_FRet=COMPRESS(IN,OUT,"")
Set Talk off
Set Libr To
Clear
Wait "COMP5C "+Transf(_Fret,"999") Timeout 2
Return



*********************
Procedure DECOM
********************
Parameters IN,OUT
Clear
@20,0 Say Padc("Will DeCompress File "+IN+" To :"+OUT,80)
Wait "Strike any key to DeCompress File" Window
Set Talk on
If "2.5" $VERSION()
Set Libr to COMP5D25
ELSE
set lIBR TO COMP5D20
Endif
_FRet=DECOMP(IN,OUT)
Set Talk off
Set Libr To
Clear
Wait "COMP5D "+Transf(_Fret,"999") Timeout 2
Return




  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : COMP5.ZIP
Filename : COMP5.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/