                    
                 
 ()  ⭨, .᭮

    ⮤,  ஬   ᪠, 祭 . , ୮, 砫, 
  ணࠬ । ᯮ  ᨬ :    
 ᪨ ࠧ ᨬ 浪 200 -300 .  ᠬ ,  
  묨 㪢,   ᮪   64 
ᨬ ( 96).  ⠢ 768 - 64*8 = 768 - 512 = 256 ⮢.
    ⠪ 室 ⠭  ᫥騩 ⮤ ᨨ.
     ᨬ 稭  32  稢 95.   㤮, 
⮡  稭  0  稢 63. ४஢ ⢨ 祭 
:     ᨬ  32.  ஢    
讥 २⢮:  筮 ⥬ ᫥ ᠬ 让  ( 
ᨬ "_" - ન) ࠢ 01011111 = 95,    ஢ 
⮣  ᨬ 뢠  00111111 = 63. 祢,   ⫨稥  
ࢮ ,  ஬  ᯮ ⮫쪮  ,  ஬ 砥 
 ᯮ 㦥 2  :
             6-    7-.
   ᫨    ,   稬 䠩  4/3 ࠧ  室. 
 ,       室 䠩   - 
宩 १.  ⮬ , ⭮⥫쭠  ⬠ ᨨ 
 쭮  ᪮.
   ᬮਬ ᭠砫  ᨨ:
    室 䠩  室 ⥪, ⠢  ᨬ   
 32  95.

       1.

 10  (C) PLEXUS SOFT' 1996
 20  BASE1 EQU #7530 ;     室 䠩
 30  BASE2 EQU #9C40 ;     ਥ (㤠 㤥
 40                  ;    ந               
 50                  ;    )
 60  LEN   EQU #0100 ;     室 䠩 (祭
 70                  ;    #0100                  
 80                  ;     ਬ)
 90        ORG #FC00 ;    楤                
100                  ;    ५㥬
110        ENT $      
120        DI        ;     ᯮ㥬 ॣ஢ 
130                  ;    IY, ⮬ I1              
140                  ;    ⪫
141    LD IY, BASE1  ;    㧪 
150    LD IX, BASE2  ;    ॣ஢
160    LD BC, LEN + 1;    稪 ⮢  室 䠩
170                  ;           (筨)
180    LD E,  S   + 1;    稪 ⮢             
190                  ;    ਥ
200    JR P11        ;    ᭠砫 믮 ⮢⥫
210                  ;    樨
220  L1   RL L       ;    頥 筨
230       RL H       ;    頥 ਥ
240       DEC D      ;    ᫨ 稫    筨,
250  JR Z, P1        ;     室
260  L2   DEC E      ;    ᫨ ⠫ ᢮   
270  JR NZ, L1       ;    ਥ,  த 横
280                  ;    
290  LD (IX + O), H  ;    ᠫ  
300                  ;    ਥ
310       INC IX     ;    ᫥騩 
320                  ;    ਥ
330    LD E,  8      ;    ⠭ 稪 ⮢
340       JR  L1     ;     த
350  P1   INC IY     ;    ᫥騩 ᨬ
360  P11 LD D,6      ;    ⠭ 稪 ᯮ짮
370                  ;    ⮢  
380                  ;    筨
390  LD A,(IY+O)     ;    ਭ﫨 ᨬ 
400       SUB 32     ;    
410       AND 63     ;     -
420       RLA        ;    -
430       RLA        ;     
440  LD L, A         ;    ⥯   L
450  DEC  BC         ;    㬥襭 稪
460  LD A, B         ;     室 䠩 
470       OR C       ;    ஢ઠ   
480  JR NZ,  L2      ;    室  ४
490                  ;    ॣ E
500  L3   DEC E      ;    ४
510  JR Z, P2        ;    ᫥ 
520       SLA  H     ;
530       JR   L3    ;
540  P2  LD(IX+O),H  ;    ⨫  
550                  ;    ਥ
560  LD IY, 23610    ;    騥 樨
570     EI           ;
580     RET          ;    室

          ᮧ ᪮஢ 䠩, 稭    BASE2.
   ,   , 宩 ਥ (  뢠  " 稪") 
  ᭮ ⮩ 楤.  ⠪,    室  横 
饭 (ப  220   270), ᫨ ९ -ਥ    ⥫ 
-筨.   ॠ  ப 240 - 270.
     楤 ᨨ.  筠 楤 ᨨ. 
室묨 ࠬࠬ 㦠 BASE2 -  ᪮஢ 䠩  
NLEN -  ᪮஢ 䠩.

       2.

 10  (C) PLEXUS SOFT' 1996
 20  BASE2 EQU 40000 ;     ᪮஢ 䠩
 30  NLEN  EQU 00192 ;     
 40        ORG #FA46 ;    楤 ५㥬
 50        ENT$
 60     LD IX, BASE2 ;    㦠
 70     LD BC,NLEN +1;    ॣ஢ 
 80        LD L, 0   ;    㫥 ਥ
 90        LD D, 6   ;    稪 ⮢  
100                  ;    ਥ
110        JR P1     ;    室  믮
120                  ;    ⮢⥫
130                  ;    権
140   L1   RL H      ;    頥 筨
150        RL L      ;    頥 ਥ
160        DEC D     ;    ᫨ ਥ ९,
170        JR Z, P2  ;     室  2
180   L2   DEC E     ;    ᫨  筨  ⠫
190        JR N2, L1 ;    ,  த
200        INC IX    ;    ᫥騩  筨
210   P1 LD H(IX + O);    﫨   筨
220        LD E,8    ;    ⠭ 稪 ⮢
230                  ;      筨
240        DEC BC    ;    ஢ઠ
250        LD A,B    ;     
260        OR C      ;    稪
270  JR NZ,L1        ;    ,  ᫨  0,  
280        RET       ;    室  楤
290  P2    LD A,L    ;      ਥ
300        LD L,O    ;    㫥 ਥ
310        ADD A,32  ;    ४஢ ᨬ
320        RST 1OH   ;     뢮   ⥪騩
330                  ;    ⮪
340        LD D,6    ;    ⠭ 稪 ⮢
350                  ;      ਥ
360        JR L2     ;      ஢
370                  ;    稪 ⮢  
380                  ;    筨

    楤 뢮 ஢ ᮮ饭  ⥪騩 ⮪.   
     ⠪, ⮡  ஢ ⥪   
.  ⮣ 㦭 ⠢   ᫥騥 ப :

 55        DI
 56        LD IY, ADDR
275        LD IY, 23610
276        EI
320        LD (IY + O),A
325        INC IY

    ADDR -  , 㤠 㤥 ந ஢.
   ,   २⢮ (    ⮪) ⮣ ⬠ 
砥  ⮬,   ᪮஢ 䠩  ⮫쪮  
室  ।  㫥 A = 3B/L,  A -  ᪮஢ 
䠩, B - 室.
   B  RLE - , ਬ, A   ⮫쪮  ,    ⮣  
        室 䠩. ⮬,  
 ,  RLE - ᪮஢ 䠩 㤥  
室.  ⨬ ⬮ ⠪   :  ᪮஢ 
䠩 ᥣ   ࠢ  室.
    ⮬,    ணࠬ   ⨣ ⥬ 㬥襭 
⢠ ᨬ  ,  ਫ  ᠬ 砫.  ᬮਬ, 
 ࠧ   .
    ⮣ ᬮਬ  ࠭   ᪨ ࠧ ᨬ.

    Ŀ      㭪,  ࠭ -
    Ĵ0  ᪮ ଠ樨  ᨬ "" -
    Ĵ1   6 ⮢ ( ࢮ  -
    ͼĴ2  ⮩). 㫥  ᥤ쬮  ᮤঠ
    ͹Ĵ3  㫨. 筮 ⠪      -
    ͻĴ4  ⠫묨 ᨬ,   -
    ĽĴ5      32  95. ⠪,
    ĽĴ6   ࠭ ᨬ   室-
    7    ⠬,  ⠫ 
                           (  ᫥)    ( 
ᥣ ࠢ ).  ⮬ 砥  㤥     64*6 = 384 
,  ஢   ⠭⭮.  ⠢ 512 - 384 = 
128 .
    楤 ८ࠧ  64 ᨬ ,  砫   
 㪠뢠 ॣ஢  HL,  頥 , 稭  ,  
 㪠뢠 ॣ஢   DC.

       3.

 10  (C) PLEXUS SOFT' 1996
 20  FONT1 EQU #3D00 ;     筨
 30  FONT2 EQU #FA00 ;     ਥ
 40        ORG 23296 ;    楤 ५㥬
 50        LD HL,FONT1;   㧪
 60        LD DE,FONT2;   ॣ஢
 70        LO B, 64  ;    樠 稪
 80  L1    INC  HL   ;    ய᪠  
 90        PUSH BC   ;    ⠫ 稪  ⥪
100        LD BC, 6  ;    ॡᨫ
110        LDIR      ;    6 
120        POP BC    ;    ⠫ 稪  ⥪
130        INC HL    ;    ய᪠ ᫥ 
140        DJNZ L1   ;    ᫥騩 ᨬ


    ਬ 楤,  㤥  ⠪ ⮬:

       4.

 10  (C) PLEXUS SOFT' 1996
 20  FONT2 EQU #FD00  ;
 30  POS   EQU 23681  ;     न 
 40        ORG 30000  ;    楤 ५㥬
 50        CP  32     ;    ᫨   "" ᨬ,
 60        JP C,O9F4H ;     室  ࠡ
 70        CP  95     ;    
 80        JP NC,#O9F4;    楤ࠬ 
 90        SUB 32     ;    ४஢ ᨬ
100        LD L, A    ;
110        LD H, O    ;
120        LD E, L    ;
130        LD D, H    ;
140        ADD HL, HL ;     㬭
150        ADD HL, HL ;    
160        ADD HL, DC ;    
170        ADD HL, DE ;    6
180        LD DE,FONT2;     
190        ADD HL, DE ;     ᨬ  
200        PUSH HL    ;    ⠫
210        LD HL,(POS);     L - न
220        LD A, L    ;    稫  
230        AND I8H    ;    訩 
240        OR 4OH     ;      ࠭
250        LD D, A    ;    ⥯   D
260        LD A, L    ;
270        AND O7     ;    稫
280        RRCA       ;    訩
290        RRCA       ;    
300        RRCA       ;    
310        ADD A, H   ;     ࠭
320        LD E, A    ;    ⥯   
330        POP HL     ;    ᯮ  ᨬ
340        EX HL, DE  ;
350        LD (HL), O ;    ⠭  
360                   ;    ᨬ
370        INC H      ;    ᫥ 
380        LD B, 6    ;    稪 ᯮ㥬 
390                   ;    ᨬ
400   L1   LD A, (DE) ;    -
410        LD (HL), A ;    㥬
420        INC H      ;    
430        INC DE     ;    
440        DJNZ L1    ;    ࠭
450        LD (HL), O ;    ⠭ ᫥
460                   ;     ᨬ
470        LD HL,POS+1;     -न  HL
480        LD A, 32   ;    ᨬ  
490        INC (HL)   ;    㢥稫 
500        CP  (HL)   ;     ஢ਫ
510        RET NZ     ;    諨, ᫨   浪
520        LD A, 22   ;    ᨬ   Y
530        LD (HL), O ;     - न ࠢ 
540        DEC  HL    ;     - न
550        INC (HL)   ;    㢥稫 
560        CP  (HL)   ;     ஢ਫ
570        RET NZ     ;    諨, ᫨   浪
580        LD (HL), O ;      = 0
590        RET        ;     室

      ᭠ ⠫: 뢠 , ᮧ ⥬ ଠ樨 
ᨬ ⠭⭮ , ਬ, ⮫饭 . 筮 㯠 ⠪:
ᮧ  ⨢    ᭮ ⠭⭮, ⥬ ४ 
⥬ ६ CARS  믮 .   । ᮧ ᨬ
।⢥ । .

       5.

 10  (C) PLEXUS SOFT' 1996
 20  POS   EQU 23681  ;     न 
 30  CHARS EQU 23606  ;     ६, 㪠뢠饩
 40                          
 50        ORG 40000  ;    楤 ५㥬
 60        CP  32     ;    ᫨   "" ᨬ,
 70        JP C,O9F4H ;     室  ࠡ
 80        CP 128     ;    
 90        JP NC,O9F6H;    楤ࠬ 
100        LD L, A    ;    ᫨ ᨬ
110        LD H, 0    ;    ,
120        ADD HL, HL ;    
130        ADD HL, HL ;    㬭 
140        ADD HL, HL ;     8
150        LD DE,(CHARS);   
160        ADD HL, DE ;     ᨬ
170        PUSH HL    ;     ⥪
180        LD HL,(POS);    न 
190        LD A, L    ;    ।塞
200        AND I8H    ;    
210        OR LOH     ;    
220        LD D, A    ;    ࠭
230        LD A, L    ;    
240        AND O7     ;    
250        RRCA       ;    न⠬
260        RRCA       ;    
270        RRCA       ;    頥
280        ADD A, H   ;    
290        LD E, A    ;     DC
300        POP HL     ;    ᯮ  ᨬ
310        LD B, 8    ;    稪 ⮢ ᨬ
320   L1   LD A,(HL)  ;    ਭ﫨 
330        RRA        ;    ࠡ⠫
340        OR (HL)    ;    
350        LD(DE), A  ;     ⨫  ࠭
360        INC D      ;    ᫥ 
370        INC HL     ;    ᫥騩 
380        DJN2 L1    ;    த
390                   ;       楤 4
400                   ;    ப 470 - 590

      ⨭, 楤 4  5    
짮⥫᪨ ⮪, . . 室 ࠬ஬     ᨬ, 
ᮤঠ騩  .  ⮫쪮   ⮬, ⮡   
23681 / 82 室 न ,  室騥  । ࠭.  
 楤   ५㥬묨.
  
                      INT 
(c) .. 㣨.

     , ଠ,  ᮤন  ⮬ 쬥,  
 ⥫ ZX-SPECTRUM   쬠   ᠬ ࠧ 
,  묨  ⮫ 짮⥫, 稭  㯪 
  稢 ணࠬ஢  ᥢ묨 奬묨 ࠡ⪠. 
 ࠭ ୠ 訢 楫 ⮪ ࠧ ।  ࠡ⪠, 
騬 ᮢ⨬ ᪠  ஢. ᮡ  㤥 
ᨣ INT ய.
    ⮩ ⥬  頥 ணࠬ,   ਢ . ࠡ 
ணࠬ - ᫮, ய樮쭮  ⠪⮢ ய  
砫  ⢥ত ᪨㥬 뢠. ᫥ ᯥਬ 
뢠, 祭 १  ⮫쪮  奬 襭 
, ⢨⥫   ⥫쭮 /INT     
⠪⮢  ய.
 ਬ ਢ ,祭  ஢ ஢:
   .....3648
   ....3881
   -05.....4019
     室   ,  ।,  ணࠬ, ᯮ騥 
 ⠪⮢  ᮢ  ᨭ஭樨 ࠡ  祭묨 뢠ﬨ 
 ଠ쭮 ࠡ ⮫쪮  ,  ⮬,  ஬  
ணࠬ 뫨 ᠭ.
     ᥣ, ᫨  ணࠬ ।㬮७ ४ ᮮ⢥ 
६ থ, ।塞 묨 ࠪ⨪ 設.   
஢ ॠ  ணࠬ   ᮣᮢ 楤 㧪  
  䮭.
     ᪮쪮 ᫮  ࠡ ணࠬ. ᫨ 祭 樥 ࠢ 1, 
 ਢ ⥫쭮 /INT  . ⭮襭  樥⮬, 
祭  १ ࠡ ணࠬ  ⢮ ⠪⮢ ᮢ 
 ࠧ 㫮:
            Z=(k*18)+57,
 Z-⢮ ᮢ,
    k-樥.
; Pichugin I.A. 1996
;
       ORG  #C350
	DI
	LD	HL,#C100
	LD	DE,#C101
	LD	BC,257
	LD	(HL),#C3
	LDIR
	LD	A,#C1
	LD	I,A
	LD	A,2
	EX	AF,AF'
	LD	BC,0
	IM	2
	EI
	HALT
LOOP	INC	BC
LOOP1	JR	LOOP
	LD	A,#FD
	LD	(LOOP1+1),A
	LD	(TABL),BC
	IM	1
	EI
	RET
TABL	DEFS	2

	ORG	#C3C3
	EX	AF,AF'
	DEC	A
	JR	NZ,CONT
	LD	(LOOP1+1),A
CONT	EX	AF,AF'
	EI
	RET

  ணࠬ ࠭  ᥬ
 GENS 4.
  頥  ॣࢮ -
   ࠭   #C37C(50044)

 BASIC-ਠ:

  10 REM  1996 Pichugin I.A.
  20 BORDER 7: INK 0: PAPER 7:CLEAR 39999
  30 FOR n=50000TO 50045: READ a: POKE n,
a:  NEXT  n: FOR n=50114TO 50124: READ a:
POKE n,a: NEXT n:
  40 LET K=USR 50000: PRINT "K=";K
  50 LET Z=(K*18)+57: PRINT "Z=";Z
  60 REM LET T=Z*50: PRINT "T=";T;"Hz"
  70 PAUSE 0: CLS : GO TO 40
 110 DATA 243,33,0,193,17,1,193,1,1,1,54,
195,237,176,62,193,237,71,62,2,8,1,0,0,23
7,94,251,118,3,24,253,62,253,50,110,195,2
37,67,124,195,237,86,251,201,179,15,0
 120 DATA 8,61,32,3,50,110,195,8,251,201,0

    ᫨ ணࠬ , ਬ,  BETA - BASIC  ࠡ  襬 
 ࠡ  ᮪ 筮,  ப 60  REM  ,
⮣ ६  ᢠ 祭 ⠪⮢  ய  
.
      ᮢ⨬.   筮 ⠭ ਮ ᨣ INT,
 筮 室 ᮢ,  ⠪⮢  . 祢 ,
 ࠧ ન ஢   筮 室 ᮢ  
 ࠧ த⢨.
*******************************************************************************
                    
                   
(C) 쪮 .., . .
      ⠢  "娢,   ᦠ⨥"  ZX- 95/1,  訫 
 ⨬ ,  १   ᤥ 娢,  
।祭  娢樨 ⥪⮢ ଠ樨.   ਠ 娢 
⥪  ᮤঠ 47 ࠧ ᨬ.
      娢 ⮨, ᮡ⢥,  娢 (ARCHIV)  ॠ娢
(REARCH).
      娢  娢樥 ⥪   BUFF1   BUFF2. 
  ᪠  ᨪ ப PRINT USR 49152, ᫥ ࠡ 
ணࠬ ⠥  娢஢ . થ஬   
ᨬ "#",   ⥪   ᯮ짮. 娢,  ⭮襭 
 娢,  ⭮ ࠡ⮩. ᯮ  BUFF2,   
娢஢ ⥪,  ⠥ ⥪ ।⢮ ணࠬ    
SPECCY.  ⮬ ਠ ॠ娢 ᪠  ᨪ ப PRINT 
(࠭ न, ਡ), USR 49408.
           ணࠬ ᯮ 娢樮 ⠡.  ஥ 
