Business Plan

Step 1: Break-out of prison.
Step 2: Profit.  (Actually, my window on the market is almost gone.)

Truman from the Truman Show movie eventually figured-out there was something wrong with his understanding of
reality.  Something is badly wrong with my understanding of reality.  I don't have a working model.

I had 10,000 downloads (conservative numbers) of LoseThos over 3 years.  There was no sign anybody installed
it -- nothing on the Internet.  I got a handful of emails, sounding like the FBI.  My download numbers followed
obvious patterns, like generated by scripts.

My reality is nice because I get delusional attention in the media, it should be no surprise that my reality is not
normal in other ways.

It is very likely my India-nigger doctor check a box "magical thinking" and committed me to some kind of
psychiatric ward limbo... or I ran afoul of the CIA... or perhaps I'm dead and born again.

There are actor/agents who torment me.  My parents are in cahoots with the enemy.  I have no explanation, other
than the obvious answer it's mental health department, but it might be CIA.

Persecution wins you blessings.  God is just.  Now, I'm kinda like an idle rich person.  Kinda sucks.  It's just too
pathetic to continue working on LoseThos without hope.  Fuck you!  Oh hell-no I don't want a job -- fucken ten
times worse demons doing that.  As it is, when I leave the house the psy-ops attack.  I've learned to minimize
demons -- stay alone and control my circumstances.  How stupid do you think I am -- you turn every human
interaction into a demon assault, then, think I want a job?  I don't know why you're fascinated with sex after you
made me impotent.

God is just.  Ask yourself if you live in Hell?

God says...
gosh I'm_God_and_you're_not be_happy now_that_I_think_about_it
hooah astounding conservative hooah Terry you_see_the_light
umm_what_now maybe_I_didn't_make_it_clear fight in_other_words
I_veto_that ROFLMAO not_in_kansas_anymore harder_than_it_looks
doh not foul I'm_tired_of_this Oh_really nasty you_better_not
delightful LOL how_come flat hooah sky air_head I'm_God_and_you're_not
employee King_Midas cracks_me_up impossible I_had_a_crazy_dream
thats_just_wrong as_a_matter_of_fact ahh_thats_much_better
after_a_break adjusted_for_inflation my_bad choose_one
Mom husband not bad_ol_puddytat dude_such_a_scoffer the_enquirer
you_see_the_light church I_am_not_amused hi Give_me_praise
taxes you_never_know bank God Dudly_Doright funny perfect
ehheh_thats_all_folks manufacturing don't_even_think_about_it
it'd_take_a_miracle ice_cream meh silly_human ghastly
awful Oh_really harder_than_it_looks cowardice well_obviously
left_field that's_your_opinion high_mucky_muck ridiculous
furious Zzzzzzzz music in_a_perfect_world look_out one_more_time
it'd_take_a_miracle lighten_up If_had_my_druthers stuff
nut_job you_do_it cheerful I_could_be_wrong Give_me_praise
roses_are_red I'm_good_you_good you_think_you_could_do_better
What_I_want okay depressing

My shrinks want to play me like this:
http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form/

