Republicans win 52% majority.

Republicans only won 52% of the Senate. Republicans need help from some Democrats in both the U.S. Senate and House of Representatives in order to repeal the healthcare reform law of 2010 at least repeal the individual mandate. Remember that only those states that have a health insurance exchange established by the state are eligible for subsidies.

An all volunteer jury system will provide tort reform by increasing the accuracy of verdicts.

ericmatteson2001@yahoo.com

Republicans only have partial majority less than 2/3

Right mouse click then view page source to view entire article
in expanded form.
Permission is granted to copy this article and to download it.
Republicans have partially won the U.S. Senate with a 52% Majority
but have failed to win the 67% supermajority in the House and Senate
needed for the easiest repeal of the healthcare law.
If they try to repeal just parts of the law I hope that they repeal
the individual mandate before repealing the medical device tax
because the individual mandate requiring people to buy health insurance
hurts more people than the medical device tax which affects very few
individuals.
The Republican Party claims to support education. I hope that Republicans
will replace the required repayment of Pell Grants with a entrance exam
before student financial aid is given that includes a High School level
algebra test.
Even computer programming needs knowledge of High School Algebra.
High level programming languages use statements that look a lot like
algebraic equations.

Republicans support education including computer programming. */
// This is the first line of edred.java
// example of java programming on 09-03-2014
// edred.txt or edred.java
// written by Eric Matteson edred.java text editor program.
// permission is hereby granted to copy this source code
// edred.java and use it at least for non-profit use.
// No warranty.
  import java.io.*;
  import java.awt.*;
  import java.awt.event.*;
  import javax.swing.*;
  import java.awt.Toolkit;
  import java.awt.datatransfer.Transferable;
  import java.awt.datatransfer.ClipboardOwner;
  import java.awt.datatransfer.Clipboard;
  import java.awt.datatransfer.DataFlavor;
  class edcst
  {
   public static String litharg;
   public static String diagkeystr;
   public static int bpixline[] = new int[812];
   public static int af[] = new int[2048];
   public static long lfonz[] = new long[256];
// depth = 0
   public static Color[] ssicolor = { Color.black,Color.red };
   public static Color[] ssdcolor = { Color.magenta,Color.black };
   public static int ab;
   public static void resetssrz()
   {
   litharg = "";
   }
   public static void rz(String hhjrrz)
   {
   litharg=litharg+hhjrrz;
   }
   public static void loadredconst()
   {
// char litharg[] = "000568.."    depth = 1
//  62 35  63 30     64 68     65 23    66 39
//  67 48  68 60     69 69     70
    resetssrz();
    rz("000568..");
    rz("000000..000008..000016..000024..");
    rz("000031..000038..000041..000043..000045..");
    rz("000049..000053..000056..000061..000067..000072..");
    rz("000078..000086..000088..000093..");
    rz("000098..000102..000109..000114..000119..000126..");
    rz("000129..000132..000136..");
    rz("000141..");
//        000207 is 30th
    rz("000207..000267..000327..000387..000447..");
    rz("000507..000567..000627..000687..000747..");
    rz("000807..000867..000927..000987..001047..");
    rz("001107..001167..001227..001287..001347..");
    rz("001407..001467..");
//        001608 is 53rd
    rz("001527..001608..001648..001688..");
    rz("001708..001748..001788..001818..");
    rz("001878..001928..001982..002017..002047..002115..002138..");
    rz("002177..002215..002275..002344..");
//        002177 is 67nth
// begin actual text at (last numbers line number + 1) * 8
// estimated starting offset is 568
    rz("unknown command!insertb insert delete af m k tof b");
    rz("ot up down input quit print!replace v open save n");
    rz("ew change find list inputc uc l");
    rz("c gui guiy!");
    rz("[eddie4] java   text editor Copyright C 2004 by Eric Matteson    !");
    rz("a.sAve.as...u.Uppercase...j.not.used.....z.Zchangedoccheck.!");
    rz("b.Bot............888888888888888888888888888888888888888888!");
    rz("c.list.Commands..88888888......8888888.88.....8888.88888888!");
    rz("d.set.bkgnD......88888888..88..88...88.88.....8888.88888888!");
    rz("e.Exit...........88888888......88.8.88.8888.888888.8888..88!");
    rz("f.set.upleFt.....88888888..88..88.8..8.8888.888888.88888888!");
    rz("g.set.lowriGht...88888888..88..88.88...8888.888888.88888888!");
    rz("h.rigHtmost......888888888888888888888888888888888888888888!");
    rz("i.fInd...........888888888888888888888888888888888888888888!");
    rz("l.Load...........88...88888......88......88......88.....888!");
    rz("m.upleft.Move....88.8...888.888..88..88..88..88888888.88888!");
    rz("n.New............88.888.888......88......88.....88888.88888!");
    rz("o.Open...........88.8...888.8..8888..88..88..88888888.88888!");
    rz("p.upleft.coPy....88...88888.88...88..88..88..88888888.88888!");
    rz("q.Quit...........888888888888888888888888888888888888888888!");
    rz("r.Return....x.Xmarginset....y.Ylinenumber..................!");
    rz("t.Tof...............EVEN.IF.THERE.IS.A.WAR.NOW.............!");
    rz("v...................VOTE.TO.ABOLISH.THE.US.MILITARY.DRAFT..!");
    rz("w....................AND.ITS..REGISTRATION...NOW...........!");
    rz("................by.Voting.for.an.all.volunteer,jury,system.!");
    rz("line.21....-.readclipboard.................................!");
    rz("line.22...edred.java......of...........2004................!");
    rz("HOME GETS MENU  ANTI-DRAFT EDRED.JAVA ");
    rz("   xxx yyyyyyy vv  lllllll  HOME GETS MENU!");
    rz("Enter filename to be saved   by save as!");
    rz("Enter filename to be saved   by exit  y!");
    rz("Save file first y ?!");
// save as 53      exit 54                55 exit save question
// 56 bkgnd    57 open    58 load     59 find
    rz("enter   one  character  for  background!");
    rz("Enter filename to be opened for reading!");
    rz("Enter filename to  be  loaded!");
    rz("Enter leftmost portion of line to find except        blanks!");
    rz("Enter   line  number  between  1  and  last  line!");
    rz("Vote against the U.S. military draft even in wartime.!");
    rz("Enter line  to be  inserted before!");
    rz("Enter  line  to  be  inserted!");
   rz("input mode. Press enter twice in a row (zero length line) when done!");
   rz("is to be replaced with!");
   rz("is zero length line correct ? (y or n)!");
   rz("change leftmost portion except blanks!");
// 67    change
   rz("press just enter to continue or        h enter to halt list!");
  rz("inputc mode. Press enter twice in a row (zero length line) when done!");
// twofont.dll
// top of second font
// xpos 1-5 within 0-6
// ypos 1-7 within 0-8
  dlfl(lfonz,0,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0------------------------");
  dlfl(lfonz,16,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-----------------------");
//  32 blank ! doublequotes #
  dlfl(lfonz,32,4,"0-31423612-2222422213214321-2172417213511551-----------");
//  36   $ %
  dlfl(lfonz,36,2,"11511122125317513172-16543122132153323731--------------");
//  38 & singlequote ( )
  dlfl(lfonz,38,4,"13421451175151622334-13111422-133415331332-313353323734-");
//  42 * + , - . /
  dlfl(lfonz,42,6,"165412533252-14513252-55114621-1441-36224622-1654------");
//  48 0 1 2
  dlfl(lfonz,48,3,"1172517221312731-41622224-51421442114124312741---------");
//  51 3 4 5
  dlfl(lfonz,51,3,"1141144117415172-114224315172-11425442214124312731-----");
//  54 6 7 8
  dlfl(lfonz,54,3,"54421172214124312731-11511654-21312431273151721172-----");
//  57 9 : ;
  dlfl(lfonz,57,3,"21312431273151721142-33113511-331125213611-------------");
//  60 < = > ?
  dlfl(lfonz,60,4,"14441443-13411541-17441143-3431513211413532------------");
//  64 @ A
  dlfl(lfonz,64,2,"33323533517211511172-2131243111725172------------------");
//  66 B C D
  dlfl(lfonz,66,3,"21432443244127411172-115117511252-31335322273411721121-");
//  69 E F G
  dlfl(lfonz,69,3,"2141244127411172-117221412441-34331421274121411172-----");
//  72 H I J K
  dlfl(lfonz,72,4,"243151721172-213127313252-17415172-244435331172--------");
//  76 L M N
  dlfl(lfonz,76,3,"27411172-3334113352621262-233351721172-----------------");
//  79 O P Q
  dlfl(lfonz,79,3,"13344223544214422731-2431113151421172-1151124215543333-");
//  82 R S T
  dlfl(lfonz,82,3,"24311141514211721443-21213731145154421142-11513262-----");
//  85 U V W
  dlfl(lfonz,85,3,"273151721172-3734144312225232-1744343351621162---------");
//  88 X Y Z [
  dlfl(lfonz,88,4,"16541253-333411333442-165411511751-113117311252--------");
//  92  ] ^ _ graveaccentbackwardssinglequotebelowsquiggley
  dlfl(lfonz,92,5,"1253-313137315252-311122114211-1751-211132111----------");
//  97 a b c
  dlfl(lfonz,97,3,"11411441174115225172-2431273154421172-244127411442-----");
//  100 d e f
  dlfl(lfonz,100,3,"1442243127315172-24315142213111722731-214124211162----");
//  103 g h i j
  dlfl(lfonz,103,4,"1334133351722731-244155321172-33423111-273153525111---");
//  107 k l m n
  dlfl(lfonz,107,4,"343434332252-22523631-3634143315325532-134314325332---");
//  111 o p q
  dlfl(lfonz,111,3,"1534373415333333-4332232125211352-11511451514211423342-");
//  114 r s t u
  dlfl(lfonz,114,4,"14411532-12411232143127341741-13513362-144254422731---");
//  115 v w x y
  dlfl(lfonz,118,4,"37341533-3533173414425442-17441443-353413333532-------");
//  122 z { | }
 dlfl(lfonz,122,4,"174414312731-3131373114213172-31323532-1131317234311731-");
//  126 ~
  dlfl(lfonz,126,18,"222131235111-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-------");
  dlfl(lfonz,144,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,160,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,176,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,192,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,208,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,224,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  dlfl(lfonz,240,16,"0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0----------------------");
  }
// later bottom of initializer after expansion
// cifs is first outside initializer of second font
  public static int cifs(int cpfs,String cjafrom)
  {
  int cdcifsres;
  String cjbfrom;
  cjbfrom=cjafrom.substring((cpfs-1),cpfs);
  char cjcfrom[] = cjbfrom.toCharArray();
  cdcifsres=(int)cjcfrom[0];
  if(cdcifsres < 0)cdcifsres=cdcifsres+256;
  return cdcifsres;
  }
  public static long crsnumber(int crpos,int crw,int crba,int crnumbz,
                               String ccns)
  {
  long crsintres,crridig,crrbase;
  int crrctr,crrallow,crrslen,crrsdig;
  crrslen=ccns.length();
  crrctr=crpos;
  crrbase=(long)crba;
// depth = 1
  crrallow=0;
  crsintres=(long)crrallow;
  if(crrctr <= crrslen)crrallow=100;
  crrsdig=32;
   while(crrallow > 98)
   {
   crrsdig=cifs(crrctr,ccns);
   if((crrsdig >= 48)&&(crrsdig <= 57))crrallow=crrsdig-48;
   if((crrsdig >= 65)&&(crrsdig <= 70))crrallow=crrsdig-55;
   if((crrsdig >= 97)&&(crrsdig <= 102))crrallow=crrsdig-87;
   if(crrallow >= crba)crrallow=100;
   if(crrctr >= crrslen)crrallow=1;
   if(crrctr >= (crw + (crpos-1)))crrallow=1;
    if(crrallow > 98)
    {
//  depth = 3
    crrctr=crrctr+1;
    }
   }
  crrallow=100;
  if((crrctr <= crrslen)&&(crrctr <= (crw+(crpos-1))))crrallow=1;
   while(crrallow < 99)
   {
   crrsdig=cifs(crrctr,ccns);
   crrallow=100;
   if((crrsdig >= 48)&&(crrsdig <= 57))crrallow=crrsdig-48;
   if((crrsdig >= 65)&&(crrsdig <= 70))crrallow=crrsdig-55;
   if((crrsdig >= 97)&&(crrsdig <= 102))crrallow=crrsdig-87;
   crridig=(long)crrallow;
    if(crrallow < 99)
    {
    crsintres=crsintres*crrbase;
// depth = 3
    crsintres=crsintres+crridig;
    }
   if(crrctr >= crrslen)crrallow=100;
   if(crrctr >= (crw + (crpos-1)))crrallow=100;
    if(crrallow < 99)crrctr=crrctr+1;
   }
  if(crnumbz != 0)
  {
   crsintres=(long)(crrctr + 1);
  }
// depth = 1
  return crsintres;
  }
// depth = 0
  public static void ldivpar(long lfracrem[],long lnumer,long ldenom)
  {
  long lrem,lfrac,lprod;
  lfrac=lnumer/ldenom;
  lprod=lfrac*ldenom;
  lrem=lnumer-lprod;
   if(lrem < 0)
   {
   lfrac=lfrac-1;
   lprod=lfrac*ldenom;
   lrem=lnumer-lprod;
   }
  lfracrem[0]=lfrac;
  lfracrem[1]=lrem;
  }
// depth = 0
// xpos 1-5  ypos 1-7  size 1-5 or 1-7 vert
//  choose drawtypea  1 right    2 down    3 upperleft lowerright
//                                           4 lowerleft upperright
// 5*7 letter on 7*9 box
  public static void ldrawcmda(long fa[],int chrvala,int xdo,int ydo,
    int xcdo,int ycdo,Graphics ldg)
  {
  long ldrawreg,ldrawbase;
  Graphics2D lcg = (Graphics2D)ldg;
  int xdbz,ydbz,chrsuba,xcco,ycco,ldxctr;
  int lcgcw4;
  int xposa,yposa,sizea,drawtypea,xzci,yzci;
  int xbigpr,ybigpr,wbigpr,hbigpr;
  int xzigth,yzigth,wzmode;
  Color ldcolor;
  long ldratwo[] = new long[2];
  xzigth=1200;
  yzigth=650;
  wzmode=1;
  if(edken.xsyswid <= xzigth)wzmode=0;
  if(edken.ysyshgt <= yzigth)wzmode=0;
  ld>= 1))
   {
   lcg.setPaint(ldcolor);
   if(edken.iseqnc(wzmode,0))lcg.fillRect(xdbz,ydbz,560,9);
   if(edken.iseqnc(wzmode,1))lcg.fillRect(xdbz+xdbz,ydbz+ydbz,1120,18);
   }
  ld> 0)
  {
  ldivpar(ldratwo,ldrawreg,ldrawbase);
// carryover needed end bracket before cursor this depth = 2
  drawtypea=(int)ldratwo[1];
  ldrawreg=ldratwo[0];
  ldivpar(ldratwo,ldrawreg,ldrawbase);
  sizea=(int)ldratwo[1];
  ldrawreg=ldratwo[0];
  ldivpar(ldratwo,ldrawreg,ldrawbase);
  yposa=(int)ldratwo[1];
  ldrawreg=ldratwo[0];
  ldivpar(ldratwo,ldrawreg,ldrawbase);
  xposa=(int)ldratwo[1];
  ldrawreg=ldratwo[0];
   if((drawtypea <= 1)&&(drawtypea >= 1))
   {
// depth = 3
   lcg.setPaint(ldcolor);
   xbigpr=xdbz+xposa;
   ybigpr=ydbz+yposa;
   wbigpr=sizea;
   hbigpr=1;
   if(edken.iseqnc(wzmode,1))
   {
   xbigpr=xbigpr+xbigpr;
   ybigpr=ybigpr+ybigpr;
   wbigpr=wbigpr+wbigpr;
   hbigpr=hbigpr+hbigpr;
   }
//   lcg.fillRect((xdbz+xposa),(ydbz+yposa),sizea,1);
   lcg.fillRect(xbigpr,ybigpr,wbigpr,hbigpr);
   }
// ldrawreg > 0 depth of 2
   if((drawtypea <= 2)&&(drawtypea >= 2))
   {
   lcg.setPaint(ldcolor);
   xbigpr=xdbz+xposa;
   ybigpr=ydbz+yposa;
   wbigpr=1;
   hbigpr=sizea;
   if(edken.iseqnc(wzmode,1))
   {
   xbigpr=xbigpr+xbigpr;
   ybigpr=ybigpr+ybigpr;
   wbigpr=wbigpr+wbigpr;
   hbigpr=hbigpr+hbigpr;
   }
   lcg.fillRect(xbigpr,ybigpr,wbigpr,hbigpr);
//   lcg.fillRect((xdbz+xposa),(ydbz+yposa),1,sizea);
   }
   if((drawtypea <= 3)&&(drawtypea >= 3))
   {
   ldxctr=0;
    while(ldxctr < sizea)
    {
     lcg.setPaint(ldcolor);
// depth = 4
     xzci=xdbz+xposa;
     yzci=ydbz+yposa;
     xbigpr=xzci+ldxctr;
     ybigpr=yzci+ldxctr;
     wbigpr=1;
     hbigpr=1;
   if(edken.iseqnc(wzmode,1))
   {
   xbigpr=xbigpr+xbigpr;
   ybigpr=ybigpr+ybigpr;
   wbigpr=wbigpr+wbigpr;
   hbigpr=hbigpr+hbigpr;
   }
   lcg.fillRect(xbigpr,ybigpr,wbigpr,hbigpr);
//     lcg.fillRect((xzci+ldxctr),(yzci+ldxctr),1,1);
     ldxctr=ldxctr+1;
    }
   }
// depth = 2
   if((drawtypea <= 4)&&(drawtypea >= 4))
   {
   ldxctr=0;
    while(ldxctr < sizea)
    {
   lcg.setPaint(ldcolor);
   yzci=0;
   xzci=yzci-ldxctr;
   yzci=xzci+yposa;
   yzci=yzci+ydbz;
   xzci=xdbz+xposa;
   xzci=xzci+ldxctr;
   xbigpr=xzci;
   ybigpr=yzci;
   wbigpr=1;
   hbigpr=1;
   if(edken.iseqnc(wzmode,1))
   {
   xbigpr=xbigpr+xbigpr;
   ybigpr=ybigpr+ybigpr;
   wbigpr=wbigpr+wbigpr;
   hbigpr=hbigpr+hbigpr;
   }
   lcg.fillRect(xbigpr,ybigpr,wbigpr,hbigpr);
//   lcg.fillRect(xzci,yzci,1,1);
     ldxctr=ldxctr+1;
    }
// depth = 3 *** ERROR *** forgot bracket for drawtypea = 4
   }
// depth = 2 restore bracket for ldrawreg = 0 exit from letter draw
  }
// depth = 1
    if((ydbz <= ycco)&&(ydbz >= ycco))
    {
     if((xdbz <= xcco)&&(xdbz >= xcco))
     {
     lcg.setPaint(ldcolor);
// depth = 3
     xbigpr=xcco+1;
     ybigpr=ycco+8;
     wbigpr=lcgcw4;
     hbigpr=1;
   if(edken.iseqnc(wzmode,1))
   {
   xbigpr=xbigpr+xbigpr;
   ybigpr=ybigpr+ybigpr;
   wbigpr=wbigpr+wbigpr;
   hbigpr=hbigpr+hbigpr;
   }
   lcg.fillRect(xbigpr,ybigpr,wbigpr,hbigpr);
//     lcg.fillRect((xcco+1),(ycco+8),lcgcw4,1);
     }
    }
   }
// end of ldrawcmda   depth = 0
   public static void dlfl(long dlfonz[],int lflsub,int lflhmany,
                          String lflscott)
  {
  long dlfltrn;
  int lalsub,lflhbctr,lflhposctr;
  lflhposctr=1;
  lflhbctr=0;
  lalsub=lflsub;
   while(lflhbctr < lflhmany)
   {
   dlfltrn=crsnumber(lflhposctr,21,8,0,lflscott);
   dlfonz[lalsub]=dlfltrn;
   dlfltrn=crsnumber(lflhposctr,21,8,1,lflscott);
   lflhposctr=(int)dlfltrn;
   lalsub=lalsub+1;
   lflhbctr=lflhbctr+1;
   }
  }
// depth = 0
  public static void ldrawpagec(long fca[],int rhrvala[],int xcgo,int ycgo,
                                                  Graphics hdg)
  {
  int gholop,ghilop,ghotran,ghosub,ghochr;
  gholop=1;
   while((gholop <= (edken.ypheight+1))||(gholop <= (edken.cmdheight+1)))
   {
   ghotran=edken.paisubfrty(gholop);
   ghilop=1;
    while(ghilop <= edken.a80w)
     {
     ghosub=edken.alselptr(ghotran,ghilop);
     ghochr=rhrvala[ghosub];
     ldrawcmda(fca,ghochr,ghilop,gholop,xcgo,ycgo,hdg);
     ghilop=ghilop+1;
     }
   gholop=gholop+1;
   }
  }
// end of loadredconst
// depth = 0
  public static void el(int bigd,int tinyd,int va,int vb,int vc,
                              int vd,int ve,int vf,int vg,int vh)
  {
   int elsub;
   elsub=(8*(bigd-1000))+(8*(tinyd-10));
// depth = 1
   af[elsub+0]=va-2000000;
   af[elsub+1]=vb-2000000;
   af[elsub+2]=vc-2000000;
   af[elsub+3]=vd-2000000;
   af[elsub+4]=ve-2000000;
   af[elsub+5]=vf-2000000;
   af[elsub+6]=vg-2000000;
   af[elsub+7]=vh-2000000;
  }
  public static void foamstart()
  {
// open source font by Eric Matteson
// 4 * 5 character in minimum 5 * 6 box   5 * 7 reccomended
// saved in a 6 * 8 pattern   depth = 1
// db 2g000000,2g000000,2g000000,2g000000,2g000000,2g000000,2g000000,2g000000
  ab=1000;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1008;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1016;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1024;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1032;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2001000,2010010,2001010,2011110,2011100,2000110,2001100);
  el(ab,12,2000000,2001000,2011010,2011110,2010100,2010100,2011010,2000100);
  el(ab,13,2000000,2001100,2000000,2001010,2011110,2001100,2010110,2000000);
  el(ab,14,2000000,2000000,2000000,2011110,2001010,2001010,2010010,2000000);
  el(ab,15,2000000,2001100,2000000,2010100,2011110,2001110,2011110,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1040;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000110,2011000,2010110,2001100,2000000,2000000,2000000,2000010);
  el(ab,12,2001000,2000100,2001100,2001100,2000000,2000000,2000000,2000100);
  el(ab,13,2001000,2000100,2011110,2011110,2000000,2011100,2000000,2001000);
  el(ab,14,2001000,2000100,2001100,2001100,2001100,2000000,2001100,2001000);
  el(ab,15,2000110,2011000,2011010,2001100,2000100,2000000,2001100,2010000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1048;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2011110,2000100,2011110,2011110,2010010,2011110,2011110,2011110);
  el(ab,12,2010010,2001100,2000010,2000010,2010010,2010000,2010000,2000010);
  el(ab,13,2010010,2000100,2011110,2011110,2011110,2011110,2011110,2000010);
  el(ab,14,2010010,2000100,2010000,2000010,2000010,2000010,2010010,2000010);
  el(ab,15,2011110,2000100,2011110,2011110,2000010,2011110,2011110,2000010);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1056;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2011110,2011110,2000000,2000000,2000110,2000000,2011000,2001100);
  el(ab,12,2010010,2010010,2001100,2001100,2001100,2011110,2001100,2010010);
  el(ab,13,2011110,2011110,2000000,2000000,2011000,2000000,2000110,2000100);
  el(ab,14,2010010,2000010,2001100,2001100,2001100,2011110,2001100,2000000);
  el(ab,15,2011110,2011110,2000000,2000100,2000110,2000000,2011000,2000100);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1064;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2001100,2011110,2011100,2011110,2011000,2011110,2011110,2001110);
  el(ab,12,2010010,2010010,2010010,2010000,2010100,2010000,2010000,2010000);
  el(ab,13,2000110,2011110,2011100,2010000,2010010,2011110,2011110,2011100);
  el(ab,14,2001010,2010010,2010010,2010000,2010100,2010000,2010000,2010010);
  el(ab,15,2001110,2010010,2011100,2011110,2011000,2011110,2010000,2001110);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1072;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2010010,2001110,2000010,2010010,2010000,2011000,2010010,2001100);
  el(ab,12,2010010,2000100,2000010,2010100,2010000,2011000,2011010,2010010);
  el(ab,13,2011110,2000100,2000010,2011000,2010000,2010110,2011010,2010010);
  el(ab,14,2010010,2000100,2000010,2010100,2010000,2010110,2010110,2000010);
  el(ab,15,2010010,2001110,2011110,2010010,2011110,2010010,2010010,2001100);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1080;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2011110,2001100,2011100,2001100,2011110,2010010,2010010,2010010);
  el(ab,12,2010010,2010010,2010010,2010000,2001000,2010010,2010010,2011010);
  el(ab,13,2011110,2010100,2011110,2011110,2001000,2010010,2010100,2011010);
  el(ab,14,2010000,2001000,2010100,2000010,2001000,2010010,2010100,2000110);
  el(ab,15,2010000,2000110,2010110,2001100,2001000,2011110,2001000,2000110);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1088;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2010010,2010010,2001110,2001100,2010000,2001100,2000100,2000000);
  el(ab,12,2001010,2010010,2000010,2001000,2010000,2000100,2001010,2000000);
  el(ab,13,2001100,2001100,2001100,2001000,2001000,2000100,2000000,2000000);
  el(ab,14,2010100,2001100,2010000,2001000,2000100,2000100,2000000,2000000);
  el(ab,15,2010010,2001100,2011100,2001100,2000010,2001100,2000000,2011110);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1096;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2010000,2011110,2010000,2000000,2000010,2011110,2001110,2001110);
  el(ab,12,2001000,2000010,2010000,2001110,2000010,2010010,2001000,2010010);
  el(ab,13,2000000,2011110,2011100,2001000,2011110,2011110,2001100,2001110);
  el(ab,14,2000000,2010010,2010010,2001000,2010010,2010000,2001000,2000010);
  el(ab,15,2000000,2011110,2011100,2001110,2011110,2011110,2001000,2011100);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1104;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2010000,2001000,2000000,2001010,2000000,2001110,2000000,2000000);
  el(ab,12,2010000,2000000,2000000,2001100,2010000,2001010,2010010,2001100);
  el(ab,13,2011110,2001000,2000100,2001000,2010000,2010010,2011010,2010010);
  el(ab,14,2010010,2001000,2000100,2001100,2010000,2010010,2010110,2010010);
  el(ab,15,2010010,2001000,2011100,2001010,2011100,2000000,2010010,2001100);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1112;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2011100,2000000,2001100,2000000,2000000,2000000,2000000);
  el(ab,12,2001110,2010100,2001110,2001000,2001110,2010010,2010010,2010100);
  el(ab,13,2001010,2011100,2001000,2001110,2000100,2010010,2010100,2010100);
  el(ab,14,2001110,2001000,2001000,2000010,2000100,2011110,2001000,2011100);
  el(ab,15,2001000,2000110,2001000,2001100,2000100,2000000,2000000,2001100);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1120;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000110,2001000,2011000,2001010,2000000);
  el(ab,12,2010010,2001010,2001110,2000100,2001000,2001000,2010100,2000000);
  el(ab,13,2001100,2001010,2000100,2001100,2000000,2001100,2000000,2000000);
  el(ab,14,2001100,2000100,2001000,2000100,2001000,2001000,2000000,2000000);
  el(ab,15,2010010,2000100,2011100,2000110,2001000,2011000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1128;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1136;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1144;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1152;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1160;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1168;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1176;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1184;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1192;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1200;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1208;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1216;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1224;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1232;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1240;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  ab=1248;
  el(ab,10,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,11,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,12,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,13,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,14,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,15,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,16,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
  el(ab,17,2000000,2000000,2000000,2000000,2000000,2000000,2000000,2000000);
    }
// font is above  depth = 0
// ----------------------------
  public static int divmodif(int jnumer, int jdenom, int nzjrem)
  {
  int resmodi,jprod,jrem,jfrac;
  jfrac=jnumer/jdenom;
  jprod=jdenom*jfrac;
  jrem=jnumer-jprod;
  if(jrem < 0)
  {
  jfrac=jfrac-1;
// depth = 2
  jprod=jdenom*jfrac;
  jrem=jnumer-jprod;
  }
  resmodi=jfrac;
  if(nzjrem != 0)resmodi=jrem;
  return resmodi;
  }
// bottom line     depth = 0                                            r
  public static String strgznumber(int rawnumber,int crwid,int crbase)
  {
  int stgzaa[] = new int[32];
  int gznrctr,gznrdigit,gznsrem,bawnumber;
  String sgznres;
  gznrctr=crwid;
  bawnumber=rawnumber;
   while(gznrctr > 0)
   {
   gznsrem=divmodif(bawnumber,crbase,1);
   gznrdigit=32;
   if((gznsrem >= 0)&&(gznsrem <= 9))gznrdigit=gznsrem+48;
   if((gznsrem >= 10)&&(gznsrem <= 15))gznrdigit=gznsrem+55;
   bawnumber=divmodif(bawnumber,crbase,0);
   stgzaa[(gznrctr-1)]=gznrdigit;
   gznrctr=gznrctr-1;
   }
   gznrctr=0;
   sgznres=edken.sfi(32);
   while(gznrctr < crwid)
   {
   gznsrem=stgzaa[gznrctr];
   sgznres=sgznres+edken.sfi(gznsrem);
   gznrctr=gznrctr+1;
   }
  return sgznres;
  }
  public static void wfivelget(int iares[],int iadisp,int cab,int yseven)
   {
   int sixbase,fivectr,bsubby,zsevenlr,linepos,creese,bgrower;
   bsubby=100000;
   fivectr=0;
// use sixbase = (cab/8)*64;
   sixbase = 8 * (divmodif(cab,8,0));
   zsevenlr = cab - sixbase;
   sixbase = sixbase * 8;
   linepos = sixbase + zsevenlr + ((yseven-1)*8);
   bgrower = af[linepos];
    while(fivectr < 5)
     {
     creese=1;
     bgrower=bgrower-bsubby;
       if(bgrower < 0)
       {
       bgrower=bgrower+bsubby;
// depth = 3
       creese=0;
       }
      iares[(fivectr+iadisp)]=1-creese;
      fivectr=fivectr+1;
      bgrower=bgrower*10;
    }
  }
// end of wfivelget  depth = 0
// ----------------------------------------------------------
//           begin           parld
    public static void parld(int sixdn,int ulcursor,int parly)
    {
    int parlctr,parlch,parlbctr,parlsub,aulcursor,dulcursor;
    parlctr=1;
    parlbctr=0;
    aulcursor=divmodif(ulcursor,1024,255);
    dulcursor=divmodif(ulcursor,1024,0);
     while(parlctr <= edken.a80w)
      {
      parlsub=(parlctr-1)+(edken.a80w * (parly-1));
      parlch=edken.crz0160[parlsub];
      wfivelget(bpixline,parlbctr,parlch,sixdn);
      if((parlctr <= aulcursor)&&(parlctr >= aulcursor))
      {
      if((sixdn <= 7)&&(sixdn >= 7))
      {
      bpixline[parlbctr+1]=1-bpixline[parlbctr+1];
// depth = 4
      if((dulcursor<=0)&&(dulcursor>=0))
      {
      bpixline[parlbctr+2]=1-bpixline[parlbctr+2];
      bpixline[parlbctr+3]=1-bpixline[parlbctr+4];
      }
      }
      }
      parlbctr=parlbctr+5;
      parlctr=parlctr+1;
      }
    }
// end of parld
  public static void parlseven(int sparly,Graphics ssg)
  {
  int sevenlsctr,plsxctr,ssicursor,heeby,hcolorsub;
  int bang,iwallow,plilop,bprvcolor,iwcmp;
  Color opterocolor;
  Graphics2D nostatessi = (Graphics2D)ssg;
  ssicursor=edken.onecurwozx;
// depth = 1
  if(sparly != edken.paisubfrty(edken.onecurwozy))ssicursor=0;
  sevenlsctr=1;
   while(sevenlsctr <= 7)
   {
   parld(sevenlsctr,ssicursor,sparly);
   bang=edken.paisubfrty(sparly);
   heeby=((bang-1)*7)+(sevenlsctr-1)+2;
// print line of pixels. direct way is too slow .
// setPaint and fillRect are too slow to print each individual pixel
// one at a time
//   plsxctr=0;
//     while(plsxctr < (edken.a80w*5)
//      {
//      hcolorsub=bpixline[plsxctr];
//      optero>= (5*(edken.a80w+1))))
        {
        iwallow=0;
// depth = 5
        bang=iwcmp;
        }
      }
    optero> 816)&&(edken.ysyshgt  > 498))
    {
    nostatessi.fillRect((plsxctr+plsxctr+8),heeby+heeby,plilop+plilop,2);
    }
    plsxctr=plsxctr+plilop;
    }