᪮ ⥪  ᫥饬 ࠢ: 祬 ࠢ ⮫ ᨬ, ⥬  
 ,  ᨬ "#" ᥣ  ⠢  ᢮ .  
⠢ ᢮ ⠡, ⭮  ᢮ ⥪.  ⮣  ⢮ 
娢樨.  ⮣ 室 ⠢  ணࠬ,  
⢮  ᨬ  襬 ⥪.  ᫥ ⮣,  祭묨
᫥ﬨ  ᮡ ਢ  ࠢ, ⠢ ᢮ ⠡.
           ᢮ ணࠬ  ᪠,  ࠧ娢   83
! + 48 ⮢ 娢樮 ⠡.  ,   ந ᪨
⥪  704 ,  ⠢ 22 ப. ᫥ 娢樨  ⠢ 
391  -  55.9% ࢮ砫쭮 ⥪⮢ .     
ࠨ,   㢥७,      १⮢.

 (C) IMPERATOR 1996

ARCHIV   ORG   #C000
BUFF1    EQU   #F000
BUFF2    EQU   #F800
         LD    HL,BUFF2
         LD    (M4+1),HL
         LD    (M5+1),HL
         LD    HL,BUFF1
         LD    (M6),HL
         CALL  P4
L14      LD    HL,(M6)
         LD    A,(HL)
         INC   HL
         LD    (M6),HL
         LD    C,8
         LD    HL,TAB
         LD    DE,1
L10      LD    B,6
L9       CP    (HL)
         JR    NZ,L8
         CALL  P5
         JR    L14
L8       OR    A
         RL    E
         INC   HL
         DJNZ  L9
         INC   D
         LD    E,1
         DEC   C
         JR    NZ,L10
         LD    DE,#700
         CALL  P5
M4       LD    DE,0
         LD    HL,(M5+1)
         INC   HL
         OR    A
         SBC   HL,HL
         LD    B,H
         LD    C,L
         RET
P5       RL    D
         RL    D
         RL    D
         RL    D
         RL    D
         LD    B,3
L11      RL    D
         CALL  P3
         DJNZ  L11
         LD    B,5
L13      RR    E
         JR    C,L12
L15      CALL  P3
         DJNZ  L13
         RET
L12      LD    B,1
         JR    L15
P3
M5       LD    HL,0
         RR    (HL)
M7       LD    A,8
         DEC   A
         JR    NZ,L16
         INC   HL
         LD    (M5+1),HL
P4       LD    A,8
L16      LD    (M7+1),A
         RET
M6       DEFW  0
TAB      DEFM  " NGQ08"
         DEFM  "TUPZ19"
         DEFM  "SHWX2-"
         DEFM  "ALY,3("
         DEFM  "OMF.4)"
         DEFM  "IBK!5?"
         DEFM  "EDV:6$"
         DEFM  "RCJ'7#"


REARCH   ORG   #C100
         LD    HL,BUFF2
         LD    (M2+1),HL
         CALL  P2
         LD    D,0
L4       LD    C,D
         LD    B,3
LOOP     CALL  P1
         DJNZ  LOOP
         INC   C
         LD    B,C
         XOR   A
L1       ADD   A,6
         DJNZ  L1
         LD    E,A
         LD    B,5
L3       LD    C,D
         CALL  P1
         RR    C
         JR    C,L2
         INC   E
         DJNZ  L3
L2       LD    HL,TAB-6
         ADD   HL,DE
         LD    A,(HL)
         CP    "#"
         RET   Z
         RST   10
         JR    L4
P1
M2       LD    HL,0
M3       BIT   0,(HL)
         JR    Z,L5
         SCF
         JR    L6
L5       OR    A
L6       RL    C
         LD    A,(M3+1)
         ADD   A,8
         CP    #86
         JR    NZ,L7
         INC   HL
         LD    (M2+1),HL
P2       LD    A,#46
L7       LD    (M3+1),A
         RET
         ****************************************************
                   -   IS DOS

(c) 譥 ३, . ⮢--.

     । ணࠬ  IS-DOS.   뢮  ࠭ 
ࠩ-䠩 ଠ ᪮ । PICASSO for IS-DOS (७ .sp). 
 䠩  ਡ⮢   ﭭ 梥 ணࠬ unicolor.com.
      뢮  ࠭    3(VIEW), 㦭  ᫥ 
ப  䠩 extview.txt ( ⠫ SHELL):
          sp :Q:SHELL\exesp /w
      ୠ⨢ ᯮᮡ 뢮  ࠭ ⠪ 䠩 -  ᯮ짮 
 ப  ⥪⮢  䠩 ⨯ ".bat".
       ப
    Q:SHELL\exesp T:\䠩 [/w]
ࠥ, ᮮ⢥⢥,   ப   ।.( । 
ᮧ 䠩 ⨯ ".bat").
   ⨢ ᪮쪮  ப    /w   䠩 ⨯ 
