 Netmail (2:464/86.62)  NETMAIL 
 Msg  : 76 of 83                            Uns Pvt Loc
 From : Olegka Cher                         2:464/86.62     09  02  00:19:34
 To   : Dima Bystrov                        2:5029/9.33     09  02  18:00:26
 Subj : Coloss \U

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


            Hi, Dima !

 DB>>>    p? p  y  :-/
 MK>>     p  _⢥_ 짮.
 MK>>     '        p
 MK>>     'F    '   ᨬ 'F'
    p,  ⮬ p - p. ᫨ p  - .
 p -  p ⮪.
    H ᠬ   ⥬ ⥪ p p ⠪:

    INL IMM SYS subr "' "
                   { AX{ TexLine [[  Scan  ]] ?TexLine} }z  ret

    ᯮ,   뫨  p襭! ,)  H 室 , :

                   repeat AX{ TexLine [[  Scan  ]] ?TexLine} untilNZ  ret
    來?

 DB>   ⫨ py  py?
 DB> y py ᨬ. Hpp, ##
    祬y ? :)   ?
    祬y  \\ , ⥬ , ᫨ ⯠,  p  0..

 MK>>     '  ⢥ p p  ⥪ _krnl. 
 MK>> . p ⮣  p  ᪮쪮 p: /*  */
 MK>>     y蠩, 䨣  p? ;)
 DB>   ,
    , ⮯y!  ᪨ ᮣᥭ  100% :-)

 >>>>    y蠩, .   yy    p ⥬,
 >>>>   y  ⮬ ⤥ pp ⥪⮬.
 DB>>> p.
 MK>>     ⥫쭮!
 MK>>  pp  p!
 MK>>      ,  ⠪ py, p   祭 쪮.
 DB>   ⠪ p?
    p p쭮 yp ;)

 MK>>     H, p  : ~ 稢   ⠬ 뢠 ⠪?~
 MK>> ;]
 DB>   ᠫ 쬮 ,    p :)
    Hy  y   ⮫쪮 p᪠ ! ;)

 DB>>>  (ᯮ,   ᥬp    p諮  
 DB>>> ) 祬y  ⠥,  p - ᭨.
 MK>>      p!
 MK>> Hy   ..! ;)
 DB>  ? ;)
 DB>  ᭨ y,  ⠢  ⮬.   ᢮ ᫨ py y.
    . p  beep(3 40) , 祬  DE=3 HL=40 beep ,   p.

    ⮤ ꥪ -    p楤yp,  ⥬ ⫨稥,  p 
뢠 pp ꥪ, p騩 y  ꥪy:
p, , py쭠 p楤yp   - !

 MK>>  y (, 䨣  ),  yy pp 
 MK>> p p ꥪ,   , y, y 奬y
 MK>> ..  y  - py!
 DB>     ?????????????????????????
    ,  p   - ⤥쭮, p - ⤥쭮,
y - ⤥쭮, p - ⤥쭮,   y- 砩y 蠭y,
  ᯠ,  - 订 y稪 ;)

 >>>>    p᫨py p⮢᪨  -  y.
 DB>>> Hp. ᥣ  ᥪy ( yp).
 MK>>      p Coloss  ~⥫y~ pppp ;)
 DB>  ... ⨬p  :)
 DB>   p,   py  py ⥪,
 DB> ⥪⮢.
    p誠! ⫨ y p묨  p묨 ⥪⠬
  . 祬? 祬???

 MK>>     ⥬ Coloss py  ᫥y p⨢:
 >>> p樮 :
 MK>>     + - * / & | XOR NEG NOT ++ -- ** // \\ < >= => ?   ..
 >>>   RAM:
 MK>>         HERE ALLOT var string const @ ! #align #code #data #incbin
 DB>  ⠪ ^^^ ^^^^^     ^^^^^^       ^ ^ ^^^^^^ ^^^^^ ^^^^^?
    HERE   - py y⥫  ᢮y 
    ALLOT  - ppp  ᢮ 
    string -  p p (null-terminating string)
    @      - p묥  (y祭 祭  py )
    !      - pᢠ  ( 祭  )

    -     p (p string). ᭮,   y