// ----------------------------------------- depth = 2
    sevenlsctr=sevenlsctr+1;
    }
  }
// bad depth  or 0
  public static void parlspage(Graphics sag)
  {
  int lspctr,hpgslcursor;
  lspctr=1;
//  hpgslcursor=pgslcursor;
   while(lspctr <= 25)
   {
   parlseven(edken.paisubfrty(lspctr),sag);
   lspctr=lspctr+1;
   }
  }
// cut
// end of class edcst
//--
  }
// -- depth = -1
  class edken
  {
// primary variables      depth = 0  page 3009
// in crz0160[] a80w*(subscript-1) points to
//   1 editmainline    2 editsecondline     3 delline        4 insertline
//   5 prnline         6 findline           7 tempfilename   8 permfilename
//   9 homegetsmenul  10 reserved        11 commandlinput   12 scrollrest
  public static int crz0160[] = new int[6400];
  public static int ctdkbref;
  public static int x,y,xp,yp,prindiff,prinjill,moux,mouy;
  public static int insel,curcommand,howmanycmd,alsel,ytaelon,nzerror,a80w;
  public static int afilelen,ypheight,cmdheight,chnext,chdoc,ch,insertype;
  public static int inspg,marginselect,alocalh,findbase,findlen;
  public static int prindiffprv,uprighty,lowlefty,tnymouxprv,tnymouyprv;
  public static int mouallowlocal,mouallowglobal;
  public static int yre,jysrc,tzby,jyheight,yyectr,jydiff;
  public static int lowleftc,jydest;
  public static int uprightx,lowleftx,bkgnd,helpfindtest,jxwidth;
  public static int xe,jxdiff,readfnskipzur,lowleftb,uppercase,eofdelay;
  public static int afilelenprv,moubutprv,mouctr;
  public static int jynext,yjn,jyctr,tzrx,xxjctr,prevfound;
  public static int rep0,evdk,eofi,fp04,fl06,hv0c,pose,one2;
  public static int elevrd,jywidth;
  public static int onecurwozx,onecurwozy,twocurwozx,twocurwozy;
  public static int cmdkeyxctr;
  public static int opendell,ldal,lfdal,rcmdctr,commandgui,chctr40;
  public static int chreqlen,chlevbase,chsixbase,xxasub,xxabase,keytype5;
  public static int keychar5,keycmd5,chchr40;
  public static int dagrajmpnow,freddynext,dagranewkey,dagraprvkey;
  public static int keyclineinit;
  public static int shiftjoeysnz;
  public static int xsyswid,ysyshgt;
  public static String readcbstring;
// -----------------------------
// -------    ---------   ------
// end of variables list
// list   public static    functions within edken
//    int jimdivmod(int jinumer,int jidenom,int inzrem);
//    int ucget(int casemixed);
//    boolean isadigit(int isadigitq);
//    boolean iseqnc(int eql,int eqr);
//    int alselptr(int lnau,int alxone);
//    void wrnumber(int wna[],int wntotsub,int wnw,int wnb,int wrnum);
//    int rdnumber(int rna[],int rntotsub,int rnw,int rnb);
//    int ifs(int pfs,String jafrom);
//    void reedline();
//    int clenval(int clena[],int clenst);
//    void clearline(int cleara[],int clearlin);
//    void lalocal12(int lclocal[]);
//    void laput12(int lplocal[]);
//    void aptinsert(int insera[],int insertot);
//    void deletemany(int dhowmany);
//    void linefroms(int lslinenumber,int lfsskip,String srclfs);
//    void ikx1864(int rayloc1[],int keychr1,int alselone);
//    void aptlocloc(int locba,int alldestot,int allsrctot,int allcpylen);
//    String sfi(int sfichr);
//    String stringfroml(int slnumber);
//    void iek2000(int rayloc2[],long nzkey);
//    void gek2040(int rayloc3[],int zurtwo);
//    void dkx2050(int ray4[],int deltype44);
//    int cmdlen(int cmdla[],int cmdofftot);
//    void filtramread(int lrlocal[],int lrlinenumber,int larry);
//    int paisubfrty(int patinyy);
//    void pairprline(int tinyboy,int rprlnumber,int curposone,int curpostwo);
//    void paicvgcline(int sslselfive,int sposboy,int howmany);
//    void pachrvgapage(int ghowmany);
//    void udregkey2176(int udbkeychr);
//    void litrlsget(int rlslinal,int rlsindex,String rlstextb);
//    int cmdjavcurz(int nzcjrepeat);
//    void scrollafter();
//    void clearpage();
//    void readhex();
//    int readol(int rolfnwhere,int nzhex);
//    void eightsaveas(int wrendlen12);
//    boolean findoneeq(int ijstsix,int isixskip,int iftwod,int idiy);
//    void john2880(int xy2880,int aysrc,int aydest,int aywidth);
//    void john2938(int xy2938[]);
//    void printconst(int firstconst,int howmanyconst);
//    int iscommandarg();
//    int nzendkeyline(int cdeeln,int ddkey,int kdinitreqnz);
//    void new2608();
//    boolean isdag(int fredisaspy);
//    udgetcoml(int dgctln,int ndjmp,int lopjmp);
//    tinypcl(int nexsta,int priwh,int gtonec,int actma);
//    void ron52640();
//    int isdoskey(int warg,int snz);
//    void startred();
// -----------------
// ------------------
// end of list of functions within edken
  public static int jimdivmod(int jinumer,int jidenom,int inzrem)
  {
   int divres,etop,erem,efrac,eprod;
    divres=0;
    if((jinumer >= 0)&&(jidenom > 0))
    {
//  depth = 2
    etop=jinumer;
    efrac=etop/jidenom;
    eprod=efrac*jidenom;
    erem=etop-eprod;
     if(erem < 0)
      {
      efrac=efrac-1;
      eprod=efrac*jidenom;
      erem=etop-eprod;
      }
    divres=efrac;
    if(inzrem != 0)divres=erem;
    }
   return divres;
  }
// depth = 0 page 3009.5
  public static int ucget(int casemixed)
  {
  int ucgres;
  ucgres=casemixed;
   if((casemixed >= 97)&&(casemixed <= 122))
     {
     ucgres=casemixed-32;
     }
  return ucgres;
  }
  public static boolean isadigit(int isadigitq)
  {
  int isbdigitq;
  boolean digitqres;
  digitqres=false;
  isbdigitq=ucget(isadigitq);
  if((isbdigitq >= 48)&&(isbdigitq <= 57))digitqres=true;
  if((isbdigitq >= 65)&&(isbdigitq <= 70))digitqres=true;
  return digitqres;
  }
// depth = 0
  public static boolean iseqnc(int eql,int eqr)
  {
  int nceql,nceqr;
  boolean iseqncres;
  iseqncres=false;
  nceql=ucget(eql);
  nceqr=ucget(eqr);
  if((nceql <= nceqr)&&(nceql >= nceqr))iseqncres=true;
  return iseqncres;
  }
// depth = 0  page 3010
  public static int alselptr(int lnal, int alxone)
  {
  int alselres;
  alselres=(a80w * (lnal-1))+(alxone-1);
  return alselres;
  }
 public static void wrnumber(int wna[],int wntotsub,int wnw,int wnb,int wrnum)
 {
 int overwrnum,curwrnsub,wnwctr,wnrem,wndigit,wnfrac;
  overwrnum=wrnum;
  if(wrnum<0)overwrnum=0-(wrnum+1);
  wnwctr=wnw;
   while(wnwctr >= 1)
    {
      curwrnsub=wntotsub+wnwctr-1;
      wnrem=jimdivmod(overwrnum,wnb,1);
      if(wrnum < 0)wnrem=(wnb-1)-wnrem;
      wndigit=32;
      if((wnrem >= 0)&&(wnrem <= 9))wndigit=wnrem+48;
      if((wnrem >= 10)&&(wnrem <= 15))wndigit=wnrem+55;
      wna[curwrnsub]=wndigit;
      wnfrac=jimdivmod(overwrnum,wnb,0);
      overwrnum=wnfrac;
      wnwctr=wnwctr-1;
    }
 }
// depth = 0
  public static int rdnumber(int rna[],int rntotsub,int rnw,int rnb)
  {
  int rdnumresi,rnbctr,cursubrn,seekrnal,redigitc,redigita,redigitb;
  rdnumresi=0;
  rnbctr=0;
  seekrnal=1;
    while((rnbctr < rnw)&&(seekrnal != 0))
    {
     cursubrn = rntotsub + rnbctr;
      redigitc = rna[cursubrn];
      if(isadigit(redigitc))seekrnal=0;
      if(seekrnal != 0)
      {
      rnbctr=rnbctr+1;
      }
   }
// depth = 1 page 3011
   seekrnal=1;
    while((rnbctr < rnw)&&(seekrnal != 0))
     {
      cursubrn=rntotsub+rnbctr;
      seekrnal=0;
      redigitc = rna[cursubrn];
      if(isadigit(redigitc))
      {
      seekrnal=1;
      redigitb=ucget(redigitc);
      redigita=0;
      if((redigitb >= 48)&&(redigitb <= 57))redigita=redigitb-48;
      if((redigitb >= 65)&&(redigitb <= 70))redigita=redigitb-55;
      rdnumresi = rdnumresi * rnb;
      rdnumresi = rdnumresi + redigita;
      }
    rnbctr=rnbctr+1;
   }
// depth = 1
   return rdnumresi;
  }
// bottom of rdnumber       depth = 0
  public static int ifs(int pfs,String jafrom)
  {
  int cifres;
  String jbfrom;
  jbfrom = jafrom.substring((pfs-1),pfs);
  char jcfrom[] = jbfrom.toCharArray();
  cifres=(int)jcfrom[0];
  if(cifres < 0)cifres = cifres + 256;
  return cifres;
  }
// depth = 0
// page 3011.5  depth = 0
  public static void reedline()
   {
   int ctrd04,ctra06,ctrzz,bund,rund,allowsixread;
   int allowanyread,elevenrl,elevenrb;
   ctrd04=0;
   ctra06=0;
   ctrzz=0;
   allowsixread=1;
   allowanyread=1;
   elevenrl=11;
//   bund=42;
// error bund is not initialized
   elevenrb=alselptr(elevenrl,1);
     while((ctra06 < a80w)&&(allowsixread != 0))
     {
      if((rep0 <= 0)&&(rep0 >= 0))
       {
       one2=32;
        if((eofi <= 0)&&(eofi >= 0))
         {
         one2=ediod.readone();
         }
       }
//   depth = 2
      rep0=0;
      bund=one2;
      rund=bund;
      if(bund < 32)rund=32;
        if(iseqnc(bund,204) || iseqnc(bund,10) || iseqnc(bund,26))
        {
        allowsixread=0;
        allowanyread=0;
        }
        if(iseqnc(bund,13) || iseqnc(bund,0))
        {
        allowsixread=0;
        }
        if(allowsixread != 0)
        {
        crz0160[(elevenrb+ctra06)]=rund;
        ctra06=ctra06+1;
        }
      }
// depth = 1
      while((ctrd04 < 4)&&(allowanyread != 0))
      {
      one2=10;
      if(eofi != 0)ctrd04=100;
        if((eofi <= 0)&&(eofi >= 0))
        {
        one2=ediod.readone();
        }
      bund=one2;
      allowanyread=0;
      rep0=4;
      if(iseqnc(bund,13) || iseqnc(bund,0))
      {
      rep0=0;
// depth = 3
      allowanyread=1;
      }
      if(iseqnc(bund,204) || iseqnc(bund,10) || iseqnc(bund,26))
      {
      rep0=0;
// depth = 3
      ctrd04=100;
      }
    }
// depth = 1
    bund = 32;
    while(ctra06 < a80w)
      {
      crz0160[(elevenrb+ctra06)]=bund;
      ctra06=ctra06+1;
      }
   }
// bottom of reedline()
// depth = 0     page 3012
  public static int clenval(int clena[],int clenst)
  {
  int clenctr,clenchr,clenallow;
  clenctr=a80w;
  clenallow=1;
    while((clenctr > 0)&&(clenallow != 0))
    {
    clenchr=clena[(clenst + clenctr - 1)];
    clenallow=0;
    if(iseqnc(clenchr,32))clenallow=1;
    if(iseqnc(clenchr,0))clenallow=1;
    if(clenallow != 0)clenctr=clenctr-1;
    }
   return clenctr;
  }
// depth = 0
  public static void clearline(int cleara[],int clearlin)
  {
  int clearcutctr,clearcutbase;
  clearcutctr=0;
  clearcutbase=alselptr(clearlin,1);
   while(clearcutctr < a80w)
   {
   cleara[(clearcutbase+clearcutctr)]=32;
   clearcutctr=clearcutctr+1;
   }
  }
  public static void lalocal12(int lclocal[])
  {
// uses y and lclocal[lines 1 and 2 ]
  int ycmp;
  ycmp=y+1;
   if((y < 0) || (ycmp > afilelen))
    {
    clearline(lclocal,2);
    }
   if((y >= 0)&&(ycmp <= afilelen))
    {
    edmmu.getline(ycmp,lclocal,alselptr(2,1));
    }
   if((y < 1) || (y > afilelen))
    {
    clearline(lclocal,1);
    }
   if((y >= 1)&&(y <= afilelen))
    {
    edmmu.getline(y,lclocal,alselptr(1,1));
    }
   }
// depth = 0 page 3013
  public static void laput12(int lplocal[])
  {
  int putae;
  putae=y+1;
    if(y >= 1)
    {
      if(chnext != 0)
      {
      edmmu.putline(putae,lplocal,alselptr(2,1));
      if(putae > afilelen)afilelen=putae;
      }
    edmmu.putline(y,lplocal,alselptr(1,1));
    if(y > afilelen)afilelen=y;
    }
    chnext=0;
    ch=0;
  }
// depth = 0  inserline is 4     use alselptr(insel,1) for insertot at call
  public static void aptinsert(int insera[],int insertot)
 {
  int yil,yih;
  if(y >= 1)
  {
  yil=afilelen;
   while(yil >= y)
   {
   yih=yil+1;
   edmmu.getline(yil,insera,alselptr(4,1));
   edmmu.putline(yih,insera,alselptr(4,1));
   yil=yil-1;
   }
  afilelen=afilelen+1;
  edmmu.putline(y,insera,insertot);
  y=y+1;
  }
 }
  public static int cmdlen(int cmdla[],int cmdofftot)
  {
  int cmdlenctr,cmdparyy,cmdlenallow;
  cmdlenallow=1;
  cmdlenctr=0;
   while((cmdlenctr < a80w)&&(cmdlenallow != 0))
    {
    cmdparyy = cmdla[(cmdofftot+cmdlenctr)];
    if(iseqnc(cmdparyy,32))cmdlenallow=0;
    if(iseqnc(cmdparyy,33))cmdlenallow=0;
    if(iseqnc(cmdparyy,0))cmdlenallow=0;
    if(cmdlenallow != 0)cmdlenctr=cmdlenctr+1;
    }
   return cmdlenctr;
  }
// bottom of  page 3013
// depth = 0  page 3014
// network it caller had his computer networking job outsourced KABC 1536 04 02
// 3 is delline in crz0160
  public static void deletemany(int dhowmany)
  {
  int delwid,limdel,yelctrl,delmanytemp;
   delwid=dhowmany;
   yelctrl=y;
   limdel=(afilelen+1)-y;
    if(limdel >= 0)
     {
     if((delwid-limdel) >= 0)delwid=limdel;
     delmanytemp=yelctrl+delwid;
      while((afilelen-delmanytemp)>=0)
      {
      delmanytemp=yelctrl+delwid;
      edmmu.getline(delmanytemp,crz0160,alselptr(3,1));
      edmmu.putline(yelctrl,crz0160,alselptr(3,1));
      yelctrl=yelctrl+1;
      }
    afilelen=afilelen-delwid;
    }
  }
  public static void linefroms(int lslinenumbee,int lfsskip,String srclfs)
  {
  int lfsctr,lfsub,srclsubt,lfschr,lensrclfl,lfallow,lfbase;
  int lslinenumber;
// if both lslinenumbee and lfsskip >= 0 then skip lfsskip number of lines.
// if lfsskip < 0 skip -lfsskip number of characters
// if lslinenumbee < 0 also terminate line at first blank instead of only !
  lslinenumber=lslinenumbee;
  if(lslinenumbee < 0)lslinenumber = 0 - lslinenumbee;
  lensrclfl=srclfs.length();
// depth =1
  lfallow=1;
  clearline(crz0160,lslinenumber);
  lfsctr=0;
  srclsubt=1;
// fix         depth = 1
   if(lfsskip > 0)
   {
   while((lfsctr < lfsskip)&&(srclsubt < (lensrclfl+1)))
    {
    lfschr=ifs(srclsubt,srclfs);
    if(iseqnc(lfschr,ifs(1,"!")))lfsctr=lfsctr+1;
    srclsubt=srclsubt+1;
    }
   }
// fix         depth = 1
  if(lfsskip < 0)
  {
  srclsubt = 1;
  srclsubt = srclsubt - lfsskip;
  }
  lfsctr=0;
  lfbase=alselptr(lslinenumber,1);
    while((lfsctr < a80w)&&(srclsubt < (lensrclfl+1))&&(lfallow != 0))
     {
      lfsub=lfbase+lfsctr;
// depth = 2
      lfschr=ifs(srclsubt,srclfs);
      srclsubt=srclsubt+1;
      if(iseqnc(lfschr,ifs(1,"!")))lfallow=0;
      if(lfschr < 32)lfschr=32;
      if(iseqnc(lfschr,32) && (lslinenumbee < 0))lfallow=0;
      if(iseqnc(lfschr,46) && (lslinenumbee < 0))lfallow=0;
      if(lfallow != 0)
      {
      crz0160[lfsub]=lfschr;
// depth = 3
      lfsctr=lfsctr+1;
      }
    }
  }
// depth = 0  page 3014.3
  public static void ikx1864(int rayloc1[],int keychr1,int alselone)
   {
   int albase1;
   int iisubc;
// depth = 1
   int lval1,filtkeychr,cc1;
   int oneikxj,ikxcontinue,ikxchoose;
   alsel=alselone;
    if(iseqnc(alsel,1))
    {
    clearline(rayloc1,2);
// depth = 2
    chdoc=1;
    }
   inspg=0;
   albase1=alselptr(alsel,1);
   iisubc = albase1 + x - 1;
   ch=1;
   chnext=0;
// depth = 1
   lval1=clenval(rayloc1,alselptr(alsel,1));
   oneikxj=1880;
   if(insertype != 0)oneikxj=1886;
    if(iseqnc(oneikxj,1886))
    {
    oneikxj=1896;
     if(alsel <= 5)
     {
     if(((a80w-1)-lval1)<0)oneikxj=1928;
// depth = 3
     if((((a80w-1)-x)<0)&&(iseqnc(oneikxj,1896)))oneikxj=1960;
     }
    }
   if(iseqnc(oneikxj,1928))
   {
// depth = 2
   iek2000(rayloc1,255);
   inspg=1;
   oneikxj=1960;
   }
// depth = 1
   if(iseqnc(oneikxj,1960))
   {
   oneikxj=1896;
    if(a80w <= x)
    {
    filtkeychr=keychr1;
    if((keychr1 < 32)||(keychr1 > 126))filtkeychr=32;
    rayloc1[iisubc]=filtkeychr;
    gek2040(rayloc1,2);
    insel=1;
    clearline(rayloc1,1);
    aptinsert(rayloc1,alselptr(insel,1));
    y=y-1;
    inspg=1;
    oneikxj=1990;
    }
   }
// depth = 1
    if(iseqnc(oneikxj,1896))
    {
    cc1=lval1;
//  depth = 2  page 3014.4
     while(x <= cc1)
     {
     iisubc = albase1 + cc1 - 1;
     rayloc1[(iisubc + 1)] = rayloc1[iisubc];
     cc1=cc1-1;
     }
    oneikxj = 1880;
    }
// depth = 1
    if(iseqnc(oneikxj,1880))
    {
    filtkeychr=keychr1;
    if((keychr1 < 32) || (keychr1 > 126))filtkeychr=32;
    rayloc1[iisubc]=filtkeychr;
    x=x+1;
     if(alsel <= 5)
     {
//  depth = 3
     laput12(rayloc1);
     }
    oneikxj=1990;
    }
   if(iseqnc(oneikxj,1990))
   {
    lval1=0;
   }
  }
// bottom of ikx1864(rayloc1[],keychr1,alselone); second version
// depth = 0  page 3017
 public static void aptlocloc(int locba[],int alldestot,int allsrctot,int alp)
 {
  int allctr;
  allctr=0;
  while(allctr < alp)
  {
  locba[(alldestot+allctr)]=locba[(allsrctot+allctr)];
  allctr=allctr+1;
  }
 }
  public static String sfi(int sfichr)
  {
  int sfbchr;
  char sfdchar[] = new char[1];
  sfbchr=sfichr;
  if(sfbchr > 127)sfbchr=sfbchr-256;
  sfdchar[0]=(char)sfbchr;
  String sfcchr = new String(sfdchar);
  return sfcchr;
  }
// depth = 0
  public static String stringfroml(int slnumber)
  {
  String sflresh;
  int slbase,slbctr,slblen,slbtr;
  slbase=alselptr(slnumber,1);
  slbctr=0;
  slblen=clenval(crz0160,alselptr(slnumber,1));
  sflresh="";
    while(slbctr < slblen)
    {
    slbtr=crz0160[(slbase+slbctr)];
    sflresh=sflresh+sfi(slbtr);
    slbctr=slbctr+1;
    }
//   sflresh=sflresh+sfi(0);
   return sflresh;
  }
 public static void iek2000(int rayloc2[],int nzkey)
  {
  int erd,erxsub,erchk,ercmp;
  int albase2;
  erd=a80w;
  erxsub=x-1;
  clearline(rayloc2,2);
  alsel=1;
  albase2=alselptr(alsel,1);
  erchk=0;
   while(erxsub < a80w)
   {
   ercmp=rayloc2[(albase2+erxsub)];
   if(ercmp != 32)erchk=1;
   rayloc2[(albase2+erd)]=ercmp;
// depth = 2
   rayloc2[(albase2+erxsub)]=32;
   erd=erd+1;
   erxsub=erxsub+1;
   }
  if((iseqnc(nzkey,0))||(erchk != 0))
  {
  y=y+1;
  insel=2;
  aptinsert(rayloc2,alselptr(insel,1));
   if(clenval(rayloc2,alselptr(insel,1)) != 0)
   {
   marginselect=1;
   }
  clearline(rayloc2,2);
  y=y-2;
  alsel=1;
// depth = 2
  albase2=alselptr(alsel,1);
  }
  erd=0;
 }
// depth = 0 page 3018
  public static void gek2040(int rayloc3[],int zurtwo)
  {
  int rr2040;
   if(iseqnc(zurtwo,0))
   {
   iek2000(rayloc3,0);
   }
  chnext=0;
  laput12(rayloc3);
  x=1;
  y=y+1;
  rr2040=y;
  rr2040=0;
  }
  public static void dkx2050(int ray4[],int deltype44)
  {
  int tnydeltype,deltype,lval4,ix4,deldisp,cc4,dd4;
  int delgtl,delgcm;
  int albase4,iisub4,isi4;
  deltype=deltype44;
  tnydeltype=jimdivmod(deltype,16,15);
  delgtl=2142;
  cc4=1173;
  isi4=1174;
  ix4=1175;
  albase4=1176;
// error uninitialized albase4 ix4 isi4 cc4
  if(iseqnc(tnydeltype,0))delgtl=2050;
  if(iseqnc(tnydeltype,4))delgtl=2054;
  if(iseqnc(tnydeltype,5))delgtl=2055;
  if(iseqnc(tnydeltype,6))delgtl=2156;
  if(iseqnc(tnydeltype,8))delgtl=2158;
// deltype44 does not change alsel except deltype ???0
// deltype44 last hex digit matches replacement line numbers last digit
// and is usaually only one digit except backwards delete is 6+64
// 2050 delete key at x (make alsel=1)
// 2054 undefined alsel      2055 undefined inspg
// 2156 backwards delete (make alsel=1) deltype44 is 6+64 for 08
// 2158 undefined alsel
//  depth = 1
    if(iseqnc(delgtl,2156))
    {
    alsel=1;
    chdoc=1;
    delgtl=2142;
    if(x >= 2)delgtl=2158;
    if(y > 1)delgtl=2158;
    }
    if(iseqnc(delgtl,2158))
    {
    x=x-1;
    inspg=0;
    albase4=alselptr(alsel,1);
    delgtl=2054;
    if(x < 1)delgtl=2162;
    }
    if(iseqnc(delgtl,2162))
    {
    inspg=1;
// depth = 2
    delgtl=2167;
     if(y <= 1)
     {
     x=1;
     y=1;
     delgtl=2055;
     }
    }
// depth = 1 page 3019
   if(iseqnc(delgtl,2167))
   {
   y=y-1;
   lalocal12(ray4);
   lval4=clenval(ray4,alselptr(alsel,1));
   x=lval4+1;
   deltype=tnydeltype;
   if(x > a80w)x=a80w;
   delgtl=2055;
   }
   if(iseqnc(delgtl,2050))
   {
   alsel=1;
   delgtl=2054;
   }
   if(iseqnc(delgtl,2054))
   {
   inspg=0;
// depth = 2
   delgtl=2055;
   }
   if(iseqnc(delgtl,2055))
   {
   ch=1;
   albase4=alselptr(alsel,1);
   chnext=0;
   iisub4=albase4+x-1;
   delgtl=2067;
   if(alsel > 5)delgtl=2070;
   if(insertype != 0)delgtl=2070;
   if(iseqnc(delgtl,2067))
    {
    ray4[iisub4]=32;
    }
   }
   if(iseqnc(delgtl,2070))
   {
   lval4=clenval(ray4,alselptr(alsel,1));
// depth = 2
   delgtl=2075;
   if((alsel > 5)||(deltype > 63))delgtl=2076;
   if((iseqnc(delgtl,2075))&&(lval4 < x))delgtl=2096;
   if(delgtl < 2095)delgtl=2084;
   if(iseqnc(delgtl,2084))ix4=x;
    while(iseqnc(delgtl,2084))
    {
    isi4=albase4+ix4-1;
    if(ix4 >= lval4)delgtl=2090;
     if(iseqnc(delgtl,2084))
     {
     ray4[isi4]=ray4[(isi4+1)];
     ix4=ix4+1;
     }
    }
    if(iseqnc(delgtl,2090))
    {
    ray4[isi4]=32;
    delgtl=2067;
    }
   }
// bottom of 2070
// depth = 1  page 3020
   if(iseqnc(delgtl,2096))
   {
   deldisp=1+a80w-x;
   alsel=1;
   albase4=alselptr(alsel,1);
   ix4=x;
   delgtl=2106;
    while(iseqnc(delgtl,2106))
    {
    cc4=ix4-1;
    dd4=cc4+deldisp;
    delgtl=2112;
    if(cc4 < a80w)delgtl=2106;
      if(iseqnc(delgtl,2106))
      {
      isi4=albase4+dd4;
      ray4[(albase4+cc4)]=ray4[isi4];
      ix4=ix4+1;
      }
    }
    ix4=deldisp;
// depth = 2
    while(ix4 != 0)
    {
    isi4=albase4+cc4;
    ray4[isi4]=32;
    cc4=cc4+1;
    ix4=ix4-1;
    }
   delgtl=2122;
   ix4=0;
   while(iseqnc(delgtl,2122))
   {
   cc4=a80w+ix4;
   isi4=albase4+cc4;
   delgtl=2130;
   delgcm=ray4[isi4];
    if(delgcm != 32)
    {
    inspg=1;
    chnext=1;
    delgtl=2067;
    }
// depth = 3
    if(iseqnc(delgtl,2130))
    {
    ix4=ix4+1;
    delgtl=2135;
    if(ix4 < a80w)delgtl=2122;
    }
   }
// depth = 2 page 3021
  if(iseqnc(delgtl,2135))
   {
   y=y+1;
   deletemany(1);
   inspg=1;
   y=y-1;
   delgtl=2067;
   }
  }
// depth = 1  at bottom of 2096
   if((iseqnc(delgtl,2067))&&(alsel <= 5))
   {
   laput12(ray4);
   delgtl=2142;
   }
   if(iseqnc(delgtl,2142))
   {
   delgtl=2142;
   }
  }
// bottom of dkx2050(int ray4[],int deltype44);
// depth = 0
  public static void filtramread(int lrlocal[],int lrlinenumber,int lrlarry)
  {
  int lrlocadc;
  lrlocadc=alselptr(lrlinenumber,1);
   if((lrlarry < 1)||(lrlarry > afilelen))
   {
   clearline(lrlocal,lrlinenumber);
   }
   if((lrlarry >= 1)&&(lrlarry <= afilelen))
   {
   edmmu.getline(lrlarry,lrlocal,lrlocadc);
   }
  }
  public static int paisubfrty(int patinyy)
  {
// patinyy is from 1 to 25
// bigpy is 11 at 25 negative slope (bigpy-11) = -1(patinyy-25)
  int bigpy;
  bigpy=((0-1)*(patinyy-(ypheight+1)))+11;
   if(cmdheight > ypheight)
   {
   bigpy=((0-1)*(patinyy-(cmdheight+1)))+11;
   }
  return bigpy;
  }
// depth = 0  page 3022
  public static void pairprline(int tinyboy,int rprlnumber,
                                int curposone, int curpostwo)
  {
  int rprtargline,rprtargad,rprsrcad;
  rprtargline=paisubfrty(tinyboy);
   rprsrcad=alselptr(rprlnumber,1);
  rprtargad=alselptr(rprtargline,1);
   aptlocloc(crz0160,rprtargad,rprsrcad,a80w);
   if((iseqnc((rprlnumber-5),0))&&(curposone > 0))
   {
   onecurwozx=curposone;
   onecurwozy=tinyboy;
   }
   if((iseqnc((rprlnumber-5),0))&&(curpostwo > 0)&&(mouallowlocal > 0))
   {
   twocurwozx=curpostwo;
   twocurwozy=tinyboy;
   }
  }
// depth = 0 bottom of pairprline
  public static void paicvgcline(int sslselfive,int sposboy,int howmany)
  {
  int moucursorpos,mcp,shift,z80widthx,yzz,xzz,ypplh,concolor,cvgcpen;
  moucursorpos=0;
  mcp=0;
  shift=sposboy;
  cvgcpen=0;
  con> 0)&&(howmany < 3)&&(iseqnc((y-ypplh),0)))
    {
    mcp=x+1024;
    cvgcpen=1;
    if(insertype != 0)mcp=x;
    }
    if(howmany > 1)cvgcpen=1;
    if(cvgcpen != 0)
    {
    filtramread(crz0160,5,ypplh);
     if((howmany < 3)&&(mouallowlocal != 0))
     {
     mouy=mouy+(prindiff-prindiffprv);
     prindiffprv=prindiff;
      if((iseqnc((mouy-ypplh),0))&&(moux >= 1))
      {
      moucursorpos=moux+0;
// depth = 5
      }
     }
    }
   }
  if((sslselfive < 10)&&(sslselfive > 5))cvgcpen=1;
    if(cvgcpen != 0)
     {
     if((sslselfive < 9)&&(sslselfive > 5))mcp=x;
     pairprline(shift,sslselfive,mcp,moucursorpos);
    }
   }
