Nolo contendere

[Carl Distefano 70154.3452@xxxxxxxx]

Aw c'mon, Tim! Why so serious? Let's have a little fun... How
about a contest for, say, the most useless, otiose and
dispensable XPL program ever written? That would have
possibilities. Of course,
I should admit an interest: I win hands down. Here's BIRDIE.PM:

XPLeNCODE v1.8 b_gin BIRDIE.PM
{<}GLa{>}{<}SS0,SZ=12PT,UF=STANDARD,LM=0,RM=0,PW=85DI,OF=0,4,
IP=0,0,0,NJ,HY=0,PL=273LI,273LI,273LI,FD=273LI,TP=0,BT=0{>}{<
}US0{>}[cr|lf]
BIRDIE.PM for XyWrite 4.0 [DOS only][cr|lf]
C.L.
Distefano 1/16/93[cr|lf]
[cr|lf]
The first (and, in all likeli hood, the last) recorded attempt to
exploit the cinematic pos sibilities of XyWrite Programming
Language[cr|lf]
[cr|lf]
Comma nd: run BIRDIE.PM[,n][cr|lf]
Argument "n"=running time in min utes[cr|lf]
(whole numbers only; default= 2 min.)[cr|lf]
[cr|lf
]Options:[cr|lf]
(1) Achieve fame and fortune - Add your own " film sequence" to
BIRDIE.PM![cr|lf]
{tab}Additions must be in{32} following form (final comma
*required*):[cr|lf]
{tab}[leading_
string][999][string1],[string2],...[stringx],[cr|lf]
*Append*{32} your contribution to [255+65+69]SV01,[255+65+70]
below[cr|lf]

      {25} Toggle into eXPanded display to modify save/
get[cr|lf]
{<}LBa{>}{<}SV01,{249}[999]{200},\,{186},{205},/,{2
03},[999]{16}[999]{22}{22}{22},---,===,{240}{240}{240},{177}{
177}{177},{178}{178}{178},{219}{219}{219},{178}{178}{178},{17
7}{177}{177},{240}{240}{240},===,{22}{22}{22},{250}[999]{221}
{220}{220}{233}[999]{249},+,{4},*,{5},{15},{5},*,{4},+,{249},
[999]{242}[999]{244}{244}{244}{244},????,{168}{168}{168}{168}
,{245}{245}{245}{245},[999][leading_string][999][string1],[st
ring2],...[stringx],{>}{<}GLb{>}[cr|lf]
XyQuest BBS Subscriber s: Post your modifications to
{<}VA$FI==BIRDIE.PM{>}![cr|lf]
[ cr|lf](2) Change value of [255+65+69]SX02,[255+65+70] to decr
ease/increase PM speed [cr|lf]
  (Higher value = slower spee d)[cr|lf]
      {25} Toggle into e-XP-anded display to m odify
save/get[cr|lf]
{<}LBb{>}{<}SX02,25{>}{<}GLc{>}[cr|lf]
[c r|lf]{<}LBc{>}[XH_][BC_][BX_](es 1){<}PR"Regardez zeh Birdie"
{>}[BX_](p 4){<}PRUn film de Carl et ses amis{>}[BX_](p 3)[ZT
_];*;[cr|lf]
{<}SX03,{<}IS00{>}{>}{<}IF{<}VA|03{>}<1!{<}VA{21}
03{>}<1!"."{238}{<}IS03{>}>-1{>}{<}SV03,2{>}{<}EI{>}{<}SV04,[
999]{>}{<}SX05,0{>}{<}SV06,{>}{<}SU07,{<}SX08,0{>}{<}LBd{>}{<
}SX08,{<}PV08{>}
+1{>}{<}IF{<}PV08{>}<{<}PV02{>}{>}{<}GLd{>}{<}EI{>}{>}{<}LBe{
>}{<}XS01,04,09,,10{>}{<}SX01,{<}IS10{>}{>}{<}XS01,04,10,,11{
>}{<}SX01,{<}IS11{>}+"[999]"+{<}IS09{>}+"[999]"+{<}IS10{>}{>}
{<}LBf{>}{<}SX05,{<}PV05{>}+1{>}{<}SX11,"{<}SX12,{<}VA@10,"+{
<}IS05{>}+"{>}{>}"{>}{<}PV11{>}{<}IF{<}VA|12{>}<1{>}{<}SX05,0
{>}{<}GLf{>}{<}EI{>}{<}SX06,{<}IS06{>}+" "{>}{<}IF{<}VA|06{>}
>79{>}{<}SV06,{>}{<}GLe{>}{<}EI{>}{<}SX12,"  "+{<}IS06{>}+{<
}IS12{>}+{<}IS09{>}{>}{<}PR@12{>}{<}IF({<}IS03{>}+":"){238}{<
}VA$ET{>}<3{>}{<}GT07{>}{<}GLf{>}{<}EI{>}{<}PRFin{>}[BX_](p 3
){<}SX01,{<}VA$MG{>}{>}{<}PR@01{>}{<}EX{>}[cr|lf]
[cr|lf]
{<}FC
{>}[cr|lf]
[cr|lf]
For use by RENUMBER.PM:[cr|lf]
Default Save/G et range = [;00] 01-12[cr|lf]
Renumber BIRDIE.PM in PACK mode,
 no OPTIONs[cr|lf]
{<}FL{>}[cr|lf] e_d
XPLeNCODE

--------------
Carl Distefano
70154.3452@xxxxxxxx