ᮢᥬ  ⠪.  py ⠪. y   p ᥣ⭠ 

    #align - p  yy py (᫮, pp, 256 )
    #code  \
    #data  /   y    y ᥣ

 >>>   䠩:
 MK>>     Open Create Close ReadByte WriteByte
 DB>  :-/
 DB>  ?
    !

 DB>   ⮣ ⠫ 뢠? (p y権   )
    桨.   - .  ⠪樨  y, p⭮.
⠫  ? 8-)   蠫, ,    䠩 
p p.

 >>>   p  yp:
 MK>>     Emit CR Space Key Cursor WriNum WriText
 DB> p , , p.
    Emit    - 뢥 ᨬ  y
    CR      - py p
    Space   - 뢥 p
    Key     -   p  
    Cursor  - 樮p ypp (0..maxX; 0..maxY)
    WriNum  - 뢥 y塠⮢ ᫮  
    WriText - 뢥 ⥪⮢y py (⯠pp)

 >>>  ᮡ⨩:
 MK>    >     gto goto repeat until again ret proc subr if then else 
 MK>    > ..
 DB>  ⠪^^^                                  ^^^^?
    gto   - p⪨ p室 jr. 祬y ⠪? 樠樨  goto ᨫ
(⠪ 來),  y᪠ 'o' 뢠 y饭 , p⪮..
    goto  -  p室 jp.
    GOTO  -   ⠢  -譮 JP FAR

 MK>>      .  PC ᠭ ᥣ ⮣  p⠢ 
 MK>>  ⮫  py⥩,   ZX. -p, p 
 MK>> RAM.. p, py ⢥   #6000 ->
 DB>  ⠪ p?  p  y᮪,  p ᪮
 DB> p  p⠥?  p,  y  ⢮  . 
 DB>  ᨤ  p孥 ,   ᥬp.
     p孥? :-/     y p  p묨 묨??
..  p樯    p孥, 祬y . ᯥp RAM ᮡ
 , ⥬ ,   -   .

 MK>>    y  ( ⮬ ᫥ 
 MK>> ᪮p) + . y ᫮p p,
 MK>> ⥪⠬, yp  .. ⢥ p.  y頥 p
 MK>> ᮪   p  .  p ?
 DB> 쪮 128
 DB>  p ⠯ 墠,  p p  y p稭  墠⪥.
    Hy p,    , pp뢠騥 yp訥 p?
 p ppy祭 512k  ?

 MK>>  p?
 DB>  ⠬  ᥣ :)
 MK>>   
 MK>> ᮢp襭 p. H  ᯥp pp
 MK>>  (,   p쭠 OS)..
 DB>   y pp ᨪ  TR-DOS-! ᯮy  :
 DB>  pp  pp
     ? :)

 DB> ⥬ p  ⥬ p ( p  )
    筮 :)

 DB>  pp 䠩  pp 䠩
 DB> yp ᥪp  ᥪp
 DB> y py  y py
     !

 DB> ⥪  ⥪
 DB>     ⮪  :)
    宦,  y :)
H p⠢  ⮢  䠩  tr-dos.
  yp 맮,   -  ᨪ..
      祭 y..  !

 MK>>     p: 䠩. p碠  ᥪp, p,
 MK>> p  ..  y 䠩 p ( )  
 MK>> ⮢ (.   䠩.   p,
 DB> . . H :)
    ,  ! H  p楤yp  yp  yy ;)

 MK>> p  Delete  ⮫쪮). 
 MK>> -   ⮢.  ,   ᨪ (⨯
 MK>> ᫥⥫ y  ). ⮬ p.
 DB> ᭨, 祬  y.
 DB>     p.
 DB>   ᥣ 뢠/ 䠩 楫  ᥪp.
    , 祬  p, ᥪp, p  p.p,
᫨ ⥬ p ᪨  ⮪ ⥪ pp ⮢?
     ᠫ   ᯥp 䠩: ⠬ ⢮ 16k  yp.
