 Netmail (2:464/86.62)  NETMAIL 
 Msg  : 2 of 84                             Uns Pvt Loc K/s
 From : Olegka Cher                         2:464/86.62     27  01  15:39:02
 To   : Dima Bystrov                        2:5029/9.33     27  01  19:04:22
 Subj : Coloss \U

@realname:  p祭 {virexcite@mail.ru} location: Sinelnikovo, Ukraine


            Hi, Dima !

 DB>>>  pp 誮...   p騪 "Consul"?
 MK>>     H, ⮫쪮 TF COPY ;)
 DB> , ⥡  易⥫쭮   ᮢp ᯥpy᪨
 DB> ⮬!    ⥡ ᪠y,     뫥 ;)
    , ⠪   Consul Commander!  Global Commander,
 Real Commander,  Regina Commander   䨣 猪 ;]
     pp,   - p訩 yp騪  y   Spectrum Navigator.
    , ⮡ pp뢠 ᯥᨥ p   -  p
y  p,  ⮬y    .
    ;(

 DB>>> L=nnn
 DB>>> {
 DB>>>  ...
 DB>>> L++
 DB>>> }nz
 MK>>     :]   y .
 DB> y  ᪮y? :..(..
 DB>    ⥪⠬  pᥪy. y!
       pᥪy? pᥪy!
  p ~{ }~,   py?  ⥪!
    Hy, p..

    { blablabla }nz

    -  ~p, ᫨ nz~  ~, ᫨ nz~? :-/

 MK>>  p᭮. H    横, 몠 jp,   -
 MK>> jr?     - ⠪:    for L= nnn   ...  next L++    for L= nnn   ...
 MK>> NEXT L++    repeat again  ' - jr    repeat AGAIN  ' - jp    if
 MK>> ' - jr    IF            ' - jp
 DB> ⮣ y   NZ 訬 y :)
     ᪫⥫  ⮦ 訬 y? ;P

 DB>    py⢮  ⮫쪮  pp,    p
 DB> 樨. ᫮   ⮬ p浪,   py. ..
 DB> 樠 pp 横 -  横,  ..
  p筮.
⮬y  ~for L=50 .. next L--~
for - p⨢ ᫮.  ᪮py ᫥y饥    p
p,  y L=, p  ᢮ p py py, p
 y ⠭.   ᠬ   next - 堭 祭.

    .. 祣  ᪠  ~label:~.. :-P
 y砥  ~:label~ 稥 - p⨢ ⥬ ᫮, p
 p, ᫥y饥 ᫥  ( p),  ᮧ
 ⥬ ᫮p ᫮  ⨬ , ᢮⢮ ^label  pᮬ
y⥫  .  y砥  ⢮ p.. p 
诨᪨ ᫥ 稥 (  ᫮)  pp:  py
⪠? ..  ⠯ pᨭ 童 y p⮢y ~:~. - ᤥ
 ,   py p⠢,  :(

 DB>>> { ... exitz ... }!
 DB>>> [y⨬,  ᪫⥫  -  y᫮ p室 
 DB>>> 砫y  pp.]
 MK>>     y᪠  y ;)
 DB> y p,  ⥪,  p "again" y  
 DB> ᪫⥫  ;))))))
    y p - ᪫.  ~again~ =)

 DB>>> , p ᪮?
 DB>>> {
 DB>>>  ...
 DB>>> retz
 DB>>>  ...
 DB>>> }!
 MK>>     ⥪!..
 DB> ⪠  ⥪  y砭.
 DB> y p ⥪⮬, ᫨  ⥪,   ,   
 DB> y砥, 易⥫쭮 ⮨  ! A, HL  ..
       y ᤥ :)
