..PGNO103 
..HEAD01A-##- 
         㧨   ਢ      ணࠬ     ᢮
""    믮  ணࠬ   設 몥.  ⮬
,     ᠭ ,  (HL)  (DE) 㤥 ६饭
ᥣ    .      ⢥ 
⠪:  LD  BC,31  (011F00).  , , 㤨  
ᢥ祭    32      ࠭.   ,
  ࠭ 㤥 ஢ 祭 ⮭ .  32
  ࠭    ⭮  ࢮ   
 32 ᨬ. 
              ப ⠪: LD BC,255 (01FF00).
,  ,  㤨. 騩  ᫥ 32- 
  ஬  祪  ࠭.  -   32
ᨬ.  ⠪    256- ᨬ. 
               ।᪠, 㤠  ᫥騩
?       ப  ⠪:  LD  BC,2047  (01FF07)  
믮 ணࠬ.  㦨,   
⮫쪮   ࠭. 
             ᯥਬ஢    ⨬, 
ࠧ묨  祭ﬨ  BC    LD BC,6143 (01FF17). 
ᯮᮡ      ᬮ    ""  ࣠
࠭. ࠭   ᠬ  ࠧ   . 

    1.   4000H  47FFH (===)  ᥬ ப.
    2.   4800H  4FFFH (===)  ᥬ ப.
    3.   5000H  57FFH (===)  ᥬ ப.

           ⮫쪮 .   ᯮ,   ""
      ⮨    쬨  8-⮢  ,  
⠢  64  窨. ਬ,   "!" ।⠢
 : 

                      0   00000000     0H
                     16   00010000    10H
                     16   00010000    10H
                     16   00010000    10H
                     16   00010000    10H
                      0   00000000     0H
                     16   00010000    10H
                      0   00000000     0H

             ࠭ ᯫ "" ⠪,
    256 ⮢  4000H  40FFH ᮮ⢥ 
⠬      256 8-⮢   쬨 ப.
  ᫥騥  256  ⮢  祥    4100H  42FFH
ᮮ⢥    ⠬    256  8-⮢  
 쬨 ப  .. 
           ࠧ, ᯮ   쬨 ⮢,
ᮮ⢥ ࢮ   ࠭, 㤥 ᫥騬: 

                       1ST BYTE  4000H
                       2ND BYTE  4100H
                       3RD BYTE  4200H
                       4TH BYTE  4300H
                       5TH BYTE  4400H
                       6TH BYTE  4500H
                       7TH BYTE  4600H
                       8TH BYTE  4700H
                   1ST BYTE -  .

         ࠭,      ⠪   ?    室  ਭ
"" ⠪,   ᪮஢. 
                         ᥬ    ⮢,
ᮮ⢥  31-  쥩 ப ࠭?  
    ਫ  B  (   ࠭). /405EH,
415EH, 425EH,......475EH/. 
           ᮮ⢥⢨    ਭ  ᯮᮡ 뤠 
࠭  祥  ,  ᮮ⢥騥  ࢮ   ன
㯯  쬨 ப,  ⠪: 

    4800H, 4900H, 4A00H, 4B00H, 4C00H, 4D00H, 4E00H, 4F00H

          ࠧ, ࢠ  쥩 㯯 
쬨   ப   ⮡ࠦ    ⠬    ᫥
祩: 

   5000H, 5100H, 5200H, 5300H, 5400H, 5500H, 5600H, 5700H.

           ਬ  設  몠,  ⥬  , 
।    २⢠.   祢   㤭   ⮨
८.   ਢ ਬ  몠 "ᨪ". ᫨
  ⠥  믮    PRINT    
࠭  (   ப),  ⥬ "ᨪ" ⮬ १
⨢.      設  몥     
      ᥬ   ࠭.   ᫨       ⥫쭮
ᬮ    ࣠樨 ࠭ ᯫ,  㢨, 
訩  ࢮ  (H0BFB)   ।, 
   㯯   ⭮. 
      ਬ:

᫨  40H  = (H0BFB) 41H   室  ࢮ 㯯 
                         쬨 ப 
᫨  48H  = (H0BFB) 49H  室  ன 㯯 
                         쬨 ப 
᫨  50H  = (H0BFB) 51H  室  쥩 㯯 
                         쬨 ப 

           ⮣    HOB (HIGH ORDER BYTE)