p readByte ⠥ y᮪ 䠩 y,  ᫥y騥 p
몮p  yp ⨪,    . py.
pp ⠪ p室  .   y p
 ?

 MK>>     , . y⨬, ᮫ p..  y 
 MK>> 室  䠩 p.   y  ?  DOS -
 MK>> p:    coloss30.exe myprog.col    ⠥  䠩 
 MK>> PSP  ᬥ饭 #81. [#80] -  +pp. H  
 MK>>   ,   :(
 DB>  TR-DOS' ⠪:
 DB> RUN "coloss30",myprog  c
    쪮  p :)

 DB>  뢠   py pp ( p ᥣ  
 DB> py, yy  ⥬ p E_LINE).
    Thx!

 MK>>     p: p  . y ⮦ p窨. - 뫠
 MK>>   y, ⮬ p訫:   ⮩ pᨨ ;]  襭
 MK>> ᯮ짮 p 40 ᨬ/p.  ⨬   y⮬騩
 MK>> .
 DB> y 42
    6x8? p!
    -  p 5x8 ?

 DB> p     pp!
      rip'  䠪 ;)

 DB>  , y 2 p  AC Edit?
    y!  p楤yp  뢮  p !

 MK>> pp (⥫쭮 p/) y  y.
 DB> y     p,   :)   롨p :)
    y py! H, ! ;)

 MK>>    -  訡 =(
 DB>  ᫥?
      :(  Hy home/end, del, delstring [Ctrl+Y],
y樮 , pgUp / pgDown / Insert..
      y  pᯫp pp,    y⢨ -
ᮢ  ,   p     y? :(

 DB>  py ⠡y ᮮ⢥⢨   pp Z80  x86
 DB> ᫨ 䫠 ᮢ.  ⮬  py .
    =)

 DB>>>  ... ,  ᪠, 筮 ⥫쭠 
 DB>>>  :))))
 MK>>      ⠭p⨧p   y py! ;]
 DB>   y ppy ;)
 DB> p⠢ ᥡ:
 DB> ⠭p⭠ pp 뢮 p⮢  p ⨯ "p p"
 DB> ⠭p⭠ 뢮 p  Wolf 3D
 DB> ⠭p⭠   Worms
 DB> ⠭p⭠    ;)
 DB>   ;))))
     y ᬥ,   ⠪  ᥡ   p⠢ :)

 >>>>>    LD A,(VAR)
 >>>>>    ADD 60
 >>>>>    AND 7
 >>>>>    LD (VAR),A
 >>>>>    RET
 DB>>>>  ᮪p:
 DB>>>> HL,VAR,A,M:ADD 60:AND 7:M,A:RET
 DB>>>>   ᪮ ᥢᬥ  룫拉 ⠪:
 DB>>>> hl=var;a=m+60&7;m=a;ret
 MK>>      ^^^ ᠬ ᫠  ;)
 MK>>  ⨯ p p?    ᠬ 祭 ⮣? 8)
 DB> 祭, py,    p ᪮!
    __ p -  ᪮? :-/    ᬥ??  y,  
쭮 짮 ᪮.. y  var rulez,
 ⮬ p     [rulez]. H, y , 筮..
