10 PRINT "Compression Demo"
20 PRINT
30 PRINT "Loading 'Alice in Wonderland'..."
40 a$=FILE.READTEXT$("AliceInWonderland.txt")
50 PRINT "Bytes: " LEN(a$)
60 PRINT
70 PAUSE
80 PRINT "Compressing..."
90 b$=COMPRESS$(a$)
100 PRINT "Bytes: " LEN(b$)
110 PRINT
120 PAUSE
130 PRINT "Decompressing..."
140 c$=DECOMPRESS$(b$)
150 PRINT "Bytes: " LEN(c$)
160 PRINT
170 PRINT "Press any key."
180 SLEEP
190 PRINT c$
