Category : Files from Magazines
Archive   : VOL11N13.ZIP
Filename : COMPR.SC

 
Output of file : COMPR.SC contained in archive : VOL11N13.ZIP
; COMPR.SC - PAL script to compress current table and reclaim
; disk space lost to deleted records.

; Make sure there is a current table
IF NIMAGES() = 0 THEN
MESSAGE "No table to compress!"
BEEP SLEEP 5000
QUIT
ENDIF

; Complete any pending operation and return to MAIN mode
IF SYSMODE() <> "Main" THEN
DO_IT!
ENDIF

; Save size of current table
OldSize = FILESIZE(TABLE()+".DB")

; Restructure table with no changes to recover disk space
MENU {Modify} {Restructure} SELECT TABLE() TYPEIN TABLE() {DO-IT!}

; Report on disk space saved by compression
NewSize = FILESIZE(TABLE()+".DB")
MESSAGE STRVAL(OldSize - NewSize) + " bytes saved!"
BEEP SLEEP 5000


  3 Responses to “Category : Files from Magazines
Archive   : VOL11N13.ZIP
Filename : COMPR.SC

  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/