Better copy of the obfuscated code project

[John Esak]

Lots of people said the colon-delimited version of the "obfuscated code" I put up last week was
breaking lines in the wrong place. My fault. I forgot to tell my mailer to send out 132 character
lines. So here is a fixed copy. You can just copy this segment of code and put it in a file
called prc.obf and try it. Place this file into a filePro directory that has a completely
blank screen in it, and then run it with this command.

  .../dclerk yourfilename -sblankscreen -z obf

Go to _any_ record, old or new and press "T".

Of course, you should try and figure out what is going to happen first. :-)

Then, put up some code of your own that is impossible to read but gets the job done. It's only
an interesting distraction... but like I said, the list has been very empty lately. The FilePro
Room on the other hand is still pretty active, so come over and try it. Make sure your speakers
are working and if you want to joing in verbally, have a microphone, too.

John

Here is the correct copy of the code:


::end:
@keyT:::
:god eq "":god="9";infinity=(sqrt[god]*god-god):
:eq gt le or co co ge:show (nowhere,onscreen) anything ; eq=eq+nothing;dim null[19]:
zen:nowhere lt minus_one * infinity +
"1":ge=ge+"1";co=ge;nowhere=ge;minus_one="3";infinity=minus_one*"2";onscreen=sqrt("256");everything=co;q=" ";goto never:
::;;end;declare nowhere,onscreen,anything,nothing,everything[2,.0], minus_one,infinity,god,qqq,ccc;le;eq;co:
never:'again::
::gosub gosub:
:ge eq god*sqrt(god)-god:null[everything]=a{q&q&q&" "&a{q&q&qqq&"     "&qqq&" "&s&q&"   "&s&"  "&v&q&q&"    "&m&q&"   "&m:
:ge eq "14":null[everything]=chr("87")&" "&chr("87")&" "&chr("87") &q&qqq&q&"    "&qqq&q&s&q&"    "&s&q&v&"    "&q& " " &m&q&"
"&m:
:ge eq "7":null[everything]=qq;  goto nirvana:
:ge eq god:null[everything]="":
:ge eq ff:null[everything]=chr("72")&"   "&n&q&repeat(chr("69"),"6")&" "&v&q&" "&q&q&q&" "&v&q&" "&"   "&q&repeat(qqq,ll):
:ge eq "13":null[everything]=a&"  "&q&a&q&qqq&q&"    "&qqq&q&s&q&"  "&q&q&s&" "&v&q&q&"  "& "  " & m&q&"   "&m:
:ge eq gg:null[everything]=qq:
:ge eq "11":null[everything]="";  goto heaven:
:ge eq "19":null[everything]=a&"   "&a&q&" "&repeat(qqq,"5")&" "&q&"R     R "&repeat(v,"6")&q&repeat(m,"5")&q&q&q&"-from"<z{"s"{g:
:ge eq hh:null[everything]=qq:
:ge eq "16":null[everything]=a&" "&a&" "&a&q&qqq&q&" "&q&q&q&qqq&q&s&"  "&s&q&q&"  "&v&q&q&"    "& m & " " &" "&q&q& m:
:ge eq "6":null[everything]=qq:
heaven:ge eq "10":null[everything]="":
:ge eq jj:null[everything]=qq;  goto hell:
:ge eq "15":null[everything]=a&" "&a&" "&a&q&qqq&q&" "&q&q&q&qqq&q&repeat(s,"6")&q&" "&v&" "&q&q&q& "  "&m&" "&" "&q&q&m:
:ge eq "8":null[everything]=n&" "&q&q&n&q&repeat(z,"6")&q&repeat(v,"6")&q&repeat(v,"6")&q&repeat(qqq,"7"):
:ge eq ii:null[everything]=repeat(n,"5")&q&repeat(z,"6")&q&v&q&" "&q&q&q&q&v&q&q&" "&q&q&q&qqq&q&q&q&q&" "&qqq:
hell:ge eq "17":null[everything]=a{a&q&a{a&q&qqq&q&"    "&qqq&q&s&q&"  "&s&q&"  "&v&q&q&q&"   "&m&q&"   "&m:
:ge eq "12":null[everything]=a&q&q&" "&a&q&" "&repeat(qqq,"5")&" "&q&repeat(s,"6")&" "&q&v&"  "&q&q&"  "&repeat(m,"5"):
nirvana::anything=null[everything]:
::goto @keyT:
gosub:'stantiate your FP know-how at hvcomputer.com::
::declare girl(10,mdyy/),niether:
::niether=asc(dow(boy(girl)))+infinity*minus_one+"2":
::n=chr(niether+minus_one);z=chr(niether);v=chr(niether+"7"):
::qqq=chr(niether+minus_one+infinity+"1"):
::a=chr(niether+infinity*minus_one):
::s=chr(niether+minus_one+"1"*infinity+"4");m=chr(niether-"1"):
::qq=n&q&q&" "&n&q&z&q&q&q&q&q&q&v&q&q&" "&" "& " " & q&v&q&q&" "&"   "&qqq&q&q&q &" "&q &qqq:
::hh=god/"3";jj="5";gg="2";kk="6":
::ll="7";ii="4";ff="1";g="ak":
::return: