 Netmail (2:464/86.62)  NETMAIL 
 Msg  : 75 of 83                            Uns Pvt Loc
 From : Olegka Cher                         2:464/86.62     08  02  20:44:35
 To   : Dima Bystrov                        2:5029/9.33     09  02  17:18:20
 Subj :

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


            p, p!

    宦 ~      p~ -  
 쬠 ;]    p =]

 MK>> H᪨y: HL ZX Forth, FIG Forth, ShortCut Forth, Forth 128,
 MK>> Forth 83.   y  拉 ;)  p⮢ - 쬠 y, 
 MK>> ⥡    ;]
    ShortCut Forth -  ᮡ⢥,  y  p ;]
p  p ⠭p⨪/稪.  ᢥ 易 p
ppy ᢮  p  , ⮡ p p⠫
᪮쪮 .. H ᠬ  pp p  ᨬy
 3   祫. py񬪮  祫- ᬥ⢮p
  p  ᮢp묨 p. y砥 py 
py  y.    /᪠..
    Hᠭ p-pp⮬ ᢮ p-⥬  ᠬ  -
筮 p  p-py p⨪.

 DB>           ZX-FORTH 1.1 (C) 1982
 DB>           ARTIC COMPUTING LTD.
 DB>           All rights reserved.

 MK>> Gluk Service, pp - py .
 DB> , ⨯,    ;)
      p. - !

 DB> (c) 27.2.1999 Mr.Gluk & Reanimator
 DB> (c) 24.2.2001 Alone Coder

 MK>>     , ,  襬 (pp᪮)   ~p
 MK>> -08~  p p  y p:   .
 MK>>  py #80.
 DB>   ⠣ y   ,   y :)
 MK>>     p p MZ80 - ⨯ ⥬
 MK>> p.  STS  ,  ⮦ p쭠 . 
 MK>> y NMI  뢠 -  ⠬ ,  : ,
 MK>> ⫠, py, py =]
 DB>   ⮦  ⠪ p:
 DB> ⠫p  
 DB> STS  
 DB> p  /⠭ ﭨ p  p孥
 DB>   ..
    :)   ⠪   '誮: p y   
#AF  #BF  py #22AB, ᫥ 祣  뫮 ⠭p묨
Plot/Draw/Circle pᮢ   p - 256x192.
    ⮬ ⮦ 짮 -  室 ⥪ Coloss'  
 48k, p諮  y . H祣, p쭮 뫮 -
p  p孨 p, p稥  -  p, y᮪ p殢
   ᫥p, p DI,   py  
y ⥪⮬  p..  p 뫨 =]

 DB>>> p ... p  ?
 MK>>       :)   Micro. ﭨ  zx.zp.ua
 DB> ,  ⠪y, y  p p  :)
 DB> 쪮 ⠬ yp   ᠭ p,    =8-]
 DB>  y ⥡  p ?
    H,  y :(

 MK>>     p, y⨬,  py p楤yp Sprite. 񫪠
 MK>> 让  뫪 ( p⥪, 뤥, pp, py
 MK>> 梥⮬.  p⮬.),  y砥 p⮥ 窮
 MK>> -pp.  -⢥ p楤yp:

 MK>>      쪮 誮 -  yᯥ.   뢠, 
 MK>>  쭮 ᫮   p   pﬨ pᯥ⮪,
 MK>> y祩 p楤yp, p ⭮ ,  祭 p 
 MK>> ,  ⫨筮 py  ⤥쭮,  py 
 MK>> ~~,  y  ᮧ ( ⭮) 宫y 
 MK>> p.     p⥪⮢ pp  ᯫp
 MK>> ppy,  ⮬      ppp. ᥬ
 MK>> y p᭠  y砥:  梥⮬ y ⫠
 MK>> p楤yp, py -   ⮢, pp ~~
 MK>> pp ~ᢥpy ~..       p
 MK>> (⮡   ᬮp,  砫,   y p)
 MK>> 祭  祭 ᫮.  -  y p. H
 MK>> p  ᮫ p,  ᮫⭮ 祣 
 MK>>  -  ᨭ⠪ 몠  p. 
 MK>>  ⮫쪮 pp  窠.
 DB> ,  y  宦 
 DB> H  py ⥫쭮 p!!!
 DB> p p  y,     ⥪ ( __ ⥪!)
 DB>  p楤yp (  砫 ⪨:   p, ⮬y
 DB>  p  ᥣ y p!),  뢮  p. p
 DB> ypp 롨p,  p室  p楤yp!   ᠬ , p
 DB> ⮬   p   ᥬy ⥪y,   ⮫쪮 
 DB> 쪮 p楤yp!
      筮 ᯮp y,  ᮢp襭   
⭮襭  .  p  p뢠  IDE.  
⠪ IDE  p  ⥪y pp ᤥ  ᪨
, ᮧ ᯨ᪨   p楤yp  p..
    ,   ⢮y p, y p  MultiEdit'
(ME).   y Condense Display  p  p  
p 稭騥  ᠬ 砫 p, p 騥 y ( 
p  ⥪ p楤yp  y)  뢮.  py
    p楤yp  p   ᠬ p楤yp.
p p室  yy p楤ypy,  enter  y 室
⠬,  ⥫.   ⮬ pp     y
饩,  ᠬ   ᢮ p p (祭 宦 
 )  ⫠稪. H      pp襣
 pp.

 DB>     p室  訥 pp, 
 DB> py , ᪫ p楤yp, p y᪨  
 DB>   pyy  ..?
    p室 :)    48k   Tasword,   .

 DB>   ⢮ p⥪⮢ pp  y   y!
    Hy 祬y ?  y .  y ⥬ ,
让,  p py p ..     ᠭ
⥪⮢ pp,  , p ;]  H HText   
   - y 쭮 殮  p  ᠭ p쭮
pp..  ⮬y   p   p, ..  :[
    , ACEdit  ᯮ짮  ⢥ 譥 pp
 ? ..    뢠 p? Tasword -  y -
   ⮬y,  ⠬  CS+SS+E   SS+A  뫮 室
 ᨪ,   뫮 ﭮ  p ⥪   -..
    -   p pp  ZX-ASM' 蠫,     楫
室..

 DB>  쭥襥 (p p뫮  p祥) p  y...
    ,  p , - p. H ⥭ᨢ yy襭,
⠪ ᪠, p⭮ ;)   - p  p. ᬮp  ⥪
 窨 p y p権: and, or, xor, not, norm. 
  ~~, ⠥ p:  p楤yp __ , p
  ⥪, y稬 p⭮ !  y᮪ ⥪ __ ,
 ,  py  py   py  py,  __..
 y 魥訥 ,   yy. py p -
p,  ᥣ ᫮.

 MK>>      ,   ᭮ 室 , ⠢塞 
 MK>> py⮬,  ᣥpp ᮡ⢥ p p-⥬ (
 MK>>  Free BSD).
 DB>  ? :)
 DB>  p樯,  ⮦  ᬥ  - , , ⠪p?
 DB> ;)
    Hy 祬y  ~;)~? Hyp ⠪p!
H ⮫쪮 짮⥫  ⮣  宫,  p -
y    p ᬠ  ⥬, ⮡ 
 ⥬ p  ᢮ p 楫,
..  - ⥬  p⮩ p⥪yp. H
  ᠬ ᥡ ᫮. p  Coloss - p. H .

 >>>>     ⠪  ⢮   ? =8)
 DB>>>    ⥪ y   .
 MK>>       p!
 MK>>         @subr beep $#CD $$#3B5 @end
 DB>  ,  p, ? ;)
    ? :)

 DB>    p⠥  80x86? ;))))
     p  .. :-)    ⮫쪮  .

    #ifZ80
    ...
    #endif

    ⮬y  y  ⠢  ᮢ ppp ⠪y 
  pyᬮp  몥  p   pp.

 MK>> y Prolog, Forth  OCaml -    ᠬ  p.
 DB> ᨡ,  ᯮ p p
 DB> ,     y,   ,  y ⠪ 몮 
 DB> 䠭 %-]
    %)  Hy,   䠭 ᪮ ppp,  
쭮 p᭮,  ⮤,  y᫮  p  .

 MK>>     a) pyy y p訩, ᮪䥪⨢ ;
 MK>>     b) yy騥   py;
 MK>>     c) Hy , 騥  让 __.  
 MK>> !
 MK>>     d)   ᯥ稢  p⬮  筮
 MK>> p (   yp y!  ⥫쭮 來  y⨢
 MK>> ⭮. ⮬y    -pyy,  ⮣ p yy
 MK>> 祭 ⠡묨,   ).
 DB>  ᪠  ᨪ  ⮦  ᮡ ⠡ :-/
    H ᪠ -  ᮣᥭ, ᬮp  .
 ppp  稢 ᢮ ⨫,  ᫨  p .. :-/

 DB>   ᯥ  p -  ᮡ!
    ᥭ!
H y 쭮  y  pᨢ ;)  p祬,  y 稢
pp ⠬ ,   pp. Haskell - p  魠 y.
,  ML (Modelling Languages) 쭮  p .

 DB>   p樯,  ⨬ y⠬   祣 p⨢ ;)
      y誨 :-)

 MK>> proc procedure
 MK>> subr routine
 MK>> @proc inlproc
 MK>> @subr inlsubr
 DB> ^^^^^^^^^^^^^^^^^^^^p  4 y ᫮, y, p ;)
    proc -  設ᨬ _p楤yp_,
    subr - ᨬ _pp_,
    @    - 箪 ~ p~, .. inline

     p ~祬 yp?~,  ᢮p ~py~ ⢨..
 p楤yp   ⮣, ⮡ ᮮ py  ⨯
p  p楤yp, ᯮᮡ p pp   ᫥.
    ᥭ, y  py..   y ᤥ 
(-⠪  ᢮y,   -⠪ ᢮. , p 
  y ⢮ ᪮ ᯮᮡ  pp): ᪮y
pp  y ,  y (y yy, ,
py  ⥪ pp  y p, ⠪, pp,
  ⨬ 0 (XOR A)  *2 (ADD HL,HL)),  p,
室 뢠  p ᮮ⢥y.  , ᫨
 ⮨  p  砥 p?  y  '  "

    proc coma                - 筮 .
    proc 'coma of control '  - y᫮񭭮 .

᫥ ᥣ   _p뢠_ ᪮,  p⨢
p⥫ pp.   y⨬ pp  ᠬ 
yy  ⥪⠬:

    proc suxx (HL DE A IX)

    p 맮:  suxx (1 2 3 4) ᪮ y   pp樨
pp ᮮ⢥y騩   ⥪:

    HL=1 DE=2 A=3 IX=4  suxx   -   .
     y,  y y? , pᬮp?   y砥
p楤yp  pp  y 뢠  ⪮:

    :Name

    , ᫨ p p Name,  ᣥppy ᮮ. 맮 CALL.

    :'Complex labelka'
    :"Complex label"    \\  y?

    H  y, ⮡ ⥫ pp -⠪ ⫨砫  ⥫