".bat",   ᬮ ࠩ⮢, 뢭 ᬥ  㣠.
     ࠢ 뢮  ࠭ ᯮ /w -  .

;*************************
;       Exesp v1.00
;    Copyright 18.07.96
;   by Andrei Chereshnev
;*************************

       ORG  24000
       LD   A,#18           ;࠭塞 ⥪
       LD   C,#36           ;।
       RST  16              ; 짮⥫᪮
       RET  C               ; #18
       JR   Start
;-------------------------
       DEFM "UnCo"          ; ன
       DEFB #01             ;ﭭ 梥
COLOR  DEFB <0*128>+<0*64>+<7*8>+0

ext:   DEFM "sp "
XY     EQU  #0000           ;न
;-------------------------  ; ࠩ
L0:    EXX
       EX   DE,HL
       LD   HL,L1
       LD   (addr^+1),HL
Start:
       LD   C,#43           ;뢠 ⠫
       RST  16              ;䠩 
       RET  C               ;᭨  (᫨ 
addr^  JP   NZ,Exit         ;)
       AND  A
       JR   Z,L0
       RES  5,A
       CP   "W"
       JR   NZ,Exit
       XOR  A
       LD   (mnem^),A
       JR   Start
;-------------------------
L1:    EX   DE,HL
       CALL Begin
       RET  C
       XOR  A
mnem^  RET
       LD   C,#07           ; 
       RST  16              ;
Exit:
       LD   A,#18           ;⠭
       LD   C,#37           ;।   #18
       RST  16
       XOR  A               ;⠭ 室
       LD   A,#F4           ; IS-DOS
       RET
;-------------------------
Begin:
       PUSH HL
       LD   DE,8            ;⠢塞 䠩
       ADD  HL,DE           ;७ .sp
       EX   DE,HL
       LD   HL,ext
       LD   BC,#0003
       LDIR
       POP  HL
       LD   C,#25           ;뢠 䠩
       RST  16
       RET  C
;-------------------------
       EXX
       LD   DE,14           ; HL- 32-⮢
       ADD  HL,DE           ;⥫ 䠩 (FNAME)
       LD   E,(HL)
       INC  HL
       LD   D,(HL)          ; DE- 䠩 (FLENG).
       CALL Memory          ;஢塞 稥 ᢮
       RET  C               ;
;-------------------------
       LD   IX,$SPACE
       XOR  A
       PUSH HL
       LD   HL,#0000
       LD   C,#29           ;⥭ 䠩,$SPACE -
       RST  16              ;  
       POP  HL
       RET  C
;-------------------------
       LD   BC,5            ; HL- FLENG+1.
       ADD  HL,BC           ; HL- WORD_20.
       LD   C,(HL)
       INC  HL
       LD   B,(HL)          ; BC- #hl ࠩ
       LD   A,B
       OR   C
       RET  Z
       PUSH BC
       CALL TestCol         ;஢塞 ਡ ࠩ
;-------------------------
       LD   DE,XY
       POP  BC
       EXX
       LD   HL,$SPACE
       EXX
       JR   Sp_out          ;ࠦ ࠩ

;-------------------------
Memory:
       PUSH DE
       LD   C,#10
       RST  16
       EXX
       LD   DE,5            ; HL- 
       ADD  HL,DE           ;䨣樨 
       LD   E,(HL)
       INC  HL
       LD   D,(HL)          ; DE- 砫
       LD   HL,$SPACE       ;஭ ᪠
       EX   DE,HL
       AND  A
       SBC  HL,DE
       POP  DE
       AND  A
       SBC  HL,DE
       EXX
       LD   A,130           ; 墠⠥ -
       RET                  ;訡 130

TestCol:
       LD   L,B             ;B*C=HL
       LD   B,8
       XOR  A
       RR   L
mul0   JR   NC,mul1
       ADD  A,C
mul1   RRA
       RR   L
       DJNZ mul0
       LD   H,A
;
       ADD  HL,HL
       ADD  HL,HL
       ADD  HL,HL
       AND  A
       SBC  HL,DE
       RET  C               ; ਡ
;Mono
       LD   HL,L0^      ;
       LD   (HL),#21    ;
       LD   HL,COLOR    ;
       LD   (L0^+1),HL  ;LD HL,COLOR
       LD   HL,L0^+3    ;
       LD   (HL),#D9    ;EXX
       LD   HL,L1^      ;
       LD   (HL),#00    ;NOP
       RET

Sp_out:
       PUSH DE
       PUSH BC
       LD   A,E
       AND  #18
       ADD  A,#40
       LD   H,A
       LD   A,E
       AND  7
       RRCA
       RRCA
       RRCA
       ADD  A,D
       LD   L,A

       PUSH HL
       LD   A,H
       RRCA
       RRCA
       RRCA
       AND  #03
       OR   #58
       LD   H,A
       EX   (SP),HL
                            ;뢮 ᥫ