p ᫨ ⥪ 砥  pᨭ ⮫쪮  ᫮,
᪮  y. H  ,  ⮢ ⥪ (⥪ A{ )
⮫쪮 pyp,   A y᪠, .. ᫨ p
p뢠饩 ᪮ ~{~  y  ⥪,  y ~A{~.
      p-⠪ ~{{~  ~}}~ ;]

 MK>> y, 祬  맢, p 쭮 ?
 MK>>  ⮬, 祬  ypy,  ~!~ -  p室  砫
 MK>> 横.  yp ⮦  ,  - . Hpp, 
 MK>> p ~again~ ;]
 DB> y  p, ᮧ ⥪   "again" :)
 DB> y  again  y砭  ᪫⥫쭮 ... 
 DB>  -  pp    ᪮!  來, ⮬y
 DB>  pp ᪮ ⨯ begin-end, repeat-until, do-loop  ..
 DB>  p稬  䮭 ⠫쭮 ⥪.
    y   ⮡  ᮣᥭ - ᮫⭮  ⥣p᪨ :))))
 DB>>>   ᪮  p y᫮ p 横 (.
 DB>>>  pp  L++)
...   B=140 { call READ B-- }nz
   -⠪ p. NZ-? NZ-p? p  p.
   뢠  ⠪ y砥 djnz? JR lab? JP lab?

 DB> p p ppp ⮣  ⭮ - p y.
 DB>  ⭮,   p  p, 祬 p  ?
 DB> :-/
    ,  ᠬ  p.   p -   ⠪ =]
       ⮬,  Pascal  C   p楤yp  y権 
ᯥy ~ 맮~, p 砥  p樨 p
pp  BP.   p  pypᨨ  y᫮
祭 p,  p樨  ᮧ  y ⥪ p
y   ⠪ :(
     ᫨  p ,  RTFM! ;]

>=== y 砫  OS/2 Clipboard ===
                      p⥫쭮 p-⥬

p-⥬ | :   1   2   3   4   5   6   7   8   9   10   (10) y
----------------------------------------------------------------------

-p    v1.5  (93)  18  25  465 135 14  17  27   6  28  1625   970  3330
-p    v2.0  (93)  18  25  456 221 14  22  40   5  45  1896  1152  3892
-p    v2.01 (93)  16  25  438 221 12  19  39   3  42  1794  1090  3699

InfoFORTH  v1.1  (89)  26  13  627 140 14  20  38   5  32  1788  1100  3803
InfoFORTH  v4.1  (90)  21  10  471 139 12  18  32   5  32  1519   922  3188
F-PC       v2.21 (88)  19  31  250 219 12  17  36   3  45  1689  1051  3372
BetaFORTH  v3.0  (92)  20  22  491 204 23  19  35   5  44  3544  2211  6618
BetaFORTH  v3.2  (93)  20  23  550 205 24  19  34   5  44  3685  2297  6906
PC/FORTH   v2.0  (83)  24 123  536 244 13  18  33   5  53  1792  1055  3896
AstroFORTH   ?   (88)  24  27  603 244 12  18  36   5  67  1914  1131  4081
GP-FORTH   v92.9 (92)  29  29  271 230 20  24  45   8  50    -     -     -
pp   v1.06 (93) 127  61 3295 218 176 120 227 27 401 10970  7000 22495
pp   v2.01 (93)  81  86 4922 289 107  -  127 20 242  9670  7240    -

 p  p-⥬ ᯮ짮     
TESTS.F. ⠭ p    ⮩  設 AT286/12.5.
p 믮 ⮢ p  "⨪" ⠩p.

 2  4  y p  p p-⥬, .. 뢮 
p p -py  p p-⥬:  2  -p
p  뢮 p⢠ DOS,  4  v1.5 - 뢮 p pאַ 
,  v2.0 p BIOS,  py p-⥬ 뢮 ⥪ 
p    p BIOS. y  p ⮦   祬 
p, ..   p  뢠 p ﭨ.

p᭮ ⬥ ᫥y饥: -p v2.0, ᬮp  設  
 䥪⨢ p,   -p v1.5  p
     ᪮쪨 y  p-⥬  ᢥ
  ! ,  y,   "y⥫⢮", p
ᬮp 室 ⥪  ᥬp SPF200.EXE  y,
  業 設 , p祬  INLINE-   p᪨
,  : 横  ⢫  IF, p, ⠭  p.
ᥬp (HIEW, Sourcer  ..)  "ᯮ⪭"    , 
 p砥  , ᮧ 몠 ᮪ yp.

祬y  p-⥬    p "p ᠬ p" ?

᭥ 筮 p⮥.   ⮬,  p 맮 yp
p楤yp (p  ᥬp), 묨  設⢮
p楤yp   , p-⥬    (, p -p
2.0) H    ! p p p ⮬ 室 
pp SI, yp p楤yp   py. p祭
 ⥪  (XCHG BP,SP  -p 2.0)  p pp (PUSH BP,
MOV BP,SP  , ᪠  ..) ⠪  p, ..  pp
y y뢠 pp SP.

ᬮp 맮 y ᫥⥫ p楤yp COUNT TYPE, pp:

       -p 2.0                           -p 1.5

뢠 p.   뢠          뢠 p.     뢠
CALL COUNT                           LODSW
                 XCHG BP,SP          JMP AX
                 ... COUNT                              ...COUNT
                 XCHG BP,SP                              LODSW
                 RET                                     JMP AX
CALL TYPE
                 XCHG BP,SP                             ...TYPE
                 ... TYPE
                 XCHG BP,SP
                 RET (騥 ⥪ . KERNEL*.F)

 , pאַ   y⥫쭮 饭  p.  ⮣, ⮡
"p"  뢠y p楤ypy 뢠 yp p楤yp
 뢠 ᫥yy p楤ypy 뢠饩 p楤yp !  ⠪
pp   :  p y  LODSW  JMP AX  ᠬ
   뢠饩 p楤yp -  "墮" py饩 yp
p楤yp.

 p  맮 y p楤yp -p 1.5 p ᥣ 4 ,
騬 pp  6 , 騬 p 24+2m ⠪⮢ ( 386- pp).
 -p 2.0 - 8  pp 16 , p 46+4m ⠪⮢.

祬y ⮣, p , -p 2.0    2 p,  ᥣ 
- 5-15%  p ? ⮬y  -p,  y 
p祭 ⥪  p  pp p [BP]. 모  
᪠,   ⭮,  ᥣ y pp  
[BP],  p   p p   -  p 롨p
⨬ p -  p  ᥣ ⭥ p ⥪
 y/p pp  POP/PUSH.  -p,   ,
p 맮 ᮪yp p,  -p 1.5 y
p 祭 SI  ⥪ p⮢, v1.5 pp뢠 pᨨ 2.0
쬠 y⢥ - 200-300%.   yp  p楤yp, ⥬
⭥ 먣p v2.0. .. ⥭樠쭮 v2.0   p 
p .

  ⮣ 먣p   p⮩  TEST12.  py:

-p v1.5        98
-p v2.0        29 (!)
GP-FORTH v92.9     120
BetaFORTH v3.2      81
...

 設  " ᥩ ᢮ p". H   p᫥  砫
⮣ ⥪ p-⥬  ᯮᮡ ⠢ -py v2.0 
y-y yp  ⮬ .

02.11.1993                                                  p p
>===   OS/2 Clipboard 稫 ===

 >>>>  p.
 DB>>>  p -  ?
 MK>>      p, p 뢠 ᠬ ᥡ. ( ,  
 MK>> y ;] )
     ⮪ _pppy_!

 DB>      8-/
⠯ppp - ppp ~몠~,  p pppy
pp (p   p, ⠪). Ad-hoc yy  
,   室 p  ⠪ 몠  Forth, Haskell, Caml  Miranda.
     pp  ᪠ ~.. Metaprogramming in C++~ -  ᯮy