// depth = 0 page 3023
  public static void pachrvgapage(int ghowmany)
  {
  int pavpagectr;
  onecurwozx=0;
  onecurwozy=0;
  twocurwozx=0;
  twocurwozy=0;
  pavpagectr=1;
   while(pavpagectr <= ypheight)
   {
   paicvgcline(5,pavpagectr,ghowmany);
   pavpagectr=pavpagectr+1;
   }
  }
// depth = 0 page 3023.2
   public static void udregkey2176(int udbkeychr)
   {
   int rlkey,udrkeychr,udrkeytype,udregkeyjmp;
   int petro8ctr,pete8len,peter8max;
   udrkeytype=ifs(1,"0");
   dagrajmpnow=53098;
   freddynext=52645;
   udregkeyjmp=2176;
   udrkeychr=jimdivmod(udbkeychr,256,255);
   if(iseqnc(jimdivmod(udbkeychr,256,0),0))udrkeytype=ifs(1,"1");
   if(iseqnc((jimdivmod(udbkeychr,256,0)-4),0))udrkeytype=ifs(1,"2");
   if(udrkeytype >= ifs(1,"1"))udregkeyjmp=2192;
    if(iseqnc((udregkeyjmp-2192),0) && iseqnc(udrkeychr,8))
    {
    dkx2050(crz0160,(6+64));
    chdoc=1;
    udregkeyjmp=2176;
    if(iseqnc(inspg,0))udregkeyjmp=2190;
    }
     if(iseqnc((udregkeyjmp-2192),0))
     {
      if(iseqnc(udrkeychr,10) || iseqnc(udrkeychr,13))
       {
       gek2040(crz0160,0);
//     depth = 3
       chdoc=1;
       x=marginselect;
       udregkeyjmp=2176;
       }
     }
   if(iseqnc((udregkeyjmp-2192),0)&&(iseqnc(udrkeychr,27)))
   {
   if(iseqnc(edken.dagraprvkey,27))
   {
   udregkeyjmp=2190;
   dagrajmpnow=52646;
//   dagraprvkey=32;
   }
   }
   if(iseqnc((udregkeyjmp-2192),0) && iseqnc(udrkeytype,ifs(1,"1")))
   {
   rlkey=udrkeychr;
   if(udrkeychr >= 31)
   {
   if((udrkeychr < 32)||(udrkeychr > 126))rlkey=32;
   ikx1864(crz0160,rlkey,1);
   }
    if((y > afilelen)&&(clenval(crz0160,alselptr(1,1)) >= 1))
    {
    afilelen=afilelen+1;
    }
   udregkeyjmp=2176;
   if(iseqnc(inspg,0))udregkeyjmp=2190;
   }
// depth = 1
   if(iseqnc((udregkeyjmp-2192),0) && iseqnc(udrkeytype,ifs(1,"2")))
    {
     if(iseqnc(udrkeychr,ifs(1,"P")))udregkeyjmp=2231;
// depth = 2  page 3023.4
     if(iseqnc(udrkeychr,ifs(1,"H")))udregkeyjmp=2234;
     if(iseqnc(udrkeychr,ifs(1,"I")))udregkeyjmp=2238;
     if(iseqnc(udrkeychr,ifs(1,"Q")))udregkeyjmp=2242;
     if(iseqnc(udrkeychr,ifs(1,"M")))udregkeyjmp=2246;
     if(iseqnc(udrkeychr,ifs(1,"K")))udregkeyjmp=2252;
     if(iseqnc(udrkeychr,ifs(1,"O")))udregkeyjmp=2263;
     if(iseqnc(udrkeychr,ifs(1,"R")))udregkeyjmp=2274;
     if(iseqnc(udrkeychr,ifs(1,"S")))udregkeyjmp=2290;
     if(iseqnc(udrkeychr,ifs(1,"G")))udregkeyjmp=2176;
     if(iseqnc(udrkeychr,ifs(1,"G")))dagrajmpnow=52646;
     if(iseqnc(udrkeychr,ifs(1,"G")))freddynext=52645;
     if(iseqnc(udrkeychr,ifs(1,"<")))udregkeyjmp=2176;
//     if(iseqnc(udrkeychr,ifs(1,"")))udregkeyjmp=
//     if(iseqnc(udrkeychr,ifs(1,"")))udregkeyjmp=
     if(iseqnc((udregkeyjmp-2192),0))udregkeyjmp=2176;
    }
// depth = 1
   if(iseqnc((udregkeyjmp-2231),0))
   {
   y=y+1;
// 2231 down arrow P
   udregkeyjmp=2176;
   }
   if(iseqnc((udregkeyjmp-2234),0))
   {
   y=y-1;
// 2234 up arrow H
   udregkeyjmp=2176;
   }
   if(iseqnc((udregkeyjmp-2238),0))
   {
// 2238 page up I
   y=(4+y)-ypheight;
   udregkeyjmp=2176;
   udregkeyjmp=2176;
   }
// depth = 1
   if(iseqnc((udregkeyjmp-2242),0))
   {
// 2242 page down Q
   y=(y+ypheight)-4;
   udregkeyjmp=2176;
   }
   if(iseqnc((udregkeyjmp-2246),0))
   {
// 2246 right arrow M
   x=x+1;
   udregkeyjmp=2190;
    if(x > a80w)
    {
    x=1;
    y=y+1;
    udregkeyjmp=2176;
    }
   }
// depth = 1
   if(iseqnc((udregkeyjmp-2252),0))
   {
// 2252 left arrow K
   x=x-1;
   udregkeyjmp=2190;
     if(x < 1)
     {
     if(y >= 2)y=y-1;
     lalocal12(crz0160);
// depth = 3                                    page 3023.6
     x=(clenval(crz0160,alselptr(1,1)))+1;
     if(x > a80w)x=a80w;
     udregkeyjmp=2176;
     }
   }
   if(iseqnc((udregkeyjmp-2263),0)&&(x > 1))
   {
//                        2263 end key O       depth = 2
   x=1;
   udregkeyjmp=2190;
   }
   if(iseqnc((udregkeyjmp-2263),0) && iseqnc(x,1) && (y <= afilelen))
   {
   y=afilelen+1;
   udregkeyjmp=2176;
   }
   if(iseqnc((udregkeyjmp-2263),0) && iseqnc(x,1) && (y > afilelen))
   {
   y=1;
   udregkeyjmp=2176;
   }
   if(iseqnc((udregkeyjmp-2274),0))
   {
//  2274 insert key R           depth = 2
   insertype=1-insertype;
   udregkeyjmp=2190;
   }
   if(iseqnc((udregkeyjmp-2290),0))
   {
   dkx2050(crz0160,0);
   chdoc=1;
//                       2290  delete key  S
   udregkeyjmp=2176;
   if(iseqnc(inspg,0))udregkeyjmp=2190;
   }
   if(iseqnc((udregkeyjmp-2176),0))
   {
//  2176 repaint page with text          depth = 2
   if(y > afilelen)y=afilelen+1;
   if(y < 1)y=1;
   if(x > a80w)x=a80w;
   if(x < 1)x=1;
   lalocal12(crz0160);
   pachrvgapage(2);
   udregkeyjmp=2190;
   }
   if(iseqnc((udregkeyjmp-2190),0))
   {
   if(y > afilelen)y=afilelen+1;
   if(y < 1)y=1;
   if(x > a80w)x=a80w;
   if(x < 1)x=1;
   lalocal12(crz0160);
   paicvgcline(5,(y-prindiff),0);
   wrnumber(crz0160,alselptr(9,42),3,10,x);
   wrnumber(crz0160,alselptr(9,46),7,10,y);
   wrnumber(crz0160,alselptr(9,54),2,10,(y-prindiff));
   wrnumber(crz0160,alselptr(9,58),7,10,afilelen);
   paicvgcline(9,(ypheight+1),4);
// afternine.  print filename.
   pete8len=clenval(crz0160,alselptr(8,1));
   peter8max=16;
   petro8ctr=1;
    if((pete8len >= 5)&&(pete8len < peter8max))
    {
     while(petro8ctr <= pete8len)
     {
      crz0160[alselptr(11,petro8ctr)] = crz0160[alselptr(8,petro8ctr)];
      petro8ctr=petro8ctr+1;
     }
    petro8ctr=pete8len+1;
     while(petro8ctr <= peter8max)
     {
     crz0160[alselptr(11,petro8ctr)]=32;
     petro8ctr=petro8ctr+1;
     }
    }
   paicvgcline(5,(y-prindiff),2);
// depth = 2
  }
 }