襣    ।,    쬨 ⮢ 
 ਭ. 
              ᪮쪮    ?    ᬮ
ਫ  B    ࠩ       祩
  ࠭ ᯫ (᫨  ?!!!). 
         ᬮਬ ᫥騩 ਬ. 
         ।,        4A36H. 訩 
 㤥 4AH, ⠪ : 
      1.  ,    室  ।  ࠭
ᯫ, ᪮  祭 室  40H  58H. 
      2. 筮 ।⠢   01001010. 
      3.  訬  ६  ⠬   ,  ਭ
쥬  樨   ࠭. 
      4,᫨    ᤥ  訥    ࠢ묨 , 
祭 HOB 㤥 ࠢ 48H.  ࠧ,  ,  
-    ன  㯯   쬨 ப, .. ।
樨 ࠭. 
               ਩    뢮,      
⭮    쥬      । 樨 
ᯫ. 
                  ।  樨    
ਭ?   ⢥     ॡ 
祭  襣    .  ,  訩 
  ࠢ 36H.    ⭮   36H (48 +
6),  ..    54  樨,   ࢮ  ।
樨.  ᪮      ப  32  ,  
  室   ன ப । 樨 ࠭
ᯫ  㤥 (54 - 32 + 1)- ன  ⮩ ப. 
         뢮,       ᤥ, ,  
    쨬  ⮬  23-  10- ப 
砫 ࠭. 

                          

              ⭮  564FH? 
               ணࠬ, 뢮
   ࠭  ᪫⥫  ?  ,  ⠢騥  
, ਢ . 

             -   

         ,   ।祭     ࠭  ਡ⮢
࠭,            ,    祬    ᠬ   
ᯫ,᪮               筮
ᮮ⢥⢨   ࠬ ᯫ.  ਡ⮢ ᯮ 
     5800H    5AFFH.    ᮤন  768  ⮢,  
ᮮ⢥  24 ப  32  . 묨 ᫮,
        -  ਡ      樨
. 
         ,   5800H  ᮮ⢥  ਡ    
ࢮ  ப,  5801H  -ன , 5802 - 쥩,.....,
581FH - 32-  ࢮ ப. 
           ,      樨   ࠭
  ᮮ⢥騩  -ਡ      ਡ⮢,
⠢ ᫥騬 ࠧ. 

          -ਡ
           0 - 2   ।⠢ 梥 ୨  0  7.
           3 - 5   ।⠢ 梥 㬠  0  7.
            6       襭 મ - 1, ଠ쭠 - 0
            7        - 1, ⢨  - 0

                          

           -ਡ, ᮮ⢥饣 ࢮ
  ।    ࠭?     ࢮ 
쥩   ?   ⢥  ਢ  ,    ࠩ
  ᠬ. 
               ணࠬ, ८ࠧ
       ࠭      ᮮ⢥饣  
ਡ,  ਬ, 4529H?    㦭 ।,
     ࠭  ᮮ⢥    ,    ⥬
ਡ  祭  5800H. 
         ਢ     ணࠬ  뢠    ⮣
 . 

    LD  HL,4529H  : 㧨    HL
    LD  A,H       : 㧨 訩   A
    AND 18H       : 誠   ⮢ 3  4   ।
                  : ⮣,     ࠭  ᮮ⢥
                  : 
    SRA A         : ᤢ 饣 ॣ ࠢ
    SRA A         :  ࠧ, ..   8. 
    SRA A         :   ࠢ 0, 1  2  ᨬ
                  :  ⮣, 祬 ࠢ H:48H, 50H  54H
    ADD A,58H     : ८ࠧ   ਡ⮢
    LD  H,A       :  HL -  ਡ, .. H = 58H, 59H
                  :  60H. L ⠥ !!!

         , , ਤ  㬠 . 
         ⢥  ࢮ ࠦ 易  ᯮᮡ ࠡ
ணࠬ: 

1ST CHAR. OF 1ST SCREEN SECTION=4000H ATTRIBUTE ADDRESS=5800H
1ST CHAR. OF 2ND SCREEN SECTION=4800H ATTRIBUTE ADDRESS=5900H
1ST CHAR. OF 3RD SCREEN SECTION=5000H ATTRIBUTE ADDRESS=5A00