蠡 p -ppp (p p뢠  ⠯
樨 pp  "ᮡp" ⠫쭮 ). y魮,  p⠥.

    Hy  ᯥ⭮;  y ᫮: yy ⠪ ᮡ 믮
pp, p  p  p yy p権
樨  (ꥪ, y  ..),  p, p py
⥫⢠ p᪨    pp. Hpp: ᨭp
 pp񭭮 ⥬ ( y⨪p ;] )  yp pypᠬ
(  y),  ⨬ ᫮ p⮢ ..

     ⥬ -  , ᠭ  ᬥ, Coloss  Coloss',
p  p,  -   :]    pp, y騩 ᥡ  墮 ;)

     室稢 ? ,)

 DB> ᭨ p
    ,   ᮡp ᮧ p   ᪮ ᫥,
.. py-pp   y᫮ 몠 A)  誮 B).
  y ⮫쪮 y,   y  ⮬  ⎨..
 ⮣ y _⥬_ (p + ⥪ + ext.y).
    , ! p p Coloss 2.9 ( y p, ..
⥬   ⠪ ᢮⢮ ( ⭮))  ~1.5 .
: ᪠p, pp, p , p 䠩, ᯥp ⥪⮢.
 , ᭮ =)
 : ⫨⥫ py⢠ ⥬ p ᪨ p
⠪:  室 ⮪ ⠥ ⥪ pp (⮪: <- yp,
<- ⥪⮢ pp, <- 䠩), ⥬ p y  y ⥪
 _py_.  ᨬ  ﭨ ⥬  y
_p_  ᥣ    ( y  ᥣ⠬ )
 _ppp_, py p ⮬ py p  ..
       py ⥬ Coloss \U ?

    a) 䥪⨢ p⨢ _ppp_ ᥬp;
    b) 魠   p-⥬;
    c) 祭 y y⨮ p -pp;
    d) p,  p  ~ y~ ᮧ ᢮ p-pp
  p (    y =] );
    e)   p  p p ⥪⮬
(p p⥪yp p樨);
    f)   樨 - ⥬ (⫠筠)  楫.
+ pp (ᮧ   py pp).
    筮? :-)))
 쭮 py p ⥩,  ⠬ -  ?.. =]

 DB>    ᮣᥭ  Mr.Gluk', :
 RM>>>  7. p  p易  ppy.
 MK>>   ⮢.  뫮 .  易.
 DB>  ⮬      ᮣᥭ.
    p y :-)
    p ; -editor    p  y.
p ⮣, y _p_ pp.
p⪮:   ⥪  p p.
y⨬, y ⥡  p.   p  ⨬p
 ppy,  p -  p⢨. p 樨  pp.
      y ᤥ  yp pp (py  -p).
 쭥襬  ⥣pp  py ⥬ p pp.

 RM>>>  8. 易 ()   ( ᫥ p楤yp)
 DB>   ⮬  ᮣᥭ  ⮬
    subr #D6B cls
    subr #3B5 beep(HL DE)

    =]

 RM>>>  10. hint:  ᯮ ᪮쪨 ⥩ pp
 RM>>> (筮  p pp)
 DB>  ⮬ ⮦ 8)
     祬  ⥡  p?  ⠪ ,   p⨢
筮..

 DB> !  祭 py y ᠫ! H ⠪  쬨!
    .  , p稩 :-(

 DB>>>> p y,  쪨...
 >>>>    !!
 DB> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Thx! =)   直 墠!
 p 䨣    y⨪p!!!

 MK>>       / ? :-)
 DB> 䨣!
 DB>    ,     ᨤ...
 DB>  y  ⮫ py  p᪥...
     ,  砫 ⠪y p,  祬  p
 ,  p , ⥬ y  y砥. p񧭮.
  y稫 p 뫮 - p.   :)  H ⮣ p