L1_0:  LD   E,B
       LD   D,8
L2_0:  LD   B,C
L3_0:  EXX
       LD   A,(HL)
       INC  HL
       EXX
       LD   (HL),A
       INC   HL
       DJNZ  L3_0
       AND   A
       SBC   HL,BC
       INC   H
       DEC   D
       JR    NZ,L2_0
       LD    B,E
;
       LD    A,H
       AND   7
       JR    NZ,L0_0
       LD    A,L
       ADD   A,32
       LD    L,A
       JR    C,L0_0
       LD    A,H
       SUB   8
       LD    H,A
L0_0:  DJNZ  L1_0
;-------------------------
L0^    DEFB 00,00,00,00
       POP  HL
       POP  BC
       POP  DE
L0_1:  LD   E,B             ;뢮 ਡ (ਡ)
       LD   B,C
L1_1:  EXX
       LD   A,(HL)
L1^    INC  HL
       EXX
       LD   (HL),A
       INC  HL
       DJNZ L1_1
       AND  A
       SBC  HL,BC
       LD   B,E
       LD   DE,32
       ADD  HL,DE
       DJNZ L0_1
       AND  A               ;塞 䫠 C
       RET
       END

$SPACE EQU  $

          㧪  ᪠ ணࠬ exesp.com (24000). 
 ᯥ樠쭮 ࠭   ࠡ   mon.com.  exesp.com  
⠢ 300 ⮢.
       ⥫  ९뢠  ᥬ,  ணࠬ  ⥬ IS-DOS.
 : 344111, . ⮢--, .40- , 75/4, .3. 
譥 .
      *********************************************************
         "".

(c) ࣥ ⮢, .ਭ, copyright SerzhSoft in 1996

       㦥  ࠧ 砫  ZX-, ⢮ ᪨ ணࠬ,  
, ஭᪨ ࠤ  ४⭮ ࣠ ࠢ (
⨪, ).  ⠭,  ணࠬ, ਬ,
 "易" ᢮ ᮡ  , 㤮 (㤮 ?)  ⮫쪮 
 ᠬ.      樠 ⠭  (ਬ,
 Q,A,O,P,SPACE),     ᥣ 믮.
        뫠 ᠭ    ,  ᫥   
⢥ ணࠬ⮢ -   ࠧࠡ⪥ ᢮ ணࠬ
த⮢    த,  짮⥫.  ⠭   
㤥 ⠪: " 襥 - ࠬ" (  ⮫쪮 ,    
㭣)!   ,  ।⠢  ⮩  ணࠬ  
묨  -     稭騬 ணࠬ⠬, ⠪  
 , ,   ,  襩 ࠭ 設⢮.
       ࠧࠡ⪥  ணࠬ, ⠭  ப  
짮⥫, 室 㤮⢮    .  ᫮ 
: "   梥 - ⮢饩 !"   ࠧࠡ⪥ ணࠬ த⮢ 
室 ⠫   ⮩ ⨭.
      ਢ  ⥪ 楤 ।祭    
⨪  .  ।⠢: KEMPSTON, CURSOR, SINCLAIR (LEFT&RIGHT)
⨪;  Q,A,O,P,SPACE;  ,  " " ( 
砥:  Z,X,C,F,G).  ணࠬ  뢠   ⤥쭮, ⠪
  , ࠫ쭮. 祭  ८ࠧ  ଠ KEMPSTON-
⨪, . .  १⮬     ⠭묨   ⠬, 
⢥騬  䫠 ࠢ  FIRE.
       १ 頥   ॣ A (), ⠪   祩 
DIRECT.
       .
          ଠ KEMPSTON:
!-------!-----------!-------!-----------!
! : ! : ! : ! : !
!-------!-----------!-------!-----------!
!   0   !  ࠢ   !   3   !      !
!   1   !      !   4   !      !
!   2   !       ! 5,6,7 !   .  !
!-------!-----------!-------!-----------!
   ⠪, ⥪ SCAN LIBRARY:
           Listing 1.
    楤   ६묨 ࠢ 192 .
      ⠪,  뢠:
CALL DIRSCN - ᪠஢  ⨪  . ᫨  CAPS SHIFT  
,  訢 ,  - SINCLAIR-⨪.
CALL OUTDIR - ᫨   ਢ筮  ࠡ   -⢥ ⮬ 
騬 ⠬ ࠢ,   ⤥묨 ६묨 (  ᨪ  
   - ᫨誮  ᫮!),  뢠   ணࠬ.
        ६ DIRECT ""  ६ D_RIGHT, D_LEFT,
D_DOWN, D_UP, D_FIRE (0-몫/1-).
CALL KEMPST -  ⮭-⨪.
CALL QAOPSP -  Q,A,O,P,SPACE.
CALL CURSOR - .
CALL SINC_L -  ᨭ-⨪.
CALL SINC_R - ࠢ ᨭ-⨪.
CALL DEFINE -  ,   . ᠭ  頥 
⠡ KEYTBL.   -   ,  訩   ,  
  ன  - ᪠ 㦭  ( ⠭  ).
            ६:
