From 9a899b7221ef10d222ea321f147974889d0c1ca9 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <n0@big-laptop.(none)>
Date: Sat, 7 Jul 2012 22:40:13 +0300
Subject: [PATCH 1/1] initial commit

---
 .classpath                       |    5 +
 .gitignore                       |    3 +
 .project                         |   17 +
 COPYING                          |  341 +++++
 doc/5TH_ET.txt                   |  269 ++++
 doc/commands/cmp&misc.txt        |  166 +++
 doc/commands/conditio.txt        |   39 +
 doc/commands/dsk&file.txt        |   57 +
 doc/commands/dynmem.txt          |   43 +
 doc/commands/graphic.txt         |   68 +
 doc/commands/index.html          |   19 +
 doc/commands/math&mem.txt        |   61 +
 doc/commands/string.txt          |  126 ++
 doc/emulator.html                |  130 ++
 doc/files.txt                    |   24 +
 doc/index.html                   |  204 +++
 doc/modules/drvkbd.txt           |   34 +
 doc/modules/drvmouse.txt         |   17 +
 doc/modules/gfx2.txt             |   20 +
 doc/modules/index.html           |   16 +
 doc/modules/trig.txt             |    9 +
 doc/numbers.png                  |  Bin 0 -> 929 bytes
 doc/shots/index.html             |   27 +
 doc/shots/start.png              |  Bin 0 -> 9800 bytes
 doc/shots/textEditor.png         |  Bin 0 -> 10912 bytes
 doc/shots/words.png              |  Bin 0 -> 14567 bytes
 emulator/charput.inc             |   66 +
 emulator/compile.sh              |    4 +
 emulator/emulator.asm            |  531 +++++++
 emulator/emulator.com            |  Bin 0 -> 3306 bytes
 emulator/kbdrive.inc             |   57 +
 emulator/system.inc              |  137 ++
 emulator/tvidput.inc             |  140 ++
 emulator/vidput.inc              |  146 ++
 floppy image/image mount.sh      |    4 +
 floppy image/image umount.sh     |    3 +
 floppy image/run under qemu.sh   |    5 +
 imageFile/f/5TH_AUTORUN          |   32 +
 imageFile/f/5TH_QUICKPATH        |    6 +
 imageFile/f/5th_boot             |  788 ++++++++++
 imageFile/f/5th_demo             |   23 +
 imageFile/f/5th_eg               |  167 +++
 imageFile/f/5th_et               |  269 ++++
 imageFile/f/5th_logo             |   46 +
 imageFile/f/FNT_SYSTEM           |  Bin 0 -> 2048 bytes
 imageFile/f/I01_MCARROW          |  Bin 0 -> 108 bytes
 imageFile/f/lib/5TH_DRVKBD       |   92 ++
 imageFile/f/lib/5TH_DRVMOUSE     |   53 +
 imageFile/f/lib/5TH_KBD_US       |   97 ++
 imageFile/f/lib/5TH_KBD_USDVORAK |   97 ++
 imageFile/f/lib/5TH_UICMD        |   77 +
 imageFile/f/lib/5th_gfx          |  149 ++
 imageFile/f/lib/5th_gfx2         |  107 ++
 imageFile/f/lib/5th_trig         |   24 +
 imageFile/f/txt_eg               |   16 +
 imageFile/f/txt_et               |   18 +
 imageFile/f/txt_help             |   13 +
 kernel/core.asm                  |  680 +++++++++
 kernel/core.raw                  |  Bin 0 -> 3123 bytes
 kernel/define.inc                |   79 +
 kernel/font.asm                  | 2307 ++++++++++++++++++++++++++++++
 util/5th2src.bas                 |   53 +
 util/editor.bas                  |  395 +++++
 util/font.dat                    |  Bin 0 -> 2048 bytes
 util/fsimport.bas                |  134 ++
 util/insert.bas                  |   50 +
 util/src25th.bas                 |   65 +
 67 files changed, 8625 insertions(+)
 create mode 100755 .classpath
 create mode 100755 .gitignore
 create mode 100755 .project
 create mode 100755 COPYING
 create mode 100755 doc/5TH_ET.txt
 create mode 100755 doc/commands/cmp&misc.txt
 create mode 100755 doc/commands/conditio.txt
 create mode 100755 doc/commands/dsk&file.txt
 create mode 100755 doc/commands/dynmem.txt
 create mode 100755 doc/commands/graphic.txt
 create mode 100755 doc/commands/index.html
 create mode 100755 doc/commands/math&mem.txt
 create mode 100755 doc/commands/string.txt
 create mode 100755 doc/emulator.html
 create mode 100755 doc/files.txt
 create mode 100755 doc/index.html
 create mode 100755 doc/modules/drvkbd.txt
 create mode 100755 doc/modules/drvmouse.txt
 create mode 100755 doc/modules/gfx2.txt
 create mode 100755 doc/modules/index.html
 create mode 100755 doc/modules/trig.txt
 create mode 100755 doc/numbers.png
 create mode 100755 doc/shots/index.html
 create mode 100755 doc/shots/start.png
 create mode 100755 doc/shots/textEditor.png
 create mode 100755 doc/shots/words.png
 create mode 100755 emulator/charput.inc
 create mode 100755 emulator/compile.sh
 create mode 100755 emulator/emulator.asm
 create mode 100755 emulator/emulator.com
 create mode 100755 emulator/kbdrive.inc
 create mode 100755 emulator/system.inc
 create mode 100755 emulator/tvidput.inc
 create mode 100755 emulator/vidput.inc
 create mode 100755 floppy image/image mount.sh
 create mode 100755 floppy image/image umount.sh
 create mode 100755 floppy image/run under qemu.sh
 create mode 100755 imageFile/f/5TH_AUTORUN
 create mode 100755 imageFile/f/5TH_QUICKPATH
 create mode 100755 imageFile/f/5th_boot
 create mode 100755 imageFile/f/5th_demo
 create mode 100755 imageFile/f/5th_eg
 create mode 100755 imageFile/f/5th_et
 create mode 100755 imageFile/f/5th_logo
 create mode 100755 imageFile/f/FNT_SYSTEM
 create mode 100755 imageFile/f/I01_MCARROW
 create mode 100755 imageFile/f/lib/5TH_DRVKBD
 create mode 100755 imageFile/f/lib/5TH_DRVMOUSE
 create mode 100755 imageFile/f/lib/5TH_KBD_US
 create mode 100755 imageFile/f/lib/5TH_KBD_USDVORAK
 create mode 100755 imageFile/f/lib/5TH_UICMD
 create mode 100755 imageFile/f/lib/5th_gfx
 create mode 100755 imageFile/f/lib/5th_gfx2
 create mode 100755 imageFile/f/lib/5th_trig
 create mode 100755 imageFile/f/txt_eg
 create mode 100755 imageFile/f/txt_et
 create mode 100755 imageFile/f/txt_help
 create mode 100755 kernel/core.asm
 create mode 100755 kernel/core.raw
 create mode 100755 kernel/define.inc
 create mode 100755 kernel/font.asm
 create mode 100755 util/5th2src.bas
 create mode 100755 util/editor.bas
 create mode 100755 util/font.dat
 create mode 100755 util/fsimport.bas
 create mode 100755 util/insert.bas
 create mode 100755 util/src25th.bas

diff --git a/.classpath b/.classpath
new file mode 100755
index 0000000..ac37fb2
--- /dev/null
+++ b/.classpath
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<classpath>
+	<classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER"/>
+	<classpathentry kind="output" path="bin"/>
+</classpath>
diff --git a/.gitignore b/.gitignore
new file mode 100755
index 0000000..f0216fa
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+
+bin/
+
diff --git a/.project b/.project
new file mode 100755
index 0000000..0ca8df8
--- /dev/null
+++ b/.project
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>fifth</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>org.eclipse.jdt.core.javabuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>org.eclipse.jdt.core.javanature</nature>
+	</natures>
+</projectDescription>
diff --git a/COPYING b/COPYING
new file mode 100755
index 0000000..10828e0
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,341 @@
+
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+                       51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+	    How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) year name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
diff --git a/doc/5TH_ET.txt b/doc/5TH_ET.txt
new file mode 100755
index 0000000..7fde517
--- /dev/null
+++ b/doc/5TH_ET.txt
@@ -0,0 +1,269 @@
+.( loading editor ) update
+.( done	)
+.( ETh - for text editor help )
+
+var handletxt
+var handlebuf
+Dstralloc const	editfile
+var shiftx  var	shifty
+var curlocx var	curlocy
+Dstr \listF\TXT_ET" tmphelpfile
+
+: disppage ( --	)
+handletxt @
+dynp shifty @ 50 * +
+0 1 at!
+1270 type ;
+
+: fclose (  close opened file )
+handletxt @ dup	if dynde handletxt off else drop then ;
+
+: ETnewpage fclose 27100 dynal dup handletxt ! dynp
+FF swap	27100 cfill ;
+
+var tmp1
+: fopen	( strhand -- )
+fclose
+dup editfile Dstr2Dstr fsDloadnew dup push dynp	( addrinp	R: handinp )
+27100 dynal dup	handletxt ! dynp	( addrinp addrout	R: handinp )
+FF over	27100 cfill
+tmp1 off
+i dyns do		( addrinp addrout )
+over c@			( addrinp addrout c )
+dup FE = if
+	drop
+	50 tmp1	@ - + tmp1 off
+else
+	dup FD = if
+		drop tmp1 @ tab	( addrinp addrout numspaces )
+		tmp1 @ over + tmp1 ! + 0
+	else
+		over c!	1+ 0
+		tmp1 @ 1+ tmp1 !
+	then
+	drop
+then
+swap 1+	swap
+loop 2drop
+pop dynde ; rh tmp1
+
+: dispchar ( x y -- )
+2dup
+swap shiftx @ -
+swap shifty @ -	1+
+at!
+50 * + handletxt @ dynp	+ c@ emit ;
+
+: dispcur curlocx @ curlocy @ dispchar ;
+
+: displine ( line )
+0 over shifty @	- 1+ at!
+50 * handletxt @ dynp +	shiftx @ + 50 type ;
+
+: dispstatbar
+colneg
+0 0 at!	50 do space loop
+0 0 at!	." col:" curlocx @ .
+7 0 at!	." line:" curlocy @ .
+11 0 at! ." ascii:" curlocy @ 50 * curlocx @ + handletxt @ dynp	+ c@ .
+1B 0 at! ." file:" editfile Dstr.
+49 0 at! ." F1-help"
+colnorm	;
+
+: charins ( char x y )
+50 * handletxt @ dynp +		( char x addr )
+over push
++ dup dup 1+ 4F	pop - cmove	( char addr )
+c! ;
+
+: charcut ( x y	-- char	)
+over push
+50 * handletxt @ dynp +	+
+dup c@ swap			( char addr )
+dup dup	1+ swap			( char addr addr+1 addr	)
+4F pop - dup push cmove		( char addr )
+pop + FF swap c! ;
+
+: lineins ( line )
+50 * dup push handletxt	@ dynp +		( addr )
+dup dup	50 + handletxt @ dyns 50 - pop - cmove	( addr )
+FF swap	50 cfill ;
+
+: linecut ( line )
+50 * dup push handletxt	@ dynp +		( addr )
+dup 50 + swap handletxt	@ dyns 50 - pop	- cmove	;
+
+: screenaim
+0 curlocy @ 1E - 794 bound shifty !
+disppage ;
+
+var tmp1
+: length	( line -- length )
+50 * 4F	+ handletxt @ dynp +	( addr )
+51 do
+	i tmp1 !
+	dup c@ FF - if pop drop	0 push then
+	1-
+loop
+drop
+tmp1 @ ; rh tmp1
+
+var tmp2 var tmp3
+: fsavechar ( char ) tmp2 @ swap over c! 1+ tmp2 ! ;
+: fsave	( -- )
+27200 dynal dup	dynp tmp2 !
+0
+7CF do
+	i length if drop pop 1+	0 push then
+loop
+0 swap for		( desthand )
+	tmp3 off
+	i 50 * handletxt @ dynp	+
+	0 i length for	( desthand srcaddr )
+		dup c@
+		i tab 8	= if tmp3 @ if FD fsavechar tmp3 off then then
+		dup FF = if
+			drop tmp3 @ 1+ tmp3 !
+		else
+			tmp3 @ do FF fsavechar loop tmp3 off
+			fsavechar
+		then
+		1+
+	loop drop
+	FE fsavechar
+loop
+tmp2 @ over dynp - over	dynresize
+dup editfile fsDsave
+dynde ;	rh tmp2	rh tmp3
+
+str TXT_default" tmpdefault
+
+: ET
+handletxt @ if
+disppage
+until
+	colneg dispcur dispstatbar KBD_FW@ colnorm dispcur
+
+	dup 415	= if						( DEL )
+		curlocx	@ curlocy @ charcut drop
+		curlocy	@ displine
+	then
+
+	dup FC = if						( BACKSPACE )
+	curlocx	@ if
+		curlocx	@ 1- curlocy @ charcut drop
+		curlocy	@ displine
+		drop 413
+	else
+		curlocy	@ if
+			curlocy	@ 1- dup length	dup curlocx !	( y-1 strlen )
+			swap 50	* handletxt @ dynp +	( strlen y1addr	)
+			2dup + swap 50 +		( strlen dest src )
+			swap rot 50 swap - cmove
+			curlocy	@ linecut
+			drop 410
+			disppage
+		then
+	then
+	then
+
+	dup FD = if						( TAB )
+		curlocx	@ tab
+		dup do FF curlocx @ curlocy @ charins loop
+		curlocx	@ + curlocx !
+		curlocy	@ displine
+	then
+
+	dup FE = if						( ENTER	)
+		curlocy	@ 7CF <	if
+			curlocy	@ 1+ lineins
+			curlocx	@ 0
+			50 curlocx @ - do
+				over curlocy @ charcut
+				over curlocy @ 1+ charins
+				1+
+			loop 2drop
+			curlocx	off
+			drop 412
+			disppage
+		then
+	then
+
+	dup 418	= if curlocy @ 3A - curlocy ! then		( PG-UP	)
+	dup 419	= if curlocy @ 3A + curlocy ! then		( PG-DOWN )
+	dup 416	= if curlocx off then				( HOME )
+	dup 417	= if curlocy @ length curlocx !	then		( END )
+	dup 401	= if tmphelpfile fsdisp	disppage then		( F1 )
+	dup 402	= if fsave then					( F2 )
+	dup 403	= if fclose drop 1B then			( F3 )
+	dup 400	= if done 0 0 at! screen cls drop -1 then	( ESC )
+
+	0 over F0 bound? if -1 else 0 then			( NORMAL KEY )
+	over FF	= if drop -1 then
+	if
+		curlocx	@ curlocy @ charins
+		curlocy	@ displine
+		411
+	then
+
+	dup 411	= if curlocx @ 1+ curlocx ! then	       ( RIGHT )
+	dup 413	= if curlocx @ 1- curlocx ! then	       ( LEFT )
+	dup 412	= if curlocy @ 1+ curlocy ! then	       ( DOWN )
+	dup 410	= if curlocy @ 1- curlocy ! then	       ( UP )
+	drop
+
+	0 curlocx @ 4F bound curlocx !
+	0 curlocy @ 7CF	bound curlocy !
+
+	curlocy	@ shifty @ - 3B	> if screenaim then
+
+	curlocy	@ shifty @ - 3B	- 0 = if
+		0 0 8 screen scrollf
+		shifty @ 1+ shifty !
+		curlocy	@ displine
+	then
+
+	curlocy	@ shifty @ - -1	< if screenaim then
+
+	curlocy	@ shifty @ - 1+	0 = if
+		0 0 -8 screen scrollf
+		shifty @ 1- shifty !
+		curlocy	@ displine
+	then
+
+loop
+else
+	tmpdefault editfile str2Dstr
+	ETnewpage
+	ET
+then ;
+
+: ETl
+fopen
+curlocx	off
+curlocy	off
+shiftx off
+shifty off
+ET ;
+
+: ETs
+editfile Dstr2Dstr
+fsave ." saved " ;
+
+: ETh tmphelpfile fs. ;
+
+rh handletxt
+rh handlebuf
+rh editfile
+rh shiftx rh shifty
+rh curlocx rh curlocy
+rh tmphelpfile
+rh disppage
+rh fclose rh fopen
+rh dispchar rh dispcur
+rh displine rh dispstatbar
+rh charins rh charcut
+rh lineins rh linecut
+rh screenaim rh	length
+rh fsavechar rh	fsave
+rh ETnewpage rh	tmpdefault
diff --git a/doc/commands/cmp&misc.txt b/doc/commands/cmp&misc.txt
new file mode 100755
index 0000000..97446fb
--- /dev/null
+++ b/doc/commands/cmp&misc.txt
@@ -0,0 +1,166 @@
+			Compilation & misc
+			------------------
+
+
+init	module	( -- )
+		First module, control is passed to on startup. Contains
+		initialization routines. Also it is the last core module.
+		All new modules on top of it comes as result of executing
+		external source files.
+
+head <name>	( -- )	compiles new dictionary entry without specifying
+		new module type.
+		ex: head myentry
+
+: <name>	( -- )	creates new code module
+;		( -- )	ends module (immideate)
+		ex: : hello ." hi there" ;
+
+const <name>	( n -- ) defines new constant.
+		ex: 2147483647 const max
+
+:i <name>	( -- ) same as ":" but this module will be executed
+		immideately even in compile mode.
+		ex: :i ( 41 scan ;
+
+create <name>	( -- ) same as "head" , but specify module type as data.
+		ex: create LotoResults 5 , 13 , 52 , 12 , 11 , 3 ,
+
+allot		( n -- ) allocate n bytes in dictionary.
+		ex: create MyArray 100 allot
+
+" <string>"	( -- ) compile string and its size into core.
+		ex: create Mystring " This is it's contects"
+
+str <name> <string>" ( -- ) just shorter way for defining strings.
+		ex: str Mystring This is it's contenc"
+
+var <name>	( -- ) define new 32 bit variable.
+		ex: var result
+
+' <module>	( -- n ) return memory address of given entry.
+		ex: ' init
+
+forget <name>	( -- ) erases from RAM given entry and all entries what was
+		defined after it.
+		ex: forget myprog
+
+[		( -- )	set interpret mode (immideate)
+]		( n -- ) set compile mode and compile top stack element
+		in as literal. Together [ .... ] cobination provides good
+		way to compute some values only once, at compile time,
+		rather than every time while program is running.
+		ex: : calculate - [ 4 MyConst1 + MyConst2 * ] ;
+
+defer <name>	( -- ) creates new module, with jump instruction.
+		Later address where to jump can be modified by "is" command.
+		This provides method of foward referencing. So you can use
+		modules what not jet exist.
+is		( address1 address2 -- ) address1 - where to jump, address2 -
+		address of module created by defer command.
+		ex:	defer dispver
+			: run dispver ." running ..." ;
+			       ... whatever ...
+			: (dispver ." Version 9.99 " ;
+			' (dispver ' dispver is
+
+		Now if I type "run" on the screen appears:
+			Version 9.99 running ...
+
+asc <char>	( -- ) reads char ascii code and treats it as literal.
+		(immideate)
+		ex: : BreakLine 30 do asc - emit loop ;
+				 same as:
+		    : BreakLine 30 do	 45 emit loop ;
+
+dyninc		( handle -- ) execute code in dynamic memory handle.
+		automatically deallocates it when done.
+
+include 	( filenumber -- ) execute code in specified file.
+
+words		( -- ) display existing blocks in core.
+
+bye		( -- ) exit from Fifth
+
+fkey		( -- c )
+		Read one byte from input stream.
+
+sadd		( c addr -- )
+		Add one byte "c" to string located at "addr" and updates
+		string length.
+
+scan		( c -- )
+		Read input stream and store it to  pad	 until it finds  c  .
+		It ignores all "c" bytes until it finds any non "c" byte.
+		in other words:
+				c  is:	"
+			 input stream:	""""This is test !"aoeu idh
+			       result:	This is test !
+
+		Is useful for breaking text lines into words.
+
+skey		( -- c )
+		So called safe "fkey". Reads data from input stream
+		but converts characters with ASCII codes: 9 13 10
+		to spaces.
+
+str=str?	( adr1 adr2 -- result )
+		Compares string at "adr1" with string at "adr2", returns
+		true flag if they are equal or false if they are not.
+		true = -1
+		false = 0
+
+find		( -- addr )
+		Searches whole dictionary for word in "pad". If found,
+		returns it address, if not, returns 0.
+
+execute 	( -- )
+		Execute word located in "pad". Depending on "mode".
+
+dta		( addr -- DataAddr )
+		Calculates address of dictionary entry data area, from
+		entry point.
+
+2num		( -- num result )
+		Attempt to convert string located in "pad" into numeric
+		value. If succeed returns number and true as result.
+		If not, returns whatever and false as result.
+
+dadd		( addr length -- )
+		Add to dictionary data located at "addr", with specified
+		length.
+
+lit		( n -- )
+		Act with number depending on "mode". When interpreting,
+		leaves it in stack.
+
+
+incmod		( addr -- )
+		Add to dictionary data located at "addr"+1 , length is taken
+		from "addr".
+
+here		( -- n )
+		return "h" contents.
+
+mode	var	8 bit
+		Holds input stream parser operation mode.
+		0 = interpreting
+		1 = compiling
+
+pad	var	128 bytes
+		Holds temprorary strings.
+
+h	var	32 bit
+		Pointer to free byte in memory, always at the end of the
+		dictionary. Each time when something is stored
+		by "c," command, pointer is incareased.
+
+lp	var	32 bit
+		Pointer to last dictionary word. Each time when new word is
+		compiled or erased by "forget", this pointer is updated.
+
+modulechk	( Dstr<filename> -- ) check if module is loaded, if not
+		immideately load it.
+
+ne		( entrydata entrytype -- ) Compile new dictionary entry.
+		It's name must be in "pad".
diff --git a/doc/commands/conditio.txt b/doc/commands/conditio.txt
new file mode 100755
index 0000000..1828272
--- /dev/null
+++ b/doc/commands/conditio.txt
@@ -0,0 +1,39 @@
+                        Conditionals & loops
+			------------------
+
+if		( flag -- )   (immideate)
+		"if 1.. else 2.. then" or
+		"if 1.. then" construction. Conditional execution.
+		Performs "1.." if "flag" was true,
+                elseway performs "2.." if exist. Execution continues after
+		word "then".
+                ex: 1 if ." nonzero" else ." zero" then
+
+>=		( n1 n2 -- result ) true if (n1 = n2) or (n1 > n2)
+                ex: 5 3 >= if ." first number is greater or equal" then
+
+<=		( n1 n2 -- result ) true if (n1 = n2) or (n1 < n2)
+=		( n1 n2 -- result ) true if n1 = n2
+
+do		( count -- )  (immideate)
+                "do .. loop" construction. Performs ".." "count" times.
+                In every step "count" is decareased until it is 0.
+                ex: : test 5 do i .d loop ;
+                result: 4 3 2 1 0
+
+doexit         ( -- ) exit from "do .. loop"
+
+for		( count top -- )   (immideate)
+		"for .. loop" construction. Performs ".." (top - count)  times.
+		In every step "count" is incareased until it reaches "top" .
+                ex: : test 4 10 for i .d loop ;
+                result: 4 5 6 7 8 9
+
+forexit         ( -- ) exit from "for .. loop"
+
+until		( -- )	(immideate)
+		"until .. loop" construction. Performs ".." until flag become
+		true. False by default. Top of return stack holds flag.
+
+done		( -- ) exit from "until .. loop"
+
diff --git a/doc/commands/dsk&file.txt b/doc/commands/dsk&file.txt
new file mode 100755
index 0000000..b36870f
--- /dev/null
+++ b/doc/commands/dsk&file.txt
@@ -0,0 +1,57 @@
+			Disk & file access
+			------------------
+
+diskload ( FromDisk ToMem amount -- )
+                Load specified abount of bytes from disk into memory.
+
+disksave ( FromMem ToDisk amount -- )
+                save specified abount of bytes from memory into disk.
+
+format ( -- )   Erase all files.
+
+fsDfilesize@ ( handle -- size )
+                Return size of opened file.
+
+fsDcurloc@ ( handle -- location )
+                Return current location in file.
+
+fsDupdated@ ( handle -- updated? )
+                Return true if file was updated,
+                ie. write operations occured.
+
+fssave ( FromMem DestFileHandle amount -- )
+                Save data to file.
+
+fsload ( SrcFileHandle ToMem amount -- )
+                Load data from file.
+
+fseof ( handle -- bytesLeft )
+                Return amount of bytes left till end of file.
+                Useful before read operation.
+
+fsls ( -- )     List all files and lists (directories,folders)
+                in current path.
+
+fslsr ( -- )    Same as "fsls" but recursively scans also sub lists.
+
+fscl ( DynStrHand -- )
+                Change list (path)
+
+fscreate ( DynStrHand -- DescPnt )
+                Create new file or list. Can create multiple lists at once.
+                ex: when creating:
+                    "\listGAMES\listSTRATEGY\listSIMWORLD\5th-runme"
+                and only "\listGAMES\" already exist, then
+                "listSTRATEGY" and "listSIMWORLD" lists will be created,
+                and empty file "5th-runme" placed in there.
+
+fsDsave ( DynHand<data> DynStrHand<filename> -- )
+                Create new file and save all data from dynamic memory
+                block to it.
+
+fsDload ( DynStr<SrcFileName> DynHand<DataDest> -- )
+                Load whole file into dynamic memory block.
+
+fsDloadnew ( DynStr<SrcFileName> -- DynHand<DataDest> )
+                Load whole file into new dynamic memory block.
+
diff --git a/doc/commands/dynmem.txt b/doc/commands/dynmem.txt
new file mode 100755
index 0000000..eb3ff6f
--- /dev/null
+++ b/doc/commands/dynmem.txt
@@ -0,0 +1,43 @@
+                        Dynamic memory
+                        --------------
+
+
+dynal ( size -- handle )
+                Allocate dynamic memory block and return it's handle.
+
+dynde ( handle -- )
+                Deallocate dynamic memory block.
+
+dynp ( handle -- addr )
+                Returns pointer to memory where dynamic block
+                data begins.
+
+dyns ( handle -- size )
+                Returns size of dynamic block.
+
+dynresize ( NewSize handle -- )
+                Nondestructively resize dynamic block.
+
+dync@ ( addr handle )
+                Read one byte from dynamic block.
+
+dync! ( byte addr dynhandle )
+                Write one byte to dynamic block.
+
+dyn@ ( addr handle )
+                Read 32 bit number from dynamic block.
+                Address will spacify, whitch number, not byte.
+
+dyn! ( 32BitNum addr dynhandle )
+                Write 32 bit number to dynamic block.
+                Address will spacify, whitch number, not byte.
+
+dyncon ( size "name" -- )
+                Allocate dynamic block with specified size, and
+                create constant honding its handle.
+                ex: 100 dyncon MyNewBlock
+
+dyn. ( handle -- )
+                Write contenc of dynamic memory block to screen.
+
+
diff --git a/doc/commands/graphic.txt b/doc/commands/graphic.txt
new file mode 100755
index 0000000..cb8ec9d
--- /dev/null
+++ b/doc/commands/graphic.txt
@@ -0,0 +1,68 @@
+			Graphic & text
+			--------------
+
+.               ( n -- ) print number on screen
+
+d.              ( n -- ) print number on screen in decimal
+
+?		( addr -- ) print 32 bit value located at addr.
+
+." <string>"    ( -- ) print string into screen. Immideately
+                compiles.
+                ex: : greeting ." Hello, World" ;
+
+tab.            ( -- ) print tabulator
+
+calccol 	( b g r -- c ) calculate color what best matches given
+		Blue Green & Red values. Values must be in range 0 - 255.
+
+imgalloc	( xsize ysize -- imgbuf ) allocate image buffer for
+		specified size.
+
+imgsize 	( imgbuf -- ) print on the screen X & Y size of image
+		buffer.
+
+point		( x y imgbuf -- addr ) returns memory address for specified
+		pixel.
+
+pset		( color x y imgbuf -- ) set graphic point
+
+boxf		( x1 x2 y1 y2 imgbuf color -- ) draw filled box
+
+cls		( imgbuf -- ) clear image buffer
+
+setpal		( b g r color -- ) set palette value for specified color.
+		values bust be in size 0 - 63.
+
+putchar 	( char color x y imgbuf -- ) put graphic character in
+		imagebuffer to specified (x & y) location.
+
+scroll		( x y imgbuf -- ) scroll in imgbuf.
+
+scrollf 	( color x y screen -- )  scroll and fill empty space with
+		given color.
+
+at!		( x y -- ) set cursor location
+curc!		( color -- ) set text color
+curb!		( solor -- ) set backround color
+
+colnorm 	( -- ) set text color to normal
+colneg		( -- ) set text color to negative (selected)
+
+dyntype 	( dynhandle -- ) display contenc of dynamic memory on screen
+fsdisp		( file -- ) clear screen, display file, and wait for key
+
+type		( addr length -- )
+		Types on the screen string, from memory at  addr  and
+		specified length.
+
+write		( addr -- )
+		Types on the screen string, from memory at "addr"+1
+		length is taken from "addr" .
+
+screen	const	32 bit
+		Holds handle of screen buffer.
+
+copyscreen	( SrcImgHandle DestImgHandle -- ) copy contenc of source
+		image to destination image. Source and destination images
+		must have same size.
diff --git a/doc/commands/index.html b/doc/commands/index.html
new file mode 100755
index 0000000..5b88a3b
--- /dev/null
+++ b/doc/commands/index.html
@@ -0,0 +1,19 @@
+<html><head><title>FIFTH</title></head>
+<body>
+<pre>
+
+    <h2>Fifth internal standard commands:</h2>
+
+
+<br><a href="math&mem.txt">Math & memory manipulation</a>
+<br><a href="dsk&file.txt">Disk & file access</a>
+<br><a href="conditio.txt">Conditionals and loops</a>
+<br><a href="graphic.txt">Graphic & text</a>
+<br><a href="dynmem.txt">Dynamic memory</a>
+<br><a href="string.txt">Dynamic & static strings</a>
+<br><a href="cmp&misc.txt">Compilation & miscellaneous</a>
+
+
+</pre>
+</body>
+</html>
\ No newline at end of file
diff --git a/doc/commands/math&mem.txt b/doc/commands/math&mem.txt
new file mode 100755
index 0000000..9e68523
--- /dev/null
+++ b/doc/commands/math&mem.txt
@@ -0,0 +1,61 @@
+			Math, memory & stack manipulation
+			---------------------------------
+
+
+off		( n -- ) writes 0 to given address, good for zeroing variable.
+		ex: MyVariable off
+on		( n -- ) writes -1 (true flag) to given address.
+		ex: MyVariable on
+
+2dup		( n1 n2 -- n1 n2 n1 n2 )
+2drop		( n1 n2 -- )
+nip		( n1 n2 -- n2 )
+neg		( n1 -- -n1 ) negotiate
+bit@		( n bit -- result ) return specified bit from n.
+		ex: 38 2 bit@	(result will be 1)
+to32bit 	( n1 n2 n3 n4 -- n32 ) treat 4 last stack elements as bytes
+		and unite them into 32 bit dword. Most significant byte
+		on top.
+		ex: 12 76 23 11 to32bit   result: 186076172
+
+to8bit		( n32 -- n1 n2 n3 n4 ) break 32 bit number into 4 bytes.
+		Useful if you need to send 32 bit numbers thru 8 bit COM
+		port.
+		ex: 186076172 to8bit   result: 12 76 23 11
+
+mod		( n1 n2 -- reminder ) divide n1 by n2 and returns reminder.
+		ex: 12 5 mod   result: 2
+
+bound		( low n high -- n ) check if n is in given bounds,
+		if not then incarease/decarease it to match bounds.
+		ex: 5 80 15 bound    result: 15
+		    5 10 15 bound    result: 10
+		    5 -10 15 bound   result: 5
+
+bound?		( low n high -- result ) returns true if n is in the
+		given bounds.
+
+tab		( col -- spaces) calculate amount of spaces to add
+		ta reach next tabulation from given column.
+
+count		( addr -- addr+1 n )
+		Useful for returning bytes from constantly incareasing
+		address. Module "type" is nice example.
+
+c,		( n -- )
+		store one byte at memory specified by "h". And incarease
+		"h" by 1.
+
+,		( n -- )
+		store 32 bit number at memory specified by "h". And
+		incarease "h" by 4.
+
+cmove		( addr1 addr2 n -- )
+		copy "n" amount of bytes from memory at "addr1" to memory
+		at "addr2".
+
+rnd		( limit -- result )
+		generates random number in range 0 to "limit"-1.
+
+abs		( n -- |n| )
+		returns absolute value of "n"
diff --git a/doc/commands/string.txt b/doc/commands/string.txt
new file mode 100755
index 0000000..c254206
--- /dev/null
+++ b/doc/commands/string.txt
@@ -0,0 +1,126 @@
+                        Dynamic & static strings  
+                        ------------------------
+
+Fifth supports both static and dynamic strings.
+Static strings must have predefined space reserved,
+and string mustn't exceed this length. They manipulation is
+faster. But they use more memory. Static string memory address is used
+to refer to the string.
+
+Dynamic strings can have at any time length form 0 to 0FFh,
+They take up only memory they currently need. They are held
+in dynamic memory blocks, so dynamic block handle is used to refer
+to this string.
+
+Both types of strings are stored in the way, where first (0th)
+byte holds current string length, following bytes are string itself.
+
+Dynamic:
+
+Dstral ( -- handle )
+                Allocate new string.
+
+Dstrlen ( handle -- length )
+                Return string length.
+
+c+Dstr ( chr handle -- )
+                Add one byte to end of the string.
+
+c+lDstr ( chr handle -- )
+                Add one byte to left side (beginning) of the string.
+
+Dstr. ( handle -- )
+                Write contec of string into screen.
+
+Dstrsure ( size Dstr -- )
+                Makes sure that at least rquested
+                "size" (amount of characters) is allocated for given
+                dynamic string.
+
+Dstr2str ( handle address -- )
+                Copy dyamic string into static memory space.
+
+str2Dstr ( address handle -- )
+                Copy static string into dyamic string.
+
+Dstr+str ( Dstr addr -- )
+                Add contenc of dynamic string to static string.
+
+D" any string" ( -- Dstr )
+                Moves specified string into dynamic string called "defDstr".
+
+D> any_string ( -- Dstr )
+                Moves specified string into dynamic string called "defDstr".
+                Space marks end of string!
+
+D>2 any_string ( -- Dstr )
+                Moves specified string into dynamic string called "defDstr2".
+                Space marks end of string!
+
+Dstr+Dstr ( Dstr1 Dstr2 -- )
+                Adds "Dstr1" to "Dstr2" and places result into "Dstr2". 
+
+Dstrclear ( Dstr -- )
+                Clears contenc of dynamic string.
+
+Dstr2Dstr ( Dstr1 Dstr2 -- )
+                Moves "Dstr1" to "Dstr2".
+Dstr ( data" name -- )
+                Creates new dynamic string and moves specified data into it.
+                Then creates new constant with given "name" holding created
+                dynamic string handle.
+
+                ex: Dstr Hello, my name is Sven!" message      \ creates it
+                    message Dstr.                              \ tests it
+
+Dstrlscan ( char Dstr -- loc )
+                Searches dynamic string for "char", from left to right,
+                returns first found "char" location in string, or 0,
+                if not found.
+
+Dstrrscan ( char Dstr -- loc )
+                Searches dynamic string for "char", from right to left,
+                returns first found "char" location in string, or 0,
+                if not found.
+
+Dstrlscane ( char Dstr -- loc )
+                Same as "Dstrlscan" buf returns string length+1 as location.
+ÿ
+Dstrleft ( amo Dstr -- )
+                Only specified amount of characters from left remains
+                in dynamic string. ie. cut right part out.
+
+Dstrright ( amo Dstr -- )
+                Only specified amount of characters from right remains
+                in dynamic string. ie. cut left part out.
+
+Dstrcutl ( amo Dstr -- )
+                Cut specified amount of characters from left of dynamic
+                string out.
+
+Dstrsp ( char Dstr1 Dstr2 -- )
+                Separate dynamic string in Dstr1 into two parts,
+                using "char" as separator. First part will be stored in
+                "Dstr2", second part in "Dstr1".
+                ex: asc \                               \ ..separator
+                    D> listF\listLIB\5TH_DRVMOUSE       \ ..separate from
+                    defDstr2                            \ ..place result in
+                    Dstrsp              \ separation command
+                    defDstr Dstr.       \ will be: listLIB\5TH_DRVMOUSE
+                    defDstr2 Dstr.      \ will be: listF
+
+Dv ( addr -- )
+                Allocates empty dynamic string, and places it's handle
+                into given address.
+
+Df ( addr -- )
+                Reads dynamic string handle from given address and
+                deallocates (frees) it.
+
+ex:     var mystring1
+        : testmodule
+        mystring1 Dv            \ allocates string
+
+                <whatever>
+
+        mystring1 Df ;          \ deallocates it again when no longer needed.
diff --git a/doc/emulator.html b/doc/emulator.html
new file mode 100755
index 0000000..d1495d4
--- /dev/null
+++ b/doc/emulator.html
@@ -0,0 +1,130 @@
+<html><head><title>FIFTH</title></head>
+<body>
+
+<pre>
+
+    <h2>Emulator & virtual CPU</h2>
+
+
+
+Using CPU emulator slows it down but I shouldn't now
+think too mutch about, and waste my time on batteling with problems whitch
+results on complex design of PC hardware. Also it allows me to use existing DOS and
+resident drivers services in real mode. So I don't need to deal with
+hardware too mutch. It also allows me to use all free XMS for flat
+code & data storage.
+
+Current emulator emulates 1 CPU. It has 2 stacks,
+~50 instructions, and 4GB flat address space (theoretically).
+I'm not sure that DOS 6.22 that I currently prefer can handle more than
+64 MB of RAM. While I tried to keep instructionset simple,
+I was forced to put in lot of complex instructions to make it's performance
+acceptable on emulator. On actual silicon ~20 instructions is enaugh
+(I think).
+
+Maybe one day similar system will run directly on custom silicon chip :)
+
+
+CPU has following registers:
+
+IP	- instruction pointer
+DSP	- data stack pointer
+RSP	- return stack pointer
+
+Virtual CPU, commands (most of them are avaiable as ordinary commands in
+programming lanquage):
+
+code	mnemonic	description
+
+0	nop			does notheing
+1	halt		halt CPU ( return to DOS on emulator )
+
+2	kbd@		( -- c ) read scancode of pressed or released key.
+				Returns 0, if no data avaiable. 
+3	num <dword>	( -- n ) put immidiate number into datastack
+
+4	jmp <dword>	jump to specified code
+5	call <dword>jump to specified code, save return address to
+				return stack.
+
+6	1+			( n -- n+1 )
+7	1-			( n -- n-1 )
+
+8	dup			( n -- n n ) duplicate top of data stack
+9	drop		( n -- ) drop last element in data stack
+
+10	if <dword>	( n -- ) jump to addr if top element was 0
+11	ret			jump to code, specified in return stack.
+
+12	c@			( addr -- n ) read byte from memory at specified address
+13	c!			( n addr -- ) store byte to specified memory
+
+14	push		( DSTK -> RSTK ) move top of datastack to returnstack
+15	pop			( RSTK -> DSTK ) move top of returnstack to datastack
+
+16	<unused>
+17	rot			( n1 n2 n3 -- n2 n3 n1) rotate stack elements
+
+18	disk@		( FromDiskSect ToMem -- ) read 1KB from disk into RAM
+19	disk!		( FromMem ToDiskSect -- ) write 1KB to disk
+
+20	@			( addr -- n ) read 32 bit number from memory
+21	!			( n addr -- ) store 32 bit number to memory
+
+22	over		( n1 n2 -- n1 n2 n1 ) self explaining ...
+23	swap		( n1 n2 -- n2 n1 ) -,,-
+
+24	+			( n1 n2 -- n1+n2 ) -,,-
+25	-			( n1 n2 -- n1-n2 ) -,,-
+
+26	*			( n1 n2 -- n1*n2 ) -,,-
+27	/			( n1 n2 -- n1/n2 ) -,,-
+
+28	>			( n1 n2 -- result ) is true when n1 > n2
+29	<			( n1 n2 -- result ) is true when n1 < n2
+
+30	not			( n1 -- not_n1 ) logical not
+31	i			( -- n ) copies top of return stack into datastack
+
+32	cprt@		( addr -- n ) read one byte from hardware port
+33	cprt!		( n addr -- ) store one byte to hardware port
+
+34	i2			( -- n ) like "i" but takes socond top stack element.
+35	i3			( -- n ) like "i" but takes third top stack element.
+
+36	shl			( n amount -- n ) left bit shift
+37	shr			( n amount -- n ) right bit shift
+
+38	or			( n1 n2 -- n ) logical or
+39	xor			( n1 n2 -- n ) exclusive logical or
+	
+40	vidmap		( addr -- ) copy memory from "addr" to video memory.
+
+41	mouse@		( -- x y button ) read mouse coordinates & buttons
+
+42	vidput		( addr1 addr2 x y -- ) put image1 into image2, at
+				location x, y. Does clipping, so part of a big image
+				can be mapped into smaller one.
+
+43	cmove		( addr1 addr2 amount ) move memory from addr1 to addr2
+				if addr1 is greater than addr2 then count address
+				foward while moving, elseway starts from end and
+				counts backwards, so no data loss will occure on
+				overlapping.
+
+44	cfill		( c addr amount -- ) fill memory starting at "addr"
+				with "c" bytes.
+
+45	tvidput 	( addr1 addr2 x y -- ) same as "vidput" but treats
+				color 255 in source image as transparent.
+
+46	depth		( -- depth ) returns current depth of data stack.
+
+47	charput 	( colorfg colorbg addrsrc addrdest x y )
+				draw character to image buffer located at "addrdest"
+				to specified x & y location. Decodes 8 bytes from
+				source to bits, used to draw character.
+
+</pre>
+</body>
+</html>
\ No newline at end of file
diff --git a/doc/files.txt b/doc/files.txt
new file mode 100755
index 0000000..f035eea
--- /dev/null
+++ b/doc/files.txt
@@ -0,0 +1,24 @@
+	Fifth distribution directory tree description
+	=============================================
+
+After downloading and unpacking the ZIP file you shoud get
+directory tree similar to this:
+
+
+[DOC]			- Fifth documentation 
+  [commands]    	- documentation on Fifth built-in commands
+  [modules]		- documentation on additional commands, realized as loadable modules
+  [shots]		- Fifth screenshots
+
+[imageFile]		- files contained within 'disk.raw', just an extracted form.
+
+[source]		- source files
+  [emulator]		- emulator source
+  [util]		- utilites
+
+disk.raw		- Virtual disk file, has filesystem inside.
+emulator.com		- main executable.
+
+
+
+
diff --git a/doc/index.html b/doc/index.html
new file mode 100755
index 0000000..89b27cd
--- /dev/null
+++ b/doc/index.html
@@ -0,0 +1,204 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+<meta
+    http-equiv="Content-Type"
+    content="text/html; charset=UTF-8">
+<title>FIFTH</title>
+</head>
+<body>
+    <h1>FIFTH - virtual machine, operating system, programming language</h1>
+    <a href="http://php.svjatoslav.eu/gitweb/?p=fifth.git;a=snapshot;h=HEAD;sf=tgz">Download</a>
+    &nbsp;&nbsp;
+    <a href="http://svjatoslav.eu/static/gitbrowse/fifth/doc/index.html">Online homepage</a>
+    &nbsp;&nbsp;
+    <a href="http://svjatoslav.eu/programs.jsp">Other applications hosted on svjatoslav.eu</a>
+    <pre>
+<b>Program author:</b>
+    Svjatoslav Agejenko
+    Homepage: <a href="http://svjatoslav.eu">http://svjatoslav.eu</a>
+    Email: <a href="mailto:svjatoslav@svjatoslav.eu">svjatoslav@svjatoslav.eu</a>
+
+This software is distributed under <a href="http://www.gnu.org/licenses/gpl-2.0.html">GNU GENERAL PUBLIC LICENSE Version 2</a>.
+
+<h2>Introdution</h2>
+
+Fifth is programming lanquage & operating system, running on
+<a href="emulator.html">virtual CPU</a>, with custom instructionset. It is mutch like
+Charles Chunk Moore's Forth, it also uses stack architecture,
+and many commands are similar. Basically I got famailiar with
+concepts of Forth, and being inspired created my own system.
+<p />
+Note:
+<i>
+Current implementation does not support object oriented programming.
+While working on Fifth I got lots of cool new ideas that require reimplementation
+of everything.
+ 
+Currently I try to implement those new ideas in the project called <a
+                href="http://svjatoslav.eu/static/gitbrowse/sixth/doc/index.html">Sixth</a>.
+</i>
+<br />
+<a href="shots/index.html">Screenshots</a>
+
+Read more about:
+<br>  <a href="emulator.html">Virtual CPU</a>
+<br>  <a href="commands/index.html">Built-in commands</a>
+<br>  <a href="modules/index.html">Additional commands, realized as loadable modules</a>
+<br>  <a href="5TH_ET.txt">Example Fifth source file - text editor </a>
+
+
+    <h2>Installation</h2>
+
+Just unpack all files, witout altering original directory structure,
+somewhere in your hard disk. For example: C:\MISC\FIFTH\....
+To run fifth you need minimally just 2 files.
+emulator itself ( EMULATOR.EXE or EMULATOR.COM ), and
+virtual disk file ( DISK.RAW ).
+Read more about <a href="files.txt">distribution directory layout</a>.
+
+
+
+    <h2>Software/Hardware/Human requirements</h2>
+
+
+Software:	MS-DOS 6.22, with HIMEM.SYS loaded.
+		Mouse driver if you have a mouse.
+		Does work only when CPU is in real mode.
+		To recompile ASM sources I used FASM (Flat Assembler).
+		I ran QBasic utilites on QB 4.5 .
+		VESA support by BIOS, or external driver (UNIVBE).
+
+Hardware:	Minimum CPU 386.
+		Recommended CPU Pentium 133.
+		64 KB free RAM below 640KB,
+		2 MB of free XMS.
+		VESA compatible video card.
+
+Human:		Beginner level Forth knowledge is recommended.
+		Enthusiasm.
+
+
+
+    <h2>Numbers representation</h2>
+
+<img src="numbers.png">
+
+Fifth uses hexdecimal number representation as primary.
+Numbers shape is formed by dividing a square into four parts.
+And manipulating their color (black or white).
+
+
+
+    <h2>Disk file map, and it's data structures</h2>
+
+
+Core & highlevel boot code is stored outside of the filesystem to allow
+easy access to it, at early booting time, when filesystem is not yet
+initialized.
+
+			disk allocation:
+
+offset	length	description
+
+0	~4 Kb	Fifth core
+4  Kb	~32Kb	highlevel boot code
+37 Kb	~65Kb	FAT
+101Kb	~16MB	filesystem data area
+
+			FAT entry format:
+
+-2	last sector
+-1	empty sector
+0 --  .. pointer to next block
+
+			file entry format
+
+offset	length	description
+
+0	4	extension
+4	16	name
+20	4	entry point
+24	4	size
+28	4	last modification time
+
+
+
+    <h2>Core architecture</h2>
+
+
+Fifth core is simply some amount of already compiled into machine code
+and linked together modules (entries in other words). In compilation
+process modules is compiled one by one and simply stored on top of
+already existing and growing core. Separately from core is kept
+dictionary, this is special list that contain names of compiled modules,
+variables etc. and they locations in core. Constants use dictionary space
+only. Random word can be removed from dictionary at any time. Currently
+dictionary can contain at most 1000 entries.
+
+
+			dictionary entry format
+
+offset	length	description
+
+0	4	 0 &lt; previous entry
+		 0 = last
+		-1 = empty
+4	15	module name string
+19	1	entry type
+20	4	entry data
+
+Core headers as linked list of module names make up something like dictionary.
+When some entry address is needed compiler can quickly run through headers
+backwards and find needed entry.
+
+			Possible module types
+
+type	description	"execute" action
+
+0	data		compile "num" instruction
+			with address to module
+1	submodule	compile "call" instruction
+			with address to module
+2	imm. submodule	immideately call to module
+
+
+		Memory map: (average)
+
+<loc>	<size>	<desc>
+0	~4096	core
+1500000 ~32000	highlevel Fifth boot code
+200000h 	core startup messages area
+5200000 	end of dynamic memory space
+
+
+
+    <h2>Fifth source format</h2>
+
+
+Fifth uses a different character table and codes than ASCII.
+I call it FSCII (Fifth Standard Code for Information Interchange)
+for example space character is not 32 but 255 instead.
+I plan to use mainly HEX numbers, and create new characters
+to represent numeric values. So typical nemric characters "0123..."
+is treated like ordinary letters.
+
+	FSCII:
+
+DEC	HEX	function
+
+0 - 15	0 - F	HEX numbers
+252	FC	backspace
+253	FD	tabulator (TAB)
+254	FE	carriage return (CR)
+255	FF	space
+
+else		ordinary characters, like in ASCII.
+
+
+    
+    
+    
+    </pre>
+</body>
+</html>
\ No newline at end of file
diff --git a/doc/modules/drvkbd.txt b/doc/modules/drvkbd.txt
new file mode 100755
index 0000000..a8b517a
--- /dev/null
+++ b/doc/modules/drvkbd.txt
@@ -0,0 +1,34 @@
+		Keyboard driver
+		---------------
+
+KBD_@		( -- code ) get scancodes for pressed keys from keyboard.
+KBD_down?	( key -- result ) check is key with specified scancode
+		currently pressed down. 
+KBD_SC2FSCII	( code -- FSCII ) convert key scancode into FSCII code,
+		or in FSK (Fifth standard keycode). 
+KBD_F@		( -- FSCII ) read pressed key FSCII or FSK, returns -1 if no
+		keys are pressed.
+KBD_FW@         ( -- FSCII ) read pressed key FSCII or FSK, if no keys is
+                are pressed then waits until there is.
+
+                FSK
+                ---
+In HEX.
+
+FC      backspace
+FD      TAB
+FE      enter
+FF      space
+
+400     ESC
+401 ... F1 ...
+410     up
+411     right
+412     down
+413     left
+414     INS
+415     DEL
+416     home
+417     end
+418     PG/UP
+419     PG/DN
diff --git a/doc/modules/drvmouse.txt b/doc/modules/drvmouse.txt
new file mode 100755
index 0000000..80bf167
--- /dev/null
+++ b/doc/modules/drvmouse.txt
@@ -0,0 +1,17 @@
+			Mouse driver
+			------------
+
+mousex	var	Mouse x coordinate.
+mousey	var	Mouse y coordinate.
+mousekeyl var	Mouse left key.
+mousekeym var	Mouse middle key.
+mousekeyr var	Mouse right key.
+mousec	var	Display current mouse coordinates in top left part of screen,
+		if true. (good for debugging)
+mousepointer var  Image buffer, holding current mouse pointer.
+mouseadd	( ModuleAddr x1 x2 y1 y2 -- ) Add specified area on screen,
+		into mause click buffer. If any mouse button is clicked on
+		that area, module at "ModuleAddr" will be executed.
+mousebe var	Amount of buffer elements.
+mousedo 	( -- ) Updates mouse coordinates and keys. Parse mouse
+		click buffer, and draw mouse cursor to "screen".
diff --git a/doc/modules/gfx2.txt b/doc/modules/gfx2.txt
new file mode 100755
index 0000000..24085f7
--- /dev/null
+++ b/doc/modules/gfx2.txt
@@ -0,0 +1,20 @@
+			2D graphic library
+			------------------
+
+
+lineh		( color len x y imgbuf -- ) draws horisontal line
+		from X,Y coordinates to right, with specified length.
+linev		( color len x y imgbuf -- ) draws vertical line
+		down, from coordinates X,Y, with specified length.
+box		( color x2 x1 y2 y1 imgbuf -- ) draws rectangular
+		box. x2 bust be >= x1, y2 must be >= y1.
+			x1,y1-----------+
+			  |		|
+			  |		|
+			  +-----------x2,y2
+
+flipv		( imgbuf -- ) flip image vertically.
+imgcoltrans	( ImgBuf Color ToColor -- ) Translate all pixels in
+		specified image with "Color" into "ToColor".
+imgfill 	( color x y imgbuf -- ) Fill image region starting at location
+		X & Y with specified color.
diff --git a/doc/modules/index.html b/doc/modules/index.html
new file mode 100755
index 0000000..97f4011
--- /dev/null
+++ b/doc/modules/index.html
@@ -0,0 +1,16 @@
+<html><head><title>FIFTH</title></head>
+<body>
+
+<pre>
+
+    <h2>Loadable external modules</h2>
+
+
+<a href="drvkbd.txt">keyboard driver</a>
+<a href="drvmouse.txt">mouse driver</a>
+<a href="gfx2.txt">advanced graphic library</a>
+<a href="trig.txt">trigonometry module</a>
+
+</pre>
+</body>
+</html>
\ No newline at end of file
diff --git a/doc/modules/trig.txt b/doc/modules/trig.txt
new file mode 100755
index 0000000..7899144
--- /dev/null
+++ b/doc/modules/trig.txt
@@ -0,0 +1,9 @@
+			Trigonometry functions
+			----------------------
+
+sin		( a -- result ) return sinus from given angle "a",
+		360ø is 2000. So 1000 represents 180ø angle.
+		Result will be in range -10'000 to 10'000, instead of ñ1.
+
+cos		( a -- result ) return cosinus from given angle.
+		Parameters are like in "sin" function.
diff --git a/doc/numbers.png b/doc/numbers.png
new file mode 100755
index 0000000000000000000000000000000000000000..9a155937090b99b8f312fc27e6d9fce441914200
GIT binary patch
literal 929
zcmeAS@N?(olHy`uVBq!ia0vp^OMuvyg9%73pA!)Sq&N#aB8wRq_>O=u<5X=vX$A)7
zU{4pvkcv5P=UklhM1jNAI{5eh{dYcJ*gP$F5#vq|p?8(HR=w>gxT-PZ=DqjdyPrHz
z-^H9FD`G8(7fs5&9X9KCdd<F)@5@-H=H5=KUia3)*e>M!th8^(KODdJ$T7+)Vf*Ub
z#NYiF-?^}R9k9>fmF?#J?%r`KFK5R?*%=%=!rs3-(-(E8rR?G9{3}27bT}%)-)L-C
zEt?y+Ws=!zOJ4ch1K0R0#j1a;O<4Ht+m+8%Vv7!`$fWC^&+S^}`!(<I3XLrDx*P8=
zo4qymx&1#$&}e6M7VoUJ@)x7{?JEA1F0yx;dnZq7ruCm2&gRd5?AfW^A?xwOvRbt>
zM%8D!T2qqxBW?4%n;MSWj%e-XPuTc4K54pe>ji^X3o^I--c$JONyYA-_w(hqaQN(5
z@#fmKxhj(DQ`U7}Ej;kLKI3=6hjZ(C*UH?D+Fd6ozHhV5n%!)F*0oMBTK-UQ|BlCE
zd668E`%BFCbDr-ypQzPha+M>w{AsJe@*NzrOLYZzdeu$knYB%TN&kS)lH-4i9{cV7
z=-nY(@$cd(wlz(Ardii<Ze&hWY_So3c1+lDqp+gT?^EgTqAwR;IQj9jzEg{P+>hPy
zMb9tf?b_}by{+)Jw3NlZ|N2kF6@`}CPV#bEs`#^a@7ls0**(j?KRcFtt#tzD@&5E}
zHq)1EHFwJpugl#%FK$x7;psO!+0?JeIViG7S51vgxbSrH)lA#jyC1GP6vgpzM#`c1
zV{OuXrzY-P7sai3xvhFF>!Mc<75UZItJ&t{TzE2_qd|3j@GDE+n%Wg*wu+}4HXf^}
z`y$n|;DBXsZ)vfoTj`I;nX%ia{h0Lp*x~axwJR5RFJUi!+_~UJCqs>3lKO{bUOL^f
z;<bX0datefsC8|DX2@ng32w!=7qhM29lMb6_E+pnS!S7Z;XV8RKVnu`x#*N1v;OON
zn}ru=^hxEmUTqcVUl3pLG3Kx>mtvq~Q3bEslUEg&7ffhy^7#3bd*g!E>0)^sGc&9f
z917t$IBjyE@7aaAEiD2u9FDOpvnx(zGKz~iJvhCCMa;=(gMiaKPKeWht|JEhVAXcX
Wdg%5ob}2B=F?hQAxvX<aXaWE#r@DCn

literal 0
HcmV?d00001

diff --git a/doc/shots/index.html b/doc/shots/index.html
new file mode 100755
index 0000000..651e755
--- /dev/null
+++ b/doc/shots/index.html
@@ -0,0 +1,27 @@
+<html><head><title>FIFTH</title></head>
+<body>
+
+<pre>
+
+    <h2>Screen shots</h2>
+
+
+<img src="start.png">
+Startup screen diplaying Fifth logo and full file list.
+
+
+
+<img src="words.png">
+Sample words defined. Most of the words are commands that can be executed
+interactively from command line or from file. When executed they can be
+selectively compiled or interpreted.
+
+
+
+<img src="textEditor.png">
+Built in text editor.
+
+
+
+</pre>
+</html>
\ No newline at end of file
diff --git a/doc/shots/start.png b/doc/shots/start.png
new file mode 100755
index 0000000000000000000000000000000000000000..0ed0b1595980c54ffa1ce49acfbdd5140b73fe63
GIT binary patch
literal 9800
zcmb_?c~sKd+b?8l<<vQqnx=G4r@`4$bCzuKl%<uaiDPvXhn#0ruxvP$)2S3ktV}5p
zO%dmbN<E24N@`9(5h^O;05S=_bl%^(@B6#!-n;Hy>wf=X0pI=bJbOR;Gwd%9FS$6W
z?9kc)0030Z{eJoi0I=mY005+K+amkKJ$io@0I(l$?zH38q!RYDcTst@I^a@Um(~dq
z;@RGJ$*-mMyOBmm&OWW?T~Yrf9og)D8YwRu_}{LiJ&2l!Zgh&BE;gsLt1D-A7E;y-
z2ZzJIKJW6h1OObKX(|K8c4h$SS~pAqKBtrw(!>5F0HRcmY65D0QIPv@p#XsHg=H!I
zqXRqb^-N+QoYp-(!;fHJw;|5~{(Vrl#fJbu^ZoxG`QPHSt8&y(ixet91nxP*SD6Zj
zb4GP5*D_WAr$PT$>71qUlM|%4X{<dI2lpK1sI0BU*p<uull}i9k^d3%-!fXZX$L3O
zyQa|4Lf=A~WmJ=}!#ky5(98z#znPc+iu`YJYTt`94vQQ3X+^X=VVYcGF|7^%fc5{J
z&cDU{|N4f%KD(0i><x`Z1MdQt)oj*`M!JK~@5(4~XN}=r4iAfzN?zjkL98<dn5!YA
z$gm)sdp@?>ssrMADbn;ng|y<TN9+5!O8j`{==$+6XWJ_i&kB7LNRgQNP?!(=Q&s)O
zerRqBZa9tI{=!RJ!BdFa4NfN+#gP1^F?VRoD;Iw=f-Vh4*E|m|7Z=3@5m^=2G@@a%
z{W{^xxn{>7vTAJTVb&?dYBQD&>WI~Mg{xxN;WF#7NQQxA_OK{_))k9yTl$8if$3)O
zy75FyvIb7>UWExNPl#NP3BK1FTAY&a8XBwTZW8c})rMRrYhVb?Yq#{SnFJPMH*9B)
zP<0{fTJ`!FvP<#kJ8w)geg%0^e-}pk`c(UKstaMmCHgBTELhA6nH_FQa~U_0=dJ2W
zYuuO)_Ey6_k5mq-P+4)Jp4G9Ksfo<h-BH*EG*w_|R?~#f_`5$7=^D0lobOP|Dpfqe
zGC>4i%sYtKgbF)MF~k>mT?%)Q>48nmAB9EY!Qt+h62r}zv$j_`7kzkQt!X%fy>HsV
zlJCrndHtyA=@3ZIlDnxnwRg|3O4{p6>1(sAi*d9r@}_D&POpF#Gdt`CH;9d=4e9?v
z>PpGFFz&P%+<U2`IHmi=dRZyLI`wPx(nfZEmz{(^G67%5;|vc|9Wt2K4f`N$j-5Vp
z5bpaJ)ocSwiR{~Ul1RRPP51ZpXI;N(r_E*`GH&lG@xXioUFZ2gap8fmFh|~Ju|)jH
z%chIDA`KFIkMPQhxYb;b4(xhl4YRo<RO*oeTaE08Z!5Mz__NSX@1i#M+0XLv=8a`(
zY~}3xm`SLs(TL>AdXLWJN5V}D)XZ4g5Yy3LcsUnLx-=7c@9B&1z}M%B4=RcmNarny
z)>d6iD%z&2oOQ~{i0S!le7i>)Ip&K`i@lHmb5fiBCf7N-(HLs?1pKAu8_%|(gVz*`
zqlOAc2GG*ZJ8bBATc;+njzL&o0#*N!wkS57HyeJ$-ZuMyJ6V5LC9_w6Y`ocl_`F)!
z!+Grbm+!K5jAZs_F9y-owWz$AI@{)*0{Ft+3>%{99Qf6b2zw&QM+Q=3Dgh4to1BkT
zsM9qRdt|JW_<*-$FU8~lLW5C&QQTK9Nj5qqftIs@^l<Ys_q{ajdd_GL>X_3))&c~I
z7G1U}F6O^`b$@AXq6GP39k6^{nx!U<n5y+psI0mC!Yu9LzWG;+CSC4}HYV6lBSlQ9
zdc=%SD%G{|GMS`wO>u#8?IoN3k8938-XE=^=G8zP&UifFn9i!@3&yXzZU<v^*vDvz
z(xMrT-B;>mB>+<F)?uv0C1ximm}G@vLuN+t<AbZ1`!<1=3#1!S<b(XdDyPY(Y5LqP
z?KQ++MNTJS2Y}kosA~}I!g0B@RRc$B$2xoe@c}Rf92X1+(hVg?c@W%$P=8ISTU&tp
z4V}p1(U0v8_cN-=cT*qn9}J#ZG{DAGvB!^g0ZbhiHX^z0ZwC<H2V&;>6D~!DiGI%l
zM17*M4ZE`Lzvda5%|VSYn*E?7#1Q=9BS665C+!UHvBH#8gy*mRn36K(1<&D=_a_QH
zO7lFzT`~JSUjeN?)=KFW>M^6wo8LeNgQ3f-w$iLo>O7wv>57oiC7`_?(>n%-bnL=V
zJXMxeYqb2uA-pZ!^JI5M7#QmZc-<D7%0`bU0Wev0=RC7&B@Hm~b|FB9FyhUXzaI?e
z*T20=!sS!IHT+Za;d_P)mmXPmPYO2Mlxns7G1N4c>^By90xWp5dcu1%h~lPSIw_Do
zf~@fd4!OsV+J<#(C4N2GhupNE4f~wUjEWK$G8aKZDb@Z<M<$~lyj$i@L|$XX>bL4E
zxY|`04(s|6u^tkvmRzZH`YA8TPR7#6K%t9`E=5JuR(`5JudB#U*K_^qWy$$V@S^Lu
z4ITETRO$!T2}R@#3AOqWQNqOIod{u5KJ;x#%BZIS!ouF*6+VXYLF$F^m;iT`6Tkj$
zJ-(PJg+Ex=#xnOsHuWLKTm_PoIc15*mHXaWRcu<CHSo#s<C1uJ@t=bU9^R7^8cpjw
zdt9TCRn0=dY}tOOQ@EB5zrk`bQ+jZUQt(0;I#M6Wi#L8S6q9XI(L9U_Jl3%D3V~At
z1%FC5l!pr142gV1{x_J*I;YZV6XNW1()Ir8rL@<jAva;6%Ke+tG)X|XU(~T7y&C?<
z<HbWQc8O${#*(pNND6h3>viYGY)#*Mj1|5_hi$S34mYcbcp&Mb<ri-#CxiV%es``N
z*wB=`;e*!lLGe;exK_(d<Vai4!mVW2V#e^d{2b$t9v!$DOmz+H)7wK!Uw*D)FVe>G
zF}(|Edhf!ID+P*jhlCSTaLAf%!@ezwMAnov1)gJ%Wpi=r{Sx<FggKeO2H7yjULt!f
zCRbx9D_kyR$TxQ9O9+kBd2Olq_@uv|T(t*;L^BJs=QYlRC0b+ERk6tV)hXYrh1ZN)
zM3>3E?QyrtM#5+QPBrpIW;1R$A>VUj`q!I6$2aWr^E@<uUv4Abh~hoiyJ>tsK`ROc
zp7io_drM9WAs5y%Y@ZJ$sIr?)%)^8n+W>n%hbSi|6VIiglpL@dAs@Yra%eUSq}4L4
z`}Eu@FnyplYzVr~q^ZWjz1CJGKH8o=M|IZ&3@+n8NA$poocP#lj@yYIh%1FwpFvYq
zs(|djX~mz*mA}~D7}k;(mrs1UeNw%c642%6EtRG{j@QZr^`yN!bx}V3B1zLn<s=x=
z^i#G1+Hl6`BRhL!6-k?IQ>^&K8vC-s?xT7p(CS;{LdG-@?*=P(6HTY_DlezbEjUN(
z*gC9Q;W_)#b5^1K_n0RxNteDFFs*t*0ji=5jD-i0e5ZyuB->H7wfkPRO(mt80@@$$
zKZ}CEEp*9PEx^*^!bA-z#%CuW^-sjjr}rcH9icz&DV~p~4;j42ZrG2tQjD+5a6zyW
zfrI)l>TbeD1Ob4g%eCeXnzFbxmsAfqT$}i7BI~dM{ftGKhE74!P?FQ<fzUCea`$5q
zWI|F;D9^({gcuf6xUd8R()UP0RLG<yq+jTDeBQ8`J!J5kt}%d0^jvolFEYH!?;^NP
zq|qeis)V4%S&^q(q#1oRNSe+5SylI8-o0TdOg;eMch$im2?t8N0TZz<Su@2MKmg!5
zu{XB<+tbhHh*XZdUWcIMVkBGxK<%bkOr#+Y&_p};vW&XlfH6m|1m*C8dD8quUtqU)
zs6+Wpdl2c)jpaWxz3yHII1t8c@Zzj<Z}vy2?rF;|h`Fqlp2*u=qjNT2fpQ!)S`A+W
z;;up81KOLiX3y~ZK3{Z1L|qd9sw}r$DQ%2s-?1p@kEl5#6ZTPWM#Zq&BENV1y__U+
z^d%RsiJ*QFr@Ydz9hUX=DH=%qQijns?X!6@pBXd!Ax7jRj6w5m7maX?H|+~wT_`zr
z05C=C(kwai*xf)9ap%k4SLm|*S-%ytF4&e>%xk9=pSPiVWO?}Cd|GAgXL-EA?^DBX
za&`TEca7XQ3XvAiZ+*`u&H&mQHv8xvfFoktlzMxkw5#hcdw&T;M#<nGQgyri!i5}#
zVJX8y+d*H4o+a^`fCibontc?_D_^A0W1^GoTP_%eWrBx6%F7@1ITs;*MhaIsS)mn?
zx>2_hjF5G>!wQk>yA&_V3{?QiiPRZ$fm7f&2%@E?G93s@S<A1ii<;p;2=x_MFhZJF
zFeWCykj~Jbz{#EfzrnF9DMcSb%}XC1*MN&cl6CXXd|UNkKku@en>F?x(Lem9=Kfap
z;;q<E(ueG=ns`L&+m4a(%FIaBUJ&%=OPH41S$u=N^G{l0qHC9XR;iaYR;Uxcxs<SF
zpQW8ca~^zo0aWY|s<KBSA5?cd%ib3DCvlC{0&&uf)d-k%Ut+KTw`<G51idkv(iy!q
zvQ3t>fvZy=JON2$7W%`6@UXMZ<$Ixm5NPX1-ra$r^$$W{^)0C9!omCV@bT;!<q_$i
zhiFD64m(+Y=VfQu`%)a&;{YQezYk~>Xc<0^8WOTYHiK<}hhR_nhgS3<vs1r<x;O1Z
z*Yj|N5u$iBl2&})phGk?{0p%~I(Z&sbXWkxuQ;X*e`qRHaETY;=N>GifS&shL;72d
z+&9^J$$IzqxD%CkOl?Hq&tZl0wHo`EIh}L!AJ0F}LztH~dDd{#e!}2aG9#`s_X>wK
zz45j70Le^_S_0z;2Isn~R_k+^=~2_3h803N%eBTubdFVAxs@JpiE~MajY;r%wLL-=
zfsUhJCC#3JLQUITgX0R)?lgmw)@afvV+bduMLlS&arVHr6Rb!)XC3-0{D>1c<u$)C
z!jwt6$VvlX731yOTBfVk<W2utAxxb#7|hb`Ch05EwN@@~mLC#$6h(+6m9n}||5Nvi
z);f9CINC8pJRgn+2SbZynU%NQn6reOY$<l}aOm^jm=msUqbfmt0($7>Qi_)hNcbb(
zgYSZc0BuGFhUEy3o;{~fRz9Wal64_u+4=o-_1$AYLL1T2ZoAb|G9yEHVwbDp*v+>2
z>$GZ!XrVL@B=`fJqvr7D8q4w=&D>yj+U9JM@RVm*6}p`;M!Pj-8ddcg+#J6hf-o)o
zr|_Y7L@t`AsCaKqP2sGBB#o4xu&BuE{K81BikCYQ>2aQH#m`c!QTLM;hn^uc0E;I>
z$Nzqzy$1->1PvI)`Awu1!+`k}$7`bPY1m3n=WB2d@d9FyyPDz_QsD`P*fbn}m&CXg
zURSIgdx^t1&=gC*s!e`uOfgfF_}$_u)=myDWUEPqV+pDQyhK)taYJ<XA|=_>vZ=L&
zk)ad3<!~X`LDOSb`50_~zp+Aq?pAtxVIL@Ud12V!JdL8AsW#X-slR4Kx$S1bd8}&u
zi-U0fSH1>cF;Z#^Nh+)XYbKqMJDPNEJuFZ(aCYU&@Wq$P@5i0W6{CvpDdrH5D7jJ?
z1);WzsBS?(#EW>N&w>CtuA2W>etxI)H%ggV#|HH(gf)_ruj(~8-(_D>kqn!lR5e++
zacopds)X%xtBG@t%?;1I&lJ^1INSCrq6;z1xQKkmnK-vdUs4TxIud9V%#aWa7#ZW}
zc+<qUC5BR!EIu}$GG9a8xGdNMXxj@Kc({~MX$7Mn>ED7r=5S5)f_u?zOO$8|lfi7z
zZJ8({yZ~P1AXQ7wBTRRFkPwPD*O626qtnx%DX-_!0J<`XuZX-KQSmjlTKjBrtQ(AW
zqNsib93#rxBPbyqEB5M=r*C6qwA{-;-a#YfmX)#Ejv$L@82$n!66_nHT+Cv|5reJ0
z3LD88l<qfDJ1vPHlVjTK^!Z$GUw>nnxjp-6+6F)1Z*#;#o8zAG^>O{!h8^k7sgjLx
zyH&i#f!s5l6<-2ST@t(Y8^C6JMuzow+qyXa-o=(3)1vd_`%oW~<)1Uv^5I9)%5-w@
zHU*mzM7I0z?O1vK+pCCt>_%!O9sZj1Y%mKg%JZ;pbfw?h@P(HhZK!m!PZsPX?4LF_
zUNQztYj!HNoBt@p<4An2Vmr=>bPT@q#21h{5oe<`;-ORcS4E_-z#&rW2iQOIr5dPK
zmyAq=T6=wa|6BtQB!GlQI{9Z+()xoK6j$Qf+tJv=OLjy+dv2mGXbR>$eI+y07oL;<
zMggMnJFsAZ*{7JJPotV~dr0fQmldln_ZIQbAjKbS%LEFZIT)7nv5b)>YGr9>?TCeH
zH%9YM0@0UoY2x#|;4_o2<IYO7e4l`ck_ibvH&bc6xxEo3ZZodMbc}20o!eF69z+%y
z5#Kbf6%yx}mB1~e6+)nBIH`8|+plb3PBwqBa<g$&k!jM^=Z_b)c)Rm=%Xh1$pfpIQ
zv9j-87^@^f+mW6p<eNX(=BUBrcag0!Fr(!fE@Llm0RV~}8v?qgtJ<?Mc%qUn2fz0`
zvF1@jLz@w~twL_=Oa38w388mz(A~I~)HzuZSqEBF8&y<}LUm!)?l53!y|M0`qo@J|
zE_Xg{aGbfIm$xN%RZ6!U+L5LD1mO1(W)cy?T2M2yH}^IEPU6P2Rv5kzh0HefpQfys
zpV$vpgKvz@dM-J|?LfW2+ktc#_ie|{T<WPG>GLmbQ~_LA;jKZ}{_fz7?zjD>*UwDu
zwW8Pe#t*EJ$HVvfV{TiMz)kJ|P>+EAIPGx$Uz7Dd%UhG;dlmglI$ceviEaqzJK5h!
z!>{CSP0Xo9#Q$1ZvJ><ZpVO;nE6PX_CGr&I?3`p8s_%<G6yQ|-6}u+_dDGd-=r;rO
zp1&!F+$kDB%>V^P2JN(gi&8#-&wD-Yna$FnIDcWc-i&Y9VM2TZ|2(0&^tReBT5JE#
z4sZdwF#dKE#O0D82=0jj4zA%h;J-S}TG2ghc7+>na4D;H169E0mfH9#(XDD7*1#3t
zcUXaqq+#T`diQvyTBlXo)dUbvwbXw=S39POxvtLwO!*pAD%3T?&?7}xs6p;VZz1qp
zQ2N8ni>-cI->VoI6fQ}7uAVrAh2NFgZg*K1wU;}QuGqR(`E8g>tSQX1^@V;eO;?r1
zFT;5YfgvNx(IeP(JL<PYV2OUKy03IM1FE!k8=~FKxXTAAPWoB6T6b)8PNvSajU4X-
z34H-|2w6AJ0-c*<t7m3!=1soe%K_`cI&M0z^UR~xk!5FBNXE(O>KwJ1Tp|t8uFfk_
zIc8774&IS-dtSCe7*?y`#D16b1zs*MRP!j+iT&W2v((s$!ohF5bdVn}v7R#IdL(Vp
z{d*+@B8T0Af3Y;@JPK02z;CjXVs(E)r#u}s2OY81sm_jch{?{|^K(v$OL0S7WC;Q2
zxL|I{-W=T0<$W+6jv68uHQdS1u%nmq_-Z}Y6xWN0&vBK9J4&*7&$=QW1g=5u*+GTv
zT=S@!QMl<BBrmm8?WbFsvZJIMQP6EUH<z<vz`=FS^t}aR7TvcrwK7IrXyG7OX)A7w
ze@};%uadFuIW*U8*294GH5sq{lBfytIUb^SC()x8tI;gS$fy9Fr$K1~dLN?xW&bVb
z=(d<5zmDWK$e%Jbfq<apM`(X6`1E=8^y$k{WxSlyi8@%bx%66tehYyll>WsCyaLTp
z8>~9gr>M4PDZ-HMk*PML4tX&&uD|?HSBAtQUm4f@3yGa`yA16FuSL`KrBK5%Buc?$
z#7?b7s@nB5u{MZhrrooU)WA6`K&?pWRtWsvdCyVydK*VV0Jy$A>YxdGHc75tA&4PA
zXC78{SskwHnZ@r62uwA7;N#$+Nsr$PGL&2rIf#1|UEd_KY*X7OW8hexQe0>!_!`30
z{;W8xmaS&or=pk)7#tN#175@43Fr+QhIJ75r&pmLS$6@-c2EBiKQ2m-x^2Ts{p>=&
zaYG9$Y4Fx5&Epgz>zb=@A>rC_j*$30{D<BlKla<iN>%MmiY_!tUa{PI6&3yUET@}k
z8uSS1v_@&^A0HNn{{GLjy>?=$mr7^Oy~hERr%F}``(lIw`l$O}pk_1pzgA&>q)5<^
zL`wZ<BXz$yF3QMQd8P-|1{o~TvfO6Y6+Oe^jw?@jNu_jBNFVVP%GALM`*KP(Jhyw{
zm_vbg@VzVOx81fWpFapOdLgZ>oT8ctyJ(p8^f3s0{qm&=N<P`yRSq4-Cf*sqB828x
z75WP8uW_5pGn^@E74yRxd0=x_XgV&<2;Wpxdz^CpP55D4uVR_yV3NNzV3&-~e{@hu
zk7v5)_0+fAQ!MeKHfTyelxq;uM4Zl_ogTiOG6cGyzw}3zo5&J1B=waLx}61Wr4^sF
zP7NsjnDJ0+$3iR&!^i|0|B-6i^y$%?I|r8^ipakGa0?2^qLg*c1npgQZ}CW19u_Bo
zn!KNMksF&E2d_gJzWC$m=I@L?Mx>c5n4D>^_V6W9o_0Ye&Z?GtUzjDgK0fMDpwrL(
zW3-uCom&=_^tQoiC|*(m10M5VxGH*;{W;hMbg*qZ#_ZC?sTjzEhtbkeZ8b3wXf-GZ
zU_BV-w?w5zElWwLzRam`AuU$2rBrIzLylaVt{IVxd8vG-4zpiP1$}!q81^o#(GY=o
z9VcFV1B-=mCoE2&y8=&Sne<!x9g1HU(5rJ%{A-@#SC-_>davLSrGKgFvpe8F7H2EV
z(Yg{G+uHiq2bn%`URWsQ_1^1a@6`vRYCWVLZkEo!BTp4UMdnde=Ml?4Q=3*xf>!i(
zvz+lceFxa*(l!#i;)=R>)6XBhV4+r1b}Z_3&9>PG8h0TQ72Aey7mM2#VYb(K^wJ#n
z2sLP?ny!l7saiMXP#-PJ7(UHO@-+4cBG(IWzv-)luy3{WTB{s2TdtXYSDab!424C(
zs;wvBKuzky|3pIE&D3Q=bcgL9ed>qLd>ft1@Q5FoY{VSAa8A*MmpIPDT}X5dJ8yvI
zTDl;DkRO7p?PK~220cwV3ux?7NJz0a`%QwJB58^BbAp$W-^sw#WwpK@Zg3B(g5iVh
zn^`Y(FLj?l+_uCVDXkq`#Wj1Y=fN8|SL~L9en81L=UToAC?Ln_Vy^D9n<6tbM*Cce
zj2#*}sa}yjNmD2fVL5TO0)5-<M|0-%9;Ee&v(*#|dISN7jx;?8Et^|`+<#;P@8XK4
zbu44#ZppUEsZ2G6FQorm^W^CjLZY{n@6&bSuxvJd{=v1PjN58_W^=&-_(|W1$X0m6
zp&H9S*l%0Xg504j2_pmd>{h4f@s>I0KmCjERg~l08Wl!BvRN-!!$qh-%#45I)wQNd
z#)dtsm<>)zriN<mA8rB7+66X4o_xt?e*AT6rd8?2b%b5^!t^b~aTCCXAkjZA%*48A
z@TVMzMo?oeKda4GiPio~%K*(S(p3z+wilGDF>)<F_4CEBlCT9|rMAAFM|eQ_KNK8K
zt#gSlS-A4JEm}%~Kpu`1SD0~%RCh+76UGo^ZWkd|q8UP+Is#D#R1^gJhSpvt-?2Ex
zd+_>2?JG2HJa9JDx?D&(eOo=?&lN)C%RL+W0)XvLxR4u%T*&85r>%XB2V_#n#$zUv
zXt+RfVBgvdDjq{b)*Dy4%57a;qdUb2k51-28~Y6xm+-qrQohulCusv$sht?C#PBM|
z>tUEP@=UZ5t3*D%X?K>I3qRAIvgl#FnZ`)R95gv#q7gb$tU%P`=*84;3rJn=>D=X<
z_=mn)fpOFEH_-P5KlcFrN>>OPXbwf#jA>ZM$x-Kydd)H#{Ooo1zeR%!9)6QfTUE@q
zn=K*PwU!s{s30GSaW`66ETOfoR2998#zM~;f7}9&{OC!}@#ZNw#=TAjz%@Y|hafKo
z^$vBX*@q^4=dcc&`IgogZ&-DdL~I}R#BA6aK9w2zZ5v(+;xvpHS)Y^Zf@Q83*gIHt
zz}nTX<*Rj5QjN}S^_@t>BrH95T3ajkiIAZs6klz5wd}G3;FQe4H(G*LWwzZocgqw>
z_KM{`eUw(rO*`ACXu|M3_R95~;<nTLGoIpy3@QB>xULyt>0&)BgH%vD`eUDBZGXZ1
zx7odex}XyEC%y#K6^9?DN|tu?XKUjhX|GqH1B;f*j5TIteW$eA#I5ZkBHw$v$dvF3
zVT2pA`R&5OpH6*NbS}+9+We?uPK|n56%Z@&&F(n-C0qP_)N0!NXS5^t?`EnO6JUCe
zuSgsFL?Rda?3ZuW=E&roeePKr<EPI8y7Mq_i*28x?RFH#rwS{jdq}14K(f}KdXHKm
zB#g^s^*K}?m{daDY%li%%p7wNTx|IETJBJ~=M(DVNs;+rBrMp5^7J2J_a?uqrtg@y
z5DPW_Ap<l&O=uwZR&5^BzcxtZjL68yM<7{=zi5cghyi?=U6^$ZL$+2nQ4I!mGh-ZX
zZY+^;R=Pb5E8UO#za;hm019$H{tJ+Dk9eqJv*zYwjI59kGJ$Q+mJl2-yY&MDp8eB2
zIGI^>yo~*T(qC${<K(NFo<J-={YS?oO9;{N9yZ;(Wt=<&J>B+e+9xv_sC~Dq@ET_6
z&AU^Of7Ns6b-?!J^P>w{1au|zqRGd?;M~sStk%FaQ7lxLbFu`L);f-|t$zG;)Z~OS
zTz5mjInS_(b}V;rZE2u9i!bw&G@-vA^g=tct77o2q(kv8O~<Z6_t9fF7Sw7`AGWgW
zF19T5&s47}TNvqU@3XM+sB-s(A@JC3`*Da=Q`e~Xln=au>eR|U6>p^|=zB(nE$$rW
z0?mA3yVt2R@*3bE9ZcHa3GzDyIP;o>!Pc$kbN+P*1m#WZE~*WFX-Fq?n>Gd0e@V}c
z%6n6l^Va*I2Oc7qZ{eLx&8>s~fQp8<eJ5<~Mjw@}U#6dp0v(o9wBP<nAGeb=e{xVg
z>8)S>rFLBmk9xhZon(IE`7p@GVesw7pI*8-P7^mp0?xhku>K+=+0)A$%-@e5iKBr@
z*@&^1V^P{&ryG^Y>l1EQPX%ZN<6Iw{46+DNY6T$Iq;zpn%KiB*dfn4Wh~*yE?N!Li
zPma4?+wO82Q)OE`;Lf6-?u@=hByZ-;egxtxi|siQ0ze%=Afg@{kY~@yedTU=J-gWT
zBwMW!4n&a!GB@|A?~cL0?~fpv3L1v^Gto$s2TdiiU9HF0C?@m5)9&f$W=*1gI5}@x
z7RKtzZon?4gkYa?J!PKNZ}$1tFRorQj-Pz}HI=(5nxND=&WB?$-lKE!t}-XR)GO;V
z3V%F$A~bdRpzK^SOG>9t*D*c6{Ic{c%Z;lj*WS=Cpj&*XO!-bfqq^^>_76?4+SS($
zxuM84*Ozlj%c;GJT@O7<)O~<U3zu=9*I9wBEIkVI9qob%TCSY=tS}=7($hFW3l+|7
zI4spI9Y+JV<na|v@O)<A<}v3mg2SOKwFqpV>}m5yZ0%yP^e^5OP?>+a#wz}|l<!Xt
zh-R-LV{HN~Nm0r4kKg?9_T_zB!LxWUC9&8){jdOnhWusq=cj$h(liHAL{95ht?e#z
zh(p<TN3;h`x}#+s=0q;2=#%L@S?LLyO1;=TtdTgwQmNKY(`4F6Xa92I_Cyd<HExvA
z@M=>t>umY(r=(Y43#Gb|AU=3LtncV)e2o|_w^iB;Y_=htmYD^=M{;i#RjKvM9vvf<
z5h#syOZe!<mi8V0xYh{kq%BE`EZ)F8x}w5r;h3)rQYqX_2FM|KPtztu9<H|JYlkAu
zR7?r2lPc?CLMJMJw7x%oeMxg)Y6ac}!@{lu-cELjUy8{O?!-y@+VY5Ni!1dxuUwnr
zX&%deC@*Nxn}r;;#zfs8!iQ{<=o50S>xMjV>O%uxv1!;<e?5GdKYp|kYCe$II=R~J
zZFA!JYWtkv=v`)KrOjN0yJ{hKs=>}R%gu%y=I#G+G^A0N$dzgV=T^|L4eE~f<z!p~
zZfR&<p{6pYmrgIxlQi&lSCM3C760JYc%!Rtw<ZA(#|H;y`1QLIrHmo%>;yzbS1I;`
z)#S4?6XSz8<Rn+Pg}!<7sY_KrT=#JHTB9Bs7Hum=lBa->mAvm6@hWLO-Dc^m&i=Jx
z`b=qD>*BF}Y?G<Q!D_0(XD?}xt*zX-FkxonVN%)j(r&JJDR`NXpg>efZ;|p8)us_`
z$&qYA8x&I)%9VaiQeU@V{Vn-;s?TyIwa48s5fTB|Dvf~d{fUoL4Vf;M+=Va9B5}3;
zjq|UVm1>#+t+k7reT+H>v?(>(v(`Ny7_g-GIeXZq_RV@(*pk6vKa@T4&oSOGWpHQ}
zV^K+q*H<>3-t0Rh@2Qg!HWb(hax*?{f?s$UD2x_W(}!Afy+>^!SAAS&eWnsxfS-o<
zfl5m2*quMI^b^CNVaZg|biTIikl_Dtb*FCvw~63^b-LjWKW;mB#^rR)$$&fm0dX)v
AHUIzs

literal 0
HcmV?d00001

diff --git a/doc/shots/textEditor.png b/doc/shots/textEditor.png
new file mode 100755
index 0000000000000000000000000000000000000000..b12ee21e4d72b32354a374d506cb28902641dc85
GIT binary patch
literal 10912
zcmch7WmHsO`0mgxtq8~v5`w^pbR$T&lr$>cpyU8Uw=jfsOLupTq@=WTN(so&F>nvR
z|6TXXUH9wVA7<@$_8ZUhynF3AXRirYSCu2er^W|?Ktu}iGMXR|It&CtTgAlyzCkB`
zIRgS=fYg<>-U22F1Ob7}Kp;2>gaCn%4;BOhf|!9Ia1aCmf*>Cj%^)B%Gmse^WQG8l
zAs>9<5D?r91c!s*2oN0k5Q>0+5N03*9E3oC5J(^s2nhip%|J*v2#Ek80RzYlqy};U
z!GJgNq0YlFgFxUA2m%5@K9mJ4Gc$-89Abumm?0lf0E=)l2pkT9BOq|(11P{3VFp3K
zAqWHnfdnuDp%A1Q1PO;A5fCI$6+jIn13&{P0a(BqP#DM!qy};U!N><f4>mC1W@ZR8
zGvot5pe$g);bw4z865dQ7eE0lBH(5Sgc$+}um?Z^zGg_c84_WJ1n2>J05E}QKn{RE
z00LkLpazlwpaGPCD}Vzi4CDq<1G$h7$~`OtHZTxyIPyVAfFDp6un-710tx5}&;?Kc
zi*O_Yjs$cBlm-L<Z~^Xs&;VONN<a?)CJ+tC0bl|M0}KJwKr#R{5DCBnZ~%pY+(2sN
zLyI1~fn~r31`_BPASA#KC<|B!B=Vtw|F!=C#eW@r=;wb;dI0sG?hoz#Ps#_3|EcrP
z?f(crK>m-zL-YTG^}yi2N<eC0I{;k*!~;0}SL(l=`2YQ5qqmwL1fmBi$Vh2<q#qa&
zG<;_#{B%z<?6&Obip35l=`1q(5|Z}#jbs>uObcuHTgAaGg=>i$Kly9-U?^!P*@f=d
zRAVtKgN>z%!-45UlG%Oi-nW|DPBrJ1lvBZ!<1ZK$TzN05!QY3~2WH>=j7UXXx5EF0
z>_>Z7B;J**UH3m@TSZV(kl=qwj~jEed_Fj-TkwmWUJoX(Ucsd^s_!$)t*+-2eUM=A
zOkGlA<c)h7En5u5xWsJG4<1#A?==knHqs9?pPdS0DI$1671BR(jt{&q1uqB2mE3Ho
zh_G-E&DgRf@3^IlhY}F1nG#WzLEqy|L%E(7i><LWr^aDk$(JIp@`Xzri}@0~P#370
z$B@|BokD?ReYAzg5Svh5KPv;t7blooMKB_QqA%II7+wTyEv5rFK`k#1$G$Q*{Ziw!
zG(rm&Ulm5Lf02ZTa;}RdyM*~3#0?j)%>PTe3Wt_u=EB;L-(^t0*`DYG-J$9aF*da(
zm9gy5LVrb>@R_C_SKgjyc3@hcg)@AW<gj~_w@%NPDOGdzz9(@XQw{Ckt5<J}bIW19
zzWhVExxLPeVdCFg=6+A0tP5cnTK6`s&00TbUqE$w@ep|)VVWwB53PU2>)zIP=nih4
zCeVL?<!(I}F3RQ1hK)6DM)133_u^g3D`4nz(!TuRgQbkWJZg>gJWP8o`6WB!W!UjN
zy91W2ZXEq})wMK9ZS~H_rL#ZEECsdiU|+an=vAeiQF{c$Cw~I*<qgAT9A@7IG=cK)
zlj~y>PL-)SOpC%Wow4i|EB6>yib*k#ozp4%g^onc)Dj%sDZICSTq*Q77D~wV-`MVo
zrh8=m+vD?#ye&YV;P%8F6<2F=y1x8WLpiNv*)7RZ_py{{NY`0|cP-X&4(n56MR@$$
zBhKey-Cqj!Ow#cRVdWd91&oKks!>G_-<xca_r(^Z99#NZI2*B)ZuQ_E@FrV5xyL_I
zGuQQ+M9yad1m5-Tnv`gqOR`sikJb5zZ##%wSH836jH>M!(C0z&TRQumo`0h-;K#>A
zrUx&wgMTtjPVY6|qR@lB(L~aZB9K9|#1`lgc$Xh%TuGHh+21MQ^$c)m8g>-7yzQ7W
zpIxd22fdVCapXZUjs^=T&kl&Srj%}x2gU|kJ9?XkbGURx3e$Juj;masH{yRei&E1Y
z!csDDNp>4M60#DO{Sqw7((3$$+C{?1FZ#8jA;IGF$3x#V>qs?ZrLa5I+T=Ri?#kmm
z%2v8MMf*nX_I!Em8J%&_`;-fN!y5^kmsc;s1%`08D{LZc@8mnD>3-aNt>TG{!6(6X
ziJiwYPLnULk01_n!T-(CX&hKw@@+TBclK7*uNxW>=Qq*h7fjdBQ}Szql0&Ba4;B^{
z&6aoMNugLpI|k}2g}QSx&YNkb(YO6c?8jA3rz1TqOcsr|UKy4q(<1pR9jSlxS~Qex
za?w@gAR3jieqTEM=ny@;uShYaNHAaFyipW}ll{*$^rO&WhUIBr&SOmHY{-<s&`26-
zQfHgBsh7F%*B$ecWTe*EXuZtmO{Juf2Dw`*%mk$@^rEel@;sQLU+=d);-SQ;pM^_A
z$HJ=yo?0^RmbD~ZBYHdQxg-8OcDKv)c(F;pWPyeu)S%BF$OaN`x>Z(f0Z(}EIul;O
z>?OF>yQ-NzR3OJRRKKy3h~X7;C*G<f^JmZfp#hR%yxNxa%akYvI{cJ$P5nrW^P7Xp
zjZ4$g49U#XWXqUY=8YInhZmE_2B*zxHh$t<)t*vNr?L!_6HcaC;W@pA%T8FmV0KX5
z<I;3hC`m@&gz`-*<E#5w64Cr2`_NwJnY3y;oMENX9DD!wc9j`AQ@Afz9if%89NE-e
zLzL<k??k$#XdyK)^j@-FB7106F?71$`E2^om}a_CT|`yzTnLi$^Mp5J`pym$pQ<d}
zfLUk4rqF)+Cw0Pj%xxLgttZ%t?NQTOropk46;A)m>u-N4kbcDe#OX;P>67bs^i(*v
zuLd>~G~3!`B&4?j$5<IU*{bJMJ?<y=f`8-8j|kK~(TxH>U&#7>+_(5E4nhcnu5x59
z-a+kZJo7ke<^)Y`3z)f9)Fljm$O#LMLK!}QAzl@S`;#M(v;d`bn1ev+U0|%C)V5{3
zx_2|KOU4)xi1o8TOJ#o#4ThMl=u_}?SL-?~){$2OJX<lJOG!L6#ZKmubK-zJ@R{CL
zVCkd5z**P9O87nX2&w~{|1pk^PZ3$xk0yeTOO*B~hhE#HzOv<gX^TVajpkK@fn5KW
z*cNA=$LeCXx^)sX{&aKp_kDcDCm_pbdM~pYn!E<>I7}A}^|eM`n0kH)sHXu7TAA-r
z|2=H&zIeLHT%~Eyrh<__+Q^}xh^BP%mVw~OROMCb-XEtezGK-|*@e5E^CMl!eJU#@
zu&WQ1!NJn+1H<V%ql+_PKt&|k^p0-nY(tx|ZDARAA&#SzN@qlOr1$051joAXdr^DG
z7$(P?=i47^?Wv0C#l_tTiL!RiLO79VOpZHe0`noi!vrmjUcSZNFDo)CB+U~5yAf+b
zd-l@JeDmI?(DsW&tTx9r?HFC~5t94<i!mm_`TOW?ldifV-PYCl{xZYz+b&lI@(mBU
zHOC>*e=4K#^I0l1`09@Q4ZsFs+;^6&`%I5Lf6hYMGqqpz%=4&ON<`KCue~o_V(mg!
zv?Q8O`j2zBF7yyJek+%%Q|gW`bp5ml;;5Y)PvZ69nU((5LmS%Fw70doZsx*`9K@$T
zDPEvzDp%_Uf57z09eQ*4`{{a4)-o@YRl3{TQ-e7+oR|WhR<=In5z41HdNIDDezkg{
zFu<*7r=<G)cirTHoOyAiyRMgN`Ca9X&p6oIF914nu2SQocweJtfaShLn|yyY_sO+S
z<#)CA$801QxOn=$e$StYwxRQ?fC&ttZY8cHv|w7t)_J2Jsr|J}rs%I|!?c3(RaTLg
z+l9tfKxNYVl4nz`rVC$>vg6at8#X;?%3BMskXxztM4|?E4L`0(FT-CqdX0K^wbW^G
zEoJ@^dA;_B!T;%mcY=k;p|7FD-@u%G;kS=eboDw*g^Wi|F=qaV;_#$hhjXf#{Rw-S
zEm=+F`<5aN)@#FIT1;|2DGDLNsympwsdgEmXX}-bJyGtt;M{Ol5K)~AIc#(|dMW(O
zen^w*dN!v=k-jmrUEnbeWwANhFHH{dVYsTu!Qr=j@{z=AHsL(al}k{ouiGA0lK+-(
z)Mz@vzw+E)?2q%EpAE(<(u<gfs&T*iQc!|t&_X#%^p7&WsJHjvb0|FxCyDO22@Ah6
zy%Eb(uYAv@qJ#UOyZ2?k8(%MkQ+$c`a}=>0LJ@v)QS=PAJ}sTLH88Gx8-6gP!E=Uj
zbhFD*#N4zJ_3h+VFq=kV@-F;D0-UDOC6BfL!w9xyt998!R5r=NWOu(~YEe%xzrc1W
zCV4M%^G1*T8)M)Z-gL#U#+>w$b&F}QpWJmz<KiY0XL~HnHvOLk;~wM}3?>d`IN2KF
zTcGxci)Oei!oGfxf5x+`GsLMsdqJ8gEI%Y7=egT__l<wl=>O5)&$Q`Oa_yjAXv}}O
z!1u$@yJR6o0yg!RAtt1~EI%iL@so)@)Mowhw`R+>ms=t}ojuE&<Fq$JH9enJ`?BI9
z`e^5-d_g2qRc@h%B4pKT6@Gqh#`b8g24+=Uy}~Xhe1K`BbzwRD|JI!>&*@w^jx|xz
zjXDCOM3j{pQ@ZmlrNI2JxO77^+J8^=UO5&vkiXcYzF&45{dV(o;79yE_a$_1kaN~_
zLf9oiri?Y!ZEru{J3nP2N#|a7B!Nw+*{tnwa5t(l?%j2g(O32+j_tB5A8{R@E`&gX
zji7jaZiTkJ@fY@9lu0R_V4T@a+JW^ZhV1hA7`4sExWBpPtQ174KSw_jsA?Z4Wg9D@
zwU6Pb>K@3}K3iIoclh=@Zi9l6He@)7d)Cf&RYB44w3OPzo_72%1G>#s^arXt9g#g>
z`n>$Al5(w+rRe#g?7J?fU4NUz&pm%bMAI7{wss4@5}b`6EmE7sc(xWFEC0ROSx+Cn
z)q=*w$1>$zxpwu4@Ti|VDbAYEf~=8az74H~@e9WV5l7#wNBcbG*D!rFhDJ)9sWa-w
zknW&AnuV|lYu26I7Kx7)Q*ytaj@)2(G+;g23r@PA>gtz{Lj2yZdcz!>fw(kmF5@UE
z&<|msMUP;(k)^FFPVRZ3SDPnyCAWW&2&mhwh1I)(3-$Sd1r_^~hcfrl5hmRyM$YBY
z-8f;AVx)g_;Y^MxE4~z7&0~`#eF^I5Kx6i$bQ73c^vMz6WFKCodM$w@5}fRzVUV*v
z&ea~z-qaOWZ`!1++WYoZI;yW$eno*ePoFtV7;{FEBfI4*I!iXJKwOF~xhW;tc5~?Q
z$kYiLxz(|UXe52Z#_SJM31YJksmZtj^tb`Z7!1rA@_7GE16$VxZIAyj5-&3hX_7NT
zd^nauyPwcqcFaBgmw~sI{fKhTc0euKz4cBs+fyX8pQsoX6#Q~K|8KLHdqjS3JjWBy
z^D`%Cga0M&CYwE5w%C&*)gh}6zloBz@1vxTwMRG0eB;Ff=t2@I8HD!>$FR`VxT0^{
z`*zEUVDu&E>&;y*ah}aw*rZo+t-~p9SUMHYrP9&eNm4IW1~xz4R5#x9`zDL^ow;3)
zNxkb>WtwuZTz&Q0dF&PFzH}om%m0iu?YJj?lY@NO)-s#8zhy9glO8&5{=9;UEj<;_
zK4;zHruD4jcK&GE&BohFg6i(G7ZD0~y+HP3F$^ci*Tv4&uzJQ7zesz5?GvhL`1SBX
z7~t$HV!rF}ytK0c+~htKpo4+q7@%D6J5I}%gd@9FtHSs!KOwyjrBnXvvsOnvEW<5g
z;`2KM{xd9I)K5x_v5mVcKdMh34N3Rj3)wbE?P(R}V&x%yK4#RQVNKmK#ALr*XY7*H
zm42>a_=-7?!R-Zy--cURTL-b#7LE1Nja2iQZ&yv=>Q`dDy{AOq#mRac{<jpr-&p^S
z!Vnkp!FIEz{)a|9sH=obB^G47ksNEn1_$6d$fx|}*`8J)K-!AYgzSz*Eo+5{o2vO9
zT-b=zi^Y0Be`IAO$-c_)HxlC!TegmUUhLTh&zR|^?B=ZR3JuOF{v}c+?Eet0*P4#o
z^qNl6bfLa5sF$78xSBzCn^$<z1WqE;(bJVg*$rp)qfYK210J;FRMf1NBmD9ids-G>
zv^pHi-tlL{QYAKv*NXc`mvOSOueq6`Fu2<EesP&^IWB%ZtByLVXIzorUyg}0IK+7=
zf_r!g3qE?M^v}S#p24Fe$J3_MO`4_f*PU4Tit@#<gcOwKSyumz>3#fZHFH>UWSM1o
zmGs){tsXi0cx#<Pi$#Ja#3k)+=`OUaw>>ucajYN>lXK<wlVTXARC*9xZzQq!H18xe
zr|lK)bp}(d4xLUYdm5U{)?aT+FEZi%5-&@dM56LRxhIE}?E&<6AUV<TC#Tz6KO@y|
z4wo~j$2%CCzMbV)u1ET)TgDf|vSdy*jSt+`reN!pXEeue(6pz{^4tQA1Wm42&{9-N
z8DW29BC<K3P6^C5`<B5J>KHA?RA&Pl%!<Yx8N@<IarP8u$$B$Q_gg}owMHj$HJ~Hf
zY%0q!rq!ZnftcG{Q8Czw<?r;MBHEP^lO359M7&q3XvHxmLDS&%e){-#yEtt(lx_T1
z1^a&5U?;G0{~tf`+<dJX#y(2+4I&g%2fh;`09xorHA+4}ALau)n#I2IywYaYykEyz
z4~`w2(w9s#$>oiGCWp*)miWG~0}bPy(Pw+yhD~sp-b%lW-@0I*_)+$sPBcC42b|G}
z?Y}ApH}4Uz3+{|Pm5-9|`z70#nZxo(7K6Sk=3!v?^>X-kdZjWa3{^4Yz=R9PZOHyr
zvSs6sb}2mZYYFkd{KPY|H?Ac~4yJIu8(YQ+qLfnCZpob`ZoW4uJgK&lHqA%eKVgcR
zn%i$X?Q_A)&E3H0yXOueej;m0l`zQhjbxL&CqFy09g|1M{$TsJb64T<y}s8oDxBx4
zz4Ek9N>moEwEwJcd)i4LHX2kGrRWaP7~;|Q+rZ|ayW_(O@)YHJbjf>Xl6O)a<!eg$
zP^{`Pzpd?mK^Z%ju;cqkGm4t`ge(PYJOh6062}k^ADYSwi@Pj;WmWGRngm)GZpn&a
zx_A>saF2$Pw85DHL_C{!-Td(4n%(c`?b~$PSS74mPOTMM3I+Px4`eeOX`8tb+Uv&6
zgGOXYZ&)U6nty)L{~M=;g<)Pi{k;(8y`?j188tS$OP)>99b%l$ti+Yoi6Q?Nr)MxB
z@(+}+l#Sn5&q!bk-Qk;(&+{;F0Dz;#j&mmdFmxArl|@VwlQK=bj-l?{s%1^WeynP&
zl||nm86p1rwDA4<(>g|kiOnhjLwvDzHXl|`SB*{=bHzpM4dXLF0xOleO<DZy71P^Z
zlocw>2;k4$Q8+W}Rqn?cD^BmsTx0?crd3X<JKZRP7C07?n;O@U^<;GYU}G1btqaF=
zX5UltU99Kfk|UIQq*;$iklCmtgm6(5`3_u7NFx2LwUXAn6iAYoT7BQ|>u>)Bes$<V
zL_UZqE0@cV0I$?Nw74&JWfcEsx=7h?of$odlT#~t=@9yoa6piQGnBL7d@XWUoOfji
zYXuqYu_ksxD379izOJBdLR~W(o0WPLk%7MFS<$)ca>0}*i3Mf*JIi|TUh-Do{KUXs
zF%xy&|GL9f2CEI%C4rx!>e8)`Z2lx*%MqS5b>STuVBw<EDWF;E|9yM>N7c#-);{aM
z_wTz5=c`~H!A+|=<LKfP=qoEDES2d|#ubrLG96l+`M)Gv(L?Rr1Mx3kwb}C*!=6a7
z6i&n>Hgl$}8IJW3L~`3~ecQL}Ax~Mq%8KFJ`0&%H&1p(p<tr<h8iqs8yOLH@g=x8j
zO$t{0*)aG`j|by1M8@B?wbYm@5gQx7DOYzajFk+VCrt;dhv13Y@Kg1%UV=muG;uR~
zyn(+rEIzoV;e1Nf5v(?@O@}<PL<eQ^&}YA!iXl1StPvVrBhKleJ>=n`{@wN9&^FP7
zb`u&oQ3KWOYV`PyLKD?0Q&eMqR&XR!CTAg&h!;*rr-`9t!JA;`zx9Jh!Ojf>yM0Uy
z6~%l0gYWQna#Jcy<~>I+Yl;KNHH^CzTy`tl*iF=&Ww**+WaEQVp0#UQssEr1=JJWz
zZ#P739@OOs7E=?N3wPlc3$7QX$ECV-&EGLs^VBnjmsf721>y_((78>_O7myR1$lXI
z31XOI7S{`FikHe4fOFa^(0wiVO~T3q&DVI2e_&pl@{Y4l#HN4h(GzN>t?NUDiZnb^
zc;<P<*p!8Y+0pQ<kLaCTjV+TyeIpsT)y`x~xG6{VY#E0tYNq1V@3LuQsdOzPwvP^+
zl<bCI#dcb_&TK&!ElBaFS!+~{h!QxT4jduNyD(fLDsj$E4!>PenT8he7G57-)h>(8
zLz!GUY3J(M%xpMRC<Yd+wMl3sII!6@aSPR7FjF)esAk6w2>P_q$(j(`2P?yWf*W9=
zo0u;9WOpeVtnA}Y$TK(_+T^Njgz5WxuA<hShY4k)Y$aI==SllUd|!#-){*oO${h1`
zLj#&fesO7TlV^nt7r3QatvgKK$a%fUctm5OG}yO<yRMilm>Ss%+(j9NJgv@p{jNPy
zf<5x2Xs9tp4joLf0N<;-Gujs3Ki5w=XK!?9wTRhjyYdz}ow-V=_ddpfvao0SUI=i#
zUZ=csSX1)%mv)T&2~E;$;=d|FBSYO~mr}81Tlf2c=XSD$IbE&j!-UvOepOH?oy5Hy
z%<n{&KxMPa(68MBCW*^2uWbmIVvd?Ox9ZH%u#_;c>W*bixQhip4WTP?aw#rq_bfsY
z5t1y?8*NuN=)&UJ>8I^xoZuoZ8jY@|6A2rTM8LISxJFbN438+o?tZx{5nLZAZf=kB
z(t%5Z@e5x7{b5j>=<l03?|XA{_(@cL;H@^?O5e8AG!44u(Z)$ikg8N=6oI4jlaXVc
zuY={-%L64@_%m3_&bNG<SA`-NJ1*&m$I93TlSM~Kw3CUHD0Ic=3olw~{cOghKMf37
z^K(vLNA;pgwtk+)#oS;a1%eDdi;+8|h&ia`WCcd`qYSCWa3k!eo6xZ-^FqSZq_8)9
z3AlB5@t@jeLzd;z{lED$IfUGL%!?SCzs}v%BJS@aHbU(PuS(2hU2S-uUy>6j684#M
zeGUy5`w$m+H;(8;V~2jIR1sITCTVyD-{(WQZW&Y8Io>obgV|R(Ak+fGG|~EFFHG^~
zDE4S3ZVOoV@INaTQp@d~7gmRR(QeM}nl3^p>mTsaU_Tx&fvxx3l7okzs$dx&s7-7U
z=SvVjjiJ$xB**9YJOXO2Qlsan`l<Ot*%sv)h+_H#ao9<}Rqx(AS&CpP+1vRMyrpoa
zl->Ce#ekbje05ys-d59F?6S!6W>9z5#i)(DM8ACyQ4$eYKqqq76JUk6sC7~1hSOvJ
zar=!ghtn*_x$w`*Geg>{={IAWQ9U=;2g0Zcar=^szypQw$J3lil0wep`esz^IZN3v
z2ke;M8=Zyvw5JOub1Esm?5_F?&F@iVAOE@5<-q)V<$qsX52>*n{_*LWKsVmL5;&Wo
zs9JK+M1DcZSI^@YUDvvc3QS~$rhoCRG8dZJ<D93^TWv{jTR2m4`qZthYWkECT)!bc
zU`p$>)*I2DIKCO!PB0X2V^U?paln5#xJ0}dIxXj&B~aPjLt=6D$6(>vmfx_Bv~ebn
zb@aB5c)<d2G=$9*GeI${(N?8jtn}YqwB-Q?X_aNPdo9gXm;nQKp^f!OtFBf>H1zw$
z1aWpx{T@=E+x;JD5C5kmF57rm=D`{h?z$yCx0?4+V_Qv&@mC>2)8Ds4LJ9Y0r?qVR
zM?@}&rAvB&V<!sm==JA6&q}o^UiGIo4E#ERjTms=A5x}|1+_YM-(rraW0?fq)~xiM
zEpk0^>v-`NUy#L81?`!M23x`>;gF<G3$(3=^L1u@ldwv$*L{Jpzn3T@J)QSH4E@8^
zsdIaH2c65rg_pnpJTo0LB55cC9s8Tcv5$qDFX+898MW~5yY^)bp~0|f7sX~c##y<z
z{*^=nHhEfAgB;b8v{Pv{a5yRJpS)`IQ%)MYw}ZV?C2`ODt9io0V8U<DD3y*sXWQ4R
zzCIK?sKwdsIUBBc8S5KoEDeT{Jt-Y>YJVO!q+uc`*%pN_PttQH$nf<f2J*GPjx__+
zcN`XON*j|*2uv_y1A*wM4Y<R1R+zKs2QI39K)?JZrkNi-Q;H9l>{7%2v2m*3|7Y4A
z?M#bO!c<n?wfHwp>n!|J#N_5tQzrRTXE9>sJN>B4zU9bbG1Y~uIVOBhxGl{AWz?QN
zYLj(3eG2*X&;86pGqnkm=epJF&K(Ind$4?bt~03wm;bolV+?t<^%<`Y-KCeA3)Al9
zX$-A2RqV0EI*;TWbD|11JL7FWHrXSW1Zu3$j&C%V2w&gH+3cFtEq~UEytrsL)0bGM
zUbQ9h;T%lu@@#+J@o4W!HG#nfzp}C=%fst5{U1qr1y;@fnXU#1e)Ymxw4mA74R9Y|
zt+%`ioe$iHZ2B&EybS1w<LXY?MjMg}C12Qg#yk)@FL(cZcqQNAI)U4<PwK-_kx5*(
z6^w@Ly~SY~npGOL9Xqb9n^o`9@vEdGX3zE)L4EjYW=@@vfTuP#B~94eKz*EdAas{_
zUedQ(AD1){jxwN$Nf@490PYW-zI^?v8)obKl8-zUb8Fu<h_%j=qH4i->mO1b?TDIq
zHY;gz1Ll9%N*E$og`2^;9M)MNRu0QJSJqiTEWM_af$_xpJ(<B_znWO>_Zt0CO%8qI
zJs>fW$vJkGxZ7eYS`<fZd-5g0&&`_&8B^!}<(`gMD0yO~c0R$o&hW8i$+$ju3E3tW
zcJMBIm!eDzA@{Q!-609Nfc=Nnly-aEa=~C(s|$)JGtIrI)#do(?|S-2-zum^N1Tms
zzD*L|nYQ?`@_<H3xh~(w!bEQ{<jEBBr2?MTRp?RtDVZ0QKYB_c(#mrZ=jFFr`GD(D
z9x`w*StYucji(Y?ch{PY;eMc@%_^~(eMihUuzi*X)uxqx%vkTii!4=$pEhQy_=3X?
zwMyQ0<Yr)4&Rx;4p~kweFoXLUtGBQdQDQ2ph5cEm>qx^?e9Ljs6^1ssu&2R-QMrZD
zNY35q&qvf-uWvSHaVdE`m~Lmf{#u>%$NsYC>Qc|iH2ZRJdUnmwA(+NAEYR^`nefG{
z0tx%OPmXdo74xv!bH}|HZOPceP0Y3V!Z*WE^xn{+_ho_|q4>1SRZSMKPrct4#FR#&
zw`}=Lj?{Li3r?ck^ePV3APy0g)0IQ?IM%*XGA4JeNyz7c=p|lceHWU%B;8#*Zh^jG
z)@r0nhSiwb9a&Bzm6i6Dl6P5)iRXuVYP=3!i!`W~Fk`f03@Vgq{`yO3vOp0mtu+|a
zdm*E1tGN1N?S_2lVkE`8YQx3Z58(`-k9E8-@1mq9R=;t`y)@=GpO-_R3B2Z6ennCm
z3H9#MLz=@@24k|gxsNLD>e7^2mX#>0g00rGU;~h>!A|Yvzjuo<iFX9#lfk=wHR=J$
z0qbS#E4h~+Fr7I|<SN}XvQFNFhvrto-eV~!RAv|F!3+b!X-uIK*{{9d-U?gYhsmL@
z3n+!?Ox144D6gop!oI}`qQCH$cy?dwSWZ|90^z7V{1?Dk%5o3M*F#zy(WBEeN&IK4
zQ^MTr(mjKaK8&z+xBOfcxrUn`G!T+ilb)`mC@gvJ<A%1Q*cPmOPOX)s6FY}r-C_LY
z;BTv0`!M!dksqd18wC*ti?Z?)7Lcy`2W<Ug(d*AW&#Zb+JZNK^u+SG))BUgB<2*nH
zo_TBxW9cj8I5OqHvGidpQsS^!L+GE%xh)Zl-+amWz6(|JWP+J_^G6ZYDB5VbS0f6L
zcl(`bv;9^F{8^k*Sf35|M}7r+P!7wqu2f4mNc0XwsQbt%cziA;Rf}5TOCs~Le<T%F
z6E$)Yq1EM{_vO(zU0V2h*sta{oRUMmOT;sdZL}}(qma$6_qgNNMG4COVo_U^5KcFR
zUUH_l)Amo_@}e}As_Oj4Mwf_pnRYwJ;A=a2l9Ww4kJSyTLY$1a74;p|P1vPFv#^hu
zci6K}*7l+dz!ip;LkXICCbRK1U-wqJ$*m6}e&Wa6YIT9Tz1Jrlcei7tlapEg@3SwL
zJn7fU)Aw^Qlh20zenSr5GvcyJU!i2K1!m!I=-1tyqirv+?e}T$I=V0Un%wL6GVClM
zE8lFVRJY_KJm0phJ)`6Mm$ar@Fjr|`(S~faB<G1%o0iZ1rPY;%so#2On5j{e@NdG%
z8>?;`edF8}>(v$T?s+f1z$_@9gd-#tIIY#ii%Z>Q5}4);Xmt~`WE3WXLj}F~Xy6!@
z_2#6M3e%bNP4tj&a@Xv5iNbB3hW+UZy;8l-rrV{YD$}T5Z}^yTyTrn%RmAn{nW7!9
zDEAq>qtrH0yDFyN4c2FiSA?i!TJU*z<pN4@_B*j60WGD&ISomviCX|U;jC5qn9O^1
z2c52#rLR|-&#C5hUF;;3X(xTh-cPC6)4rT+pOB?{GS^#tsGvI$g9tHjB1j*4H$okK
zGCfwMmGrcPavti>W@Tcld%$pxF?-FHkqgUT>I_jQ{o)-R(fQR$Q)cSgu(o#?n$I=5
z&H0I4so6nrv$n<VtZvHoh3UKFlKkEq+Wh>q7H>HEHyq`sJAFPV_GpT6ZqGrU#DF(}
z{mt|2>7ZniD$lQ#c)Tf!Uv;{S6|eZ+f72V_d71FGxqY{{w+7v-gBNz(c};UaJ>4kb
zC(|fPlAz`nQ+t&~X1<vVwLbf?nB>*<xL8D6Qn&OPTWyN5gD~y#Cikv)&iZi}miNIP
zHxq63URG3PxHC%Jq{{@F=epmxsg;Gk1zCzmyhw@6WBKHWvW!Nkbqnr}rbyGBmjC>s
z*xTrO(uvq!8Vz~<yBO>pK7PL*;!jIbv`HqAXNPafGeY>7-{}vBQs#KmHML385gs@7
z!R1I$X(e5{i^S!iHq&9iyC6Gk%23@d8&*Ef)<ymHv84FJ2`AL>cuD0U!MZ3X*2^<_
z#~e6%3*YCf(xl~F>aCJg)@bpS>xo94PRG{0IQyf14to1l%w&(0v=NJRrT!&-@l{+C
zKfHt4*`Ji*r6|6Ocx8zuYzZ{m^Bp@Al+8+(cjPuxI>W!bme*l-Gx)Xh!7bOTA`aG#
zmj%(bcE0(Mxtlyoai>$fRf9pFlk3MQ6V7JV8^-%mJL@BP6DCdh86D8i9O|!w+}2BB
zo%<4;jUAciz1c*CLed8<hr-SI5-e&*h-MwN0KCwq=rE!r-peVO(h<cGIjqwWDlA&N
zi!7Tx8XhjG>`VIoMDmMVzU~P&lZ{Ch<|5rYoh-+}`dR4%i^-Xm^8;$32GLoj_F!3Z
zJ3{!V<8l2<B?GkhH=o6(4yozyCK5~QQ=5pU-EI5OXq0T|ZK@^ciCNq9`rcL~yOq6(
zX=rr|eB04svhZkjl{MSkgfVcIL!wrq-7RK7O!|>C?MPFye#ASQa&>;+!poFouU)Wy
zgXxqkm3Zpo4>VJ<XoM!tGkmVMH~#vxQiQqB9ACHg4AY&E_Hfl9n5$Ckd$yz2^_#zc
z$EdSDX54SoA{i$3up$X3+G!K6?JzEnvk{-_{}3=2q@nAO5pykP2ZOv)QU1T4Am6fb
z<#i}eS-84<2On9}LdC*6H@6!_m1C44Z|(njPo5_TFskk1{6frmN?fvs3Jc(_ymi@b
zuw&YyicYdz5o+Bq=D7WFAty?6aN_H6*Lza_!j$YLqwww5iIFBS)2);EFgRyP=y6Z9
zr0tW83tJA;wRiVN*w@BF(l8It<K`b4cQdF>{0~TlEU9}R{_|YtWn!1It)b~f#uDzK
zV(x@SD-EYVO8mzHQW%$?qcSeY?IWhh+Ban#vf$wyUPfygUyEyl{r(<?$$dOET%Gn%
zln7fG&vN{i7oj%&%Hzjbim%8)m&T;bq%6J8x*gZz8irfxnNQm$;)Y>4xLz<#x69P^
zS8->95QFbCTjz%KD%pVj#OstC?X1&A;P77(T)1}oTrRFc_p47ny}T3iV&5Aado6DV
f+Hmekyd<vFOW|5G+d@73w@=}%s!YWj(}4d4Izd%Z

literal 0
HcmV?d00001

diff --git a/doc/shots/words.png b/doc/shots/words.png
new file mode 100755
index 0000000000000000000000000000000000000000..a9c67c798a5a7adf52dba2dcd066c5b835e43cf4
GIT binary patch
literal 14567
zcmcgzXH*kiw4D$jG$~4zDpC}bpoky{0R<5oT|i2}27)x{5Ry<71f?iN6sgjrOK%B9
z1OaJ+NDaLO2!xhE%8TDx@8A3V=10~#bMM(_?|mkdyE1oP8{acH#&MDZ0DxnLH}y;b
zfC&u%pcytW;|vqexjz5^28{2R>oY<CPzC@;07w9UHUJ?0i<FfCWk*0c0Z?uOl!^Za
z9hCt`N5C-waBKq{iT~y%C<6(OKtckL&;}$B|E0Dm18t5#TLRG52DA|wNB~h8AUXoX
z1c2BE5E%gjn*q(hVk9$W6aUrucQ`65CnzhoDJv8Im1RVZj>?V+%8qTyj>LZ~7=sCp
z$_WX|32n*=#DAn1bK4x1+Y*%9+LYUf433OcWul`pF+rKwrc7j1Ww2&|F-S95GH5Zz
z7=;<w3}^-xBboS5(7%{*Bse;@IXV*m>0^{-L<tFw32lxE#D8)bEEt1r365=Tj%`GS
zdIl-RTt{MpBeBhq$dJeIgF%y#&9H-^pFx75kinV(#vsjL$(YLE!6?kYW<WEri2t1X
zH_V6`M_WPy@t=_leT=e<sI4ubjmYqoA(z2|F_=JXOCU0QWH`+*fWeC~onbUXEyGHN
z9}Jp|Y=#{SP7J{eg$&jVFa~KxCW97(2cs|pn*mMy*P?&38N-a2aS$0DV;ITM$0*B)
z+K9w|4g9bD|5*Ij(SQB?uSx$%{pb6?_Woz(KaT&o^RL_g3I0d<KMnty{~xV?3jV9a
zfM#3{j4m<EV`%!X)PGmv|NF;$N5y3TkOB<#bj<_OHa<W5IDfV1RW*HaF|NkD&+@_?
z$S@hgiWT>+w%O*zp?TZBnt$a_e(+@gS#sFxH}vrL!J`KTC36j%P3D!2^scDckP%V8
z=_tY|A>ycnP;Qs!5wzk4e&WLCE;hZCX__$Pzp{R(SOQW_qW^BRykk@vpol-(@it<;
z6@G6ej=kjp_OzcX=cT_aZr+lb3OmkJ9RfD5IkPHfx5!gse=LuNx!4{i5q|&Z81A*8
zFU>57Ef_)&x5I8&HevndV`($!ck($`<%5b@(34yO!gWo*vv-H5<LYpBSE?T+w+3ld
zQ3F1+afuI{pl<^O)R2hauP2o)wm3EwH_hpT!KQknwwxV-G9HA6v1E7bDCA(zcf~jh
z`Zu!hksx|%PZOlR|DNO0zzbotbY%~~k8}aam!<fP#ukaI48uukMt>6;9=+n;kx*3t
zl8}cD*1()a4<KfTJ%P?Sm>)SoQ$9g!4(2_xMN6LD)gJ!^e)yQ=3HV&Us;}cA!RO-a
zKh|M3Yx4HxVIkg1-Y*|hI)GImlu6&UE!z{W9yc0?>u(eR&OyflH#Ud}Y<~*AWn^Cg
zJEUK@?Qca>iPko6q8{w`E0#48yZ?_5IDf@A>)MSZ%eDo(2dECa8OT?P%9=u7Gi*Mv
z!)WV0AL;rF%I*)vvbvw7c`XI09vgb|oXk9rdUTv!v)Ptn>@`Wt-x*NX49nnoLXxFD
z`P4JX^(ifn>SwVuoyr~7rrCykP1MX}M9F3Lr*XE%6{+d9?>7AgRcNHs8`#q}Cuc~U
zKZ<aQi;l*tVKo0s=SIv`&xCqu4OyB4Hx9yR;)xEkE$#Q>MlxAKN#f#G5Ps~PM;Rb|
zgyce8MYGA!k=p&?;iCe8zjH5eXxF_*>|XU;9iLM-q{x$XYpLcw5Alrqyf?>}pJ(2|
zgvmB#1eVN2br83tLo-Dm;=pV+V|KBur55P@7^ZetxnpFEkaY5hy$O271OvF=Kc8$G
zeED*p)>)oY{fPbGul9f5CHl!o%Giez<kCI&z#c7m)PWdHZ24@$#FzdYlC|wj<+4R2
z<SpAAbiO|Y+mR*d^eWCk`_>IUArZ7fyO-7t7V8QB<rsr3<-wwR7jh)Xtu1_#r|;?6
z+X6Lc*D`E=mTMY$JEWhZJZaFVeU&{x9`KbRRcQdVImB;k`34@CvgWTFDUAvvU=svi
z82df};@~Bi7G@!F#<vHZo@)4s&@pBLNJC{$cii<q5d?!&Ul6ten{p*y3(a@A2G?%h
zpX((*x4UtSEl24JAb-3Aes=y>+&6#AxN`xeKCfyK%1z?|pK{e)`_f<soHel&>lusg
zsNfWl@iGFTyMspHZS~fny|?<>TY|gIObgO`QJawGn&1{0{V3zg!xkQab3oA~^zY&J
zO9_&cG*kR=ShdNCj=Dp^{do+h5E*x0VfZa9-=HcsL#p9-?u`qeGbxTPqdWx`wKx1E
zVF8Oh8>$7zzZgh-cHVX#c0pR(5?WGDhh%<Gfe&IhezAsenTsAJN%yp<Rl@^pb(H0^
zAO0}awA4$<d|2?(sRa|>nZcXE9QK;Y$H@)0HFYslDU^c;CgOjOI<OrMj$hY5iY&=z
zZOH<Lslf7Wyzq%SqNZ1H^PTz>{$Dc~Vx#o6(jd1>gq876NzSS!p`6*|rO9xLlInb~
z%(PU0?NlShbhuOlnW!@6Co8kOI+y*`xAj-kWtfSS-1e_0twKAJe_lO+2F}%eQ#{H)
zNT{BD!k3ym;J~|#kjH6wX0L(v{S`+qlC)#3wq9T1=+?N3(guVm+Lia!k!hC}@d*M)
zRCIT_F3^JZXK%?tlmS=WVd4V>v*jnj@5?SuMS1rq?kyaEAJjTs<b^nJ<K6{-fUC<7
z>=ju0+q2AsXn&W_vu%j_h~GyM&Vh|rX0=)HZVuQ1l}L|Xt*+753v2Qs>iH@&7^=;e
z_KM_-oDZR#alrHOav~J;b7k91c%?n)q=HWvK^06OlF`M@LCxk633LCSo%~kc1E&wT
z;?EVTj#i~ec18}}=<~n2(HeUWvhZ4QB7v_C|7s(|o)WY}W8LrP%BOEWf1(jy(=K*`
zdw>4YbWQfPQf~h}3!x|0;diuTaD?wdPm&_V3S09$s!Sb1Xvh+^MlF^!zi_tV@sv~Q
z4?I{M@Q)`KWUn&S(zoVc*NRonSe7lOv?D&akAu|RTRfzU!Hu^3A%B=c_05we10qkq
zjl)TZc2`VoeEm`dEc9%WpS1F@wS*j5u+Ev?xD|Rr-!HW5dGtp>6_o(e&pQF)@QN8*
zc^oVS_Ei}^1BjF1HqdFhQU*9)C5wUId1M5RKk0o02{|`MAfTf)`Os?e;U*Cy&A;K3
zznX%h2@0IF%L@x13J{YwKz#0N5M1v8k%i0ig4kn@b1%O=0ZCTvYow)>R-U&-uh!fj
zgfHg7W4E-zJsDP>8L2S6J%zoAN@=s@fepVd?&~kD{nK-ZfznrpWUIALQLArEyn$Kt
z2Wa-x{&^IH>IHH8m65I`S<xOo<UAXFQT7v-T?TFYwux+OQ`jj^8&kAXQ+gLdnj&P~
zcip;z%*~&55z9uP{Gj5z92!5<czBpg5%s!2bbglKv^wuoM93um?E0CE^%|vLPsIYp
zqc-SImtQDVnE?WPf4u-?BzrU6U30e5>}%K6r<3gnA21|S6gBVsvUkIN>(rVpIatJ)
z*+DenN8!p%*5imrR}w(0K{%02Nxsr=kDQn>2u;6%YvZB9==n{`5^t+oN;pE>O%&Zl
zy%*BU{*fsXu@!trtW+l0MBx)X8XHxZyc9wxnZN#v@0;&X?6E%a_z48&SMHI>Hgv)}
zhwgd=lO6T^5%--CNPE0uf*RWje}}2o8olHk&2PdQ5j7VHnR#{2b~c)r|IlV)a$w|b
z0Et_2Q}P7bn<g7vde)?aUcr}1B1y-__K&LzFWPes5U@Y}lAr|m#1#*bow5n<bod2e
zWwmH8%DafXEB&Uw>#nE>I*rfE<xA~+xU~Pw6{OHiwVxzuy9(6{2@WAYmvy{d;EZgl
z;yyC~_WANMb3Ie(&Uuy0x~%$o2sul{_*ZL%O8F8b4)m>_Wu^xA0<=+!*BkmVzGWIY
z8}jvUZp%TEh~!2{hsoCps~xT9$m6IfP;Ol*_{mP3`pv42`}viKV0wzRd?GL1DGvRd
z#&=BL#tn7c|D#99!M7v~xIdDVkzMY2>cLDk3fSDjx5{`Kfle+B^H;z)bj(Wnh;MV5
zzG>ks;d%E#nv&6jb@`cm8NOTjIfA>!GU<J@xA4WD$%IoDa_DY@FeYAs0ynXlM^ZdN
zc)uSh)-4I}Cu$xh$~=I}I}$gtAQ-fQqld7D%_+))YogxF_Au%6R%wDh{HT3JU~!0`
ztBE?U<+4SkhB+bDg#5LSUAB(iju|7%U?MZQ#n8hneWvo)<SR+n;w&c@Uej=qLk<_l
zxp&^yi^H!>d{mjr3z>Y%GU{evO9}Zxw+y-x7d=L;tn2&s$laY5mu;5)@<!4ZJFny4
z4;G~*36fgdTPm!u@Jq{)Gp*aX_((RE2Qfx=bA@+&5`6izmx8?$$~L$KRA<iaygU|u
zdA!4&{TJHC%-5i6u%Pevgh!1EMy<9wGispoqsp@jz>G=a2>YDTe9I>|2MnS1b|EV9
z^f2-<7a3%my?WGX)GCZle4Bl{+!_|KePww^NAGO_Zdg?lVOeSnj7J<d9<kqWcym%L
zWFFa-TveSZvsv~NOr1PC>;j5&D?nd0*^5=7C#Nl!F*zWndm&C8@0xd)PC>?EWVGEQ
zXl5@?(TWA)RoP%H*X}L|Gi_y_ii!J5vUe#MkK7&LaXdsEV2b*cHZJ#`FruTkx4=&v
zH-lMn=RN=4XYBzz>o$VfwW;i#DXH4ph>}PI69KG;B{U#~9l~*)Uv|3h`d!OvzJhx6
zw&XUKj`XM6_pzOw->x-|L}G`)Wr}G87g6Y6eR*;vV7?PtBsuV|o9sR#elPUC8-8U9
z@QDik(Syc!+W1mK7Ij&Rv!|Mrm=Zr}qoL2rt<O3EB8N7^)<;<af?^I+14DcdOLTvK
zxyGqphVig<6dl%a(Ic&7t>19fzq)e#`DWQ|iXd9kwh*1=P+}QWb23bO{dwR=301=^
zXLqf$N(#l7_)D}yygv~I4<{Fy;9DQ-bti_vD%c|T`bV(oXG=7lqhPZq`16XfAp#3Q
zN1W0YAM_(EYPXu=RNd2bR)4<&1Wpx5aV18VfZ)>}ZL7N#38gh0o51!~PHbUheChpW
zO9WG~F3aS?exz#VS$l0B=VQ6v=lDNuU&_bxs>~jFReRk2o3DuVK)87<Ljr!E53xX`
zXxPvDBpL$ug<a+}1THN;?SX#vt8?!lH`+cy&70+)oI<%_caNU8Sg`fxU4HttX#XH~
zY16<iZ5;xRv5H(%iS=N$eH$>!bw(xTD4wtq$y9C!-D~;;3Ix7gyEyRKiCKd5P@Kc`
zDo?A4>vvdh<w4}kXb)_-nTxQVN7X_ZC&xeA{>pJ2TDQ2lVdQ#ZjczHSB(e=$UvJcG
z>T>=RTQ=?P^*t8W6M*rnb-R5zQuYn}!R~9jM<K7~%v?Vwr4w>Z@^bUT%EnzAz@}MO
zFn?}@UppPjy-iP)+|pdQ)2!T#MF>AL5DU`fr)73pK_6Y7I_Xwa0CruvVD3jM5fcPO
z9a^u1tLEoz34DG3=CmgQC4j!G^$62Ic;n%rHk*a@uW{>s(S=sQa5T00$~}75z8(yl
z0)-e<Q7Br$mEyj;>va&+pGB4C-nuYYl`+@b4eZGd0(`(1=dXLOuEPKV#fS_ma*Fk!
z?J0q;LTp*9eyT&rJ3w*uXXR}+oQprz&}TSgEecBD*)WD)*Cv}Vf2^H~kQc9;56100
z*$1i5p78j>^BJnGM84}~2sNmem-$4<>?bNsRh1Y`kM(iqG&a!zxJ2fc`Kmoi`zB-6
zZ9G-mUMMf1DSsPNc{Lt-@VUD2IX1~2Wrmu)QqcV%=D6F-ouu6w!<H~fyYRQ`bZ)n2
z`J>lwc0$MP>A?CSw!B$D2+Vod?#|?{!=gkL;p3IVtdik9RTB1~@+$1!H7=}ZR3GT?
zwy1?d*lV=-qa5Ae5q?i17z_2CiH@4(ekRYI&b!ke`y&lN!mW~I+(*rMNw$`asmnn>
z2g>yBpU!@vn5P$WA(LcLX3%E7F0BQ3YH@KPuwyVS`aX2;Y!Q?;zo~D<Dk>^q*f2>Z
zGj+8$licR{y>Sow4eK#GE{rM1{oK^TtU<i8xK9YZjGg>D28~M?1gNs?$~MQp-@Hm>
z4IwW0C83hNKVo^INX@iPSlH#?ImXQ${)xD#3&Slh?p#fllo5xj52n|QKENj5%N*}?
z@ivY@;D$!HMtvH))ZU9oN@{<3P@|PeN{T^}jZK4K0b3QU{QGUs%wRs%H5`C-q@brc
z*6#J2B7|b<cEW|Kkr*Cu+-}suyv}uP`0s-ryJH{a9)L>*{)$|Eh^4#LYW}rf%2-HS
z+Chqs<2#_41|pD57XKeY;EJsSDPqfVg!3%q%5Du(QvY!J2Zx>TaUt^4i;F^h0l9nO
zr-Hxdn@qlq6h0au5me^$GE%wKJBoA&<H;h*s_iXxf~Zl_{fqOKzh0JCZJ>TayGzVa
z!P~yCN6A@T$iT%UdfgrAR3=;?o)n~(N+@A0(FWa-S9;;L0g<rO!LW<ZJ9+xn<K}sk
zc-;hXx5Ke>b7dQHD4xl8an<)DSUHh<v{K;?`E=T6TQw}#VTOy_PiVuE<@SqIXzzO?
zO;9$uVi$~<k4%@v>Sz7=-U+Rw5lB~cX3`KL7U6m9o0qR{T&eyT#|jI@9y?N}NdqO+
zi)*M`XkwP7_-JTw5>(oqpFEvSQaD)HX-*nIBt63nst+ilaZ19EF+&|aPcUgiG47wA
zc!;mDBRo`DDc6oIIY6;K2&S(?Wl7Qx;xdszvNyjSskqGCUI^W>p9mFMEP#ETu5TyA
z-W$GDi`tAOBs#TRT}7D%8&IfM5Wck1a|Bc((xgWOtGTl9G8VR6=R7loHQ+y^UU*PF
zvn}?xrL5Ao{7+(5`e8#6!qGo;-Zo+EkM>7w`!+{QA9B^h?!<$gYV4k%MMN#w&3sP8
zC*mrsep3O9ZtrMbp!UCr-3ivTP1lw~Y(QLt4NhLVd-D|N3&=1<wDu!b2#si-S{`Oa
zT-j}m)D;l>v(Lkt#uoOe>GXb%q%vRqR>y!@4mWt<E<aq9_V!0BdLXFH*Pj&j`{76E
zrGB<?8hht?urH;L2jhs&y)goD7`@H#<ZYB{2~U$rZnqgn+&Xl(tdII|@k0{*Q^@oD
zLTAiAcsI;nA?Ot)`g7T()LoJ^@7KW^X5BF<r7xjt{r(lfeb}o^Q1W#w7S}n~WZB<F
zGknU^t=E&v5|g;?1;<o6)1HKEKFGqs<+mL-&IeVsO6w>L2(iafG;AO;Z>x|$5N8?|
zX?wjs$?#hn<j)c$PvfGk--g<w4Q<Fmo=+aOC%%qLMx$tw5^UdHd9*=Q61<uE&FzV}
z&9dF{n&7_3LiZNJZsA@s?8Z*aI!YiwL1~lIO4}^_74uoW@Hr3q(;~)i`Q!W^rOKrP
z&>1kUd(-a7CI*ok8DQJI8Rz))Js4|NW%qQ3N5m_f3!Gp-TmAVAP5Jk+%J>91l_OoA
zhThX)?scI~1G2$Nn8?;gr0>GAANCnw|M1wV*x(^hH5CX$X5HZ4NEW=i_qPIWJ0pPp
zh)W&a19Qa>+2{PoCu>yCQlAD{b+$fQIP0gSA1BGXx~g%|q@4vl(a|;dD~+f6^#zpd
z!_r&x!4oi8NVoffP;Tp`l%9F2MaqlH3-Do+AC$$nHGg_&rxB<le`5QS=2PCr&}$Wn
zG0es6`U##|z<Dwb-|yQJRpwfn*ZIZD^-y>Wl|*odu{bzwb^yi18asgPr84gfYW9Qo
ze196M27DjU1bZ5}+0=CXByIw^;lGqoDXQxH@eRN5y5%!Zd_dOCN~ggGJI}s6*m6uM
z`Ko0(-PK1^MED;;Kmi@@dzX!M^--&u!gtO$XFGL#Ks|_Lf%^gQ(Fwb<l6H|D>IMP4
zWr_tS8Sq!-hRMA^QOKGhS7Uh0_UyE$E#a0vijSn@2+vWS8ymGr-b<8VishvK{?-fN
z*S+87)_rc?+Jds0ljN47LP|KTt`&aluE)^<S$-XQD_mbmJj24b+beZjQ>$;9;;`v6
zC%NBwjCRpXeFE!GpWhy6s}cZJ71~9Uyw0Paw4F`enecMl%yfR%DA1R&0`SlrQMQY}
z6HNGo9O+@GHYDGDUN_Sen7&l;9=QmlzO2{|vGo#Twez-+rWe3UiG}Ue+9vyDq|W(J
z+)tO$anW6BnHh7bt2gp&=Y$A6h*?}prGNLTb6P8GEv^VL?IWi&*Jn*>-;c?%UHzOp
zQFX1|wX`b&=C6}5Iv;?|jyypxmk=U@v7@aOmuT!qr@m!%oUl<J-8_~fnwBVn>i8Y>
zXY*|*V&(^Ig@L!mSjbNAL&-w(vq_c@SzeV1GlS2j<;pviJvTe+#=oK9m(=LyCZ{!{
zaM=GsbjyY*XXgRWJ>7K5!xwZ}ERyaRxf$`D686Gm-+@?sUWi}as!aXv8S#vH_Z$4x
zABC_V0uBI_8R*7!fp9L<I5wTEd2x%Ph1U;iq7S>1V*)Vpx;Cfma=Dj=wypVWBg5nL
z1-+(YBn8lK<`UaNe%V-9MtdJvEb``DFd_A6P>$6bt9ZA#nH025=4%eHE^KYv!wRTV
zq>i4Md!P#|3p1U4OZQUxLJtP1_o}O6K&1wH8)?XlqNZ4J+Zx30+$qg80l2r1*h;!{
zO5pY<`R5xO<dU3cBs0^^a3fX+0fJ&muHeETJ`i}|#SY_W!RCc9)%(6NxHW*76XViR
zLw;$oy`EQHD9m)d?=3>Bc63F5XYI0%gRzDu=T!C_XBT+BU-D$kmX>EwGwHj(gRoI+
z^JiVN@`T6R=R>w{Mf)^&o%Xn`pDwB>HKKmfW|LAcEk_%qoM}u!I5noiJMlVszCW(L
z`p~ja)1RUE(Dv2X^zLOG&K)zM_V>X?#fYe*iWrO@&-BHzgIX&1ZOA<ZKBHdKp$?=P
zL8dmQ7a@PoZ}zJ#Nne!#6m7cb@0o_IVt)>O-kF>CGWl#{kr|D<CF#*9gz#_F4b76?
zn_E7*S6j`$fzFGY7W!=LwrjKPYv8Q4PX481*=ULIXykmoM0=UOeP$w|543QY92%`G
zmj6W<v(ARUbBPClH;y9Ujk=(fr>ol^j>p$og$wR$%RD6;8Y=DyB6`1D*m>}WMjJUh
z{Z|nlxX2eaJ1q}FoYGIjR^BDm5`sU#F7V#*9l=XU3VcXESSTxP?20V)P&4(rSEqb?
zGC_pC8N#!JrTb~&3r8Jky9(*DcH|g*sV16NU!#Fj2lD}E9&HB*;$qW@oGDt*k57zM
zeYyRa+*>jOUlsP_#V_~aN`KQ5kPUe{gRFw)1w?wCwQtuO)Bz^nXJG#B8<v%Ta8T`>
zD}7%?xBuk9#TgTAyH4c51ut-!*p$IXjman9+qArEre<*sgx57=zjv<h9!C&=B5s+c
z8gtniU|PJMJ|BfIq$q--PJfw9zCfpi@C;o@>MH!Or+^H4rp@K~lfaa4eW|aZ%MmF=
z2(q%ZM4x_L_tHkA)TVAFxtHuUBvx=W`gD#uH&@59W86vK<(OW>K7?;jalZvgy#5hM
zf?+`!@xX^TfG?#J){=ffjqkKHFChK@yuf>X)_$O67Q#);4|&p;!7+-=qm`x6iU}bO
zN1vV^vQ17@CdJ}b=RYNI@5sA+*zrHNw}mRKB!IczHDpbkkus~b8#3M0BznPjY%cuh
z1e3+QY;0l-kJ%plIaMv;AK1(!aCxUuazt0#=Cw}5_Uata;nYytI${z&cf=*hq~}(H
z;C}vdyBGbk=S_fazjwT&R5y14MZ4(!mcGmxq=nFy?<qtV-?-5q3gi291do%Aq}gqG
zweZ{^jpA!gOX%-dpwuv8(mtVs{D=q~Q+!#?R%bNsAiTo76!cr~SinhS?!!2bqiMwW
zD8kF}HgmGsOf-Ci<&T+Xzd`UzNiKcv4dz05*-suN{pa18=t=~y?2@m8HiQv7d8eHT
z@`jriB2c6WpDv+@L^a%n3GNGhy0!MohvMLNZ^td4-m||m-=(FMjHt$y)~?B)SvF(h
z!#{VqDJz_vB-ArUKD^k&ZM9_*w{iH#+Eh{!S$X1D&5R4nH!$y0{#oY>16ur7TRMN8
z25)ZLaPA7mdrrPBs}u9PCsMxWZyb}n4RV=LUlr-?%*g?`%2ADs%QaxO%ft2q$GHuU
z!Hm7Aj+{8}Cb7Q{6=IioR5IE0;F!&=uuvW7rt`O5teD^2%a@Qkc;#GK4D^CT@$J$|
zgt^}C%fSHkhuDD}owkcxy&^{z>D}xf&i%YKV05DFwbWf!R*R6<!lTbq_Yu%d6PoT(
zGbx4O>Ws}#XK_K_Fc-stY8NznT<J>i#E(irZDz)<Yd_kLgJWK{ok#j@K3E%HR@1sq
zd44oS>U)8PN(A-pJ@;<~=XwsFSF|e)F_90POvF|z(w<!ShKnPdgRGZDmNpimqy0I8
z*%fA<OMtE_yF7c@I_URv*)Idd_>&wpjFhL19E~61jEvs6_+22`HQ2@;PK*)QBqP&Q
zkJ#v$R3yU5dh1h&ebB>a;dax0dx6e|XUVKK+BJ=on1@fXLOAPK66!XhFbG48jvLmF
z=;UjT+70s6?1J0*f9juau*al;V2LFpRI1VkT+2YxdmZmv)vg%N_<HRP3<b6FC7U#B
zI??X_j@8z1#}=*@;v7}Q>4+U+E}9H@Uv~Nta!N~EPsazyyCHR?Y6*JPUKxAl+Yy&8
zD5#PHxA^GGhQ0s$et)jgubRm6h<r*a6LI!cb`jn)8WM2s(B8oE^K(lCK)?s4lo1C;
zj;0n3ydV@~C0?FVaA9D!I94-A5Wx&BZTv}4K|~El4x_DK_=rCrc4zr}elM;R8d!4O
z*C;Ez)6Hl#y)9h!@1&)D;0GQ1LMz;$;Z>87Cy7XRH#L%+O$O*bd)C@#&56VbCxj4f
z2<b%gLk(8=#sGnca;FO(w#%Z1mSEq5`;exm#rB+ED})ZGer!%*2~WJWuRf^h8sd|a
z(BgO*_6$g0z%7O`Rq4i89zS*&hDw1odjxk)j1rVkfv7tj`-oh9-Q=!oX{9#bg$q2B
zP$@ke@oL*Gmamy4GSbyr;s_J0ix{LJ$NF?e!}x3H`(o}FY{&~Y%Ux^y?Vo#Wd3e2q
zonr6#Vnc3OXab>n1q@N88I9CzS25BxaMF`g%g-T?#b)a2lq|_N+6H^iI;k(@FB4pq
z>!5EiNl5?I#)C+Ezd50(omcTU@954og$f>!4p^>>y&ZZpLT*Haz?1f-$Oe1mOJ>vc
z=d2N&6YxMZSCIGL`jKa%XMOabP$Yk?n<Cwa)kYX~>VOL0YrpfruXXM6b*Pe;bp37n
z%Q&0wD!|>>pX~X*Zn3R1DeFOh#qD>#gZOUIPr9n!M@&Pfyl%6Q+_wN;-q4M+MM-`a
zf#$t6(jd)>xLc>(XTqr+dyjZRymk<L18th=aK*U!fllwmnVV2GB)?E$BTc^ATrPUf
zay5AgGPJBDnVn`5AN5@k5}Giq%Grz{>Drn*WORZucaO~p@sYl!oFhH_>T&Su?6fMt
z7jXpHeK8y96-UH;U%Uwb0?GgO0<5s`pGp2$OcJn1gj=lcbt}@J6^6*ffj_Z^?fJcf
z%Yg|BC}d~wfmUnA*e{g<9oThRq4`q})CiBiif`J*&1aZqiT)3_8@#NXoSJ@CFd6BV
z6x!GtM-$C=E}?8i#|n&Z4HM;CUQT7Rvc_obiB7{u)7_EJn%_b&Gn?C6e2D22Moyz-
z3!LIbCWF9xfAJ-_1zP1VdnqvE2B)r~T01cDX1tPO0!$A*nss&!hU_1tic_^XSrxSe
zTbF*w9-TTWpB12H-S|?SwlwjyWgnTu9{s5mEYRZa=rJ|Y&!&w*S+QRI#;q^1#z(OZ
zz77&!PXHBcu!ihnjHG%u%UpHJ0K}qV_+qBP>sn;$et(zw%fPbmx8zH*kGI1q<qMie
zvuNsR|6PN!o%~uZ(c`D@^&A-@uHs96OjA!&;?oZo&A9pDp`Zft9&NO5axO;tk`&-X
zVT1Kj`-2=Rrv0`l#}1!=KAU&6Yy`gmstY(&oJLx~LJkid|IjDe4e2wLEK)MdHftqf
zMhAYb{^A+kP*1~?xG5f${imu=H9QSmS1A^lC{pOo)RP}^LymEh@6iY3X^lHaSR=X{
zaZ&BTN=g&=<wb)M&f-6<O;pdv;(cbJ?C_KpfxWDd)%=MdJvmGYotV(9ZS%QC7He_(
z3c_gL751Rc16x!~;`24mqcl)oY%V`gDdtZj=1LnPP$Ju|I6gy!$5`Ou2_vmm#P)7d
z&p{Gd!}boOn2fpTtNl0=OJ8L?S%~CG`LaD#=Zax#IftpG+O_Oiw*&*RWR~k&LS$W8
zoy&Cm(vnva2&1`a))K|D@3a&0WD|vvPLVu~ZQ|b3Lsn^|QbcZvmED_ogYOXC+8J%-
zz8OaK^%?4*SwkM@Mv&GedxAf{*@z6haxJvRH!cHHUsq!ke8xTVPCD}=xl<pHhQB$D
zWORC4WG(-Rh9FieeWj@8D?j8<KgwXN-?R`B!uJB)4R}KNXaouEt+UJ$rfH<2lA4d}
zgrIppm6~OZ?FK(*=oeil?L}+xsC6MY9gmb?&J+eIQDNNyj)pp8B8dUa_D0Q<r*#$H
zASBGge6>CNENRr|S8nvG-n4@-d&{cbYUy+9=KOHLoGvCczT`*n$~;PaR-%aj$M3P7
zZ%$XjuEjDp*8k}G`%y5E62I4{Ma$IGIg6al#+k~Eei)Oq^U*SX@hip04%}B-nFBxZ
zNcN7$LB{(#M^`=%3;Ig~HqVw+ub6`Foa@CFKhT8!u1sacD!PjY+ky_^S3`8l=6$sh
zR&UOtPO+VU7B1A@8(i9XH;^1YT3_A$d3&F+fknhP_Zkdyvo`6^sePt_2D*x@Dk${m
z{cgcrFyId!(AE7Aw5MV)JHXk6e*I1h+)bG88F2Uwo*1W}`>T%?^b!@d7}Q8wJAp2v
zl&2vni@VMxXwy9YBh~!Dnn#Y`S&{L`*Ylj7RT3FS#m%3on|zq~=h|nE$BKpJ>}9g`
zo(Q0nYU8gOkSV<P=SbBRfw192jy@<m_!NwZF7L*nbVXlI2!v`C>ggQ$L(=Qgt6vk9
zi;HSe0)9fK-R9q){BTT~lotB<V(eVbYJq_;T{P5WpPMvs(fk1`g_w14olI@8c@8oi
z*2o+<ee30<m{p8V$UT5Y#_+SXok6%|fcae?dbMF7TDP3#Wmp~d&73dOlOA6g7^Ort
z<jVctkiw<eocVQ&rAgfz<JbE4bS$NeLcesU+M$>VdH1V8{qp-93d$-XM0H>7_{ZlU
zVQ3xALcQ+>HXpy=-W84znvGU;n<M-IIb#19-l|Ie4)DiG1ck?LZ?}74-piEGFWQgs
zc-4*3J&Zt~a)WizpugYVnFJ?#{9066<XZ8fKj91=%|mA&P?0d}+f`I2rU8R*WW+(@
z*}6&-BQ@GB*)k?>nw&5z^Bs`A?2HK}&iqII9iM6u#mRw<qo1dd{0H5NtEPMRzQ6Lm
z7Yw{vkoO9OSN=s&`j?^Lylv}ulGWcN_KA`gy|-6Sc-pW!_kb!ojFUu^ZKr|WFFAYV
zVtituq2==39uTQz&H8bJd)w~S^qjhe-#PUy{?>4<UL2G1AgzYE2L};S@L;8^a<Spz
zCir{JOj#|FhBed)#<rm{N?i*FWvlA<pV{!*RCy+{=`qr4V-{@79lN{KOZ6xl@$K4-
z^On)yyTj$?tSpAFTP4|)y{Yhfe-t++F%&X>i*|0P@kVF{Oa6B$T5o+1%P9&i67%(p
zhfp+rgI{=>J^|H@jn7b>(YkP)Ix}~>EhpDqLMZe@JZP-{tDwuF`Y+@6N1ZG)wje&l
zH=T0V2?gO}n(}>B7NEa1Qb<X(-IA!7@;-fqwgI&w|DD>|xtMuh#(ZtxNu+IE+;xBl
zc*7|!m3(-2Q*s%+7g+TSA1Qyw1>n$svE(r52m54+uYR?)O>MuOU}<moPX9}7WyyZ|
z<b8yzeLqZNAcPYCq;|<*`xWJp)=WygnHhCe<lys%Uj1R9gmsLz^8od6%QYdWj#F!`
zVk%pXxPRTr!{^xASVgCRl;qBj)Yja6J7P|{p(kH76Hi8TGd2Fn!J{u~_E%E`Hv))n
ztu>EfPS$d>1o8K^UqBA*4=p`c`%AZj9Gg2vg^7jaBoLG@s#L<wfZa0+lTB3Rt)sZ}
zs5^f^75iSP!E%T+j?;%(FT&pcm4dxlr<O2&@l1%`?BxX@%WyTV$#(K1HJPo0jzN0b
zm_PrEDp+vKlO2>zIjwh<J&OKip}*RRNpf`d@{@-nAE>>SwWSK4MSGqHohOJ!dE9BB
z-FZ(jxc4JVX3v))6D2Rihb=)#pii){@jTr>LBldY`+Aw(u*JGJVQ*mjqPZk`lbRu4
zPtgT#STbE*Ja#doR!O{w=cYeu!9eGt{fK=lqT_RMPXn=ISaDRh@@RQkhG4j!swJL4
z_ZtoUx+BLQdf6qWrgm9!b9OCDavC<ie`|QsH*;u)GMQ0eP$gD#AX)l-SR>w+hZyNy
zVv_atxI$=HulUwa_xjC0)HjpO!ahypuqGCC07uLNp7s%lX}h?_!t!pYFp4*z*}iW)
zm&Ku$OBNhI{K7RM@-V<#0PAKl$;5${2ojG~!R=#J;rQ9d%ca!z>io>Ta%<p*p&zRl
z#DP!6v~j=yHXx<DtHE34#o>7ZE7n?VxyD~iHRh0E`s-`bdO#apD8!p$rMF@6fl<RV
zCC}l<MSrm%ze;l7+#6noIbds>aJ-FBdXV%m-e~ZhIBHk?XU2y9uD@K-oFygQ^ZX_r
zHJ4Q>^F7oa#gVcOOqxrnZuv&^-aj>*6Qzkw$ez!vaHb5p8-JqtD@g5xYIp_dEaRUj
zH?_ToCQpUUXTlk2ll*KVgzIG)@u1tBy0v>SQyr!2FFRWusAsLdo!&B|(R9xX{~T3y
z;JkLQhs^_4D+JKiUR&LYamP!wuGXH8UJ>V^y>2?F7|!t-amtUwYplkuN?uL<OCLLa
zNmh(o=SU<dpwn*vD<_P@TKvFlt!fyXpI4sg{@7K2b8)<EMq{S-9REhm7=&5-WxH7*
zAIFvMzwTFO*fPq%9n6{bk?XsmbgfHmNWt**eH(t$i^`ka0f&74mTPrCe?VX@G18Pd
z=}O<sKifW^Efwv}Q@8a1cbJIs(xXW4=$sQfK-EIbK>Hmwg&;DvXFUX<x!EJqm@MWv
z`_W<DB4rJ<DGn`SHNBB*+dlye=MU*Xt(hTAUSxl!apt`D%`9L!WjCjL%*uyjcV?dF
zT8+65K5T;Q_qj)`*DOS_BSITwrc4aY+Y6Arj@%$zar#??c2W3Xi}I&NUS5b!+({@A
z@Q9Oq=HCzRN<MjF1A1@2-)mmw-svwzfqKUz6tesz`At%8lxIhzBfr03K11BLhqRAh
z-+IKP{A&|L&pBB15@PXN9}Nn;+c!XWx#B?bakdZlhU93^f`p%|?O=68)`x;5cw<2Y
z>+;RxBG||TFQAQ0*zfz;Ub;1BQe@C68^!6U3`ez{PS8y<>(he!;2VGGWCs}{yDROW
zFWv<r&R5A@!=|HV`0dm7Vt6R`>l?-Bx<JQ=*gr)q*)bg7o?SQk#o~^4P@n~_Ji^Nv
z`l;BJwZDaBtOx>+j!dAPs|Qg*)(f^|i$<s8n>_fv^c=i{iS4gZ+TD3n-5<tQ60Q%6
zbjxoi?CF;TV~tL=pWtqObGOFYc0rBh-8uvrAY8DA4KOisF!nK+HLL5w*>`1Y#z<~5
zs~&X5SS@AI$0_SmPrYoYp+&sKcO<Z$$AsG=(R5sqC!Ob_!|TLzrN$rwhbD;}F5c*T
zx}+)i$Eeg<+ZHnx9lS>>g`cH7WHCwdeP=27weRaowB&3GsRECLtn=7M%DBuK+5BKK
za(brtXm#&d*!R)Qdc2McV{208+~Zb%DChgzWi{*U)d6kZD|xzSQdZZ_nwLdh>BMQ{
z==CyJ0N9J$1CT#i9Q{2eC2T5Ik-tG7I`ZGFbi~;oh>kJ-&OL+Feg4BLg6lip(ML`v
zLjZ@9=jla@;C0x&u`@-HUg~p`*A+3f@OPuQ@4&)!to#^0bBuyZ?q7Bq%_138l&{U#
zZPqUQ?vc{ExqEOgVxM05134}Ys3j<H$!TvtmXLjo>-}UG9wo^dIhy^AiO0%sY`Hy4
zSZg6AKB=6*{LruuHPK)*uE7sIT0}_bZmaCJl(p|1O8ls2EJ1#far6TZf5!fV?%*i`
zAbHUNz;+XsU0)BR9;F@fxRfRO7VuDJ!tD*Z(USFYikOUwAGF+Q*v~kuJ4mUHIWe_A
zgpr4eX%W^U6(#(pJM=1+J!TuV75PN_<h<d@4>zo%8rm-PM5H*N`~(VAX#Kx{G4c3w
zt4ny;FCp8AmW;@o(bP!^^plnh(L?y4nP;)+_wiAqeSn*ycjRiS$=RZ;r4Hctg-$)J
z)4x?iKMPc@8zt%jtVXRk;7$+lQ=gZjnk@Mlw2K3=`-ABf4GvqDL#{d(>1tqQ>vxJ7
zj2osAFKy>JyXct<_xplv4CAR%hdYj?_^P@0Q3*(S<awT(OsMFE0#7Mgn0{xt_p4qK
zS?$);LuDfn`PrMzIQc_GovI<C=M3cicqGr3!QigStl!I8CKm0uD~7M_zvZ@70pDSL
zucssg&{1C>s;L8w{nvjmXC7V>MhQ#bs>;uqxKF9>m4^w7WI`6~HQq!b$OhnnU-ZLy
z&xvJ~`9t`=_p2=pv@rVx0jn6=jfgp@PPik$4IVTJ%?2yqHwDMv*0Bb^d$@^U^QB5Z
zX7j<m8<;b$K?ZCG_HMzAeg%(Dq}<F+-{YqQOFzWi@QBggUz#^RFf6C*rI&43PbK1f
zLFS8m`zZ_6q<opw^}TZN+~U_U`HSrha!y2C1T3brU%H&2Bw5^c8hxu^JwmnX7mxl?
zt119VE9Z`)-92}zx`rpBCZCV0x2|xinigASlvA)_6Bezry9JrF^vqUpXyzKYp=*3w
zqEz4&ayG;tgV=vli{eG&LPXH+_-uuislag>Qe4660nnzc29gFV+dma4k4kNEy&=r{
z`E;2OMQfNX{dhBN^f=1l*avH-eiv<ymL<roNN&U&*92p`dHxgm{wTANXF0?3zI0jK
z7$%2uPAfKA5+(oZhW1OjZq30j9NK=4xAP}mD{$O8%`_pUt*Lb@E_?_q^(qoSk9;SA
zE<8>jKKs&A2gBJGWbqy4t9L&9jgVfweYtxxj8L<*?CF*KdTXcnWk!S%Q#`h4JRHiT
z>~#K&7I^7i>+3NBim6o&Cdg`5QDjc7v~1p7u=}(?4~Z~fo&me)R7;$L$&<Pjv1f~X
z(;96A{X6o#BwHfkoNHtjm-3rOhTkakTQlEP^k(%)Mn+*fzM1hq>ET#j(XJ7MBg#zX
z4uoQxy%KNKf>RX4#`90{{PxW#!0|jW$T>l&KY_g7IR?#hn5lG$4cfZXubD+vwmBH9
zs%!46ba4W${F<6YZPlq|9HpvAReyLbwjtj@@uNu{E#tMlcKQQ2-n^ronEfiZ{e$O)
zWFl}%q3ZjN;Y#Gs1|uusEwRkQQ#a8@J9f7t7*CCgoB459c*~i1b1i*fk6-(F>^3Yn
z_Gu*F#B!NT<6-68Rjw|>8s>@3P*h8QAE=N5|LFeXokw%faqf&nW;KM?*0TKU<DH}Y
zffZl%(gsM+g;S(n-a9{FXlO0tOzZh=d}tylXMKZw#dd~XulW|n*0Lh`QWub0+5Uqj
zn<<y5<@&G|V+WDlK{JZ|@%f1hMuYQ70c1R>#W(YQ_?P1AZeHm>EDLD|q|cA3=g!@h
zFlN#U&&aunr3um;(K>%msCN13ya4?09<4!-8)0xr0O^*=0w0BE3s%DV#<_yE$C-0D
z^9lvSdV4OPq+5)w2E&rTa14^~jV0a#yU+j59`uwhvu?K)w3q}lw2lJ@9i={3h6RgX
z?AWYXB|Jhy4HPX2fqitDF*9AmkKCw{&ASay=GL;p=y+W|VTHLJ6iftN&oTTJ^XU~<
z`iu<o><;8vkxqt@i@}#aGmOp3`%?%?2=%W9=il^i+{|&)XES;f4gJEY^%(~IaO0bh
zI^Sg{l-NCl;5I~d%6*R-FAZFO;V^xev9MfX@TBZ|UVqCWA)FcZlJTks_<L~ka*Kv>
zv_z4I+}j#dR&>3+i5U2Ze)lH@x#WF3cM;Vt>i2GMs_WWI`r8|1wTU(+GfKihH?81-
zB(-yQoz&$!f7ODhGN8WYf@k;8fZ%9wg&F$!k?6T%fuAl(34;jR2yvE7ES2QM9v~^H
z|HMI<u9ct<G#p|1-ZQ6t&hEVThn?)5D<JL2A0VxK^_%H|P{oHGQ41$xgV~69`G}qg
zsO~Gs=IyJq1GX=R4zAlCBPBlAIU7Vt)(cs3fP>BwozM2+b%<udrmFB7rqV-QxO+D4
zRyGC3dEK8T1t>~r&Ey1|F00tB57-V4lPR74qJ<mtR<BPQQyu~CM;8K~TA*K%^tkFv
zU@ooT`JMZRvtP{WN>24bSLlKqb)vEs%-KP-7cBnO9<$l%EudcKyqLr$@98tNI&m#f
z@a>mMk|nHqKben>brlNWd2>gl(a;?ci)NRLD}D2dVC}jr)`@=GHUlF49aR~achNy4
zC^KDQb`jCFT)s=H{AK5WV1GKmWqt-w)V<AjwCR)1^mrpH@0yWzp8CfA=bb!RsXu5t
zWp$2+6|5AAon;{^bFr+>OG}9}9?RH&Z|jg^tO!99wa47yfwGq03|b~=en<cN63^o<
aI>>q$ahkOJ=G(tl#0>TC>6Kn{2>T!PT^TX}

literal 0
HcmV?d00001

diff --git a/emulator/charput.inc b/emulator/charput.inc
new file mode 100755
index 0000000..95b395f
--- /dev/null
+++ b/emulator/charput.inc
@@ -0,0 +1,66 @@
+; part of virtual processor, emulator for FIFTH
+
+xcharput:
+	mov	eax, [es:edi]	; chary
+	mov	[chary], eax
+	mov	ecx, [es:edi+4] ; charx
+	mov	eax, [es:edi+8] ; addrdest
+	add	eax, [xms_addr]
+	mov	ebx, [es:eax]
+	mov	[sizex], ebx
+	add	eax, 8
+	add	eax, ecx
+	push	eax
+	sub	edx, edx
+	mov	eax, [chary]
+	mul	dword [sizex]
+	pop	ebx
+	add	eax, ebx
+	mov	[addrdst], eax
+	mov	eax, [es:edi+12]
+	add	eax, [xms_addr]
+	mov	[addrsrc], eax
+	mov	al, [es:edi+16]
+	mov	[colorbg], al
+	mov	al, [es:edi+20]
+	mov	[colorfg], al
+	add	edi, 24
+
+	mov	[linenum], 8
+charl1:
+	mov	eax, [addrsrc]
+	mov	bx, [es:eax]
+	mov	edx, [addrdst]
+	mov	cx, 8
+charl2:
+	dec	cx
+	bt	bx, cx
+	jnc	charl3
+	mov	al, [colorfg]
+	jmp	charl4
+charl3:
+	mov	al, [colorbg]
+charl4:
+	mov	[es:edx], al
+	inc	edx
+	cmp	cx, 0
+	jne	 charl2
+
+	mov	eax, [sizex]
+	add	[addrdst], eax
+	inc	[addrsrc]
+	dec	[linenum]
+	mov	al, [linenum]
+	cmp	al, 0
+	jne	charl1
+
+	jmp	emu
+
+colorfg db 0
+colorbg db 0
+charx	dd 0
+chary	dd 0
+addrsrc dd 0
+addrdst dd 0
+sizex	dd 0
+linenum db 0
diff --git a/emulator/compile.sh b/emulator/compile.sh
new file mode 100755
index 0000000..1e132a3
--- /dev/null
+++ b/emulator/compile.sh
@@ -0,0 +1,4 @@
+#!/bin/bash
+
+fasm emulator.asm
+
diff --git a/emulator/emulator.asm b/emulator/emulator.asm
new file mode 100755
index 0000000..751fd61
--- /dev/null
+++ b/emulator/emulator.asm
@@ -0,0 +1,531 @@
+; virtual processor, emulator for FIFTH
+
+; registers usage:
+
+; edi - data stack pointer
+; esi - instruction pointer
+; es = 0
+; cs - emulator program code segment
+; ds = cs
+
+
+org	100h
+
+	call	system_init		; init system, allocate XMS
+	call	KB_init			; init keyoard
+
+	push	0			; initialize segments
+	pop	es
+	push	cs
+	pop	ds
+	sub	ebx, ebx		; initialize pointers
+	mov	bx, cs
+	shl	ebx, 4
+	add	ebx, buf
+	add	ebx, 20000
+	mov	edi, ebx		; data stack
+	add	ebx, 10000
+	mov	[resp], ebx		; return stack
+	mov	esi, [xms_addr] 	; instruction pointer
+
+	mov	ah, 3dh 		; open diskfile
+	mov	al, 2
+	mov	dx, infile
+	int	21h
+	mov	word [fileh], ax
+
+	mov	ax, 4F02h		; set VESA 640*480 8 bit
+	mov	bx, 101h
+	int	10h
+
+	mov	ecx, 0			; load boot block (first 1024 bytes)
+	mov	ebx, [xms_addr]
+	call	diskload
+	jmp	emu
+
+xmemtot dw 0	; amount of accessible XMS
+
+infile	db 'disk.raw', 0 ; virtual disk file name
+fileh	dw 0	; it's handle
+
+coresiz dw 4096 ; core size
+gran	dw 0	; VESA granule size
+
+quit:	mov	 ax, 3			 ; restore text mode
+	int	 10h
+
+	mov	ah, 3eh 		; close diskfile
+	mov	bx, word [fileh]
+	int	21h
+
+	call	KB_restore
+	jmp	system_exit		; terminate program
+
+resp	dd 0	; return stack pointer
+
+emu:			; pick instruction
+movzx	bx, byte [es:esi]
+inc	esi
+shl	bx, 1
+add	bx, table
+jmp	word [cs:bx]
+
+table	dw emu		; 0
+	dw quit
+	dw xkbd@
+	dw xnum
+	dw xjmp
+	dw xcall	; 5
+	dw xinc
+	dw xdec
+	dw xdup
+	dw xdrop
+	dw xif		; 10
+	dw xret
+	dw xc@
+	dw xc!
+	dw xpush
+	dw xpop 	; 15
+        dw 0
+	dw xrot
+	dw xdisk@
+	dw xdisk!
+	dw x@		; 20
+	dw x!
+	dw xover
+	dw xswap
+	dw xplus
+	dw xminus	; 25
+	dw xmul
+	dw xdiv
+	dw xgreat
+	dw xless
+	dw xnot 	; 30
+	dw xi
+	dw xcprt@
+	dw xcprt!
+	dw xi2
+	dw xi3		; 35
+	dw xshl
+	dw xshr
+	dw lor
+	dw lxor
+	dw xvidmap	; 40
+	dw xmouse@
+	dw xvidput
+	dw xcmove
+	dw xcfill
+	dw xtvidput	; 45
+	dw xdep
+	dw xcharput
+
+xkbd@:	call	KB_read
+	sub	edi, 4
+	mov	[es:edi], dl
+
+        mov     ah, 0bh         ; check for key in keyboard buffer
+	int	21h
+	cmp	al, 0h
+        je      emu
+        mov     ah, 0           ; read key
+	int	16h
+	jmp	emu
+
+xnum:	mov	edx, dword [es:esi]
+	sub	edi, 4
+	mov	[es:edi], edx
+	add	esi, 4
+	jmp	emu
+
+xjmp:	mov	esi, dword [es:esi]
+	add	esi, [xms_addr]
+	jmp	emu
+
+xcall:	mov	edx, dword [es:esi]
+	mov	eax, [resp]
+	sub	eax, 4
+	mov	ebx, esi
+	add	ebx, 4
+	sub	ebx, [xms_addr]
+	mov	[es:eax], ebx
+	mov	[resp], eax
+	mov	esi, edx
+	add	esi, [xms_addr]
+	jmp	emu
+
+xinc:	inc	dword [es:edi]
+	jmp	emu
+
+xdec:	dec	dword [es:edi]
+	jmp	emu
+
+xdup:	mov	eax, [es:edi]
+	sub	edi, 4
+	mov	[es:edi], eax
+	jmp	emu
+
+xdrop:	add	edi, 4
+	jmp	emu
+
+xif:	mov	eax, [es:edi]
+	add	edi, 4
+	cmp	eax, 0
+	jne	l2
+	mov	esi, [es:esi]
+	add	esi, [xms_addr]
+	jmp	emu
+l2:
+	add	esi, 4
+	jmp	emu
+
+xret:	mov	eax, [resp]
+	mov	esi, [es:eax]
+	add	esi, [xms_addr]
+	add	eax, 4
+	mov	[resp], eax
+	jmp	emu
+
+xc@:	mov	eax, [es:edi]
+	add	eax, [xms_addr]
+	sub	ecx, ecx
+	mov	cl, [es:eax]
+	mov	[es:edi], ecx
+	jmp	emu
+
+xc!:	;( n addr -- )
+	mov	ebx, [es:edi]
+	add	edi, 4
+	mov	ecx, [es:edi]
+	add	edi, 4
+	add	ebx, [xms_addr]
+	mov	[es:ebx], cl
+	jmp	emu
+
+xpush:	mov	ebx, [es:edi]
+	add	edi, 4
+	mov	eax, [resp]
+	sub	eax, 4
+	mov	[es:eax], ebx
+	mov	[resp], eax
+	jmp	emu
+
+xpop:	mov	eax, [resp]
+	mov	ebx, [es:eax]
+	add	eax, 4
+	mov	[resp], eax
+	sub	edi, 4
+	mov	[es:edi], ebx
+	jmp	emu
+
+xrot:	mov	ebx, [es:edi]
+	mov	ecx, [es:edi+4]
+	mov	edx, [es:edi+8]
+	mov	[es:edi+8], ecx
+	mov	[es:edi+4], ebx
+	mov	[es:edi], edx
+	jmp	emu
+
+xdisk@: mov	ebx, [es:edi]
+	add	ebx, [xms_addr]
+	mov	ecx, [es:edi+4]
+	add	edi, 8
+	call	diskload	; ecx-fromdisk ebx-tomem
+	jmp	emu
+
+xdisk!: mov	ecx, [es:edi]
+	call	file_seek
+	mov	ecx, 1024
+	mov	ebx, [es:edi+4]
+	add	edi, 8
+	add	ebx, [xms_addr]
+	sub	edx, edx
+	mov	dx, cs
+	shl	edx, 4
+	add	edx, buf
+	call	memmove  ; ebx - from, edx - to, ecx - amount
+	mov	ah, 40h
+	mov	bx, [fileh]
+	mov	cx, 1024
+	mov	dx, buf
+	int	21h
+	jmp	emu
+
+x@:	mov	eax, [es:edi]
+	add	eax, [xms_addr]
+	mov	eax, [es:eax]
+	mov	[es:edi], eax
+	jmp	emu
+
+x!:	;( n addr -- )
+	mov	eax, [es:edi]
+	add	eax, [xms_addr]
+	mov	ecx, [es:edi+4]
+	add	edi, 8
+	mov	[es:eax], ecx
+	jmp	emu
+
+xover:	mov	ebx, [es:edi+4]
+	sub	edi, 4
+	mov	[es:edi], ebx
+	jmp	emu
+
+xswap:	mov	ebx, [es:edi]
+	xchg	ebx, [es:edi+4]
+	mov	[es:edi], ebx
+	jmp	emu
+
+xplus:	mov	ebx, [es:edi]
+	add	edi, 4
+	add	[es:edi], ebx
+	jmp	emu
+
+xminus: mov	ebx, [es:edi]
+	add	edi, 4
+	sub	[es:edi], ebx
+	jmp	emu
+
+xmul:	mov	eax, [es:edi]
+	add	edi, 4
+	sub	edx, edx
+	imul	 dword [es:edi]
+	mov	[es:edi], eax
+	jmp	emu
+
+xdiv:	add	edi, 4
+	mov	eax, [es:edi]
+	cdq
+	idiv	dword [es:edi-4]
+	mov	[es:edi], eax
+	jmp	emu
+
+xgreat: mov	eax, [es:edi]
+	add	edi, 4
+	mov	edx, 0
+	cmp	[es:edi], eax
+	jng	l3
+	dec	edx
+l3:	mov	[es:edi], edx
+	jmp	emu
+
+xless:	mov	eax, [es:edi]
+	add	edi, 4
+	mov	edx, 0
+	cmp	[es:edi], eax
+	jnl	l4
+	dec	edx
+l4:	mov	[es:edi], edx
+	jmp	emu
+
+file_seek:	; ( ecx - pointer to seek )
+	mov	eax, 1024
+	mul	ecx
+	mov	ecx, eax
+	mov	dx, cx
+	shr	ecx, 16
+	mov	ah, 42h
+	mov	al, 0
+	mov	bx, [ds:fileh]
+	int	21h
+	ret
+
+xnot:	not	dword [es:edi]
+	jmp	emu
+
+xi:	mov  ebx, [resp]
+	mov	eax, [es:ebx]
+	sub	edi, 4
+	mov	[es:edi], eax
+	jmp	emu
+
+xcprt@: mov	dx, [es:edi]
+	in	al, dx
+	sub	ecx, ecx
+	mov	cl, al
+	mov	[es:edi], ecx
+	jmp	emu
+
+xcprt!: mov	dx, [es:edi]
+	mov	al, [es:edi+4]
+	add	edi, 8
+	out	dx, al
+	jmp	emu
+
+xi2:	mov ebx, [resp]
+	mov	eax, [es:ebx+4]
+	sub	edi, 4
+	mov	[es:edi], eax
+	jmp	emu
+
+xi3:	mov ebx, [resp]
+	mov	eax, [es:ebx+8]
+	sub	edi, 4
+	mov	[es:edi], eax
+	jmp	emu
+
+xshl:	mov	cl, [es:edi]
+	add	edi, 4
+	shl	dword [es:edi], cl
+	jmp	emu
+
+xshr:	mov	cl, [es:edi]
+	add	edi, 4
+	shr	dword [es:edi], cl
+	jmp	emu
+
+lor:	mov	eax, [es:edi]
+	add	edi, 4
+	or	[es:edi], eax
+	jmp	emu
+
+lxor:	mov	eax, [es:edi]
+	add	edi, 4
+	xor	 [es:edi], eax
+	jmp	emu
+
+xvidmap:
+	mov	edx, [es:edi]
+	add	edx, [xms_addr]
+	add	edi, 4
+	push	edi
+	push	esi
+	push	0a000h
+	pop	es
+	mov	word [ds:gra], 0
+	push	0
+	pop	ds
+	mov	esi, edx
+mapl1:	mov	dx, [cs:gra]
+	xor	bx, bx
+	mov	ax, 4f05h
+	int	10h
+	mov	edi, 0
+	mov	cx, 4096
+;	mov	cx, 16384
+mapl2:	mov	eax, [ds:esi]
+	add	esi, 4
+	stosd
+	loop	mapl2
+	inc	word [cs:gra]
+;	cmp	word [cs:gra], 5
+	cmp	word [cs:gra], 19
+	jne	mapl1
+	push	0
+	pop	es
+	push	cs
+	pop	ds
+	pop	esi
+	pop	edi
+	jmp	emu
+gra	dw 0
+
+
+xmouse@:
+	mov	ax, 0bh 	; read motion counter
+	int	33h
+	push	dx
+	sub	eax, eax
+	mov	ax, cx
+	cwd
+	shl	edx, 16
+	add	edx, eax
+	mov	[es:edi-4], edx
+	pop	ax
+	cwd
+	shl	edx, 16
+	add	edx, eax
+	mov	[es:edi-8], edx
+	mov	ax, 3		; read buttons
+	int	33h
+	sub	eax, eax
+	mov	ax, bx
+	sub	edi, 12
+	mov	[es:edi], eax
+	jmp	emu
+
+memmove:		; ebx - from, edx - to, ecx - amount
+	cmp	ecx, 0
+	je	l11
+	mov	al, [es:ebx]
+	mov	[es:edx], al
+	inc	ebx
+	inc	edx
+	dec	ecx
+	jmp	memmove
+l11:	ret
+
+memmove2:		; ebx - from, edx - to, ecx - amount
+	add	ebx, ecx
+	add	edx, ecx
+l7:	cmp	ecx, 0
+	je	l12
+	dec	ebx
+	dec	edx
+	mov	al, [es:ebx]
+	mov	[es:edx], al
+	dec	ecx
+	jmp	l7
+l12:	ret
+
+xcmove: mov	ecx, [es:edi]
+	add	edi, 12
+	mov	edx, [es:edi-8]
+	add	edx, [xms_addr]
+	mov	ebx, [es:edi-4]
+	add	ebx, [xms_addr]
+	cmp	ecx, 0
+	je	emu
+	cmp	ebx, edx
+	ja	l8
+	call	memmove2
+	jmp	emu
+l8:	call	memmove
+	jmp	emu
+
+xcfill: mov	ecx, [es:edi]
+	mov	edx, [es:edi+4]
+	add	edx, [xms_addr]
+	mov	eax, [es:edi+8]
+	add	edi, 12
+l9:	cmp	ecx, 0
+	je	emu
+	mov	[es:edx], al
+	inc	edx
+	dec	ecx
+	jmp	l9
+
+diskload:	; ecx-fromdisk ebx-tomem
+	push	ebx
+	call	file_seek
+	mov	cx, 1024
+	mov	ah, 3fh
+	mov	bx, [fileh]
+	mov	dx, buf
+	int	21h
+
+	sub	ebx, ebx			; move it to XMS
+	mov	bx, cs
+	shl	ebx, 4
+	add	ebx, buf
+	pop	edx
+	mov	ecx, 1024
+	call	memmove  ; ebx - from, edx - to, ecx - amount
+	ret
+
+xdep:	sub	eax, eax
+	mov	ax, cs
+	shl	eax, 4
+	add	eax, buf
+	add	eax, 20000
+	sub	eax, edi
+	shr	eax, 2
+	sub	edi, 4
+	mov	[es:edi], eax
+	jmp	emu
+
+include 'vidput.inc'
+include 'tvidput.inc'
+include 'charput.inc'
+include 'system.inc'
+include 'kbdrive.inc'
+
+buf:			; pointer to end of the code
diff --git a/emulator/emulator.com b/emulator/emulator.com
new file mode 100755
index 0000000000000000000000000000000000000000..49be7260d4e54d749095b4b80ca0d7afe8dfaa7e
GIT binary patch
literal 3306
zcmeHJYitzP6`t4544z%jwjpavRd?5|F>zfj5ER72aVxCUkQT6FC3fmI4&XfwB*e{T
zEuyqFp-Tzlv0N!qg(4-5H=_zi{3uFR&0?frvr_DUwr+7B1pf#LG~LUFAhlI&@MC+<
zo%O3F{Zm!_)BUk?&v(A_y7$~OliOXAyJ74Xw9*h%PxM}Z;j0Q9&Rq8i0zSe!@nL;{
zEB|U*1-nJCH{A55?ms0BeoxF+I8iYz?K&fhSwEZ>@CSDArZ>0ElfOq0+V?&CWF)rx
zAmM&NNXtUjpQ^KiQ8di`++e>cAx%|>`RgEj>vvZVXI>H`h1EY1pA`QpmP%ih)=J-(
zqS67WTl%RqAPq~Gr77udSrG1(o8@QZH|6)_Kg*MHiSi}o>&gSlV@kJjM#(7eD|ux`
zxy$o4&t}hqo>tFOp7WkbwN{O*ALwK1FG_Md4M^NnsydF9rHpJvtzaJcVId`C11w&s
z>Hs_7YQZXl#JdV><KPC6v26BGk&(oGNaPf-{sxJR0yS7Onp)-Hpu+m2OI}6fg2ukg
zpC-GT8*B6KHKr6GF`}^9ISPyThysZzq02{NG2n-DJc-M5fFTKA%Y8#)NTFD4xM(Y@
zH@#5(UR6hrjx5V$16&azr(|Yw?=sKxn8A7$wd9y;Av2yoJFpO}d_K;6&LP(5T9VIQ
z+;cMzxQqX{aW7@8rs&>{M@$T_=kAr+7r4gEtrD?a6gqsc+qf2p4AmEV&%^LX*n;P%
z1#=xz>YLOsNFKcI%T}=8&XS1+R4}c`gQc<4{{*`cNvE?{xsIaHse=__Hb+7zyy&JJ
zV$Zoyalgb6>sSU<hu9+=aF40_BHB)_A#WPHe|CPCHF%luLo=?Ta*4&D+v>1M>z3d_
z(w8yij`|-j=&#K{nl=e0KLl&o!i{16)YemidxJ6*s*IhT!7JzXhCE-P#@@gb?6Oa=
zC5{bKFq0kU2sTIq-|kP@(M7}hg}u>O=Mq?7bl8ICJ-mz1-S}#@ZJE4=ZA7`)#JE_Y
zvDM3fbs7tBpbX>yo-_4&Gd%Ky(65cCqaH!nFNE;oMC`z*XWc~FvkT|RS=zGGf*<{=
zbPM3*M}LnLkR3_Xje73ty68@=$DoZ3PUCnngzWl<pnAv}eHmNG58^qhym_W&nK(sb
zXg$#`VRii4YV7%GNZb<QeymZ(!5~3BY=!Ol>lqL)fOy_j!nf(*iUd+p#k3{75u2xY
zWrVfOxXp|%%_E^{*ff4n&7}%#<#g_Nft5~kJNj!@7Hk@DuSalS$mEmTJO|3)Q)tTF
zn#Jx<eS=P&-+_Ob)8BRPQf_l0gLU<e!tfOZJbZ+E_yn(>g5jLBc$oHWuy__SIIm&g
z48O@JI7@{28>WL*dIIqwP9o_fm%#be=dj;e#(ulVKEv7cHc8aIrVBqZU_?Eu(;4Rt
zNMah3m%urTq&lal%`9j!FVbdoPLx&jxkWvxA1Z+)E}aoQ?}H?!RimOG6d{QgvWkgp
zQBQChE}aXUhPBkFs74WzNUgyvXzrSQ@mt`GBZ!I`6=QL*4Z$%4kz@zaOZ7#Vyo$cD
z9GOVYpHPWWWpZN&Pb@NUdt?ga(k4iYT)Py#*?|c?XU{?s9f~S>Ks!-IPN5VtNYst%
z!l5yCb&9s<Kl%OtobPbXy_0u1=Yt6TSI(IakCikyY723^LkrX8<9~nrX?E>18WI{f
zO$II8_iY0;l>6>0#}BeL{FoWS-Wi2PYRzPm0h3h-wt|Qkrj;8uc)1BU%_#OX_+Q`2
zpDSPAfyN`{@2YzZ>_Af5<=C37#%W#HZaNp9_4MyB@^U}XG3%{3oVxx3N%StNtp*g-
zW@D~&uhGBPs1>^2VfTIZIh~r8VvVo9(z@wVymIh)Bef!1k@`-yA{Kq7YhNtd9^SZi
z{l*R9&RBR)G#-z}DoydqfEd4L@RtkJXe`zl+Z?WMd^o)C>F^I?o$=`2I9eX)Y>!r^
zh5GE8+85%h27k{D^3N6N+qUm`U`M3s(Wdazo$>Hfox9tk?UiZYec1{tc*NVQ9`%-L
zY2T{BE^oF%P5aS{6=aC#y;@2x;4-DJouH>aVVwi>?IE12C8-sJSb-bfl$TcYrm-%A
zg)g;CqV9$lUm_`=jcV?og#Iyx9XR6c3m(NlEmS%*o-#fTUkeX};~KPFr)>+WX1_Ub
z8`dq%@Atie5CP{8-UygtVBBklhrFWsm7%<l)`h-HeM5a$`f><X&T(+se8Ws?A!r#h
zmmNc)fZ|I(TY{<h-mHRTr2x(zAAei;(;;6KIF*8yf#e>aOW@+;*B+19LGVS6y|~|3
ve|Y)@p<6zKd0B|<ekD=}?(vPii610S__iPt|6<Sar8Eoi%#z6e)8#(^2IZNw

literal 0
HcmV?d00001

diff --git a/emulator/kbdrive.inc b/emulator/kbdrive.inc
new file mode 100755
index 0000000..235ad71
--- /dev/null
+++ b/emulator/kbdrive.inc
@@ -0,0 +1,57 @@
+; Keyboard driver.
+
+KB_init:
+        push    es              
+        push    0
+        pop     es
+        mov     eax, [es:9*4]           ; save old int vectar
+        mov     [KB_OldVect], eax 
+        mov     ax, cs                  ; set new int vector
+        shl     eax, 16
+        mov     ax, KB_IntHandler
+        mov     [es:9*4], eax
+        pop     es
+        ret
+
+KB_restore:
+        mov     eax, [KB_OldVect]
+        push    es
+        push    0
+        pop     es
+        mov     [es:9*4], eax 
+        pop     es
+        ret
+
+KB_IntHandler:
+        pusha
+        in      al, 60h
+        mov     bx, [cs:KB_pntin]
+        mov     byte [cs:bx+KB_buf], al
+	inc	bx
+	cmp	bx, 128
+	jng	KB_l1
+	mov	bx, 0
+KB_l1:	mov	[cs:KB_pntin], bx
+        popa
+        pushf                   ; Execute default code in old int vector
+        call    dword [cs:KB_OldVect]
+        iret
+
+KB_read:	; returns scan code in: dl
+	mov	dl, 0
+	mov	bx, [KB_pntout]
+	cmp	bx, [KB_pntin]
+	je	KB_l2
+	mov	dl, [bx+KB_buf]
+	inc	bx
+	cmp	bx, 128
+	jng	KB_l3
+	mov	bx, 0
+KB_l3:	mov	[KB_pntout], bx
+KB_l2:	ret
+
+KB_OldVect dd 0
+KB_pntin dw 0
+KB_pntout dw 0
+KB_buf	db 0
+times 127 db 0
diff --git a/emulator/system.inc b/emulator/system.inc
new file mode 100755
index 0000000..d8c3dc2
--- /dev/null
+++ b/emulator/system.inc
@@ -0,0 +1,137 @@
+; part of virtual processor, emulator for FIFTH.
+
+system_init:
+	mov	ax,7202h
+	push	ax
+	popf
+	pushf
+	pop	bx
+	cmp	ax,bx
+	je	processor_ok
+	mov	dx, badcpu
+	mov	ah,9
+	int	21h
+	mov	ah,4Ch
+	int	21h
+	badcpu db 'required 80386 or better',24h
+processor_ok:
+	smsw	ax
+	test	al,1
+	jz	mode_ok
+	mov	dx, badmode
+	mov	ah,9
+	int	21h
+	mov	ah,4Ch
+	int	21h
+	badmode db 'error: CPU in protected mode',24h
+mode_ok:
+	mov	ax,4300h		; check for XMS
+	int	2Fh
+	cmp	al,80h			; XMS present?
+	je	xms_ok
+	mov	dx, badxms
+	mov	ah,9
+	int	21h
+	jmp	system_exit
+	badxms db 'error: HIMEM.SYS not loaded',24h
+xms_ok:
+	mov	ax,350Dh
+	int	21h
+	mov	word [irq_5],bx
+	mov	word [irq_5+2],es
+	push	cs
+	pop	es
+	mov	ax,250Dh
+	mov	dx,int_13
+	int	21h
+
+	push	es
+	mov	ax,4310h		; get XMS driver address
+	int	2Fh
+	mov	word [xms_call],bx	; store XMS driver address
+	mov	word [xms_call+2],es
+	pop	es
+	mov	ah,3			; enable A20
+	call	far dword [xms_call]
+	mov	ah,8			; get free extended memory size
+	xor	bl,bl
+	call	far dword [xms_call]
+	or	bl,bl
+	mov	dx,ax
+	movzx	eax,ax
+	shl	eax,10
+	mov	ah,9			; allocate largest memory block
+	call	far dword [xms_call]
+	mov	[xms_handle],dx
+	mov	ah,0Ch			; lock extended memory block
+	call	far dword [xms_call]
+	shl	edx,16
+	mov	dx,bx
+	mov	[xms_addr],edx		; store memory block address
+	ret
+
+
+system_exit:
+	cmp	[xms_handle],0
+	je	sys_exit
+	mov	ah, 0dh 		; unlock extended memory block
+	mov	dx, [xms_handle]
+	call	far dword [xms_call]
+	mov	ah, 0ah 		; free extended memory block
+	call	far dword [xms_call]
+sys_exit:
+	mov	ax, 250dh
+	mov	dx, word [irq_5]
+	mov	ds, word [irq_5+2]
+	int	21h
+	pop	ax
+	mov	ah, 4ch
+	int	21h
+
+int_13: push	eax
+	mov	al, 00001011b		; OCW3 - read IRQ in-service register
+	out	20h, al
+	in	al, 20h
+	test	al, 00100000b		; is IRQ 5 in service?
+	jz	exception
+	pop	eax
+	jmp	dword 0:0
+	label	irq_5 dword at $-4
+exception:
+	push	ds es fs gs
+	cli				; disable interrupts
+	xor	eax, eax		; calculate linear address of GDT
+	mov	ax, cs
+	shl	eax, 4
+	add	eax, GDT
+	mov	dword [cs:GDTR+2],eax
+	lgdt	pword [cs:GDTR] 	; load GDT register
+	mov	eax, cr0		; switch to protected mode
+	or	al, 1
+	mov	cr0, eax
+	jmp	pm_start
+    pm_start:
+	mov	ax, 1 shl 3		; load 32-bit data descriptor
+	mov	ds, ax			; to all data segment registers
+	mov	es, ax
+	mov	fs, ax
+	mov	gs, ax
+	mov	eax, cr0		; switch back to real mode
+	and	al, not 1
+	mov	cr0, eax
+	jmp	pm_end
+    pm_end:
+	sti				; enable interrupts
+	pop	gs fs es ds
+	pop	eax
+	iret
+
+GDTR dw 2*8-1				; limit of GDT
+     dd ?				; linear address of GDT
+
+GDT rw 4				; null descriptor
+    dw 0FFFFh, 0, 9200h, 8Fh		; 32-bit data descriptor
+
+xms_call dd 0				; XMS driver pointer
+xms_handle dw 0 			; handle of XMS memory block
+xms_addr dd 0				; address to XMS block
diff --git a/emulator/tvidput.inc b/emulator/tvidput.inc
new file mode 100755
index 0000000..3c52a25
--- /dev/null
+++ b/emulator/tvidput.inc
@@ -0,0 +1,140 @@
+; part of virtual processor, emulator for FIFTH
+
+
+xtvidput:
+mov	ebx, edi      ; read data from stack, and save it to variables
+mov	eax, [es:ebx]
+mov	[cory], eax
+add	ebx, 4
+mov	eax, [es:ebx]
+mov	[corx], eax
+
+add	ebx, 4
+mov	eax, [es:ebx]
+add	eax, [xms_addr]
+mov	ecx, [es:eax]
+mov	[img2x], ecx
+add	eax, 4
+mov	ecx, [es:eax]
+mov	[img2y], ecx
+add	eax, 4
+mov	[img2a], eax
+
+add	ebx, 4
+mov	eax, [es:ebx]
+add	eax, [xms_addr]
+mov	ecx, [es:eax]
+mov	[img1x], ecx
+add	eax, 4
+mov	ecx, [es:eax]
+mov	[img1y], ecx
+add	eax, 4
+mov	[img1a], eax
+
+add	ebx, 4
+mov	edi, ebx
+
+cmp	dword [cory] , 0	; calculate Y start
+jl	tvidl1
+mov	dword [starty], 0
+jmp	tvidl2
+tvidl1:
+mov	eax, [cory]
+neg	eax
+mov	[starty], eax
+tvidl2:
+
+cmp	dword [corx] , 0	; calculate X start
+jl	tvidl3
+mov	dword [startx], 0
+jmp	tvidl4
+tvidl3:
+mov	eax, [corx]
+neg	eax
+mov	[startx], eax
+tvidl4:
+
+mov	eax, [cory]		; calculate Y end
+add	eax, [img1y]
+cmp	eax, [img2y]
+jg	tvidl5
+mov	eax, [img1y]
+mov	[endy], eax
+jmp	tvidl6
+tvidl5:
+mov	eax, [img2y]
+sub	eax, [cory]
+mov	[endy], eax
+tvidl6:
+
+mov	eax, [corx]		; calculate X end
+add	eax, [img1x]
+cmp	eax, [img2x]
+jg	tvidl7
+mov	eax, [img1x]
+mov	[endx], eax
+jmp	tvidl8
+tvidl7:
+mov	eax, [img2x]
+sub	eax, [corx]
+mov	[endx], eax
+tvidl8:
+
+mov	eax, [endy]		; calculate Y length
+sub	eax, [starty]
+cmp	eax, 0
+jle	emu
+mov	[lengthy], eax
+
+mov	eax, [endx]		; calculate X length
+sub	eax, [startx]
+cmp	eax, 0
+jle	emu
+mov	[lengthx], eax
+
+mov	eax, [starty]		; calculate img1 start address
+mov	ebx, [img1x]
+sub	edx, edx
+mul	ebx
+add	eax, [img1a]
+add	eax, [startx]
+mov	[img1start], eax
+
+mov	eax, [cory]		; calculate img2 start address
+add	eax, [starty]
+mov	ebx, [img2x]
+sub	edx, edx
+mul	ebx
+add	eax, [img2a]
+add	eax, [corx]
+add	eax, [startx]
+mov	[img2start], eax
+
+tvidl9:
+mov	ebx, [img1start]
+mov	ecx, [lengthx]
+mov	edx, [img2start]
+
+tmemmove:		 ; ebx - from, edx - to, ecx - amount
+cmp	ecx, 0
+je	tl11
+mov	al, [es:ebx]
+cmp	al, 255
+je	tl12
+mov	[es:edx], al
+tl12:
+inc	ebx
+inc	edx
+dec	ecx
+jmp	tmemmove
+tl11:
+
+mov	eax, [img1x]
+add	[img1start], eax
+mov	eax, [img2x]
+add	[img2start], eax
+dec	dword [lengthy]
+cmp	[lengthy], 0
+jg	tvidl9
+
+jmp	emu
diff --git a/emulator/vidput.inc b/emulator/vidput.inc
new file mode 100755
index 0000000..7e7e793
--- /dev/null
+++ b/emulator/vidput.inc
@@ -0,0 +1,146 @@
+; part of virtual processor, emulator for FIFTH
+
+
+xvidput:
+mov	ebx, edi      ; read data from stack, and save it to variables
+mov	eax, [es:ebx]
+mov	[cory], eax
+add	ebx, 4
+mov	eax, [es:ebx]
+mov	[corx], eax
+
+add	ebx, 4
+mov	eax, [es:ebx]
+add	eax, [xms_addr]
+mov	ecx, [es:eax]
+mov	[img2x], ecx
+add	eax, 4
+mov	ecx, [es:eax]
+mov	[img2y], ecx
+add	eax, 4
+mov	[img2a], eax
+
+add	ebx, 4
+mov	eax, [es:ebx]
+add	eax, [xms_addr]
+mov	ecx, [es:eax]
+mov	[img1x], ecx
+add	eax, 4
+mov	ecx, [es:eax]
+mov	[img1y], ecx
+add	eax, 4
+mov	[img1a], eax
+
+add	ebx, 4
+mov	edi, ebx
+
+cmp	dword [cory] , 0	; calculate Y start
+jl	vidl1
+mov	dword [starty], 0
+jmp	vidl2
+vidl1:
+mov	eax, [cory]
+neg	eax
+mov	[starty], eax
+vidl2:
+
+cmp	dword [corx] , 0	; calculate X start
+jl	vidl3
+mov	dword [startx], 0
+jmp	vidl4
+vidl3:
+mov	eax, [corx]
+neg	eax
+mov	[startx], eax
+vidl4:
+
+mov	eax, [cory]		; calculate Y end
+add	eax, [img1y]
+cmp	eax, [img2y]
+jg	vidl5
+mov	eax, [img1y]
+mov	[endy], eax
+jmp	vidl6
+vidl5:
+mov	eax, [img2y]
+sub	eax, [cory]
+mov	[endy], eax
+vidl6:
+
+mov	eax, [corx]		; calculate X end
+add	eax, [img1x]
+cmp	eax, [img2x]
+jg	vidl7
+mov	eax, [img1x]
+mov	[endx], eax
+jmp	vidl8
+vidl7:
+mov	eax, [img2x]
+sub	eax, [corx]
+mov	[endx], eax
+vidl8:
+
+mov	eax, [endy]		; calculate Y length
+sub	eax, [starty]
+cmp	eax, 0
+jle	emu
+mov	[lengthy], eax
+
+mov	eax, [endx]		; calculate X length
+sub	eax, [startx]
+cmp	eax, 0
+jle	emu
+mov	[lengthx], eax
+
+mov	eax, [starty]		; calculate img1 start address
+mov	ebx, [img1x]
+sub	edx, edx
+mul	ebx
+add	eax, [img1a]
+add	eax, [startx]
+mov	[img1start], eax
+
+mov	eax, [cory]		; calculate img2 start address
+add	eax, [starty]
+mov	ebx, [img2x]
+sub	edx, edx
+mul	ebx
+add	eax, [img2a]
+add	eax, [corx]
+add	eax, [startx]
+mov	[img2start], eax
+
+vidl9:
+mov	ebx, [img1start]
+mov	ecx, [lengthx]
+mov	edx, [img2start]
+call	memmove
+
+mov	eax, [img1x]
+add	[img1start], eax
+mov	eax, [img2x]
+add	[img2start], eax
+dec	dword [lengthy]
+cmp	[lengthy], 0
+jg	vidl9
+
+jmp	emu
+
+cory	dd 0
+corx	dd 0
+img2x	dd 0
+img2y	dd 0
+img2a	dd 0
+img1x	dd 0
+img1y	dd 0
+img1a	dd 0
+
+starty	dd 0
+startx	dd 0
+endy	dd 0
+endx	dd 0
+lengthx dd 0
+lengthy dd 0
+
+img1start dd 0
+img2start dd 0
diff --git a/floppy image/image mount.sh b/floppy image/image mount.sh
new file mode 100755
index 0000000..c4e528b
--- /dev/null
+++ b/floppy image/image mount.sh	
@@ -0,0 +1,4 @@
+#!/bin/bash
+
+
+sudo mount -o loop image.img files/
diff --git a/floppy image/image umount.sh b/floppy image/image umount.sh
new file mode 100755
index 0000000..fcae190
--- /dev/null
+++ b/floppy image/image umount.sh	
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+sudo umount files
diff --git a/floppy image/run under qemu.sh b/floppy image/run under qemu.sh
new file mode 100755
index 0000000..5b0fa5c
--- /dev/null
+++ b/floppy image/run under qemu.sh	
@@ -0,0 +1,5 @@
+#!/bin/bash
+
+
+qemu -fda image.img -boot a
+
diff --git a/imageFile/f/5TH_AUTORUN b/imageFile/f/5TH_AUTORUN
new file mode 100755
index 0000000..0b50d3c
--- /dev/null
+++ b/imageFile/f/5TH_AUTORUN
@@ -0,0 +1,32 @@
+D> \listF\listLIB\5TH_GFX include
+D> \listF\5TH_LOGO include
+
+: tmpmsg 200000	100 do
+	dup c@ dup FC =	if drop	doexit else emit 1+ then
+loop drop ;
+.( Messages from core: )
+colhigh
+tmpmsg
+colnorm
+forget tmpmsg
+
+
+D> \listF\listLIB\5TH_DRVKBD include
+D> \listF\listLIB\5TH_UICMD include
+D> \listF\5TH_QUICKPATH	include
+
+Dstr \listF\5TH_ET" tmpstr
+: lde tmpstr include ; rh tmpstr
+
+Dstr \listF\TXT_HELP" tmpstr
+: help tmpstr fs. ; rh tmpstr
+
+Dstr \listF\5TH_BOOT" tmpstr
+: putboot
+tmpstr fsDloadnew
+dup dynp [ 400 4 * ] [ 400 20 *	] disksave
+dynde ;	rh tmpstr
+
+fslsr
+
+.( type	'help' to get help )
diff --git a/imageFile/f/5TH_QUICKPATH b/imageFile/f/5TH_QUICKPATH
new file mode 100755
index 0000000..137bd3c
--- /dev/null
+++ b/imageFile/f/5TH_QUICKPATH
@@ -0,0 +1,6 @@
+str \listF\" ~f
+str \listGAMES\listSauron_Return\" ~game
+str \listF\listLIB\" ~lib
+str \" ~r
+
+: go fspath str2Dstr fsls ;
diff --git a/imageFile/f/5th_boot b/imageFile/f/5th_boot
new file mode 100755
index 0000000..8691ea6
--- /dev/null
+++ b/imageFile/f/5th_boot
@@ -0,0 +1,788 @@
+FE 3
+
+: im 2 lp @ 13 + c! ret	I
+: ; B c, 1 mode	c! ret I im
+: gw FF	scan ;
+: lit mode c@ if ret else 3 c, , ret then ;
+: ' gw find 14 + @ lit ; im
+: abc FF scan here 2 ne	3 c, , 4 c, ' bcode , ;
+
+ 2 abc kbd@
+10 abc kb@	11 abc rot	1B abc /	1E abc not
+1F abc i	20 abc cprt@	21 abc cprt!	22 abc i2
+23 abc i3	24 abc shl	25 abc shr	26 abc or
+27 abc xor	28 abc vidmap	29 abc mouse@	2A abc vidput
+2C abc cfill	2D abc tvidput	2E abc depth	13 abc disk!
+2F abc charput
+
+: create gw here 0 ne ;
+: vari create ,	;
+: var 0	vari ;
+: const	gw 0 ne	;
+: asc skey lit ; im
+: ( asc	) scan ; im
+: cr FE	emit ;
+: .( asc ) scan	pad write cr ; .( it is	a test )
+: forget gw find dup 14	+ @ h !	@ lp ! ;
+: on -1	swap ! ;
+: off 0	swap ! ;
+: 2dup over over ;
+: 2drop	drop drop ;
+: space	FF emit	;
+: nip swap drop	;
+: >= 1-	> ;
+: <= 1+	< ;
+: = - if 0 else	-1 then	;
+: neg 0	swap - ;
+: forexit pop pop pop drop dup 1+ push push push ;
+: done pop pop 1- push push ;
+: doexit pop pop drop 0	push push ;
+: bit@ shr -2 or -2 xor	;
+: to32bit 100 *	+ 100 *	+ 100 *	+ ;
+: mod 2dup / * - ;
+: rh gw	-1 find	dup @ prev @ ! ! ;
+: alloc	do 0 c,	loop ;
+var tmp
+: [ depth tmp !	1 mode ! ; im
+: ] 0 mode ! depth tmp @ - do lit loop ; rh tmp
+: " asc	" scan pad dup c@ c, incmod ;
+: i" asc " scan	pad incmod ;
+: str here " const ;
+: writestr i write i c@	pop + 1+ push ;
+: ." 5 c, ' writestr , " ; im rh writestr
+: vector ." no vector !	" ;
+: defer	gw here	1 ne 4 c, ' vector , ;
+: is 1+	! ; rh vector
+: bound	2dup > if nip nip
+  else drop 2dup > if drop else
+  nip then then	;
+: bound? over <	if 2drop 0 else
+  > if 0 else -1 then then ;
+: \ until fkey FE = if done then loop ;	im
+: tab. FD emit ;
+: abs dup 0 < if neg then ;
+
+7FFFFFFF const max
+80000000 const min
+1 const	version
+
+var to8bitt
+: to8bit to8bitt ! to8bitt dup c@ swap 1+ dup c@
+  swap 1+ dup c@ swap 1+ c@ ; rh to8bitt
+
+var tmp1
+: d. dup 0 < if	0 swap - 2D
+  emit then tmp1 off 3B9ACA00
+  A do 2dup / dup dup tmp1 @ +
+  if 30	+ emit 1 tmp1 !
+  else drop then
+  over * swap push - pop A /
+  loop 2drop tmp1 @ if
+  else 30 emit then ; rh tmp1
+
+var tmp1
+: . dup	0 < if 0 swap -	2D emit	then
+tmp1 off 10000000
+8 do
+	2dup / dup dup tmp1 @ +
+	if
+		emit 1 tmp1 !
+	else
+		drop
+	then
+	over * swap push - pop 10 /
+loop 2drop
+tmp1 @ if else 0 emit then ;
+rh tmp1
+
+: ? @ .	;
+: depth. depth . ;
+
+: score	800 do i 400 * i 14 + disk! loop ;
+: dump 10 do 4 do dup c@ . space 1+ loop cr loop drop ;
+
+var tmp1 var tmp2
+: rnd (	range -- result	)
+tmp1 @ 17 * B +	dup tmp1 !
+tmp2 @ over + 11 * 4 + dup tmp2	!
++ swap mod ; rh	tmp1 rh	tmp2
+
+100 const dynent				 \ dynamic memory support
+create dyntab dynent 8 * alloc
+create dynmem h	@ 500000 + h !
+dynmem vari dynpn
+
+: dyntaba 8 * dyntab + ;
+: dynde	dyntaba	off ;
+: dynp dyntaba @ ;
+: dynp!	dyntaba	! ;
+: dyns dyntaba 4 + @ ;
+: dyns!	dyntaba	4 + ! ;
+
+var dync
+: dynal	( size -- handle )
+until
+	dync @ dup dynp	0 = if dup done	then	\ size dync
+	1+ dup dynent =	if drop	0 then
+	dync !
+loop						\ size handle
+dynpn @	over dynp!
+2dup dyns!
+swap dynpn @ + dynpn ! ; rh dync
+
+: dynresize ( nsize handle -- )
+dup push dyns				\ Nsize	Osiz	R: handle
+over < if				\ Nsize		R: handle
+	i dynp dup push	over + push	\ Nsize		R: handle Oloc Nendloc
+	dyntab dynent
+	do
+		dup @ dup i3 >
+		if
+			i2 < if
+				pop drop i3 dynp dynpn @ dup i3
+				dynp! i3 dyns cmove 0 push
+			then
+		else
+			drop
+		then
+		8 +
+	loop
+	drop pop pop 2drop
+then					\ Nsize		R: handle
+i dynp over +				\ Nsize	Nend	R: handle
+dup dynpn @ > if
+	dynpn !
+else
+	drop
+then					\ Nsize		R: handle
+pop dyns! ;
+
+: dync@	( addr dynhandle ) dynp	+ c@ ;
+: dync!	( num addr dynhandle ) dynp + c! ;
+: dyn@ dynp swap 4 * + @ ;
+: dyn! dynp swap 4 * + ! ;
+: dyncon dynal const ;
+
+: statdyn
+cr ." <hand>" tab. ." <addr>" tab. ." <size>"
+0 dyntab dynent
+do dup @ if cr swap dup	. swap tab. dup	@ . tab. dup 4 + @ . then 8 +
+swap 1+	swap loop
+2drop ;
+
+: dyn. ( dynhandle -- )
+  dup dynp swap	dyns do
+  dup c@ emit 1+
+  loop drop ;
+
+rh dynent rh dyntab rh dynmem
+rh dyntaba rh dynpn
+
+: Dstralloc ( -- strh )				\ string support
+1 dynal	dup dynp 0 swap	c! ;
+
+: Dstral Dstralloc ;	\ compatibility	patch!
+
+: Dstrsure ( size strh -- )
+swap push
+dup dyns 1-	\ strh len
+i < if
+	pop 20 + swap dynresize
+else
+	pop 2drop
+then ;
+
+: Dstrlen ( strh -- length )
+dynp c@	;
+
+: c+Dstr  ( chr	strh --	)
+dup Dstrlen 1+ over Dstrsure
+dynp dup c@ 1+	\ chr addr len
+2dup swap c!
++ c! ;
+
+: c+lDstr ( chr	strh --	)
+dup Dstrlen 1+ over Dstrsure
+dynp dup c@	\ addr len
+over 1+	dup 1+ rot cmove
+dup dup	c@ 1+ swap c!
+1+ c! ;
+
+: Dstr.	( strh -- ) dynp write ;
+
+: Dstr2str ( strh mem -- )
+push dynp dup c@ 1+  \ Saddr len
+pop swap cmove ;
+
+: str2Dstr ( mem strh -- )
+over c@	1+ dup push over Dstrsure	\ mem strh
+pop do
+	over i + c@
+	over dynp i + c!
+loop 2drop ;
+
+: Dstr+str ( hand addr -- )
+dup c@ over + 1+ rot	\ addr destaddr	hand
+dynp count push		\ addr destaddr	src  R:	len
+swap i cmove		\ addr R: len
+dup c@ pop + swap c! ;
+
+Dstralloc const	defDstr
+Dstralloc const	defDstr2
+: D" asc " scan	pad defDstr str2Dstr defDstr ;
+: D> FF	scan pad defDstr str2Dstr defDstr ;
+: D>2 FF scan pad defDstr2 str2Dstr defDstr2 ;
+
+: Dstr+Dstr ( hand1 hand2 -- )
+push push		\ R: hand2 hand1
+i2 Dstrlen i Dstrlen	\ len2 len1 R: hand2 hand1
+2dup + dup i2 dynp c! i2 Dstrsure
+pop dynp 1+ rot	pop dynp 1+ + rot cmove	;
+
+: Dstrclear ( handle --	)
+0 over Dstrsure
+dynp 0 swap c! ;
+
+: Dstr2Dstr ( srchand desthand -- )
+dup Dstrclear Dstr+Dstr	;
+
+: Dstr asc " scan Dstralloc pad	over str2Dstr const ;
+
+var tmploc
+: Dstrlscan ( char strh	-- loc )
+tmploc off
+dynp 0 over c@ for	\ char addr
+	1+
+	2dup c@	= if i 1+ tmploc ! forexit then
+loop
+2drop
+tmploc @ ;
+
+: Dstrrscan ( char strh	-- loc )
+tmploc off dynp		\ char addr len
+dup c@ do
+	2dup 1+	i + c@ = if
+		i 1+ tmploc !
+		doexit
+	then
+loop 2drop
+tmploc @ ; rh tmploc
+
+: Dstrlscane ( char strh -- loc	)
+dup Dstrlen push Dstrlscan
+dup if pop drop	else drop pop 1+ then ;
+
+: Dstrleft ( amo strh -- )
+dup Dstrlen rot		\ strh strlen amo
+0 swap rot bound	\ strh ramo
+swap 2dup Dstrsure
+dynp c!	;
+
+: Dstrright ( amo strh -- ) \ unoptimized!
+dup Dstrlen rot		\ strh strlen amo
+0 swap rot bound	\ strh ramo
+swap 2dup Dstrsure
+push push		\		R: strh	ramo
+i2 dynp	dup c@		\ loc len	R: -,,-
+2dup i 1- - +		\ loc len srcA	R: -,,-
+rot 1+ rot drop	i	\ srcA dstA amo	R: -,,-
+cmove pop pop		\ ramo strh
+dynp c!	;
+
+: Dstrcutl ( amo strh -- )
+dup Dstrlen rot	-
+dup 1 <	if
+	drop Dstrclear
+else
+	swap Dstrright
+then ;
+
+var tmpdest var	tmpsrc var tmpamo
+: Dstrsp ( char	strhsrc	strhdest -- )
+tmpdest	! dup tmpsrc !	\ char srchand
+Dstrlscane tmpamo !
+tmpsrc @ tmpdest @ Dstr2Dstr
+tmpamo @ dup tmpsrc @ Dstrcutl
+1- tmpdest @ Dstrleft ;
+rh tmpdest rh tmpsrc rh	tmpamo
+
+: Dv ( addr -- ) Dstral	swap ! ;
+: Df ( addr -- ) @ dynde ;
+
+24 400 * const fsroot				\ filesystem support
+25 const fsfatbeg
+4000 const fsfatsiz
+fsfatsiz 4 * 400 / 1+ fsfatbeg + const fsdata
+asc f asc r asc	e asc e	to32bit	const fsextfree
+asc l asc i asc	s asc t	to32bit	const fsextlist
+
+Dstr \"	fspath
+
+create dib 400 alloc
+-1 vari	dibblock
+: dibload dup dibblock @ = if drop
+  else dup dibblock ! dib disk@	then ;
+: dibsave dup dibblock ! dib swap disk!	;
+
+var tmpfrom var	tmpto var tmpamo var tmpramo
+: diskload ( fromdisk tomem amount -- )
+  tmpamo ! tmpto ! tmpfrom !
+  until
+	tmpamo @ if
+		tmpfrom	@ 400 /	dibload
+		0 400 tmpfrom @	400 mod	dup push - tmpamo @ bound tmpramo !
+		dib pop	+ tmpto	@ tmpramo @ 2dup + tmpto ! cmove
+		tmpamo @ tmpramo @ - tmpamo !
+		tmpfrom	@ tmpramo @ + tmpfrom !
+	else
+		done
+	then
+  loop ;
+
+: disksave	\ frommem todisk amount	--
+  tmpamo ! tmpto ! tmpfrom !
+  until
+	tmpamo @ if
+		tmpto @	400 / dibload
+		0 400 tmpto @ 400 mod dup push - tmpamo	@ bound	tmpramo	!
+		tmpfrom	@ dib pop + tmpramo @ cmove dibblock @ dibsave
+		tmpamo @ tmpramo @ - tmpamo !
+		tmpfrom	@ tmpramo @ + tmpfrom !
+		tmpto @	tmpramo	@ + tmpto !
+	else
+		done
+	then
+  loop ; rh tmpamo rh tmpto rh tmpfrom rh tmpramo
+
+: fat@ 4 * dup push 400	/ fsfatbeg + dibload pop 400 mod dib + @ ;
+: fat! 4 * dup push 400	/ fsfatbeg + dibload pop 400 mod dib + !
+  dibblock @ dibsave ;
+
+var tmp1
+: fatfindf
+  until
+	tmp1 @ fat@ -1 = if tmp1 @ done	then
+	tmp1 @ 1+ dup tmp1 !
+	fsfatsiz = if tmp1 off then
+  loop ; rh tmp1
+
+create formattmp i" listRootDireCtorYent" 0 , 0	, 0 ,
+: format ." formatting ... " fsfatsiz do
+    -1 i fat!
+  loop
+  -2 0 fat!
+  formattmp fsroot 20 disksave
+  ." done" cr ;	rh formattmp
+
+20 const maxfiles
+create fshandles 11 maxfiles * alloc
+
+\  0 4 - FileDescription
+\  4 4 - FileSize
+\  8 4 - CurrentLocation
+\ 12 4 - CurrentSector
+\ 16 1 - updated
+
+: fsDfiledesc@ 11 * fshandles +	@ ;
+: fsDfiledesc! 11 * fshandles +	! ;
+: fsDfilesize@ 11 * fshandles +	4 + @ ;
+: fsDfilesize! 11 * fshandles +	4 + ! ;
+: fsDcurloc@ 11	* fshandles + 8	+ @ ;
+: fsDcurloc! 11	* fshandles + 8	+ ! ;
+: fsDcursect@ 11 * fshandles + C + @ ;
+: fsDcursect! 11 * fshandles + C + ! ;
+: fsDupdated@ 11 * fshandles + 10 + c@ ;
+: fsDupdated! 11 * fshandles + 10 + c! ;
+
+: inithandles maxfiles do
+	-1 i fsDfiledesc!
+loop ; inithandles
+forget inithandles
+
+: statfile
+cr ." handle" tab. ." pnt" tab.	." size" tab. ." CurLoc"
+tab. ."	CurSect" tab. ." updated?" cr
+0 maxfiles for
+	-1 i fsDfiledesc@ - if
+		i . tab.
+		i fsDfiledesc@ . tab.
+		i fsDfilesize@ . tab.
+		i fsDcurloc@ . tab.
+		i fsDcursect@ .	tab.
+		i fsDupdated@ .	cr
+	then
+loop ;
+
+: fsfreenext ( firstSector -- )
+  until
+	dup -2 = if
+		done
+	else
+		dup fat@ swap -1 swap fat!
+	then
+  loop drop ;
+
+create fsfiledesc 20 alloc
+: fsopen ( FileDescPnt -- handle )
+  maxfiles do
+	i fsDfiledesc@ -1 = if i doexit	then
+  loop
+  swap dup fsfiledesc 20 diskload	\ handle desc
+  over fsDfiledesc!			\ handle
+  [ fsfiledesc 14 + ] @	over fsDcursect!
+  0 over fsDcurloc!
+  0 over fsDupdated!
+  [ fsfiledesc 18 + ] @	over fsDfilesize! ;
+
+: fspntdel ( FileDescPnt -- )
+dup fsfiledesc 20 diskload	\ pnt
+[ fsfiledesc 14	+ ] @ fsfreenext
+fsextfree fsfiledesc !
+fsfiledesc swap	20 disksave ;
+
+: fsclose ( handle -- )
+  dup fsDupdated@ if
+    push
+    i fsDfiledesc@ fsfiledesc 20 diskload
+    i fsDfilesize@ [ 18	fsfiledesc + ] !
+    fsfiledesc i fsDfiledesc@ 20 disksave
+    pop
+  then
+  -1 swap fsDfiledesc! ; rh fsfiledesc
+
+var tmpamo var tmpfrom var tmphand var tmploc var tmpramo var tmpsect
+var tmpmax
+: fssave		\ fromMem toFhandle amount --
+  tmpamo !
+  dup fsDcurloc@ tmploc	!
+  dup fsDcursect@ tmpsect !
+  tmphand ! tmpfrom !
+  until
+	tmpamo @ if
+		0 400 tmploc @ 400 mod dup push	- dup tmpmax ! tmpamo @
+		bound tmpramo !
+		tmpfrom	@ tmpsect @ fsdata + 400 * pop + tmpramo @ disksave
+		tmpramo	@ tmpmax @ = if
+			tmpsect	@ fat@
+			dup -2 = if
+				drop
+				fatfindf
+				dup tmpsect @ fat!
+				-2 over	fat!
+			then
+			tmpsect	!
+		then
+		tmpramo	@
+		  tmpamo @ over	- tmpamo !
+		  tmploc @ over	+ tmploc !
+		  tmpfrom @ + tmpfrom !
+	else
+		done
+	then
+  loop
+  tmphand @ push
+    tmploc @ i fsDcurloc!
+    tmpsect @ i	fsDcursect!
+    -1 i fsDupdated!
+    tmploc @ i fsDfilesize@ max	bound pop fsDfilesize! ;
+
+var tmpto
+: fsload	\ fromFhandle toMem amount --
+  tmpamo ! tmpto !
+  dup fsDcurloc@ tmploc	!
+  dup fsDcursect@ tmpsect !
+  tmphand !
+  until
+	tmpamo @ if
+		0 400 tmploc @ 400 mod dup push	- dup tmpmax ! tmpamo @
+		bound tmpramo !
+		tmpsect	@ fsdata + 400 * pop + tmpto @ tmpramo @ diskload
+		tmpsect	@ fat@
+		dup -2 = if
+			drop
+		else
+			tmpramo	@ tmpmax @ = if	tmpsect	! else drop then
+		then
+		tmpramo	@
+		  tmpamo @ over	- tmpamo !
+		  tmploc @ over	+ tmploc !
+		  tmpto	@ + tmpto !
+		0 tmploc @ tmphand @ fsDfilesize@ bound	tmploc !
+	else
+		done
+	then
+  loop
+  tmphand @
+    tmploc @ over fsDcurloc!
+    tmpsect @ swap fsDcursect! ;
+
+rh tmpamo rh tmpfrom rh	tmphand	rh tmploc rh tmpramo rh	tmpsect	rh tmpto
+rh tmpmax
+
+: fsabsloc ( handle -- loc )
+dup fsDcursect@	fsdata + 400 *
+swap fsDcurloc@	400 mod	+ ;
+
+var tmppnt var tmphand var curhand var tmpsect
+create tmpFdesc	21 alloc
+: fspntcreate (	dynHand	descPnt	-- newFileDescPnt )
+tmppnt ! tmphand !
+tmppnt @ fsopen	curhand	!
+until
+	curhand	@ fsDfilesize@ curhand @ fsDcurloc@ 20 + >= if
+	curhand	@ fsDcursect@ tmpsect !
+	curhand	@ tmpFdesc 20 fsload
+	tmpFdesc @ fsextfree = if
+			curhand	@ fsDcurloc@ 20	- curhand @ fsDcurloc!
+			tmpsect	@ curhand @ fsDcursect!
+			done
+		then
+	else
+		done
+	then
+loop
+FF tmpFdesc 20 cfill
+0 [ tmpFdesc 18	+ ] !
+fatfindf -2 over fat! [	tmpFdesc 14 + ]	!
+0 tmphand @ dync@ do
+	i 1+ tmphand @ dync@
+	dup asc	\ = if drop FF then
+	tmpFdesc i + c!
+loop
+curhand	@ fsabsloc
+  tmpFdesc curhand @ 20	fssave
+  curhand @ fsclose ;
+rh tmppnt rh tmphand rh	curhand	rh tmpsect
+
+: fseof	( handle -- bytesLeft )
+dup fsDfilesize@ swap fsDcurloc@ - ;
+
+create tmppath FF alloc
+var tmppnt var tmphand var tmploc
+: fsgetdesc ( dynhand -- DescPnt)
+tmppath	off
+0 over dync@ if
+	1 over dync@ asc \ = if	dup tmppath Dstr2str then
+then
+tmppath	c@ 0 = if
+	fspath tmppath Dstr2str
+	dup tmppath Dstr+str
+then
+drop
+fsroot tmppnt !
+until
+	tmppath	c@ if
+		tmppath	c@ push
+		1 i 2 +	for
+			i 1- tmppath c!
+			tmppath	i + c@ asc \ = if forexit then
+		loop
+		\ tmppath write	cr
+		tmppath	c@ if
+			tmppnt @ fsopen	tmphand	!
+			until
+				tmphand	@ fseof	20 >= if
+					tmphand	@ fsabsloc tmploc !
+					tmphand	@ [ tmpFdesc 1+	] 20 fsload
+					15 do
+						i tmpFdesc c!
+						tmpFdesc i + c@	FF -
+						if doexit then
+					loop
+					tmpFdesc tmppath str=str? if
+						tmploc @ tmppnt	!
+						done
+					then
+				else
+					-1 tmppnt !
+					done
+				then
+			loop
+			tmphand	@ fsclose
+		else
+			fsroot tmppnt !
+		then
+		tmppath	c@ dup push [ tmppath 1+ ] + tmppath i2	cmove
+		pop pop	swap - 1-
+		dup -1 = if drop 0 then	tmppath	c!
+	else
+		done
+	then
+	tmppnt @ -1 = if done then
+loop
+tmppnt @ ; rh tmppath rh tmppnt	rh tmphand rh tmploc
+
+1 vari tmpdepth	var tmploc
+: fspntls  ( recursive?	descpnt	-- )
+fsopen
+until	\ handle
+	dup fseof 20 >=	if
+		dup fsabsloc tmploc !
+		dup tmpFdesc 20	fsload
+		tmpFdesc @ fsextfree - if
+			[ tmpFdesc 18 +	] @ .
+			tmpdepth @ do tab. loop
+			tmpFdesc 14 type cr
+		then
+		over if
+			tmpFdesc @ fsextlist = if
+				tmpdepth @ 1+ tmpdepth !
+				-1 tmploc @ fspntls
+				tmpdepth @ 1- tmpdepth !
+			then
+		then
+	else
+		done
+	then
+loop
+fsclose	drop ; rh tmpFdesc rh tmpdepth rh tmploc
+
+: tmpls	." PATH: " fspath dup Dstr. cr fsgetdesc fspntls ;
+: fslsr	-1 tmpls ;
+: fsls 0 tmpls ;
+rh tmpls
+
+: fscl ( dynhand -- )
+push
+i Dstrlen if
+	1 i dync@ asc \	= if
+		i fspath Dstr2Dstr
+	else
+		i fspath Dstr+Dstr
+	then
+then pop drop ;
+
+var tmpstr1 var	tmpstr2	var tmpstrpath var tmppnt
+: fscreate ( dynhand --	descpnt	)
+tmpstr1	Dv tmpstr2 Dv tmpstrpath Dv
+fspath tmpstrpath @ Dstr2Dstr
+tmpstr1	@ Dstr2Dstr
+until
+	tmpstr1	@ Dstrlen if
+		asc \ tmpstr1 @	tmpstr2	@ Dstrsp
+		asc \ tmpstr2 @	c+Dstr
+\		tmpstr2	@ Dstr.	cr
+		tmpstr2	@ fsgetdesc
+		dup -1 = if
+			drop
+			tmpstr2	@ fspath fsgetdesc fspntcreate
+		then
+		tmppnt !
+		tmpstr2	@ fscl
+	else
+		done
+	then
+loop
+tmppnt @
+tmpstrpath @ fspath Dstr2Dstr
+tmpstr1	Df tmpstr2 Df tmpstrpath Df ;
+rh tmpstr1 rh tmpstr2 rh tmpstrpath rh tmppnt
+
+: fstrunc ( Fhandle -- )
+-1 over	fsDupdated!
+dup fsDcurloc@ over fsDfilesize!
+fsDcursect@	\ sect
+dup fat@ dup 0 >= if
+	fsfreenext
+else
+	drop
+then
+-2 swap	fat! ;
+
+: fsDsave ( Dynhand Dstr -- )
+fscreate fsopen		\ datahand filehand
+dup fstrunc
+dup rot			\ filehand filehand datahand
+dup dynp rot		\ filehand datahand from filehand
+rot dyns fssave		\ fh
+fsclose	;
+
+: fsDload ( Dstr Dynhand -- )
+push fsgetdesc fsopen			\ Fhand	R: Dhand
+dup fsDfilesize@ dup i dynresize	\ Fhand	Fsize  R: Dhand
+over pop dynp rot fsload		\ Fhand
+fsclose	;
+
+: fsDloadnew ( Dstr -- Dynhand )
+1 dynal	swap over fsDload ;
+
+1E8480 const tmpfrom
+var tmplen var tmpdyn var tmpstr
+: fsimport
+tmpfrom	tmplen 4 diskload
+tmplen @ if
+	." file	length:	" tmplen @ dup .
+	dynal tmpdyn !
+	tmpstr Dv
+	F0 tmpstr @ Dstrsure
+	[ tmpfrom 4 + ]	tmpstr @ dynp F0 over c! 1+ F0 diskload
+	FE tmpstr @ Dstrlscan 1- tmpstr	@ Dstrleft
+	."  file: " tmpstr @ Dstr.
+	."  importing ..."
+	[ tmpfrom 64 + ] tmpdyn	@ dynp tmplen @	diskload
+	tmpdyn @ tmpstr	@ fsDsave
+	."  done" cr
+	tmpdyn Df tmpstr Df
+	tmplen off
+	tmplen tmpfrom 4 disksave
+then ;
+rh tmplen rh tmpfrom rh	tmpdyn rh tmpstr
+
+: fsdel	( Dstr -- ) fsgetdesc dup -1 - if fspntdel else	drop then ;
+
+: fscopy ( Dstr1 Dstr2 -- ) swap fsDloadnew dup	rot fsDsave dynde ;
+
+: fsmove ( Dstr1 Dstr2 -- ) over swap fscopy fsdel ;
+
+: fsgettop ( Dstr1 Dstr2 -- )
+2dup Dstr2Dstr nip	 \ Dstr2
+asc \ over Dstrrscan	\ Dstr2	CharLoc
+swap Dstrcutl ;
+
+create incfiles	80 alloc			\ File inclusion support
+-1 vari	inccur
+
+: dyninc ( dynhandle --	)
+inccur @ 1+ dup	inccur !	\ hand cur
+8 * incfiles + dup 4 + 0 swap !	! ;
+
+: include ( StrHand<filename> -- )
+fsDloadnew dyninc ;
+
+defer cmdline
+
+: (fkey
+inccur @ 8 * incfiles +	dup @	( adr handle )
+dup dyns rot			( handle size adr )
+4 + @ >	if			( handle )
+	inccur @ 8 * incfiles +	4 + dup	@ ( handle adr+4 pointer )
+	dup 1+ rot !		( handle pointer )
+	swap dynp + c@
+else
+	dynde
+	inccur @ 1 - dup inccur	!
+	0 < if cmdline then FF
+then ;
+
+var tmpstr
+: modulechk ( Dstr -- )
+tmpstr Dv
+dup tmpstr @ fsgettop
+asc # tmpstr @ c+lDstr
+tmpstr @ pad Dstr2str	     \ Dstr
+find if
+	drop
+else
+	tmpstr @ pad Dstr2str
+	here 0 ne
+	include
+then
+tmpstr Df ; rh tmpstr
+
+.( test	test test ... )
+
+\ format
+\ fsimport cr
+
+D" listF\5TH_AUTORUN" include
+' (fkey	' fkey is
diff --git a/imageFile/f/5th_demo b/imageFile/f/5th_demo
new file mode 100755
index 0000000..f2c2bbf
--- /dev/null
+++ b/imageFile/f/5th_demo
@@ -0,0 +1,23 @@
+.( testgraph - simple graphic test)
+: testgraph
+10 40 10 40 screen FF 0	0 calccol boxf
+50 80 50 80 screen 0 FF	0 calccol boxf
+90 C0 10 40 screen 0 0 FF calccol boxf ;
+
+.( testmouse - simple mouse test)
+var tmp1 var tmp2 var tmpc
+: testmouse
+50 tmp1	!
+50 tmp2	!
+until
+	kb@ if done then
+	mouse@
+	dup 0 =	if [ FF	FF FF calccol ]	tmpc ! then
+	dup 1 =	if [ 00	FF FF calccol ]	tmpc ! then
+	dup 2 =	if [ FF	00 FF calccol ]	tmpc ! then
+	    3 =	if [ FF	FF 00 calccol ]	tmpc ! then
+	tmp2 @ + tmp2 !	tmp1 @ + tmp1 !
+	10 tmp1	@ 26F bound tmp1 !
+	10 tmp2	@ 1CF bound tmp2 !
+	tmp1 @ dup 5 + tmp2 @ dup 5 + screen tmpc @ boxf update
+loop ; rh tmp1 rh tmp2 rh tmpc
diff --git a/imageFile/f/5th_eg b/imageFile/f/5th_eg
new file mode 100755
index 0000000..9c73dc0
--- /dev/null
+++ b/imageFile/f/5th_eg
@@ -0,0 +1,167 @@
+.( loading graphic editor ) update
+
+D> \listF\listLIB\5TH_GFX2 modulechk
+D> \listF\listLIB\5TH_DRVMOUSE modulechk
+
+.( <file>		gedit		- load existing	image )
+.( <Xsize> <Ysize>	geditnew	- start	new image )
+.(			EGh		- graphic editor help )
+
+var ghandle
+var sizex var sizey
+var zoomx var zoomy
+var zoomup
+var zoom
+var selcol
+var gbrush
+1 vari geditcycdir
+5 vari geditcyccur
+
+Dstral const EGfile
+str F1 - help"		msghelp
+str pick the color"	msgpick
+str draw pixels"	msgpix
+str fill with color"	msgfill
+Dstr \listF\TXT_EG"	tmphlpfile
+
+
+: EGh tmphlpfile fs. ;
+
+: gclose ghandle @ dup if dynde
+ghandle	off else drop then ;
+
+: geditmsg ( addr -- )
+ghandle	@ emitscreen !
+1A 3B at! 14 do	space loop
+1A 3B at! write
+screen emitscreen ! ;
+
+: zoomupdate
+zoom @ if
+	14 do
+		14 do
+			i 4 * 226 + dup	4 + i2 4 * 1+ dup 4 + ghandle @
+			i zoomx	@ + i2 zoomy @ + screen	point c@ boxf
+		loop
+	loop
+then ;
+
+: selcoldisp 226 27F 55	64 ghandle @ selcol @ boxf ;
+
+var tmp1
+: grinit
+ghandle	@ 0 = if 280 1E0 imgalloc ghandle ! then
+ghandle	@ cls
+tmp1 off	( display palette )
+24 do
+	6 do
+		i2 5 * dup 5 + i 5 * 1C2 + dup 5 + ghandle @
+		tmp1 @ boxf
+		tmp1 @ 1+ tmp1 !
+	loop
+loop
+[ FF FF	FF calccol ] sizex @ 1+	0 sizey	@ 1+ 0 ghandle @ box
+[ FF FF	FF calccol ] 276 225 51	0 ghandle @ box
+[ FF FF	FF calccol ] selcol ! selcoldisp
+B4 C8 1C2 1DF ghandle @	FF boxf
+msghelp	geditmsg ; rh tmp1
+
+: geditpict ( x	y -- )
+push push
+1 i sizex @ bound? if
+1 i2 sizey @ bound? if
+	gbrush @
+	dup 2 =	if selcol @ i i2 ghandle @ pset	zoomup on then
+	    3 =	if sizex @ sizey @ imgalloc
+		   ghandle @ dynp over dynp -1 -1 vidput
+		   dup push
+		   selcol @ i2 1- i3 1-	pop imgfill
+		   dup dynp ghandle @ dynp 1 1 vidput
+		   dynde
+		   zoomup on then
+then then
+pop pop	2drop ;
+
+: gsavepict
+sizex @	sizey @	imgalloc		( imgbuf )
+ghandle	@ dynp over dynp -1 -1 vidput
+dup EGfile fsDsave
+dynde ;
+
+: ged
+ghandle	@ if
+until
+	ghandle	@ dynp screen dynp 4B008 cmove
+	zoomup @ if zoomupdate zoomup off then
+
+	KBD_F@	dup 1+ if
+		dup 400	= if done then				( ESC )
+		dup 401	= if tmphlpfile	fsdisp then		( F1 )
+		dup 402	= if gsavepict then			( F2 )
+		dup 405	= if msgpick geditmsg 1	gbrush ! then	( F5 )
+		dup 406	= if msgpix  geditmsg 2	gbrush ! then	( F6 )
+		    407	= if msgfill geditmsg 3	gbrush ! then	( F7 )
+	else drop then
+
+	mousekeyr @ if
+		0 mousex @ A - sizex @ 12 - bound zoomx	!
+		0 mousey @ A - sizey @ 12 - bound zoomy	!
+		zoom on
+		ghandle	@ emitscreen !
+		45 1D at!
+		zoomx @	. space
+		zoomy @	. space	space space space
+		screen emitscreen !
+		zoomupdate
+	then
+
+	mousekeyl @ if
+		gbrush @ 1 = if
+			mousex @ mousey	@ ghandle @ point
+			c@ selcol ! selcoldisp
+		else
+			225 mousex @ 276 bound?	if
+			0 mousey @ 51 bound? if
+				mousex @ 225 - 4 / zoomx @ +
+				mousey @ 1- 4 /	zoomy @	+ geditpict
+			then then
+			mousex @ mousey	@ geditpict
+		then
+	then
+
+	mousedo
+	update
+
+	geditcyccur @ geditcycdir @ + dup geditcyccur !
+	dup dup	dup FF setpal
+	1 swap 3E bound? 0 = if	geditcycdir @ neg geditcycdir !	then
+loop
+screen cls
+else
+." no picture loaded" then ;
+
+: gedit	( file -- )
+dup EGfile str2Dstr ! fsDloadnew      (	imgbuf )
+dup imgsize sizey ! sizex ! grinit
+dup dynp ghandle @ dynp	1 1 vidput
+dynde ged ;
+
+: geditnew ( xsize ysize -- )
+sizey !	sizex !
+grinit ged ;
+
+
+rh tmphlpfile
+rh ghandle
+rh sizex rh sizey
+rh zoomx rh zoomy
+rh zoomup rh zoom
+rh gclose rh geditmsg
+rh zoomupdate rh selcoldisp
+rh grinit rh geditpict
+rh gsavepict rh	ged
+rh selcol
+rh msghelp rh msgpix rh	msgpick	rh msgfill
+rh gbrush
+rh geditcycdir rh geditcyccur
+rh EGfile
diff --git a/imageFile/f/5th_et b/imageFile/f/5th_et
new file mode 100755
index 0000000..7fde517
--- /dev/null
+++ b/imageFile/f/5th_et
@@ -0,0 +1,269 @@
+.( loading editor ) update
+.( done	)
+.( ETh - for text editor help )
+
+var handletxt
+var handlebuf
+Dstralloc const	editfile
+var shiftx  var	shifty
+var curlocx var	curlocy
+Dstr \listF\TXT_ET" tmphelpfile
+
+: disppage ( --	)
+handletxt @
+dynp shifty @ 50 * +
+0 1 at!
+1270 type ;
+
+: fclose (  close opened file )
+handletxt @ dup	if dynde handletxt off else drop then ;
+
+: ETnewpage fclose 27100 dynal dup handletxt ! dynp
+FF swap	27100 cfill ;
+
+var tmp1
+: fopen	( strhand -- )
+fclose
+dup editfile Dstr2Dstr fsDloadnew dup push dynp	( addrinp	R: handinp )
+27100 dynal dup	handletxt ! dynp	( addrinp addrout	R: handinp )
+FF over	27100 cfill
+tmp1 off
+i dyns do		( addrinp addrout )
+over c@			( addrinp addrout c )
+dup FE = if
+	drop
+	50 tmp1	@ - + tmp1 off
+else
+	dup FD = if
+		drop tmp1 @ tab	( addrinp addrout numspaces )
+		tmp1 @ over + tmp1 ! + 0
+	else
+		over c!	1+ 0
+		tmp1 @ 1+ tmp1 !
+	then
+	drop
+then
+swap 1+	swap
+loop 2drop
+pop dynde ; rh tmp1
+
+: dispchar ( x y -- )
+2dup
+swap shiftx @ -
+swap shifty @ -	1+
+at!
+50 * + handletxt @ dynp	+ c@ emit ;
+
+: dispcur curlocx @ curlocy @ dispchar ;
+
+: displine ( line )
+0 over shifty @	- 1+ at!
+50 * handletxt @ dynp +	shiftx @ + 50 type ;
+
+: dispstatbar
+colneg
+0 0 at!	50 do space loop
+0 0 at!	." col:" curlocx @ .
+7 0 at!	." line:" curlocy @ .
+11 0 at! ." ascii:" curlocy @ 50 * curlocx @ + handletxt @ dynp	+ c@ .
+1B 0 at! ." file:" editfile Dstr.
+49 0 at! ." F1-help"
+colnorm	;
+
+: charins ( char x y )
+50 * handletxt @ dynp +		( char x addr )
+over push
++ dup dup 1+ 4F	pop - cmove	( char addr )
+c! ;
+
+: charcut ( x y	-- char	)
+over push
+50 * handletxt @ dynp +	+
+dup c@ swap			( char addr )
+dup dup	1+ swap			( char addr addr+1 addr	)
+4F pop - dup push cmove		( char addr )
+pop + FF swap c! ;
+
+: lineins ( line )
+50 * dup push handletxt	@ dynp +		( addr )
+dup dup	50 + handletxt @ dyns 50 - pop - cmove	( addr )
+FF swap	50 cfill ;
+
+: linecut ( line )
+50 * dup push handletxt	@ dynp +		( addr )
+dup 50 + swap handletxt	@ dyns 50 - pop	- cmove	;
+
+: screenaim
+0 curlocy @ 1E - 794 bound shifty !
+disppage ;
+
+var tmp1
+: length	( line -- length )
+50 * 4F	+ handletxt @ dynp +	( addr )
+51 do
+	i tmp1 !
+	dup c@ FF - if pop drop	0 push then
+	1-
+loop
+drop
+tmp1 @ ; rh tmp1
+
+var tmp2 var tmp3
+: fsavechar ( char ) tmp2 @ swap over c! 1+ tmp2 ! ;
+: fsave	( -- )
+27200 dynal dup	dynp tmp2 !
+0
+7CF do
+	i length if drop pop 1+	0 push then
+loop
+0 swap for		( desthand )
+	tmp3 off
+	i 50 * handletxt @ dynp	+
+	0 i length for	( desthand srcaddr )
+		dup c@
+		i tab 8	= if tmp3 @ if FD fsavechar tmp3 off then then
+		dup FF = if
+			drop tmp3 @ 1+ tmp3 !
+		else
+			tmp3 @ do FF fsavechar loop tmp3 off
+			fsavechar
+		then
+		1+
+	loop drop
+	FE fsavechar
+loop
+tmp2 @ over dynp - over	dynresize
+dup editfile fsDsave
+dynde ;	rh tmp2	rh tmp3
+
+str TXT_default" tmpdefault
+
+: ET
+handletxt @ if
+disppage
+until
+	colneg dispcur dispstatbar KBD_FW@ colnorm dispcur
+
+	dup 415	= if						( DEL )
+		curlocx	@ curlocy @ charcut drop
+		curlocy	@ displine
+	then
+
+	dup FC = if						( BACKSPACE )
+	curlocx	@ if
+		curlocx	@ 1- curlocy @ charcut drop
+		curlocy	@ displine
+		drop 413
+	else
+		curlocy	@ if
+			curlocy	@ 1- dup length	dup curlocx !	( y-1 strlen )
+			swap 50	* handletxt @ dynp +	( strlen y1addr	)
+			2dup + swap 50 +		( strlen dest src )
+			swap rot 50 swap - cmove
+			curlocy	@ linecut
+			drop 410
+			disppage
+		then
+	then
+	then
+
+	dup FD = if						( TAB )
+		curlocx	@ tab
+		dup do FF curlocx @ curlocy @ charins loop
+		curlocx	@ + curlocx !
+		curlocy	@ displine
+	then
+
+	dup FE = if						( ENTER	)
+		curlocy	@ 7CF <	if
+			curlocy	@ 1+ lineins
+			curlocx	@ 0
+			50 curlocx @ - do
+				over curlocy @ charcut
+				over curlocy @ 1+ charins
+				1+
+			loop 2drop
+			curlocx	off
+			drop 412
+			disppage
+		then
+	then
+
+	dup 418	= if curlocy @ 3A - curlocy ! then		( PG-UP	)
+	dup 419	= if curlocy @ 3A + curlocy ! then		( PG-DOWN )
+	dup 416	= if curlocx off then				( HOME )
+	dup 417	= if curlocy @ length curlocx !	then		( END )
+	dup 401	= if tmphelpfile fsdisp	disppage then		( F1 )
+	dup 402	= if fsave then					( F2 )
+	dup 403	= if fclose drop 1B then			( F3 )
+	dup 400	= if done 0 0 at! screen cls drop -1 then	( ESC )
+
+	0 over F0 bound? if -1 else 0 then			( NORMAL KEY )
+	over FF	= if drop -1 then
+	if
+		curlocx	@ curlocy @ charins
+		curlocy	@ displine
+		411
+	then
+
+	dup 411	= if curlocx @ 1+ curlocx ! then	       ( RIGHT )
+	dup 413	= if curlocx @ 1- curlocx ! then	       ( LEFT )
+	dup 412	= if curlocy @ 1+ curlocy ! then	       ( DOWN )
+	dup 410	= if curlocy @ 1- curlocy ! then	       ( UP )
+	drop
+
+	0 curlocx @ 4F bound curlocx !
+	0 curlocy @ 7CF	bound curlocy !
+
+	curlocy	@ shifty @ - 3B	> if screenaim then
+
+	curlocy	@ shifty @ - 3B	- 0 = if
+		0 0 8 screen scrollf
+		shifty @ 1+ shifty !
+		curlocy	@ displine
+	then
+
+	curlocy	@ shifty @ - -1	< if screenaim then
+
+	curlocy	@ shifty @ - 1+	0 = if
+		0 0 -8 screen scrollf
+		shifty @ 1- shifty !
+		curlocy	@ displine
+	then
+
+loop
+else
+	tmpdefault editfile str2Dstr
+	ETnewpage
+	ET
+then ;
+
+: ETl
+fopen
+curlocx	off
+curlocy	off
+shiftx off
+shifty off
+ET ;
+
+: ETs
+editfile Dstr2Dstr
+fsave ." saved " ;
+
+: ETh tmphelpfile fs. ;
+
+rh handletxt
+rh handlebuf
+rh editfile
+rh shiftx rh shifty
+rh curlocx rh curlocy
+rh tmphelpfile
+rh disppage
+rh fclose rh fopen
+rh dispchar rh dispcur
+rh displine rh dispstatbar
+rh charins rh charcut
+rh lineins rh linecut
+rh screenaim rh	length
+rh fsavechar rh	fsave
+rh ETnewpage rh	tmpdefault
diff --git a/imageFile/f/5th_logo b/imageFile/f/5th_logo
new file mode 100755
index 0000000..7d375e1
--- /dev/null
+++ b/imageFile/f/5th_logo
@@ -0,0 +1,46 @@
+: tmpbox ( x y -- )
+10 * swap 10 *		\ y x
+dup 9 +	rot dup	9 +	\ x1 x2	y1 y2
+screen FF FF FF	calccol	boxf ;
+
+: tmplineh ( x y -- )
+swap 1+	swap 2dup tmpbox
+swap 1+	swap tmpbox ;
+
+: tmplinev ( x y -- )
+1+ 2dup	tmpbox
+1+ tmpbox ;
+
+: tmpI ( x y --	)
+2dup tmplinev
+3 + 2dup tmplinev
+tmpbox ;
+
+: tmpT ( x y --	)
+2dup tmpI
+tmplineh ;
+
+: tmpF ( x y --	)
+2dup tmpT
+3 + tmplineh ;
+
+: tmpH ( x y --	)
+2dup tmpI
+2dup 3 + tmplineh
+swap 3 + swap tmpI ;
+
+: tmpxp
+swap 5 + swap ;
+
+: tmplogo ( x y	-- )
+2dup tmpF tmpxp
+2dup tmpI tmpxp
+2dup tmpF tmpxp
+2dup tmpT tmpxp
+tmpH ;
+
+7 3 tmplogo
+0 18 at!
+.( Fifth, Copyright 2003 Svjatoslav Agejenko. All rights reserved.)
+forget tmpbox
+update
diff --git a/imageFile/f/FNT_SYSTEM b/imageFile/f/FNT_SYSTEM
new file mode 100755
index 0000000000000000000000000000000000000000..980f716caf02d52de1a8efb37f02d3147d953c2d
GIT binary patch
literal 2048
zcma)7KWigL6n{9NYLQ(INZ61nRT%Dqyd;bKDFP`6-!U9yLR5)`ENjOc;fj2K`wXd5
zq+DWHQVhP%F-RCyBE{X|N?yV+%I`P3zB*6Zee?dz`#1C6isWD9A`+_}AB^T-&PN9l
z>mCc`RqW-!NnV4d9Qd;7{^^=aiJ`|=ZTuM9D~YkkNgkk2IdGCk(3AsTZo1fQF6Cf6
zkMr??sG?S?E|evRm5bHtr^#d@^B1{u`7Z&XN?q4U4{H0QuaqbNXc3jg3`n$zM*j~?
zg8)?&v?9*AL^~JpbE4{|8U+|^z0$Uo+~v!)Uy9Zy=_zfD(Ms?rtVL|GFDyg|2L^k9
z1dDp0D3ehJZPcy0x!-NuO7ublf|NeXjqh>hOPLnV$Lv@_(`BS{({vs<co@(c`ksH{
zDpQMOoA!rC(+lIHdj^0tJxgJ;lyBAE->)0^hk@X|1Zyj61LRH9*g`sob8wx+^H=4o
zbDSHoc}Vgb`?dJA%}dGfbt%Ug!bCh<>q=+0@__Q3+bAtg`?hVR-R|yhfOFTjt;>@?
z1A7(7+iIL>?yK5OIYwQ=@4a340R;Mkc`Z<HZ=(ZtG(|o_C?&SPs%P+5!mlx<F!>Dk
zx#R^=r5r)~(>aLjb*c?HWme%_H^w0UHEG`<k7))r_@qOF`n#7%=>hbT74J62EiK~J
zvPk)7+<{m&h6UIrF5?pMD8Mc7AIu=xW1U3Ss5lKKd&i)c=gEH6ET)|t>7eyjJU?z@
z96-n)7c%7!%mVa$#3K^k>X$*LT5q(T;u@sh5E5X?lBp3`h&H0mO<QH7N<0lOWjf?p
z|6Gjb_8YK=x(pb(q&f+AmRSxxTbqJ<sXm(l`=K7yRgMq}*$i}hRJ9T3m9B2^@E1&J
z*wz=>g};zFuDka)Qoe>E)`y0PX&4y%z7CrKGj8O4tqN<=|0xaVq5YZ$9hlB*%X?Fz
zl0kRg|J%N6ug4RGhQC`N-;_^2#Fq*{f78K!mkvx|;eA+pDV&?LkvNT{LYu*pMxOve
z(-29>GLDP8+4q0GKD=)I>hy<qpHUAZM&!Bm_BpihwzvkLzv+M9{?`9iyVZ}Y`tJ`Y
z+9&AJs#C->zzz=`#e|>uyAk<M0O>&QMiIK?6DwHhxEavfRq6z5y4WW!nt}x21P@u{
zlkWK^iBEf{e9cbvS=x7|d-^fybJyb_C!aL!%w~^?Pj5Xvn-M4ZlfSfYHltleagyY{
zUoOuE`5u^2J;nQ!7vtU!Kz%MB1~?pmJj&2_>%Z3MtI~JA!wCkD!PkI~>5uszywRM;
zn4fodcbKpIE>)(%HkL#J2Pdu;x+!v=v8$Z>i2hTU8zuLxR=6*tjMy}s-;K$6nF;+^
zhP?k=)SS<l&Oz|TWC}8#Oz5Wv1OS)#_~BU4$n52G58(yS9~KvQ4l#${yJGrX%0guE
QR-3*)1wiBtbT0Ay2RbLxEdT%j

literal 0
HcmV?d00001

diff --git a/imageFile/f/I01_MCARROW b/imageFile/f/I01_MCARROW
new file mode 100755
index 0000000000000000000000000000000000000000..ce1521a8960cf1e66037a22f7a6039460b6262e4
GIT binary patch
literal 108
zcmd;LU|`?^VmSEEa2)~|U@V6JP!^DZ!MYBSWdP{{>3}K*8V6Ji;e!}J=KucyAVxj8

literal 0
HcmV?d00001

diff --git a/imageFile/f/lib/5TH_DRVKBD b/imageFile/f/lib/5TH_DRVKBD
new file mode 100755
index 0000000..15690b4
--- /dev/null
+++ b/imageFile/f/lib/5TH_DRVKBD
@@ -0,0 +1,92 @@
+: KBD_test
+until
+	kbd@
+	dup 1 =	if done	then
+	dup if
+		. tab. update
+	else
+		drop
+	then
+loop ;
+
+
+create KBD_downbuf 80 alloc
+
+: KBD_@
+until
+	kbd@
+	dup if
+		dup 80 >= if
+			[ KBD_downbuf 80 - ] + 0 swap c!
+		else
+			dup KBD_downbuf	+ 1 swap c! done
+		then
+	else
+		done
+	then
+loop ;
+
+: KBD_down? ( KeyScanCode -- result )
+KBD_downbuf + c@ ;
+
+rh KBD_downbuf
+
+str \listF\listLIB\5TH_KBD_USDVORAK" tmp1
+str \listF\listLIB\5TH_KBD_US" tmp2
+
+.( Select keyboard layout, by pressing appropriate number. )
+.( 1 - US dvorak )
+.( 2 - US )
+
+: tmpselect
+until
+	KBD_@
+	dup 2 =	if tmp1	swap done then
+	dup 3 =	if tmp2	swap done then
+	drop
+loop ;
+
+update
+tmpselect
+.( selected )
+update
+
+defDstr	str2Dstr
+forget tmp1
+defDstr	include
+
+: KBD_test2
+until
+	KBD_@
+	dup 1 =	if done	then
+	dup if
+		. tab. update
+	else
+		drop
+	then
+loop ;
+
+: KBD_SC2FSCII ( ScanCode -- FSCII )
+KBD_table swap until	\ addr code
+	over @ dup if
+		over = if
+			drop 4 + @ done
+		else
+			swap 8 + swap
+		then
+	else
+		2drop drop -1 done
+	then
+loop ;
+
+: KBD_F@
+KBD_@
+2A KBD_down? if	100 + then
+38 KBD_down? if	200 + then
+KBD_SC2FSCII ;
+
+: KBD_FW@ update
+until
+	KBD_F@
+	dup -1 = if drop else done then
+loop ;
diff --git a/imageFile/f/lib/5TH_DRVMOUSE b/imageFile/f/lib/5TH_DRVMOUSE
new file mode 100755
index 0000000..0f50d09
--- /dev/null
+++ b/imageFile/f/lib/5TH_DRVMOUSE
@@ -0,0 +1,53 @@
+var mousex
+var mousey
+var mousekeyl
+var mousekeyr
+var mousekeym
+var mousec	( display coordinates flag )
+create mousebuf	100 alloc
+var mousebe	( amount of buffer elements )
+var mousepointer
+D> \listF\I01_MCARROW fsDloadnew mousepointer !
+
+: mouseadd ( addr x1 x2	y1 y2 -- )
+mousebe	@ dup 1+ mousebe !
+14 * mousebuf +		 ( ... addr )
+swap over !
+4 + swap over !
+4 + swap over !
+4 + swap over !
+4 + ! ;
+
+: mousedo ( -- )
+mouse@
+dup 0 bit@ if mousekeyl	on else	mousekeyl off then
+dup 1 bit@ if mousekeyr	on else	mousekeyr off then
+    2 bit@ if mousekeym	on else	mousekeym off then
+
+mousey @ + 0 swap 1DF bound mousey !
+mousex @ + 0 swap 27F bound mousex !
+
+mousepointer @ dynp
+screen dynp mousex @ mousey @ tvidput
+
+mousekeyl @ mousekeyr @	+ mousekeym @ +	if
+mousebe	@ do
+	i 14 * mousebuf	+
+	dup @ swap 4 + @ mousey	@ rot bound? if
+		i 14 * mousebuf	+ 8 +
+		dup @ swap 4 + @ mousex	@ rot bound? if
+			i 14 * mousebuf	+ 10 + @ goto pop drop 0 push
+		then
+	then
+loop
+then
+
+mousec @ if
+	emitscreen @
+	screen emitscreen !
+	at@
+	0 0 at!
+	mousex @ . tab.	mousey @ .
+	at!
+	emitscreen !
+then ;
diff --git a/imageFile/f/lib/5TH_KBD_US b/imageFile/f/lib/5TH_KBD_US
new file mode 100755
index 0000000..9e90ef5
--- /dev/null
+++ b/imageFile/f/lib/5TH_KBD_US
@@ -0,0 +1,97 @@
+create KBD_table
+
+2	, asc 1	, 102	, asc !	,
+3	, asc 2	, 103	, asc @	,
+4	, asc 3	, 104	, asc #	,
+5	, asc 4	, 105	, asc $	,
+6	, asc 5	, 106	, asc %	,
+7	, asc 6	, 107	, asc ^	,
+8	, asc 7	, 108	, asc &	,
+9	, asc 8	, 109	, asc *	,
+A	, asc 9	, 10A	, asc (	,
+B	, asc 0	, 10B	, asc )	,
+C	, asc -	, 10C	, asc _	,
+D	, asc =	, 10D	, asc +	,
+E	, FC	,			\ backspace
+F	, FD	,			\ tab
+10	, asc q	, 110	, asc Q	,
+11	, asc w	, 111	, asc W	,
+12	, asc e	, 112	, asc E	,
+13	, asc r	, 113	, asc R	,
+14	, asc t	, 114	, asc T	,
+15	, asc y	, 115	, asc Y	,
+16	, asc u	, 116	, asc U	,
+17	, asc i	, 117	, asc I	,
+18	, asc o	, 118	, asc O	,
+19	, asc p	, 119	, asc P	,
+1A	, asc [	, 11A	, asc {	,
+1B	, asc ]	, 11B	, asc }	,
+1C	, FE	,			\ enter
+1E	, asc a	, 11E	, asc A	,
+1F	, asc s	, 11F	, asc S	,
+20	, asc d	, 120	, asc D	,
+21	, asc f	, 121	, asc F	,
+22	, asc g	, 122	, asc G	,
+23	, asc h	, 123	, asc H	,
+24	, asc j	, 124	, asc J	,
+25	, asc k	, 125	, asc K	,
+26	, asc l	, 126	, asc L	,
+27	, asc ;	, 127	, asc :	,
+28	, asc ,	, 128	, asc "	,
+29	, asc '	, 129	, asc ~	,
+
+2B	, asc \	, 12B	, asc |	,
+2C	, asc z	, 12C	, asc Z	,
+2D	, asc x	, 12D	, asc X	,
+2E	, asc c	, 12E	, asc C	,
+2F	, asc v	, 12F	, asc V	,
+30	, asc b	, 130	, asc B	,
+31	, asc n	, 131	, asc N	,
+32	, asc m	, 132	, asc M	,
+33	, asc ,	, 133	, asc <	,
+34	, asc .	, 134	, asc >	,
+35	, asc /	, 135	, asc ?	,
+
+39	, FF	,			\ space
+48	, 410	, 148	, 410	,	\ up
+4D	, 411	, 14D	, 411	,	\ right
+50	, 412	, 150	, 412	,	\ down
+4B	, 413	, 14B	, 413	,	\ left
+
+1	, 400	,			\ ESC
+3B	, 401	,			\ F1 ...
+3C	, 402	,
+3D	, 403	,
+3E	, 404	,
+3F	, 405	,
+40	, 406	,
+41	, 407	,
+42	, 408	,
+43	, 409	,
+44	, 40A	,			\ F10
+
+152	, 414	,	\ INS
+153	, 415	,	\ DEL
+147	, 416	,	\ HOME
+14F	, 417	,	\ END
+149	, 418	,	\ PG/UP
+151	, 419	,	\ PG/DN
+
+202	, 1	,
+203	, 2	,
+204	, 3	,
+205	, 4	,
+206	, 5	,
+207	, 6	,
+208	, 7	,
+209	, 8	,
+20A	, 9	,
+20B	, 0	,
+21E	, A	,
+231	, B	,
+217	, C	,
+223	, D	,
+220	, E	,
+215	, F	,
+
+0	,
diff --git a/imageFile/f/lib/5TH_KBD_USDVORAK b/imageFile/f/lib/5TH_KBD_USDVORAK
new file mode 100755
index 0000000..b2e2301
--- /dev/null
+++ b/imageFile/f/lib/5TH_KBD_USDVORAK
@@ -0,0 +1,97 @@
+create KBD_table
+
+2	, asc 1	, 102	, asc !	,
+3	, asc 2	, 103	, asc @	,
+4	, asc 3	, 104	, asc #	,
+5	, asc 4	, 105	, asc $	,
+6	, asc 5	, 106	, asc %	,
+7	, asc 6	, 107	, asc ^	,
+8	, asc 7	, 108	, asc &	,
+9	, asc 8	, 109	, asc *	,
+A	, asc 9	, 10A	, asc (	,
+B	, asc 0	, 10B	, asc )	,
+C	, asc [	, 10C	, asc {	,
+D	, asc ]	, 10D	, asc }	,
+E	, FC	,			\ backspace
+F	, FD	,			\ tab
+10	, asc '	, 110	, asc "	,
+11	, asc ,	, 111	, asc <	,
+12	, asc .	, 112	, asc >	,
+13	, asc p	, 113	, asc P	,
+14	, asc y	, 114	, asc Y	,
+15	, asc f	, 115	, asc F	,
+16	, asc g	, 116	, asc G	,
+17	, asc c	, 117	, asc C	,
+18	, asc r	, 118	, asc R	,
+19	, asc l	, 119	, asc L	,
+1A	, asc /	, 11A	, asc ?	,
+1B	, asc =	, 11B	, asc +	,
+1C	, FE	,			\ enter
+1E	, asc a	, 11E	, asc A	,
+1F	, asc o	, 11F	, asc O	,
+20	, asc e	, 120	, asc E	,
+21	, asc u	, 121	, asc U	,
+22	, asc i	, 122	, asc I	,
+23	, asc d	, 123	, asc D	,
+24	, asc h	, 124	, asc H	,
+25	, asc t	, 125	, asc T	,
+26	, asc n	, 126	, asc N	,
+27	, asc s	, 127	, asc S	,
+28	, asc -	, 128	, asc _	,
+29	, asc '	, 129	, asc ~	,
+
+2B	, asc \	, 12B	, asc |	,
+2C	, asc ;	, 12C	, asc :	,
+2D	, asc q	, 12D	, asc Q	,
+2E	, asc j	, 12E	, asc J	,
+2F	, asc k	, 12F	, asc K	,
+30	, asc x	, 130	, asc X	,
+31	, asc b	, 131	, asc B	,
+32	, asc m	, 132	, asc M	,
+33	, asc w	, 133	, asc W	,
+34	, asc v	, 134	, asc V	,
+35	, asc z	, 135	, asc Z	,
+
+39	, FF	,			\ space
+48	, 410	, 148	, 410	,	\ up
+4D	, 411	, 14D	, 411	,	\ right
+50	, 412	, 150	, 412	,	\ down
+4B	, 413	, 14B	, 413	,	\ left
+
+1	, 400	,			\ ESC
+3B	, 401	,			\ F1 ...
+3C	, 402	,
+3D	, 403	,
+3E	, 404	,
+3F	, 405	,
+40	, 406	,
+41	, 407	,
+42	, 408	,
+43	, 409	,
+44	, 40A	,			\ F10
+
+152	, 414	,	\ INS
+153	, 415	,	\ DEL
+147	, 416	,	\ HOME
+14F	, 417	,	\ END
+149	, 418	,	\ PG/UP
+151	, 419	,	\ PG/DN
+
+202	, 1	,
+203	, 2	,
+204	, 3	,
+205	, 4	,
+206	, 5	,
+207	, 6	,
+208	, 7	,
+209	, 8	,
+20A	, 9	,
+20B	, 0	,
+21E	, A	,
+231	, B	,
+217	, C	,
+223	, D	,
+220	, E	,
+215	, F	,
+
+0	,
diff --git a/imageFile/f/lib/5TH_UICMD b/imageFile/f/lib/5TH_UICMD
new file mode 100755
index 0000000..5e8d371
--- /dev/null
+++ b/imageFile/f/lib/5TH_UICMD
@@ -0,0 +1,77 @@
+: words
+cr lp @
+max do
+118 do
+	dup 0 =	if pop pop 2drop drop ret then
+	colnorm
+	dup 13 + c@
+	dup 2 =	if colhigh then
+	0 = if colneg then
+	dup 4 +	write colnorm
+	curx @ 10 mod 10 swap -	do space loop
+	@
+loop
+cr 50 do asc = emit loop KBD_FW@ drop
+loop ;
+
+: statinc
+inccur @ dup ."	depth: " d. cr
+." <handle> <size> <current offset>" cr
+incfiles swap 1+ do
+	dup @ dup d. space dyns	d. space 4 + dup @ d. 4	+ cr
+loop drop ;
+
+: (cmdline
+\ colhigh
+200 dynal
+0
+cr
+until
+	KBD_FW@	( handle addr key )
+	push
+	0 swap 200 bound
+	over dynp over + i swap	c!	( handle addr )
+	1+
+	i FC = if 2 - FC emit space then
+	pop dup	FE - if			( handle addr )
+		emit
+	else
+		drop space
+		over dynresize	( handle )
+		dyninc
+		done
+	then
+loop \ colnorm
+;
+
+' (cmdline ' cmdline is
+
+: ascii
+until KBD_FW@ dup 1B = if done then
+dup emit space d. space	loop ;
+
+: fs. (	fname -- ) fsDloadnew dup dyn. dynde ;
+
+: fsdisp ( fname -- )
+screen cls 0 0 at! fs. cr
+." press any key to continue ..."
+KBD_FW@	drop ;
+
+create tmpbuf 100 alloc
+: s.
+depth 2	- push
+." depth: " i .	cr
+1 i 400	bound? if
+	i do
+		i 4 * tmpbuf + !
+	loop
+	0 i for
+		i 4 * tmpbuf + @ dup . tab.
+	loop
+then pop drop ;	rh tmpbuf
+
+: bye 2dup push	push	\ R: n1	n2
+i2 3 = if
+	i FE = if halt then
+then
+." unbalanced stack: " swap . space . KBD_FW@ halt ;
diff --git a/imageFile/f/lib/5th_gfx b/imageFile/f/lib/5th_gfx
new file mode 100755
index 0000000..8ac8133
--- /dev/null
+++ b/imageFile/f/lib/5th_gfx
@@ -0,0 +1,149 @@
+: tab (	col -- spaces) 8 mod 8 swap - dup 0 = if drop 8	then ;
+
+: calccol ( b g	r -- c )
+2B / 24	* swap 2B / 6 *	+ swap 2B / + ;
+
+: imgalloc ( x y -- handle )
+2dup * 8 + dynal	( x y handle )
+dup push dynp		( x y addr )
+rot over ! 4 + ! pop ;
+
+280 1E0	imgalloc const screen
+
+: imgsize ( screen -- x	y )
+dynp dup @ swap	4 + @ ;
+
+: copyscreen ( srcDhand	destDhand -- )
+swap dynp swap dup dynp	swap dyns cmove	;
+
+: update ( -- )	screen dynp 8 +	vidmap ;
+
+: point	( x y screen --	addr )
+dynp dup @	( x y addr xs )
+rot *		( x addr y*xs)
++ + 8 +	;
+
+: pset ( c x y screen -- ) point c! ;
+
+var tmp1 var tmp2
+: boxf ( x1 x2 y1 y2 screen c -- )
+tmp1 !
+tmp2 !
+for	( x1 x2	)
+	2dup swap - push
+	over i2	tmp2 @ point
+	tmp1 @ swap pop	cfill
+loop 2drop ;
+rh tmp1	rh tmp2
+
+: cls (	screen -- )
+dynp dup @ swap	4 + dup	@	( x addr y )
+rot * swap 4 +			( len addr )
+0 rot rot swap			( c addr len)
+cfill ;
+
+: setpal ( b g r color -- ) 3C8	cprt! 3C9 cprt!	3C9 cprt! 3C9 cprt! ;
+
+: setupal
+D7
+6 do
+	6 do
+		6 do
+			dup i C	* swap i2 C * swap i3 C	* swap setpal
+			1 -
+		loop
+	loop
+loop
+drop ;
+
+setupal
+
+D" \listF\FNT_SYSTEM" fsDloadnew const font
+
+: scroll ( x y screen -- )
+dynp dup @ swap	4 + dup	@ swap 4 + push	( x y xsize ysize  R: addr )
+over * push				( x y xsize	   R: addr size	)
+* + i2 + pop pop swap cmove ;
+
+var tmp1 var tmp2 var tmp3 var tmp4 var	tmp5 var tmp6 var tmp7
+: scrollf ( color x y screen --	)
+dup push tmp1 !	( screen )
+dup push tmp2 !	( y )
+dup tmp3 !	( x )
+pop pop	scroll
+push
+tmp1 @ dynp dup	@ tmp4 !	( xsize	)
+4 + @ tmp5 !			( ysize	)
+tmp2 @ dup 0 - if
+	0 > if
+		0 dup tmp6 ! tmp4 @ tmp5 @ tmp2	@ - dup	tmp7 !
+		tmp5 @ tmp1 @ i	boxf
+
+	else
+		0 tmp4 @ 0 tmp2	@ neg dup tmp6 ! tmp1 @	i boxf
+		tmp5 @ tmp7 !
+	then
+else
+	drop
+	0 tmp6 ! tmp5 @	tmp7 !
+then
+
+tmp3 @ dup 0 - if
+	0 > if
+		tmp4 @ dup tmp3	@ - swap tmp6 @	tmp7 @ tmp1 @ i	boxf
+	else
+		0 tmp3 @ neg tmp6 @ tmp7 @ tmp1	@ i boxf
+	then
+else
+	drop
+then
+pop drop ;
+rh tmp1	rh tmp2	rh tmp3	rh tmp4	rh tmp5	rh tmp6	rh tmp7
+
+var curx
+var cury
+var curc
+var curb
+var emitscreen
+
+screen emitscreen !
+
+: at! (	x y -- ) cury !	curx ! ;
+: at@ (	-- x y ) curx @	cury @ ;
+: curc!	calccol	curc ! ;
+: curb!	calccol	curb ! ;
+
+: colnorm	FF FF FF curc! 0  0  0	curb! ;
+: colneg	0  0  0	 curc! FF FF FF	curb! ;
+: colhigh	0  FF FF curc! 0  0  0	curb! ;
+
+colnorm
+
+: (emit2
+dup FE = if drop
+	0 curx ! cury @	1+
+	dup 3B > if
+		0 0 8 emitscreen @ scrollf
+		drop 3B
+	then
+	cury !
+else
+	dup FC - if
+		dup FD - if
+			curx @ 4F > if FE emit then
+			8 * font dynp +
+			curc @ swap curb @ swap	emitscreen @ dynp
+			curx @ 8 * cury	@ 8 * charput
+			curx @ 1+ curx !
+		else
+			drop curx @ tab	do space loop
+		then
+	else
+		drop curx @ 1-
+		dup 0 <	if drop	0 then curx !
+	then
+then ;
+
+screen cls
+FC emit
+' (emit2 ' emit	is
diff --git a/imageFile/f/lib/5th_gfx2 b/imageFile/f/lib/5th_gfx2
new file mode 100755
index 0000000..27f4e4e
--- /dev/null
+++ b/imageFile/f/lib/5th_gfx2
@@ -0,0 +1,107 @@
+: lineh	( color	len x y	imgbuf -- )
+point swap cfill ;
+
+: linev	( color	len x y	imgbuf -- )
+dup imgsize drop push
+point swap
+do 2dup	c! i2 +	loop
+2drop pop drop ;
+
+var tmp1 var tmp2 var tmp3 var tmp4
+: box (	color x2 x1 y2 y1 imgbuf  -- )
+     push	( buf  i3 )
+dup  push	( y1   i2 )
+over tmp1 !	( y2   1  )
+-    tmp2 !	( ylen 2  )
+dup  push	( x1   i  )
+over tmp3 !	( x2   3  )
+-    tmp4 !	( xlen 4  )
+
+dup tmp4 @ i	  i2	 i3 lineh
+dup tmp4 @ 1+ i	  tmp1 @ i3 lineh
+dup tmp2 @ i	  i2	 i3 linev
+    tmp2 @ tmp3	@ i2	 i3 linev
+pop pop	2drop pop drop ;
+rh tmp1	rh tmp2	rh tmp3	rh tmp4
+
+var flipxs var flipys var fliplb var flipib var	flipsa var flipda
+: flipv	( imgbuf -- )
+dup push imgsize over dynal push  ( sizex sizey	 R: imgbuf linebuf )
+flipys ! flipxs	! pop fliplb ! pop flipib !
+flipys @ 2 / do
+	0 i flipib @ point flipsa !
+	0 flipys @ i - 1- flipib @ point flipda	!
+	flipda @ fliplb	@ dynp flipxs @	cmove
+	flipsa @ flipda	@ flipxs @ cmove
+	fliplb @ dynp flipsa @ flipxs @	cmove
+loop ;
+rh flipxs rh flipys rh fliplb rh flipib	rh flipsa rh flipda
+
+: imgcoltrans (	ImgBuf Color ToColor --	)
+push push
+dup dynp 8 + swap dyns 8 - do
+	dup c@ i2 = if i3 over c! then
+	1+
+loop drop pop pop 2drop	;
+
+var imgfillbuf var imgfilld var	imgfillc
+: imgfill ( color x y imgbuf --	)
+dup imgfillbuf ! point dup c@ imgfillc ! FE swap c!  ( color )
+until
+	imgfilld off
+
+	imgfillbuf @ imgsize
+	swap 1-	swap
+	do
+		imgfillbuf @ imgsize drop 1- i imgfillbuf @ point
+		over do
+			dup c@ FE = if
+				dup 1- c@ imgfillc @ = if
+					dup 1- FE swap c!
+					imgfilld on
+				then
+			then
+			1-
+		loop drop
+
+		0 i imgfillbuf @ point
+		over do
+			dup c@ FE = if
+				dup 1+ c@ imgfillc @ = if
+					dup 1+ FE swap c!
+					imgfilld on
+				then
+			then
+			1+
+		loop drop
+	loop drop
+
+	imgfillbuf @ imgsize 1-	swap
+	do
+		i imgfillbuf @ dup imgsize swap	push 1-	swap point
+		over do
+			dup c@ FE = if
+				dup i2 - c@ imgfillc @ = if
+					dup i2 - FE swap c!
+					imgfilld on
+				then
+			then
+			i2 -
+		loop drop
+
+
+		i2 0 imgfillbuf	@ point
+		over do
+			dup c@ FE = if
+				dup i2 + c@ imgfillc @ = if
+					dup i2 + FE swap c!
+					imgfilld on
+				then
+			then
+			i2 +
+		loop pop 2drop
+	loop drop
+imgfilld @ if imgfilld off else	done then
+loop
+imgfillbuf @ FE	rot imgcoltrans	;
+rh imgfillbuf rh imgfilld rh imgfillc
diff --git a/imageFile/f/lib/5th_trig b/imageFile/f/lib/5th_trig
new file mode 100755
index 0000000..96b01e1
--- /dev/null
+++ b/imageFile/f/lib/5th_trig
@@ -0,0 +1,24 @@
+create sintable	8000 alloc
+
+: mktable
+here push
+sintable h !
+100000000 0
+2000 do
+
+	over 100000 / -
+	swap over + swap
+	over 10000 / ,
+loop
+2drop
+pop h !	;
+
+mktable
+forget mktable
+
+: cos (	num -- result)
+abs 2000 mod 4 * sintable + @ ;
+
+: sin 500 - cos	;
+
+rh sintable
diff --git a/imageFile/f/txt_eg b/imageFile/f/txt_eg
new file mode 100755
index 0000000..4b0f485
--- /dev/null
+++ b/imageFile/f/txt_eg
@@ -0,0 +1,16 @@
+
+Graphic	editor is very unfinished, some	functions do not work properly yet!
+
+	Paint quick help:
+
+q	- exit,	don't close image
+F1	- this help
+F2	- save to file
+F3	- close	& exit
+F5	- pick color
+F6	- draw pixels
+F7	- fill with color
+
+Right mouse button - select zoom region.
+
+flashing color is transparent
diff --git a/imageFile/f/txt_et b/imageFile/f/txt_et
new file mode 100755
index 0000000..866010f
--- /dev/null
+++ b/imageFile/f/txt_et
@@ -0,0 +1,18 @@
+		Text editor help:
+
+from editor:
+
+F1	- help
+F2	- save to current file
+F3	- close	text, switch to	commandline
+ESC	- switch to commandline
+
+PG/UP &	PG/DOWN, cursor	keys, DEL, backspace, TAB, HOME	& END, works as	usual.
+
+
+commandline:
+
+	ET	- switch to text editor
+<file>	ETl	- load file, and switch	to editor
+<file>	ETs	- save to file
+	ETh	- help
diff --git a/imageFile/f/txt_help b/imageFile/f/txt_help
new file mode 100755
index 0000000..a38b442
--- /dev/null
+++ b/imageFile/f/txt_help
@@ -0,0 +1,13 @@
+		basic Fifth commands:
+
+help		- get this help
+lde		- load editor
+fsls		- show list of files
+fslsr		- recursive file list
+<file> fsdel	- delete file
+<path> fscl	- goto specified path
+<File1>	<File2>	fscopy	- copy file
+<file> fs.	- type file contenc to screen
+bye		- exit from fifth
+words		- list all dictionary entries.
+statdyn		- list info about allocated dynamic memory blocks
diff --git a/kernel/core.asm b/kernel/core.asm
new file mode 100755
index 0000000..2cb74c4
--- /dev/null
+++ b/kernel/core.asm
@@ -0,0 +1,680 @@
+; core of Fifth
+
+include  'define.inc'
+
+link = 0
+org 0
+
+lpad:	xnum	1	; load rest of core into RAM
+        xnum    1024
+        xnum    3
+        xcall   lload
+        xnum    4       ; load highlevel Fifth boot code into RAM 
+        xnum    1500000
+        xnum    32
+	xcall	lload
+	xnum	-1	; initialize dictionary space
+	xnum	lend
+	xnum	30000
+	xcfill
+        xjmp    lmain
+	times 15 db '*PAD*'
+
+lload:  		;( fromdisk tomem amount -- )
+l46:    xdup
+        xif     l45
+        xdec
+        xpush
+        xover
+        xover
+        xdisk@
+        xnum    1024
+        xplus
+        xswap
+        xinc
+        xswap
+        xpop
+        xjmp    l46
+l45:    xdrop
+        xdrop
+        xdrop
+        xret
+
+ibuf:	dd 0, 0, 0, 0,	0, 0, 0, 0
+lh:     dd last+24000
+llp:    dd lastp
+
+lcount: xinc
+	xdup
+	xdec
+	xc@
+	xret
+
+vloc	dd 200000h
+llemit: ; xemit
+        xnum	vloc
+	x@
+	xdup
+	xinc
+	xnum	vloc
+	x!
+	xc!
+        xret
+
+lhere:	xnum	lh
+	x@
+	xret
+
+lemit:	xjmp	llemit
+
+ltype:	xdup
+	xif l2
+	xdec
+	xpush
+	xcall	lcount
+	xcall	lemit
+	xpop
+	xjmp	ltype
+l2:	xdrop
+	xdrop
+	xret
+
+lwrite: xcall lcount
+	xcall ltype
+	xret
+
+lsadd: xdup
+	xc@
+	xinc
+	xover
+	xover
+	xswap
+	xc!
+	xplus
+	xc!
+	xret
+
+llfkey: xnum	d1
+	x@
+	xcall	lcount
+	xswap
+	xnum	d1
+	x!
+	xret
+d1      dd 1500000
+
+lfkey:	xjmp	llfkey
+
+lskey:	xcall	lfkey
+	xdup
+	xnum	254
+	xminus
+	xif	l47
+	xdup
+	xnum	253
+	xminus
+	xif	l47
+	xret
+l47:	xdrop
+	xnum	255
+	xret
+
+lscan:	xnum	0
+	xnum	lpad
+	xc!
+l4:	xcall	lskey
+	xover
+	xover
+	xminus
+	xif	l3
+	xnum	lpad
+	xcall	lsadd
+	xjmp	l4
+l3:	xdrop
+	xnum	lpad
+	xc@
+	xif	lscan
+	xdrop
+	xret
+
+lstrEQstr: xdup
+	xc@
+	xinc
+l8:	xdup
+	xif	l6
+	xdec
+	xpush
+	xover
+	xc@
+	xover
+	xc@
+	xminus
+	xif	l7
+	xpop
+	xdrop
+	xdrop
+	xdrop
+	xnum	0
+	xret
+l7:	xinc
+	xswap
+	xinc
+	xpop
+	xjmp	l8
+l6:	xdrop
+	xdrop
+	xdrop
+	xnum	-1
+	xret
+
+lstrEQpad:
+	xnum	lpad
+	xjmp	lstrEQstr
+
+lfind:	xnum	llp
+l9:	xdup
+	xnum	lprev
+	x!
+	x@
+	xdup
+	xif	l11
+	xdup
+	xinc
+	xinc
+	xinc
+	xinc
+	xcall	lstrEQpad
+	xif	l9
+l11:	xret
+
+lprev:	dd 0
+lmode:	db 1	; 0 compile
+		; 1 interpret
+
+lgoto:	xnum	l44+1
+	x!
+l44:	xjmp	0
+
+lexecute:
+	xnum	lmode
+	xc@
+	xif	l19
+	xcall	setint
+l19:	xcall	lfind
+	xdup
+	xif	l12	; not found ?
+	xnum	19
+	xplus
+	xdup
+	xc@	; ( addr+19 c )
+	xdup
+	xif	cmpnum
+	xdec
+	xdup
+	xif	cmpmod
+	xdec
+	xif	cmpimm
+	xdrop
+	xjmp	clrint
+setint: xnum	l14
+	x@
+	xif	l15
+	xret
+l14	dd 0
+l15:	xnum	lh
+	x@
+	xnum	l14
+	x!
+	xnum	ibuf
+	xnum	lh
+	x!
+	xret
+clrint: xnum	l14
+	x@
+	xif	l20
+	xnum	11
+	xcall	lcsto
+	xnum	l14
+	x@
+	xnum	lh
+	x!
+	xnum	0
+	xnum	l14
+	x!
+	xjmp	ibuf
+l20:	xret
+cmpnum: xdrop
+	xnum	3
+	xjmp	cmpn
+cmpmod: xdrop
+	xnum	5
+	xjmp	cmpn
+cmpimm: xcall	setint
+	xnum	5
+	xjmp	cmpn
+cmpn:	xcall	lcsto
+	xinc
+	x@
+	xcall	lsto
+	xjmp	clrint
+l12:	xdrop
+	xcall	l2num
+	xif	l23
+	xnum	3
+	xcall	lcsto
+	xcall	lsto
+	xjmp	clrint
+l23:	xdrop
+	xnum	lpad
+	xcall	lwrite
+	xnum	msg1
+	xcall	lwrite
+	xjmp	clrint
+msg1	db 3, ' ? '
+
+l2num:	xnum	lpad
+	xcall	lcount	; ( addr len )
+	xnum	numlen
+	xc!
+	xnum	0
+l13:	xnum	numlen	; ( addr num )
+	xc@
+	xdup
+	xif	numend
+	xdec
+	xnum	numlen
+	xc!
+	xnum	16
+	xmul
+	xswap
+	xcall	lcount	; ( num addr c )
+
+	xdup
+	xnum	45
+	xminus
+	xif	l22
+l28:	xdup
+	xnum	16
+	xcmpg
+	xif	l21
+	xdrop
+	xdrop
+	xnum	0
+	xret
+l21:	xrot
+	xplus		; ( addr num )
+	xjmp	l13
+numend: xdrop
+	xswap
+	xdrop
+	xnum	numneg
+	xc@
+	xif	l16
+	xnum	-1
+	xmul
+	xnum	0
+	xnum	numneg
+	xc!
+l16:	xnum	-1
+	xret
+numlen	db 0
+numneg	db 0
+
+l22:	xnum	numneg
+	xc!
+	xnum	0
+	xjmp	l28
+
+lcsto:	xnum	lh
+	x@
+	xover
+	xover	; ( n addr n addr )
+	xc!
+	xinc
+	xnum	lh
+	x!
+	xdrop
+	xret
+
+lsto:	xnum	lh
+	x@
+	xover
+	xover
+	x!
+	xnum	4
+	xplus
+	xnum	lh
+	x!
+	xdrop
+	xret
+
+lhalt:	xhalt
+
+l@:	xnum	20
+	xjmp	bcode
+
+l!:	xnum	21
+	xjmp	bcode
+
+lc@:	xnum	12
+	xjmp	bcode
+
+lc!:	xnum	13
+	xjmp	bcode
+
+linc:	xnum	6
+	xjmp	bcode
+
+ldec:	xnum	7
+	xjmp	bcode
+
+lcmpg:	xnum	28
+	xjmp	bcode
+
+lcmpl:	xnum	29
+	xjmp	bcode
+
+lret:	xnum	11
+	xjmp	bcode
+
+lplus:	xnum	24
+	xjmp	bcode
+
+lminus: xnum	25
+	xjmp	bcode
+
+lmul:	xnum	26
+	xjmp	bcode
+
+ldrop:	xnum	9
+	xjmp	bcode
+
+ldup:	xnum	8
+	xjmp	bcode
+
+lswap:	xnum	23
+	xjmp	bcode
+
+ldisk@: xnum	18
+	xjmp	bcode
+
+lpush:	xnum	14
+	xjmp	bcode
+
+lpop:	xnum	15
+	xjmp	bcode
+
+lover:	xnum	22
+	xjmp	bcode
+
+lcmove: xnum	43
+	xjmp	bcode
+
+bcode:	xnum	lmode
+	xc@
+	xif	lcsto
+	xnum	l25
+	xc!
+l25:	db 0
+	xret
+
+lne:	xcall	lfind
+	xif	lne3
+	xnum	lpad
+	xcall	lwrite
+	xnum	msg2
+	xcall	lwrite
+lne3:	xnum	sf	; pick next address
+	x@
+	xdup
+	xnum	24
+	xplus
+	xdup
+	xnum	last+23999
+	xcmpg
+	xif	lne1
+	xdrop
+	xnum	last
+lne1:	xnum	sf
+	x!
+	xdup		; is cell empty
+	x@
+	xinc
+	xif	lne2
+	xdrop
+	xjmp	lne3
+lne2:	xnum	llp	; create entry
+	x@
+	xover
+	x!
+	xdup
+	xnum	llp
+	x!
+	xnum	lpad
+	xover
+	xinc
+	xinc
+	xinc
+	xinc
+	xnum	15
+	xcmove
+	xnum	19
+	xplus
+	xdup
+	xinc
+	xpush
+	xc!
+	xpop
+	x!
+	xret
+sf	dd lend
+msg2	db 3, ' ! '
+
+lcolon: xnum	255
+	xcall	lscan
+	xnum	lh
+	x@
+	xnum	1
+	xcall	lne
+	xnum	0
+	xnum	lmode
+	xc!
+	xret
+
+lI:	xnum	1
+	xnum	lmode
+	xc!
+	xret
+
+ldadd:
+l27:	xdup
+	xif	l26
+	xdec
+	xpush
+	xcall	lcount
+	xcall	lcsto
+	xpop
+	xjmp	l27
+l26:	xdrop
+	xdrop
+	xret
+
+lincmod: xcall	lcount
+	xjmp	ldadd
+
+lif:	xcall	lhere
+	xinc
+	xnum	d6
+	xcall	lincmod
+l35:	xnum	255
+	xcall	lscan
+	xnum	d7
+	xcall	lstrEQpad
+	xif	l36
+	xcall	lhere
+	xinc
+	xnum	d9
+	xcall	lincmod
+	xswap
+	xcall	lhere
+	xswap
+	x!
+	xjmp	l35
+l36:	xnum	d8
+	xcall	lstrEQpad
+	xif	l37
+	xcall	lhere
+	xswap
+	x!
+	xret
+l37:	xcall	lexecute
+	xjmp	l35
+
+d6	db 5, 10, 0, 0, 0, 0
+d7	db 4, 'else'
+d8	db 4, 'then'
+d9	db 5, 4, 0, 0, 0, 0
+
+ldo:	xcall	lhere
+	xinc
+	xinc
+	xnum	d4
+	xcall	lincmod
+l33:	xnum	255
+	xcall	lscan
+	xnum	d5
+	xcall	lstrEQpad
+	xif	l34
+	xnum	15
+	xcall	lsto
+	xnum	4
+	xcall	lcsto
+	xdup
+	xdec
+	xdec
+	xcall	lsto
+	xcall	lhere
+	xswap
+	x!
+	xnum	9
+	xcall	lcsto
+	xret
+l34:	xcall	lexecute
+	xjmp	l33
+d4	db 8, 8, 10, 0, 0, 0, 0, 7, 14
+d5	db 4, 'loop'
+
+lfor:	xcall	lhere
+	xnum	d10
+	xcall	lincmod
+l38:	xnum	255
+	xcall	lscan
+	xnum	d5
+	xcall	lstrEQpad
+	xif	l39
+	xnum	d11
+	xcall	lincmod
+	xcall	lhere
+	xover
+	xnum	5
+	xplus
+	x!
+	xinc
+	xcall	lhere
+	xdec
+	xdec
+	xdec
+	xdec
+	x!
+	xnum	d12
+	xcall	lincmod
+	xret
+l39:	xcall	lexecute
+	xjmp	l38
+
+d10	db 10, 14, 8, 31, 25, 10, 0,0,0,0, 14
+d11	db 7, 15, 6, 4, 0,0,0,0
+d12	db 3, 9, 15, 9
+
+luntil: xnum	d14
+	xcall	lincmod
+	xcall	lhere
+l40:	xnum	255
+	xcall	lscan
+	xnum	d5
+	xcall	lstrEQpad
+	xif	l41
+	xnum	d15
+	xcall	lincmod
+	xcall	lhere
+	xnum	6
+	xminus
+	x!
+	xret
+l41:	xcall	lexecute
+	xjmp	l40
+
+d14	db 6, 3, 0, 0, 0, 0, 14
+d15	db 8, 31, 10, 0, 0, 0, 0, 15, 9
+
+lmain:
+l32:	xnum	255
+	xcall	lscan
+	xcall	lexecute
+	xjmp	l32
+
+last:
+head 2, 'lp',		0, llp
+head 5, 'count',	1, lcount
+head 4, 'emit', 	1, lemit
+head 4, 'type', 	1, ltype
+head 5, 'write',	1, lwrite
+head 3, 'pad',		0, lpad
+head 5, 'c+str', 	1, lsadd
+head 4, 'fkey', 	1, lfkey
+head 4, 'scan', 	1, lscan
+head 8, 'str=str?', 	1, lstrEQstr
+head 4, 'find', 	1, lfind
+head 4, 'mode', 	0, lmode
+head 4, 'goto', 	1, lgoto
+head 7, 'execute',	1, lexecute
+head 4, '2num', 	1, l2num
+head 2, 'c,',		1, lcsto
+head 1, ',',		1, lsto
+head 4, 'halt', 	1, lhalt
+head 1, '@',		2, l@
+head 1, '!',		2, l!
+head 2, 'c@',		2, lc@
+head 2, 'c!',		2, lc!
+head 2, '1+',		2, linc
+head 2, '1-',		2, ldec
+head 1, '>',		2, lcmpg
+head 1, '<',		2, lcmpl
+head 3, 'ret',		2, lret
+head 1, '+',		2, lplus
+head 1, '-',		2, lminus
+head 1, '*',		2, lmul
+head 4, 'drop', 	2, ldrop
+head 3, 'dup',		2, ldup
+head 4, 'swap', 	2, lswap
+head 5, 'disk@',	2, ldisk@
+head 4, 'push', 	2, lpush
+head 3, 'pop',		2, lpop
+head 4, 'over', 	2, lover
+head 5, 'cmove',	2, lcmove
+head 2, 'ne',		1, lne
+head 1, ':',		1, lcolon
+head 1, 'I',		2, lI
+head 5, 'bcode',	1, bcode
+head 4, 'dadd', 	1, ldadd
+head 6, 'incmod',	1, lincmod
+head 2, 'if',		2, lif
+head 4, 'here', 	1, lhere
+head 2, 'do',		2, ldo
+head 3, 'for',		2, lfor
+head 5, 'until',	2, luntil
+head 4, 'prev', 	0, lprev
+head 4, 'skey',         1, lskey
+lastp:
+head 1, 'h',		0, lh
+lend:
diff --git a/kernel/core.raw b/kernel/core.raw
new file mode 100755
index 0000000000000000000000000000000000000000..b6a66f92b68ed04c67baf52873024f1f4a97c976
GIT binary patch
literal 3123
zcmb`JO^g&p6vwNpx_hd-=L2@9duCvbOAupNh$smM{8$ZKjENGtkPwZ#GrjI)c4sC#
zyNkqwCR_|$RJ<7Q0`Vj9)WL%ZCpC}=Mh|N=>V=4r1QKIJ)QE!r_j;zL#{(xjnd*Q2
z>eYMo@v3^1C4^AIMxmgbSE-7cP|shEgqnm(*=;;(XC4hZR)pAQPv?Z#y6^G5TmPRz
z`=<~pSB#=D9!<64R!TOF#`C-YuRA{Du@D<EHdp8JFrE}@4fbX2@;fX9>O9p0`y0Hp
zA7IkCqVokR&d(@H_H~qqlOn1FI`2kNrBFrRT`(_mQ-yUH(AwCWft}qbw7P{JHUC-G
z{}>&3>NdHeg~b}<DLB)xiK3c+3~xqG4a)AI@VK7$8>A_|_CJQin&hK=&Ho6xgvDU1
zz^%9?`y^R{(B7m`?6-i_1%%S-56G~r{onD{E*|Fsl>aRXUQkOZ2@Be6p>Bfa{R)7y
zhl;PLlfMS3#?fBYdF{WAT2A}#)5|}D(z9D+@HC3DzaJ(0P1l-fsNN;#wD@7rw>wE)
z$j~{3siZKq;F+cUZ0d*gBV>Pq9-eXrk_VWnk{h?|e25p1$8**}`oB^f>d$d9&BTOL
z!~|6ynpHZH$?3_okupQQ23_DfODsSOwOpUCgUN;pXN6YVQK|WFpjj(wnD86WgS}c`
zwYN~U;;Gm1&ihAE@}_NofFxQ-chS_S!QMxPoVrm|aMM-t`pFzcAs^K009&d|ecq(A
z92$jF(PsstT%&M^`>hj3-DMQ*QtGd2RL!UjMtMeQqbf#?8C5i@WK?9-lu>Cia(cXj
z*%U;;`RJdcsllqhd-owF(tW%Ks;m`_vZ~b>Zi5N`M;Lo*KW3<?In-s>|C5-_Zs?4Z
zqfql<3E68zheXlPrus?m77L{?;9GBU(<Gl}hmL2uCkje9?+pgUX9(8?(Z1IHDnbvg
z8k$haehy@C)o{hRf)1{_3ho?6kqPq)F+R1QkxC8!8W>g>R6_eW^}1nfFAZ!fVc_I&
z4A{W&5k}bYLNB(L=i|16aSwdDY8E;1-{>u39Q^<kFAN_ePCGtTI+tV8ABdtv;D&zO
z_2{QH2hJ7kg-)l-mg>tpMmtB*z8jcukBHBEHFUX_!xO3>1{VEbFQe`k_1!g&SIm`M
zo}uzep1L1tz|%|P)3uy#<ZzB#C{uQg+QFl!4HoeRYAz=Vf^ZBtHlEUjrmrGBa-o}K
z9&rJTQqie*R@%#^#iEO*1#ZWS%^^-K`YIhEzI?bF8}r1XPtytVb7-l#JZ!M&Hai2Z
zx-*TTc>-%8E|PtHs<*skS}gkLTqgf>t@yCPiAA5Yo5XwdnRbR#(vRbCYj}ACzv;Bi
zqR-6~xINcwX98RF`Pf5zvC|k1GZA#M4-$W&v)sw}{~Npqo{L|M>nmnv7G>`-vVX9>
zvY4@_8~!x7tZy6AB(dm-odvf>aAMKNVU7IE&n#ru`6Bo=vVSb=CXt_mQ#M<hM)}v^
z8^L9Lq=UQ!zLWV#2YD6zN#YMoWgW@i!0XJnkMLXIFM(T+W^p1lQu#RXhe!Ds_y^!>
zDb7qQkrUvblKn{7MBWSjJ@JvSiQEBxo%q&K|GU8h<htEh>SQun?gifrt{N*DoXDrZ
zA0qqSp_xpBJOI8Q+-Wp>t>MziS@0IwcUOAz!_aa8{0RB)X2T|O75oI*cUI$JIw$fK
z@H6DUzK9m%NFD{h2rk=0h*pa(?aScSZevTr+J>w1Ch;dmxO@hD9G^pHww_IBi$1nf
z;C5rCk<EX)<oAHP%{E44S}eNX4}#0)TsD9_0^TD(^YKz<q}COj-(zIo$eflWkpg$o
zX>c{y$t*)6yWnTR9o#a_1rtL41inW8yG!w^!HJ;%h}VesM(+Xoo2u~F!OCn3x{31`
F&%ZUNzJve(

literal 0
HcmV?d00001

diff --git a/kernel/define.inc b/kernel/define.inc
new file mode 100755
index 0000000..e8785af
--- /dev/null
+++ b/kernel/define.inc
@@ -0,0 +1,79 @@
+; Virtual CPU machine code definitions
+; For assembling with FASM (Flat Assembler).
+; Rest is defined in highlevel code.
+
+macro xnop
+{	db 0 }
+macro xhalt
+{	db 1 }
+macro kbd@
+{	db 2 }
+macro xnum arg1
+{	db 3
+	dd arg1 }
+macro head arg1, arg2, arg3, arg4
+{	dd link
+	link = $-4
+	db arg1
+	db arg2
+	len = (24-5)-($-link)
+	times len db 177
+	db arg3
+	dd arg4 }
+macro xjmp arg1
+{	db 4
+	dd arg1 }
+macro xcall arg1
+{	db 5
+	dd arg1 }
+macro xinc
+{	db 6 }
+macro xdec
+{	db 7 }
+macro xdup
+{	db 8 }
+macro xdrop
+{	db 9 }
+macro xif arg1
+{	db 10
+	dd arg1 }
+macro xret
+{	db 11 }
+macro xc@
+{	db 12 }
+macro xc!
+{	db 13 }
+macro xpush
+{	db 14 }
+macro xpop
+{	db 15 }
+macro xrot
+{	db 17 }
+macro xdisk@
+{	db 18 }
+macro xdisk!
+{	db 19 }
+macro x@
+{	db 20 }
+macro x!
+{	db 21 }
+macro xover
+{	db 22 }
+macro xswap
+{	db 23 }
+macro xplus
+{	db 24 }
+macro xminus
+{	db 25 }
+macro xmul
+{	db 26 }
+macro xcmpg
+{	db 28 }
+macro xcmpl
+{	db 29 }
+macro xcprt!
+{       db 33 }
+macro xcmove
+{	db 43 }
+macro xcfill
+{	db 44 }
diff --git a/kernel/font.asm b/kernel/font.asm
new file mode 100755
index 0000000..b1f5030
--- /dev/null
+++ b/kernel/font.asm
@@ -0,0 +1,2307 @@
+; Font for Fifth
+
+
+;   0
+db 00000000b
+db 00000000b
+db 00111000b
+db 00101000b
+db 00111000b
+db 00000000b
+db 00000000b
+db 00000000b
+;   1
+db 11111110b
+db 01111100b
+db 00111000b
+db 00101000b
+db 00111000b
+db 00000000b
+db 00000000b
+db 00000000b
+;   2
+db 00000010b
+db 00000110b
+db 00111110b
+db 00101110b
+db 00111110b
+db 00000110b
+db 00000010b
+db 00000000b
+;   3
+db 11111110b
+db 01111110b
+db 00111110b
+db 00101110b
+db 00111110b
+db 00000110b
+db 00000010b
+db 00000000b
+;   4
+db 00000000b
+db 00000000b
+db 00111000b
+db 00101000b
+db 00111000b
+db 01111100b
+db 11111110b
+db 00000000b
+;   5
+db 11111110b
+db 01111100b
+db 00111000b
+db 00101000b
+db 00111000b
+db 01111100b
+db 11111110b
+db 00000000b
+;   6
+db 00000010b
+db 00000110b
+db 00111110b
+db 00101110b
+db 00111110b
+db 01111110b
+db 11111110b
+db 00000000b
+;   7
+db 11111110b
+db 01111110b
+db 00111110b
+db 00101110b
+db 00111110b
+db 01111110b
+db 11111110b
+db 00000000b
+;   8
+db 10000000b
+db 11000000b
+db 11111000b
+db 11101000b
+db 11111000b
+db 11000000b
+db 10000000b
+db 00000000b
+;   9
+db 11111110b
+db 11111100b
+db 11111000b
+db 11101000b
+db 11111000b
+db 11000000b
+db 10000000b
+db 00000000b
+;   10
+db 10000010b
+db 11000110b
+db 11111110b
+db 11101110b
+db 11111110b
+db 11000110b
+db 10000010b
+db 00000000b
+;   11
+db 11111110b
+db 11111110b
+db 11111110b
+db 11101110b
+db 11111110b
+db 11000110b
+db 10000010b
+db 00000000b
+;   12
+db 10000000b
+db 11000000b
+db 11111000b
+db 11101000b
+db 11111000b
+db 11111100b
+db 11111110b
+db 00000000b
+;   13
+db 11111110b
+db 11111100b
+db 11111000b
+db 11101000b
+db 11111000b
+db 11111100b
+db 11111110b
+db 00000000b
+;   14
+db 10000010b
+db 11000110b
+db 11111110b
+db 11101110b
+db 11111110b
+db 11111110b
+db 11111110b
+db 00000000b
+;   15
+db 11111110b
+db 11111110b
+db 11111110b
+db 11101110b
+db 11111110b
+db 11111110b
+db 11111110b
+db 00000000b
+;   16
+db 10000000b
+db 11100000b
+db 11111000b
+db 11111110b
+db 11111000b
+db 11100000b
+db 10000000b
+db 00000000b
+;   17
+db 00000010b
+db 00001110b
+db 00111110b
+db 11111110b
+db 00111110b
+db 00001110b
+db 00000010b
+db 00000000b
+;   18
+db 00011000b
+db 00111100b
+db 01111110b
+db 00011000b
+db 00011000b
+db 01111110b
+db 00111100b
+db 00011000b
+;   19
+db 01100110b
+db 01100110b
+db 01100110b
+db 01100110b
+db 01100110b
+db 00000000b
+db 01100110b
+db 00000000b
+;   20
+db 01111111b
+db 11011011b
+db 11011011b
+db 01111011b
+db 00011011b
+db 00011011b
+db 00011011b
+db 00000000b
+;   21
+db 00111110b
+db 01100011b
+db 00111000b
+db 01101100b
+db 01101100b
+db 00111000b
+db 10000110b
+db 11111100b
+;   22
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 01111110b
+db 01111110b
+db 01111110b
+db 00000000b
+;   23
+db 00011000b
+db 00111100b
+db 01111110b
+db 00011000b
+db 01111110b
+db 00111100b
+db 00011000b
+db 11111111b
+;   24
+db 00011000b
+db 00111100b
+db 01111110b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00000000b
+;   25
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 01111110b
+db 00111100b
+db 00011000b
+db 00000000b
+;   26
+db 00000000b
+db 00011000b
+db 00001100b
+db 11111110b
+db 00001100b
+db 00011000b
+db 00000000b
+db 00000000b
+;   27
+db 00000000b
+db 00110000b
+db 01100000b
+db 11111110b
+db 01100000b
+db 00110000b
+db 00000000b
+db 00000000b
+;   28
+db 00000000b
+db 00110000b
+db 01100000b
+db 11111110b
+db 01100000b
+db 00110000b
+db 00000000b
+db 00000000b
+;   29
+db 00000000b
+db 00110000b
+db 01100000b
+db 11111110b
+db 01100000b
+db 00110000b
+db 00000000b
+db 00000000b
+;   30
+db 00000000b
+db 00110000b
+db 01100000b
+db 11111110b
+db 01100000b
+db 00110000b
+db 00000000b
+db 00000000b
+;   31
+db 00000000b
+db 00110000b
+db 01100000b
+db 11111110b
+db 01100000b
+db 00110000b
+db 00000000b
+db 00000000b
+;   32
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; ! 33
+db 00011000b
+db 00111100b
+db 00111100b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00011000b
+db 00000000b
+; " 34
+db 01101100b
+db 01101100b
+db 01101100b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; # 35
+db 01101100b
+db 01101100b
+db 11111110b
+db 01101100b
+db 11111110b
+db 01101100b
+db 01101100b
+db 00000000b
+; $ 36
+db 00011000b
+db 01111110b
+db 11000000b
+db 01111100b
+db 00000110b
+db 11111100b
+db 00011000b
+db 00000000b
+; % 37
+db 00000000b
+db 11000110b
+db 11001100b
+db 00011000b
+db 00110000b
+db 01100110b
+db 11000110b
+db 00000000b
+; & 38
+db 00111000b
+db 01101100b
+db 00111000b
+db 01110110b
+db 11011100b
+db 11001100b
+db 01110110b
+db 00000000b
+; ' 39
+db 00110000b
+db 00110000b
+db 01100000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; ( 40
+db 00011000b
+db 00110000b
+db 01100000b
+db 01100000b
+db 01100000b
+db 00110000b
+db 00011000b
+db 00000000b
+; ) 41
+db 01100000b
+db 00110000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00110000b
+db 01100000b
+db 00000000b
+; * 42
+db 00000000b
+db 01100110b
+db 00111100b
+db 11111111b
+db 00111100b
+db 01100110b
+db 00000000b
+db 00000000b
+; + 43
+db 00000000b
+db 00011000b
+db 00011000b
+db 01111110b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00000000b
+; , 44
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00110000b
+; - 45
+db 00000000b
+db 00000000b
+db 00000000b
+db 01111110b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; . 46
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+; / 47
+db 00000110b
+db 00001100b
+db 00011000b
+db 00110000b
+db 01100000b
+db 11000000b
+db 10000000b
+db 00000000b
+; 0 48
+db 01111100b
+db 11001110b
+db 11011110b
+db 11110110b
+db 11100110b
+db 11000110b
+db 01111100b
+db 00000000b
+; 1 49
+db 00110000b
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 11111100b
+db 00000000b
+; 2 50
+db 01111000b
+db 11001100b
+db 00001100b
+db 00111000b
+db 01100000b
+db 11001100b
+db 11111100b
+db 00000000b
+; 3 51
+db 01111000b
+db 11001100b
+db 00001100b
+db 00111000b
+db 00001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; 4 52
+db 00011100b
+db 00111100b
+db 01101100b
+db 11001100b
+db 11111110b
+db 00001100b
+db 00011110b
+db 00000000b
+; 5 53
+db 11111100b
+db 11000000b
+db 11111000b
+db 00001100b
+db 00001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; 6 54
+db 00111000b
+db 01100000b
+db 11000000b
+db 11111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; 7 55
+db 11111100b
+db 11001100b
+db 00001100b
+db 00011000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00000000b
+; 8 56
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; 9 57
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111100b
+db 00001100b
+db 00011000b
+db 01110000b
+db 00000000b
+; : 58
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+; ; 59
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00110000b
+; < 60
+db 00011000b
+db 00110000b
+db 01100000b
+db 11000000b
+db 01100000b
+db 00110000b
+db 00011000b
+db 00000000b
+; = 61
+db 00000000b
+db 00000000b
+db 01111110b
+db 00000000b
+db 01111110b
+db 00000000b
+db 00000000b
+db 00000000b
+; > 62
+db 01100000b
+db 00110000b
+db 00011000b
+db 00001100b
+db 00011000b
+db 00110000b
+db 01100000b
+db 00000000b
+; ? 63
+db 00111100b
+db 01100110b
+db 00001100b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00011000b
+db 00000000b
+; @ 64
+db 01111100b
+db 11000110b
+db 11011110b
+db 11011110b
+db 11011100b
+db 11000000b
+db 01111100b
+db 00000000b
+; A 65
+db 00110000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 11111100b
+db 11001100b
+db 11001100b
+db 00000000b
+; B 66
+db 11111100b
+db 01100110b
+db 01100110b
+db 01111100b
+db 01100110b
+db 01100110b
+db 11111100b
+db 00000000b
+; C 67
+db 00111100b
+db 01100110b
+db 11000000b
+db 11000000b
+db 11000000b
+db 01100110b
+db 00111100b
+db 00000000b
+; D 68
+db 11111000b
+db 01101100b
+db 01100110b
+db 01100110b
+db 01100110b
+db 01101100b
+db 11111000b
+db 00000000b
+; E 69
+db 11111110b
+db 01100010b
+db 01101000b
+db 01111000b
+db 01101000b
+db 01100010b
+db 11111110b
+db 00000000b
+; F 70
+db 11111110b
+db 01100010b
+db 01101000b
+db 01111000b
+db 01101000b
+db 01100000b
+db 11110000b
+db 00000000b
+; G 71
+db 00111100b
+db 01100110b
+db 11000000b
+db 11000000b
+db 11001110b
+db 01100110b
+db 00111010b
+db 00000000b
+; H 72
+db 11001100b
+db 11001100b
+db 11001100b
+db 11111100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 00000000b
+; I 73
+db 01111000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; J 74
+db 00011110b
+db 00001100b
+db 00001100b
+db 00001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; K 75
+db 11100110b
+db 01100110b
+db 01101100b
+db 01111000b
+db 01101100b
+db 01100110b
+db 11100110b
+db 00000000b
+; L 76
+db 11110000b
+db 01100000b
+db 01100000b
+db 01100000b
+db 01100010b
+db 01100110b
+db 11111110b
+db 00000000b
+; M 77
+db 11000110b
+db 11101110b
+db 11111110b
+db 11111110b
+db 11010110b
+db 11000110b
+db 11000110b
+db 00000000b
+; N 78
+db 11000110b
+db 11100110b
+db 11110110b
+db 11011110b
+db 11001110b
+db 11000110b
+db 11000110b
+db 00000000b
+; O 79
+db 00111000b
+db 01101100b
+db 11000110b
+db 11000110b
+db 11000110b
+db 01101100b
+db 00111000b
+db 00000000b
+; P 80
+db 11111100b
+db 01100110b
+db 01100110b
+db 01111100b
+db 01100000b
+db 01100000b
+db 11110000b
+db 00000000b
+; Q 81
+db 01111100b
+db 11000110b
+db 11000110b
+db 11000110b
+db 11010110b
+db 01111100b
+db 00001110b
+db 00000000b
+; R 82
+db 11111100b
+db 01100110b
+db 01100110b
+db 01111100b
+db 01101100b
+db 01100110b
+db 11100110b
+db 00000000b
+; S 83
+db 01111100b
+db 11000110b
+db 11100000b
+db 01111000b
+db 00001110b
+db 11000110b
+db 01111100b
+db 00000000b
+; T 84
+db 11111100b
+db 10110100b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; U 85
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11111100b
+db 00000000b
+; V 86
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00110000b
+db 00000000b
+; W 87
+db 11000110b
+db 11000110b
+db 11000110b
+db 11000110b
+db 11010110b
+db 11111110b
+db 01101100b
+db 00000000b
+; X 88
+db 11000110b
+db 11000110b
+db 01101100b
+db 00111000b
+db 01101100b
+db 11000110b
+db 11000110b
+db 00000000b
+; Y 89
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; Z 90
+db 11111110b
+db 11000110b
+db 10001100b
+db 00011000b
+db 00110010b
+db 01100110b
+db 11111110b
+db 00000000b
+; [ 91
+db 01111000b
+db 01100000b
+db 01100000b
+db 01100000b
+db 01100000b
+db 01100000b
+db 01111000b
+db 00000000b
+; \ 92
+db 11000000b
+db 01100000b
+db 00110000b
+db 00011000b
+db 00001100b
+db 00000110b
+db 00000010b
+db 00000000b
+; ] 93
+db 01111000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 01111000b
+db 00000000b
+; ^ 94
+db 00010000b
+db 00111000b
+db 01101100b
+db 11000110b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; _ 95
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111111b
+; ` 96
+db 00110000b
+db 00110000b
+db 00011000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; a 97
+db 00000000b
+db 00000000b
+db 01111000b
+db 00001100b
+db 01111100b
+db 11001100b
+db 01110110b
+db 00000000b
+; b 98
+db 11100000b
+db 01100000b
+db 01100000b
+db 01111100b
+db 01100110b
+db 01100110b
+db 11011100b
+db 00000000b
+; c 99
+db 00000000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11000000b
+db 11001100b
+db 01111000b
+db 00000000b
+; d 100
+db 00011100b
+db 00001100b
+db 00001100b
+db 01111100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; e 101
+db 00000000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111100b
+db 11000000b
+db 01111000b
+db 00000000b
+; f 102
+db 00111000b
+db 01101100b
+db 01100100b
+db 11110000b
+db 01100000b
+db 01100000b
+db 11110000b
+db 00000000b
+; g 103
+db 00000000b
+db 00000000b
+db 01110110b
+db 11001100b
+db 11001100b
+db 01111100b
+db 00001100b
+db 11111000b
+; h 104
+db 11100000b
+db 01100000b
+db 01101100b
+db 01110110b
+db 01100110b
+db 01100110b
+db 11100110b
+db 00000000b
+; i 105
+db 00110000b
+db 00000000b
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; j 106
+db 00001100b
+db 00000000b
+db 00011100b
+db 00001100b
+db 00001100b
+db 11001100b
+db 11001100b
+db 01111000b
+; k 107
+db 11100000b
+db 01100000b
+db 01100110b
+db 01101100b
+db 01111000b
+db 01101100b
+db 11100110b
+db 00000000b
+; l 108
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; m 109
+db 00000000b
+db 00000000b
+db 11001100b
+db 11111110b
+db 11111110b
+db 11010110b
+db 11010110b
+db 00000000b
+; n 110
+db 00000000b
+db 00000000b
+db 10111000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 00000000b
+; o 111
+db 00000000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; p 112
+db 00000000b
+db 00000000b
+db 11011100b
+db 01100110b
+db 01100110b
+db 01111100b
+db 01100000b
+db 11110000b
+; q 113
+db 00000000b
+db 00000000b
+db 01110110b
+db 11001100b
+db 11001100b
+db 01111100b
+db 00001100b
+db 00011110b
+; r 114
+db 00000000b
+db 00000000b
+db 11011100b
+db 01110110b
+db 01100010b
+db 01100000b
+db 11110000b
+db 00000000b
+; s 115
+db 00000000b
+db 00000000b
+db 01111100b
+db 11000000b
+db 01110000b
+db 00011100b
+db 11111000b
+db 00000000b
+; t 116
+db 00010000b
+db 00110000b
+db 11111100b
+db 00110000b
+db 00110000b
+db 00110100b
+db 00011000b
+db 00000000b
+; u 117
+db 00000000b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; v 118
+db 00000000b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00110000b
+db 00000000b
+; w 119
+db 00000000b
+db 00000000b
+db 11000110b
+db 11000110b
+db 11010110b
+db 11111110b
+db 01101100b
+db 00000000b
+; x 120
+db 00000000b
+db 00000000b
+db 11000110b
+db 01101100b
+db 00111000b
+db 01101100b
+db 11000110b
+db 00000000b
+; y 121
+db 00000000b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111100b
+db 00001100b
+db 11111000b
+; z 122
+db 00000000b
+db 00000000b
+db 11111100b
+db 10011000b
+db 00110000b
+db 01100100b
+db 11111100b
+db 00000000b
+; { 123
+db 00011100b
+db 00110000b
+db 00110000b
+db 11100000b
+db 00110000b
+db 00110000b
+db 00011100b
+db 00000000b
+; | 124
+db 00011000b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00000000b
+; } 125
+db 11100000b
+db 00110000b
+db 00110000b
+db 00011100b
+db 00110000b
+db 00110000b
+db 11100000b
+db 00000000b
+; ~ 126
+db 01110110b
+db 11011100b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+;  127
+db 00000000b
+db 00010000b
+db 00111000b
+db 01101100b
+db 11000110b
+db 11000110b
+db 11111110b
+db 00000000b
+; � 128
+db 01111100b
+db 11000110b
+db 11000000b
+db 11000110b
+db 01111100b
+db 00001100b
+db 00000110b
+db 01111100b
+; � 129
+db 00000000b
+db 11001100b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 130
+db 00011100b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111100b
+db 11000000b
+db 01111000b
+db 00000000b
+; � 131
+db 01111110b
+db 10000001b
+db 00111100b
+db 00000110b
+db 00111110b
+db 01100110b
+db 00111011b
+db 00000000b
+; � 132
+db 11001100b
+db 00000000b
+db 01111000b
+db 00001100b
+db 01111100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 133
+db 11100000b
+db 00000000b
+db 01111000b
+db 00001100b
+db 01111100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 134
+db 00110000b
+db 00110000b
+db 01111000b
+db 00001100b
+db 01111100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 135
+db 00000000b
+db 00000000b
+db 01111100b
+db 11000110b
+db 11000000b
+db 01111000b
+db 00001100b
+db 00111000b
+; � 136
+db 01111110b
+db 10000001b
+db 00111100b
+db 01100110b
+db 01111110b
+db 01100000b
+db 00111100b
+db 00000000b
+; � 137
+db 11001100b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111100b
+db 11000000b
+db 01111000b
+db 00000000b
+; � 138
+db 11100000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111100b
+db 11000000b
+db 01111000b
+db 00000000b
+; � 139
+db 11001100b
+db 00000000b
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; � 140
+db 01111100b
+db 10000010b
+db 00111000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00111100b
+db 00000000b
+; � 141
+db 11100000b
+db 00000000b
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; � 142
+db 11000110b
+db 00010000b
+db 01111100b
+db 11000110b
+db 11111110b
+db 11000110b
+db 11000110b
+db 00000000b
+; � 143
+db 00110000b
+db 00110000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111100b
+db 11001100b
+db 00000000b
+; � 144
+db 00011100b
+db 00000000b
+db 11111100b
+db 01100000b
+db 01111000b
+db 01100000b
+db 11111100b
+db 00000000b
+; � 145
+db 00000000b
+db 00000000b
+db 01111111b
+db 00001100b
+db 01111111b
+db 11001100b
+db 01111111b
+db 00000000b
+; � 146
+db 00111110b
+db 01101100b
+db 11001100b
+db 11111110b
+db 11001100b
+db 11001100b
+db 11001110b
+db 00000000b
+; � 147
+db 01111000b
+db 10000100b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 148
+db 00000000b
+db 11001100b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 149
+db 00000000b
+db 11100000b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 150
+db 01111000b
+db 10000100b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 151
+db 00000000b
+db 11100000b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 152
+db 00000000b
+db 11001100b
+db 00000000b
+db 11001100b
+db 11001100b
+db 01111100b
+db 00001100b
+db 11111000b
+; � 153
+db 11000011b
+db 00011000b
+db 00111100b
+db 01100110b
+db 01100110b
+db 00111100b
+db 00011000b
+db 00000000b
+; � 154
+db 11001100b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 155
+db 00011000b
+db 00011000b
+db 01111110b
+db 11000000b
+db 11000000b
+db 01111110b
+db 00011000b
+db 00011000b
+; � 156
+db 00111000b
+db 01101100b
+db 01100100b
+db 11110000b
+db 01100000b
+db 11100110b
+db 11111100b
+db 00000000b
+; � 157
+db 11001100b
+db 11001100b
+db 01111000b
+db 00110000b
+db 11111100b
+db 00110000b
+db 11111100b
+db 00110000b
+; � 158
+db 11111000b
+db 11001100b
+db 11001100b
+db 11111010b
+db 11000110b
+db 11001111b
+db 11000110b
+db 11000011b
+; � 159
+db 00001110b
+db 00011011b
+db 00011000b
+db 00111100b
+db 00011000b
+db 00011000b
+db 11011000b
+db 01110000b
+; � 160
+db 00011100b
+db 00000000b
+db 01111000b
+db 00001100b
+db 01111100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 161
+db 00111000b
+db 00000000b
+db 01110000b
+db 00110000b
+db 00110000b
+db 00110000b
+db 01111000b
+db 00000000b
+; � 162
+db 00000000b
+db 00011100b
+db 00000000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 163
+db 00000000b
+db 00011100b
+db 00000000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 01110110b
+db 00000000b
+; � 164
+db 00000000b
+db 11111000b
+db 00000000b
+db 10111000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 00000000b
+; � 165
+db 11111100b
+db 00000000b
+db 11001100b
+db 11101100b
+db 11111100b
+db 11011100b
+db 11001100b
+db 00000000b
+; � 166
+db 00111100b
+db 01101100b
+db 01101100b
+db 00111110b
+db 00000000b
+db 01111110b
+db 00000000b
+db 00000000b
+; � 167
+db 00111000b
+db 01101100b
+db 01101100b
+db 00111000b
+db 00000000b
+db 01111100b
+db 00000000b
+db 00000000b
+; � 168
+db 00011000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00110000b
+db 01100110b
+db 00111100b
+db 00000000b
+; � 169
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111100b
+db 11000000b
+db 11000000b
+db 00000000b
+db 00000000b
+; � 170
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111100b
+db 00001100b
+db 00001100b
+db 00000000b
+db 00000000b
+; � 171
+db 11000110b
+db 11001100b
+db 11011000b
+db 00110110b
+db 01101011b
+db 11000010b
+db 10000100b
+db 00001111b
+; � 172
+db 11000011b
+db 11000110b
+db 11001100b
+db 11011011b
+db 00110111b
+db 01101101b
+db 11001111b
+db 00000011b
+; � 173
+db 00011000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00111100b
+db 00111100b
+db 00011000b
+db 00000000b
+; � 174
+db 00000000b
+db 00110011b
+db 01100110b
+db 11001100b
+db 01100110b
+db 00110011b
+db 00000000b
+db 00000000b
+; � 175
+db 00000000b
+db 11001100b
+db 01100110b
+db 00110011b
+db 01100110b
+db 11001100b
+db 00000000b
+db 00000000b
+; � 176
+db 00100010b
+db 10001000b
+db 00100010b
+db 10001000b
+db 00100010b
+db 10001000b
+db 00100010b
+db 10001000b
+; � 177
+db 01010101b
+db 10101010b
+db 01010101b
+db 10101010b
+db 01010101b
+db 10101010b
+db 01010101b
+db 10101010b
+; � 178
+db 11011011b
+db 11110110b
+db 11011011b
+db 01101111b
+db 11011011b
+db 01111110b
+db 11010111b
+db 11101101b
+; � 179
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 180
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 11111000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 181
+db 00011000b
+db 00011000b
+db 11111000b
+db 00011000b
+db 11111000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 182
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 11110110b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 183
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111110b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 184
+db 00000000b
+db 00000000b
+db 11111000b
+db 00011000b
+db 11111000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 185
+db 00110110b
+db 00110110b
+db 11110110b
+db 00000110b
+db 11110110b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 186
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 187
+db 00000000b
+db 00000000b
+db 11111110b
+db 00000110b
+db 11110110b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 188
+db 00110110b
+db 00110110b
+db 11110110b
+db 00000110b
+db 11111110b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 189
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 11111110b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 190
+db 00011000b
+db 00011000b
+db 11111000b
+db 00011000b
+db 11111000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 191
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 192
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 193
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 194
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 195
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 196
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 197
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 11111111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 198
+db 00011000b
+db 00011000b
+db 00011111b
+db 00011000b
+db 00011111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 199
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 200
+db 00110110b
+db 00110110b
+db 00110111b
+db 00110000b
+db 00111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 201
+db 00000000b
+db 00000000b
+db 00111111b
+db 00110000b
+db 00110111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 202
+db 00110110b
+db 00110110b
+db 11110111b
+db 00000000b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 203
+db 00000000b
+db 00000000b
+db 11111111b
+db 00000000b
+db 11110111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 204
+db 00110110b
+db 00110110b
+db 00110111b
+db 00110000b
+db 00110111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 205
+db 00000000b
+db 00000000b
+db 11111111b
+db 00000000b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 206
+db 00110110b
+db 00110110b
+db 11110111b
+db 00000000b
+db 11110111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 207
+db 00011000b
+db 00011000b
+db 11111111b
+db 00000000b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 208
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 209
+db 00000000b
+db 00000000b
+db 11111111b
+db 00000000b
+db 11111111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 210
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 211
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 00111111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 212
+db 00011000b
+db 00011000b
+db 00011111b
+db 00011000b
+db 00011111b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 213
+db 00000000b
+db 00000000b
+db 00011111b
+db 00011000b
+db 00011111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 214
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00111111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 215
+db 00110110b
+db 00110110b
+db 00110110b
+db 00110110b
+db 11111111b
+db 00110110b
+db 00110110b
+db 00110110b
+; � 216
+db 00011000b
+db 00011000b
+db 11111111b
+db 00011000b
+db 11111111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 217
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 11111000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 218
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00011111b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 219
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+; � 220
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+; � 221
+db 11110000b
+db 11110000b
+db 11110000b
+db 11110000b
+db 11110000b
+db 11110000b
+db 11110000b
+db 11110000b
+; � 222
+db 00001111b
+db 00001111b
+db 00001111b
+db 00001111b
+db 00001111b
+db 00001111b
+db 00001111b
+db 00001111b
+; � 223
+db 11111111b
+db 11111111b
+db 11111111b
+db 11111111b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 224
+db 00000000b
+db 00000000b
+db 01110110b
+db 11011100b
+db 11001000b
+db 11011100b
+db 01110110b
+db 00000000b
+; � 225
+db 00000000b
+db 01111000b
+db 11001100b
+db 11111000b
+db 11001100b
+db 11111000b
+db 11000000b
+db 11000000b
+; � 226
+db 00000000b
+db 11111100b
+db 11001100b
+db 11000000b
+db 11000000b
+db 11000000b
+db 11000000b
+db 00000000b
+; � 227
+db 00000000b
+db 00000000b
+db 11111110b
+db 01101100b
+db 01101100b
+db 01101100b
+db 01101100b
+db 00000000b
+; � 228
+db 11111100b
+db 11001100b
+db 01100000b
+db 00110000b
+db 01100000b
+db 11001100b
+db 11111100b
+db 00000000b
+; � 229
+db 00000000b
+db 00000000b
+db 01111110b
+db 11011000b
+db 11011000b
+db 11011000b
+db 01110000b
+db 00000000b
+; � 230
+db 00000000b
+db 01100110b
+db 01100110b
+db 01100110b
+db 01100110b
+db 01111100b
+db 01100000b
+db 11000000b
+; � 231
+db 00000000b
+db 01110110b
+db 11011100b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00000000b
+; � 232
+db 11111100b
+db 00110000b
+db 01111000b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00110000b
+db 11111100b
+; � 233
+db 00111000b
+db 01101100b
+db 11000110b
+db 11111110b
+db 11000110b
+db 01101100b
+db 00111000b
+db 00000000b
+; � 234
+db 00111000b
+db 01101100b
+db 11000110b
+db 11000110b
+db 01101100b
+db 01101100b
+db 11101110b
+db 00000000b
+; � 235
+db 00011100b
+db 00110000b
+db 00011000b
+db 01111100b
+db 11001100b
+db 11001100b
+db 01111000b
+db 00000000b
+; � 236
+db 00000000b
+db 00000000b
+db 01111110b
+db 11011011b
+db 11011011b
+db 01111110b
+db 00000000b
+db 00000000b
+; � 237
+db 00000110b
+db 00001100b
+db 01111110b
+db 11011011b
+db 11011011b
+db 01111110b
+db 01100000b
+db 11000000b
+; � 238
+db 00111000b
+db 01100000b
+db 11000000b
+db 11111000b
+db 11000000b
+db 01100000b
+db 00111000b
+db 00000000b
+; � 239
+db 01111000b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 11001100b
+db 00000000b
+; � 240
+db 00000000b
+db 01111110b
+db 00000000b
+db 01111110b
+db 00000000b
+db 01111110b
+db 00000000b
+db 00000000b
+; � 241
+db 00011000b
+db 00011000b
+db 01111110b
+db 00011000b
+db 00011000b
+db 00000000b
+db 01111110b
+db 00000000b
+; � 242
+db 01100000b
+db 00110000b
+db 00011000b
+db 00110000b
+db 01100000b
+db 00000000b
+db 11111100b
+db 00000000b
+; � 243
+db 00011000b
+db 00110000b
+db 01100000b
+db 00110000b
+db 00011000b
+db 00000000b
+db 11111100b
+db 00000000b
+; � 244
+db 00001110b
+db 00011011b
+db 00011011b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+; � 245
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 00011000b
+db 11011000b
+db 11011000b
+db 01110000b
+; � 246
+db 00011000b
+db 00011000b
+db 00000000b
+db 01111110b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+; � 247
+db 00000000b
+db 01110110b
+db 11011100b
+db 00000000b
+db 01110110b
+db 11011100b
+db 00000000b
+db 00000000b
+; � 248
+db 00111000b
+db 01101100b
+db 01101100b
+db 00111000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 249
+db 00000000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00011000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 250
+db 00000000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 00011000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 251
+db 00001111b
+db 00001100b
+db 00001100b
+db 00001100b
+db 11101100b
+db 01101100b
+db 00111100b
+db 00011100b
+; � 252
+db 01011000b
+db 01101100b
+db 01101100b
+db 01101100b
+db 01101100b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 253
+db 01110000b
+db 10011000b
+db 00110000b
+db 01100000b
+db 11111000b
+db 00000000b
+db 00000000b
+db 00000000b
+; � 254
+db 00000000b
+db 00000000b
+db 00111100b
+db 00111100b
+db 00111100b
+db 00111100b
+db 00000000b
+db 00000000b
+; � 255
+db 10001000b
+db 00000000b
+db 00000000b
+db 00000000b
+db 10000000b
+db 00000000b
+db 00000000b
+db 00000000b
diff --git a/util/5th2src.bas b/util/5th2src.bas
new file mode 100755
index 0000000..b147cc1
--- /dev/null
+++ b/util/5th2src.bas
@@ -0,0 +1,53 @@
+DECLARE SUB getline (a$)
+DECLARE SUB start ()
+DIM SHARED byte AS STRING * 1
+DIM SHARED endf
+
+start
+
+OPEN COMMAND$ + ".5th" FOR BINARY AS #1
+OPEN COMMAND$ + ".src" FOR OUTPUT AS #2
+
+1
+getline a$
+IF endf = 1 THEN GOTO 2
+PRINT #2, a$
+GOTO 1
+2
+
+CLOSE #2
+CLOSE #1
+
+SYSTEM
+
+SUB getline (a$)
+
+a$ = ""
+3
+IF EOF(1) <> 0 THEN endf = 1: GOTO 4
+GET #1, , byte
+IF ASC(byte) <= 9 THEN
+  byte = CHR$(48 + ASC(byte))
+END IF
+IF ASC(byte) <= 15 THEN
+  byte = CHR$(65 + ASC(byte) - 10)
+END IF
+IF ASC(byte) = 255 THEN
+  byte = " "
+END IF
+IF ASC(byte) = 253 THEN
+  byte = CHR$(9)
+END IF
+
+IF byte = CHR$(254) THEN GOTO 4
+a$ = a$ + byte
+GOTO 3
+4
+
+END SUB
+
+SUB start
+endf = 0
+IF COMMAND$ = "" THEN END
+END SUB
+
diff --git a/util/editor.bas b/util/editor.bas
new file mode 100755
index 0000000..313b6e8
--- /dev/null
+++ b/util/editor.bas
@@ -0,0 +1,395 @@
+' Disk file editor for FIFTH
+' Svjatoslav Agejenko: n0@hot.ee
+
+DECLARE SUB fdisp ()
+DECLARE SUB fopen (a$)
+DECLARE SUB ask (a$, b$)
+DECLARE SUB addk (a$)
+DECLARE SUB llen (a%, l%)
+DECLARE SUB save (a%)
+DECLARE SUB disp ()
+DEFINT A-Z
+
+DECLARE SUB load (a)
+DECLARE SUB start ()
+DECLARE SUB edit ()
+DIM SHARED buf(0 TO 31, 0 TO 31)
+DIM SHARED obuf(0 TO 31, 0 TO 31)
+DIM SHARED byte AS STRING * 1
+DIM SHARED font(0 TO 20, 0 TO 255)
+DIM SHARED eb
+DIM SHARED keys(0 TO 10000)
+DIM SHARED keyl, keyc
+DIM SHARED curx, cury
+DIM SHARED fil$(0 TO 1000)
+DIM SHARED fline, froll
+DIM SHARED filename$
+
+start
+
+OPEN "..\..\disk.raw" FOR BINARY AS #1
+
+edit
+
+CLOSE #1
+SYSTEM
+
+SUB addk (a$)
+keys(keyl) = ASC(a$)
+keyl = keyl + 1
+IF keyl > 10000 THEN keyl = 0
+END SUB
+
+SUB ask (a$, b$)
+LOCATE 16, 34
+PRINT SPACE$(46)
+LOCATE 16, 34
+COLOR 15
+PRINT a$
+COLOR 10
+LOCATE 16, 34 + LEN(a$)
+INPUT "", b$
+LOCATE 16, 34
+PRINT SPACE$(46)
+COLOR 15
+END SUB
+
+SUB disp
+
+FOR y = 0 TO 31
+FOR x = 0 TO 31
+c = buf(x, y)
+IF c <> obuf(x, y) THEN
+  PUT (x * 8, y * 8), font(0, c), PSET
+  obuf(x, y) = c
+END IF
+NEXT x
+NEXT y
+
+x1 = curx * 8
+y1 = cury * 8
+FOR y = y1 TO y1 + 7
+FOR x = x1 TO x1 + 7
+c = POINT(x, y)
+IF c = 15 THEN c = 0 ELSE c = 10
+PSET (x, y), c
+NEXT x
+NEXT y
+obuf(curx, cury) = -1
+
+LOCATE 1, 77
+PRINT "   "
+LOCATE 1, 76
+PRINT buf(curx, cury)
+END SUB
+
+SUB edit
+fdisp
+leb = -1
+m = 0
+1
+IF eb <> leb THEN
+  IF m = 1 THEN
+    save leb
+    m = 0
+  END IF
+  load eb
+  leb = eb
+  LOCATE 1, 60
+  PRINT "page:"; eb; " "
+END IF
+disp
+2
+a$ = INKEY$
+bk = 0
+IF a$ = "" THEN
+  IF keyl = keyc THEN GOTO 2
+  a$ = CHR$(keys(keyc))
+  keyc = keyc + 1
+  IF keyc > 10000 THEN keyc = 0
+  bk = 1
+END IF
+
+IF a$ = CHR$(0) + CHR$(73) THEN eb = eb - 1
+IF a$ = CHR$(0) + CHR$(81) THEN eb = eb + 1
+IF a$ = CHR$(27) THEN GOTO 4
+IF a$ = CHR$(0) + "M" THEN curx = curx + 1
+IF a$ = CHR$(0) + "K" THEN curx = curx - 1
+IF a$ = CHR$(0) + "P" THEN cury = cury + 1
+IF a$ = CHR$(0) + "H" THEN cury = cury - 1
+IF a$ = CHR$(0) + "=" THEN ask "page: ", b$: eb = VAL(b$)
+IF a$ = CHR$(0) + "?" THEN ask "file: ", b$: fopen b$
+IF a$ = CHR$(0) + CHR$(132) THEN fline = fline - 1: fdisp
+IF a$ = CHR$(0) + CHR$(118) THEN fline = fline + 1: fdisp
+IF a$ = CHR$(0) + CHR$(64) THEN         ' F6
+  d = 0
+  FOR b = 1 TO LEN(fil$(fline))
+    c$ = RIGHT$(LEFT$(fil$(fline), b), 1)
+    IF c$ = CHR$(9) THEN c$ = " "
+    IF c$ = " " OR c$ = CHR$(255) THEN d = d + 1 ELSE d = 0
+    IF d < 2 THEN addk c$
+  NEXT b
+END IF
+
+IF a$ = CHR$(0) + ";" THEN
+  FOR y = 0 TO 31
+    FOR x = 0 TO 31
+      buf(x, y) = 255
+    NEXT x
+  NEXT y
+  m = 1
+END IF
+
+IF a$ = CHR$(0) + CHR$(83) THEN
+  FOR b = curx TO 30
+    buf(b, cury) = buf(b + 1, cury)
+  NEXT b
+  buf(31, cury) = 255
+  m = 1
+END IF
+
+IF (a$ = CHR$(13)) AND (bk = 0) THEN
+a$ = ""
+IF cury < 31 THEN
+  FOR a = 31 TO cury + 2 STEP -1
+    FOR b = 0 TO 31
+      buf(b, a) = buf(b, a - 1)
+    NEXT b
+  NEXT a
+  FOR a = 0 TO 31
+    buf(a, cury + 1) = 255
+  NEXT a
+  FOR a = curx TO 31
+    SWAP buf(a, cury), buf(a - curx, cury + 1)
+  NEXT a
+  m = 1
+  cury = cury + 1
+  curx = 0
+END IF
+END IF
+
+IF LEN(a$) = 1 THEN
+  IF ASC(a$) = 32 THEN a$ = CHR$(255)
+  IF (a$ = CHR$(8)) AND (bk = 0) THEN
+    a$ = ""
+    IF curx > 0 THEN
+      FOR b = curx - 1 TO 30
+	buf(b, cury) = buf(b + 1, cury)
+      NEXT b
+      buf(31, cury) = 255
+      curx = curx - 1
+      m = 1
+    ELSE
+      IF cury > 0 THEN
+	llen cury - 1, a
+	curx = a
+	FOR b = a TO 31
+	  buf(b, cury - 1) = buf(b - a, cury)
+	NEXT b
+	FOR a = cury TO 30
+	  FOR b = 0 TO 31
+	    buf(b, a) = buf(b, a + 1)
+	  NEXT b
+	NEXT a
+	FOR b = 0 TO 31
+	  buf(b, 31) = 255
+	NEXT b
+	m = 1
+	cury = cury - 1
+      END IF
+    END IF
+  END IF
+END IF
+
+IF a$ = CHR$(0) + "<" THEN
+ask "decimal number:", b$
+b$ = HEX$(VAL(b$))
+FOR a = 1 TO LEN(b$)
+  c = ASC(RIGHT$(LEFT$(b$, a), 1))
+  IF (c <= 57) AND (c >= 48) THEN d$ = CHR$(c - 48): addk d$
+  IF (c <= 70) AND (c >= 65) THEN d$ = CHR$(c - 55): addk d$
+NEXT a
+END IF
+
+IF a$ = CHR$(0) + CHR$(65) THEN
+FOR a = 999 TO fline STEP -1
+  fil$(a + 1) = fil$(a)
+NEXT a
+fil$(fline) = ""
+FOR a = curx TO 31
+  fil$(fline) = fil$(fline) + CHR$(buf(a, cury))
+NEXT a
+fdisp
+END IF
+
+IF a$ = CHR$(0) + ">" THEN
+ask "ascii code:", b$
+a$ = CHR$(VAL(b$))
+END IF
+
+IF LEN(a$) = 1 THEN
+    FOR b = 31 TO curx + 1 STEP -1
+      buf(b, cury) = buf(b - 1, cury)
+    NEXT b
+    buf(curx, cury) = ASC(a$)
+    curx = curx + 1
+    m = 1
+END IF
+
+IF eb < 0 THEN eb = 0
+IF curx < 0 THEN curx = 0
+IF cury < 0 THEN cury = 0
+IF curx > 31 THEN curx = 31
+IF cury > 31 THEN cury = 31
+GOTO 1
+4
+
+END SUB
+
+SUB fdisp
+IF fline < 0 THEN fline = 0
+IF fline > 1000 THEN fline = 1000
+IF fline - froll > 10 THEN froll = fline - 10
+IF fline - froll < 0 THEN froll = fline
+IF froll < 0 THEN froll = 0
+
+LOCATE 17, 1
+PRINT SPACE$(80)
+LOCATE 17, 1
+PRINT "file: " + filename$
+
+LOCATE 17, 20
+PRINT "line:"; fline
+
+FOR a = 0 TO 10
+  LOCATE a + 18, 1
+  IF a + froll = fline THEN
+    COLOR 10
+    IF fil$(a + froll) = SPACE$(LEN(fil$(a + froll))) THEN
+      FOR b = 1 TO 80
+	PRINT CHR$(219);
+      NEXT b
+      GOTO 7
+    END IF
+  ELSE
+    COLOR 12
+  END IF
+  PRINT fil$(a + froll) + SPACE$(80 - LEN(fil$(a + froll)));
+7
+NEXT a
+
+COLOR 15
+END SUB
+
+SUB fopen (a$)
+filename$ = a$
+FOR b = 0 TO 1000
+  fil$(b) = ""
+NEXT b
+
+b = 0
+OPEN filename$ FOR INPUT AS #2
+5
+IF EOF(2) <> 0 THEN GOTO 6
+LINE INPUT #2, c$
+fil$(b) = c$
+b = b + 1
+IF b > 1000 THEN GOTO 6
+GOTO 5
+6
+CLOSE #2
+
+fline = 0
+froll = 0
+fdisp
+END SUB
+
+SUB llen (a, l)
+FOR b = 31 TO 0 STEP -1
+IF buf(b, a) <> 255 THEN l = b + 1: GOTO 3
+NEXT b
+l = 0
+3
+END SUB
+
+SUB load (a)
+DIM c AS LONG
+DIM a1 AS LONG
+a1 = a
+c = a1 * 1024
+SEEK #1, c + 1
+FOR y = 0 TO 31
+  FOR x = 0 TO 31
+    GET #1, , byte
+    buf(x, y) = ASC(byte)
+  NEXT x
+NEXT y
+END SUB
+
+SUB save (a)
+DIM c AS LONG
+DIM a1 AS LONG
+a1 = a
+c = a1 * 1024
+SEEK #1, c + 1
+FOR y = 0 TO 31
+  FOR x = 0 TO 31
+    byte = CHR$(buf(x, y))
+    PUT #1, , byte
+  NEXT x
+NEXT y
+SOUND 5000, .1
+END SUB
+
+SUB start
+SCREEN 12
+COLOR 15
+eb = 7
+
+filename$ = "<noname>"
+fline = 0
+froll = 0
+keyl = 0
+keyc = 0
+
+OPEN "font.dat" FOR BINARY AS #1
+FOR f = 0 TO 255
+FOR y = 0 TO 7
+GET #1, , byte
+n = ASC(byte)
+b = 128
+FOR a = 0 TO 7
+IF n >= b THEN n = n - b: c = 15 ELSE c = 0
+b = b / 2
+PSET (a, y), c
+NEXT a
+NEXT y
+GET (0, 0)-(7, 7), font(0, f)
+NEXT f
+CLOSE #1
+
+FOR y = 0 TO 31
+FOR x = 0 TO 31
+obuf(x, y) = -1
+NEXT x
+NEXT y
+
+LOCATE 1, 34
+PRINT "F1 - clear page"
+LOCATE 2, 34
+PRINT "F2 - enter decimal number"
+LOCATE 3, 34
+PRINT "F3 - goto page"
+LOCATE 4, 34
+PRINT "F4 - enter character code"
+LOCATE 5, 34
+PRINT "F5 - load source file"
+LOCATE 6, 34
+PRINT "F6 - insert line from source file"
+LOCATE 7, 34
+PRINT "F7 - copy line to source file"
+
+LOCATE 1, 71
+PRINT "code:"
+END SUB
+
diff --git a/util/font.dat b/util/font.dat
new file mode 100755
index 0000000000000000000000000000000000000000..980f716caf02d52de1a8efb37f02d3147d953c2d
GIT binary patch
literal 2048
zcma)7KWigL6n{9NYLQ(INZ61nRT%Dqyd;bKDFP`6-!U9yLR5)`ENjOc;fj2K`wXd5
zq+DWHQVhP%F-RCyBE{X|N?yV+%I`P3zB*6Zee?dz`#1C6isWD9A`+_}AB^T-&PN9l
z>mCc`RqW-!NnV4d9Qd;7{^^=aiJ`|=ZTuM9D~YkkNgkk2IdGCk(3AsTZo1fQF6Cf6
zkMr??sG?S?E|evRm5bHtr^#d@^B1{u`7Z&XN?q4U4{H0QuaqbNXc3jg3`n$zM*j~?
zg8)?&v?9*AL^~JpbE4{|8U+|^z0$Uo+~v!)Uy9Zy=_zfD(Ms?rtVL|GFDyg|2L^k9
z1dDp0D3ehJZPcy0x!-NuO7ublf|NeXjqh>hOPLnV$Lv@_(`BS{({vs<co@(c`ksH{
zDpQMOoA!rC(+lIHdj^0tJxgJ;lyBAE->)0^hk@X|1Zyj61LRH9*g`sob8wx+^H=4o
zbDSHoc}Vgb`?dJA%}dGfbt%Ug!bCh<>q=+0@__Q3+bAtg`?hVR-R|yhfOFTjt;>@?
z1A7(7+iIL>?yK5OIYwQ=@4a340R;Mkc`Z<HZ=(ZtG(|o_C?&SPs%P+5!mlx<F!>Dk
zx#R^=r5r)~(>aLjb*c?HWme%_H^w0UHEG`<k7))r_@qOF`n#7%=>hbT74J62EiK~J
zvPk)7+<{m&h6UIrF5?pMD8Mc7AIu=xW1U3Ss5lKKd&i)c=gEH6ET)|t>7eyjJU?z@
z96-n)7c%7!%mVa$#3K^k>X$*LT5q(T;u@sh5E5X?lBp3`h&H0mO<QH7N<0lOWjf?p
z|6Gjb_8YK=x(pb(q&f+AmRSxxTbqJ<sXm(l`=K7yRgMq}*$i}hRJ9T3m9B2^@E1&J
z*wz=>g};zFuDka)Qoe>E)`y0PX&4y%z7CrKGj8O4tqN<=|0xaVq5YZ$9hlB*%X?Fz
zl0kRg|J%N6ug4RGhQC`N-;_^2#Fq*{f78K!mkvx|;eA+pDV&?LkvNT{LYu*pMxOve
z(-29>GLDP8+4q0GKD=)I>hy<qpHUAZM&!Bm_BpihwzvkLzv+M9{?`9iyVZ}Y`tJ`Y
z+9&AJs#C->zzz=`#e|>uyAk<M0O>&QMiIK?6DwHhxEavfRq6z5y4WW!nt}x21P@u{
zlkWK^iBEf{e9cbvS=x7|d-^fybJyb_C!aL!%w~^?Pj5Xvn-M4ZlfSfYHltleagyY{
zUoOuE`5u^2J;nQ!7vtU!Kz%MB1~?pmJj&2_>%Z3MtI~JA!wCkD!PkI~>5uszywRM;
zn4fodcbKpIE>)(%HkL#J2Pdu;x+!v=v8$Z>i2hTU8zuLxR=6*tjMy}s-;K$6nF;+^
zhP?k=)SS<l&Oz|TWC}8#Oz5Wv1OS)#_~BU4$n52G58(yS9~KvQ4l#${yJGrX%0guE
QR-3*)1wiBtbT0Ay2RbLxEdT%j

literal 0
HcmV?d00001

diff --git a/util/fsimport.bas b/util/fsimport.bas
new file mode 100755
index 0000000..0d7e1ff
--- /dev/null
+++ b/util/fsimport.bas
@@ -0,0 +1,134 @@
+DECLARE SUB bytew (fi&, d&, addr&)
+DECLARE SUB byter (fi&, addr&, d&)
+DECLARE SUB dwordw (fi&, b&, a&)
+DEFLNG A-Z
+
+DECLARE SUB savepath ()
+DECLARE SUB getson (a$)
+DECLARE SUB start ()
+
+DIM SHARED mitus, sona$(1 TO 50)
+DIM SHARED byte AS STRING * 1
+DIM SHARED length
+DIM SHARED srcfile$
+
+start
+
+OPEN "..\disk.raw" FOR BINARY AS #1
+savepath
+SEEK #1, 2000101
+OPEN srcfile$ FOR BINARY AS #2
+2
+IF EOF(2) <> 0 THEN GOTO 1
+GET #2, , byte
+length = length + 1
+PUT #1, , byte
+GOTO 2
+1
+CLOSE #2
+dwordw 1, length - 1, 2000000
+CLOSE #1
+
+SYSTEM
+
+SUB byter (fi, addr, d)
+SEEK #1, addr + 1
+GET fi, , byte
+d = ASC(byte)
+END SUB
+
+SUB bytew (fi, d, addr)
+SEEK #1, addr + 1
+byte = CHR$(d)
+PUT #1, , byte
+END SUB
+
+SUB dwordr (fi, a, f)
+byter fi, a, b
+byter fi, a + 1, c
+byter fi, a + 2, d
+byter fi, a + 3, e
+f = e * 16777216
+f = f + d * 65536 + c * 256 + b
+END SUB
+
+SUB dwordw (fi, b, a)
+c = b
+d = c \ 16777216
+c = c - (d * 16777216)
+
+e = c \ 65536
+c = c - (e * 65536)
+
+f = c \ 256
+c = c - (f * 256)
+
+bytew fi, c, a
+bytew fi, f, a + 1
+bytew fi, e, a + 2
+bytew fi, d, a + 3
+END SUB
+
+DEFSNG A-Z
+SUB getson (a$)
+mitus = 0
+
+d = 1
+FOR b = 1 TO LEN(a$)
+c$ = RIGHT$(LEFT$(a$, b), 1)
+IF c$ = " " THEN
+d = 1
+ELSE
+IF d = 1 THEN
+mitus = mitus + 1
+sona$(mitus) = ""
+d = 0
+END IF
+sona$(mitus) = sona$(mitus) + c$
+END IF
+NEXT b
+END SUB
+
+SUB savepath
+a$ = COMMAND$ + "\"
+f$ = ""
+ext$ = ""
+t$ = ""
+m = 0
+FOR b = 1 TO LEN(a$)
+  c$ = RIGHT$(LEFT$(a$, b), 1)
+  IF c$ = "." THEN m = 1: GOTO 3
+  IF c$ = "\" THEN
+    IF ext$ = "" THEN ext$ = "list"
+4   IF LEN(ext$) < 4 THEN ext$ = ext$ + "_": GOTO 4
+    t$ = t$ + ext$ + f$ + "\"
+    f$ = ""
+    ext$ = ""
+    GOTO 3
+  END IF
+  IF m = 0 THEN f$ = f$ + c$ ELSE ext$ = ext$ + c$
+3
+NEXT b
+t$ = LEFT$(t$, LEN(t$) - 1)
+
+' PRINT a$
+' PRINT t$
+
+t$ = t$ + CHR$(254)
+SEEK #1, 2000005
+PUT #1, , t$
+
+
+
+
+END SUB
+
+SUB start
+
+IF COMMAND$ = "" THEN END
+
+srcfile$ = COMMAND$
+
+
+END SUB
+
diff --git a/util/insert.bas b/util/insert.bas
new file mode 100755
index 0000000..d40265f
--- /dev/null
+++ b/util/insert.bas
@@ -0,0 +1,50 @@
+DECLARE SUB getson (a$)
+DECLARE SUB start ()
+DIM SHARED mitus, sona$(1 TO 50)
+DIM SHARED byte AS STRING * 1
+
+start
+
+OPEN sona$(1) FOR BINARY AS #1
+PRINT "Seeking to:" + sona$(3)
+SEEK #1, VAL(sona$(3)) + 1
+OPEN sona$(2) FOR BINARY AS #2
+2
+IF EOF(2) <> 0 THEN GOTO 1
+GET #2, , byte
+PUT #1, , byte
+GOTO 2
+1
+CLOSE #2
+CLOSE #1
+
+SYSTEM
+
+SUB getson (a$)
+mitus = 0
+
+d = 1
+FOR b = 1 TO LEN(a$)
+c$ = RIGHT$(LEFT$(a$, b), 1)
+IF c$ = " " THEN
+d = 1
+ELSE
+IF d = 1 THEN
+mitus = mitus + 1
+sona$(mitus) = ""
+d = 0
+END IF
+sona$(mitus) = sona$(mitus) + c$
+END IF
+NEXT b
+END SUB
+
+SUB start
+
+IF COMMAND$ = "" THEN END
+
+getson COMMAND$
+
+
+END SUB
+
diff --git a/util/src25th.bas b/util/src25th.bas
new file mode 100755
index 0000000..af0a924
--- /dev/null
+++ b/util/src25th.bas
@@ -0,0 +1,65 @@
+DECLARE SUB chl (a$, b$)
+DECLARE SUB getline (a$)
+DECLARE SUB start ()
+DIM SHARED byte AS STRING * 1
+DIM SHARED er
+
+
+start
+
+OPEN COMMAND$ + ".src" FOR INPUT AS #1
+IF er = 0 THEN KILL COMMAND$ + ".5th"
+OPEN COMMAND$ + ".5th" FOR BINARY AS #2
+
+1
+IF EOF(1) <> 0 THEN GOTO 2
+LINE INPUT #1, a$
+
+c$ = ""
+e$ = ""
+FOR b = 1 TO LEN(a$)
+d$ = RIGHT$(LEFT$(a$, b), 1)
+IF d$ = " " THEN chl e$, c$: c$ = c$ + CHR$(255): GOTO 3
+IF d$ = CHR$(9) THEN chl e$, c$: c$ = c$ + CHR$(253): GOTO 3
+e$ = e$ + d$
+3
+NEXT b
+chl e$, c$
+c$ = c$ + CHR$(254)
+FOR b = 1 TO LEN(c$)
+  byte = RIGHT$(LEFT$(c$, b), 1)
+  PUT #2, , byte
+NEXT b
+GOTO 1
+2
+
+CLOSE #2
+CLOSE #1
+
+SYSTEM
+
+
+SUB chl (a$, b$)
+
+e$ = ""
+FOR c = 1 TO LEN(a$)
+d = ASC(RIGHT$(LEFT$(a$, c), 1))
+IF (d >= 48) AND (d <= 57) THEN d = d - 48: GOTO 4
+IF (d >= 65) AND (d <= 70) THEN d = d - 55: GOTO 4
+IF (d = 45) AND (c = 1) THEN GOTO 4
+GOTO 5
+4
+e$ = e$ + CHR$(d)
+NEXT c
+a$ = e$
+5
+
+b$ = b$ + a$
+a$ = ""
+END SUB
+
+SUB start
+IF COMMAND$ = "" THEN END
+er = 0
+END SUB
+
-- 
2.20.1