H..   祫 ᮢ⮢,  y,   p.

 DB>   y ⥡ y砥,  ᫮ -   y砭 祭,  
 DB>  p y  pﬡy - y  筮 ;(
    pﬡ - ~p ~.   ᫮,  p ⮪.
p ⥡ 让 ᥪp: p  Coloss' 뫮 ⠪:

    varia   - 祭 p,
    [varia] -  p,
    [1234]  - 祭  py,

    H -  ⠪ 奬 pp :(

 >>>>    HH H!
 DB>>> p,  p y砥 y p pᢠ: HL,VAR:A,M
 DB>>>   ⢨⥫쭮 ⭮, p - p᪠ 
 DB>>> ;)
 DB>>>  p p  來  筮, ᫨ , 
 DB>>> ᫥
 DB>>> y ᫥ p.
 MK>>     HL=#var A{[HL]+60&7=>[HL]} ret
 DB> y hl=var a{m=m+60&7}
 MK>>     HL=#var  [HL] {+60&7} ret
 DB> , hl=var;m{+60&7};ret
 DB>  var{+60&7};ret
    . ⥪ p? p᭮..!
  p  ⥪?

 DB>    ⪮p?  p  ⨬py?
     -    :]

        HL=#var  [HL] {+60&7} ret

    LD  HL, var
    LD  A,(HL)
    ADD 60
    AND 7
    LD  (HL),A
    RET

 >>>>      䨣   m  (HL),   8080? =8)  
 >>>> 來,  ?
 DB>>>  ⠪  p  p :)))
 MK>>     H 來.    :)
 DB> p몭y ;)
    ~Hy, ⮡   祬y- py稢~.  ᠬ.. ;-PPPPP

 DB>    Capry, ⮡  ᤥ ⠪y y  ᬥ :)
    ,  Coloss'e   ᬮ ᥡ ⠪y y 
 p pp ⥪:

    @m [HL] .

    H ,  ᫨   yp,  p  pp =(


 DB>   y,     pp hl,   bx.
     .    pp BX/HL  y䨪樨?
 16- pp.  p. 横 BC/CX  p祥 : '!!'
    , 設 ᨬ - ᫠    py,
 , ⮡ y p襭 뫨 p py,   ⠯ pp,
  訢 ⮬.

 >>>> :-/  (BC)  (DE) ⮣ ? :-/
 DB>>>     .  p ᯮy.
 MK>>      ,  ,   ? ;]
 DB> !  p ᪮.
 DB>   , , 뢠 [cx]  [dx]
 DB>  ⠬ p py  ⨬ 祩  ;(
       :(

    xchg bx,cx   ; 1 
    mov  al,[bx] ;   ...p
    xchg bx,cx   ; 1 

 DB>>>  ᮦ,  p Coloss  y  ᨬ, 
 DB>>>  y.   pᥪy  ⠭p묨 (. )
 MK>>        ! H p y  __
 MK>> p.  p  / py
 MK>> ⥪⮢.
 DB>   y pp  p!
    H p!

                        proc ' '
...  -⠪ y  proc " "
                     ?

 DB>>> p ⥪⮢   p権 Z80 y  
 DB>>> ⮪  :)))
 MK>>     Hy  ? =)   py. p  y
 MK>> 䥪⨢.
 DB> ⮫쪮 HHHHHHHHHHH ;)
    y? :)

 MK>> p y 娢   p a la   y砨 
 MK>> ;-/
 DB>  pp  y.
    y  ⤥,    pp  p pp,
  - 䨣,  pp,    ;]
      pp⥪yp p -  ,  ! ,)

 DB>>> y, p y    p   !
 MK>>     ! p - 4k
 MK>> #include asm.col
 MK>>     p - 16k
 MK>> ..   p! ;]
 DB>   ?
      ⮬,  p -  ⥪, ᬮp,   .
  p p -  - ~y  yyy~ ;)
 ⮬, ᫨  y py  祭 ᬠ - 䨣 
  ?    ⠪  y =]

 >>>>                       Push AF  PUSH DE  push BC
 >>>>                       PUSH {IX IY AF}
 DB>>> ⥫  PUSH IX,IY,AF  :(((
 MK>>       y  y  梥.. :)
 MK>>   y:   p?  p室  p
 MK>> 堭.  PUSH p뢠 ⥪,  ~;~ p뢠 - ⠪,
 MK>>  ?
 DB>   ⠪
 MK>> p, . H  y p樨 y ⢥ 
 MK>> ⤥ ⥪,    , ᮤp騩 ~ᠬ y~.
 MK>>      ,  ᥩ p ⮫쪮   ⥪⮢!
 MK>> =]
 DB>  y ⥪⮢, y  :)
      ⥪ :)
Hp ,    -   ⥪  .
 魥訩 p䨧: ~+~  ⥪ ᯨ᪮ -   ᯨy,
 ⥪ p - ⥭,  ..

 MK>>     ,   ⮣ p 뢠 맮 y権 
 MK>> pp? ,  ?
 MK>>                 fn 5,6,7; + fn 6,9,1;
 DB>  (fn 5,6,7)+fn 6,9,1
 DB>  祬 p楤yp ⮫쪮 pp? y   ? (.
 DB> p 쬠)  祬y    p 祭?
 DB> :-/   p pp  ᬠ,    !
    LD A,3
    LD DE,45
    LD BC,#9505
    CALL FUN
    PUSH AF
    LD A,80
    LD DE,907
    LD BC,#3479
    CALL FUN
    POP HL
    ADD A,H

    8-))))

:
    CALL FUN
    DB 3,45,0,#05,#95
    PUSH AF
    CALL FUN
    DB 80,..,..,...
    POP HL
    ADD A,H

      ᠬ,    ⯠pp - ⮦ . 񣪮 ;]
   p⢠ 몠,  py.  - p᪨
筠:

    FUN(3 45 #9505) + FUN(...)

 MK>>     ,  ⥬᪮ 樨 p _᪮_,  
 MK>> y  400 .
 DB>   p⨢ ᪮.   ⥬᪨,     p
 DB> :)
    p쭮 :)

 DB> alpha{
    H, y   ᥡ p⠢ ⥪ p? =)
.. ⥪ ⥪.. create.. does>  y,  :-)

 DB>  130
 DB>  {
 DB>   proc1 alpha
 DB>   proc2 x,y,color
 DB>   proc3
 DB>   -10
 DB>  }nc
 DB> }
 DB>   py   ᠬ:
 DB> [alpha]{130{proc1 alpha;proc2 x,y,color;proc3;-10}nc}
    !
      p  ⨫  ⥮p pp?

 MK>>      ⥯p   py pp᪨ pᮢ,   p
 MK>> ~䨣?~ ;]   ⨢py py⢠ ⮩, 饯p⮩
 MK>> 奬, p  饯p? ;P
 DB> ᨬ  :)
 MK>>         pᢠ   ⮣   p
 MK>> p/pp?   ?
 DB> 
 MK>>      ⠪:
 MK>         100 => C => D =>> alpha
              100=>{C D alpha}
     p魠 !
 DB>   ⠪: alpha=c=d=100
 DB> y砥 p!
    H  ᬮp  y py    筮,   p⠥! :(

 DB>   ᫨ pp  ???
     ppp '=' ? p,   ⮩ ?
, y , y  -  ;(   -⠪  p? :(

 >>>>        d:= a + b / c;
 DB>>>   稩 ;)
 MK>>     ,  y᪠.  y: ~:=~ p ⥪, ~;~ - p.
 DB>  =   :=
 DB> ,  ,  ⥪  p뢠    p,
 DB>  ;
    H 뤥  pᯮ!
y 砥  ⮬,  y y ⥡ p y,
py  ppp, y⭮ ᦠ 譨 p/p
(  ,   - y ⥡  譨! ;P )   
让 : ~祬y p⠫ p???~ :(

 MK>>      ,  p . 쪮 ~=>~  ~=~.
 DB> y.  p p ;)
 DB> y ?  ⠢  ? d=b+c  b+c=>d
    Ok!
    D{ B + C }  \\ -  

 MK>>      _yp_,  y  , ⠪   ,
 DB>    !  y  ⠪, ⮡ p p  祩.
 DB>   ⮣ p, pp,   ⠡  ᨪ!
    Hy  py!  蠥?
 p   訢 p 몠  ᠭ
⥪⮢  ᢮ y - p p p⨪ p
p-pp⮢. ⮬  p p  !

 DB> y LD - ⬥ LD/X-TRADE ;)
 DB>  JP  p, 祬 goto
    H  ⠪ 來, 让 y. p goto pp᫨  ᨪ,
goto   , ᪠  .. =)

 MK>>      ⥪ -  y,  p ;]   . ,
 MK>>  !! , ⠪   뫮!!
 DB> p,  祬 ⥪, p ⠭p pp?
 DB> a
 DB> b
 DB> c
 DB> d
 DB> e
 DB> h
 DB> l
 DB> m
 DB> metka (-  ⪨)
 DB> bc
 DB> de
 DB> hl
 DB> ix
 DB> iy
    :)  ,   ,   ⨥ ⥪ p? =)
p᫥ ⮡, , ⥪ y  , ! ⥪ asm -
  ᬮ py権. ⮡ ᬮ XOR  蠫 Coloss'y
XOR'y. ⮡ p p p   ⮣  ᫮ -
p - pp, ᠭ   p楤yp p  p
 p ⥪ yy pp  p p楤yp 뢮,