⪨,   ⠪     .  , ⮡  몥   뫮 
p   ppᨬ  ᨬ.  ⤠ ᥡ , 
⮬,   pp p蠥,  y ,  -⠪.
     ⥡ ⥪y騩  py :


    I   immediate  - 䫠: p ᫮  ppp.
    P1 \
    P2 /  p: , , ᫮p  p.
    A   addr corr  - 䫠: ᫥y  ppp p p.
    P   parameters - 䫠:   y p pp.
    @   inline     - p  ~pp稢~  py.
    C1 \
    C2 /  p: pp, p楤yp, y  p.

    Hy, ᮢy 祣-!  ⭮   y樮쭮.
 y, 室  ⮣ py, p?
    H ⥫  ⠪: ~INL IMM sub name (...) ~
    H⪨:

    proc subr fn script       \\ .᫮
    @proc @subr @fn           \\  py
    proc p() subr s() fn f()  \\  pp

    H imediate 祣 ⮫  y py :-((

 MK>> var variable
 DB> ^^^^^^^^^^^^^^^^^祬 ⠪ y?
 DB> 祬y 
 DB> variable:dw 12345
 DB> 
 DB> variable=15360
 DB> ?
    ⮬y , ,   ᠫ, -  .  ᫥, .
   ᫮-⥫  ᫮-뢠 -  ⠪  p
 ⨯,  ⮫쪮 ᫮  ,   ᨢ, ᯨ᪨, ⥪,
ꥪ, ⢠, ꥤ, pyyp   ,  .
 ᯮᮡ :

                :lives  $ 1     \\ 
                :bombs $$ 1234  \\ ᫮
:
        asm{
                lives:db 1
                bombs:dw 1234
           }
,  y   :)

 MK>> : label
 DB> y砥,  祢 ᫮ "稥" -⠪ ⠫ 
 DB>  ⢥ :)
    H,  ⠪ ,   py ᫮.   ⮣,   ?

 DB> ⮬y   蠥 ᬥ p冷   ⮪!
    蠥!  ᫮ p  饩 .
   p⮢, ⮣ ~:~  y pp,
 ⮣  y᪠    y砥!

 MK>>     p : ᭠砫  ᫮-p⥫, ⮬ y
 MK>> ᫮, py  ᢮⢮.
 MK>>      쭥襬 p饭  ᫮ ᣥppy:

 MK>>     procedure                       CD NN NN
 MK>>     inlsubr                         NN NN NN NN NN  ; (⠢
 MK>> ⥫)
 DB> ⮣  p.   : "MACRO"
    誮   ⭮! y "@" - ~~, ~ p~.
y⨢ ⭮!  p襭 p - 窠.
    ,  ᮮ⢥y ⥪  y ~p뢠~
 pyp p - ppp y y, p,
y, ᫮  yy. y⨬, , py᪨ 䨪p.

 MK>>      ⮫쪮 y ᪠,  p 室騩 ⮪ 
 MK>> ⠪  (᭠砫 ᫮ 楯p, ⮬ ᫮-p) p
 MK>> p  p.
 DB>  祬y  , ⮡ 室   ⥪⮢ ?
 DB>  ⥪⮢  p    p浪 :)
     ⥪⮢ y ᪮p y.
      室  祬?

 MK>> p  p窨. ᫨  祫  y pp,  ⢮
 MK>> ⮤ p猪 p襫  y   y,   
 MK>> 祭  窨 p p쭮  .
 DB>   筥 ppp  ᫮ 몠.
 DB> ᥣ p y ᨪ, ᪠  ᥬp
 DB>  祣  ⨬  
 DB>  ⠬ pᢠ ᫥.
    ..
 y    ᢮ ⢮    py - pp!
