Customized version of MemoText. Runs from cassette, includes universal printer driver. Customized for the Exatron stringy floppy system.
Related Products
Includes Powell Hargrave’s Super Data Save (SDS) relocated and incorporated for fast load and saves of text. Help screens and a return to BASIC are also included. Requires memory in the 8-16 K block and the Memotech parallel interface.
Gallery
Source Code
0 REM \E5\4F\21\C0\46\06\0A\7E\3C\28\0C\7A\BE\30\03\7E\81\77\23\23\23\18\F0\47\A7\79\21\BF\46\ED\42\5D\09\E5\6A\54\EB\ED\52\4D\19\D1\ED\B8\47\AF\12\1B\10\FC\E1\C9\7A\93\D5\11\E4\46\EB\66\EB\CD\70\A8\D1\C9\7B\A7\C8\7A\93\C8\CB\3F\4F\83\3C\5F\3C\32\E7\46\79\A7\C8\D5\16\00\CD\70\A8\D1\C9\E5\26\C0\CB\7F\28\02\D6\40\6F\7E\E1\CD\34\B0\C9\E5\F5\E6\7F\FE\1C\38\05\F1\C6\80\18\E4\F1\18\E1\00\E5\C5\D5\21\C0\46\7E\FE\FF\28\31\BB\20\2E\23\5E\23\56\EB\7E\23\FE\01\38\FA\28\13\D6\1C\87\87\87\87\47\7E\23\D6\1C\38\FA\80\CD\D9\A8\18\E5\21\C3\46\01\1E\00\11\C0\46\ED\B0\D1\18\C6\D1\C1\E1\C9\32\E2\46\E5\D5\21\00\46\11\00\47\01\00\01\ED\B0\D1\E1\C9\3A\E1\46\A7\C8\21\00\47\01\00\01\11\00\46\ED\B0\3A\E2\46\A7\C8\21\E5\46\34\7E\6F\36\16\C9\3A\FF\43\32\EA\46\21\42\01\22\E8\46\21\06\3C\22\EB\46\21\ED\46\AF\06\0C\77\23\10\FC\2A\FA\43\22\EE\46\AF\06\E6\21\00\46\77\23\10\FC\2E\C0\3D\06\21\77\23\10\FC\2A\E8\46\22\E6\46\3A\FD\43\32\F8\46\C9\00\00\3A\E7\46\3D\32\E4\46\3C\93\D0\ED\44\3C\47\0E\00\26\46\6B\7E\2B\A7\20\01\0C\10\F8\23\79\A7\CA\A4\A8\7A\93\47\B9\7B\30\15\00\00\48\00\3A\ED\46\CB\47\7B\28\08\7E\23\A7\20\FB\10\F9\7D\41\6F\7E\2B\A7\20\FB\78\0D\28\0D\04\0C\26\FF\05\24\91\30\FB\7C\26\46\0D\D5\C5\55\CD\70\A8\C1\D1\79\A7\20\DE\C9\00\00\ED\5B\E5\46\7B\A7\28\21\92\28\1E\3A\E3\46\A7\28\05\CD\A4\A8\18\13\3A\F0\46\A7\28\05\CD\B2\A8\18\08\3A\F8\46\FE\3E\CC\A3\A9\42\11\00\46\CD\EE\A8\13\1A\CD\CD\A8\10\F6\3E\0D\CD\45\AA\C3\81\A9\CD\8D\B3\CD\46\0F\D8\AF\18\4A\00\00\32\F8\46\47\C5\CD\06\AA\C1\2A\EC\46\24\22\EC\46\7C\BD\28\0A\05\20\02\A7\C9\CD\45\AA\18\EB\26\00\22\EC\46\3A\EB\46\A7\C8\47\CD\45\AA\10\FB\AF\C9\CD\54\AA\C0\21\EA\46\34\3A\FE\43\FE\38\20\11\3E\18\01\35\36\CD\C4\B4\B8\3E\A4\CA\F5\B8\C4\2A\0A\2A\F2\46\7C\A7\C8\E5\21\E1\46\11\00\44\01\19\00\ED\B0\21\42\01\22\E6\46\22\E8\46\21\00\01\22\F0\46\22\F5\46\E1\22\EE\46\AF\C9\00\CD\5F\A9\CD\89\AA\CD\94\B1\22\EE\46\7E\23\ED\5B\E5\46\16\46\FE\FE\38\12\3A\F5\46\A7\3E\64\CA\51\AA\AF\32\F5\46\2A\F6\46\18\DF\FE\01\28\38\30\0B\1A\A7\28\D5\32\E1\46\AF\CD\2E\A9\4F\7B\A7\20\05\3A\E7\46\5F\1D\3A\E6\46\BB\28\11\13\79\12\7B\32\E5\46\79\FE\16\3E\00\CC\A1\AB\18\AD\CD\41\A9\3E\01\CD\81\AA\18\A0\7E\23\01\D5\AA\C5\E5\21\20\C1\BE\23\23\28\04\23\23\18\F7\4E\23\46\E1\C5\C9\2A\04\40\C3\44\B6\7E\D6\1C\D8\FE\0A\3F\D8\C5\47\23\7E\D6\1C\38\0B\D6\0A\30\07\23\04\C6\0A\10\FC\47\78\C1\A7\C9\D5\E5\CD\51\AB\D1\30\03\EB\D1\C9\ED\52\EB\19\1D\28\F7\57\7E\D6\1C\3F\30\15\FE\0A\30\11\5F\7A\FE\14\3F\38\0A\87\87\87\82\82\83\A7\23\D1\C9\7A\D1\C9\22\EE\46\C3\2E\A9\7B\11\E3\46\EB\36\01\23\77\EB\C9\CD\51\AB\30\02\3E\01\A7\28\FB\F5\3E\33\22\EE\46\32\F8\46\F1\C1\C3\2D\AB\3E\64\18\EE\CD\51\AB\4F\3A\ED\46\B9\D0\79\32\EC\46\C9\CD\51\AB\32\EB\46\C9\3A\E6\46\47\7B\3C\3C\4F\CD\51\AB\3C\B9\38\01\4F\7A\B9\D8\3A\E7\46\B9\D0\79\32\E7\46\00\00\00\00\3D\32\E5\46\C9\3A\E8\46\47\CD\51\AB\3C\B8\28\01\D0\32\E9\46\4F\3A\E6\46\B9\D8\7B\A7\28\DA\3C\B9\38\D6\C9\3A\E9\46\47\3A\E7\46\4F\CD\70\AB\B8\38\03\32\E8\46\B9\D8\BB\D8\32\E6\46\C9\3A\F1\46\A7\28\1F\E1\3E\33\32\F8\46\3E\01\CD\81\AA\3A\ED\46\21\00\44\11\E1\46\01\32\00\ED\B0\32\ED\46\C3\D2\AA\22\F2\46\7E\23\3D\20\FB\7E\23\FE\2D\20\F5\3A\ED\46\A7\C0\B3\C0\3A\C0\46\3C\C0\E1\2E\D2\E5\C3\A1\AA\00\22\EE\46\3A\F0\46\EE\01\32\F0\46\28\10\CD\E2\B3\ED\5B\E5\46\5A\ED\53\E5\46\C1\C3\2B\AB\ED\5B\E5\46\CD\B2\A8\ED\53\E5\46\3A\E7\46\BA\C8\D8\18\E4\E5\7E\23\3D\20\FB\23\7E\A7\28\16\EB\C1\21\BF\46\23\7E\23\23\3C\20\F9\70\2B\71\2B\3A\E5\46\77\EB\C9\3A\E6\46\BB\20\E4\E1\C1\AF\C3\2B\AB\EB\21\00\45\7E\23\BB\20\04\7E\BA\28\05\23\23\23\18\F2\23\7E\23\66\6F\EB\7E\23\FE\1F\38\06\7E\23\FE\1C\30\FA\22\F6\46\EB\3E\01\32\F5\46\C9\00\3A\EA\46\11\21\44\EB\36\FF\2B\36\1C\2B\36\1B\2B\36\1B\34\D6\64\30\FB\C6\64\23\34\D6\0A\30\FB\C6\0A\23\86\77\2B\2B\3E\1C\BE\20\05\23\BE\20\01\23\EB\18\C2\ED\5B\E5\46\7B\BA\C8\3E\16\C3\2E\A9\23\EB\2A\F8\43\37\ED\52\EB\D0\E1\C3\07\02\CD\E7\02\CD\67\AD\18\FB\0E\01\06\00\3E\7F\DB\FE\D3\FF\1F\30\48\17\17\38\27\10\F1\F1\3E\03\BA\30\3C\21\53\44\CD\67\AD\CB\7A\79\20\03\BE\20\D4\23\17\30\F1\2A\F6\43\50\CD\67\AD\71\CD\51\AD\18\F6\D5\1E\94\06\1A\1D\DB\FE\17\CB\7B\7B\38\F5\10\F5\D1\20\04\FE\56\30\B3\3F\CB\11\30\AE\C9\CD\07\02\3E\A6\C3\0F\B0\00\3A\99\43\FE\26\20\0A\21\00\48\7E\3C\3E\A5\C2\D6\B5\CD\18\B6\FE\26\28\08\CD\D7\B8\3E\8B\C2\D6\B5\13\1A\A7\20\FB\1B\1A\C6\80\12\3A\99\43\32\53\44\21\C8\44\22\F6\43\21\CA\44\22\F8\43\CD\5F\AD\2A\04\40\25\ED\5B\96\43\D5\ED\52\ED\5B\C8\44\ED\52\3E\89\DA\D6\B5\E1\22\F6\43\19\22\F8\43\16\BE\CD\5F\AD\2A\F8\43\22\96\43\36\FF\C3\DB\B5\00\5E\37\CB\13\C8\9F\E6\05\C6\04\4F\D3\FF\06\23\10\FE\CD\46\0F\30\0C\06\1E\10\FE\0D\20\EE\A7\10\FD\18\E0\CD\07\02\3E\A6\C3\D6\B5\CD\E7\02\21\53\44\11\CB\0B\CD\46\0F\30\EA\10\FE\1B\7A\B3\20\F4\CD\33\AE\CB\7E\23\28\F8\2A\F6\43\CD\33\AE\CD\51\AD\18\F8\3A\99\43\FE\26\20\09\3A\00\48\3C\3E\8C\CA\D6\B5\21\C8\44\22\F6\43\23\23\22\F8\43\CD\18\B6\FE\26\20\09\11\00\48\D5\2A\96\43\18\11\CD\D7\B8\3E\8C\CA\D6\B5\79\E5\23\4E\23\46\09\D1\D5\E5\ED\52\22\C8\44\21\53\44\77\AF\23\BE\20\FC\2B\CB\FE\CD\5D\AE\3E\3F\32\53\44\E1\22\F8\43\E1\22\F6\43\CD\5D\AE\C3\DB\B5\00\7E\23\FE\1D\C8\FE\1E\C8\FE\35\28\0B\FE\29\28\07\3E\A7\CD\92\B4\37\C9\7E\FE\1A\20\04\3E\A8\18\F2\2B\06\0A\23\7E\FE\1A\C8\FE\1C\38\F0\FE\40\30\EC\10\F1\18\E8\06\00\7E\23\A7\28\FB\3D\20\0C\7E\FE\3A\28\16\3E\A9\CD\92\B4\37\C9\D6\1B\30\04\3E\AA\18\F3\04\FE\10\38\DF\18\F5\CB\40\C8\3E\AB\18\E5\AF\32\F2\43\2A\EB\43\01\15\00\09\E5\E1\23\7E\3C\28\67\FE\02\20\F7\E5\23\7E\EB\06\0E\21\20\C1\BE\23\28\09\23\23\23\10\F7\3E\AC\18\57\7E\EB\A7\28\DB\23\FE\08\20\10\CD\70\AB\47\3E\AD\38\45\78\A7\3E\AE\28\3F\18\C6\FE\01\20\05\CD\51\AB\18\EA\FE\02\20\07\CD\51\AB\30\B4\18\DF\FE\40\38\07\21\F2\43\AE\77\18\A7\FE\20\20\07\CD\EA\AE\38\18\18\9E\CD\1E\AF\38\11\C1\E5\18\95\3A\F2\43\A7\CA\DB\B5\E5\3E\AF\CD\92\B4\E1\2B\C3\5D\B7\00\00\00\00\21\00\48\7E\3C\3E\B0\CA\D6\B5\7E\23\4E\23\46\54\5D\09\E5\FE\29\3E\13\28\01\3D\CD\92\B4\21\83\40\01\09\00\EB\23\ED\B0\3E\A0\01\33\38\CD\C4\B4\B8\CA\DB\B5\E1\18\CD\2A\96\43\36\FF\C3\D6\B5\ED\A0\78\B1\C8\CB\76\28\F7\7E\FE\C0\20\01\3D\CB\B7\12\13\23\0B\3E\76\12\13\18\E7\18\E3\F5\DB\3F\0F\38\FB\F1\DB\2F\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\3A\9E\43\FD\96\34\FE\18\3F\D0\9F\32\9C\43\A7\C9\16\18\2A\0C\40\23\7E\FE\76\28\05\CD\DD\A8\18\F5\CD\8D\B3\15\20\EF\C9\ED\4B\32\40\79\FE\19\D0\57\18\E0\2A\0A\40\CD\D8\09\7E\FE\76\C8\46\23\4E\23\E5\C5\E1\11\E8\03\CD\BB\B0\11\64\00\CD\BB\B0\11\0A\00\CD\BB\B0\11\01\00\CD\BB\B0\AF\32\09\40\CD\DD\A8\18\0F\AF\ED\52\38\03\3C\18\F9\19\C6\30\CD\34\B0\C9\E1\5E\23\56\23\1B\7A\B3\20\0A\CD\8D\B3\CD\46\0F\D0\23\18\B1\7E\FE\7E\20\0C\23\23\23\23\23\1B\1B\1B\1B\1B\18\DF\F5\E6\7F\FE\40\30\0B\F1\CD\DD\A8\3E\01\32\09\40\18\CD\3A\09\40\A7\28\09\AF\32\09\40\CD\DD\A8\18\04\3C\32\09\40\F1\CD\75\09\0A\F5\E6\7F\FE\0F\20\02\3E\92\CD\DD\A8\03\F1\FE\80\38\ED\AF\32\09\40\CD\DD\A8\18\9A\ED\4B\32\40\79\C6\A0\47\ED\5B\10\40\EB\7E\B8\28\16\C6\80\20\02\CF\01\B8\28\07\C5\CD\F2\09\C1\18\EB\23\5E\23\56\18\0D\23\5E\23\56\23\1B\46\23\23\1B\1B\10\FA\23\7A\B3\20\04\CD\8D\B3\C9\7E\FE\76\20\05\CD\8D\B3\18\03\CD\CD\A8\1B\18\E7\21\CD\A8\18\08\21\DD\A8\18\03\21\34\B0\22\7C\B1\18\A1\00\2A\EE\46\CD\23\0F\C3\4E\B0\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\11\9E\40\21\E0\C3\01\D6\02\ED\B0\ED\5B\96\43\2A\04\40\25\25\23\23\AF\ED\52\CD\9A\B2\C3\D9\AF\00\E5\01\16\01\CD\F5\08\E1\E5\1E\03\01\F0\D8\CD\E1\07\CD\AD\0A\C9\00\21\D9\C9\22\8A\B3\3E\00\32\8C\B3\CD\2A\0A\CD\2B\0F\C9\00\00\E5\D5\C5\F5\21\D9\C9\01\00\19\00\00\7E\81\4F\23\10\FA\FE\36\20\68\CD\50\B3\2A\0C\40\E5\2A\8A\B3\00\11\00\5D\01\18\03\ED\B0\21\00\5D\36\76\22\0C\40\3E\08\06\FF\10\FE\3D\20\F9\CD\46\0F\30\38\CD\BB\02\11\21\00\7D\FE\EF\28\02\18\EE\7C\FE\DF\28\06\FE\EF\28\0D\18\E3\CD\48\B3\FE\C0\28\DC\3C\19\18\0D\CD\48\B3\FE\00\28\D1\3D\F5\AF\ED\52\F1\32\8C\B3\22\8A\B3\18\AA\E1\22\0C\40\CD\50\B3\F1\C1\D1\C9\00\00\3A\8C\B3\2A\8A\B3\C9\00\21\C0\C6\11\00\5D\01\19\03\7E\F5\1A\77\F1\12\23\13\0B\78\B1\C8\18\F2\2A\96\43\23\CD\9D\14\C3\13\04\3E\05\21\A5\43\CD\26\B6\3E\06\21\C6\43\CD\26\B6\C9\CD\71\B3\C3\DB\B5\00\00\D9\C9\00\3E\0D\CD\34\B0\3E\0A\CD\34\B0\C9\21\00\30\7E\FE\C3\20\27\23\7E\FE\11\20\21\23\7E\FE\3A\20\1B\CD\23\0F\2A\96\43\23\CD\9D\14\FD\36\2E\00\21\DB\B5\22\7B\40\21\7B\40\22\02\40\C3\1B\33\3E\B1\CD\92\B4\C3\DE\B5\00\CD\AD\14\E5\D1\13\01\00\10\36\00\ED\B0\C9\00\00\7B\A7\C0\C1\3A\E7\46\32\E5\46\C9\96\28\04\FE\FE\38\04\C1\C3\00\B4\3A\34\40\77\7B\3C\C9\FF\CD\BB\02\E5\CB\84\ED\4B\9B\43\A7\ED\42\D1\21\9D\43\3A\34\40\20\15\C6\06\CB\46\20\02\C6\18\23\96\17\30\DD\2B\CB\C6\3A\34\40\18\02\CB\86\23\CD\ED\B3\42\4B\C5\CB\80\ED\43\9B\43\C1\28\C3\C5\CB\80\CD\5A\B9\C1\50\5E\D5\CB\C0\CD\BD\07\D1\7E\21\9D\43\CB\4E\20\2C\CB\42\C0\CD\CE\14\30\03\C6\80\C9\A7\C8\D6\1C\FE\01\C8\FE\03\C8\7B\FE\1A\C8\FE\77\C8\FE\79\20\03\CB\CE\C9\FE\70\38\84\FE\74\30\80\C9\7B\FE\79\28\09\FE\1B\30\F4\17\CB\1A\3F\1F\CB\8E\C9\C5\E5\D5\CD\7E\B6\21\8E\40\CB\7F\28\01\09\41\2B\36\00\10\FB\E6\3F\EB\47\21\60\C1\3E\76\BE\23\20\FC\10\FA\7E\FE\76\28\04\ED\A0\18\F7\D1\E1\C1\AF\3D\C9\CD\92\B4\E5\D5\21\9D\43\36\00\C5\CD\00\B4\C1\B8\28\03\B9\20\F0\D1\E1\C9\F5\3E\73\06\00\95\28\07\4F\54\5D\23\ED\B0\2B\70\F1\C9\21\54\44\ED\5B\E9\43\01\20\00\ED\B0\C9\11\54\54\ED\53\9F\43\CD\EE\B4\CD\00\B4\21\FE\B4\E5\ED\5B\9F\43\26\44\6B\47\3A\E8\43\4F\78\FE\72\20\0C\7B\FE\54\C8\1D\46\2B\7E\70\23\77\C9\FE\73\20\07\7B\BA\C8\1C\23\18\EE\FE\77\20\0D\7B\FE\54\C8\1D\15\2B\D5\CD\DC\B4\D1\C9\FE\76\20\10\0D\28\07\CD\DC\B4\D1\C3\EE\B4\7A\FE\54\C8\18\F3\CB\49\28\0A\0D\FE\79\20\11\7E\EE\88\77\C9\AF\32\9D\43\4F\78\FE\1C\D8\FE\40\D0\CB\77\28\05\CB\41\C0\18\D0\A7\20\14\7B\FE\54\C8\BA\28\08\23\1C\7E\A7\28\96\1D\2B\2B\7E\A7\C8\23\FE\03\C8\30\02\B9\C0\3E\73\BA\C8\14\1C\D5\5F\54\70\23\95\28\07\4F\6B\2B\06\00\ED\B8\3E\08\12\D1\C9\06\01\26\06\21\E8\43\70\21\54\43\22\E9\43\24\E5\01\00\1F\36\08\23\71\10\FC\CD\92\B4\CD\FB\B4\E1\C9\00\CD\92\B4\18\03\CD\B0\B2\ED\7B\04\40\3E\03\CD\B4\B5\11\80\C0\06\17\0E\03\2E\54\1A\BE\13\23\28\0C\7B\81\3C\5F\10\F0\3E\84\18\D6\00\00\0D\20\EB\EB\4E\23\46\C5\01\03\00\11\9A\43\2B\2B\ED\B8\C3\2A\0A\00\CD\2A\0A\3E\02\CD\B4\B5\3A\99\43\EB\C9\00\E5\CD\B5\B5\D1\01\20\00\ED\B0\06\20\1B\1A\A7\20\07\10\F9\3E\FF\12\C9\13\13\18\F8\21\6E\A4\22\04\40\F9\CD\23\0F\21\7D\40\22\0C\40\06\19\36\76\23\10\FB\22\10\40\CD\9A\14\CD\D2\B3\CD\2A\0A\CD\2B\0F\3E\07\01\76\00\CD\C4\B4\CD\71\B3\C3\A2\B9\00\00\00\00\00\00\00\00\00\F5\CD\2B\0F\01\10\00\F1\C9\2A\A3\43\7E\3C\28\0A\FE\C1\20\01\35\CB\B6\23\18\F2\21\C0\40\0E\16\AF\06\20\77\23\10\FC\36\76\23\0D\20\F4\C3\A8\B8\00\16\14\CD\20\BE\15\20\FA\C3\60\B7\EB\21\23\41\3E\06\01\43\20\36\00\23\10\FB\09\3D\20\F4\EB\C9\2A\A3\43\0E\15\18\0E\FE\FF\28\34\FE\C0\20\01\3D\CB\B7\77\18\09\16\00\06\1F\7E\CB\77\20\E9\A7\20\02\54\5D\23\10\F3\EB\7C\A7\20\06\EB\86\20\01\2B\2B\CB\F6\7E\3C\20\02\36\C0\23\AF\0D\20\D7\2B\23\EB\2A\9F\43\ED\52\38\08\CD\20\BE\EB\0E\01\18\C5\0C\C5\19\3C\20\01\1B\A7\EB\ED\52\44\4D\2A\A3\43\C5\EB\D9\2A\9B\43\ED\4B\25\40\ED\42\D9\C4\57\B0\ED\52\44\4D\21\C0\40\EB\CD\19\B0\3A\EF\43\12\13\C1\CD\19\B0\EB\C1\36\76\23\0D\20\FA\C9\32\E8\43\CD\8C\B8\2A\A3\43\22\9F\43\3E\08\32\EF\43\CD\CD\B6\CD\00\B4\21\6B\B7\E5\2A\9F\43\ED\5B\A3\43\A7\ED\52\44\4D\19\FE\76\C8\FE\79\20\09\3A\EF\43\EE\88\32\EF\43\C9\FE\77\20\15\78\B1\C8\13\ED\53\A3\43\0B\78\B1\C8\2B\54\5D\2B\ED\B8\00\00\C9\FE\72\20\0B\78\B1\CC\05\B9\C8\2B\22\9F\43\C9\FE\73\20\09\7E\FE\FF\C8\23\22\9F\43\C9\FE\70\20\26\78\B1\20\0B\CD\05\B9\C8\2A\A3\43\22\9F\43\C9\2B\7E\0B\CB\77\28\EA\78\B1\28\08\2B\7E\0B\CB\77\28\F5\23\22\9F\43\C9\FE\71\20\0B\7E\23\FE\FF\C8\CB\77\28\F7\18\ED\A7\20\14\78\B1\C8\2B\7E\A7\C8\FE\40\C8\23\7E\FE\40\28\D9\A7\28\D6\AF\FE\01\20\08\3A\E8\43\FE\03\C0\3E\01\FE\03\20\36\32\EF\43\CD\CD\B6\CD\00\B4\FE\03\20\06\3E\08\32\EF\43\C9\FE\36\28\09\47\3A\E8\43\FE\02\28\E4\78\06\07\21\00\C1\BE\23\28\06\23\23\10\F8\18\D4\4E\23\46\E1\C5\18\D7\CD\38\B9\1B\ED\53\A3\43\67\78\B1\7C\28\05\62\6B\23\ED\B0\12\18\C1\CD\87\B6\3A\E8\43\18\0C\CD\18\B6\CD\D7\B8\C0\3E\8C\C3\D6\B5\0F\D0\C3\4A\AF\22\A1\43\ED\5B\96\43\D5\EB\A7\ED\52\44\4D\ED\5B\04\40\15\E1\ED\B8\EB\23\22\A3\43\C9\2A\04\40\25\ED\5B\A3\43\A7\ED\52\23\44\4D\2A\A1\43\23\EB\ED\B0\2A\96\43\EB\2B\22\96\43\ED\52\EB\2A\EB\43\23\4E\23\46\EB\09\EB\72\2B\73\C9\00\21\00\48\0E\09\4F\7E\3C\C8\79\BE\23\4E\23\46\20\F3\4F\23\CD\40\BC\2B\2B\79\20\F1\2B\A7\C9\2A\F8\43\22\96\43\36\FF\F5\CD\2A\0A\F1\C3\D6\B5\E5\2A\A1\43\7E\3C\28\27\E5\01\00\00\04\2B\7E\3C\FE\02\30\04\48\A7\28\09\78\FE\1F\20\EF\AF\B9\28\F3\47\3C\E1\1B\ED\B8\13\ED\53\A3\43\22\A1\43\E1\C9\A7\C9\F5\2A\A1\43\EB\A7\ED\52\7C\19\EB\26\8A\A7\28\05\25\3D\28\01\25\F1\6F\7C\CD\92\B4\7C\FE\8A\7D\D8\E1\C9\CB\C0\3E\FE\B8\28\08\07\38\FA\E1\C1\C3\00\B4\CB\80\3E\FE\B9\CA\BD\07\07\38\F9\18\EE\CD\7B\B8\22\EB\43\3E\93\CD\92\B4\CD\8D\B9\1E\93\0E\09\ED\B0\C3\5A\B7\3E\12\CD\92\B4\11\83\40\23\23\23\01\09\00\ED\B0\3E\03\C9\37\00\21\00\48\36\FF\22\96\43\C3\DB\B5\CD\18\B6\CD\D7\B8\3E\8B\C2\D6\B5\71\E5\23\36\15\23\36\00\23\01\09\00\EB\ED\B0\EB\D1\23\23\C9\E5\CD\2A\0A\06\00\3E\10\CD\B8\B5\D1\01\09\00\ED\B0\C9\CD\AD\B9\D5\2B\2B\CD\CC\B9\0D\EB\71\23\71\23\71\22\96\43\E1\18\85\CD\7B\B8\23\23\23\E5\3E\14\CD\B4\B5\18\D5\CD\AD\B9\2B\2B\E5\0E\36\09\05\70\23\70\23\70\22\96\43\3E\42\13\12\D1\3E\0D\CD\92\B4\01\1D\06\21\84\40\71\C5\D5\3E\88\CD\B4\B5\D1\01\09\00\ED\B0\C1\0C\10\EB\C3\DB\B5\CD\7B\B8\01\0C\00\09\EB\18\D6\22\F0\43\7E\FE\FF\3E\8E\CA\92\B4\11\43\41\06\06\C5\06\20\AF\1B\12\10\FC\0E\83\7E\FE\FE\28\04\ED\A0\18\F7\23\EB\09\EB\C1\10\E6\C9\7E\3C\C8\54\5D\06\06\7E\23\FE\FE\20\FA\10\F8\7C\A7\7E\EB\C9\CD\6E\BA\C8\E5\2A\96\43\ED\52\23\44\4D\E1\E5\CD\BA\B8\E1\7C\A7\C9\22\EB\43\01\0C\00\09\E5\CD\2A\0A\E1\3E\06\11\02\41\01\09\00\ED\B0\0E\5A\EB\09\EB\3D\20\F3\23\C9\F3\23\CD\43\BA\3E\0F\CD\92\B4\21\BD\BA\E5\21\9D\43\36\00\CD\00\B4\FE\26\38\F4\FE\2A\38\13\FE\2B\28\0F\FE\33\28\0B\FE\35\28\07\FE\36\20\E0\C3\DB\B5\21\85\40\77\3E\88\CD\92\B4\7E\2A\F0\43\FE\33\20\13\CD\6E\BA\EB\3E\8E\CA\92\B4\7E\3C\3E\8E\CA\92\B4\C3\43\BA\FE\2B\20\0A\01\43\00\2A\EB\43\09\C3\43\BA\FE\35\20\16\2B\7E\3C\3E\8E\CA\92\B4\06\06\2B\7E\FE\FE\38\FA\10\F8\23\C3\43\BA\FE\29\20\0E\CD\B9\B6\CD\82\BA\2B\7E\3C\20\E3\23\18\EB\E5\47\2A\04\40\25\25\ED\5B\96\43\ED\52\3E\8A\E1\DA\92\B4\78\FE\26\20\0A\CD\82\BA\3E\8E\CA\92\B4\18\0B\FE\27\CC\B9\B6\CD\6E\BA\28\01\EB\3E\03\32\E8\43\22\F0\43\21\23\41\22\E9\43\3E\08\11\54\44\12\13\01\1F\00\ED\B0\1B\21\54\74\1A\1B\25\A7\28\FA\EB\CD\FE\B4\FE\76\28\21\01\63\00\2A\E9\43\FE\70\7D\20\0C\FE\23\20\03\21\75\43\A7\ED\42\18\C8\FE\12\20\03\21\C0\40\09\18\BE\0E\06\21\31\43\11\FF\44\3E\FE\12\1B\06\1F\2B\7E\A7\20\05\10\F9\2B\18\07\79\48\06\00\ED\B8\4F\79\0E\43\A7\ED\42\4F\0D\20\DF\7B\2F\4F\2A\96\43\E5\E5\09\22\96\43\EB\E1\ED\4B\F0\43\ED\42\44\4D\03\E1\ED\B8\21\FF\44\4F\ED\B8\4F\2A\EB\43\23\5E\23\56\EB\09\EB\72\2B\73\C9\21\54\44\22\EB\43\CD\7B\B8\E5\23\4E\23\46\09\EB\E1\CD\86\BA\C3\DB\B5\CD\F4\B9\C3\DB\B5\CD\F4\B9\EB\CD\CC\B9\C3\DB\B5\E5\D5\06\09\1A\FE\1C\30\03\AF\06\01\BE\20\04\23\13\10\F1\D1\E1\C9\11\00\45\2A\FA\43\ED\53\F6\43\7E\23\3C\C8\FE\02\20\F8\7E\FE\38\20\F3\23\18\0F\EB\2A\F6\43\73\23\72\23\71\23\70\23\EB\18\DD\00\7E\11\70\BC\D5\01\A5\43\FE\1D\C8\0E\C6\FE\1E\C8\E5\23\FE\29\20\34\ED\5B\F2\43\7A\A7\28\2C\00\0E\06\EB\CD\40\BC\28\0E\79\01\09\00\09\4F\0D\20\F2\3E\99\C3\F5\B8\3E\06\91\ED\4B\F4\43\57\E1\A7\C8\0A\03\FE\FE\20\FA\15\20\F7\C9\3E\16\CD\92\B4\E1\E5\11\84\40\23\7E\FE\1C\38\04\12\13\18\F6\2A\96\43\7E\36\35\22\EB\43\23\36\03\23\36\00\23\77\23\77\23\77\22\96\43\2B\E5\2B\3E\02\CD\5A\B7\C1\E1\C9\3D\06\02\CD\B8\B5\7E\3D\20\0B\2E\72\01\1E\00\7E\A7\2B\28\0B\3D\3E\9D\20\E8\16\45\2E\55\0D\C9\0D\20\ED\18\F0\06\01\26\02\C5\CD\87\B6\CD\2A\0A\3E\1C\CD\02\BD\28\FB\58\ED\B0\3E\FF\12\CD\2A\0A\C1\05\20\0E\3E\1E\CD\02\BD\1E\20\28\02\ED\B0\3E\FF\12\78\32\FC\43\CD\2A\0A\CD\E7\02\2A\EB\43\01\15\00\09\EB\21\00\45\13\1A\FE\FF\20\09\CD\07\02\2A\EB\43\C3\7C\B9\BE\20\EE\D5\23\7E\3C\28\05\13\1A\BE\28\F6\E1\20\DC\E5\2B\CD\8C\B8\22\9F\43\EB\CD\05\B9\3A\FC\43\C6\1F\CD\92\B4\CD\07\02\CD\CD\B6\AF\32\9D\43\CD\00\B4\FE\33\28\24\FE\38\20\16\2A\EB\43\CD\8D\B9\32\E8\43\D1\C3\6E\B7\CD\7B\B8\CD\98\BA\C3\BA\BA\FE\2A\20\D7\3A\FC\43\A7\20\D1\F5\CD\E7\02\CD\87\B6\F1\D1\FE\33\28\87\D5\EB\2B\CD\8C\B8\11\00\45\1A\13\23\3C\20\FA\2B\1E\1F\47\4F\13\1A\0C\3C\20\FA\1B\0D\28\07\2B\00\EB\ED\B8\13\EB\22\A3\43\CD\87\B6\D1\C3\64\BD\06\14\ED\5B\A3\43\C5\CD\05\B9\C1\10\F9\ED\53\9F\43\C3\6B\B7\2A\A3\43\ED\4B\A1\43\7E\3C\28\10\3D\23\03\02\CB\77\28\F4\3D\FE\BF\28\02\D6\3F\02\22\A3\43\ED\43\A1\43\C9\37\2A\9F\43\ED\5B\A3\43\ED\4B\A1\43\ED\52\09\E5\ED\73\F0\43\CD\87\B6\2A\EB\43\01\16\00\09\7E\23\3C\20\0D\3E\A2\ED\7B\F0\43\E1\CD\92\B4\C3\5D\B7\FE\02\20\EA\7E\3D\20\E6\E5\04\CB\48\23\28\DF\E1\D1\C1\C5\23\ED\42\09\30\18\A7\23\ED\52\E5\60\69\C1\ED\42\E5\09\E5\60\69\C1\19\2B\2B\2B\2B\D5\18\10\2B\2B\2B\C5\EB\2B\ED\42\09\23\EB\3E\A1\38\B5\E5\ED\52\28\AE\E5\D9\2A\04\40\25\ED\5B\96\43\C1\ED\52\ED\42\3E\89\D9\38\9C\E5\D5\60\69\CD\8C\B8\ED\5B\A1\43\E1\C1\C5\23\13\ED\B0\1B\ED\53\A1\43\CD\87\B6\C1\E1\C5\CD\8C\B8\C1\09\23\23\22\A3\43\2A\A1\43\2B\2B\22\A1\43\CD\87\B6\E1\C1\C3\5D\B7\CD\7B\B8\01\0C\00\09\E5\0E\0A\09\22\FA\43\2A\96\43\22\F8\43\21\00\45\36\00\23\10\FB\CD\2A\0A\3E\17\01\38\28\CD\C4\B4\32\FE\43\3E\11\01\3E\33\CD\C4\B4\32\FD\43\CD\DE\BF\E1\E5\7E\A7\3E\2E\28\18\3E\15\CD\92\B4\AF\32\9D\43\CD\00\B4\FE\2E\28\08\FE\38\28\04\FE\26\20\ED\32\FC\43\26\00\D1\FE\2E\28\0E\3E\29\CD\D7\B8\3E\9B\CA\D6\B5\01\0C\00\09\22\F2\43\0E\37\09\22\F4\43\3A\FC\43\FE\2E\28\39\F5\2A\F4\43\7E\3C\3E\8E\CA\F5\B8\F1\FE\38\20\1A\CD\43\BA\2A\F2\43\CD\A4\BA\3E\1A\01\38\35\CD\C4\B4\F5\CD\2A\0A\F1\FE\38\28\18\2A\F4\43\11\9F\40\7E\FE\FE\30\04\ED\A0\18\F7\CD\56\BC\CD\2A\0A\CD\CC\AA\2A\F8\43\22\96\43\36\FF\3A\FC\43\FE\2E\CA\DB\B5\2A\F4\43\CD\6E\BA\EB\18\9B\3E\23\CD\B4\B5\CD\70\AB\47\3E\84\38\F5\78\32\FF\43\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\20\20\20\20\20\20\20\20\20\20\20\22\23\24\3A\3F\28\29\3E\3C\3D\2B\2D\2A\2F\3B\2C\2E\30\31\32\33\34\35\36\37\38\39\61\62\63\64\65\66\67\68\69\6A\6B\6C\6D\6E\6F\70\71\72\73\74\75\76\77\78\79\7A\20\20\20\20\20\20\20\20\20\20\20\7C\25\26\60\21\7B\7D\7E\5F\5B\40\5D\7F\5C\5E\27\20\30\31\32\33\34\35\36\37\38\39\41\42\43\44\45\46\47\48\49\4A\4B\4C\4D\4E\4F\50\51\52\53\54\55\56\57\58\59\5A\28\39\2B\DE\B9\26\39\2B\76\B9\28\29\2B\02\BA\26\29\2B\39\BA\32\29\2B\BD\BD\29\39\2B\19\BC\29\29\2B\19\BC\37\39\2B\36\BC\37\29\2B\30\BC\35\39\2B\03\BF\31\39\2B\C5\AD\31\29\2B\C5\AD\31\26\2B\C5\AD\38\39\2B\85\AE\38\29\2B\85\AE\38\26\2B\85\AE\29\38\35\7A\B2\36\2E\39\67\B3\28\29\29\82\B3\2A\34\38\98\B3\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\FF\36\73\B8\70\0C\BE\71\AE\B6\2A\25\BD\2B\26\BD\32\44\BE\2D\C4\B2\00\00\00\00\00\00\00\00\00\00\00\26\01\E3\AB\27\02\DC\AB\2E\02\08\AC\31\00\B2\AB\33\01\CE\AB\35\00\CA\AB\37\00\A7\AB\3C\08\26\AC\2D\40\3F\AC\28\80\86\AC\3A\04\B6\AC\38\20\E3\AC\3F\00\12\AD\16\00\45\AD\00\00\00\00\00\00\00\00\76\39\34\34\00\31\34\33\2C\76\33\26\32\2A\0F\76\2B\3A\33\28\39\2E\34\33\0F\76\2E\33\3B\26\31\2E\29\76\29\26\39\2A\00\1D\76\29\26\39\2A\00\1E\76\32\39\2A\28\2D\00\3B\1F\2A\26\27\76\00\76\38\2D\34\37\39\00\34\2B\00\38\35\26\28\2A\76\B4\BA\B9\80\B4\AB\80\B8\B5\A6\A8\AA\76\26\31\37\2A\26\29\3E\00\2A\3D\2E\38\39\38\76\33\34\39\00\35\37\2A\38\2A\33\39\76\2B\2E\2A\31\29\00\0F\0F\76\33\34\00\32\34\37\2A\00\37\2A\28\38\76\26\28\39\2E\34\33\00\0F\76\29\26\39\26\2B\2E\31\2A\00\33\26\32\2A\0F\76\2F\3A\38\39\2E\2B\3E\00\BE\18\B3\0F\76\39\2A\3D\39\16\76\29\26\39\26\16\76\33\2A\3C\00\33\26\32\2A\0F\76\A6\31\31\18\B8\2A\31\18\AE\33\35\3A\39\0F\76\2E\33\35\3A\39\76\B8\2E\33\2C\31\2A\18\A8\34\33\39\0F\76\B5\37\2E\33\39\00\35\26\2C\2A\18\B6\3A\2E\39\0F\76\2B\2E\2A\31\29\00\32\2E\38\32\26\39\28\2D\76\B5\37\2E\33\39\18\B8\30\2E\35\0F\76\29\26\39\26\2B\2E\31\2A\00\32\2E\38\38\2E\33\2C\76\38\2A\26\37\28\2D\00\38\39\37\2E\33\2C\0F\76\01\32\2E\38\38\2E\33\2C\76\2A\3D\28\2D\26\33\2C\2A\00\38\39\37\2E\33\2C\0F\76\AA\3D\1B\18\B3\2A\3D\39\18\B8\39\34\35\0F\76\B3\2A\3D\39\18\B8\39\34\35\0F\76\32\34\3B\2A\00\2E\33\00\27\2A\39\3C\2A\2A\33\76\01\01\00\32\2E\38\38\2E\33\2C\76\38\39\26\37\39\00\35\26\2C\2A\0F\76\35\37\2E\33\39\00\38\39\34\35\35\2A\29\76\2B\2E\31\2A\38\00\2A\3D\2E\38\39\76\A7\B7\AA\A6\B0\98\AA\B7\B7\B4\B7\76\33\34\39\00\1D\1A\1E\1A\35\1A\29\76\38\3E\33\39\26\3D\00\3C\37\34\33\2C\76\33\34\00\01\3A\00\26\39\00\2A\33\29\76\33\34\39\00\2D\2A\3D\76\2D\26\31\2B\00\33\3A\32\27\2A\37\76\3A\33\30\33\34\3C\33\00\28\34\32\32\26\33\29\76\33\34\00\33\3A\32\27\2A\37\76\3F\2A\37\34\00\2E\33\3B\26\31\2E\29\76\01\2D\18\01\28\00\38\39\2E\31\31\00\34\35\2A\33\76\2A\33\29\00\37\2A\26\28\2D\2A\29\76\2A\38\2B\00\34\38\00\26\27\38\2A\33\39\76\00\00\00\00\00\00\76\00\00\00\00\00\00\00\00\76\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\76\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\76\07\03\03\03\03\A6\BB\A6\AE\B1\A6\A7\B1\AA\80\B2\AA\B2\B4\B7\BE\94\03\03\03\03\03\03\03\03\03\84\76\05\28\29\2B\18\28\39\2B\00\16\00\28\37\2A\26\39\2A\00\26\00\33\2A\3C\00\2B\2E\31\2A\00\00\00\85\76\05\29\29\2B\18\29\39\2B\00\16\00\29\2A\31\2A\39\2A\00\10\3C\2E\35\2A\11\00\26\00\2B\2E\31\2A\85\76\05\37\29\2B\18\37\39\2B\00\16\00\37\2A\33\26\32\2A\00\26\00\2B\2E\31\2A\00\00\00\00\00\00\00\85\76\05\31\29\2B\18\31\39\2B\00\16\00\31\34\26\29\00\26\00\2B\2E\31\2A\00\00\00\00\00\00\00\00\00\85\76\05\38\29\2B\18\38\39\2B\00\16\00\38\26\3B\2A\00\26\00\2B\2E\31\2A\00\00\00\00\00\00\00\00\00\85\76\05\38\26\2B\18\31\26\2B\00\16\00\38\26\3B\2A\18\31\34\26\29\00\26\31\31\00\2B\2E\31\2A\38\00\85\76\05\26\29\2B\00\16\00\28\2D\26\33\2C\2A\00\29\26\39\26\00\2B\2E\2A\31\29\00\33\26\32\2A\38\00\85\76\05\32\29\2B\00\16\00\32\26\2E\33\39\26\2E\33\00\10\28\2D\26\33\2C\2A\11\00\29\26\39\26\00\00\85\76\05\26\39\2B\00\16\00\26\32\2A\33\29\00\10\2A\29\2E\39\11\00\39\2A\3D\39\00\2B\2E\31\2A\00\00\85\76\05\35\39\2B\00\16\00\35\37\2E\33\39\00\34\3A\39\00\26\00\39\2A\3D\39\00\2B\2E\31\2A\00\00\00\85\76\05\29\38\35\00\16\00\29\2E\38\35\31\26\3E\00\2B\2E\31\2A\38\00\15\00\2B\37\2A\2A\00\32\2A\32\85\76\05\36\2E\39\00\16\00\37\2A\39\3A\37\33\00\39\34\00\27\26\38\2E\28\00\00\00\00\00\00\00\00\00\85\76\05\2A\34\38\00\16\00\2C\34\00\39\34\00\2A\3D\26\39\37\34\33\00\34\18\38\00\32\2A\33\3A\00\00\85\76\05\00\B7\AA\B9\BA\B7\B3\80\B9\B4\80\B2\AA\B2\B4\B9\AA\BD\B9\80\AB\B7\B4\B2\80\AA\B8\AB\8E\00\85\76\05\00\35\37\2A\38\38\00\21\1A\00\31\00\10\31\2A\39\11\1A\00\39\2D\2A\33\00\2A\33\39\2A\37\00\85\76\07\03\03\A9\A6\B9\A6\80\AB\AE\B1\AA\80\A6\A8\B9\AE\B4\B3\B8\80\90\B6\94\B6\BA\AE\B9\91\03\03\84\76\05\07\03\26\28\39\2E\34\33\38\00\39\34\00\28\3A\37\37\2A\33\39\00\37\2A\28\34\37\29\03\03\84\85\76\05\26\14\26\32\2A\33\29\83\83\28\14\29\3A\35\31\2E\28\26\39\2A\83\83\29\14\29\2A\31\2A\39\2A\85\76\05\27\00\14\00\28\37\2A\26\39\2A\00\26\00\33\2A\3C\00\27\31\26\33\30\00\37\2A\28\34\37\29\00\85\76\05\33\1A\35\1A\2B\14\33\2A\3D\39\1A\35\37\2A\3B\2E\34\3A\38\1A\2B\2E\37\38\39\00\2B\2E\31\2A\85\76\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\03\76\76\00\01\48\1E\11\70\A8\21\82\40\ED\B0\C9\00\00\2A\10\40\11\7D\40\A7\ED\52\EB\01\00\00\A7\7E\89\4F\38\07\23\1B\7A\B3\C8\18\F3\04\18\F6\00\00\00\01\D6\02\ED\5B\0C\40\21\E0\C3\ED\B0\C9
1 REM V3-2.07+UPD
2 FAST
5 LET O=NOT PI
6 LET P=VAL "32768"
7 LET Q=VAL "65535"
8 LET R=VAL "201"
10 CLS
14 REM %C%H%E%C%K%S%U%M
15 LET I=USR VAL "24281"
20 SAVE "MEMOTEX%T"
25 IF USR VAL "24281"<>I THEN GOTO 9000
30 REM %3%2%-%4%8%K%?
32 SLOW
40 POKE P,R
45 POKE Q,R
50 IF PEEK P<>R OR PEEK Q<>R THEN GOTO VAL "300"
51 PRINT "%M%E%M%O%T%E%X%T% %V%3%C%-%J% %H%A%S% %B%E%E%N% %L%O%A%D%E%D%.% CHECK-SUM INDICATES PROPER LOAD.",,,,"PRESS ""S"" TO BACKUP MASTER TAPE"
52 PAUSE Q
53 IF INKEY$="S" THEN RUN
54 CLS
55 PRINT "%L%I%N%E% %F%E%E%D%/%C%A%R%R%I%A%G%E% %R%E%T%U%R%N%:",,,"DOES YOUR PRINTER REQUIRE",,,"1. LF (0A HEX) ONLY","2. CR (0D HEX) ONLY","3. LF + CR"
56 INPUT LF
57 IF LF=NOT O THEN POKE VAL "19360",O
58 IF LF=VAL "2" THEN POKE VAL "19365",O
59 GOTO VAL "500"
60 REM %U%P%L%O%A%D
62 RAND USR VAL "24267"
65 CLS
70 PRINT "***%M%E%M%O%T%E%X%T% %+% %U%P%D% %S%T%O%R%E%D**%V%3%C-%J*";TAB PI;" MEMORY USE: A870H-C6B7H"
71 PRINT ,,"=====%A%D%D%I%T%I%O%N%A%L% %F%U%N%C%T%I%O%N%S%:======"
72 PRINT """CDD""- CHANGE ""DATE 1/2"" DATA ""QIT""- RETURN TO BASIC WARM BOOT""EOS""- GOTO EXATRON O.S. MENU ""DSP""- INCLUDES FUNCTIONS SCREEN AND MEMORY MONITOR"
80 PRINT ,,TAB 7;"%T%O% %S%T%A%R%T% %M%E%M%O%T%E%X%T%:",,," RAND USR 46657 - USES ALL YOUR";TAB 8;"AVAILABLE RAM, OR "," RAND USR 43851 - PRESERVE RAMTOPRAND USR 46555-RESTART AFTER QIT"
82 PRINT ,," OPTIONAL ""HELP"" FILE AVAILABLE PRESS ""H"" FROM EXTENDED MODE"
85 SLOW
90 GOSUB VAL "2000"
99 REM %F%U%N%C%T%I%O%N%S% %S%C%R%E%E%N
100 RAND USR VAL "24313"
110 PRINT AT O,3;"%M%E%M%O%T%E%X%T% %F%U%N%C%T%I%O%N% %C%O%M%M%A%N%D%S"
115 POKE VAL "16418",O
120 PRINT AT VAL "22",O;"""Z"" TO COPY, ""S"" TO BACKUP SAVE "
140 POKE VAL "16418",2
145 IF INKEY$<>"" THEN GOTO VAL "145"
150 IF INKEY$="" THEN GOTO 150
160 IF INKEY$="S" THEN GOTO O
170 IF INKEY$="Z" THEN GOTO VAL "200"
180 GOTO VAL "400"
200 FAST
205 RAND USR VAL "45965"
210 PRINT AT O,NOT O;"==";TAB VAL "29";"==";AT VAL "16",NOT O;"==";TAB VAL "29";"== --";TAB VAL "28";"---";TAB VAL "8";"--";TAB VAL "21";"--";AT VAL "21",O;"(%M%E%M%O%T%E%X%T% %P%G%M (C) %M%E%M%O%T%E%C%H% %I%N%C% )"
220 FOR A=O TO VAL "21"
230 PRINT AT A,O;"(";TAB 31;")"
240 NEXT A
250 RAND USR VAL "45159" AND USR VAL "45965"
260 SLOW
270 GOTO VAL "100"
300 PRINT "*****%N%O% %R%A%M% %I%N% %3%2%-%6%4%K% %R%E%G%I%O%N****",,"ENABLE 32 - 64K RAM, THEN ",,,"PRESS ANY KEY TO CONTINUE."
310 PAUSE Q
320 CLS
330 GOTO VAL "30"
400 CLS
405 POKE VAL "43118",O
406 POKE VAL "43119",VAL "250"
410 PRINT "LOAD ""HELP"" FILE? Y / N"
420 IF INKEY$="" THEN GOTO 420
430 IF INKEY$="Y" THEN LOAD "HELP%1"
470 RAND USR VAL "46657"
480 STOP
500 CLS
510 PRINT "NOW TO ""CUSTOMIZE"" MEMOTEXT AND U.P.D. FOR YOUR SYSTEM:",,,
610 PRINT "SELECT YOUR C.P. INTERFACE:",,,"1. MEMOTECH",,"2. AERCO",,"3. BYTE-BACK",,"4. TASMAN",,"5. OLIGER",,"6. EPROM SERVICES","7. OTHER"
620 INPUT IF
630 IF IF<NOT O OR IF>VAL "7" THEN GOTO VAL "620"
650 DIM I$(VAL "7",VAL "76")
660 IF IF=VAL "7" THEN GOTO VAL "670"
661 LET I$(VAL "1")="MTECH F5DB3F0F38FBF1DB2FC9"
662 LET I$(VAL "2")="AERCO F5DB7FCB6720FAF1D37F0000DB7FC9"
663 LET I$(VAL "3")="BTBCK F5DB1FCB7F28FAF1D31F0000DB1FC9"
664 LET I$(VAL "4")="TASMN F5DBBFCB4720FAAFD3FB3DD37BD3FBF1D37B3EF7D3FB3EFFD3FBC9"
665 LET I$(VAL "5")="OLIGR F53AFFFFFE1820F9F132FFFFC9"
666 LET I$(VAL "6")="E-SRV F5DB9B1738FBF1D38BAFD3BB3CD3BBDB9B17300517300218F6C93E88D3BB3E01D3BBC9"
669 GOTO VAL "700"
670 PRINT " INPUT TYPE? ( TO 5 CHAR."
678 INPUT I$(IF)( TO 5)
680 PRINT " INPUT CODE TO SEND A CHARACTER:"
690 INPUT I$(IF)(7 TO )
692 PRINT ,,I$(IF),,"OK?"
695 IF INKEY$="Y" THEN GOTO VAL "700"
697 IF INKEY$="N" THEN GOTO VAL "670"
699 GOTO 695
700 FAST
705 FOR A=NOT O TO VAL "5"
710 POKE A+22945,CODE I$(IF,A)
720 NEXT A
725 LET I$(IF,75 TO )="C9"
730 LET AD=VAL "18502"
740 FOR A=7 TO 75 STEP 2
750 LET I=(CODE I$(IF,A)-28)*16+CODE I$(IF,A+1)-28
755 IF I<O THEN LET I=O
760 POKE AD,I
770 LET AD=AD+NOT O
780 NEXT A
790 SLOW
800 PRINT AT VAL "18",O;"DO YOU WISH TO INPUT CUSTOMIZED GRAPHICS CHARACTERS FOR U.P.D.?"
810 IF INKEY$="N" THEN GOTO VAL "1000"
820 IF INKEY$<>"Y" THEN GOTO 810
830 SCROLL
840 PRINT AT VAL "20",NOT O;"CODE CHR$ ","PRESENT NEW ";TAB VAL "18";"VAL VAL "
850 SCROLL
855 LET AD=VAL "22546"
860 FOR A=NOT O TO VAL "138"
865 IF A=VAL "11" THEN LET AD=AD-VAL "64"
870 IF A=VAL "11" THEN LET A=VAL "128"
880 SCROLL
890 PRINT TAB 2;A;TAB 6;CHR$ A;TAB 19;PEEK (AD+A);TAB 26;"?"
900 INPUT I
910 PRINT AT VAL "21",VAL "26";I
920 POKE (AD+A),I
930 NEXT A
940 SCROLL
950 PRINT " OK?"
960 IF INKEY$="N" THEN GOTO VAL "830"
970 IF INKEY$<>"Y" THEN GOTO 960
1000 SCROLL
1010 SCROLL
1015 POKE VAL "20053",VAL "168"
1020 PRINT "ARE YOU USING A+J EXATRON DRIVE?"
1030 IF INKEY$="" THEN GOTO 1030
1040 IF INKEY$="Y" THEN POKE VAL "20053",VAL "164"
1050 FAST
1060 CLS
1070 PRINT "% %U%N%I%V%E%R%S%A%L% %B%A%S%I%C% %P%R%I%N%T%E%R% %D%R%I%V%E%R% IS NOW CONFIGURED FOR ";I$(IF)( TO VAL "5");" IF ",,TAB VAL "5";"USR CALLS FROM BASIC:",TAB VAL "5";"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"," COPY SCREEN: RAND USR 45159","PARTIAL COPY : RAND (NO. LINES)"," THEN RAND USR 45182",,," LLIST PROGRAM: LIST (LINE NO.)"," THEN RAND USR 45193",,," LPRINT : RAND CODE ""(STRING)"""," THEN RAND USR ",," 45441 - REVERSE CASES LIKE M/T"," 45446 - INVERSE = LOWER CASE"," 45451 - SEND ASCII CODE DIRECT"
1080 PRINT "CHR$ 118 SENDS A LINE-FEED ",,,"%C%O%P%Y AND %L%L%I%S%T-INVERSE CHARACTERPRINTED AS LOWER CASE; %L%P%R%I%N%T - CASES SELECTED BY USR CALL."
1082 RAND USR VAL "24267"
1085 SLOW
1090 GOSUB VAL "2000"
1100 GOTO VAL "60"
2000 POKE VAL "16418",O
2010 PRINT AT VAL "23",O;"% %P%R%E%S%S% %"%Z%"% %T%O% %C%O%P%Y%:% %"%C%"% %T%O% %C%O%N%T% "
2020 IF INKEY$="Z" THEN RAND USR VAL "3875" AND USR VAL "45159"
2025 SLOW
2030 IF INKEY$="C" THEN RETURN
2040 GOTO 2020
9000 CLS
9010 PRINT "%L%O%A%D% %C%H%E%C%K% %F%A%I%L%E%D%-% %W%I%N%D% %T%A%P%E% %T%O% %A%N%O%T%H%E%R% %C%O%P%Y%,% %T%R%Y% %A% %D%I%F%F%E%R%E%N%T% % % %V%O%L%U%M%E% %S%E%T%T%I%N%G%,%A%N%Y% %K%E%Y% %T%O% %R%E%L%O%A%D"
9020 PAUSE Q
9030 LOAD "MEMOTEX%T"