p p, !  砫 p 砥 y ⥪
  py, py  py pp襭.   py 몥.  ..

 MK>>     p ⮣,  p y ᮧ __.  , 祬
 MK>> . !   py  Z80  py. Coloss
 MK>> - yᮢp襭⢮ p.  ⠫ yp py騥 py
 MK>> p襭, p y   p᪮
 MK>>  p ;] Coloss y  . ⮬y, ,
 MK>> ~᪮  p~ -    py,  defb
 MK>> '{$RY$%BN%^' -    p p᪮ y ;]
 DB> ⠪y y    ;)
 DB> ᨬy DB ",,w
 DB>  DB "))#)
     p᫠ ? ,)

 MK>>      ⮫쪮  ⠭p,  蠥? =]
 MK>> H    ᠬ,    , y ⮫쪮 ⨯ char
 MK>> ;]
 DB> 祬y, ⠬   py p ⨯ :)))
    p쭮! , !
[ y   誮 ⨡쭠 ⥬ ]
     뢠 ᢮ ⨯?  pᮢ  y  祪 p䨪y pאַ
 ⥪⮢ pp? Coloss rulez!

 MK>>     .    Coloss.  ᫮  p py
 MK>> ᫮.  ,  !  ꥪ!  ⥪. 
 MK>> p⭮.   ⢮ p,  p筮. H y
 MK>> ~~,  ᠬ  ⮬y  ᪢ p p⮢  ᯮ. 
 MK>> y pp  ᪮쪨 ⪠ .  审.  y稫
 MK>> ᨪ  ᠫ   訥 p   . Smalltalk,
 MK>> Forth, Rapira, Focal, Logo, Simula, Lisp, Caml, Miranda,
 MK>> Refal, x86, x80 asm, Modula 2, Modula 3, Oberon, PL/1  PL/M,
 MK>> Algol, Fortran, Ada, Basic, Pascal/Delphi..  楫 - 
 MK>> 墠.  y y, ? ,)
 DB> , y ⮫쪮 몮   ᥣ y ppy ;(
     y! ;)
 -  审.   p , py p  y뫪  ;)

 DB>     몮 p祭   ppp, 
 DB>  ⥮p᪨ ᪠  p ⠭p⭮ 諥 y
 DB> y⮢ ;)
    y᪠  ⠪ :)   몮 p 祭 yᯥ樠p,
 ᫨誮 p⨢  yp訥. y, ᥩ  
ᥣ p OCaml - 祭 魠 y.   ᠭ  
ppp Logo -  , p᪨.

 MK>>      pp..  ,  ᫨    
 MK>> p   ᯮ짮  pp  ⮬ 몥
 MK>> ( ᯮᮡ,  pᠬ),  y 筮 .
 MK>> H p - .
 DB>  p
    :-/   室祪 p᫠? 8)   :
p䨪᭮  䨪᭮? ,)

>=== y 砫  OS/2 Clipboard ===
    蠫  몥 ppp p? ᫨  - 祣  y⥫쭮
 ⮬ .  襩 p (   y 訩 ᪨ )  p -
蠫 祭 . y ⥬  p yp p p. y᪠, p-
 ᪮쪮  ᤥp, 祬  ᢮ p yp 몠 , , 
 ,  易  p 筮 p,  ⠭p⭮,
 ⠪   ⥬,  p  p   ᫨誮 ᫮.
   ᫨     p⮬ - y        ;
᫨  - py "-y" .  ᢮    p
 室 ⠪ 모 ppp,  ᪠  .    -
 ⭮ , p pp, p⥫쭠 ,   ⮨-
⢠ ⠪ 몮,    p.  ⮨  ⮫쪮  ⥫쭥    y
p拉. p 祭  y,   ᮬ,    pp,
pp⠢訩 p p  ᯥ, p p ⢥  p⮬  -
⠥ ppy  y⢥p. p p砩 ,  饭  
  yᬥ孥, y蠢,  -y "y"  p᪠뢠  ᮡ-
p襩 py  yp   몠 . pp  p  p-
 pp  ᠭ p⭮      ⭮  