2ND CHAR. OF 1ST SCREEN SECTION=4801H ATTRIBUTE ADDRESS=5801H
                ETC....
                                ETC.....
1ST CHAR. OF 1ST SCREEN SECTION-1- ...-  ࠭
ATTRIBUTE ADDRESS -  ਡ

   ᭨. 

                    -  

           ।⢮ 裡  ॠ쭮 ⠡ ६,
।-  ⠢塞  襩  -  ""  -  㪮
ᨣ.  뫮    㯮   ᯮ짮 ⨬ ।⢮ 
 . 
            設  몥  ""      ᭮
ᯮᮡ ஢ 㪠. 
      1. 뫪 ᨣ  室  254  ⭮
䮭    祭  ।  ஬⪠  ६ 
  OUT 254. ਬ, OUT (254),A. 
      2.  ⠭  । 祭  HL,DE  맢
ணࠬ 㪮 ᨣ    樨 ᨣ. 

      室 ࠬ:
      DE - த⥫쭮  ᥪ㭤 * 
      HL - (437 500 / ) - 30,125
      ⮬
      CALL 0385H

         २⢮   ࢮ   ᯮᮡ   樨  㪠
  ⢨  饭    .  믮 祭
, ... 
         ᪮  ULA  ﭭ  頥     16
    ந  㯮    믮  뢮 
࠭,  ணࠬ, ᫨  ࠧ饭   16, 㤥
 ࣠ ⪮६ 뢠. 
         ᫨  ணࠬ   㪮 ᨣ,  
㤥     ।᪠㠬  த⥫쭮
㤪.   ᯮᮡ ८ ⮩ 㤭 ⮨ 
६饭  ⮩   ணࠬ,   , 
    祭  ᮢ  , ᫨    
ꥬ  48. 
         ᫨          ꥬ  48,  
-⠪    ஢    ⨬ ⮤,   
㤥  "  ".    ਤ ਬ ன ᯮᮡ
樨 㪠, ⮡  㦭 १. 
           ,   뫪 祭  
뢮  254      ⠪      梥  
  MIC,    ⠪  ஬⥫,   ᨬ 
뫠 祭. 
          㣮 ஭, ணࠬ    ஢
㪠      ਬ  ᢮ ணࠬ
 設 몥  BEEP.   ,   
ॣ஢  ᮤন  祭  த⥫쭮  㪮
ᨣ,      HL  - 祭 . ᯥਬ 
ࠧ묨  祭ﬨ  HL   DE,    㦭 
. 
         ࠭祭 ⮣ ⮤, 筮, ⮨  ⮬,
           । ⮣  㪮,
     BEEP. 

             

                   EZ CODE

            ୠ   ணࠬ      設  몥,
 : 
      1.    ᢮  ணࠬ  ,  ᠭ  
設 몥    ᥬ஢ ,  
ᥬ஢ ,   ⭮⥫ 室 
᮫ 室 ࠦ १  ப. 
      2. ᯥ뢠 室  ணࠬ . 
      3.         室  ணࠬ    
  . 
      4.   ᬠਢ   祩       ।
. 
      5.         室   ,    
ணࠬ,  ॢ  設 . 
      6. 㦠 ᠭ 室 ணࠬ  . 
      7. 믮   ணࠬ  設 몥. 

            ।⥫ ॡ   EZ
           ---------------------------------------

         ०,  祬  ਬ   ணࠬ 
  -  ணࠬ    設  몥,    
ᥬ஢  ᢮  ணࠬ    몥 ᥬ.  
㦭  ⭮⥫  ᮫ 室. 
           ணࠬ        ॢ  800
⮢  200 . 
            㦠 ⥫ ⥪ ணࠬ
  ᠬ,  訬  31499 (⮡   ணࠬ 
EZ). 

              ᭮ ணࠬ  EZ
             ------------------------------------

         ᭮    ⮩  ணࠬ ⮨  ⮬, ⮡
        設  몠   
㬥஢  ப, 筮 ᯥ⪥ ணࠬ  몥
"ᨪ". 
           ப  室  ணࠬ  (⠪ 뢠
ப  ⥪  ணࠬ    設 몥)   
ᮤন  4 ⮢ ⥪. 
         ᭮  २⢮  ⮣ ணࠬ ।⢠,
