[Date Prev][Date Next][Subject Prev][Subject Next][
Date Index][
Subject Index]
XY3 conversions
- Subject: XY3 conversions
- From: "Morris Krok" essence@xxxxxxxx
- Date: Fri, 21 Feb 2003 08:35:51 -0800
Before I migrated to Xy4dos, or knew anything about U2., I wrote these
two programs to encode and decode XY3 programs. The first one encodes and
the second one decodes. I am sure they can be improved upon, but they do
seem to work.
First program as255cnv.pm
XPLeNCODE v2.0
b-gin [UNTITLED]
[BC_]ci /se /se^/[XC_][BC_]ci /seb /seb^/[XC_][BC_]ci /jmp /j
mp^/[XC_][BC_]/PRno /prno^/[XC_][BC_]ci /ci /ci^/[XC_]{<}SV01
,{<}.{>}{>}{<}SV02,.{>}{<}XS01,02,03,04,05{>}[BC_]ci /{<}PV03
{>}/[XC_][BC_]ci /{<}PV05{>}/>/[XC_] {<}SU11,[BC_]se /[R0_]
[NO_][BD_][BD_]/[XC_]{>}{<}LBone{>}{<}GT11{>}{<}IF{<}ER{>}{>}
{<}GLnomore{>}[cr|lf]{<}EI{>}[DF_][CL_][DF_][CR_]{<}SV06{>}[R
D_]{<}SX07,@cnv({<}IS06{>}){>}{<}PV07{>} {<}GLone{>}[cr|lf]{<
}LBnomore{>}[CH_][TF_][BC_]ci /se^/se/[XC_][BC_]ci /seb^/seb/
[XC_][BC_]ci /ci^/ci/[XC_][CH_][GT_][RC_]{<}PRDone{>}{<}SV09,
[CR_][CR_][CR_]{>}{<}EX{>}[cr|lf]
-nd
XPLeNCODE
Second program conpln.pm
XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SV01,{<}.{>}{>}{<}SV02,.{>}{<}XS01,02,03,04,05{>}[BC_]ci /
{<}PV03{>}/[XC_][BC_]ci />/{<}PV05{>}/[XC_]{<}LBone{>}[BC_]
se / /[XC_]{<}IF{<}ER{>}{>}{<}GLend{>}[cr|lf]{<}EI{>}[BD_][DF
_][CL_][CL_][DF_]{<}SV06{>}[RD_][BC_]pfunc {<}PV06{>}[XC_]{<}
GLone{>}[cr|lf]{<}LBend{>}[TF_][BC_]ci /^/ /[XC_][CH_][XP_][T
F_]{<}PRDone{>}{<}EX{>}[cr|lf] {032}
-nd
XPLeNCODE