[Date Prev][Date Next][Subject Prev][Subject Next][ Date Index][ Subject Index]

XY3 conversions



   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_] {<}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 /
}/[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