ᥣ p y ,    - 楫p,   yp.
 祣  ⨬   :(
      C--  y pp⮢ -  ᫥ p.   ᯥ.. :-P

    饬,  !  y ⮡ pᢠ,   p⨢!
H    yy饩   쭮 p. ⠪:

    HL=11111     \\   py!
    HL=2+2       \\ py.. y ⠪:
    HL{2+2}

 DB> p, ,   ⥡ ⮬ y, y騥 ⢮ , 
 DB> ᯮ p訬 ᫮,  ⠪ ⮢p饩 : p - 
 DB> "稥-p",  "-",  窨  ⮩  
 DB>  p,  pp p権 and/or  p p  -
 DB>  y   y⥫ﬨ p ᯠ  p - 
 DB> ᮫⭮ ⠭p⭮ 諥 (8 p  -   ;) p
 DB>  -  -奬  .. ;)
    , y᪠ y ᠬ ⥪ y -   ᥡ,
 p p ⮬,  ⮫쪮 ! ;)

 MK>>      楫   p议,  p ⢮  
 MK>> ᫥ . ,  ⠪.
 DB>  ,   py ;)
    H   y  py稫? :(

 MK>>       !   ᭮⥫쭮! ;-P
 MK>>  p⠢ ᥡ,   ᠫ p  y    
 MK>> 맢 :-P
 DB>      ᠫ   p  y :b
    Hy? 8-)  Hy p - y ?

 MK>>     ,   py, 室  Coloss'  -p p
 MK>> , 祬 筮  ᬥ.
 DB>  ᫥  ᬥ?     ?
    Hy,  pp  pᬥ .. pp :)))

 DB>>> ᭮뢠:
 DB>>> p    - p⥫ y y樥  
 DB>>> p
 MK>>        -   p⥫ ᥣ.   p. 8-)
 DB>    譨 p ;(
 DB> ⮬y  ⥡ ⮣ p p y:
 DB>  ": metka command"
 DB> py  (!) 譨 p.
    ,   ":  metka  command" -  p! (!)  8-)
 ⠪: ":metka command".   p 뫮: "^metka command"
,  祣 y  ᨬ  ! % ^ _ \ "
     p ⮬  , p y  ⮫쪮 p,
y 來, 筠  ..  ⮡ 뫠 ⭠   y. :)

 DB>>> (⮡  뫮 ᪮).  ⮬ y砥 p p 
 DB>>> p pp.    p pp
 DB>>> y樨, : 窠, colon, semicolon. 窠 筠, ⥬
 DB>>>      p   ;)))
 MK>>      易⥫쭮!
    H    窠.   묨.   :)

 MK>>     FileToReading Src
 MK>>     FileToWriting Dest

 MK>>     Src Open  Dest Create

 MK>>     repeat
 MK>>         Src ReadByte  Dest WriteByte
 DB>                       ^^^^^^^ =8-[      ]
 DB> y  p!!!
 DB>  p p   yy? ;)))
      來!

    FileToReading.Src FileToWriting.Dest
                  Src.Open          Dest.Create
        repeat    Src.ReadByte      Dest.WriteByte
                                    Dest.EOF
        until

 MK>>     p,    y 뢠 _p楤ypy_, ᫨ pp
 MK>>   _p_ ?  ⠪:

 MK>>     LD DE,124
 MK>>     LD HL,5683
 MK>>     JP PROCA

 MK>>     LD DE,345
 MK>>     LD HL,8633

 MK>> PROCA:
 DB>  祬 p楤yp pp?
    Hy, p, p堫! 8)

 DB>  ᫨ y... 祬  ? y᪠  y  pp.
    Hy, ᭮,   pp!
   ⮬,   堭 - pp/⥪ -
  ⠪ pp,  p    뢠 ,
 y  ⮬. ᮫⭮  室.

 DB>>> ,    p 塞 ⠭ ⨯
 DB>>> "32*24+SCREEN-1"?
 MK>>     32*24+SCREEN-1 => Const POS
 MK>> :
 MK>>     32*24+SCREEN-- => Const POS

 MK>>     , 筮, p: Const POS = 32*24+SCREEN-1;
 MK>> H ⠪ ? =)
 DB> 
 DB>    ᫮ Const :)
 DB> y      ᬥ
    H,   ᬥ! ;)   - ᥬp!
  ᬥ - ⮫쪮  ⥪ alasm{} ;)
    H py  ,   ⠭,   p,
塞   ᯮ.

 MK>>     H  y  ⢮ ,  p ⮬, ⮡ p
 MK>> 쪨 ?   . H ᪠ p().
 DB> 祬  c⥬ ᫮, ⥬ p  ;)
    ,   y  y襭 p! ;)

 DB>  p p  p䮣p...
    H襥 ᮯp⨢  p樨 py!


             y,   Oleg N. Cher  (aka  Vir ExCite)

      p y p  p y稭?
      p: y p 뢠  yp맥 ᮢ.
... 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)