p ᠬ    :>

 MK>> , p室  ⠪ p  ⢥⮬..  ᬮp:
 MK>>  ᠣ y py嫠  60 ,  y p.
 DB> , y  ⠪  p 뫮  y⥬ yp,   ⮭ y
 DB> ᮢ⮢  ppy . p    yp :)
      y ⢮   ppp⢮ txt-pp ;)

 MK>> H ,    ᮯp,  p ᪫祭 ;]
 DB> :)))))))))
 MK>>      y  y  .
 DB> :-P
 DB> ;)
    ;]  p  - ᠫ   ⥬y .
yy p, ᫨  ppy .

>=== y 砫  OS/2 Clipboard ===
"H  ᥬp "

 y몠:            p:
() Dave      () .

   祬y  ⠪      
pp 室  py?
,   p稭  
py             ᠭ
⥫          ppy
室        ᥬp.
p p 稭  y
 ᪮p ᥬp  (
 py,       ᥩ
  ᮪᪮p   ),
p     ᠬ   ꥬ
p樨  -  y  䠩   
室     ⭨   p,
筠   y⠭       /
pp,     ᠬ  ⥪,
      쭮       
pﬨ, ⠥  py
⠥.  ᫥     
⫠         筮
yp蠭     pᯥ⮪      
⨭, ⪮
몮        pp
p楤yp    ᪮  "y"
訡, p  窨  p
ᥬp     訡      
.   ᥣ 
p⨢? -    ᪠:
,   ᪠.        ⢥
⢥ y  pp
pᬮp    py    p
HiSoft.    ᫨       p
⠭py         ⥪y,
ᨫ쭮  楯塞y     
pp,  ppy
     y  
᫠      :     p
pp   y   
⭮⥫쭮          
pp,       p
p   (    ,
 ,   p  p
墠⨫   p  pp)
⢥,  p 
p⢨     ⥫쭮
y稢  y   ꥪ⭮
.      ᫥,  p
ppp ⠪   y.
,   筮,   뫮     
        
p    ,    p  
y  窠   ᤥ
⨬쭮.   , 
p  y   -   
"py"   ᠬ    ᥬp.
p 蠣  ⮬ y y 
ᤥ: p. p   蠣
     p
ᥬp  , 
楯y      ,    p
  (    p)
   p騬.
pp         ᫥y
  ().   ᪮쪮
᫥:
 1.   
ᥬp   楫 
p᭮,      y
 ᥣ ⠢    
    pp.
 2. ⮡
ᥬp ⫨砫  
 ⠭p,   
 -   , 
⠢  p    ᯥ.
ᨬ: <.>, <$>, <#>    p.
 3. p     뢠
⠭p  p  -   p
DEFB, DEFW -  ᮮ⢥⢥
p  ⨯. p祬, p
       直
INT, BYTE, ARRAY  ..,  ..
 4.p,  p
ᮢ        ⠭p묨
pp,      y
䨪p           
pp. p     
᪨      
p  ⠭⠬. 祭
  p     ᪮窨
  뫪       .
 5.     ⨥
p         pᢠ.
Hpp:

B=(DAT0)+5-C+(DAT1)+DAT2-(HL)

    p樯,
⮡           py
pp     ,   
p   ⠢    p
⠪ p LET     
p ᯥ.ᨬ.
     -   ᭮
p  p権   p
+,-, p⥩訬    ᪨
(or,xor  .. -   樨  
 Gens)   pﬨ  ᤢ
(>>,<<).    yy :)
筮,          p
pp      p権      (
p⥩襬  y砥  -  y   
p),   ᪮窨.
 ⮬ y 宦  
-   pp    p
yyp     HL,    ⠪
pp  ⨯. 蠥
p -    p祭
    짮⥫ .   Hpp
p   pﬨ    
-y    p.   
p 宦 A   p
            p
pp.    pp, 
뤠 warning.   ...
  p      . 
