DIM text AS STRING, text2 AS STRING
aaaa$ = "VCode v1.0 Compressor"
aaab$ = "(C)2000 by Michael Vincent. All rights reserved. If you are viewing this, you are infringing on my copyright!"
PRINT
PRINT "VCode Compressor v1.0"
PRINT "(C)2000 by Michael Vincent - michael@radicalsoft.org"
PRINT
LINE INPUT "Enter text:", text$
IF LEN(text$) = 0 THEN
        PRINT "No text was entered!"
        PRINT
        SYSTEM
END IF
t = LEN(text$)
FOR x = 1 TO t
  RESTORE: counter = 128
  FOR y = 1 TO 102
  READ twobyte$: counter = counter + 1
        tmp = INSTR(text$, twobyte$)
        IF tmp <> 0 THEN
                text2$ = text$
                text$ = ""
                FOR z = 1 TO LEN(text2$)
                        IF z = tmp THEN
                                text$ = text$ + CHR$(counter): z = z + 1
                        ELSE
                                text$ = text$ + MID$(text2$, z, 1)
                        END IF
                NEXT z
        END IF
  NEXT y
NEXT x
final$ = ".db "
FOR x = 1 TO LEN(text$)
        temp$ = MID$(text$, x, 1)
        final$ = final$ + "$" + HEX$(ASC(temp$)) + ","
NEXT x
final$ = final$ + "$00"
OPEN "vcode.txt" FOR OUTPUT AS #1
PRINT #1, ";VCode v1.0 by Michael Vincent"
PRINT #1, ";VCode algorithm (C) 2000 by Michael Vincent."
PRINT #1, ""
PRINT #1, final$
CLOSE
PRINT
PRINT "Compressed string: "; final$
PRINT "Written to 'vcode.txt' also."
SYSTEM
DATA "is","nt","he","ei","et","ea","ay","as","or","nd"
DATA "it","er","in","on","pa","ar","um","el","e.","ic"
DATA "e!","ey","ss","mm","en","ll","ro","od","hi","go"
DATA "at","to","ad","am","an","ax","be","by","cc","co"
DATA "s.","g.","t:","do","ha","he","hp","id","if","me"
DATA "io","se","op","sh","ng","wa","xt","ta","..","ib"
DATA "rt","e?","r.","pi","ma","th","Mi","Bu","Ex","Fi"
DATA "Te","Ca","lc","ul","li","br","Al","ex","Ro","pe"
DATA "r.","Er","nc","e ","s ","r ","Da","n ","En","gl"
DATA "de","Ja","n ","Ko","va","cs","te","st","Th","lo"
DATA "Se","He"