y ppy, py  몥 ᥬp.     p
p,   p⠫  8-pp來 pᮭ "p",  p砩
p 䠪,  p  p-⥬y ᥬp, ᠭ  p  
p᫨p      1.5! 롥p   pp-
p, 設y,  py y  p  ᥬp  p-
p i8080. ᫨   p py ppy   p  -
pᮢ 室 ⥪  p ᥬp i8080, py   y
.H.p  H..Hpy " p   p樨".  ⮩  pp᭮
ᠭ  p   py p  pp,    p
p-ᥬp, 筮,  ᠬ ᮢp襭. p, ⠪  p-
 pp  p     p室.
   p p⠢ ppy p᪨ p祭 ,  
 ⠥  ⠫ p  pp⭮    ⢨.  Hy
 p⢠ p  ᬮ ᤥ ᠬ.
     p  py 모 ppp  p pp  -
⥩ p ᢮ , pp  p, p ⠥ p  -
.  ᯮᮡ p p᪨ y  ppp,
⠢ p ⮬ ᠬ ᮡ. p稭 ⮬y - pp塞 p.   -
 "p" p ᠬ⥫쭮   y  p.
   ⠪,   ⠪ p? p p.   pᬠp 
      *   ᮪ yp
      *    yp
      *  p樮y ⥬y
      *  y py  ᮧ ⥬ pp
      *  py 楯 pp⪨ pp ᯥ祭
   H p p室  ᪮ ᫮ Forth (p), ,  p-
,  ᮪p饭  Fourth (⢥p).  p   易
 ᫥y騬 䠪⮬  p p:
   p⥫ p p yp, 稢訩  py    몮    砫
1970- , p⠫   p   IBM-1130 -  p쥣 .
y祭 py  y ⮫쪮 ⥫묨,   ⠫
 "몮 設 ⢥p⮣ "     Fourth, ᫨   -
 1130 y᪠ ⨡y 䨪p.  p Fourth p-
p⨫  Forth - ᢮p p ᫮.
   "p py 몠" - ⠪ pyp ᢮ p樯 ᠬ p yp
 p᫮    py "Starting Forth", p, ,  諠  
1990 y  ⥫⢥ "  ⨪".
>===   OS/2 Clipboard 稫 ===

 MK>>      y⢮,  .
 MK>>     p ⮣    p. 
 MK>> p, .. p-pp (ᯥp) pp
 MK>>   ᠭ     p.
 DB> 祬 p?
 DB> ppp ⮨  p⥩ p権    p⠬.
    p⨢ - !  functional?  literate?  aspect-oriented? 8-)

 MK>>  ? LD A,B : ADD A,50 y y? :-/
 DB> p y ⮫쪮   .
    y! =)

 DB>  ,  ,  y,   p⢠ ,  p⢠
 DB> pp.
    y!
,  y ᯮp.  ᯮp, p..
      ᥩ p p.. , p  p祣 ⥪,
  yy.   y ⥡,  p - 魥襥 p⢮,
   -      p.
    , y   p, ⮣ ᬮp :)

 DB>>> y   뫮 p p  y襬 .
 MK>>      y᫮  pyᬮp :P
 DB>>>   : ⥪ pp ⮣ y p ->  p
 DB>>> p.
 MK>>     y.   樨 + ᠬ  pp.
 MK>>    .
 DB> y -  ⮪p ⥪.
 DB> y ⥡ y砥 - py :-/
 DB> p 
      - ᠬ p⮥ p襭,   쭮.. ,)
y -   p yp ⠡ ⥬,
py  䠩 ᫥ p樨 ⥪ y.
     - p (  ⠡栬).
⥫쭮 (p᪮) 業  ,  p
⠡  pᨨ  pᨨ ᮬ y .

 >>>>  p p  ⥪ _sys
 DB>>>     ⥪?
 MK>>      ⥪ ᫮, p  p.    p訫, 
 MK>>  y ,   _krnl,   _sys
 DB>    뢠,   p/p 
    祬y ? ;)  ,  ᠭ ~  ⥪⮢~,
  ᠭ  ⮬.  ᭮ ᫮  ⥪.

 DB>>>    ⨬ ᮣᥭ, ᫨ ᫠  y   
 DB>>> ᯮᮡ :)
 MK>>     H p!
 MK>>     , ᫠  p ⥪  p뢠 
 MK>> py. Hpp  ⥪ ᯨ᪠:    list { 346 567 2341 13 5
 MK>> 76 }   y, pp,   ᯨ᮪ list
 DB> 祬 ⠪?
 DB>  LDIR' !
     筮!  ᢠ -  ,  p,  py.