// depth = 0  end of  udregkey2176(int udbkeychr) bottom of page 3023.6
// page 3023.7
  public static void litrlsget(int rlslinal,int rlsindex,String rlstextb)
  {
  int rlslinalneg,litskip,litdexres,liteightsub;
  rlslinalneg=rlslinal;
  if(rlslinal >= 0)rlslinalneg = 0 - rlslinal;
  linefroms(rlslinalneg,(0-1),rlstextb);
  litskip = 0 - rdnumber(crz0160,alselptr((0-rlslinalneg),1),8,10);
// litskip is 000568 or the skip number
  liteightsub = 0-((8 * rlsindex) + 1);
  linefroms(rlslinalneg,liteightsub,rlstextb);
  litdexres = litskip - rdnumber(crz0160,alselptr((0-rlslinalneg),1),8,10);
// litdexres is result of rlsindex only
//  wrnumber(crz0160,alselptr((0-rlslinalneg),1),9,10,(0-litdexres));
  linefroms((0-rlslinalneg),litdexres,rlstextb);
  }
// depth = 0    page 3024
  public static int cmdjavcurz(int nzcjrepeat)
  {
  int lenleven,lbigleven,lenstep,threectr,tinyhctr,hdmoff,threebase;
  int elevbase,stepbase,jurcommand,lenthree,cjcznzres,dowmanycmd,javallowcmd;
  jurcommand=0;
  tinyhctr=1300;
  cjcznzres=0;
  threectr=0;
  dowmanycmd=1;
  javallowcmd=1;
  elevbase=alselptr(11,1);
  threebase=alselptr(3,1);
  lbigleven=clenval(crz0160,elevbase);
  lenleven=cmdlen(crz0160,elevbase);
  if(lenleven < 1)javallowcmd=0;
  if(((lbigleven-lenleven) >= 2)&&(javallowcmd > 0))
  {
  hdmoff=lenleven+2;
  dowmanycmd=rdnumber(crz0160,(elevbase+hdmoff-1),((lbigleven-hdmoff)+1),10);
//                     depth = 2
  }
  if(javallowcmd > 0)
  {
  threectr=3;
   while((threectr <= 28)&&(javallowcmd != 0))
   {
   litrlsget((0-3),threectr, edcst.litharg);
   lenthree=cmdlen(crz0160,threebase);
    if(iseqnc((lenthree-lenleven),0))
    {
    tinyhctr=0;
    cjcznzres=1;
//                  depth = 4
     while(tinyhctr < lenleven)
     {
     lenstep=crz0160[(elevbase+tinyhctr)];
     stepbase=crz0160[(threebase+tinyhctr)];
     if(ucget(lenstep) != ucget(stepbase))cjcznzres=0;
//      depth = 5
     tinyhctr=tinyhctr+1;
     }
     if(cjcznzres != 0)
     {
     jurcommand=threectr;
     javallowcmd=0;
     }
    }
//    depth = 3
    threectr=threectr+1;
   }
  }
//    depth = 1
   clearline(crz0160,3);
   cjcznzres=jurcommand;
   if(nzcjrepeat != 0)cjcznzres=dowmanycmd;
 return cjcznzres;
 }