yp祭: A+=5,B>>=2    ..
᫨ 䠭⠧ ᮢᥬ  墠,
ᤥ  p  "p"  (=)
p p⨢ LD  -  
p            ⠥.
 6.ᨢ.  Hy, ⠢   
⠭p   -   IX       IY.
p  p饭     ⨯y
IX[n].    py   (p,
, p   ⥬    
DEFB,DEFW,DEFS) 
p    -. .
. DAT[C] <=> LD  A,C / LD  HL,
DAT / CALL   adr_mas,    /
adr_mas   p    뤠    
yyp  祭  
ᨢ, 稭饣     HL.
(p,     ᪠뢠    
⥫쭮     ⥪.)
  ᪮p  y  adr_mas
     pp뢠,   ...
p祬, ᨢ       
.
 7. pp.
.. pp  p 
襩    p  pp
饣     祭      (
᪮p),      p   
 ⮫쪮 ⠪  堭
p. Hpp:

 PROC sub_name (var HL, var  A,
B) ...
  ⥫ /
  ...
  RETURN sub_name
    - ᫨ p  pp  
⮨ var -  p    
⥪.  ᠬ  ⭮  
pp ᫥  . .
. p p p :
 sub_name PUSH BC
         PUSH DE
         ...
   -  pp  RETURN
pp⥫쭮      py
⥪, ᫨   室.  
y  /,   p  
⭮   (   y砭,  
᫥   ⪮p) 
 y砥  pp :

         POP DE
         POP BC
         RET

   E⢥, RETURN' 
     .    -      맮
pp y   ⠪
 (᫨    p  GOSUB,
y y  y) : GOSUB
sub_name (20,,C)
   Hpp       ⠪,      
ppy :
   LD HL,20
  ;p pp (A) py饭
 p ⥪y騬 LD B,C
  CALL sub_name
    y뢠 p
   ⢥     pp.
⢥, p
ᥬp       pp
ᮮ⢥⢨ pp (  
祣        y   pyy
p).
 8.      ?  ,
p室.  y          
py - ⠢ JR   JP.
       ypᠫ
GOTO,  p    y     ᠬ
p,  ⠢  -  JR,
JP. p, ᪮쪨   p室
⠭   ᥬp    y
py  p .     
塞  GOTO     p
p pp  (, ,
楫        ,
pᨢ ᫮y  ⥬⨪y  
-뢮, 直  ⠬  WRITE,
READ,FORMAT), p 룫廊,
pp   ⠪:  GOTO    (ADR1,
ADR2,...ADRn),(switch) ;
(switch) .   p   
ppy :

      LD A,(switch)
      LD HL,_TAB1
      CALL adr_mas2
      JP (HL)
_TAB1 DEFW ADR1,ADR2,...ADRn

   9. ᫮   p室.  Hy,
ᠬ p⮥ -     ⮣
 pp (⮡  y  
y᫮   p樥, 
    IF,   pp, IFS):
IFS  (p) METKA1,METKA2,
METKA3     ppy   
᫥  p,    
:   OR     A ;y,   ᫨
᫥ p   﫠
 䫠 JP M,METKA1 ;᫨ p-
 p⥫  JP  Z,METKA2 ;
᫨ 0 JP  METKA3 ;᫨  
y       宦
pp,    p      y
pp  䫠 CY,   
SiGN - -  IFC ... ᫨
   ⮪    y, 
ᮮ. p室 yy (
⭮   y, ᫨ 
 ⮪ 뫠    py
py  IF).   殮
y砩 - ᥢ  y᫮
p室, ⨯  IF  (p1>p2)
GOTO    metka1         
p祭    ᯮ짮
ELSE,  ELSEIF,  ENDIF    
 ᯮ짮 pp
⨯  begin/end      ᪠, 
y 䨣yp ᪮窨    
   뤥  pp
 ( ⭮, pp
p   ppy
p   p  ⪨). 
p樯,          
     p祭      