⠪  ࠧ,  ⮨     ।஢ 
ப.  室 ணࠬ  ⠪ ⤥쭮 뢠
  ,        ࠡ   
⠯. 
         ᭮    ⮩  ணࠬ  -   
⠢    ⭮⥫        ᮫   室   
室   ᮮ⢥ ᥫ,  室
  ᤥ,  ᫠   ப,  
   ३.  砥,    
 㤠   ।  ⭮⥫쭮 室. 
           室  ணࠬ  ।     
  .  騩   १ ⥪ ணࠬ 
設 몥  ⠪   . 

                       EZ
                    ---------------------

          ,   ,  
ணࠬ:  "  ".    ,    ஬ 
  ࠧ  ⥪  ணࠬ  設 몥.  
   31500. 

                           ப
                          ----------

         1.       ப  室  ணࠬ:  (
ப)     (஡)(          4     ⭠
⮢)(ENTER). 
         ਬ: 
 1  210040  ਢ    設  LD HL,4000 H 
ப  1 
         2.  ।஢ ப: 
(   ப)(஡)(      )(ENTER)
         ਬ: 
1  210140  ਢ      ப    1  LD
HL,4001H 
         3.        㤠    ப    :   (
ப)(ENTER) 
         ਬ: 
1 (ENTER) ਢ  㤠 ப  1. 
         4.        ⭮⥫쭮    ᮫⭮
室:   (  ப)(஡)(  室)("L"  
 ॣ) ( ப)(ENTER) 
         ਬ: 
1   C312   ।⠢    JP    ப  2.   
2  1811  ।⠢  JR  ப 1. 

                            
                           -------

         1. DUMP (ENTER)  
         *   室  ᯥ⪨    ,  稭  
  㧪. 
         *      室   த  ।  믮
ணࠬ  設 몥. 
         饭: DU 

         2. EXIT(ENTER) 
         *  室      EZ      室  ⥬
"ᨪ". 
         饭: EX 

         3. LIST(ENTER) 
         *  ᯥ⪠    22  ப    ᯥ⪨
室 ⥪ 
         *    , ஬ "M"  "BREAK", ⮡
த ᯥ. 
         饭: LI 

         LIST #(ENTER) 
         *  ᯥ⪠  22 ப ᯥ⪨ 室 ⥪,
稭  ப N#,    1  200 ⥫쭮. 
         饭:  ᮪饭 

         4. LOAD(ENTER) 
         *  㧨   ᯥ⪮ 室 ⥪ 
,   騩 . 
         饭: LD 

         5. MEM(ENTER) 
         ᪠:  砫: 
         *    ,  ண   
뤠 
         *     0  32767  ""  ꥬ
  16K   0  65535  ""  ꥬ 
48K 
         *    "M",  ⮡      ० ᬮ
 
         饭: ME 

         6. NEW(ENTER) 
         * 㤠 ⥪騩    ⮢  EZ 
         *        ⮣, ⮡  
⥪   ணࠬ  
         饭: NE 

         7. RUN(ENTER) 
         *  믮  ࣭  ணࠬ ,
稭     㧪,  ,  ⮢
-  ࠬ  EZ   㧪  ᯥ⪨ 室-
 ⥪ 
         饭: RU 

         8. SAVE(ENTER) 
         *       ᯥ 室 ⥪
  ⥪ 設 ணࠬ 

         ᪠:  : 
  ,  ஥   ᯮ짮, 室 ⥪
  設   (S  M)  S   ᯥ⪨
室  ⥪    M     ⥪  設
몥      ,   ⮬       ,
㡥,      ࠢ쭮 ࠢ,  
,   ⮢ 饭: SA. 

                          砭
                          ---------

         1.   ᫨      ,  ⮡  ᫥  믮
ணࠬ  頫  १    ॣ  BC,  
ப 3090 ᫥騬 ࠧ: 

             3090 IF K& = "RU"THEN LET L = USR R

         2.   ணࠬ  EZ: 
-   ਬ RUN,  १ 祣  ६ 
樠஢; 
-   ਬ GO TO 2020,  १ 祣 뤠 -
᪠;"COMMAND OR LINE (###)"> 
         3.        ᫠,    ᪫祭  ⥪