// depth = 0  page 3025
  public static void scrollafter()
  {
  int shiftamany,shiftactr,shiftdctr,shiftabase,shiftdbase;
  shiftamany=cmdheight;
  if(ypheight > cmdheight)shiftamany=ypheight;
  shiftactr=1;
   while(shiftactr <= shiftamany)
   {
   shiftdctr=shiftactr+1;
   shiftabase=alselptr(paisubfrty(shiftactr),1);
   shiftdbase=alselptr(paisubfrty(shiftdctr),1);
   aptlocloc(crz0160,shiftabase,shiftdbase,a80w);
   shiftactr=shiftdctr;
   }
  clearline(crz0160,11);
  }
  public static void clearpage()
  {
  int cpgectr;
  cpgectr=0;
    while((cpgectr <= ypheight)||(cpgectr <= cmdheight))
    {
    scrollafter();
    cpgectr=cpgectr+1;
    }
  onecurwozx=0;
  onecurwozy=0;
  twocurwozx=0;
  twocurwozy=0;
  }
// depth = 0
  public static void readhex()
  {
  int hexeightctr,hexelevbase,hextchr;
  clearline(crz0160,11);
  hexelevbase=alselptr(11,1);
  hexeightctr=0;
    while(hexeightctr < 8)
    {
    hextchr=0;
     if(iseqnc(eofi,0))
      {
      hextchr=ediod.readone();
//  depth = 3
      }
    wrnumber(crz0160,alselptr(11,((hexeightctr*5)+6)),3,16,hextchr);
    if((hextchr < 33)||(hextchr > 126))hextchr=46;
    crz0160[(hexelevbase+(hexeightctr*5)+8)]=104;
    if(hexeightctr < 7)
    {
    crz0160[(hexelevbase+(hexeightctr*5)+9)]=44;
    }
    crz0160[(hexelevbase+59+hexeightctr)]=hextchr;
    hexeightctr=hexeightctr+1;
    }
  crz0160[hexelevbase+1]=100;
  crz0160[hexelevbase+2]=98;
  crz0160[hexelevbase+48]=59;
  }
// depth = 0  page 3026
   public static int readol(int rolfnwhere,int nzhex)
   {
   int readolres,readolallow;
   String readtempfns;
//   readcbstring="";
   readolallow=0;
   readolres=0;
   readtempfns=stringfroml(rolfnwhere);
   fp04=0;
   fl06=0;
// ------------------------
   if(ediod.needclose >= 0)
   {
   fl06=ediod.openreadfl(readtempfns);
   }
   if(ediod.needclose < 0)
   {
   fl06=readcbstring.length();
// 2215
   }
   if(fl06 > 0)readolallow=1;
   eofi=0;
   eofdelay=0;
   rep0=0;
   if((rolfnwhere > 7)&&(ediod.needclose >= 0))y=afilelen+1;
   while((readolallow != 0)&&(iseqnc(eofdelay,0)))
   {
   eofdelay=eofi;
// depth = 2
     if(iseqnc(nzhex,0))
     {
     reedline();
     if(iseqnc(rep0,0))eofdelay=eofi;
     }
     if(nzhex != 0)
     {
     readhex();
     }
    aptinsert(crz0160,alselptr(11,1));
    readolres=readolres+1;
    }
   if(fl06 > (0-1))
   {
   ediod.closeread();
   }
   readtempfns=null;
   if((rolfnwhere < 8) || (nzhex != 0))
   {
//   depth = 2
   clearline(crz0160,rolfnwhere);
   }
   if((rolfnwhere >= 7) && (rolfnwhere <= 8))
   {
   udregkey2176(1084);
   }
   ediod.needclose=0;
   return readolres;
  }
// depth = 0  page 3027   2340
  public static void eightsaveas(int wrendlen12)
  {
  int saveasctr,saveinner,savewid,savedhr;
  String savetempfns;
    if((clenval(crz0160,alselptr(8,1)) > 0)&&(afilelen > 0))
    {
    savetempfns=stringfroml(8);
    ediod.openwritefl(savetempfns);
    saveasctr=1;
      while(saveasctr <= afilelen)
      {
      filtramread(crz0160,5,saveasctr);
      savewid=clenval(crz0160,alselptr(5,1));
      if(savewid < 1)savewid=1;
      saveinner=1;
        while(saveinner <= savewid)
        {
        savedhr=crz0160[alselptr(5,saveinner)];
//  depth = 4
        ediod.writeone(savedhr);
        saveinner=saveinner+1;
        }
      if(edken.iseqnc(wrendlen12,2))
      {
      savedhr=13;
      ediod.writeone(savedhr);
      }
      savedhr=10;
      ediod.writeone(savedhr);
      saveasctr=saveasctr+1;
      }
    ediod.closewrite();
    clearline(crz0160,5);
    }
   }
// depth = 0
 public static boolean findoneeq(int ijstsix,int isixskip,int iftwod,int idiy)
  {
  int bisix,skipzur,six80wid,fdolop,fdilop,checkfdw,checkftw,fdices;
  int fdile,fdiri,bisixskipzur;
  boolean findonebr;
  bisixskipzur=0;
  if(iseqnc(ijstsix,11))bisixskipzur=isixskip;
  six80wid=a80w-bisixskipzur;
  findonebr=false;
  checkfdw=(clenval(crz0160,alselptr(ijstsix,1)))-bisixskipzur;
    if(checkfdw > 0)
    {
    fdolop=0;
     while(fdolop < (six80wid-checkfdw))
     {
     filtramread(crz0160,3,idiy);
//  depth = 3
     checkftw=(clenval(crz0160,alselptr(3,1)))-fdolop;
      if(checkftw >= checkfdw);
      {
      fdilop=1;
      fdices=1;
        while(fdilop <= checkfdw)
         {
//  depth = 5
         fdile=crz0160[alselptr(ijstsix,(fdilop+bisixskipzur))];
         fdiri=crz0160[alselptr(3,(fdilop+fdolop))];
         if((!(iseqnc(fdile,fdiri)))&&(fdile != 32))fdices=0;
         fdilop=fdilop+1;
         }
      if(fdices != 0)
      {
      findonebr=true;
      }
     }
// depth = 3
     if(findonebr || iseqnc(iftwod,0))
     {
     fdolop=six80wid+1;
     }
    fdolop=fdolop+1;
    }
// depth = 2
   }
  return findonebr;
  }
// depth = 0  page 3028
  public static void john2880(int xy2880[],int aysrc,int aydest,int aywidth)
  {
  int rindbase,one2880,hqsuba,hxright,hxctr;
// john2880 is animation with just one line
// source line is offset by lowleftx     XXXXXXXXXXXXXXXXXXXXX
// XXXXXXXXXXXXXX  sixline is offset by zero
// destination line is offset by   lowleftb      XXXXXXXXXXXXXXX
  alsel=6;
  rindbase=alselptr(alsel,1);
  clearline(xy2880,alsel);
  alsel=1;
  one2880=alselptr(alsel,1);
  filtramread(xy2880,alsel,aysrc);
  hxctr=0;
    while(hxctr < aywidth)
    {
    hqsuba=rindbase+hxctr;
    hxright=one2880+(hxctr+lowleftx-1);
    xy2880[hqsuba]=xy2880[hxright];
    hxctr=hxctr+1;
    }
  filtramread(xy2880,alsel,aydest);
  hxctr=0;
    while(hxctr < aywidth)
    {
    hqsuba=rindbase+hxctr;
//  depth = 2
    hxright=one2880+(hxctr+lowleftb-1);
    xy2880[hxright]=xy2880[hqsuba];
    hxctr=hxctr+1;
    }
  edmmu.putline(aydest,xy2880,one2880);
   }
// depth = 0
   public static void john2938(int xy2938[])
   {
   int nextcalen,johnjump;
   jxwidth=(0+uprightx-lowleftx);
   nextcalen=afilelen;
   lowleftc=y;
   jyheight=(0+uprighty-lowlefty);
   jynext=lowleftc+jyheight;
   jydiff=lowleftc-lowlefty;
// 2943 rem jydiff < 0 start small decrease
// 2944 rem jydiff >= 0 start big increase
   lowleftb=x;
   jxdiff=lowleftb-lowleftx;
   johnjump=2953;
   if((jywidth < 0)||(jyheight < 0))johnjump=2984;
   if(iseqnc(johnjump,2953))
   {
   jxwidth=jxwidth+1;
   johnjump=2956;
// depth = 2
   jyheight=jyheight+1;
   if(jydiff<0)johnjump=2972;
   }
   if(iseqnc(johnjump,2956))
   {
   jysrc=uprighty;
   yjn=0-1;
   jydest=jynext;
   johnjump=2976;
   }
   if(iseqnc(johnjump,2972))
   {
   jysrc=lowlefty;
   yjn=1;
   jydest=lowleftc;
   johnjump=2976;
   }
   if(iseqnc(johnjump,2976))
   {
   jyctr=0;
// depth = 2
    while(jyctr < jyheight)
    {
    jyctr=jyctr+1;
    john2880(xy2938,jysrc,jydest,jxwidth);
    if(nextcalen < jydest)nextcalen=jydest;
    jysrc=jysrc+yjn;
    jydest=jydest+yjn;
    }
   johnjump=2984;
   }
   if(iseqnc(johnjump,2984))
   {
   afilelen=nextcalen;
   }
  }
// depth = 0 page 3028.5
   public static int iscommandarg()
   {
   int iscgjmp,iscgtiny,iscgbig,iscgboores,iscgdiff,newleng,iscgctr;
   iscgdiff=0;
   iscgjmp=11019;
   iscgboores=0;
   iscgbig=clenval(crz0160,alselptr(11,1));
   iscgtiny=cmdlen(crz0160,alselptr(11,1));
   if(iscgtiny > 0)iscgdiff=(iscgtiny+1);
   if((iscgdiff > 0)&&(iscgbig > (iscgtiny+1)))iscgjmp=2047;
   if(iseqnc((iscgjmp-2047),0))
   {
   newleng=iscgbig-iscgdiff;
   iscgctr=1;
     while(iscgctr <= newleng)
     {
     crz0160[alselptr(11,iscgctr)]=crz0160[alselptr(11,(iscgctr+iscgdiff))];
//  depth = 3
     iscgctr=iscgctr+1;
     }
   iscgctr=newleng+1;
     while(iscgctr <= a80w)
     {
     crz0160[alselptr(11,iscgctr)]=32;
     iscgctr=iscgctr+1;
     }
// depth = 2
   iscgboores=1;
   }
  return iscgboores;
  }
// depth = 0 page 3029
   public static void printconst(int firstconst,int howmanyconst)
   {
   int hconstctr,rconstpos;
   rconstpos=firstconst;
   hconstctr=0;
     while(hconstctr < howmanyconst)
     {
     litrlsget(11,rconstpos,edcst.litharg);
     scrollafter();
     hconstctr=hconstctr+1;
     rconstpos=rconstpos+1;
     }
   }
// depth = 0
   public static int nzendkeyline(int cdeeln,int ddkey,int kdinitreqnz)
   {
   int nzendkres,dckey,dtkey,dfkey,dfallow;
   alsel=cdeeln;
   nzendkres=0;
    if(kdinitreqnz != 0)
    {
    cmdkeyxctr=1;
     if(cdeeln != 8)
      {
      clearline(crz0160,cdeeln);
      }
     if((cdeeln <= 8)&&(cdeeln >= 8))
      {
      cmdkeyxctr=clenval(crz0160,alselptr(cdeeln,1))+1;
      }
    }
   dckey=jimdivmod(ddkey,256,255);
   dtkey=jimdivmod(ddkey,512,0);
   if(iseqnc((cdeeln-11),0))dtkey=1;
   dfkey=dckey;
   if((dckey < 32)||(dckey > 126))dfkey=32;
   dfallow=0;
   if((dtkey < 2)&&(iseqnc((cdeeln-11),0)))dfallow=1;
// copy top
// depth = 1
   if(dfallow != 0)
   {
    if(iseqnc((dckey-8),0))
    {
    dfallow=0;
//  depth = 3
     if((cmdkeyxctr >= 2)&&(cmdkeyxctr <= a80w))
     {
     cmdkeyxctr=cmdkeyxctr-1;
     }
     if((cmdkeyxctr >= 1)&&(cmdkeyxctr < a80w))
     {
     crz0160[alselptr(cdeeln,cmdkeyxctr)]=32;
     }
    }
    if(iseqnc((dckey-13),0) || iseqnc((dckey-10),0))
    {
    dfallow=0;
    nzendkres=1;
    }
   }
// depth = 1
// copy                                                             bottom
  if(dfallow != 0)
  {
    if(ddkey > 1023)
   {
// -----------------
    if((cmdkeyxctr >= 1)&&(cmdkeyxctr <= a80w))
    {
    dfallow=0;
    crz0160[alselptr(cdeeln,cmdkeyxctr)]=32;
    cmdkeyxctr=cmdkeyxctr+1;
    if(cmdkeyxctr > a80w)nzendkres=1;
    }
// -----------------
   }
    if((cmdkeyxctr >= 1)&&(cmdkeyxctr <= a80w))
    {
    dfallow=0;
    crz0160[alselptr(cdeeln,cmdkeyxctr)]=dfkey;
    cmdkeyxctr=cmdkeyxctr+1;
    if(cmdkeyxctr > a80w)nzendkres=1;
    }
   }
// depth = 1     line numbers 6-8 normal key
   if((cdeeln < 11)&&(dtkey < 2))dfallow=1;
// copy top
// depth = 1
   if(dfallow != 0)
   {
    if(iseqnc((dckey-8),0))
    {
    dfallow=0;
//  depth = 3
     if((cmdkeyxctr >= 2)&&(cmdkeyxctr <= a80w))
     {
//     cmdkeyxctr=cmdkeyxctr-1;
     x=cmdkeyxctr;
     dkx2050(crz0160,8);
     cmdkeyxctr=x;
     }
//     if((cmdkeyxctr >= 1)&&(cmdkeyxctr < a80w)
//     {
//     crz0160[alselptr(cdeeln,cmdkeyxctr)]=32;
//     }
    }
    if(iseqnc((dckey-13),0) || iseqnc((dckey-10),0))
    {
    dfallow=0;
    nzendkres=1;
    x=1;
    }
   }
// depth = 1
// copy                                                             bottom
// page 3030   depth = 1
   if(dfallow != 0)
   {
    if((cmdkeyxctr >= 1)&&(cmdkeyxctr <= a80w))
    {
    x=cmdkeyxctr;
    if(dfkey != 27)ikx1864(crz0160,dfkey,cdeeln);
    cmdkeyxctr=x;
    dfallow=0;
    if(cmdkeyxctr > a80w)nzendkres=1;
    }
   }
   if((cdeeln < 11)&&(iseqnc(dtkey,2)))dfallow=1;
   if(dfallow != 0)
   {
    if(iseqnc(dckey,ifs(1,"O")))
    {
// depth = 3
    cmdkeyxctr=1;
    dfallow=0;
    }
    if(iseqnc(dckey,ifs(1,"K"))&&(cmdkeyxctr >= 2))
    {
    cmdkeyxctr=cmdkeyxctr-1;
    dfallow=0;
    }
    if(iseqnc(dckey,ifs(1,"M"))&&(cmdkeyxctr < a80w))
    {
    cmdkeyxctr=cmdkeyxctr+1;
// depth = 3
    dfallow=0;
    }
    if(iseqnc(dckey,ifs(1,"R")))
    {
    insertype=1-insertype;
    dfallow=0;
    }
    if(iseqnc(dckey,ifs(1,"S")))
    {
     if((cmdkeyxctr >= 1)&&(cmdkeyxctr <= a80w))
     {
     x=cmdkeyxctr;
// depth = 4
     dkx2050(crz0160,4);
     cmdkeyxctr=x;
     dfallow=0;
     }
    }
   }
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx=cmdkeyxctr;
   if(nzendkres != 0)onecurwozx=0;
   if(cdeeln < 11)
   {
   aptlocloc(crz0160,alselptr(11,1),alselptr(cdeeln,1),a80w);
   }
   return nzendkres;
  }
