                                     - 1 -
                          ___
               16-⭠ ࠢ ணࠬ  让  -
           ணࠬ  ࠡ  䥩ᮬ   ⥫
           ⭮ .  ணࠬ   ࠧ ண-
          ࠬ  SV [], LD [], VRIFY []
           RG [].
               窠 室   ணࠬ - SAVE-ETC (0605).    -
          । ⮩ 窮 ᯮ ணࠬ,   -
           䠪   ⥭ ( ஢) ⮢.
                  ,      ࠡ뢠
          ⨬ ணࠬ, 뢠 ॣ஢ ன D,  -
          ঠ饩 "" ,  ॣ஢  ன  I,  ᮤঠ饩
          " ",  ॣ஬ ,  ᮤঠ騬  +00    
          ""  +FF   ணࠬ  .
                              "SA-YS"
                ணࠬ 뢠   ""  (
          098)     ⥪饣  ணࠬ/.
          042 SA-BYTES  LD    HL,+053F         ।⥫쭮 㧨
                                                 設 ⥪ 
                         PUSH  HL               SA/LD-RET
                         LD    HL,+1F80          ⠭ 㤥 -
                                                 砫 ⮪
                                                  ""
                                                 ਬ୮ 5 ᥪ.
                         BIT   7,A              室 ।, ᫨
                                                뢠 "-
                         JR    Z,04D0,SA-FLAG   ".
                         LD    HL,+098          ⠭ 㤥 -
                                                 砫 ⮪
                                                   ண-
                                                ࠬ   
                                                ਬ୮ 2 ᥪ.
          04D0 SA-FLAG   EX    AF,A'F'          ࠭ 䫠.
                         INC   DE               "" 㢥稢 
                                                " " 㬥-
                         DEC   IX               , ⮡  䫠.
                         DI                     ᪨㥬 뢠 -
                                                  ६ .
                         LD    A,+02            ⬥: "I ." 
                                                ࠭    RED
                                                [ ].
                         LD    B,A              뫪 祭  .
                ந室 室  横    ᮧ  ᮢ
          砫쭮 ⪠ .   "I  .",    
          "I 몫."  ⥫쭮 2168 -ﭨ.  ࠭-
             RED []    YN  []    
          "஭".
          ਬ砭: "஭" - 室  "."   "몫."    
          "몫."  ".".
                                     - 2 -
          0D48 SA-LEDER DJNZ  04D8,SA-LEADER    ᭮ ६ ਮ.
                         OUT   (+FE),A           I ./몫.,
                                                 ࠭ RED/CYAN
                         XOR   +0F                 室.

                         LD    B,+A4             ᭮ ६
                                                 ⠭.
                         DEC   L                 襭 襣
                                                 稪.
                         JR    NZ,04D8,SA-LEADER 室  
                                                 㣮 .
                         DEC   B                    
                                                 (㬥  13 --
                                                 ﭨ).
                         DEC   H                 襭 襣
                                                 稪.
                         JP    ,04D8,SA-LEADER  室   -
                                                    -
                                                  砫쭮 -
                                                  .
                뫠 ᨭ஭騩 .
                         LD    B,+2F
          04EA SA-SYNC-1 DJNZ  04EA,SA-SYNC-1    MIC 몫.  667 -co-
                                                 ﭨ   "OUT  OUT".
                         OUT   (+FE),A           I .  RD.
                         LD    A,+0D             ⬥: "I 몫.
                                                  YN".
                         LD    B,+37             MI .  735 --
                                                 ﭨ  "OUT  OUT".
          04F2 SA-SYNC-2 DJNZ  04F2,SA-SYNC-2
                         OUT   (+FE),A            I 몫. 
                                                 ࠭ YN.
               , 㪠뢠騩,    ""    ணࠬ
           ,    뢠 ⮬.

                         LD    ,+30          +3 - ६ ⠭,
                                                 +0 ᨣ "I
                                                 몫.  YELLOW" [].
                             AF,'F'           롮ઠ 䫠  -
                                                    ॣ L 
                         LD    L,AD,SKIP-OVER    "뫪".
                         JP    0507,SA-START     室 ।  横
                                                 .
                ந室 室  横  .  -
          ⮬,   뢠,  䫠, ᫥  
          ᫥  䠪᪨   ᫥ 뫠  -
           ⭮, ନ㥬 ⥬  祭  ।-
           ⮢.
          04FE SA-LOOP   LD    A,D              ஢ 稪
                                                ""  믮
                         OR    E                室,   -
                                                  .
                         JR    Z,050E,SA-PARITY
                         LD    L,(IX+00)        롮ઠ ᫥饣 -
                                                ,   
                                                ᠭ.
          0505 SA-LOOP-P LD    A,H              롮ઠ ⥪饩 "⭮".
                         XOR   L                 騩 .
                                     - 3 -
          0507 SA-START  LD    H,A              ⠭ "⭮".
                                                ,   
                                                室 祭 "䫠"
                                                樠 "⭮".
                         LD    A,+01            ⬥ "I . 
                                                BLUE" [].
                         SCF                    ⠭ ਧ -
                                                ७.  㤥 -
                                                  "થ"
                                                 8 ⮢ .
                         JP    0525,SA-8-BITS   室 ।.
                 뫠  "⭮",  뫠  
          ॣ L  .
          050E SA-PARITY LD    L,H               ⥫쭮
                                                祭 "⭮".
                         JR    0505,SA-LOOP-P   室 .
               騩 ७ 横  䠪᪨  -
          . 室  横 ⢫  窥 SA-BIT-1,   ⮬
          ਧ ७ । ⨯ 뢠 . -
            室 横   , ࠡ뢠 ⠪ -
          ࠧ "祭 "  "몫祭 ". 
            ᪮    855 -ﭨ.
          0511 SA-BIT-2  LD    A,C              C ਩  ஬
                                                室   "I
                                                몫.  YELLOW".
                         BIT   7,B              ⠭ ਧ ,
                                                ⮡ 㪠 "ன
                                                室".

          0514 SA-BIT-1  DJNZ  0514,SA-BIT-1    ᭮ ६ 横;
                                                 ஬ 室 ᥣ-
                                                 801 -ﭨ.
                         JR    NC,051C,SA-OUT   室,   -
                                                ⪨ , ᫨ -
                                                뢠 "0".
                         LD    B,+42             ᫨ 뢠
                                                "1",   855
          051A SA-SET    DJNZ  051A,SA-SET      -ﭨ.
          051C SA-OUT    OUT   (+FE),A           ࢮ 室 "I
                                                .  BLUE",   -
                                                ஬ 室 "I 몫.
                                                 YELLOW".

                         LD    B,+3E            ⠭ ६
                                                ⠭  ண
                                                室.
                         JR    NZ,0511,SA-BIT-2 室   
                                                ࢮ 室, -
                         DEC   B                 ⠭
                                                13 -ﭨ.
                         XOR   A                ⪠ ਧ -
                                                  ⠭ ॣ-
                         INC   A                   +0 (I . 
                                                BLUE) । த
                                                 "横  8 ⠬".
                ࢮ砫쭮 室  "横  8 ⠬"  ॣ
          L ᮤন    ⠭ ਧ ७.  -
          ᫥    ᭮ ந室 室   ,  
           㤥 ⨣ 窠,  "થ" 室   ਧ-
           ७, ⠢ ॣ L .
                                     - 4 -
          0525 SA-8-BITS RL   L                 ६  7 
                                                ਧ ७ 
                                                "થ" .
                         JP    NZ,0514,SA-BIT-1  , ᫨ 
                                                  稫.
                         DEC   DE                "稪".
                         INC   IX               ७ " ".

                         LD    B,+31            ⠭ ६
                                                ⠭  ࢮ
                                                 ᫥饣 .
                         LD    A,+7F             ( SA/LD-RET),
                                                ᫨ 뫠  -
                         IN    A,(+FE)           R [].
                         RRA
                         RET   NC
                         LD    A,D               ⨢ 砥 -
                                                 "稪"  -
                         INC   A                ३  ,  ᫨
                                                 ⨣  ( -
                         JP    NZ,04FE,SA-LOOP  뫪  "⭮").
                         LD    B,+3B            ,  "稪"
                                                ⨣ 祭 +FFFF.
          053C SA-DELAY  DJNZ  053C,SA-DELAY     ᯥࢠ ᤥ -
                                                 প.
                         RET
          ਬ砭:  ᪮  㤥    "I
          몫."   855 -ﭨ, ᮯ஢    ᮬ
          "MIC ." 855 -ﭨ, ⮣    ᪮
           㤥   筮  . 
          ⠪,        ᨭ஭騬 ᮬ  
          ⮬ 䫠,   ⠬  ஬⪮.
                            A "SA/LD-RET"
                ணࠬ  饩      (SV)  
          ⥭ (LD).
               ⠭ ࢮ砫 梥 ࠭  ᫥
          ࠧ ஢  BREAK [].
          063F SA/LD-RET PUSH  AF               ࠭ ਧ -
                                                 ( 뢠
                                                ᫥ 訡 ⥭).
                         LD    A,(BORDCR)       롮ઠ ࢮ砫쭮
                                                梥 ࠭  
                         AND   +38              ⥬ ६.
                         RRCA                   뫪 梥 ࠭
                                                  2, 1  0.
                         RRCA
                         RRCA
                         OUT   (+FE),A          ⠭ ࢮ砫-
                                                 梥 ࠭.
                         LD    A,+7F            뢠 
                                                R ᫥ ࠧ.
                         IN    A,(+FE)
                         RRA
                         EI                     ஢ ᪨-
                                                 뢠.
                         JR    C,0554,SA/LD-END 室, ᫨  
                                                 ᤥ 뢠.
                                     - 5 -
          饭 D - BREAK-CONT repeats [ ⨥ -
           -].
          0552 REPORT-D  RST  0008,ERROR-1      맮 ணࠬ
                                                ࠡ⪨ 訡.
                         DEFB  +0C
               த SA/LD-RET:
          0554 SA/LD-ND POP   AF               ⠭
                                                ਧ ७.
                         RET                      뢠
                                                ணࠬ.
                    "LD-BYTES" [" "]
                ணࠬ 뢠  ⥭ ଠ樨  "-
          " ( 076)   ⥭  ஫ ॠ쭮 
           ( 0802).
          0556 LD-BYTES  INC   D                 ਧ 
                                                (D   ᮤঠ
                                                +FF).
                         EX    AF,A'F'            ᮤন +00
                                                 ""  +FF
                                                  .
                                                ਧ ७ -
                                                뢠  ஢ન
                                                (VERIFY)  ⠭-
                                                  ⥭ (LOAD).
                         DEC   D                ⠭ ࢮ-
                                                쭮 祭  D.
                         DI                     ஢ ᪨㥬
                                                뢠.
                         LD    A,+0F            ࠭  WHITE
                                                [].
                         OUT   (+FE),A
                         LD    HL,+053F         ।⥫쭠 㧪
                                                 設 ⥪  -
                         USH  HL               SA/LD-RET.
                         IN    A,(+FE)          믮 砫쭮
                                                ⥭  "254".
                         RRA                    ᪨ ᤢ -
                                                祭 ,  ࠭
                         AND   +20              ⮫쪮  R.
                         OR    +02              ⬥: ࠭ RED
                                                [].
                         LD    C,A              㧨 祭  -
                                                  (+22  "몫."
                                                 +02  "." - ⥪-
                                                饥 ﭨ R).
                         CP    A                ⠭ ਧ .
               ࢠ ⠤ ⥭   ,  -
          騩 ᨣ ⢨⥫쭮   (..  ஭
          "./몫."  "몫./.").
          056 LD-BREAK  RET   NZ               , ᫨ 
                                                 R.
          056 LD-START  CALL  05E7,LD-EDGE-1     ᮬ ਧ-
                                                 ७, ᫨ 
                         JR    NC,056B,LD-BREAK ⪥  ਬ୮ 14000
                                                -ﭨ  뫮 "஭-
                                                ".  ᫨ "஭" -
                                                , ࠭ ३ 
                                                YN [].
                                     - 6 -
                ⠤ 砥   ᥡ      祭
          ண ६  ⥬ ஢ ⮣, ᨣ -०-
           .
                         LD    HL,+0415         ⥫쭮 ⮣
                                                ਮ 
          0574 LD-WAIT   DJNZ  0574,LD-WAIT     㤥 ࠢ 
                                                 ᥪ㭤.
                         DEC   HL
                         LD    A,H
                         OR    L
                         JR    NZ,0574,LD-WAIT
                         CALL  05E3,LD-EDGE-2   த ⮫쪮 ᫨
                                                 । ⨬
                         JR    NC,056B,LD-BREAK ६ ஬⪠
                                                㦥  ஭.
                ਭ "ᨣ 砫쭮 ⪠".

          0580 LD-LEADER LD    B,+9C             ६ ⠭.
                         CALL  05E3,LD-EDGE-2    த ⮫쪮 ᫨
                                                  । ⨬
                         JR    NC,056B,LD-BREAK  ६ ஬⪠
                                                 㦥  ஭.
                         LD    A,+C6              ஭  
                                                 㦥  -
                         CP    B                 ﭨ ਬ୮ 3000
                                                 -ﭨ  
                         JR    NC,056C,LD-START  㣠.
                         INC   H                   ஭⮢
                                                  ॣ ,  
                         JR    NZ,0580,LD-LEADER 㤥  256 .
               ᫥ 砫쭮 ⪠    "몫."    "."
          ᨭ஭饣 .

          058F LD-SYNC   LD    B,+C9             ६ ⠭.
                         CALL  05E7,LD-EDGE-1     
                                                 ஭,   
                         JR    NC,056B,LD-BREAK  㦥  ஭
                                                     -
                         LD    A,B                 砫 
                                                  ஭ ᨭ-
                         CP    +D4               ஭饣 
                                                 "몫.".
                         JR    NC,058F,LD-SYNC
                         CALL  05E7,LD-EDGE-1     ⢮ -
                                                  ஭ 
                         RET   NC                "." ( ਧ
                                                 ७ 襭).
                    ணࠬ/ -
            ᠭ  ஢७.     ⮬  
          ਧ ⨯.
                         LD    A,C               ⠬ ࠭ ।
                                                  BLUE [] 
                         R   +03               YELLOW [].
                         LD    C,A
                         LD    H,+00             樠 
                                                 "⭮" - ⠭-
                                                    .

                         LD    B,+B0             ⠭ ६
                                                 ⠭  
                                                 䫠.
                                     - 7 -
                         JR    05C8,LD-MARKER    室 ।  横
                                                 ⥭ ⮢.
                ⥭ ⮢ ᯮ  롮ન ⮢  (
            ࠧ).  뢠  䫠.    ᫥-
            ,  ᫥ -  "⭮".
          05A9 LD-LOOP   EX    AF,A'F'            롮ઠ 䫠.
                         JR    NZ,05B3,LD-FLAG   室 । ⮫쪮 
                                                 ࠡ⪥ ࢮ .
                         JR    NC,05BD,LD-VERIFY 室 ।  -
                                                 થ .
                         LD    (IX+00),L         믮 䠪᪮
                                                 ⥭,  ॡ.
                         JR    05C2,LD-NEXT      室 ।  ⥭
                                                 ᫥饣 .
          05B3 LD-FLAG   RL    C                 ६ ࠭ ਧ-
                                                  ७  "-
                                                  ".
                         XOR   L                  , ᫨
                                                 ਧ ⨯  ᮮ⢥-
                         RET   NZ                 ࢮ  
                                                  (ਧ ७
                                                 뢠).
                         LD    A,C                ⠭
                                                 ਧ ७.
                         RRA
                         LD    C,A
                         INC   DE                 稪 
                                                 樨  "㬥-
                         JR    05C4,LD-DEC       襭" ᫥ 室.
               ᫨   ஢,   㦥 
          ᢥ  ࢮ砫 ⮬.
          05BD LD-VERIFY LD    A,(IX+00)         롮ઠ ࢮ砫쭮
                                                 .
                         XOR   L                 ࠢ   
                                                 ⮬.
                         RET   NZ                  ᮢ
                                                 (ਧ ७ -
                                                 뢠).
                    祭  .
          05C2 LD-NEXT   INC   IX                  "
                                                 祭".
          05C4 LD-DEC    DEC   DE                 "稪".
                         EX    AF,A'F'           ࠭ 䫠.

                         LD    B,+B2             ⠭ ६
                                                 ⠭.
          05C8 LD-MARKER LD    L,+01              ॣ "-
                                                 祭", ஬ 
                                                 "થ".
                ନ஢   ॣ L  ᯮ  横
          "LD-8-BITS".
          05CA LD-8-BITS CALL  05E3,LD-EDGE-2      ᮢ
                                                 "몫."  "." ᫥-
                                                 饣 .
                         RET   NC                , ᫨ ॢ襭
                                                 ६ ਮ (ਧ-
                                                  ७ 뢠).
                                     - 8 -
                         LD    A,+CB             ࠢ   ਬ-
                                                  2000 -ﭨﬨ,
                         CP    B                 뢠 ਧ -
                                                   "0"  ⠭-
                                                   "1".
                         RL    L                    
                                                 ॣ L.

                         LD    B,+B0             ⠭ ६ -
                                                 ⠭   .
                         JP    NC,05CA,LD-8-BITS 室 ,  
                                                  ,  -
                                                  뢠.
                "⭮"      -
          ⮬.
                         LD    A,H                 "⭮"
                                                    .
                         XOR   L
                         LD    H,A                ᭮ -
                                                  .
                ,  "稪"  ⨣  .  
          ⮩ 窥  "⭮"  ᮤঠ .
                         LD    A,D                ᫥騩 -
                                                 室, ᫨ ॣ஢
                         OR    E                  D  ᮤন
                                                 .
                         JR    NZ,05A9,LD-LOOP
                         LD    A,H                 "⭮".
                         CP    +01                 ⠭
                                                 ਧ ७, -
                         RET                      祭  (ਧ-
                                                  ७ 뢠-
                                                   訡).
                      "LD-EDGE-2"  "LD-EDGE-1"
                 ணࠬ 믮      
          樨 ⥭/஢ઠ.
                室  ணࠬ  ॣ   ᮤন  -

           ⠭,   ॣ  - ।騩 梥 ࠭ 
          "⨯ ஭".
                室  ணࠬ ⠭ ਧ  -
          ७, ᫨  ⨬ ६ 뫮  ॡ㥬 -
           "஭⮢",   祭  ॣ   ࠧ  -
          뢠, ᪮쪮 ६ ॡ, ⮡  "஭"
          ("஭").
               ᫨ 뫠 訡, ਧ ७ 㤥 襭. 
          ਧ  ᨣ "  BREAK",  ᫨  
          襭,  "६ ॢ襭", ᫨ ⠭.
               室 窠 LD-EDGE-2 ᯮ,  㦭 
           ,  LD-EDGE-1 -  । ६  -
          । ᫥騬 "஭⮬".
          05E3 LD-EDGE-2 CALL  05E7,LD-EDGE-1    ᪨ 맢
                                                 LD-EDGE-1 ,
                         R   N                믮  -
                                                  맮, ᫨ 
                                                 訡.
                                     - 9 -
          05E7 LD-EDGE-1 LD    A,+16              358 --
                                                 ﭨ । 室
          05E9 LD-DELAY  DEC   A                  横 롮ન.
                         JR    NZ,05E9,LD-DELAY
                         AND   A
                室  横 롮ન. 祭  ॣ   㢥-
          稢   室;   ⨣ ,  -
          頥 "६ ॢ襭".
          05ED LD-SAMPLE INC   B                   室.
                         RET   Z                  ਧ -
                                                  襭  -
                                                   ⠭-
                                                 , ᫨ "६ -
                                                 襭".
                         LD    A,+7F                +7FFE,
                                                 .e. BREAK  EAR.
                         IN    A,(+FE)
                         RRA                      .
                         RET   NZ                 ਧ -
                                                  襭  -
                                                   襭,
                                                 ᫨ 뫠  -
                                                  BREAK.
                         XOR    C                 ஢ 
                                                  "⨯ ᫥
                         AND    +20              ஭"; 室 -
                                                 , ᫨   -
                         JR    Z,05ED,LD-SAMPLE  .
                "஭"    ⨬   ᪠
          ਮ ६. ⮬  梥 ࠭   ⠭-
           ਧ ७.
                         LD    A,C                "⨯ ᫥-
                                                  ஭"  梥
                         CPL                     ࠭.
                         LD    C,A
                         AND   +07               ࠭ ⮫쪮 梥
                                                 ࠭.
                         OR    +08               ⬥: "I 몫.".
                         OUT   (+FE),A            梥 ࠭
                                                 RED/CYAN [/-
                                                 ]  BLUE/YEL-
                                                 LOW [/]).
                         SCF                      ⬥ 
                                                 ᯥ譮 ᪠
                         R                     । ⮬.
          ਬ砭: ணࠬ LD-EDGE-1  465  -ﭨ
           ⥫쭮 58  -ﭨ      㤠筮
          室 १ 横 롮ન.
               ⮬, ਬ,   ᨭ஭饣 -
           (. LD-SYNC  058F) ᪠   ⥫
          室 横 롮ન.  ࠧ,᫥騩 ஭ 
          ᪠  । ਬ୮ 1100 -ﭨ (465 + 1058 +
           室).   ᯥ  ᨭ஭-
          饣  "몫.", 饣 ᫥  "ᮢ  -
          砫쭮 ⪠".
                   "SAVE, LOAD, VERIFY  MERGE"
                                     - 10 -
                     [", ,   "]
                   ᯮ 窠 室  SAVE-
          ETC,  祭, ᮤঠ饥  -DDR, ࠧ  -
           . ࢠ  ᫥饩  ணࠬ  -
           ஥ "ଠ樨 "  ࠡ祩 .
          0605 SAVE-ETC  POP   AF                  SCAN-LOOP.
                         LD    A,(T-ADDR-lo)      -DDR-l 
                                                 +0,  +00 
                         SUB   +E0                (SAVE), +01 
                                                 ⥭ (LOAD), +02 
                         LD    (T-ADDR-lo),A     ஢ન (VERIFY)  +03
                                                  ᫨ﭨ (MERGE).
                         CALL  1C8C,EXPT-EXP     । ࠬ "-
                                                 "  ⥪ .
                         CALL  2530,SYNTAX-Z     室 ।  砥
                                                 ஢ન ᨭ⠪.
                         JR    Z,0652,SA-DATA
                         LD    BC,+0011          ᯥ ᥬ
                                                 祥  ""
                         LD    A,(T-ADDR-lo)       (SAVE), 
                                                 ਤ  
                         AND   A                 㣨 .
                         JR    Z,0652,SA-DATA
                         LD    C,+22
          0621 SA-SPACE  RST   0030,BC-SPACES    뤥 㦭 쥬 -
                                                   ࠡ祩 .
                         PUSH  DE                ஢ 砫쭮
                                                   ॣ஢
                         POP   IX                 I.
                         LD    ,+0B              ணࠬ 
                                                 ᮤঠ  
                         LD    A,+20             ,  ᭠砫 
                                                 ⮢ 
          0629 SA-BLANK  LD    (DE),A             
                                                  ஡.
                         INC   DE
                         DJNZ  0629,SA-BLANK
                         LD    (IX+01),+FF       ⮥  - ⮫쪮 +FF.
                         CALL  2BF1,STK-FETCH    롮ઠ ࠬ஢ -
                                                  ஢ઠ  .
                         LD    HL,+FFF6           - "-10".
                         DEC   BC                 १ 室
                                                 ।, ᫨ 
                         ADD   HL,BC               ᫨誮 -
                                                  (..  
                         INC   BC                 ).
                         JR    NC,064B,SA-NAME
                         LD    A,(T-ADDR-lo)       ⥭,
                                                 ஢  ᫨ﭨ
                         AND   A                 ணࠬ  "묨"
                                                  ᫨誮 묨
                         JR    NZ,0644,SA-NULL   .
          饭 F - Invalid file name [୮  䠩].
          0642 REPORT-F  RST   0008,ERROR-1      맮 ணࠬ
                                                 ࠡ⪨ 訡.
                         DEFB  +0E
               த ࠡ⪨  ணࠬ.
          0644 SA-NULL   LD    A,B               室 ।, ᫨
                                                   "㫥"
                         OR    C                 .
                         JR    Z,0652,SA-DATA
                                     - 11 -
                         LD    BC,+000A             .
                 ७  ࠡ  ( 祩
          ᫥).
          064B SA-NAME   PUSH  IX                ஢ 砫쭮-
                                                    ॣ-
                         POP   HL                  L.
                         INC   HL                室    ன
                                                 祩.
                         EX    DE,HL             "ॡ" 㪠-
                                                 ⥫  ᪮஢
                         LDIR                    .
               e ᬠਢ ࠧ  ࠬ,  ᫨  
          ,  ᫥  . 筥   ࠡ⪨  'xxx
          "" DATA'.
          0652 SA-DATA   RST   0018,GET-CHAR       ⥪騩
                                                  ᥬ DATA?
                         CP    +E4
                         JR    NZ,06A0,SA-SCR$   室, ᫨ .
                         LD    A,(T-ADDR-lo)      ⨬
                                                  'MERGE
                         CP    +03                DATA'.
                         JP    Z,1C8A,REPORT-C
                         RST   0020,NEXT-CHAR     -DD.
                         CALL  28B2,LOOK-VARS      ६-
                                                   ᨢ.
                         SET   7,C               ⠭  7 -
                                                  ᨢ.
                         JR    NC,0672,SA-V-OLD  室, ᫨ ࠡ⪠
                                                 饣 ᨢ.
                         LD   L,+0000           ⬥: "ᯮ짮
                                                  ᨢ".
                         LD    A,(T-ADDR-lo)     ஠஢ -
                                                   -DDR  뤠
                         DEC   A                 訡  ⪥ -
                                                   ஢
                         JR    Z,0685,SA-V-NEW    ᨢ.
          饭 2 - Variable not found [६  ].
          0670 REPORT-2  RST   0008,ERROR-1      맮 ணࠬ
                                                 ࠡ⪨ 訡.
                         DEFB  +01
                ࠡ த  騬 ᨢ.
          0672 SA-V-OLD  JP    NZ,1C8A,REPORT-C  ਬ砭: 㤠-
                                                  ⪠ ᪫-
                                                   ப.
                         CALL  2530,SYNTAX-Z     室 ।,
                                                 ᫨ ஢ઠ
                         JR    Z,0692,SA-DATA-1  ᨭ⠪.
                         INC   HL                뫪  "-
                                                  " ६.
                         LD    A,(HL)             쭮 
                                                 頥  ࠡ
                         LD    (IX+0B),A         ,  ᮯ஢-
                                                   ᨬ쭮
                         INC   HL                .
                         LD    A,(L)
                                     - 12 -
                         LD    (IX+0C),A
                         INC   HL                "蠣" १
                                                  .
                  饩  "ண"    "-
          " ᨢ. ਬ砭: ⠪᪠ 訡 .
          0685 SA-V-NEW  LD    (IX+0E),C         ஢  ᨢ.
                         LD    A,+01             ।,  
                                                 ᫮ ᨢ.
                         BIT   6,C               室, ᫨  ⠪.
                         JR    Z,068F,SA-V-TYPE
                         INC   A                   ᨢ.
          068F SA-V-TYPE LD    (IX+00),A         ࠭ "⨯"  -
                                                  祩 
                                                 "".
               । ᮥ 㣨 ⥩  ᫥-
            .
          0692 SA-DATA-1 EX    DE,HL             ࠭ 㪠⥫  D.
                         RST   0020,NEXT-CHAR    C騩  ")"?
                         CP    +29
                         JR    NZ,0672,SA-V-OLD  뤠 ᮮ饭 ,
                                                 ᫨ .
                         RST   0020,NEXT-CHAR    த -DD.
                         CALL  1BEE,CHECK-END    ३  ᫥饬
                                                 , ᫨ -
                                                  ᨭ⠪.
                         EX    DE,HL              㪠⥫ 
                                                 ॣ஢  D
                         JP    075A,SA-ALL       । 室 
                                                 ᫮ (㪠⥫ 㪠-
                                                 뢠  砫 -
                                                 ন -
                                                 饣 ᨢ).
                 "SCREEN$" [""].
          06A0 SA-SCR$   CP    +               騩  - ᥬ
                                                 "SCREEN$"?
                         JR    NZ,06C3,SA-CODE   室, ᫨ .
                         LD    A,(T-ADDR-lo)      ⨬ "MERGE
                                                  SCREEN$".
                         CP    +03
                         JP    Z,1C8A,REPORT-C
                         RST   0020,NEXT-CHAR   த  -DD.
                         CALL  1BEE,CHECK-END    ३  ᫥饬
                                                 , ᫨ -
                                                  ᨭ⠪.
                         LD    (IX+0B),+00        ᯫ  -
                                                  ਡ⮢ -
                         LD    (IX+0C),+1B        +100 祥  
                                                  稭 
                         LD    HL,+4000          +4000;   -
                                                 뫠  
                         LD    (IX+0D),L           ࠡ祩
                                                 .
                         LD    (IX+0E),H
                         JR    0710,SA-TYPE-3    室 ।.
                 "DE" [""].
                                     - 13 -
          06C3 SA-CODE   CP    +AF                 ⥪騩
                                                  ᥬ "D"?
                         JR    NZ,0716,SA-LINE   室, ᫨ .
                         LD    A,(T-ADDR-lo)      ⨬ "MERGE
                                                  DE".
                         CP    +03
                         JP    Z,1C8A,REPORT-C
                         RST   0020,NEXT-CHAR   த  -DD.
                         CALL  2048,PR-ST-END    室 ।, ᫨
                                                   稫.
                         JR    NZ,06E1,SA-CODE-1
                         LD    A,(T-ADDR-lo)       ᪠ 
                                                 "SAVE  CODE".
                         AND   A
                         JP    Z,1C8A,REPORT-C
                         CALL  1CE6,USE-ZERO        ⥪
                                                  - 
                                                 "砫".
                         JR    06F0,SA-CODE-2    室 ।.
                "砫쭮 ".
          06E1 SA-CODE-1 CALL  1C82,EXPT-1NUM    롮ઠ ࢮ ᫠.
                         RST   0018,GET-CHAR     騩  "."  ?
                         CP    +2C
                         JR    Z,06F5,SA-CODE-3  室, ᫨  - ᫮
                                                 뫮 "砫 ᮬ".
                         LD    A,(T-ADDR-lo)      ⢥࣭ "SAVE 
                                                 CODE",  ஬ 
                         AND   A                 "砫"  "".
                         JP    Z,1C8A,REPORT-C
          06F0 SA-CODE-2 CALL  1CE6,USE-ZERO        ⥪
                                                  - 
                                                 "砫".
                         JR    06F9,SA-CODE-4    室 ।.
               롮ઠ  "".
          06F5 SA-CODE-3 RST   0018,GET-CHAR     த -DD.
                         CALL  1C82,EXPT-1NUM    롮ઠ "".
                ࠬ    ""  -
          祩 .
          06F9 SA-CODE-4 CALL  1BEE,CHECK-END     ⥯ ३ 
                                                 ᫥饬 ,
                                                 ᫨ ஢ ᨭ-
                                                 ⠪.
                         CALL  1E99,FIND-INT2     ""  ॣ-
                                                 ஢    -
                         LD    (IX+0B),C          .
                         LD    (IX+0C),B
                         CALL  1E99,FIND-INT2     "砫 "
                                                  ॣ஢  
                         LD    (IX+0D),C           .
                         LD    (IX+0E),B
                         LD    H,B               ७ "㪠⥫" 
                                                 ॣ஢  L
                         LD    L,C                筮.
                "SCREEN$",  "CODE"  ⨯ 3.
                                     - 14 -
          0710 SA-TYPE-3 LD    (IX+00),+03         "⨯".
                         JR    075A,SA-ALL         㣨
                                                 .
                 "LINE"  " ࠬ஢ ".
          0716 SA-LINE   CP    +CA                 ⥪騩 
                                                 ᥬ "LINE"?
                         JR    Z,0723,SA-LINE    室, ᫨ .
                         CALL  1BEE,CHECK-END    ३  ᫥饬
                                                 , ᫨ -
                                                  ᨭ⠪.
                         LD    (IX+0E),+80       ᫨   -
                                                 ஢,  +80.
                         JR    073A,SA-TYPE-0    室 ।.
               롮ઠ " ப", ஥    ᫥  
          "LINE".
          0723 SA-LINE-1 LD    A,(T-ADDR-lo)      ᪠ ⮫쪮
                                                 "SAVE  LINE ".
                         AND   A
                         JP    NZ,1C8A,REPORT-C
                         RST   0020,NEXT-CHAR    த -DD.
                         CALL  1C82,EXPT-1NUM    ᫠  
                                                 ⥪ .
                         CALL  1BEE,CHECK-END    ३  ᫥饬
                                                 , ᫨ -
                                                  ᨭ⠪.
                         CALL  1E99,FIND-INT2     " ப"
                                                  ॣ஢  
                         LD    (IX+0D),C           .
                         LD    (IX+0E),B
                "LINE",  " ࠬ஢ "  ⨯ 0.
          073 SA-TYPE-0 LD    (IX+00),+00         ⨯.
               室     ""    ࠡ祩
           ࠬ, 뢠騥 ணࠬ   ६.
                         LD    HL,(E-LINE)       ⥫  
                                                  ६.
                         LD    DE,(PROG)         ⥫  砫
                                                 ணࠬ  ᨪ.
                         SCF                      믮 -
                                                 ⠭, ⮡ 
                         SBC   HL,DE              "ணࠬ +
                                                 ६"; -
                         LD    (IX+0B),L          १.
                         LD    (IX+0C),H
                         LD    HL,(VARS)           -
                                                 ,   
                         SBC   HL,DE              ࠧ  ⮫쪮
                                                 "ணࠬ".
                         LD    (IX+0F),L
                         LD    (IX+10),H
                         EX    DE,HL             ᫠ 㪠⥫ 
                                                 ॣ஢  L
                                                  筮.
                  ⥯ ⮢  ଠ  "-
          ":
                                     - 15 -
               - 祩 "I+00" ᮤন  ⨯;
               - 祩  "I+01"  "I+0" ᮤঠ  ( "I+01" -
                  +FF, ᫨  ⮥);
               - 祩 "I+0"  "I+0"  ᮤঠ  ⢮  ⮢,
                 ஥  室  " ";
               - 祩  "I+0D"  "I+10" ᮤঠ ⢮ ࠬ-
                 ஢, 筠     "⨯".
                ࢠ  ணࠬ ⮨  ⮬, ⮡  -
            (SAVE)  ⥭, ஢ન    ᫨ﭨ  (LOAD,
          VERIFY  MERGE).
          075A SA-ALL    LD    A,(T-ADDR-lo)     室 ।, ᫨
                                                 ࠡ뢠 -
                         AND   A                  SAVE.
                         JP    Z,0970,SA-CONTROL
                砥  LOAD, VERIFY  MERGE    ᥬ-
           ⮢  ""  ࠡ祩  ᮤঠ -
          ⮢ ( ᠭ )  ଠ,    ⥯  
           ""  .
                         PUSH  HL                ࠭ 㪠⥫
                                                 "祭".
                         LD    BC,+0011          ନ஢  ॣ-
                                                 ஢  I -
                         ADD   IX,BC               "ண -
                                                  ".
                室  横, 室     ᫥  ⮣,
           "" ⠭.
          0767 LD-LOOK-H PUSH  IX                ஢  .
                         LD    DE,+0011          㧨 ᥬ ⮢.
                         XOR   A                 ⬥: "".
                         SCF                     ⬥: "⥭".
                         CALL  0556,LD-BYTES      ᪠ "".
                         POP   IX                ⠭  .
                         JR    NC,0767,LD-LOOK-H  横  ᯥ譮
                                                 襭.
                 ""  ⮡ࠦ    ࠭,  
          ணࠬ 㤥 த ࠡ ⮫쪮 ᫨ ""  -
           ᮮ⢥ "஬".
                         LD    A,+FE             ᯥ ⨥
                                                  "S".
                         CALL  1601,CHAN-OPEN
                         LD    (SCR-CT),+03      ⠭ 稪
                                                 ப⪨.
                         LD    C,+80             ⬥ " 
                                                 ᮢ".
                         LD    A,(IX+00)         ࠢ "" ⨯
                                                  "".
                         CP    (IX-11)
                         JR    NZ,078A,LD-TYPE   室, ᫨ ⨯ 
                                                 ᮢ.
                                     - 16 -
                         LD    C,+F6              ᫨ ᮢ, -
                                                 : " 
                                                  ᮢ".
          078A LD-TYPE   CP    +04               祢,  "-
                                                 "   ᫠, -
                         JR    NC,0767,LD-LOOK-H  ⨯ ࠢ 4  .
               ⠥ ᮮ⢥饥 ᮮ饭: "Program" ["ண-
          ࠬ"],  "Number  array"  ["᫮  ᨢ"],  "Character
          array" [" ᨢ"]  "Bytes" [""].
                         LD    DE,+09C0            
                                                 ᮮ饭.
                         PUSH  BC                ࠭ ॣ 
                                                  ६  ᮮ-
                         CALL  0C0A,PO-MSG       饣 ᮮ-
                                                 .
                         POP   BC
               ⠥ " "  ᫥ ⮣ ࠢ "-
          ஥"  "" .
                         PUSH  IX                 ⠪, ⮡
                                                 ॣ஢  D
                         POP   DE                㪠뢠  "
                                                 ⨯",  ॣ஢
                         LD    HL,+FFF0           L -  "஥
                                                 ".
                         ADD   HL,DE
                         LD    B,+0A              ᬠਢ
                                                  .
                         LD    A,(HL)            室 ।, ᫨
                                                   ᮮ⢥-
                         INC   A                 ⢨ 䠪᪮
                                                 .
                         JR    NZ,07A6,LD-NAME
                         LD    A,C                ᫨ "஥ "
                                                 "⮥",  ⬥:
                         ADD   A,B               "  㦥
                                                 ᮢ".
                         LD    C,A
               室  横    " ".  -
           ਭ, ᫨ 稪   ⨣ .
          07A6 LD-NAME   INC   DE                ᬮ  ।
                                                   "
                         LD    A,(DE)            ".
                         CP    (HL)              ࠢ   ᮮ⢥-
                                                 騬  "-
                         INC   HL                 ".
                         JR    NZ,07AD,LD-CH-PR   , ᫨ 
                                                  ᮢ.
                         INC   C
          07AD LD-CH-PR  RST   0010,PRINT-A-1     "" .
                         DJNZ  07A6,LD-NAME         .
                         BIT   7,C               ਭ  ⮫쪮 ᫨
                                                 稪 ⨣ .
                         JR    NZ,0767,LD-LOOK-H
                         LD    A,+0D             ஢ " "
                                                  " ⪨".
                         RST   0010,PRINT-A-1
                 ࠢ ""  諮 ६  -
          ᬮ   LOAD, VERIFY  MERGE  ⤥쭮.
                         POP   HL                롮ઠ 㪠⥫.
                                     - 17 -
                         LD    A,(IX+00)         "SCREEN$"  "CODE"
                                                 ࠡ뢠 -
                         CP    +03                VERIFY.
                         JR    Z,07CB,VR-CONTRL
                         LD    A,(T-ADDR-lo)     室 ।, ᫨
                                                 ᯮ 
                         DEC   A                 LOAD.
                         JP    Z,0808,LD-CONTRL
                         CP    +02               室 ।, ᫨
                                                 ᯮ 
                         JP    Z,08B6,ME-CONTRL  MERGE, த -
                                                 ᫨  VERIFY.
                        "VERIFY"
                ஢ન (䨪樨) 砥  ⮢
          ⥭  ,     - ⮫쪮 -
          ஫.  ணࠬ ᯮ ⠪  ⥭ -
            ( LOAD), ᠭ   "SCREENS"  
          "CODE".
          07CB VR-CONTRL PUSH  HL                ࠭ "㪠⥫".
                         LD    L,(IX-06)          "⢮
                                                 ⮢", ᠭ 
                         LD    H,(IX-05)         "஬" .
                         LD    E,(IX+0B)          ⠪ -
                                                 ⢮  ""
                         LD    D,(IX+0C)         .
                         LD    A,H               室 ।, ᫨
                                                 ""  ,
                         OR    L                 .. 㪠 ⮫쪮
                                                 "LOAD  CODE".
                         JR    Z,07E9,VR-CONT-1
                         SBC   HL,DE             뤠 ᮮ饭 R 
                                                 砥 ⪨ 
                         JR    C,0806,REPORT-R    訩, 祬 
                                                 襭.
                         JR    Z,07E9,VR-CONT-1  ਭ ࠢ "".
                         LD    A,(IX+00)          뤠 ᮮ饭
                                                 R  ⪥ ஢
                         CP    +03                ࠢ ࠧ
                                                 (" " 
                         JR    NZ,0806,REPORT-R  " ").
                ணࠬ  "㪠⥫ 祭".
          07E9 VR-CONT-1 POP   HL                 "㪠⥫",
                                                 .. "砫".
                         LD    A,H                "㪠⥫" 㤥
                                                 ᯮ짮, ᫨ 
                         OR    L                  㫥,  ⨢
                                                 砥   -
                         JR    NZ,07F4,VR-CONT-2  ᯮ짮 "-
                                                 砫", 室饥 
                         LD    L,(IX+0D)         "" .
                         LD    H,(IX+0E)
                 ਧ ஢ન-⥭  믮-
           䠪᪮ ⥭.
          07F4 VR-CONT-2 PUSH  HL                ᫠ "㪠⥫"
                                                  ॣ஢  L.
                         POP   IX
                         LD    A,(T-ADDR-lo)     室 ।, ᫨
                                                  ᯮ -
                         CP    +02                VERIFY  ⬥⪮
                                     - 18 -
                                                  ਧ ७
                         SCF                     "⥭".
                         JR    NZ,0800,VR-CONT-3
                         AND   A                 ⬥: "஢ઠ".
          0800 VR-CONT-3 LD    A,+FF             ⬥: "ਭ
                                                 ⮫쪮  "
                                                 । ⥭ .
             "LOAD A DATA BLOCK" ["  "]
               ணࠬ  饩   ணࠬ  "-
          ".  砥  LOAD  VERIFY  ᯥ稢  
            ணࠬ ࠡ  ⭮ ⭮ ⮩,  
          砥  MERGE      ᫨.
          0802 LD-BLOCK  CALL  0556,LD-BYTES     /஢
                                                  .
                         RET   C                 , ᫨ 
                                                 訡.
          襭 R - Tape loading error [訡  ⥭ ].
          0806 REPORT-R  RST   0008,ERROR-1      맮 ணࠬ
                                                 ࠡ⪨ 訡.
                         DEFB  +1A
                         "LOAD"
                ணࠬ ࠢ 㧪 ணࠬ  ᨪ
            ६  ᨢ.
          0808 LD-CONTRL LD    E,(IX+0B)         뢠 "⢠
                                                 ⮢",  
                         LD    D,(IX+0C)         " ".
                         PUSH  HL                ࠭ "㪠⥫
                                                 祭".
                         LD    A,H               室 ।, ᫨
                                                   ⪠
                         OR    L                 㧨  -
                                                  ࠭ ᨢ.
                         JR    NZ,0819,LD-CONT-1
                         INC   DE                ਡ   
                                                  -  , -
                         INC   DE                쭮   -
                                                 ᨬ쭮  
                         INC   DE                ६.
                         EX    DE,HL
                         JR    0825,LD-CONT-2    室 ।.
                ,        筮
              .
          0819 LD-CONT-1 LD    L,(IX-06)         뢠 ࠧ -
                                                  "ணࠬ +
                         LD    H,(IX-05)         + ६  ᨢ".
                         EX    DE,HL
                         SCF                     室 ।, ᫨
                                                  ॡ -
                         SBC   HL,DE             ⥫쭮 , -
                                                 뢠  -
                         JR    C,082E,LD-DATA     ᯮ㥬  -
                                                  ६ .
               믮 䠪᪠ ஢ઠ  .
          0825 LD-CONT-2 LD    DE,+0005           
                                     - 19 -
                                                 室  ࠧ
                         ADD   HL,DE              ⮢.
                         LD    B,H               ᫠ १ 
                                                 ॣ஢  
                         LD    C,L                믮 ஢.
                         CALL  1F05,TEST-ROOM
                ந 㧪 ᨢ.
          082E LD-DATA   POP   HL                  "㪠⥫".
                         LD    A,(IX+00)         室 ।, ᫨
                                                 㧪 ணࠬ 
                         AND   A                 ᨪ.
                         JR    Z,0873,LD-PROG
                         LD    A,H               室 ।, ᫨
                                                 㧪  -
                         OR    L                 ᨢ.
                         JR    Z,084C,LD-DATA-1
                         DEC   HL                뢠 "" -
                                                 饣 ᨢ
                         LD    B,(HL)            ⥬ ᡮ ⮢
                                                   
                         DEC   HL                ६.
                         LD    C,(HL)
                         DEC   HL                   ஥
                                                 .
                         INC   BC                ਡ   
                                                  -   
                         INC   BC                   "".
                         INC   BC
                         LD    (X-PTR),IX        ६ ࠭ -
                                                 ஢  I 
                         CALL  19E8,RECLAIM-2    ६ ⨫樨 
                                                 ண ᨢ.
                         LD    IX,(X-PTR)
                   ᨢ ᤥ 㯭  -  
           饩  ६.
          084C LD-DATA-1 LD    HL,(E-LINE)       ᪠ 㪠⥫ 
                                                 થ   
                         DEC   HL                ६ - " 80".
                         LD    C,(IX+0B)         롮ઠ ""
                                                  ᨢ.
                         LD    B,(IX+0C)
                         PUSH  BC                ࠭  "".
                         INC   BC                ਡ   -
                                                     
                         INC   BC                 "".
                         INC   BC
                         LD    A,(IX-03)         "I+0" ண -
                                                    ᨢ.
                         PUSH  AF                 ࠭, 
                                                  㯭 -
                         CALL  1655,MAKE-ROOM    ⢥騩 쥬
                                                 .  १
                         INC   HL                "" ᯮ
                                                 । " ⮬
                         POP   AF                80".
                         LD    (HL),A            砥 .
                         POP   DE                뢠 "" 
                                                    ⠪
                         INC   HL                .
                         LD    (HL),E
                         INC   HL
                         LD    (HL),D
                                     - 20 -
                         INC   HL                 L 㪠뢠 
                                                  祩, 
                                                   
                                                 묨  .
                         PUSH  HL                  뫠
                                                  ॣ஢  I,
                         POP   IX                ⠭ ਧ
                                                 ७, ⬥砥:
                         SCF                     " "  
                                                 뢠.
                         LD    A,+FF
                         JP    0802,LD-BLOCK
                ந 㧪 ணࠬ  ᨪ   
          ६.
          0873 LD-PROG   EX    DE,HL             ࠭ "㪠⥫
                                                 祭".
                         LD    HL,(E-LINE)         થ
                                                  ⥪饩 
                         DEC   HL                ६ - " 80".
                         LD    (X-PTR),IX        ६ ࠭ I.
                         LD    C,(IX+0B)          "" 
                                                  .
                         LD    B,(IX+0C)
                         PUSH  BC                ࠭  "",
                                                  ⨫ -
                         CALL  19E5,RECLAIM-1    騥  ணࠬ-
                                                   ६.
                         POP   BC
                         PUSH  HL                ࠭ 㪠⥫
                                                   ணࠬ
                         PUSH  BC                   
                                                 .
                         CALL  1655,MAKE-ROOM     㯭 
                                                  ணࠬ  
                                                 ६ 
                                                 쥬 .
                         LD    IX,(X-PTR)        ⠭ ॣ-
                                                 ஢  I.
                         INC   HL                  ணࠬ
                                                   ⠪ -
                         LD    C,(IX+0F)         ⠭ ⥬
                                                 ६ VARS.
                         LD    B,(IX+10)
                         ADD   HL,BC
                         LD    (VARS),HL
                         LD    H,(IX+0E)         ᫨   -
                                                 ,  ⮦ 
                         LD    A,H               ஢.
                         AND   +C0
                         JR    NZ,08AD,LD-PROG-1 室, ᫨ " -
                                                 ",  ⠭
                         LD    L,(IX+0D)         NEWPPC  NSPPC.
                         LD    (NEWPPC),HL
                         LD    (NSPPC),+00
                   .
          08AD LD-PROG-1 POP   DE                뢠 "".
                         POP   IX                뢠 "砫".
                         SCF                     ⬥: "⥭" (LOAD).
                         LD    A,+FF             ⬥: "⮫쪮 
                                                 ".
                         JP    0802,LD-BLOCK       .
                                     - 21 -
                        "MERGE"
                ⮩ ணࠬ  ᭮ :
               - ⥭    ࠡ ,
               - ᫨ﭨ ப  ணࠬ  ன ணࠬ,
               - ᫨ﭨ  ६  묨.
               ⠪, 筥  ⥭  .
          086 ME-CONTRL LD    C,(IX+0B)          "" 
                                                 .
                         LD    B,(IX+0C)
                         PUSH  BC                ࠭  "".
                         INC   BC                 ᤥ -
                                                 묨 " + 1" 祥
                         RST   0030,BC-SPACES     ࠡ祩 .
                         LD    (HL),+80           થ 
                                                  ⥫ 祩.
                         EX    DE,HL             ᫠ 㪠⥫
                                                 "砫"  ॣ-
                                                   L.
                         POP   DE                 ࢮ砫
                                                 "".
                         PUSH  HL                ࠭  "砫".
                         PUSH  HL                 ⠭ ॣ-
                                                   I  䠪-
                         POP   IX                ᪮ ⥭.
                         SCF                     ⬥ - "⥭" (LOAD).
                         LD    A,+FF             ⬥ "⮫쪮 
                                                 ".
                         CALL  0802,LD-BLOCK       .
               ப  ணࠬ ᫨  ப ன.
                         POP   HL                 "砫"
                                                  ணࠬ.
                         LD    DE,(PROG)         樠஢ D
                                                  "砫" ன
                                                 ணࠬ.
               室  横 ࠡ  ப  ணࠬ.
          08D2 ME-NEW-LP LD    A,(HL)            뢠 
                                                 ப   -
                         AND   +C0               ઠ.
                         JR    NZ,08F0,ME-VAR-LP 室,  -
                                                 祭 ࠡ  ᥬ
                                                 ப.
                室  ७ 横, ࠡ騩  ப-
           ன ணࠬ.
          08D7 ME-OLD-LP LD    A,DE              롮ઠ 襣 
                                                  ப  ࠢ-
                         INC   DE                 .
                         CP    (HL)              室 ।  -
                                                 ᮢ,   
                         INC   HL                砥 騢
                                                  㪠⥫.
                         JR    NZ,08DF,ME-OLD-L1
                         LD    A,(DE)             ࠢ
                                                   ⮢
                         CP    (HL)               ப.
          08DF ME-OLD-L1 DEC   DE                 㬥 㪠-
                                     - 22 -
                                                 ⥫.
                         DEC   HL
                         JR    NC,08EB,ME-NEW-L2 室 ।, ᫨
                                                  ப  -
                                                 ࠬ  ࠢ-
                                                 쭮 .
                         PUSH  HL                 ᪠  -
                                                 砫 ᫥饩 ன
                         EX    DE,HL             ப.
                         CALL  19B8,NEXT-ONE
                         POP   HL
                         JR    08D7,ME-OLD-LP      
                                                 "ன ப".
          08EB ME-NEW-L2 CALL  092C,ME-ENTER      " ப" 
                                                 믮 ᭮ 譨
                         JR    08D2,ME-NEW-LP    横.
               室 ࠧ ᫨ ६  ணࠬ  
          ६묨 ன.
          08F0 ME-VAR-LP LD    A,(HL)               -
                                                 ६  । 
                         LD    C,A               ஢ .
                         CP    +80               ,  ᬮ-
                                                 ७  ६.
                         RET   Z
                         PUSH  HL                ࠭ ⥪騩 
                                                 㪠⥫.
                         LD    HL,(VARS)          VARS ( -
                                                 ன ணࠬ).
                室  ७ 横  ᪠  -
          饩  ६.
          08F9 ME-OLD-VP LD    A,(HL)               -
                                                 ६  ஢
                         CP    +80               .
                         JR    Z,0923,ME-VAR-L2  室 ।, ᫨
                                                  થ 
                                                 (ᤥ "").
                         CP    C                 ࠢ  (
                                                 ).
                         JR    Z,0909,ME-OLD-V2  室 ।  -
                                                 襣 , 
                                                   砥, ᫨ 
                                                  ᮮ⢥⢨.
          0901 ME-OLD-V1 PUSH  BC                ࠭   -
                                                 ६,  ࠧ-
                         CALL  19B8,NEXT-ONE      ᫥ "
                                                 ६".
                         POP   BC
                         EX    DE,HL             ⠭ 㪠⥫
                                                  ॣ஢  D
                         JR    08F9,ME-OLD-VP      横.
                 ன    ६  ᮢ,  
          ६  묨   ᮢ .
          0909 ME-OLD-V2 AND   +E0                ⮫쪮
                                                  7, 6  5.
                         CP    +A0               ਭ  ⨯ -
                                                 , ஬ "६-
                         JR    NZ,0921,ME-VAR-L1    ".
                         POP   DE                 D 㪠뢠騬
                                                    "
                         PUSH  DE                ".
                         PUSH  HL                ࠭ 㪠⥫ 
                                                 "஥ ".
                                     - 23 -
               室  横 ࠢ 㪢  .
          0912 ME-OLD-V3 INC   HL                 "" 
                                                 "" 㪠⥫.
                         INC   DE
                         LD    A,(DE)            ࠢ  㪢.
                         CP    (HL)
                         JR    NZ,091E,ME-OLD-V4 室 । 
                                                 ᮢ.
                         RLA                      横,  
                                                 㤥  "᫥
                         JR    NC,0912,ME-OLD-V3 ".
                         POP   HL                뢠 㪠⥫ 
                                                 砫 "ண" 
                         JR    0921,ME-VAR-L1     室 । - -
                                                 譮 ࠢ.
          091E ME-OLD-V4 POP   HL                뢠 㪠⥫ 
                                                 室  - 㤠-
                         JR    0901,ME-OLD-V1     ࠢ.
               ᫨ 㦥 ᮢ,  :
          0921 ME-VAR-L1 LD    A,+FF             ⬥: " -
                                                 ".
                ᫨  -  ( ᮤন +80 -  ६  
           ""):
          0923 ME-VAR-L2 POP   DE                뢠 㪠⥫
                                                  "" .
                         EX    DE,HL             "४" ॣ.
                         INC   A                 ᫨   "-
                                                 ", ਧ  -
                                                 ,  "-
                                                 " - 뢠.
                         SCF                     ⬥: "ࠡ⪠
                                                 ६".
                         CALL  092C,ME-ENTER      ᤥ 
                                                 .
                         JR    08F0,ME-VAR-LP    ७ 横 
                                                 ᬮ७ ᫥-
                                                 饩  ६.
                    "MERGE A LINE OR A VARIABLE"
                       ["   "]
               室  ணࠬ ந    ᫥騬  -
          ࠬ:
               ਧ ७ 襭    - ᫨ ப  ᨪ;
                                ⠭ - ᫨ ६;
               ਧ      襭    - 㤥 "";
                                ⠭ - 㤥 "";
               ஢  L         - 㪠뢠  砫 -
                                              ;
               ஢  D         - 㪠뢠,  ᫨.
          092C ME-ENTER  JR    NZ,093E,ME-ENT-1  室, ᫨ ࠡ⪠
                                                 "".
                         EX    AF,A'F'           ࠭ ਧ.
                         LD    (X-PTR),HL        ࠭ "" 㪠-
                                                 ⥫,  ⨫-
                         CALL  19B8,NEXT-ONE       "ன"
                                     - 24 -
                                                 ப  ६.
                         CALL  19E8,RECLAIM-2
                         EX    DE,HL
                         LD    HL,(X-PTR)
                         EX    AF,A'F'           ⠭ ਧ.
                  ᤥ  .
          093E ME-ENT-1  EX    AF,A'F'           ࠭ ਧ.
                         PUSH  DE                  㪠-
                                                  "祭".
                         CALL  19B8,NEXT-ONE       ""
                                                 ६/ப.
                         LD    (X-PTR),HL        ࠭ 㪠⥫ 
                                                 "" ६/
                                                 ப.
                         LD    HL,(PROG)          PROG - ⮡
                                                   .
                         EX    (SP),HL           ࠭ PROG  ⥪
                                                   "" 㪠-
                                                 ⥫.
                         PUSH  BC                ࠭ .
                         EX    AF,A'F'           롮ઠ ਧ.
                         JR    C,0955,ME-ENT-2   室 ।, ᫨
                                                   -
                                                 ६.
                         DEC   HL                 ப -
                                                  । 祩
                                                 "祭".
                         CALL  1655,MAKE-ROOM    ᯥ  
                                                  ப.
                         INC   HL
                         JR    0958,ME-ENT-3     室 ।.
          0955 ME-ENT-2  CALL  1655,MAKE-ROOM    ᯥ  
                                                  ६.
          0958 ME-ENT-3  INC   HL                  
                                                  祩.
                         POP   BC                 .
                         POP   DE                 PROG  -
                                                    ࠢ쭮
                         LD    (PROG),DE         .
                         LD    DE,(X-PTR)         ⠪ ""
                                                 㪠⥫.
                         PUSH  BC                 ࠭ 
                                                  "" 㪠⥫.
                         PUSH  DE
                         EX    DE,HL             ४ 㪠⥫
                                                  ஢ ""
                         LDIR                    ६/ப 
                                                 뤥  
                                                 .
                "" ६/ப 㦭 㤠  ࠡ-
          祩 .
                         POP   HL                 "" 㪠⥫.
                         POP   BC                 .
                         PUSH  DE                ࠭ "" 㪠-
                                                 ⥫ (㪠뢠騩  祩-
                                                  ᫥ "" -
                                                 ६/ப).
                         CALL 19E8,RECLAIM-2      ६/ப
                                                  ࠡ祩 .
                                     - 25 -
                         POP   DE                  ""
                                                 㪠⥫  ॣ-
                         RET                       D.
                   "SAVE" [""]
                   ணࠬ         祭
          .
          0970 SA-CONTRL PUSH  HL                ࠭ "㪠⥫".
                         LD    A,+FD             ᯥ ⨥
                                                  "".
                         CALL  1601,CHAN-OPEN
                         XOR   A                 ⬥: "ࢮ -
                                                 饭".
                         LD    DE,+09A1           ᮮ饭 "Start
                                                 tape, then press any key"
                         CALL  0C0A,PO-MSG       [" , ⥬
                                                   "].
                         SET   5,(TV-FLAG)       ⬥: "࠭ 
                                                  饭".
                         CALL  15D4,WAIT-KEY       .
               ᫥ ਭ  ᨣ      뢠
          "".
                         PUSH  IX                ࠭  -
                                                  ""  -
                                                 設 ⥪.
                         LD    DE,+0011            ᠭ
                                                 ᥬ ⮢.
                         XOR   A                 ⬥: " ".
                         CALL  042,SA-BYTES      "" 
                                                  ⮬ "⨯"  -
                                                 ᫥ ⮬ "⭮".
                ᫥ ⪠ প ।  ⥬,    㤥
          ᠭ ணࠬ   .
                         POP   IX                롮ઠ 㪠⥫ 
                                                 ""
                         LD    B,+32             প -  40 -
                                                 뢠, ..  
          0991 SA-1-SEC  HALT                    ᥪ㭤.
                         DJNZ  0991,SA-1-SEC
                         LD    E,(IX+0B)           -
                                                   .
                         LD    D,(IX+0C)
                         LD    A,+FF             ⬥: " ".
                         POP   IX                 "㪠⥫ -
                                                 砫 "  
                         JP    04C2,SA-BYTES     .
                           
                ᮮ饭 -  ஢  ᫥  
          (+80 ⭠.).
          091 DEFB+80  - 砫  "蠣".
          092 DEFB     - Start tape, then press  any  key  [
                          , ⥬   ].
                                     - 26 -
          09C1 DEFB     - " ⪨" - Program: [ணࠬ:]
          09 DEFB     - " ⪨" - Number array:  [᫮
                          ᨢ:].
          09DA DEFB     - " ⪨" - Character array: [-
                           ᨢ:].
          09EC DEFB     - " ⪨" - Bytes: [:].
