  ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
  ±±±±±±±±±±±±± Š   ª   à   ¡ ® â   â ì   á   H E L P ±±±±±±±±±±±±±±±±±
  ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

  …á«¨ ‚ë à ¡®â ¥â¥ á ä®àâ®¬: ¯®¤¢¥¤¨â¥ ªãàá®à ª ­ã¦­®¬ã ¬¥áâã
                              ¨ ­ ¦¬¨â¥ <ctrl>+F1
  …á«¨ ‚ë ã¦¥ ¢®è«¨ ¢ HELP:   ¯®¤¢¥¤¨â¥ ªãàá®à ª ­ã¦­®© áâà®ª¥
                              ¨ ­ ¦¬¨â¥ <Enter>.
                              ˆá¯®«ì§ã©â¥ ª« ¢¨è¨ <PageUp> ¨
                              <PageDown> ¤«ï «¨áâ ­¨ï.

  �¨¦¥ ¯à¨¢¥¤¥­ë â¥à¬¨­ë, ãá«®¢­ë¥ ®¡®§­ ç¥­¨ï, áâàãªâãà  ä®àâ-
  ®¯à¥¤¥«¥­¨ï.

  ’¥¬ â¨ç¥áª¨© ¨­¤¥ªá á®¤¥à¦¨â ªà âª®¥ ®¯¨á ­¨¥ á«®¢ ä®àâ ,
  á à á¯®«®¦¥­¨¥¬ ¯® â¥¬ ¬.

                 ’ ¥ à ¬ ¨ ­ ë :
  Š®¤®¢ë© á¥£¬¥­â - á¥£¬¥­â, ¢ ª®â®à®¬ åà ­¨âáï áª®¬¯¨«¨à®¢ ­­ ï
                    ¯à®£à ¬¬ .
  C¥£¬¥­â ¨¬¥­    - á¥£¬¥­â, ¢ ª®â®à®¬ åà ­ïâáï ¨¬¥­  áª®¬¯¨«¨à®-
                    ¢ ­­ëå á«®¢; ¢ ¯à¨ª« ¤­®© ¯à®£à ¬¬¥ ¬®¦¥â ®â-
                    áãâáâ¢®¢ âì.
  �ãª®ïâª         - ç¨á«®, ¯® ª®â®à®¬ã „Ž‘ ¨¤¥­â¨ä¨æ¨àã¥â ä ©«,
                    handle ¯®  ­£«¨©áª¨.
  Câ¥ª®¢ë© á¥£¬¥­â- á¥£¬¥­â, ¢ ª®â®à®¬ ­ å®¤ïâáï áâ¥ª ¤ ­­ëå ¨ áâ¥ª
                    ¢®§¢à â®¢.







         “ c « o ¢ ­ ë e   o ¡ o § ­ a ç e ­ ¨ ï :
  83    c«o¢o ¨§ o¡ï§aâe«ì­o£o ­a¡opa câa­¤apâa ”opâ-83;
  83+   c«o¢o ¨§ pacè¨pe­­o£o ­a¡opa câa­¤apâa ”opâ-83;
  83P   c«o¢o pe£«a¬e­â¨po¢a­­o£o y¯oâpe¡«e­¨ï;
  83H   c«o¢o ­epe£«a¬e­â¨po¢a­­o£o y¯oâpe¡«e­¨ï;
  83�   c«o¢o ¨§ íªc¯ep¨¬e­âa«ì­o£o ­a¡opa;
  H     c«o¢o ­e¬e¤«e­­o£o ¨c¯o«­e­¨ï;
  K     c«o¢o ¬o¦eâ ¡ëâì ¨c¯o«ì§o¢a­o âo«ìªo ¢o ¢pe¬ï ªo¬¯¨«ïæ¨¨;
  n     16-pa§pï¤­oe ç¨c«o co §­aªo¬;
  u     16-pa§pï¤­oe ç¨c«o ¡e§ §­aªa;
  a     a¤pec ¢ ¯a¬ïâ¨, az - a¤à¥á áâà®ª¨ ASCIIZ (c ¡ ©â®¬ 0 ¢ ª®­æ¥).
  #     cçeâç¨ª ç¨c«a ¡a©â;
  ?     «o£¨çecª¨© (¡y«e¢cª¨©) ä«a¦oª;
  d     32-pa§pï¤­oe ç¨c«o co §­aªo¬;
  ud    32-pa§pï¤­oe ç¨c«o ¡e§ §­aªa;
  b     8-pa§pï¤­oe §­açe­¨e (¡a©â);
  c     ªo¤ c¨¬¢o«a.


                    �€‘��…„…‹…�ˆ… �€ŒŸ’ˆ


    CS@:0 .. CS@:HERE .. CS@:TIB .. CS@:USER .. CS@:FIRST .. CS@:LIMIT
    SS@:0 .. SS@:SP@ .. SS@:S0 .. SS@:RP@ .. SS@:R0 .. SS@:(S-DP) ..
    (H-SEG):0 .. (H-SEG):H-HERE
Null
              ->                     H
    Hy«e¢oe c«o¢o. ˆ¬ï á«®¢  - áâà®ª  á® áç¥âç¨ª®¬ ¤«¨­ë 1;
    ¥¤¨­áâ¢¥­­ë© á¨¬¢®« ¨¬¥­¨ ¨¬¥¥â ª®¤ 0. ‚ë¤ ¥âáï á«®¢®¬
    "WORD" ¯p¨ ¨cçep¯a­¨¨ ¢å®¤­®£® ¯®â®ª  (¢ ª®­æ¥ áâà®ª¨
    ¨«¨ íªpa­a). ˆc¯o«­e­¨e á®áâ®¨â ¢ ¢ëå®¤¥ ¨§ á«®¢ 
    "INTERPRET", ¯oc«e çe£o o¡ëç­o áç¨âë¢ ¥âáï ®ç¥à¥¤­ ï
    câpoªa ¨ c­o¢a §a¯ycªaeâcï c«o¢o "INTERPRET".
!             n  a  ->                 83
    ‡­ ç¥­¨¥ n coxpa­ïeâcï ¯o a¤pecy a.
!CSP          ->
    �o¬ecâ¨âì yªa§aâe«ì câeªa ¢ ¯epe¬e­­yî "CSP".
    ˆc¯o«ì§yeâcï ¤«ï pa§¬eâª¨ câeªa.
!CSR          ->
    ‡ ¤ âì à §¬¥àë ªãàá®à  ¢ á®®â¢¥âáâ¢¨¨ á â¥ªãé¨¬ à¥¦¨¬®¬ íªà ­ .
!L      n seg a   ->
    ‡­açe­¨e n §a¯¨cë¢aeâcï ¢ á«®¢® ¯o a¤pecy a ¢ á¥£¬¥­â¥ seg.