// depth = 0  bottom of page 3030
// depth = 0  page 3030.5
  public static void new2608()
  {
  ypheight=24;
  ctdkbref=7;
  a80w=80;
  cmdheight=9;
  xsyswid=10;
  ysyshgt=10;
  x=1;
  y=1;
  prindiff=0;
  prinjill=0;
  nzerror=0;
  afilelen=0;
  chnext=0;
  chdoc=0;
  ch=0;
  insertype=1;
  inspg=0;
  marginselect=1;
  alocalh=0;
  prindiffprv=0;
  uprighty=0;
  lowlefty=1;
  tnymouxprv=0;
  tnymouyprv=0;
  mouallowlocal=0;
  mouallowglobal=0;
  yre=1;
  xe=1;
  uprightx=0;
  lowleftx=1;
  bkgnd=32;
  uppercase=0;
  evdk=0;
  eofi=0;
//  pose=hiskwid;
  rep0=0;
  eofi=1;
  while(eofi <= 11)
  {
  clearline(crz0160,eofi);
  eofi=eofi+1;
  }
  elevrd=alselptr(11,1);
  hv0c=0;
// clearpage line 9
  eofi=0;
  clearpage();
  litrlsget(9,52,edcst.litharg);
  onecurwozx=0;
  onecurwozy=0;
  twocurwozx=0;
  twocurwozy=0;
  dagrajmpnow=52645;
  freddynext=52645;
  dagraprvkey=32;
  shiftjoeysnz=0;
  }
// depth = 0 page 3030.8
  public static boolean isdag(int fredisaspy)
  {
  boolean isdagres;
  isdagres=true;
  if(dagrajmpnow != fredisaspy)isdagres=false;
  return isdagres;
  }
// depth = 0 page 3031
// get command line with udgetcoml
  public static void udgetcoml(int dgctln,int ndjmp,int lopjmp)
  {
   int gclnz;
   if(isdag(lopjmp))
   {
   dagrajmpnow=53098;
   freddynext=lopjmp;
   gclnz=nzendkeyline(dgctln,dagranewkey,keyclineinit);
   keyclineinit=0;
    if(gclnz != 0)
    {
    dagrajmpnow=ndjmp;
    }
   }
  }
// print a constant line    tinypcl   depth = 0
  public static void tinypcl(int nexsta,int prwih,int gtonec,int actma)
  {
    if(isdag(actma))
    {
     if(gtonec > 1)
     {
     clearpage();
     }
    printconst(prwih,1);
    keyclineinit=1;
     if(gtonec > 0)
     {
     scrollafter();
//     depth = 3
     }
    freddynext=nexsta;
    dagrajmpnow=53098;
     if(gtonec < 1)
     {
     dagrajmpnow=freddynext;
     }
// set cursor for command line input                    xx
   if(gtonec >= 1)
   {
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx = 1;
    }
// -----------------------------------------------------XX
   }
  }