, y Coloss' yy p  ᢥp壨, ⮬y    
 ⠪ y⪨ pp,  p pp y py, 祬
 設  ;]   ᭨ 祫y  짮 p
p ᯨ᪮ y p᪨ ! H    ᨫ 
⠪y ᯮ짮 Coloss' -   y ;)

 DB>>>    ᨬ <  >, ..  p室  
 DB>>> 
 DB>>> p.
 MK>>      ᪮ ⠪ ;)
 MK>> ⯠:  /.
 DB>   ᯮy, y   p p p⥫ .
 DB> ⠪    ⯠
    p '?' - ᠬ py p.  易⥫쭮 y.

       if HL < 1245 ... ?  祬?
 y   ⢥ 롮p.. ⮨     p?

 DB>>> Hy  p樨 横᪮ ᤢ, p䬥᪮ p
 DB>>>    ᪮  y⮬ p. , 
 DB>>> 뢠 adc  sbc?
 MK>>     ADC  SBC
 DB>  pp 孨 ?
 DB> p pp
    A{  Lir ADC [HL]  HL++
          D SBC E }

     p ⮣ p NEG  NOT

    NEG HL  NOT A

 DB>>>  p:
 DB>>> /// rra:rra:rra (᫨   ⠭,  y p -
 DB>>> .)
 DB>>> *** rla:rla:rla (筮)
    p  :]

 DB>>> <<< rlca:rlca:rlca
 MK>>      p ⮣  y. p  .
 MK>>   ⥪.
 DB>   !   y   ᠬ  p樨!!!
    , !  >>  <<  -  yy ?

 DB>>>  쪮 祬?;))
 DB>>>  /4 srl a:srl a (筮) /-4 sra a:sra a
 DB>>> (py, ᫨ ⠪    ⮯) +=b adc a,b
 DB>>> -=b
 DB>>> sbc a,b 筮  16-pp來 pp.
 MK>>     Hy,  ,  .    p  y =]
 DB>  p
 DB> -⠪: p    !
     p Z80? :)

 DB>>> ## p p ( ᮦ, 祣 y  
 DB>>> py
 DB>>> ;*))
 MK>>     p.
 DB>   !
     ⠪   p  ! %)

 DB>>>  ⥪ hl 易⥫쭮 y p뢠   ⥪ 
 DB>>> inc h?
 MK>>     HL{ var  H++  => var }
 DB>  ...   p⠥? var -  祢 ᫮?
    -  :]    y砥 - 

            var    \\  ld hl,(var)
            H++    \\  inc h
            => var \\  ld (var),hl

 DB> p, 쬥  :)))))
     p ᨫ, 筮 ;)

 MK>>     0  ⥪ A - ⮯y xor a.
 DB>   p p᢮ ,  ﭨ  䫠?
     y  ⨬ pᮬ..  p pᨨ ⠪:

    0         - xor a
    00  #0   - ld a,0

     p y?

 MK>> ~\\~ (~=0~) -  p p.  y, . . or a
 MK>>      REG++ REG--
 DB> y =0,   \\
    ?0
    Hy  =0 , p!

 MK>>             ? N  -   CP.
 MK>>             = N  -  p.
 MK>>             < N  -  .
 MK>             >> = N -   p.
 DB>  ? -     ᫥ 樨!
    ! p뢠 让 ᥪp! H______H____ !!

 DB>>> nc{
 DB>>>  ...
 DB>>> }
 DB>>> else{
 DB>>>  ...
 DB>>> }
 MK>>         ifNC    then .. ;
 MK>>         ifZ     then ..
 MK>>         if A<B  then .. else .. ;
 MK>         if A>> =B then .. ;
 DB>  y  p :)
      :]  p᭮ p p.
H  y  y⠭??


             y,   Oleg N. Cher  (aka  Vir ExCite)

    Windows 3.1  yp ᠬ ᥡ  DOS.
... 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)