I'm supposed to defend tongues and give another demo.  Pointless until I break out.

   #define TK_EOF          0
   #define TK_NUM          1
   #define TK_OP           2
   #define TK_LEFT         3
   #define TK_RIGHT        4
   #define OP_MUL          1
   #define OP_DIV          2
   #define OP_ADD          3
   #define OP_SUB          4

   I64 Lex(U8 **_src,I64 *num)
   { //See $LK,"Lex","MN:Lex"$().
    U8 *src=*_src;
    I64 i;
    while (TRUE) {
      switch (*src) {
        case 0:
        case ';':
          *_src=src;
          return TK_EOF;
        case CH_SPACE:
        case CH_CARRIAGE_RETURN:
        case CH_NEW_LINE:
          src++;
          break;
        case '0'...'9':
          i=0;
          do {
            i=i*10+*src-'0';
            src++;
          } while ('0'<=*src<='9');
          *num=i;
          *_src=src;
          return TK_NUM;
        case '*':
          *num=OP_MUL;
          *_src=src+1;
          return TK_OP;
        case '/':
          *num=OP_DIV;
          *_src=src+1;
          return TK_OP;
        case '+':
          *num=OP_ADD;
          *_src=src+1;
          return TK_OP;
        case '-':
          *num=OP_SUB;
          *_src=src+1;
          return TK_OP;
        case '(':
          *_src=src+1;
          return TK_LEFT;
        case ')':
          *_src=src+1;
          return TK_RIGHT;
        default:
          throw;
      }
    }
   }

   #define PREC_EOF        0
   #define PREC_TERM       1
   #define PREC_MUL        2
   #define PREC_ADD        3
   #define PREC_PAREN      4

   extern I64 Parse(U8 **_src,U8 **_dst);

   U0 PrsTerm(U8 **_src,U8 **_dst,I64 prec)
   { //See $LK,"PrsExpression","MN:PrsExpression"$().
    I64 i;
    U8 *src2;
    U8 *dst2;
    if (Parse(_src,_dst)==PREC_TERM) {
      src2=*_src;
      dst2=*_dst;
      while (TRUE) {
   //This is inefficient.  The main compiler doesn't back-up.
        i=Parse(&src2,&dst2);
        if (PREC_MUL<=i<prec) {
          *_src=src2;
          *_dst=dst2;
        } else
          break;
      }
    } else
      throw;
   }

   I64 Parse(U8 **_src,U8 **_dst)
   {
   //See $LK,"PrsExpression","MN:PrsExpression"$().
   //See $LK,"Opcode Fmts","FF:::/LT/Compiler/OpCodes.TXZ,IDIV"$ for details on asm
   instructions.
    I64 i;
    U8 *dst=*_dst;
    switch (Lex(_src,&i)) {
      case TK_EOF:
        *dst++=0x58; //POP RAX
        *dst++=0xC3; //RET
        *_dst=dst;
        return PREC_EOF;
      case TK_NUM:
        *dst++=0x48; //REX
        *dst++=0xB8; //MOV RAX,immediate num
        *dst(U64 *)++=i;
        *dst++=0x50; //PUSH RAX
        *_dst=dst;
        return PREC_TERM;
      case TK_LEFT:
        PrsTerm(_src,_dst,PREC_PAREN);
        if (Parse(_src,_dst)!=PREC_PAREN)
          throw;
        return PREC_TERM;
      case TK_RIGHT:
        return PREC_PAREN;
      case TK_OP:
        switch (i) {
          case OP_MUL:
            PrsTerm(_src,&dst,PREC_MUL);
            *dst++=0x5A; //POP RDX
            *dst++=0x58; //POP RAX
            *dst++=0x48; //REX
            *dst++=0x0F;
            *dst++=0xAF; //IMUL RAX,RDX
            *dst++=0xC2;
            *dst++=0x50; //PUSH RAX
            *_dst=dst;
            return PREC_MUL;
          case OP_DIV:
            PrsTerm(_src,&dst,PREC_MUL);
            *dst++=0x5B; //POP RBX
            *dst++=0x58; //POP RAX
            *dst++=0x33; //XOR RDX,RDX
            *dst++=0xD2;
            *dst++=0x48; //REX
            *dst++=0xF7; //IDIV RBX
            *dst++=0xFB;
            *dst++=0x50; //PUSH RAX
            *_dst=dst;
            return PREC_MUL;
          case OP_ADD:
            PrsTerm(_src,&dst,PREC_ADD);
            *dst++=0x5A; //POP RDX
            *dst++=0x58; //POP RAX
            *dst++=0x48; //REX
            *dst++=0x03; //ADD RAX,RDX
            *dst++=0xC2;
            *dst++=0x50; //PUSH RAX
            *_dst=dst;
            return PREC_ADD;
          case OP_SUB:
            PrsTerm(_src,&dst,PREC_ADD);
            *dst++=0x5A; //POP RDX
            *dst++=0x58; //POP RAX
            *dst++=0x48; //REX
            *dst++=0x2B; //SUB RAX,RDX
            *dst++=0xC2;
            *dst++=0x50; //PUSH RAX
            *_dst=dst;
            return PREC_ADD;
        }
    }
   }

   U0 Main()
   {
    U8 *src,*src2,*code,*dst;
   //Fixed size, no buffer overrun check.
   //You can make it fancier if you like.
    code=MAlloc(512,Fs->code_heap);
    while (TRUE) {
      "This will compile an expression\n"
      "consisting of integers, parentheses\n"
      "and the operators +,-,* and /.\n";
      src=MGetS;
      if (*src) {
        src2=src;
        dst=code;
        try {
          PrsTerm(&src2,&dst,PREC_PAREN);
          if (Parse(&src2,&dst)!=PREC_EOF)
            throw;
          "$$FG,RED$$This code is not efficient, but the compiler is simple.$$FG$$\n";
          Un(code,dst-code); //Unassemble the code we created.
          "$$FG,LTBLUE$$Answer:%d$$FG$$\n",Call(code);
        } catch {
          "$$FG,RED$$Error$$FG$$\n";
          CatchAll;
        }
        Free(src);
      } else {
        Free(src);
        break;
      }
    }
    Free(code);
   }

   Main;