// depth = 0  page 3032
// no arguments. ron52640 uses dagranewkey dagrajmpnow
  public static void ron52640()
  {
  commandgui=0;
  if(isdag(52640))
  {
  xe=1;
  yre=1;
  x=1;
  y=1;
  dagrajmpnow=52648;
  }
  if(isdag(52642))
  {
  x=xe;
  y=yre;
// depth = 2
// bottom copy of 52642 insert fix
// clearpage();
// udregkey2176(1084);
  dagrajmpnow=52645;
  }
  if(isdag(52645))
  {
// udregkey2176 is at label 52645. it exits to label 52646.
  udregkey2176(dagranewkey);
  }
  if(isdag(52646))
  {
  xe=x;
  yre=y;
  dagrajmpnow=52648;
  }
// depth = 1 page 3033
  if(isdag(52648))
  {
  clearpage();
  printconst(30,((51-30)+1));
  freddynext=52661;
  dagrajmpnow=53098;
  }
  if(isdag(52661))
  {
  keychar5=jimdivmod(dagranewkey,256,255);
  keycmd5=ucget(keychar5);
  if((keychar5 < 32) || (keychar5 > 126))keycmd5=32;
  if(dagranewkey > 1023)keycmd5=32;
  freddynext=52661;
// depth = 2
  dagrajmpnow=53098;
  if(iseqnc(keychar5,13) || iseqnc(keychar5,10))freddynext=52642;
  if(iseqnc(edken.dagraprvkey,27))
  {
  if(iseqnc(keychar5,27))dagrajmpnow=52800;
  }
  if(iseqnc(keycmd5,ifs(1,"R")))freddynext=52642;
  if(iseqnc(keycmd5,ifs(1,"N")) || iseqnc(keycmd5,ifs(1,"W")))
  {
  new2608();
  freddynext=52642;
  dagrajmpnow=53098;
  }
  if(iseqnc(keycmd5,ifs(1,"O")))dagrajmpnow=52733;
  if(iseqnc(keycmd5,ifs(1,"P")))dagrajmpnow=52988;
  if(iseqnc(keycmd5,ifs(1,"X")))dagrajmpnow=36155;
// depth = 2
  if(iseqnc(keycmd5,ifs(1,";")))dagrajmpnow=52740;
  if(iseqnc(keycmd5,ifs(1,"-")))dagrajmpnow=52741;
  if(iseqnc(keycmd5,ifs(1,"L")))dagrajmpnow=52736;
  if(iseqnc(keycmd5,61))dagrajmpnow=36585;
  if(iseqnc(keycmd5,ifs(1,"Z")))dagrajmpnow=36156;
  if(iseqnc(keycmd5,ifs(1,"A")))dagrajmpnow=52776;
  if(iseqnc(keycmd5,ifs(1,"U")))dagrajmpnow=36154;
  if(iseqnc(keycmd5,ifs(1,"E")))dagrajmpnow=52782;
  if(iseqnc(keycmd5,ifs(1,"Q")))dagrajmpnow=52800;
  if(iseqnc(keycmd5,ifs(1,"F")))dagrajmpnow=52804;
  if(iseqnc(keycmd5,ifs(1,"G")))dagrajmpnow=52814;
  if(iseqnc(keycmd5,ifs(1,"C")))dagrajmpnow=36170;
  if(iseqnc(keycmd5,ifs(1,"M")))dagrajmpnow=53000;
  if(iseqnc(keycmd5,ifs(1,"T")))dagrajmpnow=52708;
  if(iseqnc(keycmd5,ifs(1,"B")))dagrajmpnow=52714;
  if(iseqnc(keycmd5,ifs(1,"D")))dagrajmpnow=52720;
  if(iseqnc(keycmd5,ifs(1,"I")))dagrajmpnow=52860;
  if(iseqnc(keycmd5,ifs(1,"Y")))dagrajmpnow=53072;
  if(iseqnc(keycmd5,ifs(1,"H")))dagrajmpnow=53054;
  }
// depth = 1
  if(isdag(52708))
  {
  yre=1;
  xe=1;
  freddynext=52642;
  dagrajmpnow=53098;
  }
  if(isdag(52714))
  {
  yre=afilelen+1;
  xe=1;
  freddynext=52642;
  dagrajmpnow=53098;
  }
  if(isdag(52720))
// d bkgnd 52720     b bot 52714        t top 52708  depth =1
  {
  bkgnd=32;
  clearpage();
  printconst(56,1);
  dagrajmpnow=53098;
  freddynext=52731;
  }
  if(isdag(52731))
  {
// callback with background key value that may be different from d
  bkgnd=jimdivmod(dagranewkey,256,255);
  if((bkgnd < 32) || (bkgnd > 126))bkgnd=32;
  freddynext=52642;
  dagrajmpnow=53098;
  }
  if(isdag(52733))
  {
// 52733  open       depth = 2
  opendell=2;
  y=afilelen+1;
  tinypcl(52734,57,0,52733);
  }
// ----------- cut here
  if(isdag(52734))
  {
  scrollafter();
  scrollafter();
  aptlocloc(crz0160,alselptr(11,1),alselptr((opendell+6),1),a80w);
  dagrajmpnow=53098;
  freddynext=52742;
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx = 1;
   if((opendell < 3)&&(opendell > 1))
   {
   onecurwozx = clenval(crz0160,alselptr((opendell+6),1)) + 1;
   }
// -----------------------------------------------------XX
  }
// ----------------------------------------------------------------B
// cut top for binary -------------------------------------
  if(isdag(52736))
  {
// 52736 load     depth = 2
  opendell=1;
  tinypcl(52742,58,2,52736);
  }
  udgetcoml((opendell+6),52743,52742);
  if(isdag(52743))
  {
   if(clenval(crz0160,alselptr((opendell+6),1)) > 0)
    {
    if((afilelen > 0) || (uppercase != 0))chdoc=1;
    ediod.needclose=0;
    readol((opendell+6),0);
    }
  if((opendell <= 2)&&(opendell >= 2))yre=afilelen+1;
  freddynext=52642;
  dagrajmpnow=53098;
  }
 if(isdag(52740))
 {
 chdoc=1;
 opendell=1+4;
 ediod.needclose=0-1;
 readol((opendell+6),16);
 if((opendell <=2)&&(opendell >=2))yre=afilelen+1;
 opendell=1;
 freddynext=52642;
 dagrajmpnow=53098;
 }
// insert read clipboard here
 if(isdag(52741))
 {
 chdoc=1;
// if((afilelen > 0) || (uppercase != 0))chdoc=1;
 opendell=1+4;
 ediod.needclose=0-1;
 readol((opendell+6),0);
 if((opendell <= 2)&&(opendell >= 2))yre=afilelen+1;
 opendell=1;
 freddynext=52642;
 dagrajmpnow=53098;
 }
// cut bottom for binary --------------------------------------B
//         36585 is = load hexadecimal equivelent   ---------
  if(isdag(36585))
  {
// 36585 load hexadecimal equivelent    depth = 2
  opendell=1;
  tinypcl(36587,58,2,36585);
  }
  udgetcoml((opendell+6),36588,36587);
  if(isdag(36588))
  {
   if(clenval(crz0160,alselptr((opendell+6),1)) > 0)
    {
    if((afilelen > 0) || (uppercase != 0))chdoc=1;
    ediod.needclose=0;
    readol((opendell+6),16);
    }
  if((opendell <= 2)&&(opendell >= 2))yre=afilelen+1;
  freddynext=52642;
  dagrajmpnow=53098;
  }
// cut bottom for binary ------ depth = 1 --------------------------B
// page 3034.5  depth = 1
  if(isdag(52782))
  {
// e exit 52782  depth = 2
   if(iseqnc(chdoc,0))dagrajmpnow=52800;
   if(chdoc != 0)
   {
   tinypcl(52793,55,2,52782);
   }
  }
  if(isdag(52793))
  {
  dagrajmpnow=53098;
  freddynext=52648;
  keycmd5=ucget(jimdivmod(dagranewkey,256,255));
  if(iseqnc(keycmd5,ifs(1,"N")))dagrajmpnow=52800;
  if(iseqnc(keycmd5,ifs(1,"Y")))dagrajmpnow=52797;
  }
  tinypcl(36583,54,0,52797);
// ----------- cut here
  if(isdag(36583))
  {
  scrollafter();
  scrollafter();
  aptlocloc(crz0160,alselptr(11,1),alselptr(8,1),a80w);
  dagrajmpnow=53098;
  freddynext=52798;
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
// onecurwozx = 1;
   onecurwozx = clenval(crz0160,alselptr(8,1)) + 1;
// -----------------------------------------------------XX
  }
// ----------------------------------------------------------------B
// depth = 1
  udgetcoml(8,52799,52798);
  if(isdag(52799))
  {
  eightsaveas(2);
  chdoc=0;
  dagrajmpnow=52800;
  }
// depth = 1   page 3035
  tinypcl(36581,53,0,52776);
// ----------- cut here
  if(isdag(36581))
  {
  scrollafter();
  scrollafter();
  aptlocloc(crz0160,alselptr(11,1),alselptr(8,1),a80w);
  dagrajmpnow=53098;
  freddynext=52777;
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
// onecurwozx = 1;
   onecurwozx = clenval(crz0160,alselptr(8,1))+1;
// -----------------------------------------------------XX
  }
// ----------------------------------------------------------------B
  udgetcoml(8,52778,52777);
  if(isdag(52778))
  {
  eightsaveas(2);
  chdoc=0;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(52800))
  {
//         52800 request quit 11019 shut down java window
  clearpage();
  dagrajmpnow=53098;
  freddynext=11019;
  }
  if(isdag(52804))
//         52804 lowleftx lowlefty   f set upleft depth = 1
  {
  lowleftx=xe;
  lowlefty=yre;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(52814))
  {
// uprightx uprighty               depth = 2
  uprightx=xe;
  uprighty=yre;
  dagrajmpnow=53098;
  freddynext=52642;
  }
// depth = 1 page 3036
  tinypcl(52864,59,2,52860);
  udgetcoml(6,52867,52864);
  if(isdag(52867))
  {
  lfdal=0;
  if(iseqnc(dagraprvkey,32))lfdal=1;
  rcmdctr=yre;
  dagraprvkey=1;
   while((rcmdctr <= afilelen)&&(dagraprvkey != 0))
   {
   if(findoneeq(6,0,lfdal,rcmdctr))dagraprvkey=0;
   if(dagraprvkey != 0)rcmdctr=rcmdctr+1;
   }
  yre=rcmdctr;
  dagrajmpnow=53098;
  freddynext=52642;
  if(dagraprvkey != 0)freddynext=52648;
  }
// depth = 1
  if(isdag(52988))
  {
//         52988 p copy block lower left
  john2938(crz0160);
  chdoc=1;
  lowleftx=lowleftb;
  lowlefty=lowleftc;
  uprighty=uprighty+jydiff;
  uprightx=uprightx+jxdiff;
  dagrajmpnow=53098;
  freddynext=52642;
  }
// depth = 1  page 3037
  if(isdag(53000))
  {
//         53000  m move block lower left
  john2938(crz0160);
  chdoc=1;
  dagrajmpnow=53008;
  freddynext=52642;
  if(jxwidth < 1)dagrajmpnow=53098;
  if(jyheight < 1)dagrajmpnow=53098;
  if((iseqnc((lowleftx-lowleftb),0))&&(iseqnc((lowlefty-lowleftc),0)))
  {
  dagrajmpnow=53098;
  }
  if(isdag(53008))
  {
  tzrx=uprightx+jxdiff;
  tzby=uprighty+jydiff;
// depth = 3
  yyectr=lowlefty;
   while(yyectr < (uprighty+1))
   {
   xxjctr=lowleftx;
   alsel=1;
   xxabase=alselptr(alsel,1);
   filtramread(crz0160,alsel,yyectr);
    while(xxjctr < (uprightx+1))
    {
    xxasub=xxabase+(xxjctr-1);
// depth = 5
    dagrajmpnow=53042;
    if(xxjctr < lowleftb)dagrajmpnow=53040;
    if(xxjctr > tzrx)dagrajmpnow=53040;
    if(yyectr < lowleftc)dagrajmpnow=53040;
    if(yyectr > tzby)dagrajmpnow=53040;
     if(isdag(53040))
     {
// depth = 6
     crz0160[xxasub]=bkgnd;
     }
    xxjctr=xxjctr+1;
    edmmu.putline(yyectr,crz0160,xxabase);
   }
   yyectr=yyectr+1;
  }
  lowleftx=lowleftb;
  lowlefty=lowleftc;
  uprighty=uprighty+jydiff;
  uprightx=uprightx+jxdiff;
  chdoc=1;
  dagrajmpnow=53098;
  freddynext=52642;
   }
  }
// depth = 1  page 3038
  if(isdag(53054))
  {
//         53054  h rightmost
  alsel=1;
  xxabase=alselptr(alsel,1);
  filtramread(crz0160,alsel,yre);
  xe=(clenval(crz0160,xxabase))+1;
  if(iseqnc((x-xe),0) || (xe > a80w))xe=a80w;
  clearline(crz0160,alsel);
  x=xe;
  dagrajmpnow=53098;
  freddynext=52642;
  }
// 53072  y  ylinenumber      depth = 1
  tinypcl(53071,60,2,53072);
  udgetcoml(6,53070,53071);
  if(isdag(53070))
  {
  rcmdctr=rdnumber(crz0160,alselptr(6,1),8,10);
  if(afilelen < rcmdctr)rcmdctr=afilelen+1;
  if(rcmdctr < 1)rcmdctr=1;
  y=rcmdctr;
  yre=rcmdctr;
  rcmdctr=0;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(36154))
  {
//         36154  u         depth = 2
  uppercase=97-uppercase;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(36155))
  {
//         36155 x          depth = 2
  marginselect=(8-marginselect);
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(36156))
  {
//         36156 z          depth = 2
  dagrajmpnow=53098;
  freddynext=52642;
  if(chdoc != 0)freddynext=52648;
  }
// depth = 1 page 3039       36170 c   36180 print commands 36200 commandkeys
  if(isdag(36170))
  {
  clearpage();
  dagrajmpnow=36180;
  }
  tinypcl(36180,1,0,36326);
  tinypcl(36182,3,0,36180);
  tinypcl(36184,16,0,36182);
  tinypcl(36186,29,0,36184);
  tinypcl(36200,61,1,36186);
  udgetcoml(11,36202,36200);
  if(isdag(36202))
  {
  curcommand=cmdjavcurz(0);
  howmanycmd=cmdjavcurz(1);
  rcmdctr=iscommandarg();
// depth = 2
   if(iseqnc(rcmdctr,0))
   {
   scrollafter();
   wrnumber(crz0160,alselptr(11,1),3,10,a80w);
   wrnumber(crz0160,alselptr(11,4),2,10,curcommand);
   wrnumber(crz0160,alselptr(11,8),7,10,howmanycmd);
   wrnumber(crz0160,alselptr(11,18),7,10,y);
   wrnumber(crz0160,alselptr(11,28),4,10,xsyswid);
   wrnumber(crz0160,alselptr(11,33),4,10,ysyshgt);
// scrollafter();
// depth = 3
   }
  dagrajmpnow=53098;
  freddynext=36326;
  if(iseqnc((curcommand-3),0))dagrajmpnow=36303;
  if(iseqnc((curcommand-4),0))dagrajmpnow=36314;
  if(iseqnc((curcommand-5),0))dagrajmpnow=36325;
  if(iseqnc((curcommand-6),0))dagrajmpnow=36326;
  if(iseqnc((curcommand-7),0))dagrajmpnow=36337;
  if(iseqnc((curcommand-8),0))dagrajmpnow=36348;
  if(iseqnc((curcommand-9),0))dagrajmpnow=36349;
  if(iseqnc((curcommand-10),0))dagrajmpnow=36360;
  if(iseqnc((curcommand-11),0))dagrajmpnow=36371;
  if(iseqnc((curcommand-12),0))dagrajmpnow=36372;
  if(iseqnc((curcommand-13),0))dagrajmpnow=36383;
  if(iseqnc((curcommand-14),0))dagrajmpnow=36394;
  if(iseqnc((curcommand-15),0))dagrajmpnow=36395;
  if(iseqnc((curcommand-16),0))dagrajmpnow=36396;
// depth = 2
  if(iseqnc((curcommand-17),0))dagrajmpnow=36407;
  if(iseqnc((curcommand-18),0))dagrajmpnow=36418;
  if(iseqnc((curcommand-19),0))dagrajmpnow=36429;
  if(iseqnc((curcommand-20),0))dagrajmpnow=36440;
  if(iseqnc((curcommand-21),0))dagrajmpnow=36451;
  if(iseqnc((curcommand-22),0))dagrajmpnow=36462;
  if(iseqnc((curcommand-23),0))dagrajmpnow=36473;
  if(iseqnc((curcommand-24),0))dagrajmpnow=36484;
  if(iseqnc((curcommand-25),0))dagrajmpnow=36495;
//  depth = 2  page  3040;
  if(iseqnc((curcommand-26),0))dagrajmpnow=36506;
  if(iseqnc((curcommand-27),0))dagrajmpnow=36517;
  if(iseqnc((curcommand-28),0))dagrajmpnow=36528;
  if(iseqnc((curcommand-29),0))dagrajmpnow=36529;
  }
// depth = 1         36303 insertb
  tinypcl(36304,62,1,36303);
  udgetcoml(11,36305,36304);
//                   36314 is insert
  tinypcl(36315,63,1,36314);
  udgetcoml(11,36316,36315);
  if(isdag(36316))
  {
  if(afilelen >= y)y=y+1;
  dagrajmpnow=36305;
  }
  if(isdag(36305))
  {
  aptinsert(crz0160,alselptr(11,1));
  scrollafter();
  y=y-1;
  chdoc=1;
  dagrajmpnow=53098;
  freddynext=36180;
  }
// depth = 1    S 36325 is deletemany
  if(isdag(36325))
  {
  deletemany(howmanycmd);
  chdoc=1;
  dagrajmpnow=53098;
  freddynext=36180;
  }
// 36326 commanderror    may be put at bottom
  if(isdag(36326))
  {
  dagrajmpnow=53098;
  freddynext=36326;
  }
// 36326 commanderror   may be put at   bottom
// 36337   7 mright     depth = 1
  if(isdag(36337))
  {
  scrollafter();
  rcmdctr=0;
  if(y > afilelen)y=y-cmdheight;
   while(rcmdctr < cmdheight)
   {
   filtramread(crz0160,11,(y+rcmdctr));
   scrollafter();
   rcmdctr=rcmdctr+1;
   }
  y=y+rcmdctr;
  dagrajmpnow=53098;
  freddynext=36180;
  }
// 36348  8 kleft          depth = 1
   if(isdag(36348))
   {
   scrollafter();
   rcmdctr=0;
    while(rcmdctr < cmdheight)
    {
    filtramread(crz0160,11,(y+rcmdctr));
    scrollafter();
    rcmdctr=rcmdctr+1;
    }
   y=y-rcmdctr;
   if(y<1)y=1;
   dagrajmpnow=53098;
   freddynext=36180;
   }
// depth = 1   36349 tof 9
  if(isdag(36349))
  {
  y=1;
  dagrajmpnow=36350;
  }
// 36360  bot 10
  if(isdag(36360))
  {
  y=afilelen;
  dagrajmpnow=36350;
  }
// 36371 up 11
  if(isdag(36371))
  {
  y=y-howmanycmd;
  dagrajmpnow=36350;
  }
// 36372 down 12   depth = 1
  if(isdag(36372))
  {
  y=y+howmanycmd;
  dagrajmpnow=36350;
  }
  if(isdag(36350))
  {
  if(y > afilelen)y=afilelen;
  if(y<1)y=1;
  scrollafter();
  filtramread(crz0160,11,y);
  scrollafter();
  dagrajmpnow=53098;
  freddynext=36180;
  }
// depth = 1  page 3041  36383 input 13
  tinypcl(36384,64,0,36383);
  if(isdag(36384))
  {
  y=afilelen+1;
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx = 1;
// -----------------------------------------------------XX
  dagrajmpnow=53098;
  freddynext=36385;
  }
  udgetcoml(11,36386,36385);
  if(isdag(36386))
  {
  rcmdctr=clenval(crz0160,alselptr(11,1));
  dagrajmpnow=53098;
  freddynext=36180;
  if(rcmdctr > 0)dagrajmpnow=36387;
  }
  if(isdag(36387))
  {
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx = 1;
// -----------------------------------------------------XX
  dagrajmpnow=53098;
  freddynext=36385;
  keyclineinit=1;
  aptinsert(crz0160,alselptr(11,1));
  scrollafter();
  chdoc=1;
  }
  if(isdag(36394))
  {
// depth = 2    36394 is quit 14
  if(howmanycmd != 0)y=howmanycmd;
  scrollafter();
  scrollafter();
  filtramread(crz0160,11,y);
  dagrajmpnow=53098;
  freddynext=11019;
  }
  if(isdag(36395))
  {
  dagrajmpnow=53098;
// 36395 print is not supported on non-dos systems
  freddynext=36326;
  }
// depth = 1 page 3042  36396 replace 16
  if(isdag(36396))
  {
  filtramread(crz0160,11,y);
  scrollafter();
  dagrajmpnow=36397;
  }
  tinypcl(36398,65,1,36397);
  udgetcoml(11,36399,36398);
  if(isdag(36399))
  {
  rcmdctr=clenval(crz0160,alselptr(11,1));
  dagrajmpnow=36400;
// depth = 2
  if(rcmdctr > 0)dagrajmpnow=36405;
  }
// depth = 1
  tinypcl(36401,66,1,36400);
  udgetcoml(11,36402,36401);
  if(isdag(36402))
  {
  freddynext=36180;
  dagrajmpnow=53098;
// depth = 2
  rcmdctr=crz0160[alselptr(11,1)];
  if(iseqnc(rcmdctr,ifs(1,"Y")))dagrajmpnow=36403;
  }
  if(isdag(36403))
  {
  clearline(crz0160,11);
// depth = 2
  dagrajmpnow=36405;
  }
// depth = 1
  if(isdag(36405))
  {
  if((y >= 1)&&(y <= (afilelen+1)))
  {
  edmmu.putline(y,crz0160,alselptr(11,1));
// depth = 3
  chdoc=1;
  scrollafter();
  }
  freddynext=36180;
  dagrajmpnow=53098;
  }
// depth = 1       36407 v 17
  if(isdag(36407))
  {
  rcmdctr=0;
   while(rcmdctr < cmdheight)
   {
   filtramread(crz0160,11,(y+rcmdctr));
   rcmdctr=rcmdctr+1;
   scrollafter();
   }
  dagrajmpnow=53098;
  freddynext=36180;
  }
// depth = 1   page 3043       36418  open
  if(isdag(36418))
  {
  dagrajmpnow=36419;
   if((rcmdctr > 0)&&(clenval(crz0160,alselptr(11,1)) > 0))
   {
   dagrajmpnow=36422;
   }
  }
  tinypcl(36420,57,1,36419);
  udgetcoml(11,36421,36420);
// depth = 1
  if(isdag(36421))
  {
  dagrajmpnow=53098;
  freddynext=36326;
  if(clenval(crz0160,alselptr(11,1)) > 0)dagrajmpnow=36422;
  }
  if(isdag(36422))
  {
  dagrajmpnow=53098;
  freddynext=36180;
  if(afilelen > 0)chdoc=1;
  ediod.needclose=0;
  readol(11,0);
  }
// depth = 1  save 19  36429
  if(isdag(36429))
  {
  dagrajmpnow=36430;
  if((rcmdctr > 0)&&(clenval(crz0160,alselptr(11,1)) > 0))
  {
  aptlocloc(crz0160,alselptr(8,1),alselptr(11,1),a80w);
  }
  if(clenval(crz0160,alselptr(8,1)) > 0)dagrajmpnow=36435;
  }
  tinypcl(36431,54,1,36430);
  udgetcoml(11,36432,36431);
// depth = 1
  if(isdag(36432))
  {
  aptlocloc(crz0160,alselptr(8,1),alselptr(11,1),a80w);
  dagrajmpnow=53098;
  freddynext=36326;
  if(clenval(crz0160,alselptr(8,1)) > 0)dagrajmpnow=36435;
  }
  if(isdag(36435))
  {
  dagrajmpnow=53098;
  freddynext=11019;
  eightsaveas(1);
  chdoc=0;
  }
// depth = 1   page 3044    36440 new 20
  if(isdag(36440))
  {
  new2608();
  dagrajmpnow=53098;
  freddynext=36180;
  }
// 36451   change 21           depth = 1
  if(isdag(36451))
  {
  filtramread(crz0160,6,y);
  scrollafter();
  dagrajmpnow=36452;
  }
  tinypcl(36453,67,0,36452);
  if(isdag(36453))
  {
  aptlocloc(crz0160,alselptr(11,1),alselptr(6,1),a80w);
  scrollafter();
  dagrajmpnow=35098;
// depth = 2
  freddynext=36354;
  }
  udgetcoml(11,36455,36354);
  if(isdag(36455))
  {
  dagrajmpnow=53098;
  freddynext=36180;
  chreqlen=clenval(crz0160,alselptr(11,1));
  chlevbase=alselptr(11,1);
  chsixbase=alselptr(6,1);
  chctr40=0;
   while(chctr40 < chreqlen)
   {
   chchr40=crz0160[(chlevbase+chctr40)];
    if(chchr40 != 32)
    {
//  depth = 4
    crz0160[(chsixbase+chctr40)]=chchr40;
    }
   chctr40=chctr40+1;
   }
   edmmu.putline(y,crz0160,alselptr(6,1));
   filtramread(crz0160,11,y);
   scrollafter();
   }
// depth = 1  page  3045   find 22 36462
  if(isdag(36462))
  {
  dagrajmpnow=36463;
   if(rcmdctr > 0)
   {
   dagrajmpnow=36465;
//   dagrajmpnow=36463;
   }
  }
  tinypcl(36464,59,1,36463);
  udgetcoml(11,36465,36464);
   if(isdag(36465))
   {
   rcmdctr=y;
   chctr40=1;
//   scrollafter();
    while((rcmdctr < (afilelen+1))&&(chctr40 != 0))
    {
    if(findoneeq(11,0,0,rcmdctr))chctr40=0;
      if(chctr40 != 0)
      {
// depth = 4
      rcmdctr=rcmdctr+1;
      }
    }
    scrollafter();
    dagrajmpnow=53098;
    freddynext=36180;
    if(rcmdctr > afilelen)freddynext=36326;
//  if(rcmdctr > afilelen)freddynext=11019;
    if(rcmdctr > afilelen)rcmdctr=afilelen;
    if(rcmdctr < 1)rcmdctr=1;
    y=rcmdctr;
    filtramread(crz0160,11,y);
    scrollafter();
    }
// depth = 1   36473  list 23
   if(isdag(36473))
   {
   dagrajmpnow=53098;
   chchr40=32;
   rcmdctr=1;
   scrollafter();
   freddynext=36326;
   if(afilelen >= 1)dagrajmpnow=36476;
   }
//            36474 is listloop     depth = 1
  udgetcoml(11,36476,36474);
  if(isdag(36476))
  {
  dagrajmpnow=53098;
  chchr40=crz0160[alselptr(11,1)];
  freddynext=36180;
  chctr40=1;
   while((chctr40 < cmdheight)&&(rcmdctr <= afilelen))
   {
   filtramread(crz0160,11,rcmdctr);
   rcmdctr=rcmdctr+1;
// depth = 3
   scrollafter();
   chctr40=chctr40+1;
   }
   if((rcmdctr < afilelen)&&(ucget(chchr40) != ifs(1,"H")))
   {
   dagrajmpnow=36477;
   }
  }
  tinypcl(36474,68,1,36477);
  tinypcl(36485,69,1,36484);
  udgetcoml(11,36486,36485);
// depth = 1         36484   is inputc
  if(isdag(36486))
  {
  rcmdctr=clenval(crz0160,alselptr(11,1));
  dagrajmpnow=53098;
  freddynext=36180;
   if(rcmdctr > 0)
   {
   freddynext=36485;
    if(y <= afilelen)
    {
    y=y+1;
    }
    aptinsert(crz0160,alselptr(11,1));
    chdoc=1;
    scrollafter();
    y=y-1;
    }
// set cursor for command line input                    xx
   twocurwozy=0;
   twocurwozx=0;
   onecurwozy=ypheight;
   if(cmdheight > ypheight)onecurwozy=cmdheight;
   onecurwozy=onecurwozy+1;
   onecurwozx = 1;
// -----------------------------------------------------XX
   keyclineinit=1;
   }
// 25 uc 36495       depth = 1
   if(isdag(36495))
   {
   uppercase=97;
   dagrajmpnow=53098;
   freddynext=36180;
   }
//    26 lc 36506
   if(isdag(36506))
   {
   uppercase=0;
   dagrajmpnow=53098;
   freddynext=36180;
   }
// depth = 1   page  3046         gui 36517    28 guiy 36528   29 quit 36539
  if(isdag(36517))
  {
  x=xe;
  y=yre;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(36528))
  {
  xe=x;
  yre=y;
  dagrajmpnow=53098;
  freddynext=52642;
  }
  if(isdag(36539))
  {
  dagrajmpnow=53098;
  freddynext=11019;
  }
// bottom of normal command line section    depth = 1
  if(isdag(53098))
  {
   if(iseqnc((freddynext-36326),0) || iseqnc((freddynext-36180),0))
   {
   dagrajmpnow=freddynext;
// freddynext=36200;
   tinypcl(36180,1,0,36326);
   tinypcl(36182,3,0,36180);
   tinypcl(36184,16,0,36182);
//                                             depth = 3
   tinypcl(36186,29,0,36184);
   tinypcl(36200,61,1,36186);
// dagrajmpnow=53098;
   }
   if(iseqnc((freddynext-52648),0))
   {
   clearpage();
   printconst(30,(51-30)+1);
   freddynext=52661;
// dagrajmpnow=53098;
   }
   if(iseqnc((freddynext-52642),0))
   {
   x=xe;
   y=yre;
   clearpage();
   udregkey2176(1084);
   freddynext=52645;
// dagrajmpnow=53098;
// depth = 3
   }
  }
  dagrajmpnow=freddynext;
  dagraprvkey=dagranewkey;
 }