"             ->  a                  H
    Ko¬¯-¨ï:  ->
    C«o¢apì:  ...  (")  câpoªa co cçeâç¨ªo¬  ...
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              " ccc"
    �p¨ ªo¬¯¨«ïæ¨¨ ¨§ «¨âep 'ccc' äop¬¨pyeâcï câpoªa co
    cçeâç¨ªo¬. �p¨ ¨c¯o«­e­¨¨ ee a¤pec ¡y¤eâ ¯o¬eée­ ­a câeª.
    Ec«¨ c«o¢o '"' ¨c¯o«ì§yeâcï ¢ pe¦¨¬e ¨c¯o«­e­¨ï, âo
    câpoªa co cçeâç¨ªo¬ äop¬¨pyeâcï oâ a¤peca "HERE" ¨ ee
    a¤pec ocâaeâcï ­a câeªe.
",            a  ->
    Ko¬¯¨«¨pyeâcï câpoªa co cçeâç¨ªo¬, §a¤a­­aï a¤peco¬ a.
    Heo¡xo¤¨¬aï ¯a¬ïâì oâ¢o¤¨âcï ¯o "ALLOT" ¨ ¢ ­ee
    ¯o¬eéaeâcï câpoªa co cçeâç¨ªo¬.
#             ud1  ->  ud2             83
    Ocâaâoª oâ ¤e«e­¨ï ud1 ­a §­açe­¨e ¯epe¬e­­o© "BASE"
    ¯epe¢o¤¨âcï ¢ «¨âepy ¨ ¤o¡a¢«ïeâcï ª ¢ëxo¤­o© câpoªe ¢
    câopo­y ¬e­ìè¨x a¤peco¢ ¯a¬ïâ¨. ud2 ï¢«ïeâcï ocâaâªo¬ ¨
    coxpa­ïeâcï ¤«ï ¤a«ì­e©èe© o¡pa¡oâª¨. O¡ëç­o ¨c¯o«ì§yeâ-
    cï ¬e¦¤y c«o¢a¬¨ "<#" ¨ "#>".

#>            ud  ->  a  #             83
    ‡a¢epèaeâ ¯peo¡pa§o¢a­¨e ç¨c«a ¢ ¯pe¤câa¢«ïîéyî e£o
    câpoªy. a - a¤pec pe§y«ìâ¨pyîée© câpoª¨, # - ç¨c«o «¨âep
    íâo© câpoª¨.
#CSR      (QUAN-¯¥à¥¬¥­­ ï)
    � §¬¥àë ªãàá®à .
#LASTLN   (¯¥à¥¬¥­­ ï)
    H®¬¥à ¯®á«¥¤­¥© áâà®ª¨ ¢ â¥ªãé¥¬ ¢¨¤¥®à¥¦¨¬¥.
#S            ud  ->  0  0             83
    ud ¯peo¡pa§yeâcï ¢ ¢ëxo¤­yî câpoªy, ¯pe¤câa¢«ïîéyî ç¨c«o
    ¯yâe¬ ¤o¡a¢«e­¨ï pe§y«ìâ¨pyîé¨x «¨âep ¤o âex ¯op, ¯oªa
    çacâ­oe (c¬. "#") ­e o¡paâ¨âcï ¢ ­o«ì. O¡ëç­o
    ¨c¯o«ì§yeâcï ¬e¦¤y "<#" ¨ "#>".
#THREADS      -> n
    Š®­áâ ­â , ãáâ ­ ¢«¨¢ ¥¬ ï ¯à¨ æ¥«¥¢®© ª®¬¯¨«ïæ¨¨, § ¤ ¥â
    ª®«¨ç¥áâ¢® á¯¨áª®¢ ¤«ï ¯®¨áª  á«®¢ ¢ á«®¢ à¥. ‘¯¨á®ª, ¢ ª®â®à®¬
    ¤®«¦­® ­ å®¤¨âìáï ª ¦¤®¥ ª®­ªà¥â­®¥ á«®¢®, ®¯à¥¤¥«ï¥âáï äã­ªæ¨¥©
    HASH.
#TIB          ->  a                    83
    �epe¬e­­aï, co¤ep¦aéaï ç¨c«o ¡a©âo¢ ¢ âeªcâo¢o¬ ¢xo¤­o¬
    ¡yäepe.
'             ->  a                    83
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              ' <¨¬ï>
    a - a¤pec ªo¬¯¨«ïæ¨¨ c«o¢a <¨¬ï>.
(             ->                     H,83
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              ( ccc)
    ‹¨âepë "ccc" pacc¬aâp¨¢aîâcï ªaª ªo¬¬e­âap¨©.
(")           ->  a
    C«o¢apì:  (")  câpoªa co cçeâç¨ªo¬
    �o¬eéaeâ ­a câeª a¤pec c«e¤yîée© §a '(")' câpoª¨ co
    cçeâç¨ªo¬, ¯po¤¢¨£aï yªa§aâe«ì ¨­âep¯peâaæ¨¨.
    Ko¬¯¨«¨pyeâcï c«o¢o¬ '"'.
(+LOOP)       n  ->
    C«o¢apì:  (+LOOP)  yªa§aâe«ì ¯epexo¤a
    “¢e«¨ç¨¢aeâ cçeâç¨ª æ¨ª«a ­a n ¨ ¯po¢epïeâ yc«o¢¨e
    §a¢epèe­¨ï æ¨ª«a. Ec«¨ æ¨ª« ­e oªo­çe­, âo y¯pa¢«e­¨e
    ¯epe¤aeâcï ¯o yªa§aâe«î ¯epexo¤a. Ko¬¯¨«¨pyeâcï c«o¢o¬
    "+LOOP".
(.")          ->
    C«o¢apì:  (.")  câpoªa co cçeâç¨ªo¬
    �eçaâaeâcï câpoªa co cçeâç¨ªo¬. “ªa§aâe«ì ¨­âep¯peâaæ¨¨
    ¯po¤¢¨£aeâcï ­a ¤«¨­y câpoª¨. Ko¬¯¨«¨pyeâcï c«o¢o¬ '."'.
(;CODE)       ->
    C«o¢apì:  çacâì-CREATE (;CODE) çacâì-DOES>
    Ko¬¯¨«¨pyeâcï c«o¢a¬¨ "DOES>" ¨ ";CODE". B ¯o«e ªo¤a
    o¯pe¤e«e­¨ï, ï¢«ïîée£ocï ¯oc«e¤­¨¬ ¢ c¯¨cªe ªo¬¯¨«ïæ¨¨,
    §a­oc¨âcï a¤pec c«e¤yîée© §a "(;CODE)" ¯po£pa¬¬ë. �oc«e
    çe£o ¯po¨cxo¤¨â ¢ëxo¤ ¨§ c«o¢a, ¢ ªoâopo¬ ¢câpeâ¨«ocì
    c«o¢o "(;CODE)".
(?DO)         n1  n2  ->
    C«o¢apì:  (?DO)  yªa§aâe«ì ¯epexo¤a
    �o¬eéaeâ ¯apa¬eâpë y¯pa¢«e­¨ï æ¨ª«o¬ ­a câeª ¢o§¢paâo¢ ¨
    ­aç¨­aeâ ¢ë¯o«­e­¨e æ¨ª«a. Ec«¨ ¯apa¬eâpë n1 ¨ n2
    co¢¯a¤aîâ, âo æ¨ª« ­e ¨c¯o«­ïeâcï ¨ y¯pa¢«e­¨e ¯epe¤aeâ-
    cï ¯o yªa§aâe«î ¯epexo¤a. Ko¬¯¨«¨pyeâcï c«o¢o¬ "?DO".
(?KEY)        ->  c  -1
              ->  0
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "?KEY".
(?TERMINAL)   ->  ?
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "?TERMINAL".
(ABORT")      ?  ->
    C«o¢apì:  (ABORT")  câpoªa co cçeâç¨ªo¬
    Ko¬¯¨«¨pyeâcï c«o¢o¬ 'ABORT"' ¨ pea«¨§yeâ ¢ë¤açy coo¡-
    ée­¨© o¡ oè¨¡ªe. �p¨ §­açe­¨¨ ä«a£a "¨câ¨­a" ¯eçaâaeâcï
    câpoªa co cçeâç¨ªo¬ ¨ ¢ë¯o«­ïeâcï c«o¢o "ABORT".
(c) 1990
    �â  ¯à®£à ¬¬  ¢§ïâ  ¢ ��Š ”Ž�’-ˆ�”Ž ¯®á«¥ 1989 £®¤ .
(CR)          ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "CR".
(DO)          n1  n2  ->
    C«o¢apì:  (DO)  yªa§aâe«ì ¯epexo¤a
    �o¬eéaeâ ¯apa¬eâpë y¯pa¢«e­¨ï æ¨ª«o¬ ­a câeª ¢o§¢paâo¢ ¨
    ­aç¨­aeâ ¢ë¯o«­e­¨e æ¨ª«a. Ko¬¯¨«¨pyeâcï c«o¢o¬ "DO".
(EMIT)        c  ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "EMIT".
(FCB)         -> a
    €¤à¥á FCB ä ©« , ¨¬ï ª®â®à®£® ï¢«ï¥âáï ¯¥à¢ë¬ ¯ à ¬¥âà®¬ ¢ë§®¢ .
(FIND)        -1  a1  a2 ... an  a  ->  a'  b
         ¨«¨  -1  a1  a2 ... an  a  ->  0
    �p¨¬¨â¨¢, ¢ë§ë¢ae¬ë© "FIND" ¤«ï ¯o¨cªa c«o¢a, ¨¬ï ªoâo-
    po£o §a¤a­o câpoªo© co cçeâç¨ªo¬ ¯o a¤pecy a, ¢ c¯¨cªax
    c«o¢ a1 ... an. Ec«¨ c«o¢o ­a©¤e­o, ¢o§¢paéaeâcï a¤pec
    ¯o«ï ªo¤a a' ¨ ¡a©â ¤«¨­ë b. B ¯poâ¨¢­o¬ c«yçae
    ¢o§¢paéaeâcï ­o«ì.
(FORGET)    a  ->
    “¤ «¨âì ¨§ ä®àâ-á¨áâ¥¬ë á«®¢® á  ¤à¥á®¬ a ¨ ¢á¥ â¥,
    çâ® à á¯®«®¦¥­ë ¯®á«¥ ­¥£®. ‘¬. FORGET.
(LINE)        u1  u2  ->  a  64
    Bë¤aeâ a¤pec a ¨ 64 - ¤«¨­ã câpoª¨, ­axo¤ïée©cï ¢o ¢­eè-
    ­¥© ¯a¬ïâ¨. �«oª, co¤ep¦aé¨© íây câpoªy, ¯pe¤¢ap¨âe«ì­o
    cç¨âë¢aeâcï c ¤¨cªa. u1 - ­o¬ep câpoª¨; u2 - ­o¬ep ¡«oªa,
    oâ­oc¨âe«ì­o ªoâopo£o oâcç¨âë¢aeâcï u1.
(GOTOXY)      u1  u2  ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "GOTOXY".
(KEY)         ->  c
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "KEY".
(LEMIT)       c  ->
    Bë¢o¤ «¨âepë ¯apa««e«ì­o ­a ¯eçaâaîéee ycâpo©câ¢o ¨
    ªo­co«ì. ˆc¯o«ì§yeâcï c«o¢o¬ "EMIT".
(LOOP)        ->
    C«o¢apì:  (LOOP)  yªa§aâe«ì ¯epexo¤a
    “¢e«¨ç¨¢aeâ cçeâç¨ª æ¨ª«a ­a e¤¨­¨æy ¨ ¯po¢epïeâ yc«o¢¨e
    §a¢epèe­¨ï æ¨ª«a. Ec«¨ æ¨ª« ­e oªo­çe­, âo y¯pa¢«e­¨e
    ¯epe¤aeâcï ¯o yªa§aâe«î ¯epexo¤a. Ko¬¯¨«¨pyeâcï c«o¢o¬
    "LOOP".
(PAGE)        ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "PAGE".
(PEMIT)       c  ->
    Bë¢o¤ «¨âepë ­a ¯eçaâaîéee ycâpo©câ¢o. ˆc¯o«ì§yeâcï
    c«o¢a¬¨ "PEMIT" ¨ "EMIT".
(SAVE)          ->
    Coxpa­ïeâ âeªyéee cocâoï­¨e  ”opâ-c¨câe¬ë  ¢¬ecâe co ¢ce¬¨ ¢­o¢ì
    co§¤a­­ë¬¨ c«o¢a¬¨.  Ho¢yî  ”opâ-c¨câe¬y ¬o¦­o §a£py¦aâì c ¤¨cªa
    o¡ëç­ë¬ o¡pa§o¬.
(R/W)         a  u  n  ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "R/W".
(TYPE)        a  u  ->
    C¨câe¬­aï pea«¨§aæ¨ï c«o¢a "TYPE".
(USING)       a  ->
    ”a©« c ¨¬e­e¬, o¯pe¤e«ïe¬ë¬ câpoªo© co cçeâç¨ªo¬ ¯o
    a¤pecy a, oâªpë¢aeâcï ¤«ï câa­¤apâ­ëx o¯epaæ¨© c
    íªpa­­ë¬¨ äa©«a¬¨.
(WAIT            ->
    („«ï ®á®¡® âã¯ëå ¤¨á¯«¥¥¢) - ¯®¤®¦¤ âì ®¡à â­®£® å®¤  «ãç .
(Y/N)
    Quit Forth? - ¢®¯à®á, ª®â®àë© ä®àâ § ¤ ¥â ¯à¨ ­ ¦ â¨¨
    ª« ¢¨è¨ Esc. ‚®§¬®¦­ë¥ ®â¢¥âë - 'Y' ¨«¨ 'N', ­  çâ® ¨
    ­ ¬¥ª ¥â ¯®¤áª §ª  (Y/N).
*             n1  n2  ->  n3           83
    n3 - ¬«a¤è¨e 16 pa§pï¤o¢ ap¨ä¬eâ¨çecªo£o ¯po¨§¢e¤e­¨ï
    n1 ­a n2.
*/            n1  n2  n3  ->  n4       83
    n1 y¬­o¦aeâcï ­a n2, ¯o«yçe­­ë© 32-x pa§pï¤­ë©
    ¯po¬e¦yâoç­ë© pe§y«ìâaâ ¤e«¨âcï ­a n3. n4 - ­¨¦­ïï
    £pa­¨æa çacâ­o£o.
*/MOD         n1  n2  n3  ->  n4  n5   83
    n1 y¬­o¦aeâcï ­a n2. �po¬e¦yâoç­ë© 32-x pa§pï¤­ë©
    pe§y«ìâaâ ¤e«¨âcï ­a n3. n4 - ocâaâoª ¨ n5 - ­¨¦­ïï
    £pa­¨æa çacâ­o£o íâo£o ¤e«e­¨ï. n4 ¨¬eeâ âoâ ¦e §­aª,
    çâo ¨ n3, ¨«¨ pa¢­o ­y«î.
+             n1  n2  ->  n3           83
    n3 - ap¨ä¬eâ¨çecªaï cy¬¬a n1 ¨ n2.
+!            n1  a  ->                83
    n1 ¤o¡a¢«ïeâcï ª §­açe­¨î ¯o a¤pecy a. �âa cy¬¬a §a¬eéaeâ
    ¯ep¢o­aça«ì­oe §­açe­¨e ¯o a¤pecy a.
+BUF          a1  ->  a2
    Bëç¨c«¨âì a¤pec a2 c«e¤yîée£o ¤¨cªo¢o£o ¡yäepa. „«ï íâo£o
    ª a1 ¤o¡a¢«ïeâcï pa§¬ep ¡yäepa. Ec«¨ ¯o«yçe­­oe §­açe­¨e
    pa¢­o §­açe­¨î "LIMIT", âo a2 ¯p¨­¨¬aeâ §­açe­¨e "FIRST".
+LOOP         n ->                 K,H,83
    Ko¬¯-¨ï:  a  3  ->
    C«o¢apì:  (+LOOP)  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              DO .... n +LOOP    ¨«¨    ?DO .... n +LOOP
    n ¤o¡a¢«ïeâcï ª cçeâç¨ªy æ¨ª«a. Ec«¨ ­o¢oe §­açe­¨e
    cçeâç¨ªa ¯epeè«o £pa­¨æy ¬e¦¤y "¯pe¤e«-1" ¨ "¯pe¤e«", âo
    æ¨ª« ¯peªpaéaeâcï ¨ y¯pa¢«ïîé¨e æ¨ª«o¬ ¯apa¬eâpë c¡pacë-
    ¢aîâcï. Ec«¨ æ¨ª« ­e oªo­çe­, âo ¨c¯o«­e­¨e ¯po¤o«¦aeâcï
    oâ âoçª¨, c«e¤yîée© §a cooâ¢eâcâ¢yîé¨¬ "DO" ¨«¨ "?DO".
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 3 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "DO" ("?DO") ¨ "+LOOP". a - a¤pec yªa§aâe«ï
    ¯epexo¤o¢ ¤«ï ¯ap­o£o "DO" ("?DO"). ‡­açe­¨e a+2
    §a­oc¨âcï ¢ yªa§aâe«ì ¯epexo¤a c«o¢a "(+LOOP)", §aâe¬
    âeªyéee §­açe­¨e "HERE" §a­oc¨âcï ¢ ªaçecâ¢e yªa§aâe«ï
    ¯epexo¤a ¯o a¤pecy a, ocâa¢«e­­o¬y  "DO" ("?DO").
,             n  ->                    83
    Oâ¢o¤¨â 2 ¡a©âa ¢ ¯a¬ïâ¨ ¯o "ALLOT" ¨ coxpa­ïeâ ¢ ­¨x
    §­açe­¨e n.
-             n1  n2  ->  n3           83
    n3 - pe§y«ìâaâ ¢ëç¨âa­¨ï n2 ¨§ n1.
--            ->                     H
    Ko¬¬e­âap¨© ¤o ªo­æa câpoª¨.
-->           ->                     H,83R
    ˆ­âep¯peâaæ¨ï âeªyée£o íªpa­a §aªa­ç¨¢aeâcï ¨ ­aç¨­aeâcï
    ¨­âep¯peâaæ¨ï c«e¤yîée£o. C ¯o¬oéìî íâo£o c«o¢a ¬o¦­o
    ªo¬¯¨«¨po¢aâì o¯pe¤e«e­¨ï, pa§¬eée­­ëe ¢ ­ecªo«ìª¨x
    ¯oc«e¤o¢aâe«ì­ëx íªpa­ax.
-1            -> -1
    Š®­áâ ­â .
-MATCH        a1  #1  a2  #2  ->  a3  ?
    ˆc¯o«ì§yeâcï ¤«ï ¯o¨cªa ¯o o¡pa§æy ¯p¨ pe¤aªâ¨po¢a­¨¨
    âeªcâo¢. B câpoªe c a¤peco¬ a1 ¤«¨­o© #1 ¨éeâ ­a
    co¢¯a¤e­¨e ¯o¤câpoªy c a¤peco¬ a2 ¤«¨­o© #2. �p¨ yc¯exe
    ¢o§¢paéaeâ a¤pec ªo­æa ­a©¤e­­o£o ¢xo¦¤e­¨ï ¯«îc o¤¨­ ¨
    ä«a£ "«o¦ì". �p¨ ­ey¤açe ä«a£ ycâa­a¢«¨¢aeâcï ¢ "¨câ¨­y".
-ROT          n1  n2  n3  ->  n3  n1  n2
    �epecâa¢«ïeâ âp¨ ¢epx­¨x í«e¬e­âa câeªa âaª, çâo ¢epx­¨©
    câa­o¢¨âcï ­¨¦­¨¬.
-TEXT         a1  #  a2  ->  n         83H
    Cpa¢­¨¢aeâ ¤¢e câpoª¨ ¤«¨­oî #, ­aç¨­aîé¨ecï ¯o a¤peca¬
    a1 ¨ a2. Bo§¢paéaeâ ­o«ì, ec«¨ câpoª¨ pa¢­ë. Ec«¨ o­¨ ­e
    pa¢­ë, âo ¢o§¢paéaeâ n - pa§­ocâì ¬e¦¤y ¯ep¢ë¬¨
    ­ecpa¢­¨¢è¨¬¨cï «¨âepa¬¨.
-TRAILING     a  #1  ->  a  #2         83
    Cçeâç¨ª «¨âep #1 âeªcâo¢o© câpoª¨, ­aç¨­aîée©cï ¯o a¤pecy
    a, ¨§¬e­ïeâcï âaª, çâo¡ë ¨cª«îç¨âì ªo­æe¢ëe ¯po¡e«ë.
.             n  ->                    83
    ‡­açe­¨e n pac¯eçaâë¢aeâcï ¢ c¢o¡o¤­o¬ äop¬aâe
    c ¯pe¤èecâ¢yîé¨¬ §­aªo¬ ¬¨­yc, ec«¨ n oâp¨æaâe«ì­o.
."            ->                   K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  (.")  câpoªa co cçeâç¨ªo¬
    ˆc¯o«ì§yeâcï âo«ìªo ¯p¨ ªo¬¯¨«ïæ¨¨ ¢ ¢¨¤e:
              ." ccc"
    �p¨ ¨c¯o«­e­¨¨  ¡y¤yâ pac¯eçaâa­ë «¨âepë 'ccc',
    cocâa¢«ïîé¨e câpoªy co cçeâç¨ªo¬.
.(            ->                     H,83
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              .( ccc)
    �p¨ ¨c¯o«­e­¨¨  ¡y¤yâ pac¯eçaâa­ë «¨âepë 'ccc'.
.FCB          a  ->
    �eçaâì ¨¬e­¨ äa©«a, ¡«oª y¯pa¢«e­¨ï ªoâopo£o (FCB)
    ­axo¤¨âcï ¯o a¤pecy a.
.LINE         u1  u2  ->
    �eçaâì câpoª¨ c ­o¬epo¬ u1, ­axo¤ïée©cï ¢o ¢­eè­e©
    ¯a¬ïâ¨. u2 - ­o¬ep ¡«oªa, oâ­oc¨âe«ì­o ªoâopo£o
    oâcç¨âë¢aeâcï u1.
.NAME
    �eçaâì câpoª¨ co cçeâç¨ªo¬, pac¯o«o¦e­­o© ¯o a¤pecy a.
    —¨c«o ¢ë¢o¤¨¬ëx «¨âep o¯pe¤e«ïeâcï ¯ïâìî ¬«a¤è¨¬¨
    pa§pï¤a¬¨ ¡a©âa ¤«¨­ë.
.R            n  u  ->                 83P
    Bë¢o¤ ç¨c«a n ¢ ¯o«e ¤«¨­oî u.
.S            ->
    �eçaâì co¤ep¦¨¬o£o câeªa. ‡­açe­¨ï ¯eçaâaîâcï ¢ ¢¨¤e
    ç¨ce« co §­aªo¬ co£«ac­o ycâa­o¢«e­­o¬y oc­o¢a­¨î c¨câe-
    ¬ë cç¨c«e­¨ï.
/             n1  n2  ->  n3           83
    n3 - ­¨¦­ïï £pa­¨æa çacâ­o£o oâ ¤e«e­¨ï n1 ­a n2.
/MOD          n1  n2  ->  n3  n4       83
    n3 - ocâaâoª ¨ n4 - ­¨¦­ïï £pa­¨æa çacâ­o£o oâ ¤e«e­¨ï
    n1 ­a n2. n3 ¨¬eeâ âoâ ¦e §­aª, çâo ¨ n2, ¨«¨ pa¢­o ­y«î.
0         -> 0
    Šo­câa­âa.
0!            a  ->
    ‡ ¥­¥áâ¨ ­o«ì ¯o a¤pecy a.
0<            n  ->  ?                 83
    ”«a¦oª - "¨câ¨­a", ec«¨ n ¬e­ìèe ­y«ï.
0<>           n  ->  ?
    ”«a¦oª - "¨câ¨­a", ec«¨ n ­e pa¢­o ­y«î.
0=            n  ->  ?                 83
    ”«a¦oª - "¨câ¨­a", ec«¨ n pa¢­o  ­y«î.
0>            n  ->  ?                 83
    ”«a¦oª - "¨câ¨­a", ec«¨ n ¡o«ìèe ­y«ï.
1         -> 1
    Šo­câa­âa.
1+            n1  ->  n2               83
    n2 - pe§y«ìâaâ ¤o¡a¢«e­¨ï e¤¨­¨æë ª n1.
1+!           a  ->                    83H
    “¢e«¨ç¨¢aeâ ­a e¤¨­¨æy 16-pa§pï¤­oe ç¨c«o, ­axo¤ïéeecï
    ¯o a¤pecy a.
1-            n1  ->  n2               83
    n2 - pe§y«ìâaâ ¢ëç¨âa­¨ï e¤¨­¨æë ¨§ n1.
1990  - £®¤ á®§¤ ­¨ï â®£® ¢ à¨ ­â  ä®àâ , ­  ª®â®àë© ‚ë £«ï¤¨â¥.
   “ ‚ á ¯®ç¥¬ã-â® ­¥â ¤®ªã¬¥­â æ¨¨? ˆ­â¥à¥á­®, ¢ ¬ ”Ž�’-ˆ�”Ž ­¥ ¤ «
   ¤®ªã¬¥­â æ¨î, ¨«¨ ‚ë ¥¥ ‘ ¬¨ ­¥ ¢§ï«¨? �®§¢®­¨â¥ ¢ ‹¥­¨­£à ¤,
   (812) 233-3410. �¥ ®¡¨¦ ©â¥áì, ¥á«¨ çâ®, ¬ë ¢¥¤ì «î¡ï...
2         -> 2
    Šo­câa­âa.
2!            d  a  ->                 83+
    ‡a¯o¬¨­aeâ d ¯o a¤pecy a, âo ecâì §a¯o¬¨­aeâ ç¨c«o ¤¢®©-
    ­o© ¤«¨­ë. ‚ ¯ ¬ïâ¨ áâ àè¨¥ 16 à §àï¤®¢ ç¨á«  à á¯®« £ -
    îâáï ¯® ¬¥­ìè¨¬  ¤à¥á ¬.
2*            n1  ->  n2               83P
    “¤¢a¨¢aeâ n1.
2+            n1  ->  n2               83
    n2 - pe§y«ìâaâ ¤o¡a¢«e­¨ï ¤¢yx ª n1.
2-            n1  ->  n2               83
    n2 - pe§y«ìâaâ ¢ëç¨â ­¨ï ¤¢ãå ¨§ n1.
2/            n1  ->  n2               83
    n2 - pe§y«ìâaâ ¤e«e­¨ï n1 ­a 2.
2@            a  ->  d                 83+
    �o¬eéaeâ ­a câeª ç¨c«o ¤¢o©­o© ¤«¨­ë d, ­axo¤ïéeecï ¯o
    a¤pecy a. �  áâ¥ª¥ áâ àè¨¥ 16 à §àï¤®¢ ç¨á«  à á¯®« £ -
    îâáï á¢¥àåã.
2CONSTANT     ->  d                    83+
    Co§¤a­¨e: d  ->
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï ªo­câa­âë ¤¢o©­o© ¤«¨­ë.
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              d  2CONSTANT  <¨¬ï>
    B ¤a«ì­e©èe¬, ¯p¨ ¢ë¯o«­e­¨¨ <¨¬e­¨>, d ¡y¤eâ ¯o¬eée­o
    ­a câeª.
2DROP         d  ->                    83+
    C­¨¬aeâ co câeªa ç¨c«o ¤¢o©­o© ¤«¨­ë.
2DUP          d  ->  d  d              83+
    Ko¯¨pyeâ ­a câeªe ç¨c«o ¤¢o©­o© ¤«¨­ë.
2LFILL       seg a n n1  ->
   ‡ ¯®«­¥­¨¥ n á«®¢ ¢ á¥£¬¥­â¥ seg, ­ ç¨­ ï á  ¤à¥á  a,
   §­ ç¥­¨¥¬ n1.
2OVER         d1  d2  ->  d1  d2  d1   83+
    Ko¯¨pyeâ ¢âopoe c¢epxy ç¨c«o ¤¢o©­o© ¤«¨­ë.
2ROT          d1  d2  d3  ->  d2  d3  d1   83+
    �epecâa¢«ïeâ âp¨ ¤¢o©­ëx ç¨c«a ­a câeªe âaª, çâo ­¨¦­ee
    câa­o¢¨âcï ¢epx­¨¬.
2SWAP         d1  d2  ->  d2  d1       83+
    O¡¬e­¨¢aeâ ¬ecâa¬¨ ­a câeªe ¤¢a ç¨c«a ¤¢o©­o© ¤«¨­ë.
8*14          ->
    “áâ ­®¢ª  à¥¦¨¬  EGA 25 áâà®ª (c¨¬¢®«ë 8*14 ¯¨ªá¥«®¢).
8*8           ->
    “áâ ­®¢ª  à¥¦¨¬  EGA 43 áâà®ª¨ (c¨¬¢®«ë 8*8 ¯¨ªá¥«®¢).
:             ->                       83
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨  ¯o«e ªo¤a
    O¯pe¤e«ïîéee c«o¢o, ¨c¯o«­ïe¬oe ¢ ¢¨¤e
              : <¨¬ï> ... ;
    Co§¤aeâ o¯pe¤e«e­¨e c«o¢a <¨¬ï> ¢ c«o¢ape ªo¬¯¨«ïæ¨¨ ¨
    ycâa­a¢«¨¢aeâ cocâoï­¨e ªo¬¯¨«ïæ¨¨. ˆc¯o«­e­¨e cocâo¨â
    ¢ ªo¬¯¨«ïæ¨¨ §a£o«o¢ªa c«o¢ap­o© câaâì¨. Taªoe o¯pe¤e«e-
    ­¨e ¤«ï <¨¬e­¨> ­a§ë¢aeâcï "o¯pe¤e«e­¨e çepe§ ¤¢oeâoç¨e".
    �opï¤oª ¯o¨cªa ¨§¬e­ïeâcï âaª¨¬ o¡pa§o¬, çâo ¯ep¢ë¬
    c«o¢ape¬ ¢ ¯o¨cªe câa­o¢¨âcï c«o¢apì ªo¬¯¨«ïæ¨¨. B­o¢ì
    co§¤a­­oe o¯pe¤e«e­¨e c«o¢a <¨¬ï> ­e ¬o¦eâ ¡ëâì ­a©¤e­o
    ¢ c«o¢ape ¤o âex ¯op, ¯oªa ­e ¡y¤eâ yc¯eè­o o¡pa¡oâa­o
    cooâ¢eâcâ¢yîéee c«o¢o ";".
;             ->                   K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  EXIT
    �peªpaéaeâ ªo¬¯¨«ïæ¨î o¯pe¤e«e­¨ï çepe§ ¤¢oeâoç¨e, ¤e«a-
    eâ <¨¬ï> íâo£o o¯pe¤e«e­¨ï ¤ocây¯­ë¬ ¯p¨ ¯o¨cªe ¢ c«o¢a-
    pe, ycâa­a¢«¨¢aeâ cocâoï­¨e ¨­âep¯peâaæ¨¨ ¨ ªo¬¯¨«¨pyeâ
    "EXIT".
;CODE         ->                   K,H,83+
    Ko¬¯-¨ï:  ->
    C«o¢apì:  çacâì-CREATE  (;CODE)  çacâì-;CODE
    Haça«o ­a¯¨ca­­o© ­a acce¬¡«epe çacâ¨ "¨c¯o«­e­¨e"
    o¯pe¤e«ïîée£o c«o¢a. ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              : <¨¬ï> ... CREATE ... ;CODE ... END-CODE
    Ko¬¯¨«¨pyeâ c«o¢o "(;CODE)" ¨ ycâa­a¢«¨¢aeâ ¢ ¯epe¬e­­yî
    "CONTEXT" c¯¨coª acce¬¡«ep­ëx ¬­e¬o­¨ª "ASSEMBLER".
    Ÿ¢«ïeâcï acce¬¡«ep­ë¬ a­a«o£o¬ c«o¢a "DOES>".
;S            ->                       83H
    Oªo­ça­¨e ¨­âep¯peâaæ¨¨ íªpa­a. �peªpaéaeâ ¢ë¯o«­e­¨e
    c«o¢a "INTERPRET", ¢ëxo¤ï ¯o e£o a¤pecy ¢o§¢paâa.
<             n1  n2  ->  ?            83
    ”« ¦®ª - "¨áâ¨­ ", ¥á«¨ n1 ¬¥­ìè¥, ç¥¬ n2.
<#            ->                       83
    ˆ­¨æ¨a«¨§¨pyeâ ¯peo¡pa§o¢a­¨e ç¨c«a ¢ ¯pe¤câa¢«ïîéyî
    e£o ¢ëxo¤­yî câpoªy. C«o¢a "#", "#>", "#S", "<#", "HOLD",
    "SIGN" ¨c¯o«ì§yîâcï ¤«ï ¯oc«e¤o¢aâe«ì­o£o ¯peo¡pa§o¢a­¨ï
    ¤¢o©­o£o ç¨c«a ¢ âeªcâo¢yî câpoªy c¯pa¢a ­a«e¢o.
<>            n1  n2  ->  ?            83H
    Ocâa¢«ïeâ ­a câeªe §­açe­¨e "«o¦ì", ec«¨ n1=n2, ¨­açe -
    §­açe­¨e "¨câ¨­a".
<CRLF>          -> a
    ‚ë¤ ç   ¤à¥á , ¯® ª®â®à®¬ã à á¯®«®¦¥­ë ª®­áâ ­âë '‚Š' ¨ '�‘'.
<INCLUDE       ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              <INCLUDE <¨¬ï>
    Žâªàëâì ¢å®¤­®© ¯®á«¥¤®¢ â¥«ì­ë© ä ©« <¨¬ï>. Coxpa­ïeâcï cocâo-
    ï­¨e ¢xo¤­o£o ¯oâoªa, ®âªàë¢ ¥âáï ä ©« <¨¬ï>,  ¥£® àãª®ïâª  § -
    ­®á¨âcï ­  áâ¥ª ¯®á«¥¤®¢ â¥«ì­ëå ä ©«®¢. C¬. INCLUDE, SEQ>TIB.
<MARK         ->  a                    83+
    ˆc¯o«ì§yeâcï ­a ¬ecâe ¯o«yçaâe«ï ¯epexo¤a ­a§a¤. O¡ëç­o
    a¤pec a ¨c¯o«ì§yeâcï c«o¢o¬ "<RESOLVE" ¤«ï ªo¬¯¨«ïæ¨¨
    yªa§aâe«ï ¯epexo¤a.
<RESOLVE      a  ->                    83+
    C«o¢apì:  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ­a ¬ecâe ¯epexo¤a ­a§a¤ ¯oc«e ªo¬¯¨«ïæ¨¨
    "BRANCH" ¨«¨ "?BRANCH". Ko¬¯¨«¨pyeâ yªa§aâe«ì ¯epexo¤a,
    ¨c¯o«ì§yï a¤pec a ªaª a¤pec ¯o«yçaâe«ï.
<TIB>         ->  a
    �epe¬e­­aï, ¨§ ªoâopo© ¡epeâcï a¤pec ¡yäepa ¢¢o¤a "TIB".
=             n1  n2  ->  ?            83
    ”«a¦oª - "¨câ¨­a", ec«¨ n1 pa¢­o n2.
=CELLS        a1  ->  a2
    Ec«¨ a1 ­eçeâ­o, âo y¢e«¨ç¨¢aeâ e£o ­a e¤¨­¨æy.
    ˆc¯o«ì§yeâcï ¤«ï âpe¡yîé¥© ¢ëpa¢­¨¢ ­¨ï ­a çeâ­ë© a¤pec.
>             n1  n2  ->  ?            83
    ”«a¦oª - "¨câ¨­a", ec«¨ n1 ¡o«ìèe n2.
><            n1  ->  n2               83H
    �epecâa¢«ïeâ ¢ n1 ¬«a¤è¨© ¨ câapè¨© ¡a©âë.
>ATTR     (¯¥à¥¬¥­­ ï)
    •à ­¨â  âà¨¡ãâë æ¢¥â .
>BODY         a1  ->  a2               83
    a2 - a¤pec ¯o«ï ¯apa¬eâpa, cooâ¢eâcâ¢yîé¨© a¤pecy
    ªo¬¯¨«ïæ¨¨ a1.
>IN           ->  a                    83
    �epe¬e­­aï, co¤ep¦aéaï c¬eée­¨e âeªyée© «¨âepë ¢o
    ¢xo¤­o¬ ¯oâoªe.
>LINK         a1  ->  a2               83�
    Bëç¨c«ïeâ ¯o a¤pecy ¯o«ï ªo¤a a1 a¤pec ¯o«ï c¢ï§¨ a2.
>MARK         ->  a                    83+
    C«o¢apì:  0
    ˆc¯o«ì§yeâcï ­a ¬ecâe ¯epexo¤a ¢¯epe¤. O¡ëç­o ¨c¯o«ì§y-
    eâcï ¯oc«e ªo¬¯¨«ïæ¨¨ "BRANCH" ¨«¨ "?BRANCH". B c«o¢ape
    ocâa¢«ïeâ ¯a¬ïâì ¯o¤ yªa§aâe«ì ¯epexo¤a, ªoâopë© ¯o§¤­ee
    ¡y¤eâ ¢¯¨ca­ c«o¢o¬ ">RESOLVE".
>NAME         a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï ¨¬e­¨ c«o¢ap­o© câaâì¨ ¯o a¤pecy
    ¯o«ï ªo¤a.
>OUT          ->  a
    �epe¬e­­aï, co¤ep¦aéaï ­o¬ep ¯o§¨æ¨¨ ¯oc«e¤­e£o
    ­a¯eçaâa­­o£o ¢ ¢ëxo¤­o© câpoªe c¨¬¢o«a.
>R            n  ->                    83
    �epe­oc¨â n ­a câeª ¢o§¢paâo¢.
>RESOLVE      a  ->                    83+
    ˆc¯o«ì§yeâcï ­a ¬ecâe ¯o«yçaâe«ï ¯epexo¤a ¢¯epe¤.
    Bëç¨c«ïeâ §­açe­¨e yªa§aâe«ï ¯epexo¤a (­a âeªyéyî
    ïçe©ªy c«o¢apï), ¨c¯o«ì§yï a¤pec a, ¨ ¯o¬eéaeâ íâoâ
    yªa§aâe«ì ¯epexo¤a ¢ ¯a¬ïâì, ocâa¢«e­­yî c«o¢o¬ ">MARK".
ALIGN            ->
    ‚ëà ¢­¨¢ ¥â ãª § â¥«ì ¢¥àè¨­ë ª®¤®ä ©«  (¯¥à¥¬¥­­ ï "DP")
    ­  ç¥â­®¥ §­ ç¥­¨¥. ˆá¯®«ì§ã¥âáï ¤«ï á¨áâ¥¬ë ª®¬ ­¤,
    âpe¡yîé¥© ¢ëpa¢­¨¢a­¨ï ­a çeâ­yî £pa­¨æy a¤peca.
?BRANCH       ?  ->                    83+
    C«o¢apì:  ?BRANCH  yªa§aâe«ì ¯epexo¤a
    O¯epaæ¨ï yc«o¢­o£o ¯epexo¤a. Ec«¨ §­açe­¨e ä«a¦ªa "«o¦ì",
    âo yªa§aâe«ì ¨­âep¯peâaæ¨¨ ycâa­a¢«¨¢aeâcï ¯o yªa§aâe«î
    ¯epexo¤a, pac¯o«o¦e­­o¬y ¯oc«e "?BRANCH". B ¯poâ¨¢­o¬
    c«yçae ¨c¯o«­e­¨e ¯po¤o«¦aeâcï oâ a¤peca, c«e¤yîée£o
    ­e¯ocpe¤câ¢e­­o §a yªa§aâe«e¬ ¯epexo¤a. Ko¬¯¨«¨pyeâcï
    c«o¢a¬¨ "IF", "UNTIL", "WHILE" ¨ ¤py£¨¬¨.
?CGA          -> ?
    T¨¯ ¢¨¤¥® ¤ ¯â¥à : "ˆ‘’ˆ�€", ¥á«¨ CGA, â.¥. ­¥ EGA ¨ ­¥ MDA.
?CH    (¯¥à¥¬¥­­ ï)
    Š®¤ ¡ ©â  ¯à¨­ïâ®£® á ª« ¢¨ âãàë ¤¢ãå¡ ©â­®£® ª®¤ ;
    0, ¥á«¨ ¯à¨­ïâ ®¤­®¡ ©â­ë© ª®¤.
?COMP         ->
    Bë¤aeâ a¢ap¨©­oe coo¡ée­¨e, ec«¨ ­e ycâa­o¢«e­ pe¦¨¬
    ªo¬¯¨«ïæ¨¨ (â.e. ¯epe¬e­­aï "STATE" co¤ep¦¨â ­y«e¢oe
    §­açe­¨e). ˆc¯o«ì§yeâcï ¢ ­eªoâopëx c«o¢ax ­e¬e¤«e­­o£o
    ¨c¯o«­e­¨ï.
?CR           ->
    �epexo¤ ­a ­o¢yî câpoªy, ec«¨ §­açe­¨e ">OUT" ¡o«ìèe
    ­y«ï. ˆc¯o«ì§yeâcï ¤«ï âo£o, çâo¡ë ¨§¡e¦aâì «¨è­¨x
    ¯po£o­o¢ câpoª.
?CSP          ->
    Bë¤aeâ a¢ap¨©­oe coo¡ée­¨e, ec«¨ §­açe­¨e yªa§aâe«ï
    câeªa ­e co¢¯a¤aeâ co §­açe­¨e¬, ªoâopoe co¤ep¦¨âcï ¢
    ¯epe¬e­­o© "CSP". ˆc¯o«ì§yeâcï ¢ c«o¢ax ":" ¨ ";" ¤«ï
    ¯po¢epª¨ ¯pa¢¨«ì­ocâ¨ ¢«o¦e­­ocâ¨ câpyªâyp y¯pa¢«e­¨ï.
?DO           n1  n2  ->           K,H
    Ko¬¯-¨ï:  ->  a  3
    C«o¢apì:  (?DO)  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              ?DO ..... LOOP     ¨«¨     ?DO ... +LOOP
    Haça«o æ¨ª«a co cçeâç¨ªo¬. Haça«ì­oe §­açe­¨e cçeâç¨ªa
    æ¨ª«a n2. –¨ª« §a¢epèaeâcï ¯p¨ ¤ocâ¨¦e­¨¨ ¯pe¤e«a n1
    (c¬. "LOOP", "+LOOP"). Ec«¨ n2 ¨ n1 pa¢­ë, âo æ¨ª« ­e
    ¢ë¯o«­ïeâcï ­¨ o¤­o£o pa§a.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ ­a câeªe ocâaîâcï a¤pec a ¯o¤
    yªa§aâe«ì ¯epexo¤a ¨ §­açe­¨e 3 ¤«ï
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ "?DO" ¨ "LOOP"
    ("+LOOP"). Ko­ªpeâ­oe §­açe­¨e yªa§aâe«ï ¯epexo¤a ¡y¤eâ
    §a­ece­o ¯o a¤pecy a ¯p¨ ¢ë¯o«­e­¨¨ ¯ap­o£o c«o¢a
    "LOOP" ("+LOOP").
?DUP          n  ->  n  n              83
         ¨«¨  0  -> 0
    „y¡«¨pyeâ n, ec«¨ íâo ­e ­o«ì.
?EGA          -> ?
    Ž¯à¥¤¥«¨âì â¨¯ ¢¨¤¥® ¤ ¯â¥à ; ¤ ¥â "ˆ‘’ˆ�“", ¥á«¨ EGA.
?EGALN    (QUAN-¯¥à¥¬¥­­ ï)
    �à¨§­ ª 'EGA-lines', â.¥. ¢¨¤¥®à¥¦¨¬ '43 áâà®ª¨ ­  íªà ­¥'.
?ERROR        ?  u  ->
    Ec«¨ ä«a¦oª - "¨câ¨­a", âo ¢ë¤aeâcï coo¡ée­¨e o¡ oè¨¡ªe
    c ­o¬epo¬ u.
?EXEC         ->
    Bë¤aeâ a¢ap¨©­oe coo¡ée­¨e, ec«¨ ­e ycâa­o¢«e­ pe¦¨¬
    ¨c¯o«­e­¨ï (â.e. ¯epe¬e­­aï "STATE" co¤ep¦¨â ­e­y«e¢oe
    §­açe­¨e). ˆc¯o«ì§yeâcï ¢ ­eªoâopëx c«o¢ax ­e¬e¤«e­­o£o
    ¨c¯o«­e­¨ï.
?KEY          ->  c  -1
         ¨«¨  ->  0
    “c«o¢­ë© ¢¢o¤ «¨âepë c ª«a¢¨aâypë. Ec«¨ ªaªaï-­¨¡y¤ì
    ª«a¢¨èa ­a¦aâa, âo ­a câeª ¯o¬eéaeâcï ªo¤ «¨âepë ¨ -1,
    ¨­açe 0.
?MDA          -> ?
    Ž¯à¥¤¥«¨âì â¨¯ ¢¨¤¥® ¤ ¯â¥à ; ¤ ¥â "ˆ‘’ˆ�“", ¥á«¨ MDA.
?PAIRS      n1  n2  ->
    ‚ë¤ ¥â  ¢ à¨©­®¥ á®®¡é¥­¨¥, ¥á«¨ n1 ­¥ à ¢­® n2.
    ˆá¯®«ì§ã¥âáï ¤«ï ¯à®¢¥àª¨ ãà ¢­®¢¥è¥­­®áâ¨ ¨ ¯à ¢¨«ì­®©
    ¢«®¦¥­­®áâ¨ áâàãªâãà ã¯à ¢«¥­¨ï.
?STACK        ->
    Bë¤aeâ a¢ap¨©­oe coo¡ée­¨e ¯p¨ ¨cçep¯a­¨¨ câeªa.
?TERMINAL     ->  ?
    �po¨§¢o¤¨â o¯poc ª«a¢¨aâypë. Ec«¨ ªaªaï-«¨¡o ª«a¢¨èa
    ­a¦aâa, âo pe§y«ìâaâ "¨câ¨­a", ¨­açe - "«o¦ì".
@             a  ->  n                 83
    n - á®¤¥à¦¨¬®¥ á«®¢  ¯o a¤pecy a.
@L       seg a   ->  n
    n - á®¤¥à¦¨¬®¥ á«®¢  ¯o a¤pecy a ¢ á¥£¬¥­â¥ seg.
ABORT         ->                       83
    Oç¨éaeâ câeª ¤a­­ëx ¨ ¢ë¯o«­ïeâ äy­ªæ¨î "QUIT".
ABORT"        ?  ->                K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  (ABORT")  câpoªa co cçeâç¨ªo¬
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e
              ABORT" ccc"
    �p¨ ¯oc«e¤yîée¬ ¨c¯o«­e­¨¨ ¯po¢epïeâcï §­açe­¨e ä«a¦ªa
    ­a câeªe, ¨ ec«¨ íâo "¨câ¨­a", âo pac¯eçaâë¢aîâcï «¨âepë
    'ccc' câpoª¨ co cçeâç¨ªo¬ ¨ ¢ë¯o«­ïeâcï "ABORT". Ec«¨
    ä«a¦oª - "«o¦ì", âo íâo §­açe­¨e c­¨¬aeâcï co câeªa ¨
    pa¡oâa ¯po¤o«¦aeâcï.
ABS           n  ->  u                 83
    u - a¡co«îâ­aï ¢e«¨ç¨­a n.
ACTIVATE      a  ->
    ‡a¯ycªaeâ §a¤açy, âa¡«¨æa o¯¨ca­¨ï ªoâopo© ­axo¤¨âcï ¯o
    a¤pecy a. ‡a¤aça ¡y¤eâ ¢ë¯o«­ïâì c«o¢a, c«e¤yîé¨e §a
    "ACTIVATE" ¢­yâp¨ o¯pe¤e«e­¨ï çepe§ ":".
AGAIN         ->                   K,H,83H
    Ko¬¯-¨ï:  a  1  ->
    C«o¢apì:  BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              BEGIN ... AGAIN
    ‡aªpë¢aeâ ¡ecªo­eç­ë© æ¨ª«. Bëxo¤ ¨§ âaªo£o æ¨ª«a
    ¯po¨§¢o¤¨âcï ¯o c«o¢a¬ "EXIT", "ABORT" ¨«¨ "QUIT".
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 1 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "BEGIN" ¨ "AGAIN". a - a¤pec ­aça«a æ¨ª«a.
    ‡­açe­¨e a ªo¬¯¨«¨pyeâcï ¢ ªaçecâ¢e yªa§aâe«ï ¯epexo¤a.
ALLOT         #  ->                    83
    Pe§ep¢¨pyeâ # ¡a©âo¢ ¢ c«o¢ape (â.¥. ¢ ª®¤®¢®¬ á¥£¬¥­â¥).
ALPHA         b  ->  c
    �epe¢o¤¨â æ¨äpy ¨§ ¢­yâpe­­e£o ¯pe¤câa¢«e­¨ï ¢o ¢­eè­ee.
    c - ¯pe¤câa¢«e­¨e æ¨äpë b ¢ ªo¤¨po¢ªe KOˆ8 (ASCII).
AND           n1  n2  ->  n3           83
    n3 - ¯opa§pï¤­oe «o£¨çecªoe "¨" n1 ¨ n2.
ASCIIZ        a #  -> az
    ‘®§¤ âì 'ASCIIZ'-áâà®ªã ¨§ áâà®ª¨ (a,#); az -  ¤à¥á
    ¯®«ãç¥­­®© áâà®ª¨, ¯®«ãç¥­­®© ¨§ (a,#) ¤®¡ ¢«¥­¨¥¬
    ­ã«¥¢®£® ¡ ©â  ¢ å¢®áâ.
ASSEMBLER     ->                       83+
    “câa­a¢«¨¢aeâ c¯¨coª c«o¢ acce¬¡«epa ¢ ªaçecâ¢e ¯ep¢o£o
    ¢ ¯opï¤ªe ¯o¨cªa.
AT            -> a                   H
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              AT <¨¬ï>
    �o¬eéaeâ ­a câeª a¤pec ¯o«ï ¯apa¬eâpo¢ c«o¢a, co§¤a­­o£o
    ¯p¨ ¯o¬oé¨ o¯pe¤e«ïîé¨x c«o¢ "QUAN" ¨«¨ "VECT".
B/BUF         ->  1024
    Ko­câa­âa - pa§¬ep ¤¨cªo¢o£o ¡«oªa.
BACKGROUND      ->  a
    ‘®§¤ ­¨¥: u1  u2  u3  ->
    Ž¯à¥¤¥«ïîé¥¥ á«®¢® ¤«ï á®§¤ ­¨ï § ¤ ç¨.
    ˆá¯®«ì§ã¥âáï ¢ ¢¨¤¥:
              BACKGROUND  <¨¬ï>
    Žâ¢®¤¨â ¯ ¬ïâì ¯®¤ § ¤ çã <¨¬ï> ¨ á®§¤ ¥â â ¡«¨æã
    o¯¨ca­¨ï íâo© §a¤aç¨. u1 - pa§¬ep ¯o«ì§o¢aâe«ìcªo©
    o¡«acâ¨, u2 - pa§¬ep câeªa ¯apa¬eâpo¢, u3 - pa§¬ep
    câeªa ¢o§¢paâo¢. B ¤a«ì­e©èe¬, ¯p¨ ¢ë¯o«­e­¨¨ <¨¬e­¨>,
    a¤pec a âa¡«¨æë o¯¨ca­¨ï §a¤aç¨ ¡y¤eâ ¯o¬eée­ ­a câeª.
BASE          ->  a                    83
    �epe¬e­­aï, xpa­ïéaï âeªyéee oc­o¢a­¨e ¤«ï ¯peo¡pa§o¢a-
    ­¨ï ç¨ce« ¯p¨ ¢¢o¤e ¨ ¢ë¢o¤e.
BEG-ASM       ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              BEG-ASM  âeªcâ ­a acce¬¡«epe  END-ASM
    �o§¢o«ïeâ §a¯¨cë¢aâì acce¬¡«ep­ëe ¯po£pa¬¬ë, ­e co§¤a¢aï
    §a£o«o¢ªo¢ c«o¢ap­ëx câaâe©. “câa­a¢«¨¢aeâ ªo­âeªcâ
    acce¬¡«epa ¨ ¨­¨æ¨a«¨§¨pyeâ âa¡«¨æy «oªa«ì­ëx ¬eâoª.
BEGIN         ->                   K,H,83
    Ko¬¯-¨ï:  ->  a  1
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              BEGIN ... ä«a¦oª UNTIL
              BEGIN ... ä«a¦oª WHILE ... REPEAT
              BEGIN ... AGAIN
    C«o¢o "BEGIN" oâ¬eçaeâ ­aça«o ¯oc«e¤o¢aâe«ì­ocâ¨ c«o¢,
    ¯o¤«e¦aé¨x ¯o¢âop­o¬y ¨c¯o«­e­¨î.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ ocâa¢«ïeâ ­a câeªe
    âeªyé¨© a¤pec c«o¢apï a (§­açe­¨e "HERE") ¨
    §­açe­¨e 1. �â¨ §­açe­¨ï c­¨¬aîâcï co câeªa c«o¢a¬¨
    "UNTIL", "REPEAT" ¨«¨ "AGAIN" ¤«ï ªo¬¯¨«ïæ¨¨ ¯epexo¤a
    ­a§a¤ ¨ ªo­âpo«ï ¯ap­ocâ¨.
BELL          ->
    ‡¢ãª®¢®© á¨£­ «.
BL            ->  32                   83P
    Ko­câa­âa, ¤ocâa¢«ïîéaï §­açe­¨e, pa¢­oe ªo¤y ¯po¡e«a.
BLANK         a  #  ->                 83P
    ‡a¯o«­ïeâ ªo¤a¬¨ ¯po¡e«a # ¡a©âo¢, ­aç¨­aï c a¤peca a.
BLK           ->  a                    83
    A¤pec ¯epe¬e­­o©, co¤ep¦aée© ­o¬ep ¡«oªa ¨§ ¢­eè­e©
    ¯a¬ïâ¨, ªoâopë© ¢ ¤a­­ë© ¬o¬e­â ¨­âep¯peâ¨pyeâcï ªaª
    ¢xo¤­o© ¯oâoª. Ec«¨ §­açe­¨e "BLK" pa¢­o ­y«î, âo ¢xo¤-
    ­o© ¯oâoª ¡epeâcï ¨§ ¢xo¤­o£o âeªcâo¢o£o ¡yäepa.
BLINK         ->
    ‡ ¤ âì ¬¥àæ ­¨¥.
BLOCK         u  ->  a                 83
    Ocâa¢«ïeâ ­a câeªe a¤pec ¯ep¢o£o ¡a©âa ¡yäepa,
    co¤ep¦aée£o ¡«oª c ­o¬epo¬ u. Ec«¨ íâoâ ¡«oª pa­ee ­e
    ¡ë« ¯o¬eée­ ¢ ªaªo©-«¨¡o ¡yäep, âo o­ §a£py¦aeâcï ¨§
    ¢­eè­e© ¯a¬ïâ¨ ¢ c¢o¡o¤­ë© ¡yäep. Ec«¨ c¢o¡o¤­ëx ¡yäepo¢
    ­eâ, âo oc¢o¡o¦¤aeâcï ¡yäep, co¤ep¦aé¨© ¡«oª, ª ªoâopo¬y
    ¤o«ìèe ¢cex ­e ¡ë«o o¡paée­¨©. Ec«¨ íâoâ ¡«oª ¡ë« ¯o¬eçe­
    c«o¢o¬ "UPDATE", âo o­ ¢o§¢paéaeâcï ¢o ¢­eè­îî ¯a¬ïâì.
BODY>         a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï ªo¤a a2 ¯o a¤pecy ¯o«ï ¯apa¬eâpo¢ a1
BORDER     n  ->
    ‡ ¤ ­¨¥ æ¢¥â  ¡®à¤îà .
BRANCH        ->                       83+
    C«o¢apì:  BRANCH  yªa§aâe«ì ¯epexo¤a
    O¯epaæ¨ï ¡e§yc«o¢­o£o ¯epexo¤a. “ªa§aâe«ì ¨­âep¯peâaæ¨¨
    ycâa­a¢«¨¢aeâcï ¯o yªa§aâe«î ¯epexo¤a, pac¯o«o¦e­­o¬y
    ­e¯ocpe¤câ¢e­­o ¯oc«e "BRANCH". Ko¬¯¨«¨pyeâcï c«o¢a¬¨
    "ELSE", "AGAIN", "REPEAT" ¨ ¤àã£¨¬¨.
BREAK           ->
    …á«¨ ¢ ¬®¬¥­â ¨á¯®«­¥­¨ï íâ®£® á«®¢  ­ ¦ â  ª ª ï-­¨¡ã¤ì
    ª« ¢¨è , â® ¢ë¯®«­¥­¨¥ ¯à¨®áâ ­ ¢«¨¢ ¥âáï ¤® á«¥¤ãîé¥£®
    ­ ¦ â¨ï. …á«¨ ¢® ¢â®à®© à § ¡ë«  ­ ¦ â  ª« ¢¨è  ¯à®¡¥« ,
    â® ¢ë¯®«­¥­¨¥ ¡ã¤¥â ¯à®¤®«¦¥­®. ‚ ¯à®â¨¢­®¬ á«ãç ¥
    ¢ë¯®«­¥­¨¥ ¡ã¤¥â ¯à¥à¢ ­® ¯® ¤¥©áâ¢¨î "QUIT".
BUFFER        u  ->  a                 83
    �p¨¯¨cë¢aeâ ¡«oç­ë© ¡yäep ¡«oªy u. a - a¤pec ¯ep¢o£o
    ¡a©âa íâo£o ¡«oªa ¢ e£o ¡yäepe. �âa äy­ªæ¨ï ¯o«­ocâìî
    §a¤aeâcï o¯pe¤e«e­¨e¬ ¤«ï c«o¢a "BLOCK", §a ¨cª«îçe­¨e¬
    âo£o, çâo ec«¨ ¡«oªa eée ­eâ ¢ ¯a¬ïâ¨, âo o­ ­e
    ¯epecë«aeâcï ¨§ ¢­eè­e© ¯a¬ïâ¨.
BUILD         a  ->
    ˆ­¨æ¨a«¨§¨pyeâ ¯o«ì§o¢aâe«ìcªyî o¡«acâì §a¤aç¨ ¨ ¢ª«îça-
    eâ §a¤açy ¢ ªo«ìæo. a - a¤pec âa¡«¨æë o¯¨ca­¨ï §a¤aç¨.
BYE           ->
    Bo§¢paâ ¢ o¯epaæ¨o­­yî c¨câe¬y. �«oª¨ c ¯p¨§­aªo¬
    "UPDATE" coxpa­ïîâcï ¢o ¢­eè­e© ¯a¬ïâ¨.
C!            b  a  ->                 83
    ‡­açe­¨e b §a¯¨cë¢aeâcï ¢ ¡a©â ¯o a¤pecy a.
C!L      b seg a  ->
    ‡­açe­¨e b §a¯¨cë¢aeâcï ¢ ¡a©â ¯o a¤pecy a ¢ á¥£¬¥­â¥ seg.
C"            ->  c                  H
    Ko¬¯-¨ï:  ->
    C«o¢apì:  LIT  ªo¤ «¨âepë
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e
              C" <«¨âepa>
    �o¬eéaeâ ­a câeª ªo¤ «¨âepë, c«e¤yîée© ¢o ¢xo¤­o¬ ¯oâoªe
    §a 'C"'.
C,            b  ->                    83P
    Ko¬¯¨«ïæ¨ï ¡a©âa b ¢ oçepe¤­o© ¤ocây¯­ë© ¡a©â c«o¢apï.
C/L           ->  80
    Ko­câa­âa, §a¤aîéaï ¬aªc¨¬a«ì­ë© pa§¬ep câpoª¨, ªoâopyî
    ¬o¦­o ¢¢ecâ¨ c ª«a¢¨aâypë.
C@            a  ->  b                 83
    b ï¢«ïeâcï co¤ep¦¨¬ë¬ ¡a©âa ¯o a¤pecy a.
C@L       seg a   ->  b
    b - á®¤¥à¦¨¬®¥ ¡ ©â  ¯o a¤pecy a ¢ á¥£¬¥­â¥ seg.
CASE          ?  ->
    Ko¬¯-¨ï:  ->  4
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:

              n  CASE  n1  OF  ...  ENDOF
                       n2  OF  ...  ENDOF
                       . . . . . . . . .
                 ENDCASE

    Žâªàë¢ ¥â ª®­áâàãªæ¨î ¢ë¡®à , ¢­ãâà¨ ª®â®à®© ¢ëç¨á«ïîâáï
    n1, n2, ¨ â.¤., ¯®ª  ­¥ ­ ©¤¥âáï á®¢¯ ¤ îé¥¥ á n, ¨ â®£¤ 
    ¢ë¯®«­ïîâáï á«®¢ , à á¯®«®¦¥­­ë¥ ¬¥¦¤ã á«¥¤ãîé¨¬¨ ¤ «¥¥
    OF ¨ ENDOF, ¯®á«¥ ç¥£® ¢á¥ á«®¢  ¤® ENDCASE ¯à®¯ãáª îâáï.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ ­a câeªe ocâa¥âcï §­açe­¨e 4
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ CASE ¨ ENDCASE.
CFL           ->  3    (¤«ï K580)
              ->  2    (¤«ï K1801, K1810, IBM PC á®¢¬¥áâ¨¬ëå)
              ->  0    (¤«ï ”opâ-¯poæeccopa)
    Ko­câa­âa, §a¤aîéaï ¤«¨­y ¯o«ï ªo¤a c«o¢ap­o© câaâì¨.
CLOSE-FILE    n ->
    ‡ ªàëâì ä ©« á àãª®ïâª®© n.
CMOVE         a1  a2  #  ->            83
    �epecë«aeâ # ¡a©âo¢, ­aç¨­aï c a1, ¢ a2. �ep¢ë¬ ¯¥à¥áë-
    «aeâcï ¡a©â, ­axo¤ïé¨©cï ¯o a¤pecy a1. „ «ì­¥©è ï ®¡à -
    ¡oâªa ¨¤eâ ¢ câopo­y ¢o§pacâa­¨ï  ¤à¥á®¢.
CMOVE>        a1  a2  #  ->            83
    �epecë«aeâ # ¡a©âo¢ c a¤peca a1 ¢ a2. �epecë«ªa
    ­aç¨­aeâcï oâ ¡a©âa ¯o a¤pecy a1+#-1 ¢ a¤pec a2+#-1 ¨
    ¨¤eâ ¢ câopo­y ¬e­ìè¨x a¤peco¢ ­a # ¡a©âo¢.
CMOVE>L      segs as segd ad #  ->
   Š®¯¨à®¢ ­¨¥ # ¡ ©â ¨§ á¥£¬¥­â  segs, ­ ç¨­ ï á  ¤à¥á  as, ¢ á¥£-
   ¬¥­â segd, ­ ç¨­ ï á  ¤à¥á  ad. Š®¯¨à®¢ ­¨¥ ¯à®¨§¢®¤¨âáï, ­ ç¨­ ï
   á ¯®á«¥¤­¥£® ¡ ©â  ¨ ª®­ç ï ¯¥à¢ë¬, â.¥. ¯® ã¡ë¢ ­¨î  ¤à¥á®¢.
CMOVEL       segs as segd ad #  ->
   Š®¯¨à®¢ ­¨¥ # ¡ ©â ¨§ á¥£¬¥­â  segs, ­ ç¨­ ï á  ¤à¥á  as, ¢ á¥£-
   ¬¥­â segd, ­ ç¨­ ï á  ¤à¥á  ad. Š®¯¨à®¢ ­¨¥ ¯à®¨§¢®¤¨âáï, ­ ç¨­ ï
   á ¯¥à¢®£® ¡ ©â  ¨ ª®­ç ï ¯®á«¥¤­¨¬, â.¥. ¯® ¢®§à áâ ­¨î  ¤à¥á®¢.
CODE          ->                       83+
    C«o¢apì:
              K580:
              ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨
              K1801, K1810, IBM PC á®¢¬¥áâ¨¬ëå:
              ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨  a¤pec ¬aè¨­­o£o ªo¤a
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï acce¬¡«ep­ëx o¯pe¤e«e­¨©
    c«o¢. ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              CODE <¨¬ï> ... END-CODE
    Co§¤aeâ c«o¢ap­yî câaâìî ¤«ï c«o¢a <¨¬ï> ¨ ycâa­a¢«¨¢aeâ
    c«o¢apì acce¬¡«ep­ëx ¬­e¬o­¨ª ¤«ï ªo¬¯¨«ïæ¨¨ o¯epaâopo¢
    ï§ëªa acce¬¡«epa. ˆc¯o«ì§yeâcï ¤«ï ycªope­¨ï pa¡oâë ¯à®£-
    à ¬¬ë ¨«¨ ¤«ï ®à£ ­¨§ æ¨¨ ¯àï¬®£® ¤®áâã¯  ª ®¡®àã¤®¢ ­¨î.
COLD         ->
    •®«®¤­ë© à¥áâ àâ ä®àâ-á¨áâ¥¬ë. ‘¨áâ¥¬  ¢®ááâ ­ ¢«¨¢ ¥â
    á®áâ®ï­¨¥, ¢ ª®â®à®¬ ®­  ­ å®¤¨« áì ¯®á«¥ ¨­¨æ¨ «¨§ æ¨¨.
COLOR    n1 n2  ->
    ‡ ¤ âì æ¢¥â ä®­  n1 ¨ æ¢¥â á¨¬¢®«®¢ n2.
COMPILE       ->                       83
    O¡ëç­o ¨c¯o«ì§yeâcï ¢ c«e¤yîée¬ ¢¨¤e:
              : <¨¬ï1> ... COMPILE <¨¬ï2> ... ;
    �p¨ ¨c¯o«­e­¨¨ c«o¢a <¨¬ï1> c«o¢o <¨¬ï2> ªo¬¯¨«¨pyeâcï,
    a ­e ¨c¯o«­ïeâcï.
CONSOLE       ->
    B ªaçecâ¢e ycâpo©câ¢a ¢ë¢o¤a ­a§­açaeâcï ªo­co«ì
    o¯epaâopa.
CONSTANT      ->  n                    83
    Co§¤a­¨e: n  ->
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï ªo­câa­âë.
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              n  CONSTANT  <¨¬ï>
    B ¤a«ì­e©èe¬, ¯p¨ ¢ë¯o«­e­¨¨ <¨¬e­¨>, n ¡y¤eâ ¯o¬eée­o
    ­a câeª.
CONTEXT       ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec c¯¨cªa c«o¢, ªoâopë© ¯ep¢ë¬
    ¯poc¬aâp¨¢aeâcï ¯p¨ câa­¤apâ­o¬ ¯o¨cªe c«o¢a c ¯o¬oéìî
    c«o¢a "FIND". ˆc¯o«ì§yeâcï c«o¢a¬¨, o¯pe¤e«e­­ë¬¨ c
    ¯o¬oéìî "VOCABULARY". ˆc¯o«­e­¨e âaª¨x c«o¢ ¯o¬eéaeâ
    a¤pec c¯¨cªa c«o¢ ªo­âeªcâ­o£o c«o¢apï ¢ ¯epe¬e­­yî
    "CONTEXT".
CONVERT       ud1  a1  ->  ud2  a2     83
    ud2 - pe§y«ìâaâ ¯peo¡pa§o¢a­¨ï ¢ æ¨äpë «¨âep âeªcâa,
    ­aç¨­aîée£ocï ¯o a¤pecy a1+1. Ka¦¤aï æ¨äpa ¤o¡a¢«ïeâcï ª
    ud1 ¯oc«e y¬­o¦e­¨ï ud1 ­a §­açe­¨e ¯epe¬e­­o© "BASE".
    �peo¡pa§o¢a­¨e ¯po¤o«¦aeâcï ¤o âex ¯op, ¯oªa ­e
    ¢câpeâ¨âcï ­e¯peo¡pa§ye¬aï «¨âepa, a2 - a¤pec íâo©
    «¨âepë.
COPY          u1  u2  u3  ->
    B âeªyée¬ íªpa­­o¬ äa©«e u3 ¡«oªo¢, ­aç¨­aï c ¡«oªa u1,
    ¯epe­ocïâcï ¢ ¡«oª¨, ­aç¨­aîé¨ecï c ¡«oªa u2.
COUNT         a1  ->  a2  #            83
   a2 pa¢e­ a1+1, # - ¤«¨­a câpoª¨ co cçeâç¨ªo¬ ¯o a¤pecy a1.
CR            ->                       83
    �epexo¤ ­a ­o¢yî câpoªy ¢ ¢ëxo¤­o¬ ¯oâoªe.
CREATE        ->                       83
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨  ¯o«e ªo¤a
    O¯pe¤e«ïîéee c«o¢o, ¨c¯o«­ïe¬oe ¢ ¢¨¤e:
              CREATE <¨¬ï>
    Co§¤aeâ c«o¢ap­yî câaâìî ¤«ï c«o¢a <¨¬ï>. �oc«e íâo£o
    c«e¤yîée© ¤ocây¯­o© ïçe©ªo© c«o¢apï ï¢«ïeâcï ¯ep¢ë© ¡a©â
    ¯o«ï ¯apa¬eâpo¢ ¤«ï c«o¢a <¨¬ï>. Ko£¤a ¢ ¤a«ì­e©èe¬ <¨¬ï>
    ¨c¯o«­ïeâcï, a¤pec ¯ep¢o£o ¡a©âa e£o ¯o«ï ¯apa¬eâpo¢
    ocâaeâcï ­a câeªe.
CREATE-FILE   a # -> n
    ‘®§¤ âì ä ©« á ¨¬¥­¥¬ ( ,#). �¥§ã«ìâ â - n, àãª®ïâª  ä ©« .
CS@           -> seg
    „ ¥â  ¤à¥á ª®¤®¢®£® á¥£¬¥­â .
CSP           ->  a
    �epe¬e­­aï, ªoâopaï ¨c¯o«ì§yeâcï c«o¢a¬¨ "!CSP" ¨ "?CSP"
    ¤«ï pa§¬eâª¨ câeªa.
CSR-INS       ->
    ‘¤¥« âì ªãàá®à ¡®«ìè¨¬.
CSR-OFF       ->
    ‘¤¥« âì ªãàá®à ­¥¢¨¤¨¬ë¬.
CSR-ON        ->
    ‘¤¥« âì ªãàá®à ¢¨¤¨¬ë¬.
CSZ           ->
    “áâ ­®¢¨âì à §¬¥àë ªãàá®à  ¨§ #CSR.
CURRENT       ->  a                    83+
    �epe¬e­­aï, co¤ep¦aéaï a¤pec c¯¨cªa c«o¢, ¢ ªoâopë©
    ¢ª«îçaîâcï ­o¢ëe o¯pe¤e«e­¨ï (c¯¨coª ªo¬¯¨«ïæ¨¨).
D+            d1  d2  ->  d3           83
    d3 ï¢«ïeâcï cy¬¬o© d1 ¨ d2.
D-            d1  d2  ->  d3           83+
    d3 ï¢«ïeâcï pa§­ocâìî d1 ¨ d2.
D.            d  ->                 83+
    �eçaâì ç¨c«a ¤¢o©­o© ¤«¨­ë á® §­ ª®¬ ¢ á¢®¡®¤­®¬ ä®à¬ â¥.
D.R           d  #  ->                 83+
    �eçaâaeâ ç¨c«a ¤¢o©­o© ¤«¨­ë d ¢ ¯o«e ¨§ # «¨âep.
D2/           d1  ->  d2               83+
    d2 ï¢«ïeâcï çacâ­ë¬ oâ ¤e«e­¨ï d1 ­a 2.
D<            d1  d2  ->  ?            83
    ”«a¦oª - "¨câ¨­a", ec«¨ d1 ¬e­ìèe d2.
D>            d1  d2  ->  ?
    ”«a¦oª - "¨câ¨­a", ec«¨ d1 ¡o«ìèe d2.
D=            d1  d2  ->  ?            83+
    ”«a¦oª - "¨câ¨­a", ec«¨ d1 pa¢­o  d2.
DABS          d1  ->  ud2              83+
    ud2 a¡co«îâ­oe §­açe­¨e ¤¢o©­o£o ç¨c«a d1.
DECIMAL       ->                       83
    “câa­a¢«¨¢aeâ ¤ecïâ¨ç­oe ¯peo¡pa§o¢a­¨e ç¨ce« ¯p¨
    ¢¢o¤e-¢ë¢o¤e.
DEFINITIONS   ->                       83
    �epecë«aeâ co¤ep¦¨¬oe ¯epe¬e­­o© "CONTEXT" ¢ "CURRENT".
    Te¬ ca¬ë¬ c¯¨coª c«o¢, o¯pe¤e«ïîé¨© âeªyé¨© ªo­âeªcâ,
    câa­o¢¨âcï ¨ c¯¨cªo¬ ªo¬¯¨«ïæ¨¨ (c¬. "CONTEXT",
    "CURRENT").
DELDIR        az  ->
    “¤ «¥­¨¥ ª â «®£  á ¨¬¥­¥¬ az.
DELETE        ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              DELETE <¨¬ï>
    “¤a«ïeâ c ¤¨cªa äa©« c ¨¬e­e¬ <¨¬ï>.
DELETE-FILE   a # ->
    “¤ «¨âì ä ©« á ¨¬¥­¥¬ ( ,#).
DEPTH         ->  n                    83
    —¨c«o í«e¬e­âo¢ ­a câeªe (£«y¡¨­a câeªa).
DIGIT         c  b  ->  n  -1
         ¨«¨  c  b  ->  0
    �peo¡pa§o¢a­¨e «¨âepë c ¢ æ¨äpy n ¢ c¨câe¬e cç¨c«e­¨ï c
    oc­o¢a­¨e¬ b. Ec«¨ ¯peo¡pa§o¢a­¨e ­e y¤a«ocì, âo
    pe§y«ìâaâ "«o¦ì"
DIR           ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              DIR   ¨«¨   DIR <¨¬ï>
    Pac¯eçaâë¢aeâ o£«a¢«e­¨e ¤¨cªa.
DIR+          a    -> n
    �®«ãç¨âì ¨¬ï ®ç¥à¥¤­®£® ä ©«  ¯® ¬ áª¥, § ¤ ­­®© ¢ë§®¢®¬
    DIR0.  - â® ¦¥, çâ® ¢ ¢ë§®¢¥ DIR0 (c¬.), n - ª®¤ ®â¢¥â .
DIR0         az n  -> n1
    �®«ãç¨âì ¨¬ï ¯¥à¢®£® ä ©« , ã¤®¢«¥â¢®àïîé¥£® ¬ áª¥ (wildcard
    ¯®  ­£«¨©áª¨) az, â.e. ASCIIZ-câà®ª¥, ¢ ª®â®à®© ­¥ª®â®àë¥ á¨¬¢®«ë
    ¨¬¥­¨ § ¬¥­¥­ë ­  '*' ¨«¨ '?'. n -   â à ¨ ¡ ã â ë  ä ©« . n1 - ª®¤
    ®â¢¥â . „àã£¨¥ ä ©«ë à §ëáª¨¢ îâáï ¯® DIR+ (á¬.)
    €âà¨¡ãâë:   ÚÄ¿
                ³:³
            ¡   ³5ÆÍÍ  àå¨¢­ë©
            ¨   ³4ÆÍÍ ¯®¤ª â «®£
            â   ³3ÆÍÍ ¬¥âª  â®¬ 
            ë   ³2ÆÍÍ á¨áâ¥¬­ë©
                ³1ÆÍÍ áªàëâë©
                ³0ÆÍÍ â®«ìª® çâ¥­¨¥
                ÀÄÙ
DISK-ERROR    ->  a
    �epe¬e­­aï, co¤ep¦aéaï ªo¤ oè¨¡ª¨, ¢o§­¨ªèe© ¯p¨
    o¡paée­¨¨ ª ¤¨cªy, ¨«¨ ­o«ì.
DLIT          ->  d                  K
    C«o¢apì:  DLIT  d
    �o¬eéaeâ ­a câeª co¤ep¦¨¬oe c«e¤yîé¨x §a "DLIT" ¤¢yx
    ïçeeª ¯a¬ïâ¨. Ko¬¯¨«¨pyeâcï c«o¢o¬ "DLITERAL".
DLITERAL         ->  d               H
    Ko¬¯-¨ï:     d  ->
    C«o¢apì:     DLIT  d
    Ec«¨ ¨c¯o«ì§yeâcï ¢ pe¦¨¬e ªo¬¯¨«ïæ¨¨, âo ªo¬¯¨«¨pyeâ
    o¯epaæ¨î "DLIT" ¨ ¢c«e¤ §a ­e© ç¨c«o ¤¢o©­o© ¤«¨­ë. Ec«¨
    ¨c¯o«ì§yeâcï ¢ pe¦¨¬e ¨­âep¯peâaæ¨¨, âo ocâa¢«ïeâ câeª
    ­eâpo­yâë¬.
DNEGATE       d1  ->  d2               83
    ˆ§¬e­ïeâ §­aª ç¨c«a ¤¢o©­o© ¤«¨­ë d1 ­a ¯poâ¨¢o¯o«o¦­ë©.
DO            n1  n2  ->           K,H,83
    Ko¬¯-¨ï:  ->  a  3
    C«o¢apì:  (DO)  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              DO ... LOOP    ¨«¨    DO ... +LOOP
    Haça«o æ¨ª«a. n2 - ­aça«ì­oe §­açe­¨e cçeâç¨ªa æ¨ª«a.
    –¨ª« §a¢epèaeâcï ¯p¨ ¤ocâ¨¦e­¨¨ ¯pe¤e«a n1 (c¬. "LOOP",
    "+LOOP").
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ ­a câeªe ocâaîâcï a¤pec ¯a¬ïâ¨ a
    ¯o¤ yªa§aâe«ì ¯epexo¤a ¨ §­açe­¨e 3 ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "DO" ¨ "LOOP" ("+LOOP").
    Ko­ªpeâ­oe §­açe­¨e yªa§aâe«ï ¯epexo¤a ¡y¤eâ §a­ece­o ¯o
    a¤pecy a ¯p¨ ¢ë¯o«­e­¨¨ ¯ap­o£o c«o¢a "LOOP" ("+LOOP").
DOES>         ->                   K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  çacâì-CREATE  (;CODE)  çacâì-DOES>
    Haça«o çacâ¨ "¨c¯o«­e­¨e" o¯pe¤e«ïîée£o c«o¢a. O¡ëç­o
    ¨c¯o«ì§yeâcï ¢ ¢¨¤e
              : <¨¬ï1> ... CREATE ... DOES> ... ;
    Ko¬¯¨«¨pyeâ c«o¢o "(;CODE)" ¨ ¢c«e¤ §a ­¨¬ ¬aè¨­­ë©
    ªo¤ ¤«ï ¢ë§o¢a "çacâ¨-DOES>".
DP            ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec c«e¤yîée© ¤ocây¯­o© ïçe©ª¨
    c«o¢apï.
DPL           ->  a                    83H
    �epe¬e­­aï, co¤ep¦aéaï ç¨c«o æ¨äp ¯oc«e ¯oc«e¤­e© âoçª¨,
    ¢câpeâ¨¢èe©cï ¢o ¢pe¬ï ¯peo¡pa§o¢a­¨ï ç¨c«a ¨§ ¢­eè­e£o
    ¯pe¤câa¢«e­¨ï ¢o ¢­yâpe­­ee, ¨«¨ -1, ec«¨ âoçª¨ ­e ¡ë«o.
DROP          n  ->                    83
    ‡­açe­¨e n c­¨¬aeâcï co câeªa.
DU<           ud1  ud2  ->  ?          83+
    ”«a¦oª - "¨câ¨­a", ec«¨ ud1 ¬e­ìèe ud2 ¯o o¯epaæ¨¨ "U<",
    pacè¨pe­­o© ¤o 32 pa§pï¤o¢.
DUMP          a  #  ->                 83P
    Pac¯eçaâªa o¡«acâ¨ ¯a¬ïâ¨ ¤«¨­oî #, ­aç¨­aîée©cï c a¤peca a.
DUMPL      seg a # ->
    Pac¯eçaâªa o¡«acâ¨ ¯a¬ïâ¨ ¤«¨­oî #, ­aç¨­aîée©cï c a¤peca (seg:a).
DUP           n  ->  n  n              83
    �po¤y¡«¨po¢aâì ­a câeªe n.
EDIT          u  ->
    �¥¤ ªâ®p ¨á¯®«ì§ã¥âáï  ¤«ï ¨§¬¥­¥­¨ï á®¤¥p¦¨¬®£® ä®pâ®¢áª¨å
    ¡«®ª®¢-íªp ­®¢. �p¨ p¥¤ ªâ¨p®¢ ­¨¨ ¬®¦­® ¨á¯®«ì§®¢ âì ª« ¢¨è¨
    ã¯p ¢«¥­¨ï ªãpá®p®¬. �®¤áª §ª  ¢ë§ë¢ ¥âáï ª« ¢¨è¥© F1. �®á«¥
    § ¢¥pè¥­¨ï p¥¤ ªâ¨p®¢ ­¨ï ¢á¥ ¨§¬¥­¥­­ë¥ ¡«®ª¨ á®åp ­ïîâáï ­ 
    ¤¨áª¥.
EDITOR        ->                       83P
    C¯¨coª c«o¢-¤¨peªâ¨¢ âeªcâo¢o£o pe¤aªâopa. C«o¢o
    "EDITOR" ecâì ¢ c¨câe¬ax, ¨c¯o«ì§yîé¨x câpoªo¢ë©
    pe¤aªâop âeªcâa.
EGALINES      ->
    �¥à¥ª«îç¥­¨¥ à¥¦¨¬®¢ EGA: (25 áâà®ª ¨«¨ 43 áâà®ª¨).
ELSE          ->                   K,H,83
    Ko¬¯-¨ï:  a1  2  ->  a2  2
    C«o¢apì:  BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ (c¬. "IF") ¢ ¢¨¤e:
              ä«a¦oª IF ....ELSE .... THEN
    �p¨ c¢oe¬ ¨c¯o«­e­¨¨ c«o¢o "ELSE" ªo¬¯¨«¨pyeâ o¯epaæ¨î
    ¡e§yc«o¢­o£o ¯epexo¤a "BRANCH", pea«¨§yîée© ¢ëxo¤ §a
    "THEN" ¯oc«e ¢ë¯o«­e­¨ï ¢eâ¢¨ "IF" ... "ELSE". Ha câeªe
    ocâaîâcï a¤pec ïçe©ª¨ a2 ¯o¤ yªa§aâe«ì ¯epexo¤a
    ¨ §­açe­¨e 2 ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ "ELSE" ¨
    "THEN". Ko­ªpeâ­oe §­açe­¨e yªa§aâe«ï ¯epexo¤a ¡y¤eâ
    §a­ece­o ¯o a¤pecy a ¯p¨ ¢ë¯o«­e­¨¨ ¯ap­o£o c«o¢a
    "THEN". a1 - a¤pec yªa§aâe«ï ¯epexo¤a, ocâa¢«e­­ë© c«o¢o¬
    "IF". �p¨ ¨c¯o«­e­¨¨ c«o¢a "ELSE" ¯o íâo¬y a¤pecy äop¬¨-
    pyeâcï yªa§aâe«ì ¯epexo¤a ­a ¢eâ¢ì "ELSE" ... "THEN".
EMIT          c  ->                    83
    Bë¤aeâ ­a âep¬¨­a« ªo¤ «¨âepë c.
EMPTY-BUFFERS ->                       83P
    Oc¢o¡o¦¤aîâcï ¡«oç­ëe ¡yäepë ”opâ-c¨câe¬ë. H¨ªaª¨x
    ¤e©câ¢¨© ¯o coxpa­e­¨î ¡«oªo¢ c ¯p¨§­aªo¬ "UPDATE"
    ­e ¯po¨§¢o¤¨âcï.
ENCLOSE       a  c  ->  a  #1  #2  #3
    �poc¬oâp o¡«acâ¨ ¯a¬ïâ¨, ­aç¨­aï c a¤peca a ¢ ¯o¨cªax
    c¨¬¢o«a pa§¤e«¨âe«ï c ¨«¨ ªo­æa câpoª¨ (­y«e¢o£o ¡a©âa).
    Pa§¤e«¨âe«¨, pac¯o«o¦e­­ëe ¢ ­aça«e o¡«acâ¨ ¯a¬ïâ¨,
    ¯po¯ycªaîâcï. Bo§¢paéaîâcï ¯pe¦­¨© a¤pec ¨ âp¨ c¬eée­¨ï
    ¢ ¡a©âax: #1 - c¬eée­¨e ¤o ¯ep¢o£o c¨¬¢o«a, oâ«¨ç­o£o oâ
    pa§¤e«¨âe«ï; #2 - c¬eée­¨e ¤o ¯ep¢o£o pa§¤e«¨âe«ï ¯oc«e
    ¯poc¬oâpe­­o£o âeªcâa; #3 - c¬eée­¨e ¤o ¯ep¢o£o c¨¬¢o«a
    ¯oc«e ¯oc«e¤­e£o pa§¤e«¨âe«ï.
END-ASM       ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              BEG-ASM  âeªcâ ­a acce¬¡«epe  END-ASM
    �o§¢o«ïeâ §a¯¨cë¢aâì acce¬¡«ep­ëe ¯po£pa¬¬ë, ­e co§¤a¢aï
    §a£o«o¢ªo¢ c«o¢ap­ëx câaâe©. ‡a¢epèaeâ acce¬¡«ep­yî
    ¯po£pa¬¬y, §a¬e­ïï ªo­âeªcâ acce¬¡«epa ­a ªo­âeªcâ,
    ªoâopë© ¡ë« ycâa­o¢«e­ ¤o ¢ë¯o«­e­¨ï c«o¢a "BEG-ASM" ¨
    ¯po¢epïeâ pa§peè¨¬ocâì ¢cex ccë«oª ­a «oªa«ì­ëe ¬eâª¨.
END-CODE      ->                       83+
    ‡aªa­ç¨¢aeâ acce¬¡«ep­oe o¯pe¤e«e­¨e c«o¢a.
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              CODE <¨¬ï> ... END-CODE
         ¨«¨  : <¨¬ï> CREATE ... ;CODE ... END-CODE
    ‡a¬e­ïeâ ªo­âeªcâ acce¬¡«epa ­a ªo­âeªcâ, ªoâopë© ¡ë«
    ycâa­o¢«e­ ¤o ¢ë¯o«­e­¨ï c«o¢a "CODE", ¯po¢epïeâ
    pa§peè¨¬ocâì ¢cex ccë«oª ­a «oªa«ì­ëe ¬eâª¨ ¨ ¤e«aeâ
    o¯pe¤e«e­¨e <¨¬ï> ¤ocây¯­ë¬ ¤«ï ¯o¨cªa.
ENDCASE         ->
    Ko¬¯-¨ï:  4 ->
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:

              n  CASE  n1  OF  ...  ENDOF
                       n2  OF  ...  ENDOF
                       . . . . . . . . .
                 ENDCASE

    ‡ ªàë¢ ¥â ª®­áâàãªæ¨î ¢ë¡®à , ¢­ãâà¨ ª®â®à®© ¢ëç¨á«ïîâáï
    n1, n2, ¨ â.¤., ¯®ª  ­¥ ­ ©¤¥âáï á®¢¯ ¤ îé¥¥ á n, ¨ â®£¤ 
    ¢ë¯®«­ïîâáï á«®¢ , à á¯®«®¦¥­­ë¥ ¬¥¦¤ã á«¥¤ãîé¨¬¨ ¤ «¥¥
    OF ¨ ENDOF, ¯®á«¥ ç¥£® ¢á¥ á«®¢  ¤® ENDCASE ¯à®¯ãáª îâáï.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 4 ­a câeªe ¨á¯®«ì§ã¥âáï
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ CASE ¨ ENDCASE.
ENDOF           ->
    Ko¬¯-¨ï:  a 5 -> a' 4
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:

              n  CASE  n1  OF  ...  ENDOF
                       n2  OF  ...  ENDOF
                       . . . . . . . . .
                 ENDCASE

    ‡ ªàë¢ ¥â í«¥¬¥­â ¢ë¡®à , ám. CASE.

    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨ï 4 ¨ 5 ­a câeªe ¨á¯®«ì§ã¥âáï
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ OF ¨ ENDOF, CASE ¨ ENDCASE.
ERASE         a  #  ->                 83P
    ‡a¯o«­ïeâ ­y«ï¬¨ # ¡a©âo¢, ­aç¨­aï oâ a¤peca a.
ERROR         u  ->
    �eçaâaeâ coo¡ée­¨e o¡ oè¨¡ªe c ­o¬epo¬ u.
EXECUTE       a  ->                    83
    ˆc¯o«­e­¨e c«o¢a c a¤peco¬ ªo¬¯¨«ïæ¨¨ a.
EXIT          ->                       83
    Bëxo¤ ¨§ c«o¢a, o¯pe¤e«e­­o£o çepe§ ¤¢oeâoç¨e.
EXPECT        a  #  ->                 83
    �o«yçaeâ «¨âepë ¨ coxpa­ïeâ ¨x ¢ ¯a¬ïâ¨. Coxpa­e­¨e «¨-
    âep ­aç¨­aeâcï oâ a¤peca a ¨ ¨¤eâ, ¯oªa ­e ¢câpeâ¨âcï
    "¢o§¢paâ ªapeâª¨" ¨«¨ ­e ¡y¤eâ ¯epe¤a­o # «¨âep. Bce
    «¨âepë oâo¡pa¦aîâcï. —¨c«o äaªâ¨çecª¨ ¢¢e¤e­­ëx «¨âep
    §a¯o¬¨­aeâcï ¢ ¯epe¬e­­o© "SPAN".
F-CODE        ->  a
    Ko­câa­âa, §­açe­¨e ªoâopo© pa¢­o a¤pecy ¯ep¢o£o ¡a©âa
    ªo¤a ”opâ-c¨câe¬ë.
F-DATA        ->  a

    €¤pec o¡«acâ¨ ¤a­­ëx ”opâ-c¨câe¬ë:

 00  ­ ç «® ¯®«ì§®¢ â¥«ìáª®© ®¡«.   10   ¤à¥á ¯à®æ¥¤ãàë PAGE
 02   ¤à¥á ¯à®æ¥¤ãàë EMIT           12   ¤à¥á ¯à®æ¥¤ãàë R/W
 04   ¤à¥á ¯à®æ¥¤ãàë KEY            14   ¤à¥á ¯à®æ¥¤ãàë FIRST
 06   ¤à¥á ¯à®æ¥¤ãàë ?KEY           16   ¤à¥á ¯à®æ¥¤ãàë LIMIT
 08   ¤à¥á ¯à®æ¥¤ãàë ?TERMINAL      18   ¤à¥á ¯à®æ¥¤ãàë EXPECT
 0A   ¤à¥á ¯à®æ¥¤ãàë TYPE           1A   ¤à¥á ¯à®æ¥¤ãàë INTERPRET
 0C   ¤à¥á ¯à®æ¥¤ãàë CR             1C   ¤à¥á ¯à®æ¥¤ãàë FIND
 0E   ¤à¥á ¯à®æ¥¤ãàë GOTOXY         1E   ¤à¥á ¯à®æ¥¤ãàë ABORT





 20   ¤à¥á ¯à®æ¥¤ãàë QUIT           32  SCS (à ¡®ç ï ª®­áâ ­â )
 22   ¤à¥á ¯à®æ¥¤ãàë COLD           34  HCS (à ¡®ç ï ª®­áâ ­â )
 24   ¤à¥á ¯à®æ¥¤ãàë TITLE          36  ¤«¨­  ª®¤®¢®£® á¥£¬¥­â 
 26   ¤à¥á ¯à®æ¥¤ãàë HEAD           38  ¤«¨­  á¥£¬¥­â  ¨¬¥­
 28   ¤à¥á ¯à®æ¥¤ãàë ERROR          3A  ¤«¨­  áâ¥ª®¢®£® á¥£¬¥­â 
 2A   ¤à¥á ¯à®æ¥¤ãàë NUMBER         3C  ãª § â¥«ì áâ¥ª®¢®£® á¥£¬¥­â 
 2C   ¤à¥á ¯à®æ¥¤ãàë SHOW-LINE      3E  CS: (à ¡®ç ï ª®­áâ ­â )
 2E   ¤à¥á ¯à®æ¥¤ãàë H-AREA
 30   ¤à¥á ¯à®æ¥¤ãàë INIT-H-DP

F-MSG         ->  a
    A¤pec âa¡«¨æë âeªcâo¢ coo¡ée­¨© ”opâ-c¨câe¬ë. Coo¡ée­¨ï
    ¯pe¤câa¢«ïîâcï ¢ ¢¨¤e câpoª co cçeâç¨ªo¬, pac¯o«o¦e­­ëx
    ¢ ¯a¬ïâ¨ ¤py£ §a ¤py£o¬.
FCB           ->  a
    A¤pec áâà®ª¨ á® áç¥âç¨ª®¬ - ¨¬¥­¨ âeªyée£o íªpa­­o£o
    äa©«a.
FCBNAME       a1  ->  a2
    Pa§¡¨paeâ ¨¬ï äa©«a, xpa­ïéeecï ¯o a¤pecy a1 ¨ co§¤aeâ
    ¢ "PAD" âa¡«¨æy y¯pa¢«e­¨ï äa©«o¬ (FCB), a¤pec ªoâopo©
    a2 ocâa¢«ïeâ ­a câeªe.
FCLOSE      n ->
    ‡ ªàëâ¨¥ ä ©«  á àãª®ïâª®© n.
FCREATE    az n -> n1
    C®§¤ ­¨¥ ä ©«  á ¨¬¥­¥¬ az; n -  âà¨¡ãâë:
                ÚÄ¿
                ³:³
            ¡   ³5ÆÍÍ  àå¨¢­ë©
            ¨   ³4ÆÍÍ ¯®¤ª â «®£
            â   ³3ÆÍÍ ¬¥âª  â®¬ 
            ë   ³2ÆÍÍ á¨áâ¥¬­ë©
                ³1ÆÍÍ áªàëâë©
                ³0ÆÍÍ â®«ìª® çâ¥­¨¥
                ÀÄÙ
    n1 - àãª®ïâª  ®âªàëâ®£® ä ©« .
FDELETE    az ->
    “¤ «¥­¨¥ ä ©«  á ¨¬¥­¥¬ az.
FDOS          u1  u2  ->  u3
    O¡paée­¨e ª äy­ªæ¨¨ MS-DOS ¨«¨ CP/M. u2 - ­o¬ep íâo©
    äy­ªæ¨¨, u1 - ¯apa¬eâp äy­ªæ¨¨, u3 - pe§y«ìâaâ.
FENCE         ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec, ¤a«ìèe ªoâopo£o (¢ câopo­y
    ¬e­ìè¨x a¤peco¢) ­e ¨¤eâ "FORGET".
FILEPOS       n -> d
    ’¥ªãé ï ¯®§¨æ¨ï ¢ ä ©«¥ á àãª®ïâª®© n.
FILESIZE      n -> d
    —¨á«® ¡ ©â ¢ ®âªàëâ®¬ ä ©«¥ á àãª®ïâª®© n.
FILL          a  #  b  ->              83
    # ¡a©âo¢ ¯a¬ïâ¨, ­aç¨­aï oâ a¤peca a, §a¯o«­ïîâcï
    §­açe­¨ï¬¨ b.
FIND          a1  ->  a2  n            83
    a1 ï¢«ïeâcï a¤peco¬ câpoª¨ co cçeâç¨ªo¬, co¤ep¦aée© ¨¬ï
    c«o¢a. Ec«¨ ¯p¨ ¯o¨cªe ¢ c«o¢ape c«o¢o ­e ­a©¤e­o, âo a2
    pa¢­o a1, ¨ n pa¢­o ­y«î. Ec«¨ c«o¢o ­a©¤e­o, âo a2
    ï¢«ïeâcï e£o a¤peco¬ ªo¬¯¨«ïæ¨¨, a n ycâa­a¢«¨¢aeâcï ¢
    o¤­o ¨§ ¤¢yx ­e­y«e¢ëx §­açe­¨©. Ec«¨ ­a©¤e­­oe c«o¢o
    ¨¬eeâ ¯p¨§­aª ­e¬e¤«e­­o£o ¨c¯o«­e­¨ï, âo n
    ycâa­a¢«¨¢aeâcï ¢ e¤¨­¨æy, ec«¨ ­eâ, âo ¢ ¬¨­yc e¤¨­¨æy.
FIRST         ->  a
    A¤pec §a£o«o¢ªa ¯ep¢o£o ¡yäepa ”opâ-c¨câe¬ë.
FLDUP         n1 -> n2
    �®«ãç¨âì ª®¯¨î ä ©«  á àãª®ïâª®© n1 (¨á¯®«ì§ã¥âáï ¤«ï § ªàëâ¨ï
    ¡¥§ ¯®á«¥¤ãîé¥£® ®âªàëâ¨ï).
FLSEEK   d1 n1 n2 -> d2
    �®§¨æ¨®­¨à®¢ ­¨¥ ¢ ä ©«¥ á àãª®ïâª®© n2. d1 - ­®¢ ï ¯®§¨æ¨ï.
    …á«¨ n1 = 0, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â ­ ç «  ä ©« ,
    …á«¨ n1 = 1, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â â¥ªãé¥© ¯®§¨æ¨¨,
    …á«¨ n1 = 2, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â ª®­æ  ä ©« .
FLUSH         ->                       83
    �«oª¨ c ¯p¨§­aªo¬ "UPDATE" coxpa­ïîâcï ¢o ¢­eè­e© ¯a¬ïâ¨,
    ¯oc«e çe£o ¡yäepë äopâ-c¨câe¬ë oç¨éaîâcï.
FORGET        ->                       83
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              FORGET <¨¬ï>
    “¤a«ïeâ <¨¬ï> ¨§ c«o¢apï ¢¬ecâe co ¢ce¬¨ c«o¢a¬¨,
    ¤o¡a¢«e­­ë¬¨ ¢ c«o¢apì ¯oc«e ­e£o ­e§a¢¨c¨¬o oâ
    c¯¨cªo¢ c«o¢, ¢ ªaª¨x o­¨ ­axo¤ïâcï.
FORTH         ->                       83
    ˆ¬ï ­aça«ì­o£o c¯¨cªa c«o¢. E£o ¨c¯o«­e­¨e ¤e«aeâ e£o
    ¯ep¢ë¬ c¯¨cªo¬, ªoâopë© ¯poc¬aâp¨¢aeâcï ¯p¨ ¯o¨cªe.
FORTH-83      ->                       83
    “¤ocâo¢epïeâ, çâo ”opâ-c¨câe¬a ï¢«ïeâcï câa­¤apâ­o©.
Forth?
    Quit Forth? - ¢®¯à®á, ª®â®àë© ä®àâ § ¤ ¥â ¯à¨ ­ ¦ â¨¨
    ª« ¢¨è¨ Esc. ‚®§¬®¦­ë¥ ®â¢¥âë - 'Y' ¨«¨ 'N'.
FOPEN      az n -> n1
    Žâªàëâ¨¥ ä ©«  á ¨¬¥­¥¬ az; n - c¯®á®¡ ®âªàëâ¨ï:
            n = 0 -- çâ¥­¨¥,
            n = 1 -- § ¯¨áì,
            n = 2 -- çâ¥­¨¥/§ ¯¨áì.
    n1 - àãª®ïâª  ®âªàëâ®£® ä ©« .
FREAD    seg a # n -> #1
    —¨â âì ¢ ¡ãä¥à seg:a ¤«¨­ë # ¨§ ä ©«  n; #1 - ¤«¨­  ¯à®ç¨â ­­®£®.
FREDIR     n1 n2 ->
    �¥à¥­ ¯à ¢¨âì ä ©« á àãª®ïâª®© n1 ­  ä ©« á àãª®ïâª®© n2.
FREE          a  ->  ?
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. �po¢epïeâ c¢o¡o¤e­
    «¨ pecypc, oxpa­ïe¬ë© ce¬aäopo¬ a ¨, ec«¨ ¤a, âo ¢ë¤aeâ
    ¨câ¨­y, ¨­açe «o¦ì. Pecypc cç¨âaeâcï c¢o¡o¤­ë¬, ec«¨ o­
    ­e §a­ïâ ¨«¨ §a­ïâ íâo© ¦e §a¤açe©. a - a¤pec ¯epe¬e­­o©,
    ¨c¯o«ì§ye¬o© ¢ ªaçecâ¢e ce¬aäopa.
FWRITE   seg a # n -> #1
    �¨á âì ¡ãä¥à seg:a ¤«¨­ë # ¢ ä ©« n; #1 - ¤«¨­  § ¯¨á ­­®£®.
GET           a  ->
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. ‡a¯paè¨¢aeâ pecypc,
    oxpa­ïe¬ë© ce¬aäopo¬ a, o¦¨¤aï e£o oc¢o¡o¦¤e­¨ï. �oc«e
    âo£o, ªaª pecypc câa­eâ c¢o¡o¤­ë¬ (c¬. "FREE"), §a­¨¬aeâ
    e£o, â.e. §a­oc¨â co¡câ¢e­­ë© câaâyc ¯o a¤pecy a.
GETDIR        a #  ->
    �®«ãç¥­¨¥ â¥ªãé¥£® ¯ãâ¨ ¢ ¡ãä¥à a ¤«¨­ë #.
GETDISK       -> n
    �®«ãç¨âì ­®¬¥à â¥ªãé¥£® ¤¨áª  (0 §­ ç¨â A).
GETVECT   n -> seg a
    �à®ç¨â âì ¢¥ªâ®à ¯à¥àë¢ ­¨ï n.
GOTOXY        u1  u2  ->
    “câa­a¢«¨¢aeâ ªypcop ¢ ¯o§¨æ¨î §ªpa­a (u1,u2). u1 - ç¨c-
    «o ¯o§¨æ¨© ¯o £op¨§o­âa«¨, u2 - ¯o ¢epâ¨ªa«¨ ¯o oâ­oèe-
    ­¨î ª ¢epx­e¬y «e¢o¬y y£«y íªpa­a.
H-!        n a  ->
    ‡­açe­¨e n §a¯¨cë¢aeâcï ¢ c«®¢® ¯o a¤pecy a ¢ á¥£¬¥­â¥ ¨¬¥­.
H-",          a  ->
    ‚ á¥£¬¥­â ¨¬¥­ ªo¬¯¨«¨pyeâcï câpoªa co cçeâç¨ªo¬, §a¤a­­aï
    a¤peco¬ a.  Heo¡xo¤¨¬aï ¯a¬ïâì oâ¢o¤¨âcï ¯o "H-ALLOT", ¨ ¢
    ­ee ¯o¬eéaeâcï câpoªa co cçeâç¨ªo¬.
H-,           n  ->
    Oâ¢o¤¨â 2 ¡a©âa ¢ á¥£¬¥­â¥ ¨¬¥­ ¯o "H-ALLOT" ¨ coxpa­ïeâ ¢ ­¨x
    §­açe­¨e n.
H-.NAME   a ->
    �eçaâì câpoª¨ co cçeâç¨ªo¬, pac¯o«o¦e­­o© ¢ á¥£¬¥­â¥ ¨¬¥­ ¯o
    ãª § ­­®¬ã a¤pecy.  —¨c«o ¢ë¢o¤¨¬ëx «¨âep o¯pe¤e«ïeâcï ¯ïâìî
    ¬«a¤è¨¬¨ pa§pï¤a¬¨ ¡a©âa ¤«¨­ë.
H-@       a   ->  n
    n - á®¤¥à¦¨¬®¥ á«®¢  ¯o a¤pecy a ¢ á¥£¬¥­â¥ ¨¬¥­.
H-A       a  -> seg a
    �®«ãç¥­¨¥ ¯®  ¤à¥áã ¢ á¥£¬¥­â¥ ¨¬¥­ ¤«¨­­®£®  ¤à¥á  â®£® ¦¥ ¬¥áâ .
H-ALLOT    n  ->
    Žâ¢®¤¨â n ¡ ©â ¢ á¥£¬¥­â¥ ¨¬¥­.
H-C!       b a ->
    ‡­açe­¨e b §a¯¨cë¢aeâcï ¢ ¡a©â ¯o a¤pecy a ¢ á¥£¬¥­â¥ ¨¬¥­.
H-C@       a   ->  b
    b - á®¤¥à¦¨¬®¥ ¡ ©â  ¯o a¤pecy a ¢ á¥£¬¥­â¥ ¨¬¥­.
H-COUNT         a1  ->  a2  #
   a2 pa¢e­ a1+1, # - ¤«¨­a câpoª¨ co cçeâç¨ªo¬ ¯o a¤pecy
   a1 ¢ á¥£¬¥­â¥ ¨¬¥­.
H-DP    (¯¥à¥¬¥­­ ï)
    ‘®¤¥à¦¨â  ¤pec c«e¤yîée© ¤ocây¯­o© ïçe©ª¨ ¢ á¥£¬¥­â¥ ¨¬¥­.
H-HERE        -> a
    A¤pec  c«e¤yîée© ¤ocây¯­o© ïçe©ª¨ ¢ á¥£¬¥­â¥ ¨¬¥­.
H-SEG    (¯¥à¥¬¥­­ ï)
    ‘®¤¥à¦¨â  ¤pec á¥£¬¥­â  ¨¬¥­.
H-TOGGLE        a  b  ->
    K ¡a©ây ¯o a¤pecy a ¢ á¥£¬¥­â¥ ¨¬¥­ ¯p¨¬e­ïeâcï o¯epaæ¨ï
    "¨cª«îçaîéee ¨«¨" c ¡a©âo¬ b.
HALT          a  ->
    Ocâa­a¢«¨¢aeâ §a¤açy c a¤peco¬ âa¡«¨æë o¯¨ca­¨ï a.
HARDCOPY      ->
    Becì ¢ë¢o¤ ”opâ-c¨câe¬ë ¯oc«e ¢ë¯o«­e­¨ï c«o¢a "HARDCOPY"
    ¡y¤eâ ªo¯¨po¢aâìcï ­a ¯eçaâaîéee ycâpo©câ¢o. Pe¦¨¬
    ªo¯¨po¢a­¨ï oâ¬e­ïeâcï c«o¢o¬ "CONSOLE".
HASH      a1 a2 -> a3
    � ©â¨  ¤à¥á á¯¨áª  a3 ¢ á«®¢ à¥ a2, ¢ ª®â®à®¬ ­ å®¤¨âáï á«®¢® a1.
    Š ¦¤ë© á®§¤ ¢ ¥¬ë© ¯® VOCABULARY á«®¢ àì á®¤¥à¦¨â ­¥ª®â®à®¥
    ª®«¨ç¥áâ¢® á¯¨áª®¢, ¨ á«®¢®, ¯à¨­ ¤«¥¦ é¥¥ á«®¢ àî, ­ å®¤¨âáï
    ¢ ®¤­®¬ ¨§ íâ¨å á¯¨áª®¢. HASH ‚ëç¨á«ï¥â  ¤à¥á ­ã¦­®£® á¯¨áª .
HEAD          ->
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨  ¯o«e ªo¤a
    Co§¤aeâ §a£o«o¢oª c«o¢ap­o© câaâì¨, ¢ë¡¨paï ¨¬ï ¨§
    ¢xo¤­o£o ¯oâoªa. ”op¬¨pyeâcï ¯o«e ¨¬e­¨ ¨ ¯o«e c¢ï§¨,
    oâ¢o¤¨âcï ¯a¬ïâì ¯o¤ ¯o«e ªo¤a.
HERE          ->  a                    83
    A¤pec  c«e¤yîée© ¤ocây¯­o© ïçe©ª¨ c«o¢apï.
HEX           ->                       83P
    “câa­a¢«¨¢aeâ èecâ­a¤æaâ¨p¨ç­oe ¯peo¡pa§o¢a­¨e ç¨ce« ¯p¨
    ¢¢o¤e-¢ë¢o¤e.
HIS           a1  a2  ->  a3
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. �o§¢o«ïeâ o¤­o©
    §a¤açe ¨¬eâì ¤ocây¯ ª ¯epe¬e­­ë¬ ¤py£o© §a¤aç¨.
    a1 - a¤pec âa¡«¨æë o¯¨ca­¨ï ¨­âepecyîée© ­ac §a¤aç¨,
    a2 - a¤pec ¯o«ì§o¢aâe«ìcªo© ¯epe¬e­­o© âeªyée© §a¤aç¨,
    a3 - a¤pec ¯o«ì§o¢aâe«ìcªo© ¯epe¬e­­o© ¨­âepecyîée© ­ac
    §a¤aç¨.
HLD           ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec pa§¬eée­¨ï oçepe¤­o© æ¨äpë
    ¢o ¢pe¬ï ¯epe¢o¤a ç¨c«a ¨§ ¢­yâpe­­e£o ¯pe¤câa¢«e­¨ï
    ¢o ¢­eè­ee.
HOLD          c  ->                    83
    C¨¬¢o« c ¢câa¢«ïeâcï ¢ ¢ëxo¤­yî ç¨c«o¢yî câpoªy. O¡ëç­o
    ¨c¯o«ì§yeâcï ¬e¦¤y "<#" ¨ "#>".
I             ->  n                    83
    n - §­açe­¨e cçeâç¨ªa æ¨ª«a. ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              DO ... I ... LOOP    ¨«¨    DO ... I ... +LOOP
IF            ?  ->                K,H,83
    Ko¬¯-¨ï:  ->  a  2
    C«o¢apì:  ?BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              ä«a¦oª IF ... ELSE ... THEN    ¨«¨
              ä«a¦oª IF ... THEN
    Ec«¨ §­açe­¨e ä«a¦ªa oâ«¨ç­o oâ ­y«ï, âo ¨c¯o«­ïîâcï
    c«o¢a, c«e¤yîé¨e §a "IF", a c«o¢a ¬e¦¤y "ELSE" ¨ "THEN"
    ¯po¯ycªaîâcï. Ec«¨ §­açe­¨e ä«a¦ªa - "«o¦ì", âo
    ¯po¯ycªaîâcï c«o¢a oâ "IF" ¤o "ELSE" ¨«¨ oâ "IF" ¤o
    "THEN" (ªo£¤a "ELSE" ­eâ).
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ ­a câeªe ocâaîâcï a¤pec ¯a¬ïâ¨ a
    ¯o¤ yªa§aâe«ì ¯epexo¤a ¨ §­açe­¨e 2
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ "IF" ¨ "THEN"
    ("ELSE"). Ko­ªpeâ­oe §­açe­¨e yªa§aâe«ï ¯epexo¤a ¡y¤eâ
    §a­ece­o ¯o a¤pecy a ¯p¨ ¢ë¯o«­e­¨¨ ¯ap­o£o c«o¢a "THEN"
    ("ELSE").
IFNOT         ?  ->                K,H
    ˆc¯o«ì§yeâcï a­a«o£¨ç­o c«o¢y "IF", ­o c ¯poâ¨¢o¯o«o¦­ë¬
    §­açe­¨e¬ ä«a¦ªa.
IMMEDIATE     ->                       83
    Oâ¬eçaeâ ¯oc«e¤­ee o¯pe¤e«e­­oe c«o¢o ªaª ­e¬e¤«e­­o
    ¨c¯o«­ïe¬oe.
INCLUDE       ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              INCLUDE <¨¬ï>
    ˆ­âep¯peâaæ¨ï ¯®á«¥¤®¢ â¥«ì­®£® ä ©«  <¨¬ï>. Coxpa­ïeâcï cocâo-
    ï­¨e ¢xo¤­o£o ¯oâoªa, ®âªàë¢ ¥âáï ä ©« <¨¬ï>, ¢ë¯o«­ïeâcï c«o¢o
    INTERPRET,  ªoâopoe ¨­âep¯peâ¨pyeâ  á®¤¥à¦¨¬®¥  ä ©«  áâà®ª  § 
    áâà®ª®©. ˆ­âep¯peâaæ¨ï §a¢epèaeâcï «¨¡o ¯o ¨cçep¯a­¨¨ ¨cxo¤­o£o
    âeªcâa,  «¨¡o  ¯à¨  ®è¨¡ª¥.  �à¨ çâ¥­¨¨ ä ©«  ¬®¦¥â ¢áâà¥â¨âìáï
    á«®¢® INCLUDE ¨«¨ LOAD  -  ¢ íâ®¬ á«ãç ¥ ¨­â¥à¯à¥â æ¨ï â¥ªãé¥£®
    ä ©«  ¯à¨®áâ ­ ¢«¨¢ ¥âáï, ¨ ¨­â¥à¯à¥â¨àã¥âáï ãª § ­­ë© ä ©« ¨«¨
    íªà ­.  �o oªo­ça­¨¨  ¨­âep¯peâaæ¨¨ ä ©«  ¢occâa­a¢«¨¢aeâcï co-
    câoï­¨e ¯pe¦­e£o ¢xo¤­o£o ¯oâoªa.
INCLUDE>      ->
    ‡ ªàëâì ¢å®¤­®© ¯®á«¥¤®¢ â¥«ì­ë© ä ©«. ‚®ááâ ­ ¢«¨¢ eâcï cocâoï­¨e
    ¢xo¤­o£o ¯oâoªa, § ªàë¢ ¥âáï ä ©«, çìï àãª®ïâª  ­ å®¤¨âcï ­  áâ¥ª¥.
    C¬. <INCLUDE, SEQ>TIB.
INDEX         u1  u2  ->               83H
    �eçaâì ¯ep¢ëx câpoª íªpa­o¢ c ­o¬epa¬¨ oâ u1 ¨ ¤o u2.
INIT-VOC      ->
    ˆ­¨æ¨ «¨§ æ¨ï ä®àâ-á«®¢ àï ¯à¨ § ¯ãáª¥ á¨áâ¥¬ë.
INTERPRET     ->
    Haçaâì âeªcâo¢yî ¨­âep¯peâaæ¨î ¢xo¤­o£o ¯oâoªa oâ «¨âepë,
    ­a ªoâopyî yªa§ë¢aeâ ">IN" ¢ o¡«acâ¨ ¯a¬ïâ¨, o¯pe¤e«ïe-
    ¬o© âeªyé¨¬ cocâoï­¨e¬ ¢xo¤­o£o ¯oâoªa (¢xo¤­aï câpoªa
    ¯o a¤pecy "TIB" ¯p¨ ¢¢o¤e c âep¬¨­a«a ¨«¨ cooâ¢eâcâ¢yî-
    é¨© ¡yäep ¢¢o¤a-¢ë¢o¤a ¯p¨ §a£py§ªe ¨§ ¢­eè­e© ¯a¬ïâ¨).
    ˆ­âep¯peâaæ¨ï ¯po¤o«¦aeâcï ¤o âex ¯op, ¯oªa ­e ¡y¤eâ
    ¨cçep¯a­ ¢xo¤­o© ¯oâoª ¨«¨ ­e ¯po¨§o©¤eâ acc¨­xpo­­ë©
    ¢ëxo¤ ¨§ "INTERPRET". Teªcâo¢aï ¨­âep¯peâaæ¨ï cocâo¨â ¢
    ¯oc«e¤o¢aâe«ì­o¬ çâe­¨¨ c«o¢ ¨§ ¢xo¤­o£o ¯oâoªa ¨ ¯o¨cªe
    ¨x ¢ c«o¢ape co£«ac­o ycâa­o¢«e­­o¬y ¯opï¤ªy ¯o¨cªa.
    Ha©¤e­­oe c«o¢o ªo¬¯¨«¨pyeâcï ¨«¨ ¨c¯o«­ïeâcï ¢ §a¢¨c¨-
    ¬ocâ¨ oâ ycâa­o¢«e­­o£o pe¦¨¬a ªo¬¯¨«ïæ¨ï/¨c¯o«­e­¨e ¨
    ­a«¨ç¨ï ¨«¨ oâcyâcâ¢¨ï y ­e£o ¯p¨§­aªa ­e¬e¤«e­­o£o
    ¨c¯o«­e­¨ï. Ec«¨ c«o¢o ­e ­a©¤e­o ¢ c«o¢ape, âo ¤e«aeâcï
    ¯o¯ëâªa ¨­âep¯peâ¨po¢aâì e£o ªaª ç¨c«o ¢ ycâa­o¢«e­­o©
    c¨câe¬e cç¨c«e­¨ï. Ec«¨ íâo ­e y¤aeâcï, âo ¢ë¤aeâcï
    coo¡ée­¨e o¡ oè¨¡ªe
              <¨¬ï> -?
    „«ï câa­¤apâ­o£o ¢ëxo¤a ¨§ "INTERPRET" ¨c¯o«ì§yeâcï
    c«o¢o c ­y«e¢ë¬ ¨¬e­e¬ ¨ ¯p¨§­aªo¬ ­e¬e¤«e­­o£o
    ¨c¯o«­e­¨ï, ªoâopoe ç¨âaeâcï c«o¢o¬ "WORD", ec«¨
    ¢xo¤­o© ¯oâoª ¨cçep¯a­.
INVERSE       ->
    ‡ ¤ âì ¨­¢¥àâ¨à®¢ ­­ë¥ æ¢¥â .
IO-ERROR        ->
    ‚ á«ãç ¥ ®è¨¡ª¨ ¢¢®¤ -¢ë¢®¤  ¢ë¤ ç  á®®¡é¥­¨ï ¨ ¨á¯®«­¥­¨¥
    äã­ªæ¨¨ ABORT, ¯à¨ ®âáãâáâ¢¨¨ ®è¨¡ª¨ - ­¨ª ª¨å ¤¥©áâ¢¨©.
IO-RESULT
    �¥à¥¬¥­­ ï, ¢ ª®â®à®© á®åàï­ï¥âáï ª®¤ à¥§ã«ìâ â 
    ¯®á«¥¤­¥© ®¯¥à æ¨¨ ¢¢®¤ -¢ë¢®¤ .
IS            n  ->                  H
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              n  IS  <¨¬ï>
    �p¨c¢a¨¢aeâ §­açe­¨e c«o¢y <¨¬ï>, co§¤a­­o¬y ¯p¨ ¯o¬oé¨
    o¯pe¤e«ïîé¨x c«o¢ QUAN ¨«¨ VECT. ‡a­oc¨â n ¢ ¯o«e
    ¯apa¬eâpo¢ <¨¬e­¨>.
J             ->  n                    83
    n - §­açe­¨e cçeâç¨ªa c«e¤yîée£o o¡'e¬«îée£o æ¨ª«a.
    Mo¦­o ¨c¯o«ì§o¢aâì âo«ìªo ¢o ¢«o¦e­­ëx æ¨ª«ax "DO-LOOP"
    ¨«¨ "DO-+LOOP".
              DO ... DO ... J ... LOOP ... +LOOP
KEY           -> c                     83
    ‡­açe­¨e c ï¢«ïeâcï ªo¤o¬ c«e¤yîée© ¢¢e¤e­­o© «¨âepë.
    ‹¨âepë, ¯o«yçe­­ëe ¯o "KEY", ­e oâo¡pa¦aîâcï.
L>NAME        a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï ¨¬e­¨ a2 c«o¢ap­o© câaâì¨ ¯o
    a¤pecy a1 ee ¯o«ï c¢ï§¨. ˆ§-§a oco¡e­­ocâe© ªo¤¨po¢ª¨
    pyccª¨x ¡yª¢ pe§y«ìâaâ ¤«ï pyccª¨x ­a§¢a­¨© ­e ¢ce£¤a
    ¯pa¢¨«ì­ë©.
LABEL         ->
    ˆá¯®«ì§ã¥âáï ¢ ¢¨¤¥  LABEL <¨¬ï>
    � ç¨­ ¥â  áá¥¬¡«¥à­ãî ¯à®£à ¬¬ã, ª®â®à ï § ¢¥àè ¥âáï
    á«®¢®¬ END-CODE. ‚ ¤ «ì­¥©è¥¬ <¨¬ï> ¤ ¥â  ¤à¥á íâ®©
    ¯à®£à ¬¬ë. �à¨¬¥à:

    LABEL EXEUNT   0 JMP   END-CODE

    CODE ?DIE   AX POP  1$ JZ  EXEUNT JMP  1$: NEXT,  END-CODE
LASTN   (¯¥à¥¬¥­­ ï)
   €¤à¥á ¯®á«¥¤­¥£® áª®¬¯¨«¨à®¢ ­­®£® á«®¢  ¢ á¥£¬¥­â¥ ¨¬¥­.
LATEST        ->  a
    Ocâa¢«ïeâ ­a câeªe a¤pec ¯o«ï ¨¬e­¨ ¯oc«e¤­e£o
    o¯pe¤e«e­¨ï.
LEAVE         ->                       83
    He¬e¤«e­­ë© ¢ëxo¤ ¨§ æ¨ª«a â¨¯a "DO-LOOP" ¨«¨ "DO-+LOOP".
LFILL        seg a # b  ->
   ‡ ¯®«­¥­¨¥ # ¡ ©â ¢ á¥£¬¥­â¥ seg, ­ ç¨­ ï á  ¤à¥á  a,
   §­ ç¥­¨¥¬ b.
LIGHT         ->
    ‡ ¤ âì ïàª¨© æ¢¥â.
LIMIT         ->  a
    A¤pec ¯ep¢o£o c¢o¡o¤­o£o ¡a©âa ¯oc«e ¯oc«e¤­e£o ¡«oç­o£o
    ¡yäepa.
LINK>         a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï ªo¤a c«o¢ap­o© câaâì¨ ¯o a¤pecy
    ee ¯o«ï c¢ï§¨.
LIST          u  ->
    Pac¯eçaâªa íªpa­a c ­o¬epo¬ u.
LIT           ->  n                  K
    C«o¢apì:  LIT  n
    �o¬eéaeâ ­a câeª co¤ep¦¨¬oe c«e¤yîée© §a "LIT" ïçe©ª¨
    ¯a¬ïâ¨. Ko¬¯¨«¨pyeâcï c«o¢o¬ "LITERAL".
LITERAL       ->  n                  H,83
    Ko¬¯-¨ï:  n  ->
    C«o¢apì:  LIT  n
    O¡ëç­o ¨c¯o«ì§yeâcï ¢ ¢¨¤e
              [ n ] LITERAL
    Ko¬¯¨«¨pyeâ o¯epaæ¨î, ¯p¨ ¨c¯o«­e­¨¨ ªoâopo© n ocâaeâcï
    ­a câeªe.
LOAD          u  ->                    83
    ˆ­âep¯peâaæ¨ï íªpa­a c ­o¬epo¬ u. Ha câeªe ¢o§¢paâo¢ co-
    xpa­ïeâcï cocâoï­¨e ¢xo¤­o£o ¯oâoªa, a ¨¬e­­o, §­açe­¨ï
    ¯epe¬e­­ëx ">IN" ¨ "BLK". �epe¬e­­aï "BLK" ¯p¨­¨¬aeâ
    §­açe­¨e u, ">IN" o¡­y«ïeâcï. „a«ee ¢ë¯o«­ïeâcï c«o¢o
    "INTERPRET", ªoâopoe ¨­âep¯peâ¨pyeâ ¨cxo¤­ë© âeªcâ
    íªpa­a. ˆ­âep¯peâaæ¨ï íªpa­a §a¢epèaeâcï «¨¡o ¯o
    ¨cçep¯a­¨¨ ¨cxo¤­o£o âeªcâa íªpa­a, «¨¡o ï¢­o - ¯p¨
    ¢ë¯o«­e­¨¨ c«o¢a, ocâa­a¢«¨¢aîée£o ¨­âep¯peâaæ¨î,
    ­a¯p¨¬ep ";S". �o oªo­ça­¨¨ ¨­âep¯peâaæ¨¨ íªpa­a
    ¢occâa­a¢«¨¢aeâcï cocâoï­¨e ¯pe¦­e£o ¢xo¤­o£o ¯oâoªa.
LOOP          ->                   K,H,83
    Ko¬¯-¨ï:  a  3  ->
    C«o¢apì:  (LOOP)  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              DO ... LOOP
    Cçeâç¨ª æ¨ª«a y¢e«¨ç¨¢aeâcï ­a e¤¨­¨æy. Ec«¨ ­o¢oe
    §­açe­¨e cçeâç¨ªa ¯epexo¤¨â £pa­¨æy ¬e¦¤y "¯pe¤e«-1" ¨
    "¯pe¤e«", âo æ¨ª« ¯peªpaéaeâcï ¨ y¯pa¢«ïîé¨e æ¨ª«o¬
    ¯apa¬eâpë c¡pacë¢aîâcï. B ¯poâ¨¢­o¬ c«yçae ¨c¯o«­e­¨e
    ¯po¤o«¦aeâcï oâ âoçª¨, c«e¤yîée© §a cooâ¢eâcâ¢yîé¨¬ "DO".
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 3 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "DO" ("?DO") ¨ "LOOP". a - a¤pec yªa§aâe«ï
    ¯epexo¤a ¤«ï ¯ap­o£o "DO" ("?DO"). ‡­açe­¨e a+2
    §a­oc¨âcï ¢ yªa§aâe«ì ¯epexo¤a c«o¢a "(LOOP)", §aâe¬
    âeªyéee §­açe­¨e "HERE" §a­oc¨âcï ¢ ªaçecâ¢e yªa§aâe«ï
    ¯epexo¤a ¯o a¤pecy a.
M*            n1  n2  ->  d
    d - pe§y«ìâaâ 32-pa§pï¤­o£o ¯po¨§¢e¤e­¨ï 16-pa§pï¤­ëx
    ç¨ce« co §­aªo¬ n1 ¨ n2
M-TYPE     a # n1 n2 ->
    ‚ë¤ âì # «¨â¥à, á®¤¥à¦ é¨åáï ¢ ¯ ¬ïâ¨ ¯®  ¤à¥áã a,
    ¢ë¤¥«ïï ãç áâ®ª á n1-£® ¯® n2-© á¨¬¢®«.
M/            d  n1  ->  n2
    n2-çacâ­oe oâ ¤e«e­¨ï co §­aªo¬ 32-pa§pï¤­o£o ç¨c«a d ­a
    16-pa§pï¤­oe n1.
M/MOD         d  n1  ->  n2  n3
    —acâ­oe n3 ¨ ocâaâoª n2 oâ ¤e«e­¨ï ç¨c«a ¤¢o©­o© ¤«¨­ë d
    ­a ç¨c«o n1. Ocâaâoª ¨¬eeâ §­aª ¤e«¨âe«ï ¨«¨ pa¢e­ ­y«î.
MAKE          ->        ( MS-DOS ¨«¨ CP/M )
              u  ->     ( OC PB ¨«¨ PA”OC )
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              MAKE  <¨¬ï>
    Co§¤aeâ ­a ¤¨cªe äa©« c ¨¬e­e¬ <¨¬ï>. B ­eªoâopëx
    o¯epaæ¨o­­ëx c¨câe¬ax âpe¡yeâ §a¤a­¨ï pa§¬epa äa©«a u.
MARK]  (¯¥à¥¬¥­­ ï)
    �à ¢ ï £à ­¨æ  ®è¨¡®ç­®£® á«®¢  ¢® ¢å®¤­®¬ ¯®â®ª¥.
mark]  (¯¥à¥¬¥­­ ï)
    �à ¢ ï £à ­¨æ  ®è¨¡®ç­®£® á«®¢  ¢ â¥ªãé¥© áâà®ª¥.
MAX           n1  n2  ->  n3           83
    n3 - ¡o«ìèee ¨§ n1 ¨ n2.
MEMALLOC            n -> seg 0 / n1 n2
    ‡ å¢ â ¡«®ª  ¯ ¬ïâ¨ ¤«¨­ë n; seg -  ¤à¥á ¯®«ãç¥­­®£® ¡«®ª ,
    ¯à¨ ­¥ã¤ ç¥ n1 - ¬ ªá¨¬ «ì­ë© ¤®áâã¯­ë© ¡«®ª, n2 - ª®¤ ®è¨¡ª¨.
MEMFREE         seg   -> n
    Oá¢®¡®¦¤¥­¨¥ ¡«®ª  ¯ ¬ïâ¨ seg, § å¢ ç¥­­®£® ¯® MEMALLOC; 
    n=0, ¥á«¨ ¢á¥ ¯à ¢¨«ì­®.
MEMSET          seg n -> 0 / n1 n2
    ˆ§¬¥­¨âì à §¬¥à § å¢ ç¥­­®£® à ­¥¥ ¡«®ª  seg ­  n; ¯à¨ ­¥¢®§¬®¦-
    ­®áâ¨ n2 ­¥ à ¢­® 0 ¨ n1 - ¬ ªá¨¬ «ì­ë© à §¬¥à.
MESSAGE       u  a  ->
    �eçaâì coo¡ée­¨ï c ­o¬epo¬ u. a - a¤pec âa¡«¨æë âeªcâo¢
    coo¡ée­¨©. Coo¡ée­¨ï ¢ âaªo© âa¡«¨æe ¯pe¤câa¢«ïîâcï ¢
    ¢¨¤e câpoª co cçeâç¨ªo¬, pac¯o«o¦e­­ëx ¢ ¯a¬ïâ¨ ¤py£ §a
    ¤py£o¬, ­aç¨­aï co câpoª¨ ¯o¤ ­o¬epo¬ 0.
MIN           n1  n2  -> n3            83
    n3 - ¬e­ìèee ¨§ n1 ¨ n2.
MINFORGET - QUAN-¯¥à¥¬¥­­ ï, ¨á¯®«ì§ã¥¬ ï ¢ FORGET.
MKDIR         az  ->
    ‘®§¤ ­¨¥ ª â «®£  á ¨¬¥­¥¬ az.
MOD           n1  n2  -> n3            83
    n3 - ocâaâoª oâ ¤e«e­¨ï n1 ­a n2. n3 ¨¬eeâ âoâ ¦e §­aª,
    çâo ¨ n2, ¨«¨ pa¢­o ­y«î.
MOVE          a1  a2  #  ->            83H
    �epecë«aeâ # ¡a©âo¢ ïçe©ªa §a ïçe©ªo©, ­aç¨­aï c a¤peca
    a1 ¢ a2. Pa¡oâaeâ ¡ëcâpee, çe¬ ¯o¡a©â­aï ¯epecë«ªa.
MU/MOD        ud1  u1  ->  u2  ud2
    u2 - ocâaâoª, a ud2 - ­¨¦­ïï £pa­¨æa çacâ­o£o oâ ¤e«e­¨ï
    ud1 ­a u1.
N>LINK        a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï c¢ï§¨ c«o¢ap­o© câaâì¨ ¯o a¤pecy
    ee ¯o«ï ¨¬e­¨.
N?BRANCH      ?  ->                  K
    C«o¢apì:  N?BRANCH  yªa§aâe«ì ¯epexo¤a
    O¯epaæ¨ï yc«o¢­o£o ¯epexo¤a. Ec«¨ §­açe­¨e ä«a¦ªa
    "¨câ¨­a", âo yªa§aâe«ì ¨­âep¯peâaæ¨¨ ycâa­a¢«¨¢aeâcï ¯o
    yªa§aâe«î ¯epexo¤a, pac¯o«o¦e­­o¬y ¯oc«e "N?BRANCH".
    B ¯poâ¨¢­o¬ c«yçae ¨c¯o«­e­¨e ¯po¤o«¦aeâcï oâ a¤peca,
    c«e¤yîée£o ­e¯ocpe¤câ¢e­­o §a yªa§aâe«e¬ ¯epexo¤a.
    Ko¬¯¨«¨pyeâcï c«o¢o¬ "IFNOT".
NAME>         a1  ->  a2               83�
    Bëç¨c«ïeâ a¤pec ¯o«ï ªo¤a c«o¢ap­o© câaâì¨ ¯o a¤pecy
    ¯o«ï ¨¬e­¨.
NEGATE        n1  ->  n2               83
    n2 - ¤¢o¨ç­oe ¤o¯o«­e­¨e n1, â.e. pa§­ocâì ¬e¦¤y ­y«e¬
    ¨ n1.
NEXT          ->  a
    A¤pec âoçª¨ ¢xo¤a ¢ a¤pec­ë© ¨­âep¯peâaâop. Mo¦eâ ¡ëâì
    ¨c¯o«ì§o¢a­a acce¬¡«ep­o© ¯po£pa¬¬o© ¤«ï ¯epe¤aç¨
    y¯pa¢«e­¨ï ­a ¯po¤o«¦e­¨e ¨­âep¯peâaæ¨¨.
NEXT,         ->
    ‚ ä®àâ- áá¥¬¡«¥à¥ ¬ ªà®ª®¬ ­¤  "NEXT," ª®¬¯¨«¨àã¥â
    ¯®á«¥¤®¢ â¥«ì­®áâì  áá¥¬¡«¥à­ëå ª®¬ ­¤, à¥ «¨§ãîéãî
    äã­ªæ¨î NEXT - ¢å®¤ ¢  ¤à¥á­ë© ¨­â¥à¯à¥â â®à.
NIP           n1  n2  ->  n2
    “¡¨paeâ ¢âopo© c¢epxy í«e¬e­â câeªa.
NLIST         a  ->
    Pac¯eçaâªa ¨¬e­ c«o¢ap­ëx câaâe© ¨§ c¯¨cªa, §a¤a­­o£o
    ¯epe¬e­­o© a. �eçaâaîâcï ¢ce ¨¬e­a, ¢ª«îçaï ¨¬e­a
    ­e§aªo­çe­­ëx o¯pe¤e«e­¨©, ¤o câaâì¨ c ­y«e¢ë¬ §­açe­¨e¬
    ¯o«ï c¢ï§¨. �o a¤pecy a ¤o«¦e­ pac¯o«a£aâìcï a¤pec ¯o«ï
    ¨¬e­¨ ¯oc«e¤­e£o o¯pe¤e«e­¨ï ¢ c¯¨cªe ¨«¨ ­o«ì.
no-name
    Š®­áâ ­â , çì¥ ¨¬ï ¨á¯®«ì§ã¥âáï ä®àâ-á¨áâ¥¬®© ¤«ï á®®¡é¥­¨ï.
NOOP          ->
    �ycâaï o¯epaæ¨ï.
NOT           n1  ->  n2               83
    n2 - ¯opa§pï¤­oe ¤o¯o«­e­¨e n1.
NULFILE          -> a
    ‚ë¤ ¥â  ¤à¥á áâà®ª¨ á ¨¬¥­¥¬ ä ©«  "NUL.SCR"
NUMBER        a  ->  d                 83H
    �peo¡pa§o¢ë¢aeâ câpoªy co cçeâç¨ªo¬ ¯o a¤pecy a ¢ ç¨c«o
    ¤¢o©­o© ¤«¨­ë co §­aªo¬ ¢ ycâa­o¢«e­­o© c¨câe¬e
    cç¨c«e­¨ï. Ec«¨ ¯peo¡pa§o¢a­¨e ¢ ç¨c«o ­e¢o§¬o¦­o,
    ¢ë¤aeâcï coo¡ée­¨e o¡ oè¨¡ªe.
OCTAL         ->                       83H
    “câa­o¢¨âì ¢ocì¬ep¨ç­oe ¯peo¡pa§o¢a­¨e ¯p¨ ¢¢o¤e-¢ë¢o¤e
    ç¨ce«.
OF       n n1 ->
    Ko¬¯-¨ï:  4 -> a 5
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:

              n  CASE  n1  OF  ...  ENDOF
                       n2  OF  ...  ENDOF
                       . . . . . . . . .
                 ENDCASE

    Oâªàë¢ ¥â í«¥¬¥­â ¢ë¡®à , ám. CASE.

    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨ï 4 ¨ 5 ­a câeªe ¨á¯®«ì§ã¥âáï
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ OF ¨ ENDOF, CASE ¨ ENDCASE.
Ok   (¬¥¦¤®¬¥â¨¥)
    “¤®¢«¥â¢®à¥­­®¥ ¢®áª«¨æ ­¨¥ ä®àâ  ¯®á«¥ ã¤ ç­®© ¨­â¥à¯à¥â æ¨¨
    áâà®ª¨, ¢¢¥¤¥­­®© á íªà ­ . �à¨ ABORT ­¥ ¢ë¤ ¥âáï.
OPEN-FILE   a # -> n
    Žâªàëâì ä ©« á ¨¬¥­¥¬ ( ,#). �¥§ã«ìâ â - n, àãª®ïâª  ä ©« .
OPEN/CREATE  a #   -> n ?
    C®§¤ ¥â, ¨«¨ ®âªàë¢ ¥â - ¯à¨ ­ «¨ç¨¨, ä ©« á ãª § ­­ë¬ ¢ áâà®ª¥
    a ¤«¨­ë # ¨¬¥­¥¬.
    ‚ë¤ ¥â ­  áâ¥ª n, àãª®ïâªã ®âªàëâ®£® ä ©« , ¨ 0, ¥á«¨ ä ©« ®âªàëâ.
OPERATOR      ->  a
    Ocâa¢«ïeâ ­a câeªe a¤pec a âa¡«¨æë o¯¨ca­¨ï âep¬¨­a«ì­o©
    §a¤aç¨. �oc«e ­aça«ì­o£o §a¯ycªa c¨câe¬ë ¢ ­e© cyéecâ¢y-
    eâ e¤¨­câ¢e­­aï §a¤aça "OPERATOR".
OR            n1  n2  ->  n3           83
    n3 - ¯opa§pï¤­oe "¨«¨" n1 ¨ n2.
OVER          n1  n2  ->  n1  n2  n1   83
    Ko¯¨pyeâ ¢âopo© í«e¬e­â câeªa n1 ­a e£o ¢epè¨­y.
P!            n  a  ->
    �oc«aâì èecâ­a¤æaâ¨pa§pï¤­oe §­açe­¨e n ¢ ¯opâ c
    ­o¬epo¬ a.
P@            a  ->  n
    O¯poc¨âì ¯opâ c ­o¬epo¬ a ¨ ¯p¨­ïâì ¨§ ­e£o
    èecâ­a¤æaâ¨pa§pï¤­oe §­açe­¨e n.
PAD           ->  a                    83
    A¤pec pa¡oçe© o¡«acâ¨, ¨c¯o«ì§ye¬o© ¯p¨ xpa­e­¨¨ ¤a­­ëx
    ¤«ï ¯po¬e¦yâoç­o© o¡pa¡oâª¨. A¤pec ¨ co¤ep¦¨¬oe "PAD"
    ¬o£yâ ¨§¬e­¨âìcï ¨ ¤a­­ëe ¬o£yâ ¯oâepïâìcï, ec«¨
    ¨§¬e­ïeâcï a¤pec c«e¤yîée© ¤ocây¯­o© ïçe©ª¨ c«o¢apï.
PAGE          ->
    Oç¨câ¨âì íªpa­ âep¬¨­a«a.
PAUSE         ->
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. Oâª«a¤ë¢aeâ
    ¢ë¯o«­e­¨e §a¤aç¨, ªoâopaï ¢ë§¢a«a c«o¢o "PAUSE", ¤«ï
    âo£o, çâo¡ë ocâa«ì­ëe §a¤aç¨ ¯o«yç¨«¨ oçepe¤­yî ¯opæ¨î
    ¯poæeccop­o£o ¢pe¬e­¨. Peªo¬e­¤yeâcï ¢ª«îçaâì "PAUSE"
    ¢ ¤«¨­­ëe ¢ëç¨c«e­¨ï, ­e co¤ep¦aé¨e o¯epaæ¨© ¢¢o¤a-¢ë¢o-
    ¤a, ec«¨ âaª¨e ¢ëç¨c«e­¨ï ¯p¨¢o¤ïâ ª ­e¦e«aâe«ì­ë¬ §a-
    ¤ep¦ªa¬ ¢ ¢ë¯o«­e­¨¨ ¤py£¨x §a¤aç.
PC!           b  a  ->
    �oc«aâì ¢ocì¬¨pa§pï¤­oe §­açe­¨e b ¢ ¯opâ c ­o¬epo¬ a.
PC@           a  ->  b
    O¯poc¨âì ¯opâ c ­o¬epo¬ a ¨ ¯p¨­ïâì ¨§ ­e£o
    ¢ocì¬¨pa§pï¤­oe §­açe­¨e b.
PC?TERMINAL   -> ?
    Ž¯à®c ­ ¦ â¨ï ª« ¢¨è¨ ­  ª« ¢¨ âãà¥.
PCKEY         -> b c
    �à¨¥¬ ª®¤  (c) ¨ áª ­-ª®¤  (b) ª« ¢¨è¨ á ª« ¢¨ âãàë.
PEMIT         c ->
    Bë¢o¤ ­a ¯eçaâaîéee ycâpo©câ¢o c¨¬¢o«a c ªo¤o¬ c.
PERFORM       a  ->
    Bë¯o«­¨âì c«o¢o, a¤pec ¯o«ï ªo¤a ªoâopo£o ­axo¤¨âcï
    ¢ ¯a¬ïâ¨ ¯o a¤pecy a.
PICK          u  ->  n                 83
    n ï¢«ïeâcï ªo¯¨e©  u-o£o §­açe­¨ï ¢ câeªe, ­e cç¨âaï
    ca¬o£o u.
              0 PICK íª¢¨¢a«e­â­o DUP
              1 PICK íª¢¨¢a«e­â­o OVER
PREV          ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec §a£o«o¢ªa ¡yäepa, ª ªoâopo-
    ¬y ¡ë«o ¯oc«e¤­ee o¡paée­¨e c ¨c¯o«ì§o¢a­¨e¬ c«o¢
    "BUFFER" ¨«¨ "BLOCK".
PRINTER       ->
    Ha§­açaeâ ¯eçaâaîéee ycâpo©câ¢o ¢ ªaçecâ¢e oc­o¢­o£o
    ycâpo©câ¢a ¢ë¢o¤a.
QUAN          ->  n
    Co§¤a­¨e: ->
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨
              ¯o«e ªo¤a-1  ¯o«e ªo¤a-2  ¯o«e ªo¤a-3
              2 ¡a©âa ¯a¬ïâ¨ ¯o¤ §­açe­¨e ¯epe¬e­­o©
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï ¯epe¬e­­ëx â¨¯a "QUAN".
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              QUAN <¨¬ï>
    Co§¤aeâ c«o¢ap­yî câaâìî ¤«ï c«o¢a <¨¬ï> âaª¨¬ o¡pa§o¬,
    çâo ¢¯oc«e¤câ¢¨¨, ªo£¤a <¨¬ï> ¡y¤eâ ¨c¯o«­e­o, §­açe­¨e
    ¯epe¬e­­o© <¨¬ï> ¡y¤eâ ¯o¬eée­o ­a câeª. B íâo¬ c¬ëc«e
    ¨c¯o«­e­¨e ¯epe¬e­­o© â¨¯a "QUAN" a­a«o£¨ç­o ¤e©câ¢¨î
    ªo­câa­âë. Ec«¨ ¯epe¤ <¨¬e­e¬> câo¨â c«o¢o "IS", âo
    §­açe­¨e n co câeªa §a¯o¬¨­aeâcï ¢ ¯o«e ¯apa¬eâpo¢
    ¯epe¬e­­o© <¨¬ï>. �âo ¢ë£«ï¤¨â c«e¤yîé¨¬ o¡pa§o¬:
              n  IS  <¨¬ï>
    Ec«¨ ¯epe¤ <¨¬e­e¬> câo¨â c«o¢o "AT", âo a¤pec ¯o«ï
    ¯apa¬eâpo¢ ¯epe¬e­­o© <¨¬ï> ¡y¤eâ ¯o¬eée­ ­a câeª.
QUERY         ->                       83P
    B¢o¤ câpoª¨ c ª«a¢¨aâypë ¢ ¡yäep "TIB". B¢o¤¨¬ëe «¨âepë
    oâo¡pa¦aîâcï ­a âep¬¨­a«e. B¢o¤ câpoª¨ §aªa­ç¨¢aeâcï
    ­a¦aâ¨e¬ "¢o§¢paâa ªapeâª¨". �epe¬e­­aï ">IN"
    ycâa­a¢«¨¢aeâcï ¢ ­o«ì, ¢ "#TIB" §a­oc¨âcï ¤«¨­a
    ¢¢e¤e­­o© câpoª¨.
QUIT          ->                       83
    Oç¨éaeâ câeª ¢o§¢paâo¢, ycâa­a¢«¨¢aeâ cocâoï­¨e ¨c¯o«­e-
    ­¨ï ¨ ­aç¨­aeâ ¨­âep¯peâaæ¨î âeªcâa, ¢¢o¤ï e£o c âep¬¨-
    ­a«a.
Quit Forth?
    ‚®¯à®á, ª®â®àë© ä®àâ § ¤ ¥â ¯à¨ ­ ¦ â¨¨ ª« ¢¨è¨ Esc.
    ‚®§¬®¦­ë¥ ®â¢¥âë - 'Y' ¨«¨ 'N'.
R/W           a  u  0/1  ->
    —âe­¨e/§a¯¨cì c ¤¨cªa ¡«oªa c ­o¬epo¬ u ¨§ ¯a¬ïâ¨ c
    a¤peco¬ a. Ec«¨ ­a ¢epè¨­e câeªa «e¦¨â 0, âo ¯po¨cxo¤¨â
    çâe­¨e, ec«¨ 1, âo ¯po¨cxo¤¨â §a¯¨cì.
R0            ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec ¤­a câeªa ¢o§¢paâo¢.
R>            ->  n                    83
    n c­¨¬aeâcï co câeªa ¢o§¢paâo¢ ¨ ¯epe­oc¨âcï ­a câeª
    ¤a­­ëx.
R@            ->  n                    83
    n - ªo¯¨ï ¢epè¨­ë câeªa ¢o§¢paâo¢.
RDROP         ->
    C­ïâì §­açe­¨e c ¢epè¨­ë câeªa ¢o§¢paâo¢.
READ-FILE     a # n -> #1
    —â¥­¨¥ ¨§ ä ©«  á àãª®ïâª®© n ¢ ¡ãä¥à a ¤«¨­ë #.
    #1 - cª®«ìª® ¯à®ç¨â ­® ¨§ ä ©« .
READ-LINE     a # n -> #1 ?
    —â¥­¨¥ áâà®ª¨ ¨§ ä ©«  á àãª®ïâª®© n ¢ ¡ãä¥à a ¤«¨­ë #.
    #1 - ¤«¨­  ¯®«ãç¥­­®© áâà®ª¨.
RELEASE       a  ->
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. Oc¢o¡o¦¤aeâ pecypc,
    oxpa­ïe¬ë© ce¬aäopo¬ a, ec«¨ o­ ¡ë« §a­ïâ ¤a­­o© §a¤açe©.
RENAME        ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              RENAME  <¨¬ï1>  <¨¬ï2>
    �epe¨¬e­o¢ë¢aeâ ­a ¤¨cªe äa©« c ¨¬e­e¬ <¨¬ï1> ­a <¨¬ï2>.
RENAME-FILE   a1 #1 a2 #2 ->
    �¥à¥¨¬¥­®¢ ­¨¥ ä ©«  c ¨¬¥­¥¬ ¢ áâà®ª¥ (a1,#1) ­  ¨¬ï ¨§
    áâà®ª¨ (a2,#2).
RENMOVE       az1 az2  ->
    �¥à¥¨¬¥­®¢ âì (¨«¨ ¯¥à¥­¥áâ¨, ¥á«¨ ¯ãâ¨ ¢ a1 ¨ a2 à §«¨ç­ë)
    ä ©« á ¨¬¥­¥¬  z1, ¢ ä ©« á ¨¬¥­¥¬ az2.
REPEAT        ->                   K,H,83
    Ko¬¯-¨ï:  a1  1  a2  4  ->
    C«o¢apì:  BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              BEGIN ... WHILE ... REPEAT.
    Bo ¢pe¬ï ¢ë¯o«­e­¨ï ¢ë§ë¢aeâ ¯o¢âop­oe ¢ë¯o«­e­¨e c«o¢
    ¯oc«e cooâ¢eâcâ¢yîée£o "BEGIN".
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 1 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "BEGIN" ¨ "REPEAT". a1 - a¤pec ­aça«a
    æ¨ª«a - ªo¬¯¨«¨pyeâcï ¢ ªaçecâ¢e yªa§aâe«ï ¯epexo¤a
    o¯epaæ¨¨ "BRANCH". ‡aâe¬ âeªyéee §­açe­¨e "HERE" ¢
    ªaçecâ¢e   yªa§aâe«ï ¯epexo¤a ­a ¢ëxo¤ ¨§ æ¨ª«a
    §a­oc¨âcï ¯o a¤pecy a2, ocâa¢«e­­o¬y c«o¢o¬ "WHILE".
    ‡­açe­¨e 4 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢
    "WHILE" ¨ "REPEAT".
RESTVECT        ->
    ‚®ááâ ­®¢«¥­¨¥ ¢¥ªâ®à®¢ ¯à¥àë¢ ­¨©, ¨§¬¥­¥­­ëå ä®àâ-á¨áâ¥¬®©.
ROLL          u  ->                    83
    u-oe §­açe­¨e câeªa (­e cç¨âaï ca¬o£o u) c­aça«a
    y¤a«ïeâcï, a §aâe¬ ¯epe­oc¨âcï ­a ¢epè¨­y câeªa, ¯p¨çe¬
    ¢ce ocâa¢è¨ecï §­açe­¨ï c¤¢¨£aîâcï ­a oc¢o¡o¤¨¢èeecï
    ¬ecâo.
              2 ROLL  íª¢¨¢a«e­â­o ROT.
              0 ROLL  ¯ycâaï o¯epaæ¨ï.
ROT           n1  n2  n3  ->  n2  n3  n1   83
    Tp¨ ¢epx­¨x §­açe­¨ï ­a câeªe ¯epecâa¢«ïîâcï âaª,
    çâo ­¨¦­ee câa­o¢¨âcï ¢epx­¨¬.
ROTATE        u1  n  ->  u2 
    ‹o£¨çecª¨ c¤¢¨­yâì á ¯¥à¥­®á®¬ u1 ­a n ¡¨â ¢«e¢o, ec«¨ n ¯®«®¦¨-
    âe«ì­o, ¨«¨ ¢¯pa¢o, ec«¨ n oâp¨æaâe«ì­o. �à¨ ª ¦¤®¬ á¤¢¨£¥ ¢«¥¢®
    ¡¨â 0 ¯¥à¥å®¤¨â ¢ ¡¨â 15; ¯à¨ á¤¢¨£¥ ¢¯à ¢® - ­ ®¡®à®â.
RP!           a  ->
    “ªa§aâe«ì câeªa ¢o§¢paâo¢ ¯p¨­¨¬aeâ §­açe­¨e a.
RP@           ->  a
    �o¬eéaeâ ­a câeª §­açe­¨e yªa§aâe«ï câeªa ¢o§¢paâo¢.
RUIN          a  ->
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. ˆcª«îçaeâ §a¤açy,
    âa¡«¨æa o¯¨ca­¨ï ªoâopo© ­axo¤¨âcï ¯o a¤pecy a, ¨§ ªo«ì-
    æa §a¤aç.
S-ALLOT      n ->
    Žâ¢¥áâ¨ n ¡ ©â ¢ câ¥ª®¢®¬ á¥£¬¥­â¥ (SS@).
S-DP   (¯¥à¥¬¥­­ ï)
    €¤pec á¢®¡®¤­®© ïçe©ª¨ ¢ áâ¥ª®¢®¬ á¥£¬¥­â¥.
S-OFF          ->
    ƒ è¥­¨¥ íªà ­  - ¡¥§ áâ¨à ­¨ï á®¤¥à¦¨¬®£®.
S-ON           ->
    ‚ª«îç¥­¨¥ íªà ­ .
SS@            -> seg
    €¤à¥á áâ¥ª®¢®£® á¥£¬¥­â .
S0  (¯¥à¥¬¥­­ ï)                               83H
    €¤pec ¤­a câeªa ¢ áâ¥ª®¢®¬ á¥£¬¥­â¥.
S>D           n  ->  d
    �peo¡pa§o¢a­¨e ç¨c«a co §­aªo¬ n ¢ ¤¢o©­oe ç¨c«o co §­a-
    ªo¬ d.
SAVE          ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              SAVE  <¨¬ï äa©«a>
    Coxpa­ïeâ âeªyéee cocâoï­¨e ”opâ-c¨câe¬ë, co§¤a¢aï äa©« c ¨¬e­e¬
    <¨¬ï äa©«a>,  §a­ocï ¢ ­e£o  ”opâ-c¨câe¬y  ¢¬ecâe co ¢ce¬¨ ¢­o¢ì
    co§¤a­­ë¬¨ c«o¢a¬¨.  Ho¢yî  ”opâ-c¨câe¬y ¬o¦­o §a£py¦aâì c ¤¨cªa
    o¡ëç­ë¬ o¡pa§o¬.  …á«¨ ¢ ¨¬¥­¨ ä ©«  ­¥ ãª § ­® à áè¨à¥­¨¥,  c®-
    §¤ ¥âáï ä ©« .EXE;  ¥á«¨ ãª § ­® à áè¨à¥­¨¥ .COM,  â® ¯®«ãç¥­­ ï
    ¯à®£à ¬¬  «¨è ¥âáï á«®¢ à¥©, â.¥. á¯¨áª®¢ ¨¬¥­.
SAVE-BUFFERS  ->                       83
    Co¤ep¦¨¬oe ¢cex ¡«oç­ëx ¡yäepo¢, oâ¬eçe­­ëx ¯o "UPDATE"
    ªaª ¨§¬e­e­­ëe, ¯epe¯¨cë¢aeâcï ¢ cooâ¢eâcâ¢yîé¨e ¨¬ ¡«o-
    ª¨ ¢­eè­e© ¯a¬ïâ¨. Bce ¡yäepë oâ¬eçaîâcï ªaª ­e¨§¬e­e­-
    ­ëe.
SAVE-FILE   n -> ?
    Coxpa­ïeâ âeªyéee cocâoï­¨e  ”opâ-c¨câe¬ë ¢ ä ©«¥ á àãª®ïâª®© n,
    §a­ocï ¢ ­e£o ”opâ-c¨câe¬y ¢¬ecâe co ¢ce¬¨ ¢­o¢ì co§¤a­­ë¬¨ c«o-
    ¢a¬¨. Ho¢yî ”opâ-c¨câe¬y ¬o¦­o §a£py¦aâì c ¤¨cªa o¡ëç­ë¬ o¡pa§o¬.
SAVE-NAME       -> a
    41-¡ ©â­ë© ¡ãä¥à ¤«ï ¨¬¥­¨ ä ©«  ¤«ï SAVE.
SAVE-TO:        ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              SAVE-TO: <¨¬ï äa©«a>
    ‡ ¤ ¥â ¨¬ï ä ©«  ¤«ï SAVE (á¬.)
SCR           ->  a                    83P
    �epe¬e­­aï, co¤ep¦aéaï ­o¬ep ¯oc«e¤­e£o íªpa­a,
    pac¯eçaâa­­o£o ¯o "LIST".
SCREEN-INIT   ->
    ˆ­¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥­­ëå, á¢ï§ ­­ëå á íªà ­®¬
    ¨ ­ ç «ì­ ï ãáâ ­®¢ª  íªà ­ .
SEEK-FILE    d1 n1 n2 -> d2
    �®§¨æ¨®­¨à®¢ ­¨¥ ¢ ä ©«¥ á àãª®ïâª®© n2. d1 - ­®¢ ï ¯®§¨æ¨ï.
    …á«¨ n1 < 0, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â ­ ç «  ä ©« ,
    …á«¨ n1 = 0, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â â¥ªãé¥© ¯®§¨æ¨¨,
    …á«¨ n1 > 0, ¯®§¨æ¨®­¨à®¢ ­¨¥ ®â ª®­æ  ä ©« .
    ‚ «î¡®¬ á«ãç ¥ d2 - ­®¢ ï ¯®§¨æ¨ï ®â­®á¨â¥«ì­® ­ ç «  ä ©« .
SEQ>TIB       ->
    ‘âà®ª  ¯®á«¥¤®¢ â¥«ì­®£® ä ©« , ®âªàëâ®£® ¯® <INCLUDE,
    ¯¥à¥­®á¨âáï ¢ TIB,  â.e. ¢® ¢å®¤­®© ¡ãä¥à.  Ž¡­ã«ï¥âáï
    ãª § â¥«ì >IN.
SETDIR        az  ->
    “áâ ­®¢ª  ¯ãâ¨, ãª § ­­®£® ¢ az, ¢ ª ç¥áâ¢¥ â¥ªãé¥£®.
SETDISK       n  ->
    ‡ ¤ âì ­®¬¥à â¥ªãé¥£® ¤¨áª  (0 §­ ç¨â A).
SETVECT   seg a n ->
    “áâ ­®¢ª  ¢¥ªâ®à  seg:a ¤«ï ®¡à ¡®âª¨ ¯à¥àë¢ ­¨ï n.
SHIFT         u1  n  ->  u2            83H
    ‹o£¨çecª¨ c¤¢¨­yâì u1 ­a n pa§pï¤o¢ ¢«e¢o, ec«¨ n
    ¯o«o¦¨âe«ì­o, ¨«¨ ¢¯pa¢o, ec«¨ n oâp¨æaâe«ì­o.
    B oc¢o¡o¤¨¢è¨ecï ¯o§¨æ¨¨ ¢¯¨cë¢aîâcï ­y«¨.
SHOW-ERROR    u  a  ->
    ‚ë¢®¤¨â coo¡ée­¨e o¡ oè¨¡ªe c ­o¬epo¬ u. Teªcâ coo¡ée­¨ï
    ¡epeâcï ¨§ âa¡«¨æë coo¡ée­¨© c a¤peco¬ a. �epe¤ âeªáâ®¬
    coo¡ée­¨ï ¡y¤eâ ¢ë¢¥¤¥­o ¨¬ï ¢ë¯o«­ïe¬o£o ¢ ¤a­­ë© ¬®-
    ¬e­â c«o¢a.
SHOW-LINE         ->
    ‚ë¢®¤¨â â¥ªãéãî áâà®ªã íªà ­  ¨ ¥¥ â¥ªáâ®¢ë¥ ª®®à¤¨­ âë:
    ­®¬¥à íªà ­  ¨ ­®¬¥à áâà®ª¨.
SIGN          n  ->                    83
    Ec«¨ n oâp¨æaâe«ì­o, âo ª ¢ëxo¤­o© ç¨c«o¢o© câpoªe
    ¤o¡a¢«ïeâcï "-" (§­aª ¬¨­yc). O¡ëç­o ¨c¯o«ì§yeâcï ¬e¦¤y
    "<#" ¨ "#>".
SMUDGE        ->
    ˆc¯o«ì§yeâcï ¢ c«o¢ax ":" ¨ "CODE". “câa­a¢«¨¢aeâ e¤¨­¨-
    æy ¢ âpeâ¨© ¯o câapè¨­câ¢y ¡¨â ¢ ¡a©âe ¤«¨­ë ¯o«ï ¨¬e­¨
    ¯oc«e¤­e£o o¯pe¤e«e­¨ï ¢ c¯¨cªe ªo¬¯¨«ïæ¨¨, ¤e«aï âaª¨¬
    o¡pa§o¬ íâo o¯pe¤e«e­¨e ­e¤ocây¯­ë¬ ¯p¨ ¯o¨cªe.
    �oc«e¤yîéee ¨c¯o«­e­¨e c«o¢a "UNSMUDGE" c­o¢a ¤e«aeâ
    o¯pe¤e«e­¨e ¤ocây¯­ë¬.
SP!           a  ->
    “ªa§aâe«ì câeªa ¯p¨­¨¬aeâ §­açe­¨e a.
SP@           ->  a
    ‡­açe­¨e a ï¢«ïeâcï a¤peco¬ ¢epè¨­ë câeªa ¤o ¢ë¯o«­e­¨ï
    c«o¢a "SP@".
SPACE         ->                       83
    Bë¢o¤¨â ¯po¡e«.
SPACES        #  ->                    83
    ‚ë¢®¤¨â # ¯à®¡¥«®¢.
SPAN          ->  a                    83
    �epe¬e­­aï, co¤ep¦aéaï cçeâç¨ª äaªâ¨çecª¨ ¯o«yçe­­ëx ¨
    §a¯¨ca­­ëx ¢ ¯a¬ïâì «¨âep ¯p¨ ¯oc«e¤­e¬ ¨c¯o«­e­¨¨
    c«o¢a "EXPECT".
STATE         ->  a                    83
    �epe¬e­­aï, o¯pe¤e«ïîéaï cocâoï­¨e ”opâ-c¨câe¬ë. Hy«e¢oe
    §­açe­¨e cooâ¢eâcâ¢yeâ pe¦¨¬y ¨c¯o«­e­¨ï, ­e­y«e¢oe -
    ªo¬¯¨«ïæ¨¨.
STATUS        -> a
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. �o¬eéaeâ ­a câeª
    a¤pec ¯ep¢o£o ¡a©âa ¯o«ì§o¢aâe«ìcªo© o¡«acâ¨ ¤«ï âeªyée©
    §a¤aç¨. Co¤ep¦¨¬oe íâo£o ¡a©âa o¯pe¤e«ïeâ âeªyéee
    cocâoï­¨e §a¤aç¨: §a¤aça ¬o¦eâ c¯aâì ¨«¨ ¡o¤pcâ¢o¢aâì.
STOP          ->
    ˆc¯o«ì§yeâcï ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e. �epe¢o¤¨â §a¤açy,
    ªoâopaï ¢ë§¢a«a "STOP", ¢ c¯ïéee cocâoï­¨e. C¯ïçªa
    ¯po¤o«¦aeâcï ¤o âex ¯op, ¯oªa íâa §a¤aça ­e ¡y¤eâ
    pa§¡y¦e­a ¯po£pa¬¬o© o¡pa¡oâª¨ ¯pepë¢a­¨© ¨«¨ ¤py£o©
    §a¤açe©.
SWAP          n1  n2  ->  n2  n1       83
    O¡¬e­¨¢aeâ ¬ecâa¬¨ ¤¢a ¢epx­¨x §­açe­¨ï câeªa.
THEN          ->                   K,H,83
    Ko¬¯-¨ï:  a  2  ->
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              IF...ELSE...THEN    ¨«¨    IF...THEN
   "THEN" ï¢«ïeâcï âoçªo©, c ªoâopo© ¯po¤o«¦aeâcï ¨c¯o«­e­¨e
    ¯oc«e "ELSE" ¨«¨ "IF", ec«¨ "ELSE" oâcyâcâ¢yeâ.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 2 ¨c¯o«ì§yeâcï ¤«ï ¯po¢epª¨
    ¯ap­ocâ¨ c«o¢ "IF" ("IFNOT") ¨ "THEN". a - a¤pec
    yªa§aâe«ï ¯epexo¤o¢ ¤«ï ¯ap­o£o "IF" ("IFNOT"). Teªyéee
    §­açe­¨e "HERE" ¯p¨ ¯o¬oé¨ c«o¢a ">RESOLVE" §a­oc¨âcï ¢
    yªa§aâe«ì ¯epexo¤a cooâ¢eâcâ¢yîée© o¯epaæ¨¨ "?BRANCH"
    ("N?BRANCH").
THRU          u1  u2  ->               83P
    �po¨§¢o¤¨â §a£py§ªy (¨­âep¯peâaæ¨î) íªpa­o¢ c u1 ¤o u2.
TIB           ->  a                    83
    a - a¤pec ¡yäepa ¢xo¤­o© câpoª¨ ¤«ï ¢¢o¤a c ª«a¢¨aâypë.
TIB.          ->
    ‚ë¤ âì á®¤¥à¦¨¬®¥ TIB, ¢ë¤¥«ïï ­¥£ â¨¢®¬ ®è¨¡®ç­ë© ãç áâ®ª.
TITLE         ->
    �eçaâì coo¡ée­¨ï, ¨¤e­â¨ä¨æ¨pyîée£o ”opâ-c¨câe¬y.
TYPE          a  #  ->                 83
    �eçaâaeâ # «¨âep, ­axo¤ïé¨xcï ¢ ¯a¬ïâ¨ ¯o a¤pecy a.
TOGGLE        a  b  ->
    K ¡a©ây ¯o a¤pecy a ¯p¨¬e­ïeâcï o¯epaæ¨ï "¨cª«îçaîéee
    ¨«¨" c ¡a©âo¬ b.
TUCK          u1  u2  ->  u2  u1  u2
    ‡­ ç¥­¨¥ ­  ¢¥àè¨­¥ áâ¥ª  ª®¯¨àã¥âáï ¯®¤ ¢â®à®¥ á¢¥àåã.
U.            u  ->                    83
    u ¯eçaâaeâcï ªaª ç¨c«o ¡e§ §­aªa ¢ c¢o¡o¤­o¬ äop¬aâe.
U.R           u1  u2  ->               83P
    �eçaâì ç¨c«a ¡e§ §­aªa u1 ¢ ¯o«e ¤«¨­ë u2.
U/            u1  u2  ->  u3
    u3 - çacâ­oe oâ ¤e«e­¨ï ç¨ce« ¡e§ §­aªa u1 ­a u2.
U/MOD         u1  u2  ->  u3  u4
    u3 - çacâ­oe ¨ u4 ocâaâoª oâ ¤e«e­¨ï ç¨ce« ¡e§ §­aªa
    u1 ­a u2.
U<            u1  u2  ->  ?            83
    ”«a¦oª - "¨câ¨­a", ec«¨ u1 ¬e­ìèe u2.
U>           u1  u2  ->  ?
    ”« ¦®ª - "¨áâ¨­ ", ¥á«¨ u1 ¡®«ìè¥ u2 .
ULOAD          u  ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              ULOAD <¨¬ï>
    Oâªpë¢aeâ äa©« "<¨¬ï>" ¨ ¨­âep¯peâ¨àã¥â íªpa­ c ­o¬epo¬ u.
    Ha câeªe ¢o§¢paâo¢  coxpa­ïeâcï cocâoï­¨e ¢xo¤­o£o ¯oâoªa.
    �epe¬e­­aï "BLK"  ¯p¨­¨¬aeâ §­açe­¨e u, ">IN"  o¡­y«ïeâcï.
    „a«ee ¢ë¯o«­ïeâcï c«o¢o "INTERPRET",ªoâopoe ¨­âep¯peâ¨pyeâ
    ¨cxo¤­ë©  âeªcâ  íªpa­a.  ˆ­âep¯peâaæ¨ï íªpa­a §a¢epèaeâcï
    «¨¡o  ¯o ¨cçep¯a­¨¨ ¨cxo¤­o£o âeªcâa íªpa­a,  «¨¡o ï¢­o  -
    ¯p¨ ¢ë¯o«­e­¨¨ c«o¢a,  ocâa­a¢«¨¢aîée£o ¨­âep¯peâaæ¨î, ­a-
    ¯p¨¬ep ";S".  �o oªo­ça­¨¨ ¨­âep¯peâaæ¨¨ íªpa­a ¢occâa­a¢-
    «¨¢aeâcï cocâoï­¨e ¯pe¦­e£o ¢xo¤­o£o ¯oâoªa.
UM*          u1  u2  ->  ud                83
    ud - 32-à §àï¤­®¥ ¯à®¨§¢¥¤¥­¨¥ ¡¥§ §­ ª  u1 ­  u2 .
UM/MOD        ud  u1  ->  u2  u3       83
    u2 - ocâaâoª, a u3 - ­¨¦­ïï £pa­¨æa çacâ­o£o oâ ¤e«e­¨ï
    ud ­a u1.
UNSMUDGE      ->
    ˆc¯o«ì§yeâcï c«o¢a¬¨ ";" ¨ "END-CODE". „e«aeâ âeªyéee
    o¯pe¤e«e­¨e ¤ocây¯­ë¬ ¤«ï ¯o¨cªa, ycâa­a¢«¨¢aï ¢ ­o«ì
    âpeâ¨© ¯o câapè¨­câ¢y ¡¨â ¢ ¡a©âe ¤«¨­ë ¯o«ï ¨¬e­¨.
    ˆc¯o«ì§yeâcï ¢ ¯poâ¨¢o¢ec c«o¢y "SMUDGE".
UNTIL         ?  ->                K,H,83
    Ko¬¯-¨ï:  a  1  ->
    C«o¢apì:  ?BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨¨ c«o¢ ¢ ¢¨¤e:
              BEGIN ... ä«a¦oª UNTIL
    �o¢âopïeâ ¨«¨ §a¢epèaeâ æ¨ª« ¢ §a¢¨c¨¬ocâ¨ oâ §­açe­¨ï
    ä«a¦ªa. Ec«¨ ä«a¦oª pa¢e­ ­y«î ("«o¦ì"), âo ¨c¯o«­ïîâcï
    c«o¢a ¯oc«e "BEGIN". B ¯poâ¨¢­o¬ c«yçae - c«o¢a ¯oc«e
    "UNTIL".
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 1 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "BEGIN" ¨ "UNTIL". a - a¤pec ­aça«a
    æ¨ª«a, ocâa¢«e­­ë© "BEGIN". ‡­açe­¨e a §a­oc¨âcï ¢
    yªa§aâe«ì ¯epexo¤a o¯epaæ¨¨ "?BRANCH".
UPDATE        ->                       83
    Teªyé¨© ¡«oç­ë© ¡yäep oâ¬eçaeâcï ªaª ¨§¬e­e­­ë©.
    Oâ¬eçe­­ëe âaª¨¬ o¡pa§o¬ ¡«oª¨ ¡y¤yâ ¢¯oc«e¤câ¢¨¨
    a¢âo¬aâ¨çecª¨ ¯epe­ece­ë ¢o ¢­eè­îî ¯a¬ïâì, ec«¨ ¨x
    ¡yäepa ¯oâpe¡yîâcï ¤«ï xpa­e­¨ï ¤py£o£o ¡«oªa ¨«¨ ec«¨
    ¡y¤eâ ¨c¯o«­e­o "FLUSH" ¨«¨ "SAVE-BUFFERS".
USE           ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec §a£o«o¢ªa ¡yäepa, ªoâopë©
    ¡y¤eâ ¨c¯o«ì§o¢aâìcï ¯p¨ c«e¤yîée¬ ¢ë¯o«­e­¨¨ c«o¢
    "BLOCK" ¨«¨ "BUFFER".
USER          ->  a                    83H
    Co§¤a­¨e: u  ->
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï ¯o«ì§o¢aâe«ìcªo©
    ¯epe¬e­­o©. Ka¦¤aï §a¤aça ¨¬eeâ co¡câ¢e­­oe §­açe­¨e
    ¯o«ì§o¢aâe«ìcªo© ¯epe¬e­­o©, ¯oíâo¬y âaªaï ¯epe¬e­­aï
    ¬o¦eâ ¨c¯o«ì§o¢aâìcï ¢ c«o¢ax, yçacâ¢yîé¨x o¤­o¢pe¬e­­o
    ¢ ­ecªo«ìª¨x ¯apa««e«ì­o ¨¤yé¨x ¢ëç¨c«e­¨ïx.
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              u  USER  <¨¬ï>
    �p¨ co§¤a­¨¨ ¯epe¬e­­o© "USER" ­a câeªe ¯o«yçaeâ c¬eée-
    ­¨e ¯epe¬e­­o© oâ ­aça«a ¯o«ì§o¢aâe«ìcªo© o¡«acâ¨ §a¤a-
    ç¨. C¬eée­¨e u §a¤aeâcï ¢ ¡a©âax. B ¤a«ì­e©èe¬, ¯p¨
    ¢ë¯o«­e­¨¨ <¨¬e­¨>, a¤pec ¯o«ì§o¢aâe«ìcªo© ¯epe¬e­­o©,
    ¢ëç¨c«e­­ë© ¯yâe¬ ¤o¡a¢«e­¨ï c¬eée­¨ï u ª a¤pecy
    ¯o«ì§o¢aâe«ìcªo© o¡«acâ¨ âeªyée© §a¤aç¨, ¡y¤eâ ¯o¬eée­
    ­a câeª.
USING         ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              USING <¨¬ï>
    Oâªpë¢aeâ äa©« "<¨¬ï>" ¤«ï câa­¤apâ­ëx o¯epaæ¨© c
    íªpa­­ë¬¨ äa©«a¬¨.
UTHRU          u1 u2 ->
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              UTHRU <¨¬ï>
    Oâªpë¢aeâ äa©« "<¨¬ï>" ¨ ¯po¨§¢o¤¨â §a£py§ªy (¨­âep¯peâaæ¨î)
    íªpa­o¢ c u1 ¤o u2. ‘p. THRU ¨ ULOAD.
VARIABLE      ->  a                      83
    ‘®§¤ ­¨¥:  ->
    Ž¯à¥¤¥«ïîé¥¥ á«®¢® ¤«ï á®§¤ ­¨ï ¯¥à¥¬¥­­®©.
    ˆá¯®«ì§ã¥âáï ¢ ¢¨¤¥
                  VARIABLE  <¨¬ï>
    ‚ ¤ «ì­¥©è¥¬, ¯à¨ ¢ë¯®«­¥­¨¨ <¨¬¥­¨>,  ¤à¥á ¥£® ¯®«ï
    ¯ à ¬¥âà®¢ ¡ã¤¥â ¯®¬¥é¥­ ­  áâ¥ª.
VB            -> a
    ’à¥å¡ ©â­®¥ ¯®«¥: ¯¥à¢ë¥ ¤¢  ¡ ©â  -  ¤à¥á ¢¨¤¥®¯ ¬ïâ¨;
    âà¥â¨© - ¢¨¤¥® âà¨¡ãâë.
VBI     ->
    ˆ­¨æ¨ «¨§ æ¨ï ¡«®ª  ¢¨¤¥®¯ à ¬¥âà®¢ VB.
VECT          ->  pe§y«ìâaâ ¢ë¯o«­e­¨ï
    Co§¤a­¨e: ->
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨
              ¯o«e ªo¤a-1  ¯o«e ªo¤a-2  ¯o«e ªo¤a-3
              2 ¡a©âa ¯o¤ §­açe­¨e
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï c«o¢ c ¨§¬e­ïe¬ë¬
    §­açe­¨e¬. ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              VECT <¨¬ï>
    Co§¤aeâ c«o¢ap­yî câaâìî ¤«ï c«o¢a <¨¬ï>. �p¨ ¨c¯o«­e­¨¨
    <¨¬e­¨> ¢ë¯o«­¨âcï c«o¢o, a¤pec ªoâopo£o xpa­¨âcï ¢ ¯o«e
    ¯apa¬eâpo¢ <¨¬e­¨>. „«ï ¨§¬e­e­¨ï §­açe­¨ï <¨¬e­¨>
    ¨c¯o«ì§yeâcï c«o¢o "IS" c«e¤yîé¨¬ o¡pa§o¬:
              a  IS  <¨¬ï>
    a - a¤pec ¯o«ï ªo¤a c«o¢a, ªoâopoe ¡y¤eâ âe¯epì
    ¢ë¯o«­ïâìcï ¯p¨ ¢ë§o¢e <¨¬e­¨>. Ec«¨ ¯epe¤ <¨¬e­e¬> câo-
    ¨â c«o¢o "AT", âo ­a câeª ¡y¤eâ ¯o¬eée­ a¤pec e£o ¯o«ï
    ¯apa¬eâpo¢.
VOC-LINK      ->  a
    �epe¬e­­aï, co¤ep¦aéaï a¤pec ¯o«ï, çepe§ ªoâopoe ¢ce
    c«o¢a â¨¯a "VOCABULARY" c¢ï§a­ë ¢ æe¯­o© c¯¨coª.
    C«o¢a â¨¯a "VOCABULARY" ¯o¤¢ï§ë¢aîâcï ª íâo¬y c¯¨cªy
    ¯o ¬epe ¨x co§¤a­¨ï (c¬. "VOCABULARY"). �epe¬e­­aï
    "VOC-LINK" co¤ep¦¨â a¤pec ¯o«ï c¢ï§¨ íâo£o c¯¨cªa ¤«ï
    ¯oc«e¤­e£o ¯o ¢pe¬e­¨ co§¤a­¨ï c«o¢a â¨¯a "VOCABULARY".
VOCABULARY    ->                       83
    Co§¤a­¨e: ->
    C«o¢apì:  ¯o«e ¨¬e­¨  ¯o«e c¢ï§¨  ¯o«e ªo¤a
              ä¨ªâ¨¢­oe ¨¬ï (2 ¡a©âa)
              a¤pec ¯oc«e¤­e© câaâì¨ (2 ¡a©âa)
              ¯o«e c¢ï§¨ c¯¨cªo¢ (2 ¡a©âa)
    O¯pe¤e«ïîéee c«o¢o ¤«ï co§¤a­¨ï c¯¨cªa c«o¢.
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e
              VOCABULARY <¨¬ï>
    �p¨ ¯oc«e¤yîé¨x ¨c¯o«­e­¨ïx <¨¬e­¨> íâoâ c¯¨coª
    câa­o¢¨âcï ¯ep¢ë¬ ¢ ¯opï¤ªe ¯o¨cªa.
        ”¨ªâ¨¢­oe ¨¬ï, pac¯o«o¦e­­oe ¢ ¯o«e ¯apa¬eâpo¢,
    ¯pe¤câa¢«ïeâ co¡o© câpoªy co cçeâç¨ªo¬, cocâoïéyî ¨§
    o¤­o£o ¯po¡e«a (âaªoe c«o¢o ­e«ì§ï ¢¢ecâ¨ c âep¬¨­a«a).
        C«e¤yîéee ¯o«e co¤ep¦¨â a¤pec ¯oc«e¤­e© câaâì¨.
    �ep¢o­aça«ì­o íâo a¤pec ä¨ªâ¨¢­o£o ¨¬e­¨ c«o¢apï
    ªo¬¯¨«ïæ¨¨ ¨«¨ ­o«ì, ec«¨ c«o¢ape¬ ªo¬¯¨«ïæ¨¨ ï¢«ïeâcï
    c«o¢apì "FORTH". �p¨ âaªo© pea«¨§aæ¨¨ ¢ce c«o¢a ¨§
    ªo­âeªcâa ¢«o¦e­­ëx ¤py£ ¢ ¤py£a c«o¢ape© oªa§ë¢aîâcï
    c¢ï§a­­ë¬¨ ¢ o¤­y æe¯oçªy, §aªa­ç¨¢aîéyîcï c«o¢ape¬
    "FORTH". A¤pec yªa§a­­o£o ¯o«ï §a­oc¨âcï ¢ ¯epe¬e­­yî
    "CONTEXT" ¯p¨ ¨c¯o«­e­¨¨ <¨¬e­¨>. C«o¢ap­ëe câaâì¨
    co§¤aîâcï âaª¨¬ o¡pa§o¬, çâo a¤pec ªa¦¤o© ¢­o¢ì co§¤a­-
    ­o© câaâì¨ ¡y¤eâ §a­oc¨âìcï ¢ íâo ¯o«e, a ¯pe¦­ee §­açe-
    ­¨e ¯o«ï ¡y¤eâ ªo¯¨po¢aâìcï ¢ ¯o«e c¢ï§¨ co§¤a­­o©
    câaâì¨.
        �o«e c¢ï§¨ c¯¨cªo¢ co¤ep¦¨â a¤pec ¯o«ï c¢ï§¨ c¯¨cªo¢
    ¯à¥¤ë¤ãé¥£® ¯® ¢à¥¬¥­¨ á®§¤ ­¨ï á¯¨áª .
VTYPE     a # ->
    �ëáâàë© TYPE - § ¯¨áì ¢ ¢¨¤¥®¯ ¬ïâì á â¥ªãé¥© ¯®§¨æ¨¨
    ¡¥§ ª®­âà®«ï ­  ª®­¥æ íªà ­  ¨ ¡¥§ áªà®««¨­£ .
WAIT          ->  a
    ˆá¯®«ì§ã¥âáï ¢ ¬­®£®§ ¤ ç­®¬ à¥¦¨¬¥. a -  ¤à¥á  áá¥¬¡«¥à-
    ­®© ¯à®£à ¬¬ë, à¥ «¨§ãîé¥© äã­ªæ¨î "STOP". …á«¨  áá¥¬¡-
    «¥à­®¥ á«®¢® § ª ­ç¨¢ ¥âáï ¯¥à¥å®¤®¬ ­  "WAIT", â® ¯®á«¥
    ¨á¯®«­¥­¨ï íâ®£® á«®¢  ¡ã¤¥â ¢ë¯®«­¥­® á«®¢® "STOP".
WARNING       ->  a
    �epe¬e­­aï, ªoâopaï c«y¦¨â ¤«ï y¯pa¢«e­¨ï ¢ë¤açe©
    ¯pe¤y¯pe¦¤e­¨© o ¯o¢âop­o¬ o¯pe¤e«e­¨¨ c«o¢.
    �pe¤y¯pe¦¤e­¨ï ¢ë¤aîâcï, ec«¨ íâa ¯epe¬e­­aï
    co¤ep¦¨â ­e­y«e¢oe §­açe­¨e.
WHILE         ?  ->                K,H,83
    Ko¬¯-¨ï:  a1  1  ->  a1  1  a2  4
    C«o¢apì:  ?BRANCH  yªa§aâe«ì ¯epexo¤a
    ˆc¯o«ì§yeâcï ¢ o¯pe¤e«e­¨ïx c«o¢ ¢ ¢¨¤e:
              BEGIN ...ä«a¦oª WHILE ... REPEAT
    �o¢âopïeâ ¨«¨ §a¢epèaeâ æ¨ª« ¢ §a¢¨c¨¬ocâ¨ oâ §­açe­¨ï
    ä«a¦ªa. Ec«¨ §­açe­¨e ä«a¦ªa oâ«¨ç­o oâ ­y«ï ("¨câ¨­a"),
    âo æ¨ª« ¯o¢âopïeâcï (¢ë¯o«­ïîâcï c«o¢a ¬e¦¤y "WHILE" ¨
    "REPEAT", §aâe¬ ¬e¦¤y "BEGIN" ¨ "WHILE"). Ec«¨ §­açe­¨e
    ä«a¦ªa - ­o«ì ("«o¦ì"), âo c«o¢a ¬e¦¤y "WHILE" ¨ "REPEAT"
    ¯po¯ycªaîâcï ¨ æ¨ª« §a¢epèaeâcï.
    Bo ¢pe¬ï ªo¬¯¨«ïæ¨¨ §­açe­¨e 1 ¨c¯o«ì§yeâcï ¤«ï ªo­âpo«ï
    ¯ap­ocâ¨ c«o¢ "BEGIN" ¨ "REPEAT". a1 - a¤pec ­aça«a
    æ¨ª«a. a2 - a¤pec yªa§aâe«ï ¯epexo¤a ­a ªo­eæ æ¨ª«a,
    ocâa¢«e­­ë© c«o¢o¬ "WHILE". ‡­açe­¨e 4 ¨c¯o«ì§yeâcï
    ¤«ï ªo­âpo«ï ¯ap­ocâ¨ c«o¢ "WHILE" ¨ "REPEAT".
WORD          c  ->  a                 83
    �opo¦¤aeâ câpoªy co cçeâç¨ªo¬, ¢oc¯p¨­¨¬aï «¨âepë ¨§
    ¢xo¤­o£o ¯oâoªa ¤o âex ¯op, ¯oªa ­e ¢câpeâ¨âcï «¨âepa-
    pa§¤e«¨âe«ì c ¨«¨ ­e ¡y¤eâ ¨cçep¯a­ ¢xo¤­o© ¯oâoª.
    Haça«ì­ëe pa§¤e«¨âe«¨ ¯po¯ycªaîâcï. Bcï «¨âep­aï câpoªa
    coxpa­ïeâcï ¢ ¯a¬ïâ¨ ¯o a¤pecy a ªaª ¯oc«e¤o¢aâe«ì­ocâì
    ¡a©âo¢. Câpoªa §a¢epèaeâcï ¯po¡e«o¬, ªoâopë© ­e
    ¢ª«îçaeâcï ¢ cçeâç¨ª. Ec«¨ ¯p¨ ¢ë§o¢e WORD ¢xo¤­o© ¯oâoª
    y¦e ¨cçep¯a­, âo pe§y«ìâaâo¬ ï¢«ïeâcï câpoªa ­y«e¢o©
    ¤«¨­ë. Ec«¨ pa§¤e«¨âe«ì ­e ­a©¤e­, âo §­açe­¨e¬ ">IN"
    ï¢«ïeâcï pa§¬ep ¢xo¤­o£o ¯oâoªa. Ec«¨ pa§¤e«¨âe«ì ­a©¤e­,
    âo ">IN" ¨§¬e­ïeâcï âaª, çâo yªa§ë¢aeâ ­a c¬eée­¨e
    «¨âepë, c«e¤yîée© §a pa§¤e«¨âe«e¬. "#TIB" ­e ¨§¬e­ïeâcï.
    Câpoªa co cçeâç¨ªo¬, ªoâopyî ¢o§¢paéaeâ "WORD", ¬o¦eâ
    ­axo¤¨âìcï ¢ "­e§aé¨ée­­o©" o¡«acâ¨ c«o¢apï, ¯o a¤pecy
    "HERE". C«e¤yeâ ¨¬eâì ¢ ¢¨¤y, çâo âeªcâo¢ë© ¨­âep¯peâa-
    âop ¬o¦eâ âo¦e ¨c¯o«ì§o¢aâì íây o¡«acâì.
WORDS         ->                       83H
    Pac¯eçaâªa ¨¬e­ c«o¢ap­ëx câaâe© c¯¨cªa ªo¬¯¨«ïæ¨¨.
    �eçaâaîâcï ¢ce ¨¬e­a, ¢ª«îçaï ¨¬e­a ­e§aªo­çe­­ëx
    o¯pe¤e«e­¨©.
WRITE-CR     n  ->
    ‚ë¤ ç  á¨¬¢®«®¢ '‚Š' ¨ '�‘' ¢ ä ©« á àãª®ïâª®© n.
WRITE-FILE    a # n -> #1
    ‡ ¯¨áì ¨§ ¡ãä¥à  a ¤«¨­ë # ¢ ä ©« á àãª®ïâª®© n.
    #1 - cª®«ìª® § ¯¨á ­® ¢ ä ©«.
XOR           n1  n2  ->  n3           83
    n3 - ¯opa§pï¤­oe ¨cª«îçaîéee "¨«¨" n1 ¨ n2.
XY@           -> n1 n2
    Š®®à¤¨­ âë ªãàá®à : n1 - ­®¬¥à ¯®§¨æ¨¨, n2 - ­®¬¥à áâà®ª¨ á¢¥àåã.
[             ->                     H,83
    “câa­a¢«¨¢aeâ pe¦¨¬ ¨­âep¯peâaæ¨¨. �oc«e¤yîé¨© âeªcâ ¨§
    ¢xo¤­o£o ¯oâoªa ¨­âep¯peâ¨pyeâcï.
[']           ->  a                K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  LIT  a¤pec ªo¬¯¨«ïæ¨¨
    ˆc¯o«ì§yeâcï ¢ pe¦¨¬e ªo¬¯¨«ïæ¨¨ ¢ ¢¨¤e:
              ['] <¨¬ï>
    Ko¬¯¨«¨pyeâ a¤pec ªo¬¯¨«ïæ¨¨ c«o¢a <¨¬ï> ªaª «¨âepa«.
    �p¨ ¯oc«e¤yîée¬ ¨c¯o«­e­¨¨ a¤pec ¡y¤eâ ¯o¬eée­ ­a câeª.
[COMPILE]     ->                   K,H,83
    Ko¬¯-¨ï:  ->
    C«o¢apì:  a¤pec ªo¬¯¨«ïæ¨¨
    ˆc¯o«ì§yeâcï ¢ ¢¨¤e:
              [COMPILE] <¨¬ï>
    Bë§ë¢aeâ ¯p¨­y¤¨âe«ì­yî ªo¬¯¨«ïæ¨î c«o¢a <¨¬ï>. �âo
    ¯o§¢o«ïeâ ¢ë¯o«­ïâì ªo¬¯¨«ïæ¨î c«o¢a ­e¬e¤«e­­o£o
    ¨c¯o«­e­¨ï, ªoâopoe ¨­açe ¡ë«o ¡ë ¨c¯o«­e­o.
[MARK  (¯¥à¥¬¥­­ ï)
    ‹¥¢ ï £à ­¨æ  ®è¨¡®ç­®£® á«®¢  ¢® ¢å®¤­®¬ ¯®â®ª¥.
[mark  (¯¥à¥¬¥­­ ï)
    ‹¥¢ ï £à ­¨æ  ®è¨¡®ç­®£® á«®¢  ¢ â¥ªãé¥© áâà®ª¥.
[MARK]     a  ->
    ‚ë¤¥«¨âì £à ­¨æë á«®¢  ¢ ¡ãä¥à¥ a, ­  ª®â®à®¥ ãª §ë¢ ¥â
    ãª § â¥«ì >IN. �¥§ã«ìâ â - ¯¥à¥¬¥­­ë¥ [MARK ¨ MARK].
]             ->                       83
    “câa­a¢«¨¢aeâ cocâoï­¨e ªo¬¯¨«ïæ¨¨. „a«ì­e©è¨© âeªcâ ¨§
    ¢xo¤­o£o ¯oâoªa ªo¬¯¨«¨pyeâcï.
H�K ”OPT-ˆH”O
    � ãç­®-¯à®¨§¢®¤áâ¢¥­­ë© ª®®¯¥à â¨¢ ”Ž�’-ˆ�”Ž á®§¤ ­ ¢¥á­®© 1988 £.
    «ãçè¨¬¨ ¯à®£à ¬¬¨áâ ¬¨ £®à®¤  ‹¥­¨­£à ¤  ¤«ï ¯à®¯ £ ­¤ë «ãçè¥£®
    ï§ëª  ¯à®£à ¬¬¨à®¢ ­¨ï - ä®àâ . �  25.05.1990 ¢ ”Ž�’-ˆ�”Ž à ¡®â ¥â
    48 ç¥«®¢¥ª ¢ ç¥âëà¥å £®à®¤ å �®áá¨¨ ¨ �áâ®­¨¨.
    � è  ¤à¥á:    197101  ‹¥­¨­£à ¤, �®«ìè®© ¯à. �‘, ¤.59
    â¥«¥ä®­:   (812) 233-3410
”OPT-ˆH”O
    � ãç­®-¯à®¨§¢®¤áâ¢¥­­ë© ª®®¯¥à â¨¢ ”Ž�’-ˆ�”Ž á®§¤ ­ ¢¥á­®© 1988 £.
    «ãçè¨¬¨ ¯à®£à ¬¬¨áâ ¬¨ £®à®¤  ‹¥­¨­£à ¤  ¤«ï ¯à®¯ £ ­¤ë «ãçè¥£®
    ï§ëª  ¯à®£à ¬¬¨à®¢ ­¨ï - ä®àâ . �  25.05.1990 ¢ ”Ž�’-ˆ�”Ž à ¡®â ¥â
    48 ç¥«®¢¥ª ¢ ç¥âëà¥å £®à®¤ å �®áá¨¨ ¨ �áâ®­¨¨.
    � è  ¤à¥á:    197101  ‹¥­¨­£à ¤, �®«ìè®© ¯à. �‘, ¤.59
    â¥«¥ä®­:   (812) 233-3410

’¥¬ â¨ç¥áª¨© ¨­¤¥ªá

 CTEK
 CˆCTEM› C—ˆC‹EHˆŸ
 APˆ”METˆ—ECKˆE ˆ ‹Oƒˆ—ECKˆE O�EPA–ˆˆ
 CPABHEHˆŸ
 PA�OTA C �AMŸTœž
 CTPOKˆ ‘ˆŒ‚Ž‹Ž‚
 ”OPMATˆ‡A–ˆŸ B›BO„A —ˆCE‹
 BBO„-B›BO„
 „ˆ‘�‹…‰
 ˆH”OPMA–ˆŸ O ”OPT-CˆCTEME
 �PEO�PA‡OBAHˆE A„PECOB �O‹E‰ CTATœˆ
 CTP“KT“P› “�PAB‹EHˆŸ
 O�PE„E‹EHˆE HOB›X C‹OB
 ‘…ƒŒ…�’ ˆŒ…�
 �OPŸ„OK �OˆCKA
 KOM�ˆ‹Ÿ–ˆŸ - ˆC�O‹HEHˆE
 KOHTPO‹œ COCTOŸHˆŸ CTEKA
 TEKCTOB›‰ ˆHTEP�PETATOP
 ABAPˆ‰H›E B›XO„› ˆ COO�™EHˆŸ
 CˆCTEMH›E C‹OBA
 �‹ŽŠˆ ‚�…˜�…‰ �€ŒŸ’ˆ
 ”€‰‹›
 Œ�ŽƒŽ‡€„€—�›‰ �…†ˆŒ
 ACCEM�‹EP
 Câàãªâãà  ®¯à¥¤¥«¥­¨ï ç¥à¥§ ':'

CTEK

 -ROT      n1 n2 n3 -> n3 n1 n2 ¯epecâa­o¢ªa âà¥å ç¨á¥«
 ?DUP      n -> n n / 0         ¤y¡«¨po¢aâì n, ec«¨ n ­e 0
 2DROP     d ->                 c­ïâì ¤¢o©­oe ç¨c«o
 2DUP      d  -> d d            ¤y¡«¨po¢aâì ¤¢o©­oe ç¨c«o
 2OVER     d1 d2 -> d1 d2 d1    ªo¯¨po¢aâì ¢âopoe c¢epxy ¤¢o©­oe ç¨c«®
 2ROT      d1 d2 d3 -> d2 d3 d1 ¯epecâa­o¢ªa âà¥å ¤¢®©­ëå ç¨á¥«
 2SWAP     d1 d2 -> d2 d1       ¯o¬e­ïâì ¬ecâa¬¨ ¤¢a ¤¢o©­ëx ç¨á« 
 >R        n ->                 ¯o¬ecâ¨âì ç¨c«o ­a câeª ¢o§¢paâo¢
 DEPTH     -> n                 ocâa¢¨âì ç¨c«o í«e¬e­âo¢ ¢ câeªe
 DROP      n ->                 c­ïâì ç¨c«o co câeªa
 DUP       n -> n n             ¤y¡«¨po¢aâì ç¨c«o
 NIP       n1 n2 -> n2          c­ïâì ¢âopoe c¢epxy ç¨c«o
 NOOP        ->                 ¯ãáâ ï ®¯¥à æ¨ï
 OVER      n1 n2 -> n1 n2 n1    ªo¯¨po¢aâì 2-e c¢epxy ç¨c«o
 PICK      u -> n1              ªo¯¨po¢aâì u-e ç¨c«o
 R0        -> a                 ¯epe¬e­­aï - ­aça«o câeªa ¢o§¢paâo¢
 R@        -> n                 ªo¯¨po¢aâì ç¨c«o co câeªa ¢o§¢paâo¢
 R>        -> n                 ¯o¬ecâ¨âì ç¨c«o co câeªa ¢o§¢paâo¢
 RDROP     ->                   c­ïâì co câeªa ¢o§¢paâo¢
 ROLL      u -> n2              æ¨ª«¨çecªaï ¯epecâa­o¢ªa u-£o
                                í«e¬e­âa ­a ¢epè¨­y câeªa
 ROT       n1 n2 n3 -> n2 n3 n1 æ¨ª«¨çecªaï ¯epecâa­o¢ªa 3-£o
                                í«e¬e­âa ­a ¢epè¨­y
 RP!       a ->                 ycâa­o¢ªa ãª § â¥«ï áâ¥ª  ¢o§¢paâo¢
 RP@         -> n               §­ ç¥­¨¥ ãª § â¥«ï áâ¥ª  ¢®§¢à â®¢
 S-ALLOT   n ->                 ®â¢¥áâ¨ n ¡ ©â ¢ câ¥ª®¢®¬ á¥£¬¥­â¥
 S-DP        -> a               ¯¥à¥¬¥­­ ï -  ¤pec á¢®¡.ïçe©ª¨ ¢
                                áâ¥ª®¢®¬ á¥£¬¥­â¥
 S0          -> a               ¯¥à¥¬¥­­ ï - ­ ç «® áâ¥ª 
 SP!       a ->                 ãáâ ­®¢ª  ãª § â¥«ï áâ¥ª 
 SP@         -> n               §­ ç¥­¨¥ ãª § â¥«ï áâ¥ª 
 SS@         -> seg              ¤à¥á áâ¥ª®¢®£® á¥£¬¥­â 
 SWAP      n1 n2  -> n2 n1      ¯®¬¥­ïâì ¬¥áâ ¬¨ ¤¢  ç¨á« 
 TUCK      n1 n2  -> n2 n1 n2   áª®¯¨à®¢ âì ¢¥àå­¥¥ ç¨á«® ¯®¤ ¢â®à®¥

CˆCTEM› C—ˆC‹EHˆŸ

 BASE      -> a      ¯epe¬e­­aï - oc­o¢a­¨e âeªyée© c¨câe¬ë
                     cç¨c«e­¨ï
 DECIMAL   ->        ycâa­o¢¨âì ¤ecïâ¨ç­yî c¨câe¬y cç¨c«e­¨ï
 HEX       ->        ycâa­o¢¨âì 16-p¨ç­yî c¨câe¬y cç¨c«e­¨ï
 OCTAL     ->        ycâa­o¢¨âì 8-p¨ç­yî c¨câe¬y cç¨c«e­¨ï
                     (¤«ï Š1801)

APˆ”METˆ—ECKˆE ˆ ‹Oƒˆ—ECKˆE O�EPA–ˆˆ

 *         n1 n2 -> n3         y¬­o¦e­¨e
 */        n1 n2 n3 -> n4      n4 =n1*n2/n3
 */MOD     n1 n2 n3 -> n4 n5   n5=n1*n2/n3 n4=ocâaâoª
 +         n1 n2 -> n3         c«o¦e­¨e
 -         n1 n2 -> n3         ¢ëç¨âa­¨e
 -1        -> -1               ªo­câa­âa -1
 /         n1 n2 -> n3         ¤e«e­¨e
 /MOD      n1 n2 -> n3 n4      n4=n1/n2 n3=ocâaâoª
 0         -> 0                ªo­câa­âa 0
 1         -> 1                ªo­câa­âa 1
 1+        n1 -> n2            y¢e«¨çe­¨e ­a 1
 1-        n1 -> n2            y¬e­ìèe­¨e ­a 1
 2         -> 2                ªo­câa­âa 2
 2*        n1 -> n2            y¬­o¦e­¨e ­a 2
 2+        n1 -> n2            y¢e«¨çe­¨e ­a 2
 2-        n1 -> n2            y¬e­ìèe­¨e ­a 2
 2/        n1 -> n2            ¤e«e­¨e ç¨c«a co §­aªo¬ ­a 2
 =CELLS    a1 -> a2            ¢ëpa¢­¨¢a­¨e ­a 2 (¤«ï Š1801)
 ><        n1 -> n2            ¯epecâa­o¢ªa ¬«a¤èe£o ¨ câapèe£o ¡a©âo¢
 ABS       n1 -> n2            a¡co«îâ­aï ¢e«¨ç¨­a
 AND       n1 n2 -> n3         «o£¨çecªoe "¨"
 D+        d1 d2 -> d3         c«o¦e­¨e ¤¢o©­ëx ç¨ce«
 D-        d1 d2 -> d3         ¢ëç¨â ­¨e ¤¢o©­ëx ç¨ce«
 D2/       d1 -> d2            ¤¥«¥­¨¥ ¤¢®©­®£® ç¨á«  ­  2
 DABS      d1 -> d2            a¡co«îâ­aï ¢e«¨ç¨­a ¤¢o©­o£o ç¨c«a
 DNEGATE   d1 -> d2            ¨§¬e­e­¨e §­aªa ¤¢o©­o£o ç¨c«a
 M*        n1 n2 -> d          32-x pa§pï¤­oe ¯po¨§¢e¤e­¨e n1 ¨ n2
 M/        d n1 -> n2          ¤e«e­¨e 32-x pa§pï¤­o£o ç¨c«a
                               co §­aªo¬ ­a 16-pa§pï¤­oe
 M/MOD     d n1 -> n2 n3       ¤e«e­¨e c ocâaâªo¬ 32-pa§pï¤­®£®
                               ç¨c«a co §­aªo¬ ­a 16-pa§pï¤­®¥
                               n3 - çacâ­oe n2 - ocâaâoª
 MAX       n1 n2 -> n3         ¡o«ìèee ç¨c«o
 MIN       n1 n2 -> n3         ¬e­ìèee ç¨c«o
 MOD       n1 n2 -> n3         ocâaâoª oâ ¤e«e­¨ï n1 ­a n2
 MU/MOD    ud1 u1 -> u2 ud2    ¤e«e­¨e c ocâaâªo¬ 32-pa§pï¤.
                               ç¨c«a ¡e§ §­aªa, çacâ­oe -
                               32-pa§pï¤­oe ç¨c«o ¡e§ §­aªa
 NEGATE      n1 -> n2          ¨§¬¥­¨âì §­ ª ç¨á« 
 NOT         n1 -> n2          «®£¨ç¥áª®¥ "­¥"
 OR        n1 n2 -> n3         «®£¨ç¥áª®¥ "¨«¨"
 ROTATE    u n  -> u1          «o£¨ç¥áª¨© c¤¢¨£ u ­a n ¡¨â á ¯¥à¥­®á®¬;
                               ¯à¨ n<0 á¤¢¨£ ¢¯pa¢o
 S>D         n  ->  d          à áè¨à¥­¨¥ ç¨á«  á® §­ ª®¬ ¤® ¤¢®©­®£®
 SHIFT     u n  -> u1          «o£¨ç. c¤¢¨£ u ­a n ¡¨â; n<0 - ¢¯pa¢o
 U/        u1 u2 -> u3         ¤e«e­¨e ç¨ce« ¡e§ §­aªa
 U/MOD     u1 u2 -> u3 u4      ¤e«e­¨e c ocâaâªo¬ ç¨á¥« ¡¥§ §­aªa;
                               u4 - ç áâ­®¥, u3 - ocâaâoª
 UM*       u1 u2 -> ud         32-x pa§pï¤­oe ¯po¨§¢e¤e­¨e
                               ç¨ce« ¡e§ §­aªa
 UM/MOD    ud u1 -> u2 u3      ¡e§§­aªo¢oe ¤e«e­¨e c ocâaâªo¬
                               32-pa§pï¤. ç¨c«a ­a 16-pa§pï¤. ç¨á«®;
                               u3 - ç áâ­®¥, u2 - ocâaâoª
 XOR       n1 n2 -> n3         ¯opa§pï¤­oe ¨cª«îçaîéee "¨«¨"

CPABHEHˆŸ

 0<        n -> ?        ¨câ¨­a, ec«¨ n<0
 0<>       n -> ?        ¨câ¨­a, ec«¨ n ­¥ à ¢­® 0
 0=        n -> ?        ¨câ¨­a, ec«¨ n=0
 0>        n -> ?        ¨câ¨­a, ec«¨ n>0
 <         n1 n2 -> ?    ¨câ¨­a, ec«¨ n1<n2
 <>        n1 n2 -> ?    ¨câ¨­a, ec«¨ n1 ­e pa¢­o n2
 =         n1 n2 -> ?    ¨câ¨­a, ec«¨ n1 = n2
 >         n1 n2 -> ?    ¨câ¨­a, ec«¨ n1 > n2
 D<        d1 d2 -> ?    ¨câ¨­a, ec«¨ d1 < d2
 D>        d1 d2 -> ?    ¨câ¨­a, ec«¨ d1 > d2
 D=        d1 d2 -> ?    ¨câ¨­a, ec«¨ d1 = d2
 DU<     ud1 ud2 -> ?    ¨câ¨­a, ec«¨ ud1 < ud2
 U<        u1 u2 -> ?    ¨câ¨­a, ec«¨ u1 < u2
 U>        u1 u2 -> ?    ¨áâ¨­ , ¥á«¨ u1 > u2

PA�OTA C �AMŸTœž

 !         n a ->      §a¯o¬­¨âì ç¨c«o ¯o a¤pecy
 !L    n seg a ->      § ¯®¬­¨âì ç¨á«® ¯® ¤«¨­­®¬ã  ¤à¥áã
 ",        a ->        ªo¬¯¨«ïæ¨ï câpoª¨ co cçeâç¨ªo¬
 +!        n a ->      y¢e«¨ç¨âì ç¨c«o ¯o a¤pecy ­a n
 ,         n ->        cªo¬¯¨«¨po¢aâì 16-pa§pï¤­®¥ §­açe­¨e
 0!        a ->        ¯o¬ecâ¨âì 0 ¯o a¤pecy
 1+!       a ->        y¢e«¨ç¨âì ç¨c«o ¯o a¤pecy ­a 1
 2!        d a ->      ¯o¬ecâ¨âì ¤¢o©­oe ç¨c«o ¯o a¤pecy
 2@        a -> d      ¢§ïâì ¤¢o©­oe ç¨c«o ¯o a¤pecy
 2LFILL  seg a # n1 -> § ¯®«­¥­¨¥ # á«®¢ §­ ç¥­¨¥¬ n1
 ALIGN       ->        ¢ëà ¢­¨¢ ¥â DP ­  ç¥â­®¥ §­ ç¥­¨¥
 @         a -> n      ¢§ïâì ç¨c«o ¯o a¤pecy
 @L      seg a -> n    ¢§ïâì ç¨á«® ¯o ¤«¨­­®¬ã a¤pecy
 ALLOT     # ->        oâ¢ecâ¨ # ¡a©âo¢ ¢ c«o¢ape
 AT ¨¬ï    -> a        a¤pec ¯epe¬e­­o© QUAN ¨«¨ VECT
 BLANK     a # ->      ¯o¬ecâ¨âì # ¯po¡e«o¢ ¯o a¤pecy a
 C!        ¢ a ->      §a¯o¬­¨âì ¡a©â ¯o a¤pecy
 C!L   b seg a ->      §a¯o¬­¨âì ¡a©â ¯o ¤«¨­­®¬ã a¤pecy
 C,        ¢ ->        cªo¬¯¨«¨po¢aâì ¡a©â
 C@        a -> ¢      ¢§ïâì ¡a©â ¯o a¤pecy
 C@L     seg a -> b    ¢§ïâì ¡a©â ¯o ¤«¨­­®¬ã a¤pecy
 CMOVE     a1 a2 # ->  ¯epec«aâì # ¡a©âo¢ ¨§ a1 ¢ a2
 CMOVE>    a1 a2 # ->  ¯epec«aâì # ¡a©âo¢ ­aç¨­aï c ª®­æ 
 CMOVE>L segs as segd ad #  ->
                       ¯¥à¥á« âì # ¡ ©â á ª®­æ ; ¤«¨­­ë¥  ¤à¥á 
 CMOVEL  segs as segd ad #  ->
                       ¯¥à¥á« âì # ¡ ©â; ¤«¨­­ë¥  ¤à¥á 
 CS@       -> seg      ¤ ¥â  ¤à¥á ª®¤®¢®£® á¥£¬¥­â 
 DP        -> a        ¯epe¬e­­aï - yªa§aâe«ì c«o¢apï
 DUMP      a # ->      ¯eçaâì # ¡a©âo¢ c a¤p¥á  a
 DUMPL  seg a # ->     ¯eçaâì # ¡a©âo¢ c a¤p¥á  seg:a
 ERASE  a # ->         §a­y«¨âì # ¡a©â
 FILL   a # b ->       # ¡a©â §a¯o«­ïîâcï §­açe­¨ï¬¨ b
 HERE      -> a        §­açe­¨e yªa§aâe«ï c«o¢apï
 IS ¨¬ï    n ->        §a¯o¬­¨âì ç¨c«o ¢ ¯epe¬e­­o© QUAN ¨«¨ VECT
 LFILL  seg a # b ->   § ¯®«­¥­¨¥ # ¡ ©â §­ ç¥­¨¥¬ n1
 MEMALLOC      n -> seg 0 / n1 n2  § å¢ â ¡«®ª  ¯ ¬ïâ¨ ¤«¨­ë n
 MEMFREE   seg   -> n              ®á¢®¡®¦¤¥­¨¥ ¡«®ª  ¯ ¬ïâ¨ seg
 MEMSET    seg n -> 0 / n1 n2      ¨§¬¥­¨âì à §¬¥à § å¢ ç¥­­®£® ¡«®ª 
 MOVE      a1 a2 # ->  ¯epec«aâì # ¡a©âo¢ ¨§ a1 ¢ a2 á«®¢ ¬¨
 PAD       -> a        ¢pe¬e­­ë© ¡yäep ¤«ï câpoª
 TOGGLE    a b ->      ¨cª«îçaîéee "¨«¨" ¡a©âa ¯o a¤pecy ¨ b

”OPMATˆ‡A–ˆŸ B›BO„A —ˆCE‹

 #         ud1 -> ud2   ¢ë¤e«¨âì c«e¤yîéyî æ¨äpy ç¨c«a
 #>        d -> a #     ¯o¤£oâo¢¨âì câpoªy ¤«ï TYPE
 #S        d -> 0 0     ¯peo¡pa§o¢aâì ç¨c«o ¢ câpoªy
 .         n ->         ¯eçaâì ç¨c«a co §­aªo¬
 .R        n # ->       ¯eçaâì ç¨c«a ¢ ¯o«e ¤«¨­ë #
 <#        ->           ­açaâì ¯epe¢o¤ ç¨c«a ¢ câpoªy
 ALPHA     b -> c       ¯epe¢ecâ¨ æ¨äpy ¢ c¨¬¢o«
 D.        d ->         ¯eçaâì ¤¢o©­o£o ç¨c«a
 D.R       d # ->       ¯eçaâì ¤¢o©­o£o ç¨c«a ¢ ¯o«e ¤«¨­ë #
 HLD       -> a         ¯epe¬e­­aï - a¤pec ¯o§¨æ¨¨ ¢
                        câpoªe ¤«ï ¢ë¢o¤a ç¨c«a
 HOLD      c ->         ¯o¬ecâ¨âì c¨¬¢o« ¢ câpoªy
                        ¤«ï ¢ë¢o¤a ç¨c«a
 SIGN      n ->         ¯o¬ecâ¨âì §­aª ¢ câpoªy
                        ¤«ï ¢ë¢o¤a ç¨c«a
 U.        u ->         ­a¯eçaâaâì ç¨c«o ¡e§ §­aªa
 U.R       u #  ->      ¯¥ç âì ç¨á«  ¡¥§ §­ ª  ¢ ¯®«¥ ¤«¨­ë #

CTPOKˆ ‘ˆŒ‚Ž‹Ž‚

 -MATCH    a1 #1 a2 #2 -> a3 ?  ¯o¨cª o¡pa§æa a2 #2 ¢ câpoªe a1 #1
 -TEXT     a1 # a2 -> n         cpa¢­e­¨e câpoª a1 # ¨ a2 #
                                n - à §­®áâì ­¥á®¢¯ ¢è¨å «¨â¥à ¨«¨ 0
 -TRAILING a #1 -> a #2         y¡paâì ¨§ câpoª¨ §a¢epèaîé¨e ¯po¡e«ë
 ASCIIZ    a #  -> az           c®§¤ âì ASCIIZ-áâà®ªã ¨§ (a,#)
 BL        -> 32                ªo­câa­âa - ªo¤ ¯po¡e«a
 BLANK     a # ->               ¯o¬ecâ¨âì # ¯po¡e«o¢ ¯o a¤pecy a
 CMOVE     a1 a2 # ->           ¯epec«aâì # ¡a©âo¢ ¨§ a1 ¢ a2
 CMOVE>    a1 a2 # ->           ¯epec«aâì # ¡a©âo¢ ­aç¨­aï c ª®­æ 
 COUNT     a1      -> a2 #      a2 pa¢e­ a1+1, # - ¤«¨­a câpoª¨ a1
 MOVE      a1 a2 # ->           ¯epec«aâì # ¡a©âo¢ ¨§ a1 ¢ a2 á«®¢ ¬¨

ˆH”OPMA–ˆŸ O ”OPT-CˆCTEME

 .S        ->          pac¯eçaâaâì câeª
 DUMP      a # ->      ¯eçaâì co¤ep¦¨¬o£o # ¡a©âo¢ c a¤p¥á  a
 F-CODE    -> a        ­aça«ì­ë© a¤pec o¡«acâ¨ ªo¤a ä®àâ 
 F-DATA    -> a        ­aça«ì­ë© a¤pec o¡«acâ¨ ¤a­­ëx ä®àâ 
 FORTH-83  ->          yªa§ë¢aeâ ­a cooâ¢eâcâ¢¨e câa­¤apây
 NLIST     a ->        ­a¯eçaâaâì c¯¨coª c«o¢ a
 TITLE     ->          ¨¤e­â¨ä¨ªaæ¨ï äopâ-c¨câe¬ë
 WORDS     ->          ¯eçaâì c«o¢ âeªyée£o ªo­âeªcâa

�PEO�PA‡OBAHˆE A„PECOB �O‹E‰ CTATœˆ

 >BODY     cfa -> pfa     ¨§ ¯o«ï ªo¤a ¢ ¯o«e ¯apa¬eâpo¢
 >LINK     cfa -> lfa     ¨§ ¯o«ï ªo¤a ¢ ¯o«e c¢ï§¨
 >NAME     cfa -> nfa     ¨§ ¯o«ï ªo¤a ¢ ¯o«e ¨¬e­¨
                          (¤«ï pyccª¨x ­e ¢ce£¤a âoç­o)
 BODY>     pfa -> cfa     ¨§ ¯o«ï ¯apa¬eâpo¢ ¢ ¯o«e ªo¤a
 CFL           -> u       ¤«¨­a ¯o«ï ªo¤a câaâì¨
 L>NAME    lfa -> nfa     ¨§ ¯o«ï c¢ï§¨ ¢ ¯o«e ¨¬e­¨
                          (¤«ï pyccª¨x ­e ¢ce£¤a âoç­o)
 LINK>     lfa -> cfa     ¨§ ¯o«ï c¢ï§¨ ¢ ¯o«e ªo¤a
 N>LINK    nfa -> lfa     ¨§ ¯o«ï ¨¬e­¨ ¢ ¯o«e c¢ï§¨
 NAME>     nfa -> cfa     ¨§ ¯o«ï ¨¬e­¨ ¢ ¯o«e ªo¤a

CTP“KT“P› “�PAB‹EHˆŸ

 BEGIN ...           ->
     AGAIN           ->               ¡ecªo­eç­ë© æ¨ª«

 BEGIN     ...       ->
     WHILE ...     ? ->               ec«¨ «o¦ì, âo ¯epexo¤
     REPEAT          ->               ­a ªo¤ ¯oc«e REPEAT

 BEGIN  ...          ->
     UNTIL         ? ->               æ¨ª«, ¯oªa «o¦ì

 DO     ...    n1 n2 ->               æ¨ª« c ¯pe¤e«o¬
 LOOP                ->

 ?DO    ...    n1 n2 ->               æ¨ª« c ¯pe¤e«o¬ ¨
 LOOP                ->               ¯po¢epªo© ­e¯ycâoâë

 DO     ...    n1 n2 ->               æ¨ª« c ¯pe¤e«o¬ ¨
 +LOOP             n ->               ¯p¨paée­¨e co §­aªo¬

 I                   -> n             ¨­¤eªc æ¨ª«a DO...LOOP

 IF   ...          ? ->               ãá«®¢­®¥ ¢ë¯®«­¥­¨¥, ¥á«¨ ˆ‘’ˆ�€
 ELSE ...            ->               (ç áâì ELSE ­¥®¡ï§ â¥«ì­ )
 THEN

 IFNOT ...[ELSE]... THEN              yc«o¢­oe ¢ë¯o«­e­¨e, ec«¨ ‹Ž†œ

 J                          -> n      ¨­¤eªc ¢­eè­e£o æ¨ª«a DO...LOOP

 LEAVE                      ->        ¢ëxo¤ ¨§ æ¨ª«a DO...LOOP


 CASE ..               n ->           ¢ë¡®à  «ìâ¥à­ â¨¢ë:
   OF ..            n n1 ->           ¥á«¨ n = ni, â® ¢ë¯®«­ï¥âáï
          ENDOF                       ãç áâ®ª ¬¥¦¤ã á®â¢¥âáâ¢ãîé¨¬¨
   OF ..  ENDOF     n n2 ->           OF ¨ ENDOF
     ...
 ENDCASE

O�PE„E‹EHˆE HOB›X C‹OB

 2CONSTANT ¨¬ï  d ->      o¯pe¤e«e­¨e ªo­câa­âë ¤¢o©­o© ¤«¨­ë
 : ¨¬ï          ->        ­aça«o o¯pe¤e«e­¨ï c«o¢a
 ;              ->        ªo­eæ o¯pe¤e«e­¨ï c«o¢a
 CONSTANT ¨¬ï   n ->      o¯pe¤e«e­¨e ªo­câa­âë
 CREATE ¨¬ï     ->        co§¤a­¨e §a£o«o¢ªa câaâì¨
 DOES>          ->        ¤e©câ¢¨e ¢pe¬e­¨ ¨c¯o«­e­¨ï
                          ¤«ï c«o¢a, co§¤a­­o£o
                          o¯pe¤e«ïîé¨¬ c«o¢o¬
 HEAD ¨¬ï       ->        ªo¬¯¨«ïæ¨ï §a£o«o¢ªa câaâì¨
 IMMEDIATE      ->        oâ¬eâ¨âì ¯oc«e¤­ee c«o¢o
                          ¯p¨§­aªo¬ ­e¬e¤«e­­o£o ¨c¯o«­e­¨ï
 LATEST         -> a      a¤pec ¯o«ï ¨¬e­¨ ¯oc«e¤­e£o c«o¢a
 QUAN ¨¬ï       ->        o¯pe¤e«e­¨e ¯epe¬e­­o© QUAN
 SMUDGE         ->        ycâa­o¢¨âì ¡¨â ¢ ¯o«e ¤«¨­ë
                          ¯oc«e¤­e£o c«o¢a
 UNSMUDGE       ->        o¡­y«¨âì ¡¨â ¢ ¯o«e ¤«¨­ë
                          ¯oc«e¤­e£o c«o¢a
 USER ¨¬ï       u ->      o¯pe¤e«e­¨e ¯o«ì§o¢aâe«ìcªo©
                          ¯epe¬e­­o©
 VARIABLE ¨¬ï   ->        o¯pe¤e«e­¨e ¯epe¬e­­o©
 VECT ¨¬ï       ->        o¯pe¤e«e­¨e ¢eªâop­o£o c«o¢a
 VOCABULARY ¨¬ï ->        o¯pe¤e«e­¨e c«o¢apï

‘…ƒŒ…�’ ˆŒ…�
 H-!        n a ->        §a¯¨cì n ¢ c«®¢® a ¢ á¥£¬¥­â¥ ¨¬¥­
 H-",         a ->        ª®¬¯¨«ïæ¨ï áâà®ª¨ ¢ á¥£¬¥­â ¨¬¥­
 H-,         n  ->        ª®¬¯¨«ïæ¨ï n ¢ á¥£¬¥­â ¨¬¥­
 H-.NAME      a ->        ¯¥ç âì áâà®ª¨ ¨§ á¥£¬. ¨¬¥­
 H-@          a -> n      ¢§ïâì á«®¢® ¨§ á¥£¬. ¨¬¥­
 H-A          a -> seg a  ¯®«­ë©  ¤à¥á ¡ ©â  ¢ á¥£¬. ¨¬¥­
 H-ALLOT      n ->        ®â¢¥áâ¨ n ¡ ©â ¢ á¥£¬. ¨¬¥­
 H-C!       b a ->        §a¯¨cì b ¢ ¡a©â a ¢ á¥£¬¥­â¥ ¨¬¥­.
 H-C@       a   -> b      ¢§ïâì ¡ ©â ¨§ á¥£¬. ¨¬¥­
 H-COUNT    a1  -> a2 #   COUNT ¢ á¥£¬. ¨¬¥­
 H-DP           -> a      ¯¥à¥¬¥­­ ï -  ¤pec á¢®¡.ïçe©ª¨ ¢ á¥£¬. ¨¬¥­
 H-HERE         -> a       ¤pec á¢®¡. ïçe©ª¨ ¢ á¥£¬¥­â¥ ¨¬¥­
 H-SEG          -> a      ¯¥à¥¬¥­­ ï. c®¤¥à¦¨â  ¤pec á¥£¬¥­â  ¨¬¥­
 H-TOGGLE   a b ->        ¨cª«îçaîéee "¨«¨" b ¨ ¡a©âa ¢ á¥£¬. ¨¬¥­
 LASTN          ->        ¯¥à¥¬¥­­ ï,  ¤à¥á ¯®á«. á«®¢  ¢ á¥£¬. ¨¬¥­

�OPŸ„OK �OˆCKA

 #THREADS    -> n         ª®«¨ç¥áâ¢® á¯¨áª®¢ ¤«ï ¯®¨áª  ¢ á«®¢ à¥
 (FIND)      -1 a1...an a -> a' b / 0
                          ¯o¨cª c«o¢a ¢ c¯¨cªax a1...an
 (FORGET)    a ->         ã¤ «¨âì á  ¤à¥á®¬ a ¨ ¢á¥ â¥, çâ® ¯®á«¥ ­¥£®
 CONTEXT     -> a         ¯epe¬e­­aï - ¯ep¢ë© c«o¢apì ¯o¨cªa
 CURRENT     -> a         ¯epe¬e­­aï - c«o¢apì ªo¬¯¨«ïæ¨¨
 DEFINITIONS ->           c¤e«aâì ¯ep¢ë© c«o¢apì ¯o¨cªa
                          c«o¢ape¬ ªo¬¯¨«ïæ¨¨
 FENCE       -> a         ¯epe¬e­­aï - a¤pec, ¤a«ìèe ªoâopo£o
                          ­e ¨¤eâ FORGET
 FIND        a1 -> a2 n   ¯o¨cª ¨¬e­¨ ¢ âeªyée¬ ªo­âeªcâe
 FORGET ¨¬ï  ->           y¡paâì ¢ce o¯pe¤e«e­¨ï ¤o yªa§a­­o£o
 FORTH       ->           ¯ep¢¨ç­ë© c«o¢apì
 HASH  a1 a2 -> a3        å¥è-äã­ªæ¨ï, ¤ ¥â ¯® ¨¬¥­¨ ­®¬¥à á¯¨áª 
 INIT-VOC                 ¨­¨æ¨ «¨§ æ¨ï á«®¢ àï ¯à¨ § ¯ãáª¥ á¨áâ¥¬ë
 VOC-LINK    -> a         ¯epe¬e­­aï - ­aça«o æe¯oçª¨ c«o¢ape©

KOM�ˆ‹Ÿ–ˆŸ - ˆC�O‹HEHˆE

 " câpoªa"   -> a         a - a¤pec ¨§o¡pa¦e­­o© câpoª¨
 ' ¨¬ï       -> a         a¤pec ªo¬¯¨«ïæ¨¨ c«o¢a ¨¬ï
 ( câpoªa)   ->           ªo¬¬e­âap¨© ¤o )
 -- câpoªa   ->           ªo¬¬e­âap¨© ¤o ªo­æa câpoª¨
 [           ->           ¯epe©â¨ ¢ pe¦¨¬ ¨c¯o«­e­¨ï
 ['] ¨¬ï     ->           ªo¬¯¨«ïæ¨ï ªo­câa­âë -  ¤à¥á 
                          ªo¬¯¨«ïæ¨¨ ¨¬e­¨
 [COMPILE] ¨¬ï ->         o¡ï§aâe«ì­aï ªo¬¯¨«ïæ¨ï ¨¬e­¨
 ]             ->         ¯epe©â¨ ¢ pe¦¨¬ ªo¬¯¨«ïæ¨¨
 ?COMP         ->         ¯po¢epªa pe¦¨¬a ªo¬¯¨«ïæ¨¨
 ?EXEC         ->         ¯po¢epªa pe¦¨¬a ¨c¯o«­e­¨ï
 C" «¨âepa     -> c       ªo­câa­âa - ªo¤ «¨âepë
 COMPILE       ->         ªo¬¯¨«ïæ¨ï c«e¤yîée£o ¢ ªo¤e
                          §a COMPILE 16-pa§pï¤.§­açe­¨ï
 DLITERAL      d ->       ªo¬¯¨«ïæ¨ï ªo­câa­âë d
 EXECUTE       a ->       ¢ë¯o«­¨âì c«o¢o c a¤peco¬ ªo¬¯¨«ïæ¨¨ a
 LITERAL       n ->       ªo¬¯¨«ïæ¨ï ªo­câa­âë n
 PERFORM       a ->       ¢ë¯o«­¨âì c«o¢o, a¤pec ª®â®à®£®
                          ­axo¤¨âcï ¯o a¤pecy a
 STATE         -> a       ¯epe¬e­­aï - cocâoï­¨e ¨c¯o«­e­¨ï (0)
                          ¨«¨ ªo¬¯¨«ïæ¨¨ (­¥ 0)

KOHTPO‹œ COCTOŸHˆŸ CTEKA

 ?CSP      ->             ¯po¢epªa pa¢e­câ¢a yªa§aâe«ï
                          câeªa ¨ co¤ep¦¨¬o£o ¯epe¬e­­o© CSP
 !CSP      ->             ¯o¬ecâ¨âì §­açe­¨e yªa§aâe«ï câeªa
                          ¢ ¯epe¬e­­yî CSP
 ?PAIRS    n1 n2 ->       ¯po¢epªa pa¢e­câ¢a n1 ¨ n2
 ?STACK    ->             ¯po¢epªa ¨cçep¯a­¨ï câeªa
 CSP       -> a           ¯epe¬e­­aï ¤«ï ªo­âpo«ï cocâoï­¨ï
                          câeªa

TEKCTOB›‰ ˆHTEP�PETATOP

           ->                ­y«e¢oe c«o¢o, ¢ëxo¤ ¨§ ¨­âep¯peâaâopa
 CONVERT   ud1 a1 -> ud2 a2  ¯epe¢o¤ ç¨c«a ¢o ¢­yâpe­­ee ¯pe¤câa¢«e­¨e
 DIGIT     c b -> n -1 / 0   ¯peo¡pa§o¢aâì c¨¬¢o« c ¯® ¡a§¥ b
 DPL       -> a              ¯epe¬e­­aï - ç¨c«o æ¨äp ¯oc«e âoçª¨
 ENCLOSE  a c -> a #1 #2 #3  ¢ë¤e«¨âì c«o¢®, o£pa­¨çe­­o£o c¨¬¢o«o¬ c
 INTERPRET   ->              ¨­âep¯peâaæ¨ï ¢¢e¤e­­o© câpoª¨
 mark]       -> a            ¯¥à¥¬¥­­ ï, ¯à ¢ ï £à ­¨æ  ®è¨¡ª¨
                             ¢ â¥ªãé¥© áâà®ª¥
 NUMBER    a -> d            ¯epe¢ecâ¨ ç¨c«o ¨§ ¢­eè­e£o
                             ¯pe¤câa¢«e­¨ï ¢o ¢­yâpe­­ee
 WORD      c -> a            çâe­¨e ¨§ ¢xo¤­o£o ¯oâoªa
                             c«o¢a, o£pa­¨çe­­o£o c¨¬¢o«o¬ c
 [mark       -> a            ¯¥à¥¬¥­­ ï, «¥¢ ï £à ­¨æ  ®è¨¡ª¨
                             ¢ â¥ªãé¥© áâà®ª¥

ABAPˆ‰H›E B›XO„› ˆ COO�™EHˆŸ

 ?ERROR          ? u ->     coo¡ée­¨e o¡ oè¨¡ªe ­o¬ep u, ec«¨ ¨câ¨­a
 ABORT           ->         c¡poc¨âì áâ¥ª¨ ¨ ¦¤aâì ¢¢o¤a
 ABORT" câpoªa"  ? ->       ec«¨ ˆ‘’ˆ�€, ¤aâì coo¡ée­¨e ¨ á¤¥« âì
                            ABORT             
 BREAK           ->         ¯p¨ocâa­o¢ªa ¢ë¯o«­e­¨ï ¯po£pa¬¬ë
 BYE             ->         ¢o§¢paâ ¢ o¯epaæ¨o­­yî c¨câe¬y
 COLD            ->         ¯¥à¢¨ç­aï ¨­¨æ¨a«¨§aæ¨ï ”opâ-c¨câe¬ë
 ERROR           u ->       coo¡ée­¨e o¡ oè¨¡ªe c ­o¬epo¬ u
 F-MSG           -> a       a¤pec âa¡«¨æë coo¡ée­¨© ”opâ-c¨câe¬ë
 IO-ERROR        ->         ¢ë¤ ç  á®®¡é¥­¨ï ¨ ABORT ¢ á«ãç ¥ ®è¨¡ª¨
 IO-RESULT       ->         ¯¥à¥¬¥­­ ï - à¥§ã«ìâ â ¢¢®¤ -¢ë¢®¤ 
 MESSAGE         u a ->     ¯eçaâì coo¡ée­¨ï u ¨§ âa¡«¨æë a
 QUIT            ->         §aªo­ç¨âì o¡pa¡oâªy, c¡poc¨âì
                            áâ¥ª ¢o§¢paâo¢ ¨ o¦¨¤aâì ¢¢o¤a
 SHOW-ERROR      u a ->     coo¡ée­¨e o¡ oè¨¡ªe u ¨§ âa¡«¨æë a
 SHOW-LINE        ->        ¢ë¢®¤ â¥ªãé¥© áâà®ª¨ ¨ ¥¥ ª®®à¤¨­ â
 WARNING         -> a       ¯epe¬e­­aï, ä« £ ¯eçaâ¨ ¯pe¤y¯pe¦¤e­¨©

BBO„-B›BO„

 #TIB        -> n          ¯epe¬e­­aï - ¤«¨­a ¢xo¤­o© câpoª¨
 (?KEY)      -> c -1 / 0   c¨câe¬­aï pea«¨§aæ¨ï c«o¢a ?KEY
 (?TERMINAL) -> ?          c¨câe¬­aï pea«¨§aæ¨ï c«o¢a
                           ?TERMINAL
 (LEMIT)     c ->          ¢ë¢o¤ «¨âepë ­a ªo­co«ì ¨ ¯p¨­âep
 ." câpoªa"  ->            ­a¯eçaâaâì câpoªy ¤o "
 .( câpoªa)  ->            ­a¯eçaâaâì câpoªy ¤o )
 .NAME       a ->          ¯eçaâì ¨¬e­¨ o¯pe¤e«e­¨ï
 <TIB>       -> a          ¯epe¬e­­aï - a¤pec ¡yäepa TIB
 >IN         -> a          ¯epe¬e­­aï - ­o¬ep ¯o§¨æ¨¨ ®ç¥-
                           à¥¤­o£o c¨¬¢o«a ¢o ¢xo¤­o© câpoªe
 >OUT        -> a          ¯epe¬e­­aï - ­o¬ep ¯o§¨æ¨¨ ®ç¥-
                           pe¤­o£o c¨¬¢o«a ¢ ¢ëxo¤­o© câpoªe
 ?CH         -> a          ¯¥à¥¬¥­­ ï - ¡ ©â ¯à¨­ïâ®£® á ª« ¢¨ âãàë
                           ¤¢ãå¡ ©â­®£® ª®¤ 
 ?CR         ->            ¯epexo¤ ­a ­aça«o câpoª¨
 ?KEY        -> c -1 / 0   ãá«®¢­ë© ¢¢®¤ «¨â¥àë
 ?TERMINAL   ->  ?         ®¯à®á ª« ¢¨ âãàë
 BELL        ->            ¢ë¤ ç  §¢ãª®¢®£® á¨£­ « 
 C/L         -> 80         à §¬¥à áâà®ª¨ ¢¢®¤ 
 CONSOLE     ->            ­ ¯à ¢¨âì ¢ë¢®¤ ­  íªà ­
 CR          ->            ¯¥à¥©â¨ ­  á«¥¤ãîéãî áâà®ªã ¢
                           ¢ëå®¤­®¬ ¯®â®ª¥
 EMIT        c ->          ¢ë¤ âì «¨â¥àã ¢ ¢ëå®¤­®© ¯®â®ª
 EXPECT      a # ->        ¯o«yç¨âì c ª«a¢¨aâypë câpoªy ¢
                           ¡yäepe yªa§a­­o£o pa§¬epa
 HARDCOPY    ->            ­a¯pa¢¨âì ¢ë¢o¤ ­a ªo­co«ì ¨ ¯p¨­âep
 KEY         -> c          ¯o«yç¨âì «¨âepy c ª«a¢¨aâypë
 P!          n a ->        ¯oc«aâì n ¢ ¯opâ a
 P@          a -> n        ¢¢¥áâ¨ n ¨§ ¯opâa a
 PC!         b a ->        ¯oc«aâì ¡a©â b ¢ ¯opâ a
 PC?TERMINAL   -> ?        ®¯à®c ­ ¦ â¨ï ª« ¢¨è¨ ­  ª« ¢¨ âãà¥
 PC@         a -> b        ¢¢¥áâ¨ ¡a©â b ¨§ ¯opâa a
 PCKEY         -> b c      ¯à¨­ïâì ª®¤ c ¨ áª ­-ª®¤  b á ª« ¢¨ âãàë
 PEMIT       c ->          ¢ë¢®¤ «¨â¥àë c ­  ¯à¨­â¥à
 PRINTER     ->            ­a¯pa¢¨âì ¢ë¢o¤ ­a ¯p¨­âep
 QUERY       ->            câa­¤apâ­aï ¯poæe¤ypa ¢¢o¤a câpoª¨
 SPACE       ->            ­a¯eçaâaâì ¯po¡e«
 SPACES      # ->          ­a¯eçaâaâì # ¯po¡e«o¢
 SPAN        -> a          ¯epe¬e­­aï - ¤«¨­a câpoª¨, ¢¢e¤e­­o©
                           ¯o EXPECT
 TIB         -> a          a¤pec ¢xo¤­o© câpoª¨
 TYPE        a # ->        ¢ë¤aâì # «¨âep ¢ ¢ëxo¤­o© ¯oâoª

„ˆ‘�‹…‰

 !CSR        ->            § ¤ âì ­ã¦­ë¥ à §¬¥àë ªãàá®à 
 #CSR    (QUAN-¯¥à¥¬¥­­ ï) à §¬¥àë ªãàá®à 
 #LASTLN (¯¥à¥¬¥­­ ï)      ­®¬¥à ¯®á«¥¤­¥© áâà®ª¨
 (CR)        ->            c¨câe¬­aï pea«¨§aæ¨ï c«o¢a CR
 (EMIT)      c ->          c¨câe¬­aï pea«¨§aæ¨ï c«o¢a EMIT
 (GOTOXY)    u1 u2 ->      c¨câe¬­aï pea«¨§aæ¨ï c«o¢a GOTOXY
 (KEY)       -> c          c¨câe¬­aï pea«¨§aæ¨ï c«o¢a KEY
 (PAGE)      ->            c¨câe¬­aï pea«¨§aæ¨ï c«o¢a PAGE
 (PEMIT)     ->            c¨câe¬­aï pea«¨§aæ¨ï c«o¢a PEMIT
 (TYPE)      a # ->        c¨câe¬­aï pea«¨§aæ¨ï c«o¢a TYPE
 (WAIT       ->            ¦¤ âì ®¡à â­®£® å®¤  «ãç 
 8*14        ->            à¥¦¨¬ EGA 25 áâà®ª (c¨¬¢®«ë 8*14 ¯¨ªá¥«®¢).
 8*8         ->            à¥¦¨¬ EGA 43 áâà®ª¨ (c¨¬¢®«ë 8*8 ¯¨ªá¥«®¢).
 >ATTR   (¯¥à¥¬¥­­ ï)       âà¨¡ãâë æ¢¥â 
 ?CGA        -> ?          â¨¯ ¢¨¤¥® ¤ ¯â¥à : "ˆ‘’ˆ�€", ¥á«¨ CGA
 ?EGA        -> ?          â¨¯ ¢¨¤¥® ¤ ¯â¥à : "ˆ‘’ˆ�€", ¥á«¨ EGA
 ?EGALN  (QUAN-¯¥à¥¬¥­­ ï) ¯à¨§­ ª à¥¦¨¬  '43 áâà®ª¨ ­  íªà ­¥'
 ?MDA        -> ?          â¨¯ ¢¨¤¥® ¤ ¯â¥à : "ˆ‘’ˆ�€", ¥á«¨ MDA
 BLINK       ->            § ¤ âì ¬¥àæ ­¨¥
 BORDER   n  ->            § ¤ âì æ¢¥â ¡®à¤îà 
 COLOR    n1 n2  ->        § ¤ âì æ¢¥â ä®­  n1 ¨ æ¢¥â á¨¬¢®«®¢ n2
 CSR-INS     ->            á¤¥« âì ªãàá®à ¡®«ìè¨¬
 CSR-OFF     ->            á¤¥« âì ªãàá®à ­¥¢¨¤¨¬ë¬
 CSR-ON      ->            á¤¥« âì ªãàá®à ¢¨¤¨¬ë¬
 CSZ         ->            ãáâ ­®¢¨âì à §¬¥àë ªãàá®à  ¨§ #CSR
 EGALINES    ->            ¯¥à¥ª«îç¥­¨¥ à¥¦¨¬®¢, 25 áâà®ª ¨«¨ 43
 GOTOXY      u1 u2 ->      ycâa­o¢ªa ªypcopa ¢ ¯o§¨æ¨î (u1,u2)
 INVERSE     ->            § ¤ âì ¨­¢¥àâ¨à®¢ ­­ë¥ æ¢¥â 
 LIGHT       ->            § ¤ âì ïàª¨© æ¢¥â
 PAGE        ->            ®ç¨áâª  íªà ­ 
 S-OFF       ->            £ è¥­¨¥ íªà ­ 
 S-ON        ->            ¢ª«îç¥­¨¥ íªà ­ 
 SCREEN-INIT ->            ¨­¨æ¨ «¨§ æ¨ï íªà ­ 
 TIB.        ->            ¢ë¤ âì TIB ¢ë¤¥«ïï ®è¨¡ªã
 VBI         ->            ¨­¨æ¨ «¨§ æ¨ï ¡«®ª  ¢¨¤¥®¯ à ¬¥âà®¢
 VTYPE     a # ->          ¡ëáâàë© TYPE ¢ ¢¨¤¥®¯ ¬ïâì ¡¥§ ª®­âà®«ï
 XY@         -> n1 n2      ª®®à¤¨­ âë ªãàá®à , ¯®§¨æ¨ï ¨ áâà®ª 
CˆCTEMH›E C‹OBA

 (")         -> a         ¯o¬ecâ¨âì ­a câeª a¤pec áâà®ª¨ á®
                          cçeâç¨ªo¬, á«¥¤ãîé¥© ¢ ª®¤¥ §  (")
 (.")        ->           ¯eçaâì câpoª¨ á® áç¥âç¨ª®¬,
                          á«¥¤ãîé¥© ¢ ªo¤e §a (.")
 (+LOOP)     n ->         ªo¬¯¨«¨pyeâcï c«o¢o¬ +LOOP
 (;CODE)     ->           ªo¬¯¨«¨pyeâcï c«o¢a¬¨ DOES> ¨ ;CODE
 (?DO)       n1 n2 ->     ªo¬¯¨«¨pyeâcï c«o¢o¬ ?DO
 (ABORT")    ? ->         ªo¬¯¨«¨pyeâcï c«o¢o¬ ABORT"
 (DO)        n1 n2 ->     ªo¬¯¨«¨pyeâcï c«o¢o¬ DO
 (LOOP)      ->           ªo¬¯¨«¨pyeâcï c«o¢o¬ LOOP
 <MARK       -> a         oâ¬eâ¨âì ­a§a¤
 <RESOLVE    a ->         pa§peè¨âì ­a§a¤
 >MARK       -> a         oâ¬eâ¨âì ¢¯epe¤
 >RESOLVE    a ->         pa§peè¨âì ¢¯epe¤
 ?BRANCH     ? ->         ¯epexo¤ ec«¨ «o¦ì; ªo¬¯¨«¨pyeâcï
                          c«o¢a¬¨ IF, UNTIL, WHILE
 BRANCH      ->           ¡e§yc«o¢­ë© ¯epexo¤; ªo¬¯¨«¨pyeâcï
                          c«o¢a¬¨ ELSE, AGAIN, WHILE
 DLIT        -> d         ¯o¬ecâ¨âì ­a câeª c«e¤yîéee
                          §a DLIT ¢ ªo¤e ¤¢o©­oe ç¨c«o
 EXIT        ->           §a¢epè¨âì ¢ë¯o«­e­¨e c«o¢a;
                          ªo¬¯¨«¨pyeâcï c«o¢o¬ ";"
 FDOS          u1 u2 -> u3    o¡paée­¨e ª ®¯¥à æ¨®­­®© á¨áâ¥¬¥
 GETVECT        n -> seg a   ¯à®ç¨â âì ¢¥ªâ®à ¯à¥àë¢ ­¨ï n
 LIT         -> n         ¢§ïâì c«e¤yîéee §a LIT ¢ ªo¤e ç¨c«o
 N?BRANCH    ? ->         ¯epexo¤ ec«¨ ¨câ¨­a; ªo¬¯¨«¨pyeâcï
                          c«o¢o¬ IFNOT
 RESTVECT      ->         ¢®ááâ ­®¢¨âì ¢á¥ ¢¥ªâ®àë ¯à¥àë¢ ­¨©
 SETVECT   seg a n ->     ãáâ ­®¢¨âì ¢¥ªâ®à ¯à¥àë¢ ­¨ï n

�‹ŽŠˆ ‚�…˜�…‰ �€ŒŸ’ˆ

 (LINE)        u1 u2 -> a 64  áâà®ª  á ­®¬¥à®¬ u1 ®â ¡«®ª  u2
 (R/W)         a u 0/1 ->     á¨áâ¥¬­ ï à¥ «¨§ æ¨ï á«®¢  R/W
 (USING)       a ->           ®âªàëâì ä ©« á ¨¬¥­¥¬ ¯®  ¤à. a
 +BUF           1 -> a2       ¤ âì á«¥¤ãîé¨© ¤¨áª®¢ë© ¡ãä¥à
 -->           ->             ¨­â¥à¯à¥â æ¨ï á«¥¤ãîé¥£® íªà ­ 
 .LINE         u1 u2 ->       ¯¥ç âì áâà®ª¨ u1 ®â ¡«®ª  u2
 ;S            ->             oko­ç¨âì ¨­âep¯peâaæ¨î íªpa­a
 B/BUF         -> 1024        pa§¬ep ¤¨cªo¢o£o ¡yäepa
 BLK           -> a           ¯epe¬e­­aï - ­o¬ep
                              ¨­âep¯peâ¨pye¬o£o ¡«oªa
 BLOCK         u -> a         a¤pec ¡«oªa c ­o¬epo¬ u
 BUFFER        u -> a         a¤pec ¡yäepa, ¯p¨¯¨ca­­o£o
                              ¡«oªy c ­o¬epo¬ u
 COPY          u1 u2 u3 ->    ¯epe­oc u3 ¡«oªo¢ c u1 ¢ u2
 EDIT          u ->           íªpa­­oe pe¤aªâ¨po¢a­¨e ¡«oªa u
 EDITOR        ->             c«o¢apì pe¤aªâopa
 EMPTY-BUFFERS ->             oc¢o¡o¦¤e­¨e ¡«oç­ëx ¡yäepo¢
 FIRST         -> a           a¤pec ¯ep¢o£o ¡«oªa
 FLUSH         ->             coxpa­e­¨e ¡«oªo¢ ­a ¤¨cªe
                              c ¯oc«e¤yîée© oç¨câªo© ¡yäepo¢
 INDEX         u1 u2 ->       ¯eçaâì ¯ep¢ëx câpoª íªpa­o¢
                              c ­o¬epa¬¨ oâ u1 ¤o u2
 LIMIT         -> a           a¤pec ¯oc«e ¯oc«e¤­e£o ¡yäepa
 LIST          u ->           pac¯eçaâªa íªpa­a c ­o¬epo¬ u
 LOAD          u ->           ¨­âep¯peâaæ¨ï íªpa­a u
 PREV          -> a           ¯epe¬e­­aï - a¤pec ¯oc«e¤­e£o
                              ¨c¯o«ì§o¢a­­o£o ¡yäepa
 R/W           a u 1/0 ->     çâe­/§a¯ ¡«oªa u ¯o a¤pecy a
 RENAME ¨¬ï1 ¨¬ï2  ->         ¯epe¨¬e­o¢aâì äa©«
 SAVE-BUFFERS  ->             coxpa­e­¨e ¡«oªo¢ ­a ¤¨cªe
 SCR           -> a           ¯epe¬e­­aï - ­o¬ep íªpa­a,
                              pac¯eçaâa­­o£o ¯o LIST
 THRU          u1 u2 ->       ¨­âep¯peâaæ¨ï íªpa­o¢ c u1 ¯o u2
 ULOAD ¨¬ï     u  ->          ¨­âep¯peâ æ¨ï íªpa­  u ä ©«  <¨¬ï>
 UTHRU ¨¬ï     u1 u2 ->       ¨­â¥à¯à¥â æ¨ï íªà ­®¢ á u1 ¯® u2
                              ä ©«  <¨¬ï>
 UPDATE        ->             oâ¬eâ¨âì âeªyé¨© ¡yäep ªaª ¨§¬e­e­­ë©
 USE           -> a           ¯epe¬e­­aï - a¤pec c«e¤yîée£o
                              ¨c¯o«ì§ye¬o£o ¡yäepa
 USING ¨¬ï     ->             oâªpëâì ­o¢ë© äa©«

”€‰‹›

 (FCB)         -> a          â ¡«¨æ  ã¯à ¢«¥­¨ï ä ©«®¬
 (SAVE)       ->             coxpa­¨âì âeªyéee cocâoï­¨e ”opâ-c¨câe¬ë
 .FCB          a ->          ¯¥ç âì ¨¬¥­¨ ä ©« 
 <CRLF>        -> a           ¤à¥á ¡ ©â®¢ '‚Š' ¨ '�‘'
 <INCLUDE ¨¬ï  ->            ­ ç âì ¨­â¥à¯à¥â æ¨î ¯®á«¥¤®¢ â. ä ©« 
 CLOSE-FILE  n ->            § ªàëâì ä ©«
 CREATE-FILE  a # -> n       á®§¤ âì ä ©«
 DELETE-FILE  a # ->         ã¤ «¨âì ä ©«
 DELDIR     az ->            ã¤ «¨âì ª â «®£
 DELETE ¨¬ï    ->            y¤a«¨âì äa©«
 DIR [¨¬ï]     ->            o£«a¢«e­¨e ¤¨cªa
 DIR+       a  -> n          ¯®«ãç¨âì ®ç¥à¥¤­®© ä ©« ¯® ¬ áª¥ ¨§ DIR0
 DIR0    az n  -> n1         ¯®«ãç¨âì ¯¥à¢ë© ä ©« ¯® ¬ áª¥ (wildcard)
 DISK-ERROR    -> a          ¯epe¬e­­aï - ªo¤ oè¨¡ª¨ o¡¬e­a
 FCB           -> a          áâà®ª  á® áç¥âç¨ª®¬ - ¨¬ï â¥ªãé¥£® ä ©« 
 FCBNAME       a1 -> a2      pa§¡op ¨¬e­¨ äa©«a c äop¬¨po¢a­¨e¬ FCB
 FCLOSE      n ->            § ªàëâ¨¥ ä ©« 
 FCREATE  az n -> n1         á®§¤ ­¨¥ ä ©«  á ¨¬¥­¥¬ az; n -  âà¨¡ãâë
 FDELETE    az ->            ã¤ «¥­¨¥ ä ©« 
 FILEPOS     n -> d          â¥ªãé ï ¯®§¨æ¨ï ¢ ä ©«¥
 FILESIZE    n -> d          ç¨á«® ¡ ©â®¢ ¢ ä ©«¥
 FLDUP      n1 -> n2         ¯®«ãç¨âì ª®¯¨î ä ©«  (¤«ï § ªàëâ¨ï)
 FLSEEK d1 n1 n2 -> d2       ¯®§¨æ¨®­¨à®¢ ­¨¥ ¢ ä ©«¥
 FOPEN    az n -> n1         ®âªàëâ¨¥ ä ©«  az; n - c¯®á®¡ ®âªàëâ¨ï
 FREAD   seg a # n -> #1     ç¨â âì ¢ ¡ãä¥à ¨§ ä ©« 
 FREDIR     n1 n2 ->         ¯¥à¥­ ¯à ¢¨âì ä ©« n1 ­  ä ©« n2
 FWRITE  seg a # n -> #1     ¯¨á âì ¡ãä¥à ¢ ä ©« n
 GETDIR      a #  ->         ¯®«ãç¥­¨¥ â¥ªãé¥£® ¯ãâ¨
 GETDISK          -> n       â¥ªãé¨© ¤¨áª (0 §­ ç¨â A)
 INCLUDE ¨¬ï      ->         ¨­âep¯peâaæ¨ï ä ©«  <¨¬ï>
 INCLUDE>         ->         § ªàëâì ¢å®¤­®© ¯®á«¥¤®¢ â¥«ì­ë© ä ©«
 MAKE ¨¬ï     [u] ->         co§¤aâì äa©«
 MKDIR         az ->         c®§¤ âì ª â «®£ á ¨¬¥­¥¬ az
 NULFILE          -> a        ¤à¥á áâà®ª¨ á ¨¬¥­¥¬ ä ©«  "NUL.SCR"
 OPEN-FILE        a # -> n   ®âªàëâì ä ©« á ¨¬¥­¥¬ ( ,#)
 OPEN/CREATE      a # -> n ? á®§¤ ¥â/®âªàë¢ ¥â ä ©« á ãª § ­­ë¬ ¨¬¥­¥¬
 READ-FILE     a # n -> #1   çâ¥­¨¥ ä ©«  n ¢ ¡ãä¥à a ¤«¨­ë #
 READ-LINE     a # n -> #1 ? çâ¥­¨¥ áâà®ª¨ ¨§ ä ©«  ¢ ¡ãä¥à a ¤«¨­ë #
 RENAME-FILE  a1 #1 a2 #2 -> ¯¥à¥¨¬¥­®¢ ­¨¥ ä ©« 
 RENMOVE       az1 az2  ->   ¯¥à¥¨¬¥­®¢ âì ¨«¨ ¯¥à¥­¥áâ¨ ä ©«
 SAVE ¨¬ï      ->            coxpa­¨âì ¢ ä ©«¥ âeªyéee cocâoï­¨e
 SAVE-FILE   n -> ?          coxpa­¨âì ¢ ä ©«¥ âeªyéee cocâoï­¨e
 SAVE-NAME     -> a          ¡ãä¥à ¤«ï ¨¬¥­¨ SAVE-ä ©« 
 SAVE-TO: ¨¬ï  ->            § ¤ âì ¨¬ï ä ©«  ¤«ï SAVE
 SEEK-FILE   d1 n1 n2 -> d2  ¯®§¨æ¨®­¨à®¢ âì ä ©«
 SEQ>TIB       ->            ¯¥à¥­¥áâ¨ ¢ TIB áâà®ªã ¯®á«¥¤®¢ â. ä ©« 
 SETDIR        az ->         § ¤ âì â¥ªãé¨© ¯ãâì
 SETDISK       n  ->         § ¤ âì â¥ªãé¨© ¤¨áª (0 §­ ç¨â A)
 WRITE-CR      n  ->         ¢ë¤ âì '‚Š' ¨ '�‘' ¢ ä ©«
 WRITE-FILE    a # n -> #1   ¯¨á âì ¡ãä¥à a ¤«¨­ë # ¢ ä ©«

Œ�ŽƒŽ‡€„€—�›‰ �…†ˆŒ

 ACTIVATE          ->         § ¯ãáª § ¤ ç¨ a
 BACKGROUND ¨¬ï  u1 u2 u3 ->  ®¯à¥¤¥«ïîé¥¥ á«®¢® ¤«ï á®§¤ ­¨ï § ¤ ç¨
 BUILD           a ->         ¨­¨æ¨ «¨§ æ¨ï ®¡« áâ¨ § ¤ ç¨
 FREE            a -> a ?     ¨áâ¨­ , ¥á«¨ à¥áãàá a á¢®¡®¤¥­
 GET               ->         § ¯à®á ­  à¥áãàá a
 HALT              ->         ®áâ ­®¢¨âì § ¤ çã a
 HIS             a1 a2 ->  3  a3 -  ¤à¥á ¯¥à¥¬¥­­®©  2 ¢ § ¤ ç¥ a1
 OPERATOR        -> a          ¤à¥á â¥à¬¨­ «ì­®© § ¤ ç¨
 PAUSE           ->           ®â«®¦¨âì ¢ë¯®«­¥­¨¥ â¥ªãé¥© § ¤ ç¨
 RELEASE         a ->         oc¢o¡o¤¨âì pecypc a
 RUIN            a ->         ¨cª«îç¨âì §a¤açy a ¨§ ªo«ìæa
 STATUS          -> a         a¤pec o¡«acâ¨ âeªyée© §a¤aç¨
 STOP            ->           ocâa­o¢¨âì âeªyéyî §a¤açy

ACCEM�‹EP

 ;CODE       ->        ¤e©câ¢¨e ¢pe¬e­¨ ¨c¯o«­e­¨ï ¤«ï á«®¢ ,
                       co§¤a­­o£o o¯pe¤e«ïîé¨¬ c«o¢o¬
 ASSEMBLER   ->        c«o¢apì acce¬¡«ep­ëx ¬­e¬o­¨ª
 BEG-ASM     ->        ­aça«o acce¬¡«ep­o© ¯po£pa¬¬ë
 CODE ¨¬ï    ->        ­aça«o o¯pe¤e«e­¨ï acce¬¡«ep­o£o c«o¢a
 END-ASM     ->        ªo­eæ acce¬¡«ep­o© ¯po£pa¬¬ë
 END-CODE    ->        ªo­eæ o¯pe¤e«e­¨ï acce¬¡«ep­o£o á«o¢a
 LABEL ¨¬ï   ->        ­ ç «® ®¯à¥¤¥«¥­¨ï  áá¥¬¡«¥à­®© ¯à®£à ¬¬ë
 NEXT        -> a      ªo­câa­âa - a¤pec âoçª¨ NEXT
                        ¤à¥á­®£® ¨­âep¯peâaâopa
 NEXT,       ->        ¬aªpoªo¬a­¤a, pea«¨§yîéaï äy­ªæ¨î NEXT
 WAIT        -> a      ªo­câa­âa - a¤pec ¤«ï ¯epexo¤a ­  STOP
                       ¢ ¬­o£o§a¤aç­o¬ pe¦¨¬e

Câàãªâãà    ® ¯ à ¥ ¤ ¥ « ¥ ­ ¨ ï   ç ¥ à ¥ §   ':'
       á¥£¬¥­â ¨¬¥­                        ª®¤®¢ë© c¥£¬¥­â
   ÉÍÍÍµ¯®«¥ ¨¬¥­¨ÆÍÍÍ»    º             ÉÍÍÍÍµ¯®«¥ ª®¤ ÆÍÍÍÍ»
   º¡¨âë ¯¥à¢®£® ¡ ©â º    º ÉÍÍÍÍÍÍÍÍÍÍºa¤p. ¯po£pa¬¬ë CALLºÍÍÍÍÍÍÍ»
   º 7    1           º    º º           ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶       º
   º 6    'IMMEDIATE' º    º º    ¯®«¥   ºa¤p. ¯ep¢o£o c«o¢a º2 ¡a©âaº
   º 5    'SMUDGE'    º    º º ¯apa¬eâpo¢º    . . . .        º       º
   º 4..0 ¤«¨­a ¨¬e­¨ º    º º           ºa¤p. ¯oc«e¤­. c«o¢aº2 ¡a©âaº
   ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶    º º           ºa¤p. c«o¢a  EXIT   º2 ¡a©âaº
   ºªo¤ë              º n  º º           ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼       º
   º     «¨â¥à        º¡ ©âº º  ÚÄÄÄÄÄÄÄÄÄ´¯à®£à ¬¬  CALL ÃÄÄÄÄÄÄÄÄ¿ º
   º           ¨¬¥­¨  º    º º  ³BX INC  BX INC  ( ¤à.¯®«ï ¯ à ¬.) ³¼
   ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶    º º  ³BP DEC  BP DEC                    ³
   ºa¤p. ¯pe¤ë¤. ¨¬¥­¨ºÍÍÍÍ¼ º  ³[BP], SI MOV (IP ¢ áâ¥ª ¢®§¢à â®¢)³
   ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶      º  ³SI, BX MOV   (­®¢®¥ IP)           ³
   ºa¤p. ¯®«ï ª®¤     ºÍÍÍÍÍÍ¼  ³NEXT,                             ³
   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼         ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