DIRECT:db(0..31) -   䫠 ࠢ  ଠ KEMPSTON
D_RIGH:db(0/1) - "ࠢ ࠢ",
D_LEFT:db(0/1) - "ࠢ ",
D_DOWN:db(0/1) - "ࠢ ",
D_UP  :db(0/1) - "ࠢ ",
D_FIRE:db(0/1) - "".
  ⭠  SCAN LIBRARY:
    (  ਬ ࠭᫨஢
            64000 (#FA00) )
            Listing 2.
     楤  ६:
DIRSCN 64000 #FA00 KEYTBL 64176 #FAB0
OUTDIR 64041 #FA29 DIRECT 64186 #FABA
KEMPST 64056 #FA38 D_RIGH 64187 #FABB
QAOPSP 64064 #FA40 D_LEFT 64188 #FABC
CURSOR 64101 #FA65 D_DOWN 64189 #FABD
SINC_L 64130 #FA82 D_UP   64190 #FABE
SINC_R 64144 #FA90 D_FIRE 64191 #FABF
DEFINE 64157 #FA9D
      २⢠ ᯮ짮
             SCAN LIBRARY:
1.    ꥬ.
2.   ⨯ ⨪  .
3.  ६ ࠫ쭮 ᪠஢   ࠢ.
4.  ⠭ 室  (KEMPSTON-ଠ).
5.  ᯮ짮  BASIC. 祭  ࣠ 
  "᪮᮪" /  ⨥ FIRE,   ᨪ ॠ 쭮-⠪ 
  ᫮.
    ਬ BASIC-ணࠬ, ᯮ饩 SCAN LIBRARY.
            Listing 3.
    樮 ணࠬ  ᨪ ।⠢  ᥡ ⥩訩
᪨ ।, 騩 ᮢ "⨭", ᯮ ᨬ "#"
(    㣮).
   ਬ஬ ᯮ짮  SCAN LIBRARY  設  ,  , 
⤥쭠 ࠧࠡ⪠ - ARROW LIBRARY.  ⥪ 楤  ࠢ  
। ५  ࠭.   ⮨  ᪮쪨 ணࠬ: 
ନ஢ ࠧ ५  ࠭ ࠦ  , ⠭
०  ࠭, ஫  ६饭 ५  . .
   ARROW LIBRARY -  ⥫㠫 짮⥫᪨ 䥩.  : 
祬 ⥫㠫?    ⮬,   䥩   
"ࠨ"  짮⥫.   ࠡ⠥  - ணࠬ, 
६頥 ५  ࠭, 롨 । 㭪 ,   . . 
, ᫨ ᪮ ५ 㤥 ﭭ,   室 ॣ   
  ࠭  㣮, 짮⥫  㤥 㦤 ,
  ६.   ஡ ⮣ , 㢥稢 ᪮,  
⮣        ⭠ ஡ - ᭨ 筮. 
७ USER,  㣠 祭  訬 ᫮  ணࠬ,  
ணࠬ,  ᠢ襣, 㤥 १⭮      
㭪  ,  ⭮, ᪮    ணࠬ 㤠 ... 
⥫㠫 䥩   䥪⨢. ᫨ 祫, ਬ, 
 ন  ⮬ ﭨ  "ࠢ",  १ । ᫮
蠣 ᪮ ⮬᪨ 㢥稢.  ᪠ , ᪮-
  ⠭  쭮.   ࣠ ࠢ, -
 㤮  짮⥫.
    墠 ᫮,   ...   ⨭ ⥪ ARROW LIBRARY:
           Listing 4.
      ६묨 (  -
⥬ SCAN LIBRARY) ࠢ 577 .
         ᠭ 楤:
ARWINT - ⮬᪠ ࣠ ࠢ  ५  ࠭.
 ᪮ ந室  த⥫쭮 㤥ন 
ࠢ. ⨥ FIRE - 室.
INITMV - 樠 塞 ࠬ஢ ५ (. ᪮, ᫮
蠣,  㢥祭 ᪮, ᫮ ஢ 㢥. ᪮).
MOVES - ஫ ⨩ , ॠ஢ -  न, ᪮  
. .
PUTARW - 뢮 ५  ࠭  ⥪ न.
GETARW - ⠭  ०   ࠭  ५.
INC_Y -    ᫥饩   ࠭. ᯮ ⢮  
ࠧ ᪨ 楤 -   ᯮ짮, 뢠.
    ᠭ   ६:
ARW_X :db(0..255) - ⥪ X-न ५
ARW_Y :db(0..255) - ⥪ Y-न ५
ARWXMN:db(0..255) - 쭮   祭, ਭ . X
ARWXMX:db(0..255) - ᨬ쭮  祭, ਭ . X
ARWYMN:db(0..255) - Y-