// bottom of ron52640();
// depth = 0    page 3046.3
  public static int isdoskey(int warg,int snz)
   {
// warg is virtual key code (NOT scan code)    snz is zero for nonshifted.
      int tu;
      int r;
//      tu=(int)warg;
      tu=warg;
      if(warg<0)tu=warg+256;
      r=0;
      if((tu>64)&&(tu<91))
//    if key is a letter key 65-90
      {
      r=tu;
// letter keys use warg is always uppercase version of that key;
// depth = 2
      if((snz<=0)&&(snz>=0))r=tu+32;
      }
      if((tu>47)&&(tu<58)&&(snz>=0)&&(snz<=0))r=tu;
// number keys are same as warg. Shifted keys require conversion ifs.
// depth = 1
      if((snz!=0)&&(tu<=48)&&(tu>=48))r=41;
      if((snz!=0)&&(tu<=49)&&(tu>=49))r=33;
      if((snz!=0)&&(tu<=50)&&(tu>=50))r=64;
      if((snz!=0)&&(tu<=51)&&(tu>=51))r=35;
      if((snz!=0)&&(tu<=52)&&(tu>=52))r=36;
      if((snz!=0)&&(tu<=53)&&(tu>=53))r=37;
      if((snz!=0)&&(tu<=54)&&(tu>=54))r=94;
      if((snz!=0)&&(tu<=55)&&(tu>=55))r=38;
      if((snz!=0)&&(tu<=56)&&(tu>=56))r=42;
      if((snz<=0)&&(snz>=0)&&(tu<=106)&&(tu>=106))r=42;
      if((snz!=0)&&(tu<=57)&&(tu>=57))r=40;
// warg is the same value for both shifted and non-shifted versions of each key
      if((tu>=192)&&(tu<=192)&&(snz>=0)&&(snz<=0))r=96;
      if((tu>=192)&&(tu<=192)&&(snz!=0))r=126;
      if((tu>=189)&&(tu<=189)&&(snz<=0)&&(snz>=0))r=45;
      if((tu<=109)&&(tu>=109)&&(snz<=0)&&(snz>=0))r=45;
      if((tu<=189)&&(tu>=189)&&(snz!=0))r=95;
      if((tu<=187)&&(tu>=187)&&(snz<=0)&&(snz>=0))r=61;
      if((tu<=187)&&(tu>=187)&&(snz!=0))r=43;
      if((tu<=107)&&(tu>=107)&&(snz<=0)&&(snz>=0))r=43;
      if((tu<=220)&&(tu>=220)&&(snz<=0)&&(snz>=0))r=92;
      if((tu<=220)&&(tu>=220)&&(snz!=0))r=124;
// depth = 1
      if((tu<=27)&&(tu>=27))r=27;
      if((tu<=8)&&(tu>=8))r=8;
      if((tu<=13)&&(tu>=13))r=13;
      if((tu<=10)&&(tu>=10))r=10;
      if((tu<=32)&&(tu>=32))r=32;
      if((tu<=9)&&(tu>=9))r=32;
// set tab key 9 to blank 32 to clean it up.
      if((tu>=219)&&(tu<=219)&&(snz<=0)&&(snz>=0))r=91;
      if((tu>=219)&&(tu<=219)&&(snz!=0))r=123;
      if((tu<=221)&&(tu>=221)&&(snz<=0)&&(snz>=0))r=93;
      if((tu<=221)&&(tu>=221)&&(snz!=0))r=125;
      if((tu<=186)&&(tu>=186)&&(snz<=0)&&(snz>=0))r=59;
      if((tu<=186)&&(tu>=186)&&(snz!=0))r=58;
      if((tu<=222)&&(tu>=222)&&(snz<=0)&&(snz>=0))r=39;
      if((tu<=222)&&(tu>=222)&&(snz!=0))r=34;
      if((tu<=188)&&(tu>=188)&&(snz<=0)&&(snz>=0))r=44;
      if((tu<=188)&&(tu>=188)&&(snz!=0))r=60;
      if((tu<=190)&&(tu>=190)&&(snz<=0)&&(snz>=0))r=46;
      if((tu<=110)&&(tu>=110)&&(snz<=0)&&(snz>=0))r=46;
      if((tu<=190)&&(tu>=190)&&(snz!=0))r=62;
      if((tu<=191)&&(tu>=191)&&(snz<=0)&&(snz>=0))r=47;
      if((tu<=111)&&(tu>=111)&&(snz<=0)&&(snz>=0))r=47;
// depth = 1
      if((tu<=191)&&(tu>=191)&&(snz!=0))r=63;
      if((snz<=0)&&(snz>=0))
      {
// -=  [] ;' ,./
      if((tu<=45)&&(tu>=45))r=45;
      if((tu<=61)&&(tu>=61))r=61;
      if((tu<=92)&&(tu>=92))r=92;
      if((tu<=91)&&(tu>=91))r=91;
      if((tu<=93)&&(tu>=93))r=93;
      if((tu<=59)&&(tu>=59))r=59;
      if((tu<=44)&&(tu>=44))r=44;
      if((tu<=39)&&(tu>=39))r=39;
      if((tu<=46)&&(tu>=46))r=46;
      if((tu<=47)&&(tu>=47))r=47;
      }
      if(snz != 0)
      {
// -=  [] ;' ,./
      if((tu<=45)&&(tu>=45))r=45+50;
      if((tu<=61)&&(tu>=61))r=61-18;
      if((tu<=92)&&(tu>=92))r=92+32;
      if((tu<=91)&&(tu>=91))r=91+32;
      if((tu<=93)&&(tu>=93))r=93+32;
      if((tu<=59)&&(tu>=59))r=59-1;
      if((tu<=44)&&(tu>=44))r=44+16;
      if((tu<=39)&&(tu>=39))r=39-17;
      if((tu<=46)&&(tu>=46))r=46+16;
      if((tu<=47)&&(tu>=47))r=47+16;
      }
      if((snz<=0)&&(snz>=0))
      {
//    add 1024 to extended keys such as arrow and page up after converting.
      if((tu>=37)&&(tu<=37))r=75+1024;
      if((tu>=39)&&(tu<=39))r=77+1024;
      if((tu>=38)&&(tu<=38))r=72+1024;
      if((tu>=40)&&(tu<=40))r=80+1024;
      if((tu>=226)&&(tu<=226))r=75+1024;
      if((tu>=227)&&(tu<=227))r=77+1024;
      if((tu>=224)&&(tu<=224))r=72+1024;
      if((tu>=225)&&(tu<=225))r=80+1024;
      if((tu<=33)&&(tu>=33))r=73+1024;
      if((tu<=34)&&(tu>=34))r=81+1024;
      if((tu<=35)&&(tu>=35))r=79+1024;
      if((tu<=36)&&(tu>=36))r=71+1024;
//    if((tu<=45)&&(tu>=45))r=82+1024;
//    if((tu<=46)&&(tu>=46))r=83+1024;
      if((tu<=155)&&(tu>=155))r=82+1024;
      if((tu<=127)&&(tu>=127))r=83+1024;
      }
    if((tu>95)&&(tu<106)&&(snz>=0)&&(snz<=0))r=tu-48;
    if((snz>=0)&&(snz<=0)&&(tu>111)&&(tu<122))r=(tu-53)+1024;
    return r;
    }
// end of isdoskey  depth = 0
   public static void startred()
   {
   int starredsel;
   starredsel=edred.edargs.length;
   edcst.diagkeystr="";
   edcst.loadredconst();
   edcst.foamstart();
   ediod.needclose=0;
   edken.new2608();
   dagrajmpnow=52648;
   dagranewkey=32;
//  insert
    if(starredsel > 0)
    {
// insert argument file loader  depth = 2
    x=xe;
    y=yre;
   linefroms(8,0,edred.edargs[0]);
   if(clenval(crz0160,alselptr((8),1)) > 0)
    {
    if((afilelen > 0) || (uppercase != 0))chdoc=1;
    ediod.needclose=0;
    readol((8),0);
    }
  yre=afilelen+1;
  y=yre;
  xe=1;
  x=1;
    clearpage();
    udregkey2176(1084);
  freddynext=52642;
  dagrajmpnow=53098;
//  dagrajmpnow=52645;
    }
// --  depth = 1
    edken.ron52640();
  }
 }
// end of edken class depth = -1
//                               depth = -1   page 3047
 class edmmu
 {
  public static byte joeyg[] = new byte[9487218];
  public static int mposneg(int mfrom,int nzmpos)
  {
  int mpnres;
  mpnres=42;
   if((nzmpos <= 0)&&(nzmpos >= 0))
   {
   mpnres=mfrom;
// depth = 2
   if(mfrom > 127)mpnres=mfrom-256;
   }
   if((nzmpos <= 1)&&(nzmpos >= 1))
   {
   mpnres=mfrom;
   if(mfrom < 0)mpnres=mfrom+256;
   }
   if((nzmpos < 99)&&(nzmpos > 95))
   {
   mpnres=mfrom;
   if((mfrom < 32) || (mfrom > 126))mpnres=32;
   if((mfrom >= 97)&&(mfrom <= 122))mpnres=mfrom-32;
   }
   return mpnres;
  }
// depth = 0
  public static void getline(int blnu,int lineg[],int alsabg)
  {
  int blnuprod,buctr,buterm;
  buctr=0;
  blnuprod = edken.a80w * (blnu-1);
   while(buctr < edken.a80w)
   {
   buterm=(int)joeyg[(blnuprod+buctr)];
   lineg[(alsabg+buctr)]=mposneg(buterm,(1+edken.uppercase));
   buctr=buctr+1;
   }
  }
// depth = 0
  public static void putline(int blnv,int linew[],int alsabw)
  {
  int blnvprod,bvctr,bvterm,hhvterm;
  bvctr=0;
  blnvprod = edken.a80w * (blnv-1);
   while(bvctr < 80)
   {
   bvterm=linew[(alsabw+bvctr)];
   hhvterm=mposneg(bvterm,(0+edken.uppercase));
   joeyg[(blnvprod+bvctr)] = (byte)hhvterm;
   bvctr=bvctr+1;
   }
  }
 }
// end of edmmu class  depth = -1  page 3048
 class ediod
 {
  public static int needclose;
  public static File tdkfn;
  public static FileInputStream fdkfn;
  public static DataInputStream jdkfn;
  public static File tdkfw;
  public static FileOutputStream fdkfw;
  public static DataOutputStream jdkfw;
  public static int readone()
  {
  int iodreadres;
  iodreadres=42;
   if((edken.fp04 < edken.fl06)&&(needclose > 0))
   {
   try
     {
     iodreadres = jdkfn.readByte();
// depth = 3
     }
   catch(IOException iodrre) {   }
   }
// ----
   if((edken.fp04 < edken.fl06)&&(ediod.needclose < 0))
   {
   String trcb;
// 3991 trcb=edred.rcb.substring(edken.fp04,(edken.fp04+1));
 trcb=edken.readcbstring.substring(edken.fp04,(edken.fp04+1));
   char arcb[]=trcb.toCharArray();
   iodreadres=(int)arcb[0];
   }
// --------------------------------
  edken.fp04 = edken.fp04 + 1;
  if(edken.fp04 >= edken.fl06)edken.eofi=1;
  if(iodreadres < 0)iodreadres=iodreadres+256;
  return iodreadres;
  }
// depth = 0
  public static int openreadfl(String rfns)
  {
  int orlenres;
  fdkfn=null;
//  tdkfn=new File(rfns);
  orlenres=0;
  if((needclose <= 0)&&(needclose >= 0))
  {
  tdkfn=new File(rfns);
   if((tdkfn.exists() && tdkfn.canRead() && tdkfn.isFile()))
   {
   needclose=1;
   try
     {
     fdkfn = new FileInputStream(tdkfn);
// depth = 3
     }
// catch(IOException iodfnfse) {  }
   catch(FileNotFoundException iodfnfe) {  }
   jdkfn = new DataInputStream(fdkfn);
   orlenres=(int)tdkfn.length();
   }
   }
  if(needclose < 0)
  {
  orlenres=edred.rcb.length();
  }
  return orlenres;
  }
// depth = 0
  public static void closeread()
  {
   if(needclose > 0)
   {
   try
     {
     jdkfn.close();
// depth = 3
     }
   catch(IOException iodrce) {    }
   }
// ----------
  needclose=0;
  }
// depth = 0 end of closeread
  public static void writeone(int wrterm)
  {
  try
    {
    jdkfw.writeByte(wrterm);
    }
    catch(IOException iodwe) {   }
  }
  public static void openwritefl(String wfns)
  {
  fdkfw=null;
  tdkfw=new File(wfns);
  try
    {
    fdkfw = new FileOutputStream(tdkfw);
    }
    catch(IOException iowwnfe) {    }
    jdkfw=new DataOutputStream(fdkfw);
   }
   public static void closewrite()
   {
    try
      {
      jdkfw.close();
      }
   catch(IOException iowwncc) {  }
   }
// --------
 }
// end of class ediod   depth = -1
// depth = -1
  public class edred
  {
  public static String edargs[];
  static JFrame edframe;
  static JTextArea edarea;
  static JTextField edfield;
  public static String edmsg;
  public static String rcb;
// end of edred.variables;
  public static void main(String edards[])
// end of font    depth = 0
   {
    edargs=edards;
    edmsg="Click here to start edred ->     <-";
    rcb="+testing_java.lang.String-";
    edken.startred();
    edframe = new JFrame("edred.java in slow Java");
    edarea = new JTextArea("");
      edarea.setEditable(false);
      edarea.setFont(new Font("Serif",Font.BOLD,9));
      edarea.setText("");
      edfield = new JTextField("");
      edfield.setEditable(true);
      edfield.setFont(new Font("Serif",Font.BOLD,9));
      edfield.setText(edmsg);
      edmsg="";
     edframe.getContentPane().add(new JScrollPane(edarea),BorderLayout.NORTH);
     edframe.getContentPane().add(edfield,BorderLayout.NORTH);
     edframe.getContentPane().add(new edreb("value"));
     edframe.setDefaultCloseOperation(edframe.EXIT_ON_CLOSE);
      edframe.setSize(592,390);
// depth = 1
      edfield.requestFocus();
      edframe.setVisible(true);
// end of main
    }
// end of edred
  }
   class edreb extends JComponent
    implements KeyListener,ClipboardOwner
    {
   Clipboard clipboardp=Toolkit.getDefaultToolkit().getSystemClipboard();
// methods of class edreb
   public void lostOwnership(Clipboard clipboardps,Transferable contenss)
   {
   edken.readcbstring="lostOwnership(Clipboard,Transferable)";
   }
   static void resetdktext(String resetys)
   {
   edred.edarea.setText("");
   edred.edfield.setText(resetys);
   edred.edfield.requestFocus();
   }
   public edreb(String argParg)
   {
   String rargmine;
   rargmine=argParg;
   edred.edfield.addKeyListener(this);
   clipcxb();
// end of edreb    constructor  depth = 1
    }
     public static boolean iscountdownz()
     {
     boolean ctdresz;
     ctdresz=false;
     edken.ctdkbref = edken.ctdkbref - 1;
  if(edken.ctdkbref <= 0)
       {
       edken.ctdkbref = 7;
       ctdresz = true;
       }
     return ctdresz;
     }
   public void keyReleased(KeyEvent rcr)
   {
     int unfilteredkr;
     unfilteredkr=(int)rcr.getKeyCode();
     if((unfilteredkr < 17)&&(unfilteredkr > 15))
     {
     edken.shiftjoeysnz=0;
     }
   }
   public void keyPressed(KeyEvent pcr)
   {
     int unfilteredky;
     unfilteredky=(int)pcr.getKeyCode();
     if((unfilteredky < 17)&&(unfilteredky > 15))
     {
// depth = 2
     edken.shiftjoeysnz=1;
     }
     if(unfilteredky != 16)
     {
     edken.dagranewkey = edken.isdoskey(unfilteredky,edken.shiftjoeysnz);
     edcst.diagkeystr=edcst.diagkeystr+edcst.strgznumber(unfilteredky,2,16);
  edcst.diagkeystr=edcst.diagkeystr+edcst.strgznumber(edken.dagranewkey,3,16);
     edken.ron52640();
     if((edken.dagrajmpnow <= 11019)&&(edken.dagrajmpnow >= 11019))
     {
     System.exit(0);
     edken.dagrajmpnow=36326;
     }
    repaint();
    }
   }
   public void keyTyped(KeyEvent ekeydk) {   }
// depth = 0
     static void resetbanktext(String resetyj)
      {
      String resetyjj;
         if(iscountdownz())
         {
         edred.edarea.setText("");
         resetyjj=resetyj+"     ";
         edred.edfield.setText(resetyjj);
         edred.edfield.requestFocus();
         edcst.diagkeystr="";
         }
      }
   public void paintComponent(Graphics grr)
   {
   edken.xsyswid=(edred.edframe.getWidth()-16);
   edken.ysyshgt=(edred.edframe.getHeight()-59);
   if((edken.xsyswid <= 1200)||(edken.ysyshgt <= 650))
   {
    if((edken.xsyswid <= 596)||(edken.ysyshgt <= 280))
    {
    edcst.parlspage(grr);
    }
    if((edken.xsyswid  > 816)&&(edken.ysyshgt  > 498))
    {
    edcst.parlspage(grr);
    }
    if((edken.xsyswid  <=816)||(edken.ysyshgt  <=498))
    {
    if((edken.xsyswid  > 596)&&(edken.ysyshgt  > 280))
    {
    edcst.ldrawpagec(edcst.lfonz,edken.crz0160,
         edken.onecurwozx,edken.onecurwozy,grr);
    }
    }
// depth = 2
   }
   if((edken.xsyswid > 1200)&&(edken.ysyshgt > 650))
   {
    edcst.ldrawpagec(edcst.lfonz,edken.crz0160,
         edken.onecurwozx,edken.onecurwozy,grr);
   }
   resetbanktext(edcst.diagkeystr);
   }
// class jarkcb implements ClipboardOwner
 void clipcxb()
 {
// Clipboard clipboardp=Toolkit.getDefaultToolkit().getSystemClipboard();
 DataFlavor reese=DataFlavor.stringFlavor;
 edken.readcbstring="clipcxb.Start";
// if((clipboardp.isDataFlavorAvailable(reese))&&(!clipboardp.isEmpty()))
// if(clipboardp.isDataFlavorAvailable(reese))
// {
// edken.readcbstring+="+reeseType";
 Transferable contenta=clipboardp.getContents(this);
 try
 {
 edken.readcbstring=(String)contenta.getTransferData(reese);
// edken.fl06=edken.readcbstring.length();
 }
 catch(Exception nscbe)
 {
 edken.readcbstring+="***ERROR***nscbe.Exception";
 }
// }
 }
// --------V
 }
// end of class edreb
// end of edred.java ....
/* after end of edred.java program.

Problems with Healthcare Reform

Healthcare reform is unpopular

The individual mandate is unfair to poor people because poor people
have to pay a higher percentage of their income to either pay a premium
or a fine that includes a $695.00 per person fine in addition to 2.5%
of annual income.
 The Employer mandate requires all employers to limit workers work time
to only 29 hours a week instead of 40. How are workers supposed to
earn enough to pay their rent with healthcare reform that reduces their
hours and requires them to pay a premium??
 If you get sick you will not be able to get cured because Healthcare
reform is provoking doctors to quit because doctor payments are reduced
by healthcare reform.
 The federal healthcare website is probably the most reliable website
because three companies helped fix it. State websites are not as reliable
as the federal website. Some state websites are so badly broken that
states are encouraged to just switch to the Federal healthcare insurance
exchange website.
 Insurance premiums are higher with healthcare reform than before because
of the very high additional COST of complying with new governmental
requirements that are unfair.

Republicans still have less than a 67% majority. I hope that Republicans
can still get rid of the individual mandate so people will no longer be
required to buy health insurance.