設 ,    筮 ଠ. 
         4.  ⮡   ⠢ ⥫ ப 
⥪  ᯥ,     ᯥ⪥ ய᪠ 
ப,  ..    ⮣,  ⮡    ப   
ࠬ  1, 2, 3  1, 5, 10  ..  ਤ 
  . 

                     ࠦ   EZ
                     --------------------
          ᫥騩 ⥪ ணࠬ: 

          210040        LD HL,4000H         : FILL SCREEN
          110140        LD DE,4001H
          01FF17        LD BC,6143
          3EFF          LD A,0FFH
          77            LD (HL),A
          EDB0          LDIR
          3E7F    LOOP: LDF A,7FH           : TRAP BREAK KEY
          DBFE          IN A,(0FEH)
          E601          AND 1
          20F8          JR NZ,LOOP
          C9            RET

FILL SCREEN -  ࠭;  
TRAP BREAK KEY - 뢠  . 
         ⮡     ਢ    ⥪    
ணࠬ  EZ: 

              (RUN)
              COMMAND OR LINE(###):  1 210040(ENTER)
              COMMAND OR LINE(###):  5 110140(ENTER)
              COMMAND OR LINE(###): 10 01FF17(ENTER)
              COMMAND OR LINE(###): 15   3EFF(ENTER)
              COMMAND OR LINE(###): 20     77(ENTER)
              COMMAND OR LINE(###): 25   EDB0(ENTER)
              COMMAND OR LINE(###): 30   3E7F(ENTER)
              COMMAND OR LINE(###): 35   DBFE(ENTER)
              COMMAND OR LINE(###): 40   E601(ENTER)
              COMMAND OR LINE(###): 45  20130(ENTER)

( 㤥 20, ⮬ "L"   ॣ, ⮬ 30, .. JR
NZ,LINE 30) 

              COMMAND OR LINE(###): 50     C9(ENTER)
              COMMAND OR LINE(###):      LIST(ENTER)
              COMMAND OR LINE(###):      DUMP(ENTER)
              COMMAND OR LINE(###):       MEM(ENTER)
              STARTING ADDRESS: 31500(ENTER)
                              (THIS IS THE KEY TO EXIT THE
                               MEMORY DISPLAY MODE)
              COMMAND OR LINE(###): RUN(ENTER)
                                       (BREAK)

RUN - 믮;  
LOADING ADDRESS -  㧪;  
COMMAND OR LINE -   ப;  
STARTING ADDRESS -  砫;  
THIS IS THE KEY TO EXIT THE MEMORY DISPLAY MODE -  
 室  ० ᬮ . 

           ,    ᫥ ஢ ப 
 ஡. 

        EZCODE
        COPYRIGHT (C) 1982 BY WILLIAM TANG AND A.M.SULLIVAN

        100 REM MACHINE
        110 REM MACHINE CODE MONITOR
        120 GO TO 9000
        130 DEF FN D(S&) =(S&>"9"*(CODE S&-55)
               +(S&<="9")*(CODE S&-48)-(S& <> "@")*32
        140 DEF FN O(O&) = ((O& + "CA")+(O& + "DA")
               +(O& = "EA")+(O& = "FA")+(O& = "C2")
               +(O& = "D2")+(O& = "E2")+(O& = "F2")
               +(O& = "C3"))-((O& = "38")+(O& = "30)
               +O& = "28") +(O& = "20")+(O& = "18")
               +(O& = "10"))
       1000 REM
       1010 REM INV LINE-PRINTING-ROUTINE IRU
                ---                       ---
       1020 CLS : PRINT AT ZE,25;INVERSE ON;FLASH ON;"LISTING IRU
       1030 LET F = ZE : PRINT AT ZE, ZE
       1040 FOR J = PL1 TO PL2
       1050 IF C&(J,ON) = "--" THEN GO TO 1110
       1060 PRINT TAB TR- LEN STR& J; J; TAB FR; "-";
       1070 IF C&(J, TW, ON TO ON) ="1"
               THEN PRINT C&(J, ON)+"-"+C&(J, TW)+C&(J,TR)
            : GO TO 1090) 
       1080 PRINT C&(J,ON); "-"; C&(J,TW); "-"; C&(J, TR); "-";
                  C&(J,TR)
       1090 LET F = F+ON
       1100 IF F = 22 THEN GO TO 1120
       1110 NEXT J
       1120 PRINT AT ZE, 25; "-------"
       1130 RETURN
       2000 REM INV MAIN-ROUTINE IRU
                ---              ---
       2020 INPUT "COMMAND-OR-LINE(###) "-"; A&
       2030 IF A&(TO FR) = "----"THEN GO TO MR
       2040 IF A&(ON) > "9" THEN GO TO 3000
       2050 LET K& ="-"; FOR K = ON TO FR
       2060 IF A&(K TO K) = "-" THEN GO TO 2090
       2070 LET K& = K&+A&(K TO K)
       2080 NEXT K
       2090 IF K = 5 OR VAL K& = ZE OR VAL K& > IN THEN GO TO MR
       2100 LET J = VAL K&  : KLET N = J
            : REM LINE-NUMBER-MUST-BE-3-BYTES
       2110 LET A& = A&(K+ON TO)
       2120 LET K& = ""
       2130 FOR  K = ON TO LEN A&
       2140 IF A&(K TO K) <> "-" THEN LET K& = K&+A&(K TO K)
       2150 NEXT K
       2160 LET A& = K&
       2162 IF A&(ON) = "1" THEN GO TO MR
       2170 CLS : FOR I = ON TO 7 STEP TW
       2180 LET K = INT (I/TW+ON)
       2190 LET C&(J, K) =  A&(I TO I+ON)
       2200 NEXT I
       2210 IF C&(N, ON) = "--" THEN GO TO 2250
       2220 IF N < TP THEN LET TP = N
       2230 IF N > BP THEN LET BP = N
       2240 GO TO 2320
       2250 IF N <> BP THEN GO TO 2280
       2260 IF BP = ON OR C&(BP, ON) <> "--" THEN GO TO 2320
       2270 LET BP = BP-ON : GO TO 2260
       2280 IF N <> TP THEN GO TO 2320
       2290 IF C&(TP, ON) <> "--" THEN GO TO 2320
       2300 IF TP <> BP AND TP <> IN THEN LET TP = TP+ON
            : GO TO 2290
       2310 LET TP = ON
       2320 LET PP = N
       2330 IF N < TP THEN LET PP = TP : GO TO 2380
       2340 LET NUMLP = ZE
       2350 IF PP = TP OR NUMLP = 11 THEN GO TO 2380
       2360 IF C&(PP, ON) <> "--" THEN LET NUMLP = NUMLP+ON
       2370 LET PP = PP-ON : GO TO 2350
       2380 LET PL1 = PP : LET PL2 = BP
       2390 GO SUB 1000  * REM PRINT-A-BLOCK-OF-LINES
       2400 GO TO MR
       3000 REM
       3010 REM INV COMMANDS*************** IRU
                ---                         ---
       3020 LET K& = A&(TO TW)
       3030 IF K& = "DU" THEN GO TO 5000
       3040 IF K& = "EX" THEN STOP
       3050 IF K& = "LI" THEN GO TO 4000
       3060 IF K& = "LD" THEN GO TO 7000
       3070 IF K& = "ME" THEN GO TO 6000
       3080 IF K& = "NE" THEN RUN
       3090 IF K& = "RU" THEN PRINT USR R
       3100 IF K& = "SA" THEN GO TO 8000
       3110 GO TO MR
       4000 REM
       4010 REM INV LIST-ROUTINE*********** IRU
                ---                         ---
       4020 LET PL1 = TP : LET PL2 = BP
       4030 LET N1 = CODE A&(6 TO 6)
       4040 IF LEN A& > FR AND NL > 47 AND N1 < 58
            THEN LET PL1 = VAL A&(5 TO 8)
       4050 GO SUB 1000
       4060 GO TO MR
       5000 REM
       5010 REM INV DUMP-ROUTINE *********** IRU
                ---                          ---
       5020 CLS : PRINT AT ZE, 25; INK ON; INVERSE ON
               ; FLASH ON;  "DUMPING" : LET G = R
       5030 PRINT AT ON, ZE;
       5040 FOR J = TP TO BP
       5050 IF C&(J, ON) = "--" THEN GO TO 5470
       5060 IF C&(J, TW, ON TO ON) <> "1" THEN GO TO 5380
       5070 POKE G, ZE : POKE G+ON, ZE : POKE G+TW, ZE
            : POKE G+TR, ZE
       5080 LET JL = VAL (C&(J, TW, TW TO TW)+C&(J, TR))
       5090 PRINT TAB TR-LEN STR& J; INVERSE ON; J
            ; TAB FR; INVERSE ZE; "-"
            ; C&(J, ON)+"-"+C&(J, TW)+C&(J, TR)
            ; " = > ";
       5100 IF JL < ZE OR JL > LN THEN GO TO 5460
       5110 LET CJ = FN O(C&(J, ON))
       5120 PRINT TAB 17-LEN STR& JL; INVERSE ON; JL
            ; TAB 18; INVERSE ZE; "-"; C&(JL, ON)
            ; "-"; C&(JL, TW); "-"; C&(JL, TR); "-"
            ;C&(JL, FR);
       5130 IF ABC CJ <> ON THEN GO TO 5460
       5140 LET DD = (JL > J)-(JL < J)
       5150 LET JA = G :LET DP = ZE
       5170 LET CL = J+DD
       5180 LET NL = ZE : IF C&(CL,ON) = "--" THEN GO TO 5220
       5190 IF C&(CL, TW, ON TO ON <> "1"
               THEN LET NL = ON+(C&(CL, TW) <> "--")
                    +(C&(CL, TR) <> "--"0
                    +(C&(CL, FR) <> "--")
                    : GO TO 5220
       5200 LET TJ = FN O(C&(CL, ON))
       5210 LET N1 = (TJ = ON)*TR+(TJ = -ON)*TW
       5220 IF CL = JL AND DD > ZE THEN GO TO 5270
       5230 LET DP = DP+N1
       5240 IF CL = JL THEN GO TO 5270
       5250 LET CL = CL+DD
       5260 GO TO 5180
       5270 IF CJ = ON THEN LET JA = JA+_DD*DP+(DD > ZE)*TR
            :GO TO 5310 
       5280 IF DD > ZE THEN LET DP = DP+2
       5290 IF DP > 126 AND DD < ZE THEN GO TO 5460
       5300 IF DP > 129 AND DD > ZE THEN GO TO 5460
       5310 LET V = 16* FN D(C&(J, ON, ON TO ON))
            +FN D(C&(J, ON, TW TO TW))
       5320 POKE G, V : LET G = G+ON
       5330 IF CJ = ON THEN POKE G, JA-INT JA/QK)*QK
            : LET G = G+ON : POKE G, INT (JA/QK)
            : LET G = G+ON : GO TO 5360
       5340 IF DD < ZE THEN LET DP = -DP
       5350 LET DP = DP-TW : POKE G, DP : LET G = G+ON
       5360 PRINT "OK"
       5370 GO TO 5470
       5380 FOR I = ON TO 7 STEP TW
       5390 LET K = INT (I/TW+ON)
       5400 LET V = 16* FN D(C&(J, K, ON TO ON))
            +  FN D(C&(J, K, TW TO TW))
       5410 IF V < ZE THEN GO TO 5440
       5420 POKE G, V
       5430 LET G = G+ON
       5440 NEXT I
       5450 GO TO 5470
       5460 PRINT "**"
       5470 NEXT J
       5480 PRINT AT ZE, 25; "--------"
            : GO TO MR
       6000 REM
       6010 REM INV MEMORY-DISPLAY********* IRU
                ---                         ---
       6020 INPUT " STARTING ADDRESS :-A:; DM
       6030 CLS : PRINT AT ZE, ZE;
       6040 LET G = DM : LET F = ZE
       6050 LET F = F+ON
            : PRINT TAB 5-LEN STR& G; G; TAB 6;
       6060 FOR I = ON TO FR
       6070 LET V = PEEK G
       6080 LET H = INT (V/16)
       6090 LET L = V-16*H
       6100 PRINT D&(H+ON) ; D&(L+ON); "-";
       6110 LET G = G+ON
       6120 NEXT I
       6130 PRINT "-"
       6140 IF F <> 22 THEN GO TO 6050
       6150 LET K& = INKEY& : IF K& ="" THEN GO TO 6150
       6160 IF K& <> "M" AND K& <> "M" THEN LET F = ZE
            : POKE 23692, QK-ON : GO TO 6050
       6200 POKE 23692, ON : PAUSE 20 : GO TO MR
       7000 REM
       7010 REM INV LOAD ****************** IRU
                ---                         ---
       7020 CLS
       7030 INPUT
            "LOAD-ARRAY : PRESS-ANY-KEY-WHEN---READY.-"
            ; K&
       7040 PRINT AT ZE, 25; INVERSE ON; FLASH ON; "LOADING"
       7050 LOAD "SOURSE" DATA C&()
       7060 FOR I = ON TO ON
       7070 LET TP = I
       7080 IF C&(I, ON) <> "--"~ THEN GO TO 7100
       7090 NEXT I
       7100 FOR I = 1N TO ON STEP -1
       7110 LET BP = I
       7120 IF C&(I, ON) <> "--" THEN GO TO 7140
       7130 NEXT I
       7140 PRINT AT ZE, 25; "-------:
       7150 GO TO 9150
       8000 REM
       8010 REM INV SAVE****************** IRU
                ---                        ---
       8020 INPUT "ENTER-NAME :-"; N&
       8030 IF N& = "" THEN GO TO 8020
       8040 INPUT
               "SOURCE-OR-MACHINE-CODE :-(S-OR-M)"
               : K&
       8050 IF K& <> "S" AND K& <> "M" THEN GO TO 8040
       8060 IF K& = "S" THEN SAVE N& DATA C&() : GO TO MR
       8070 INPUT "STARTING-ADDRESS : -"; SS
       8080 INPUT "FINISHING-ADDRESS : -"; SF
       8090 LEN SB = SF-SS+ON
       8100 SAVE N& CODE SS, SB
       8110 GO TO MR
       9000 REM
       9010 REV INITIALISATION
       9020 LET ZE = PI - PI : LET ON = PI / PI
            : LET TW = ON+ON : LET TR = ON+TW
            : LET FR = TW+TW : LET QK = 2556
            : LET MR = 2020 : LET 1N = 200
       9025 BORDER 7 : PAPER 7 : INK ON : INVERSE ZE
            : OVER ZE : FLASH ZE : BRIGHT ZE
            : BEEP .25, 24 : BEEP .25, 12
       9030 DIM A&(15) : DIM O&(TW)
       9040 LET TP = LN : LET BP = ON : REM LINE-NUMBER-BUFFER
       9050 DIM C&(LN, FR, TW) : REM HOLDS-CODE
       9060 PRINT AT ZE, 20; INVERSE ON; FLASH ON
               ; "INITIALISING"
       9070 FOR I = ON TO LN
       9080 FOR J = ON TO FR
       9090 LET C&(I, J) = "-"
       9100 NEXT I
       9110 BEEP .01, 20
       9120 NEXT I
       9130 PRINT AT ZE, 20; "------------"
       9140 LET D& = "0123456789ABCDEF"
       9150 CLS : PRINT "LOWEST-ADDRESS : -"; 31500
       9160 INPUT "LOADING-ADDRESS : -"; R : PAUSE 20
       9170 IF R < 31500 THEN GO TO 9160
       9180 CLS : GO TO MR

COPYRIGHT -᪨ ࠢ;  
MACHINE-CODE-MONITOR - 設 몠;  
ROUTINE - ணࠬ;  
MAIN ROUTINE - ᭮ ணࠬ;  
COMMAND OR LINE -   ப;  
NUMBER  MUST  BE 3 BYTES -  ப  ⠢ 
;  
PRINT A BLOCK OF LINES -   ப;  
COMMANDS - ;  
MEMORY DISPLAY - ᯥ⪠ ;  
STARTING ADDRESS - 砫 ;  
LOAD - 㧪;  
LOAD  ARRAY  : PRESS-ANY-KEY-WHEN---READY - 㧪 ᨢ:
  , 㤥 ⮢;  
SAVE - ;  
ENTER NAME -  ;  
SOURCE OR MACHINE CODE - 室 ⥪  ⥪  設
몥;  
FINISHING ADDRESS -  ;  
INITIALISATION - 樠;  
LINE NUMBER BUFFER -  ஢ ப;  
LOWEST ADDRESS - 訩 ; 
LOADING ADDRESS -  㧪. 