ᥬp. H      p
横.  Hp,      y
p pᨢ p  
DJNZ  y .
   10. ⪨.
..   yy  ᯮ짮
⥯p        p
pp,         
  ᯥ䨪p  FAR   
"쭨"   ⮪, p室    
p  y   y⢫
p   JP. ᫨   ᯥ䨪p
yy,        ᥬp
⠢  JR   (   DJNZ   
横). Hpp:
IFC (A>>1) m1, FAR m2, FAR m3

   11. p ᥣ    y
y.  ,      
p,    pp뢠
室  ⥪  -      
ᥬp  py   . Hy,
  蠣y    
⨬樨.
   12. ⭮, 
 p p, p⭠
p   -       ⥬
(ᮡ   ⨬). 祭
⥫     y,    y
 ᫨ p室    
 (᫨ 祭 訥 ᫨,
      뫮).    ,
pyp       y
⥬y?   y,   ⮬y      
,       y   
p    "p     p",
 y    yy饬 ;)
,   ZX  Rew   p
,  -  y  
C--  (    ,   y   
ᥬp) - ,  蠫,
     p?

   13. 宦, 짮
묨                
p 祭 y稢, p
p⠢   ᥡ,    
ppy   ⨬쭮,
  . p祬, 襭
⨬ y   ᥣ  -
     ⥪⮢     p,
⮢, p      ..
 -  ⮡      
p    ᠫ,       ⮬
p쭮   p⠫.     
殢, ᥬp      ᥣ
y  py. Hy,   py
 p䨪  ᠫ  ⮬
ᬥ, ⠪      yy .
 14. H yy -  pp
 룫拉 室:

subr_ix

PROC (var HL,IX,A) : BC
      GOSUB s1(#5800,A+color)
      .IX[10]=IX[1]+shift[A]-#7
      IFC (IX[10]-100) m1,m2,m3
m1    .IX[10]-=1
      GOTO m2
m3    .IX[10]=(mmx)
      .IX=IX+16
m2    RETURN

     ᥬp  뫮  
 ⠪ ( y  y  
  p訩   ⨬p :


subr_ix PUSH IX
        PUSH AF
        PUSH BC
        LD DE,#5800
        ADD A,color
        CALL s1
        ADD A,(IX+1)         LD HL,shift
        CALL adr_mas
        SUB #7F
        LD (IX+10),A
        SUB 100
        JR Z,m2
        JR NC,m3
m1      DEC (IX+10)
        JR m2
m3      LD A,(mmx)
        LD (IX+10),A
        PUSH DE
        LD DE,16
        ADD IX,DE
        POP DE
m2      POP BC
        POP AF
        POP IX
        RET

  p 祣 .   ᫥,
yy     py.

      p稬 p⮬, !

  ppy p
                     ⠭p!
05.p.97
>===   OS/2 Clipboard 稫 ===

 MK>>     -  y y   p  ⮬ .
 MK>> ᫨ y _Alone Coder_    ⠪ ,    p
 MK>> p ;]
 DB> !
 DB>  祭 p p p᪮ ppp  ᬥ.
    Hy! 쪮   ⮬ y =]
     y騬 ⥡, ! p, y, ⢮p᪮ ᢮.

 DB>    ᥬp  ⠪ y,  pp , 
 DB> y, pp, ᮧ 20  LD DE,...:PUSH DE  , 
 DB>  뢠 ⠪ :-/
     ,  !  y ;]

 DB>  - Alone Coder [ZX-Guide] [AC Edit]


             y,   Oleg N. Cher  (aka  Vir ExCite)

... mailto:virexcite@newmail.ru  2:464/86.62 [aka /156.62], 500:562/1.16@ZXNet
--- GEd/2  [Cranberries][guitar][I.ZX][Myth Corp.][nonmatter] . &..Good Karma!
 * Origin: ./ [80x86][C--][Pascal][Forth][Lisp][Esperanto] \. (2:464/86.62)

