
                           H
                    (ࠢ筮 㪮⢮)

ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨  -
  ।   ॢ, 頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486 ६
ࠡ ⠭樨  15:00  23:30  ᪮᪮ ६  㤭  
㣫筮  室  ࠧ.  ⮬  ⥫䮭  
  3:00  12:00  ᪮᪮ ६.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

(⥫쭠 졠 -     ,    ஢
࠭.  ⠪ 㬠,  ᫨  㤥 ,  ᠬ 
㬥  ᨬ  ࠧ஢ .)

    ঠ

 00 -  ॢ稪.

 1 - 

    ____________________________________________________
         ࠢ筮 㪮⢮  ________________________
         ࣠ ______________________________________
         ଠ ᠭ ⮢ 몠________________________
         ᫮ 祭  ᨬ_________________________

 2 - ଠ 室  ணࠬ

    ଠ ____________________________________________
         ⪨ ஢  ᠭ____________________________
         襭 ___________________________________
         १ࢨ஢ ᫮________________________________
         樠 ᨬ____________________________________
         , , ᪨  ᪨ -
	   __________________________________________________
    ଠ ணࠬ____________________________________________
         PROGRAM ( ணࠬ)__________________________
         MEMBER ( ਭ -童_____
         MAP ( ⨯ 楤 / 㭪権)_______
         MODULE (뢠 䠩 -童)___________________
         ⨯ 楤  㭪権___________________________
         PROCEDURE ( 楤)________________________
         FUNCTION ( 㭪)___________________________
         CODE (稭 믮塞 )__________________
         ROUTINE (  ணࠬ)_____________
         END (襭 )_____________________________
    ४⨢ _______________________________________
         BEGIN (稭  )________________________
         COMPILE (। ⥪, 騩 樨)_______
         EJECT (  ࠭ ⨭)_________________
         EMBED ( ᥪ 室 )________________
         INCLUDE ([]஢ ⥪  㣮 䠩)____
         LIST (砥 室 ⥪  ⨭ )___
         OMIT (㪠뢠 ⥪  騩 樨)________
         SECTION (। ᥪ 室 )_____________
         SUBTITLE (⠥  )_________________
         TITLE (⠥  )______________________

 3 - ᠭ ६

     ᠭ__________________________________________
         BYTE (⭮ 楫  )_____________________
         SHORT (塠⭮ 楫  )____________________
         USHORT (塠⭮ 楫  )___________________
         LONG (塠⭮ 祫  )__________________
         ULONG (塠⭮ 楫  )_________________
         SREAL (塠⭮ ⢥  )__________
         REAL (쬨⭮ ⢥  )____________
         DECIMAL (㯠 筮 䨪.   )_
         PDECIMAL ( ,   DECIMAL)________________________
         STRING (ப 䨪஢ )____________________
         CSTRING (ப 䨪. ,  㫥)______
         PSTRING (ப  ஥ ⮬ )____________
         DATE (塠⭠ )_____________________________
         TIME (塠⭮ ६)____________________________
         GROUP (⠢  )_____________________
         LIKE (।塞 짮⥫ ⨯ )_________
     ६__________________________________________
     ଠ⮢____________________________________________
         ⮡ࠦ ᥫ  _____________________________
         筠  (ᯮ樠 ଠ)______________
         ଠ ___________________________________________
         ଠ ६________________________________________
         ଠ " ࠧ"___________________________________
         Key-in   Template   Pictures___________________________
         ଠ ப__________________________________________
    ਡ ६_________________________________________
         PRE (䨪 ⪨)____________________________________
         DIM (ࠧ୮ ᨢ)______________________________
         ᨢ  ࠬ 楤  㭪権_______________
         EXTERNAL (६ ᠭ  ணࠬ)____________
         NAME (譥  ६)__________________________
         OVER (ࠧ     㣮 ६)____
    ४⨢ _______________________________________
         EQUATE ( )_______________________________
         SIZE (ࠧ   )__________________________

 4 - ࠦ

    ࠦ___________________________________________________
         ᫮ ⠭_____________________________________
         ᫮ ࠦ_____________________________________
         䬥᪨ _______________________________
         ப ⠭____________________________________
          ⥭樨__________________________________
         ப ࠦ____________________________________
         ᪨ ___________________________________
         ᪨ ࠦ__________________________________

 5 -  ᢠ

     ᢠ______________________________________
           ᢠ_________________________
          ᢠ-樨________________________
         CLEAR ( ६)____________________________
    ࠢ ८ࠧ _______________________________

  6  -  ࠢ騥 

    ࠢ ணࠬ_______________________________________
         ᫥⥫쭮 믮 ஢_______________
         맮 楤________________________________________
    ࠢ騥 _______________________________________
         CASE ( ᫮ 믮)__________________
         EXECUTE ( 롮 )___________________
         IF ( ᫮ 믮)____________________
         LOOP (樮 , 横)____________________
    ࠢ騥 _______________________________________
         BREAK ( 襭 横)___________________
         CHAIN (믮  ணࠬ)_____________________
         CYCLE (३  砫 横)_________________________
         DO (맢 ணࠬ)______________________________
         EXIT (  ணࠬ)___________________________
         GOTO (३  ⪥)_________________________________
         HALT (  DOS)_____________________________________
         NOTIFY (ࠡ⪠ ᪨ 訡)__________________
         RESTART (१ ணࠬ)_________________________
         RETURN (   맮)______________________
         RUN (믮  )____________________________
         RUNSMALL (믮  )_______________________
         SHUTDOWN (। 楤 襭)_____________
         STOP (ਮ⠭ 믮 ணࠬ)______________

 7 -     

    楤______________________________________________
         BLANK ( אַ㣮쭨  ࠭)_______________
          梥⮢ ⨫ (ਡ)___________________
         PAINT ( אַ㣮쭨  ࠭)______________
         SCROLL (ப אַ㣮  ࠭)_______
         SETBLINK (ࠧ )___________________________
         SETCOLOR (⠭ ਡ)____________________
         SETCURSOR ( )____________________________
         SETGRAPHIC (⠭ ᪨ ०)______________
         SETMOUSE (樮஢  誨)________________
         SETNOBLINK ( )_________________________
         SETTEXT (⠭ ࠧ ࠭  ⥪⮢ ०)__
         SHOW (  ࠭)______________________________
         TYPE (뢥 ப  ࠭)_________________________
    㭪樨________________________________________________
         BACKCOLOR (頥 梥 䮭)_______________________
         COLOR (頥  梥⮢ ⨫)_________________
         FORECOLOR (頥 梥 । )____________
         GRAPHIC (頥 ⥪騩 ०)________________
         LOOK ( ᨬ()  ࠭)______________________
         MAKECOLOR (ନ  梥⮢ ⨫)______________
         MOUSECOL (X-न 誨)__________________________
         MOUSEROW (Y-न 誨)__________________________

    楤 
         ALIAS (⠭ ୠ⨢  )__________
         ASK (  ᨬ)_____________________________
         PRESS ( ᨬ   )____________
         SETKEYCODE (  )________________________
    㭪樨 __________________________________________
         ENTRY (頥   )______________
         KEYBOARD (頥 饥 ⨥  )_____
         KEYCODE (  襭 )__________________

 8 - Screen-

    ࠭ ਮ______________________________________________
          ⠪ SCREEN_______________________________________
         Equate-⪨ _____________________________________
         Equate-⪨ ______________________________________
    Screen-____________________________________________
         SCREEN (뢠 screen-)____________________
         AT ( ૨ ࠭)__________________________
         CENTER (ࠧ饭  業 䨧᪮ ࠭)________
         CUA (ᯮ짮 SAA/CUA- 䥩
	   짮⥫_________________________________________
         EXPAND ( ࠧ ப)____________________
         GRAPHIC ( ᪨ ०)_____________________
         SHADOW (⮬᪨ ⠢ ⥭  )__________
         ZOOM, FADE, WIPE, FALL (⮤  ࠭)________
    饭   ࠭__________________________________
         ROW (ப  ⮫)_________________________________
         COL (⮫  ⥪饩 ப)_________________________
     ࠭_________________________________________________
         BUTTON (-)___________________________________
         CHECK ( ⬥⪨ (祪)__________________________
         ENTRY (  )_________________________________
         IMAGE (-㭮)___________________________________
         LIST (ᯨ᮪ (⡮)________________________________
         OPTION ( 権)____________________________________
         PAINT (᪠ ⪠ ࠭)________________________
         PAUSE (    )_______________
         POINT (㪠⥫  REPEAT)_____________________
         PROMPT (ப ᪠  ᫥饣 )______
         RADIO (-ࠤ)_______________________________
         REPEAT (-७)__________________________
         STRING (࠭ ६)___________________________
         TEXT (   ⥪)________________________
    ਡ ______________________________________________
         ALRT (⠭  襭 )______________
         CAP ( 㪢 ᫮  묨)______________
         COLOR ( 梥 뢮)____________________________
         COLS ( ⮫  ⡮)______________________
         ESC (㤠 ३  ⨨ ESC)_____________________
         EVERY (ﭨ  ⠬ REPEAT)_____________
         FILL (६,  祭  ⡮)____
         FROM (।  ᬮ १ LIST)________________
         FIX ( ⡮)______________________________
         HIDE ( ᮤন )__________________________
         HLP (䨪     )_______
         HSCROLL,VSCROLL,HVSCROLL ( ப⪨  LIST)___
         IMM ( ᯮ)___________________________
         INDEX (᭠ ६  REPEAT)________________
         INS ( -  ० ⠢)__________________________
         LFT (ࠢ )_______________________________
         MAX (६ 稪 ப  REPEAT)________________
         MSG (뢮 ᮮ饭  ࠭)_________________________
         NAME ( ᪮ 䠩  뢮)_______________
         OVR ( -  ० )___________________________
         REQ (      㫥)____________
         REUSE (ᯮ짮 ࠭ ⠭ )_______
         SKIP (ய  )_____________________________
         TRN (஧筮 ࠦ)___________________________
         UPR ( ८ࠧ뢠  孨 ॣ)___________
         USE (易 ६  )_______________________
     "믠饥 " (Pull-Down)_____________________
         PULLDOWN (ᠭ 믠饣 )___________________
         SINGLE,DOUBLE,FULL,HALF ( ࠬ  )__________
         LOCAL (,  ன 뢠 PullDown)________
      PULLDOWN_____________________________________________
         ITEM ( PULLDOWN)________________________________
         MENU (  PULLDOWN)______________________________
    ਡ   PULLDOWN___________________________________
         KEY ( ண 롮)__________________________
         RIGHT (  MENU)_______________________________
         TOGGLE (-४⥫)_________________________

 9 -  ࠡ⪨ ࠭

    楤 ࠡ  ࠭__________________________________
         ACCEPT (ࠡ稪  ࠭)_______________________
         ALERT (⠭  襭 )______________
         BEEP (㪮 ᨣ )_______________________
         CLOSE ( ⥪騩 ࠭)__________________________
         DISABLE (⥬      )_______
         DISPLAY (뢥 USE-६  ࠭)______________
         ENABLE (ࠧ ᯮ짮 ⥬ ࠭
	   )________________________________________________
         ERASE (    USE-६)_____________
         GETSTYLES ( 梥⮢ ⨫  䠩)____________
         HELP (   ᪠)_________________________
         IDLE (ਮ᪨ 뢠 楤)_______________
         LOADSYMBOLS (㧪 ᥢ䨪)___________________
         OPEN ( ࠭  ࠡ⪨)_____________________
         SELECT (   ࠡ⪨)____________________
         SETAREA (⠭ ࠧ 㠫쭮 ࠭)________
         SETMSG ( ப ᮮ饭 ࠭)________________
         SETSTYLES (⠭  梥⮢ ⨫)____________
         SHOWIMAGE ( .PCX  .GIF)_____________________
         UPDATE ( USE-६  ࠭)__________
         USESYMBOLS (ᨬ, ᯮ㥬  ᥢ䨪)___
    㭪樨 ࠡ  ࠭____________________________________
         CHOICE (⭮⥫쭠  )________________
         COL ( ⮫)____________________________________
         COLS (᫮ ⮫殢)__________________________________
         CONTENTS (ᮤন USE-६)___________________
         FIELD (᫥ 襭 )_____________________
         FIELDS (⢮   ࠭)____________________
         REFER (뫮 饭    )__________________
         ROW ( ப)_____________________________________
         ROWS (⢮ ப)________________________________
         SELECTED (࠭  ࠡ⪨ )_________________
         STYLES (७ ᨢ  梥⮢ ⨫)_______

 10 - 

     ⮢___________________________________________
         REPORT (뢠  )____________________
         APPEND (뢠 뢮   䠩)____________
         DEVICE (ன⢮,  ஥ 뢮 )_________
         LENGTH (ப  ࠭)_____________________________
         LINE (६ - 稪 ப)______________________
         PAGE (६ - 稪 ࠭)____________________
         PRINTER (᪠ প ਭ)________________
         WIDTH (ᨬ쭮  ਭ ࠭)__________
     _____________________________________________
         HEADER ( ࠭)____________________________
         DETAIL (⥫ )___________________________________
         FOOTER ( ࠭)_____________________________
    ਡ ⮢ ___________________________________
         ALLOW (஫ 祩 ப)________________________
         ALONE ( DETAIL   /)
         FIXED ( ﭭ )_____________________
         SEPARATE (஬⮪  ࠬ)________________
    饭 ____________________________________________
         ROW (ப)___________________________________________
         COL (⮫)__________________________________________
         SUPPRESS (᫨ ப ,    )_______
      _______________________________________________
         CONTROL (ࠢ騥   ਭ)________________
         STRING (६ )_____________________________
         TEXT (筮  )_______________________
    ਡ ______________________________________________
         CLIP ( 墮⮢ ஡)________________________
         LFT, RHT, CENT (⮤ ࠢ )_____________
         UPR, LWR, CAP (⮤ ⠫樨 ᫮)______________
         USE (易 ६  )_______________________
         WRAP (ࠧ ७ ᫮)__________________________
     ______________________________________________
         OPEN (   ࠡ⪨)_____________________
         CLOSE ( ⥪騩 )__________________________
         PRINT (  )______________________
         ROWS (⢮ ப)________________________________
         ९ ࠭__________________________________
          ࠢ  ਭ_____________________

 11 -  

     䠩 ______________________________________
         FILE (ᠭ  䠩 )_________________
         CREATE (ࠧ ᮧ 䠩)______________________
         DRIVER (⨯ 䠩 )_____________________________
         ENCRYPT (஢ 䠩 )________________________
         OWNER (஫  ஢)__________________________
         RECLAIM (ᯮ짮  - 㤠 ᥩ)__
      䠩___________________________________
         INDEX (᪨  䠩)_______________________
         KEY (᪨  䠩)_________________________
         MEMO (⥪⮢ )__________________________________
         RECORD ( )______________________________
    ਡ  INDEX, KEY  MEMO______________________________
         BINARY (MEMO ᮤন  )_________________
         DUP (ࠧ 騥 祭 祢 )__
         NOCASE ( -  ⢨⥫  ॣ)___________
         OPT (뢠 )_______________________________
     ࠡ  䠩____________________________________
         BUILD (ந  / )__________________
         CLOSE ( 䠩)___________________________________
         COPY (஢ 䠩)_________________________________
         CREATE (ᮧ ⮩ 䠩)___________________________
         EMPTY ( 䠩 )___________________________
         FLUSH (    )____________________
         LOCK (   䠩)______________________
         OPEN ( 䠩)____________________________________
         PACK (䨧᪨  㤠 )______________
         REMOVE ( 䠩)__________________________________
         RENAME (२ 䠩)____________________________
         SHARE ( 䠩  ᮢ⭮ ०)_______________
         STREAM (ࠧ ਧ १ )_______________
         UNLOCK (ࠧ஢ ஢ 䠩)___________
     ࠡ  ﬨ___________________________________
         ADD ( )__________________________________
         APPEND (    䠩)_________________
         DELETE (㤠 )________________________________
         GET (   אַ )________________
         HOLD (   )_____________________
         NEXT ( ᫥  ᫥⥫쭮)___
         PREVIOUS (--/-- ।  ᫥⥫쭮)__
         PUT (  ⭮  䠩)___________________
         RELEASE (᢮ 墠祭 )________________
         RESET ( 㪠⥫ ⥪饩 )_________________
         SET (樨஢ ᫥⥫쭮 ࠡ⪨ 䠩)__
         SKIP (ய   ᫥⥫쭮)__________
    㭪樨 ࠡ  䠩_____________________________________
         BOF (砫 䠩)_____________________________________
         BYTES (ࠧ 䠩  )__________________________
         DUPLICATE (஢  㡫஢ 祢 )___
         EOF ( 䠩)______________________________________
         POINTER (⭮⥫  )___________________
         POSITION (   ᫥⥫쭮)___________
         RECORDS (⢮ ᥩ)___________________________
         SEND ( ᮮ饭 䠩 ࠩ)____________
    ࠡ⪠ ࠭権________________________________________
         COMMIT ( ᯥ譮 ஢ ࠭)______
         LOGOUT ( ࠭)_____________________________
         ROLLBACK ( 訡 ࠭)______________

 12 - ।

     ।___________________________________________
         QUEUE (뢠 QUEUE-)______________________
    楤 ࠡ  ।ﬨ________________________________
         ADD ( )_________________________________
         DELETE (㤠 )_______________________________
         FREE (㤠 ।)_________________________________
         GET ( )_________________________________
         PUT (१ )_____________________________
         SORT (஢ ।)___________________________
    㭪樨 ࠡ  ।ﬨ__________________________________
         POINTER (㪠⥫  ᫥ )_______________
         RECORDS (⢮ ⮢)_________________________

 13 - ᯮ⥫ 楤  㭪樨

    ⥬᪨ 㭪樨______________________________________
         ABS (᮫⭮ 祭)______________________________
         INRANGE (ਭ ᫠ )_______________
         INT ( ஡ )_____________________________
         LOGE (ࠫ )____________________________
         LOG10 ( )____________________________
         RANDOM (砩 ᫮)_______________________________
         ROUND (㣫 ᫠)_______________________________
         SORT ( ७)_______________________________
    ਣ᪨ 㭪樨__________________________________
         SIN (ᨭ)____________________________________________
         COS (ᨭ)__________________________________________
         TAN (⠭)__________________________________________
         ASIN (ᨭ)________________________________________
         ACOS (પᨭ)______________________________________
         ATAN (⠭)______________________________________
    ப 㭪樨___________________________________________
         ALL (ப   ᨬ)_________________
         CENTER (業஢ ப)__________________________
         CHR (ॢ ASCII- ᨬ  ᨬ)_____________
         CLIP ( 墮⮢ ஡)________________________
         DEFORMAT (㤠 ଠ஢  ஢ ப)___
         FORMAT (ଠ஢ ᫮  蠡)________________
         INSTRING ( ப  ப)__________________
         LEFT (ࠢ ப )_______________________
         LEN ( ப)_____________________________________
         LOWER ( ॣ)_________________________________
         NUMERIC ( ப ⮫쪮 ?)_______________________
         RIGHT (ࠢ ப ࠢ)_____________________
         SUB (頥 ப ப)______________________
         UPPER (孨 ॣ)________________________________
         VAL ( ᨬ)______________________________________
    ⮢ 㭪樨_____________________________________________
         BAND (᪮ )____________________________________
         BOR (᪮ )___________________________________
         BXOR (᪮  )______________________
         BSHIFT (⮢ ᤢ)_______________________________
    楤  㭪樨   ६__________________________
         ⠭⭠ _______________________________________
         ⠭⭮ ६______________________________________
         TODAY (⥬ )_________________________________
         SETTODAY (⠭ ⥬ )___________________
         CLOCK (⥬ ६)________________________________
         SETCLOCK (⠭ ⥬ ६)__________________
         DATE (⠭⭠ )________________________________
         DAY (᫮)____________________________________________
         MONTH ()__________________________________________
         YEAR ()_____________________________________________
         AGE ()__________________________________________
    楤  㭪樨 _____________________________________
         COMMAND ( ப)_____________________________
         MEMORY (㯭 )______________________________
         PATH (⥪騩   ⠫)__________________________
         RUNCODE ( 襭 )___________________________
         SETCOMMAND (⠭ ࠬ  ப)_____
         SETPATH ( ⥪騥  / ⠫)__________
    ᯮ⥫ 楤  㭪樨_________________________
         ADDRESS (   )_____________________
         ERROR (ᮮ饭  訡)____________________________
         ERRORCODE (  訡)__________________________
         ERRORFILE ( 䠩, ਢ襣  訡)_____________
         IN (   )____________________________
         MAXIMUM (ᨬ쭮 祭  ᨢ)________
         NAME ( 䠩  ன⢠  )__________________
         OMITTED (஢ઠ  ய饭 ࠬ)____________
         OUT (   )_____________________________
         PEEK (   )_________________________
         POKE (    )_____________________
         STATUS(ﭨ ਭ/᪠/䠩/)______

ਫ A

       ਮ______________________________________
         ଠ    ਮ_________________________
           ___________________________________
         KEYCODES.EQU___________________________________________

ਫ B

     訡_________________________________________________
         ERRORS.EQU_____________________________________________

ਫ C

    ࠢ 㠫쭮 ______________________________
         CLAVM (䨣 㠫쭮 )________________

Index___________________________________________________________


 00 -  ॢ稪.

  ਢ.   ࣥ મ. 18 ᥭ 1994   㤥 22
.  -  ᨮ ॢ稪,  ᨮ ணࠬ 
,  -  祫  ᢮ ⮨⢠  ⪠.
   ⮬,    ॢ稪, , 㢠 ⥫, ᬮ 㡥 
  ⥭ ⮣ 㪮⢠. ,   稫 ॢ
ᠭ ᠬ 몠,  , ᪮쪮     稫.
 㬮  ᨫ     ᪫祭:  ଫ ᮤঠ,
  ࠧ 㬠  ⮬,  ᪮쪮 ய   ᢥ ᨥ
⢮७ - ᫨誮  筮⥩ ॢ   ⮪.  㦥
 -   㦥   ᨨ, ࠨ , ,  㣨
㡫 襣 ,   -    ᨫ.   
 室 ⥫쭠 ஢ઠ ⮪  筮⥩ ॢ 
᫥騬 २   㬥樨  Clarion DataBase
Developer.
  ⮡ ঠ ࠧ, ᪠   ᥡ.   
᪮ -  த ஡ (aka Russian Jerusalem :).
樠쭠  -  ⤥ ଠ樮 ᯥ祭, 
砥,     㦨 孨 - ⪠ ᪮, 
祪  ਭ, ஢ઠ 饣 ﭨ 設,   ..
ணࠬ஢   ࠪ᪨  . , । 
- ⠪ ࠧ  ࡮᪠.   ⠫쭮 ६ 
祬 .  ⮬ ᫥ ॢ  誠. ,  뢠 SU.GAME,
   ࠧ⢮  ⥬    .
 ( 25.07.94)   . ⥩ . :)
  ⮡ ।।   "祬 ⠪ ७ ⢮
ॢ?", ᪠,      짮  祬, ஬
ᮡ⢥ . ⮬᪨ ॢ稪     祬
   (FILE=  .).  ᪮  짮
⨝⮬-7  ० 13243,    ᯮ짮   -   ⮬
०   ᯫ뢠. ஢ 砫  ᫮ -  
७쪨, 1963  ᪠,  ᫮.
   7  1993    童 쭥筮 㯯 짮⥫
ਮ (Far Eastern Clarion Users Group - FECUG).  ,  
:  ᮡࠥ  ,    (᫨ ) ⭨
 . 䮭  ஢᪥ (421)-235-7620.    -
樠  CPD / CDD.     ⭮. :) 
堡஢᪨ BBS (Ancient Temple 2:5040/18 (Stanislav Bezgin & Andrew
Kasantsew)  Something About Clarion 2:5040/34 (Alexander Ivanovsky)
ਭ, , ,  ࠩ , ন "訬 쬨".
   ,  न    䠩 ॢ.  
2:5040/22.3  2:50/601.    - ਠ  CPD & CDD,
ਡ⨢ ᫥ ᨩ  ⮣  㣮,  ࠢ筠
ଠ.  BBS   , ⠪  ⮫쪮 FREQ. 쪮 
:  ᮢ 訢 FILES -  䠩,  뫠  ⮬
,  ᯨ᪨ 䠩, 祭  XDIR.   5
ࠧ  ⨫,  -   ᯨ᮪,   , ⮣,
   ᪥.
  ᫨ , 㢠 ,  㪮⢮ ,   ,  
᢮ 祩  ࠢ.

 㤠.
Serg Agarkoff.

PS.    , 㦨. ᫨  㤭   ६  ।⢠,
ࠢ   . 682200, , , ஡,
-奬, .2, .23.  1 - ।⠢

।⠢ .............................................. 1-1
     ࠢ筮 㪮⢮   ....................... 1-1
     ࣠  ..................................... 1-1
     ଠ ᠭ ⮢ 몠 ....................... 1-2
     ᫮ 祭  ᨬ ........................ 1-4


                          


  ࠢ筮 㪮⢮  


Clarion Professional Developer - ⥣஢ ।  ᠭ
ਫ  ࠡ⪨   ⥬ ࠢ ଠ樥 
ப஢.  ணࠬ஢ ਮ - ᭮ ⮩ ।.  ⮬
㪮⢥,  ⪮ ᯨᠭ  쭮 ਭ樯.  ⮨
뢠   , , ᮡ  砫,    
ᨭ⠪, ॡ㥬   ᠭ, ,  㭪樨.

 㥬 ਬ   㭪 뫨 ᮡ ।⮬
襩 . ,  ଠ樨  ⮩  ᢥ  
㯠   㪮⢮ ன 뫪  ਮ,   ஥
⥬ .


  ࣠ 


  1 - ।⠢

 1 ᯥ稢   ࠢ筮 㪮⢮   ਮ. 
 ந ⪨ ⪨  ᮤঠ  ,  ਭ
, ⮡  ⥫  ᫮ 祭 ᯮ㥬
  .

 2 - ଠ 室  ணࠬ

 2    ணࠬ  ਮ.   ਢ
㭪, ᯥ樠 ᨬ, १ࢨ஢ ᫮,  ⠫쭮
ᠭ "௨稪", ॡ㥬  ᮧ 쭮,
஢ 室 ⥪  ਮ.

 3 -  ६

 3 뢠 ⨯  ᯮ㥬   ६ 
ணࠬ  ਮ. ஬ ⮣, ᠭ   ᪨ ଠ⮢,
뢠 "ᨬ ⨭".

 4 - ࠦ

 4 । ᨭ⠪, ॡ㥬  ⮣, ⮡ ꥤ
६, 㭪樨,  ⠭  ᫮, ப,  ᪨
ࠦ.

 5 -  ᢮

 5 뢠,  祭 ࠦ ᢠ ६.

 6 -  ࠢ

 6 뢠 ⠢ 믮 ,  ࠢ
⢨ﬨ  室 ணࠬ.

 7 -     

 7 뢠   㭪樨  㯠    
  䨧᪨ ன⢠.

 8 -  ࠭

 8 뢠   SCREEN  PULLDOWN     
ਧ.

 9 -  ࠭

 9 뢠 믮塞   㭪樨  
ᯥ묨   SCREEN  PULLDOWN.

 10 - 

 10 뢠   REPORT,  뢮 ଠ 
ਭ  㣨 । ன⢠ DOS.   ᥬ
⠬  ਧ, 믮塞   㭪樨  
ᯥ묨   REPORT ⠪ ᠭ .

 11 - ࠡ⪠  

 11 뢠 樨, ,  㭪樨  ࠡ 
䠩 .   㭪樨 ॡ㥬  짮⥫᪨
⥬  ⥬ ࠡ⪨ ࠭権 ⠪ 㬥஢ .

 12 - ࠡ⪠ । 

 12 뢠  ,  QUEUE,  ᯮ
⮡  ࠡ ଠ  .   ᥬ ⠬ 
ਧ, 믮   㭪樨  ᯥ묨  ࠡ
 ।ﬨ  ⠪ ᠭ .

 13 -    㭪樨

 13 뢠   㭪樨   ᯥ  ꥪ⮢
ᠭ   1-12.


  ଠ ᠭ ⮢ 몠


  몠 ணࠬ஢ ਮ 㯮  ⮬ 㪮⢥
⠭ H 㪢.  몠 ਢ  ᨭ⠪᪨
ࠬ, ⠫ ᠭ,  ਬࠬ 室 ⥪.

 ᪨ 㯯஢  ᨬ  娨  ⭮襭.
⮬, ᮤঠ ⮩  ஥   䠢⭮ 浪.  饬,
 砫  ᠭ ⨯   ,   ᫥ 
ਡ,     믮   㭪樨.

ଠ 㬥樨 ᯮ㥬  ⮩   
ᨭ⠪᪮ ࠬ  ᫥饩 ࠭.


     (⪮ ᠭ 祭  ᯮ짮)

[⪠]   (ࠬ1     [ࠬ2])[1()]
                        ᯨ᮪                    [2()]
			ୠ⨢
			ࠬ஢     


     ࠬ1  ᠭ ࠬ-1,    ⭮襭  
ࠬ-2   .

     ࠬ2  ᠭ ࠬ-2,    ⭮襭 
ࠬ-1   . ᪮  ਢ  ᪮, 
易⥫쭮,    饭.

ᯨ᮪ ୠ⨢ ࠬ஢  ᠭ ୠ⨢ ࠬ-1 
 ⭮襭  ࠬ-2   .

1 । 뢠饥 ⭮襭 -1   .

2 । 뢠饥 ⭮襭 -2   .

⪮ ᠭ  ⮬    .   ,
  㤥 ਡ⮬ 祢 ᫮ ஥ 뫮 ᠭ 
।饬 ⥪.       ࠬ஢
- ਡ⮢.

 頥 : ⨯ , 頥 ᫨   -
㭪.

訡: ᫨   ନ 訡    墠
㭪ﬨ ERROR  ERRORCODE,  ᫥ .

ਬ:

FieldOne - FieldTwo + FieldThree
                             !  ਬ 室 ⥪
FieldThree =  (FieldOne,FieldTwo)
                             ! ਨ ᫥   "!"

. : 1, 2, 㣨 室騥 祢 ᫮


  ᫮ 祭  


 ᯮ  ᠭ ᨭ⠪ ᫥騬 ࠧ:

           祭
           
 [ ]              㦠 易⥫ ( ॡ騩)
 		 ਡ  ࠬ.

 ( )             㣫  㦠 ᯨ᮪ ࠬ஢.

               ⨪  㦠 ᯨ᪨  ࠬ஢,
 		   ॡ    ⮫쪮   -
		 .

 ᫮ 祭 ᯮ㥬  ਬ   ⮬
㪮⢥:

       
    - 蠭 ॣ,   㪢 ᯮ짮 
㤮⠥
   ਨ - ८ ய 㪢

  ᫮ 祭 o  ⮬, ⮡  ਥ ⥪
 ⠡쭥, ⠪  ᭥ ᪮쪮  .


	   2 - ଠ 室  ணࠬ

ଠ                                             2-1
     ⪨ ஢  ᠭ                            2-1
     襭                                    2-1
     १ࢨ஢                                 2-1
     樠                                     2-2
     , , ᪨,  ᪨ 
                                                            2-3
ଠ ணࠬ                                            2-4
     PROGRAM ( ணࠬ)                          2-4
     MEMBER ( ਭ -童)    2-6
     MAP ( ⨯  - )       2-8
     MODULE (뢠 䠩 -童)                   2-9
     ⨯   H                           2-10
     PROCEDURE ( 楤)                        2-12
     FUNCTION ( 㭪)                           2-14
     CODE (稭 믮 )                   2-16
     ROUTINE (  ணࠬ)             2-17
     END (४頥 )                             2-18
४⨢                                        2-19
     BEGIN (稭  )                        2-19
     COMPILE (। ⥪, 騩 樨)      2-20
     EJECT (  ࠭ ⨭)                 2-20
     EMBED ( ᥪ 室 )                2-21
     INCLUDE ([]஢ ⥪  㣮 䠩)    2-22
     LIST (頥 祭 室  ⨭
           )                                     2-22
     OMIT (㪠뢠 ⥪  騩 樨)        2-23
     SECTION (। ᥪ 室 )             2-24
     SUBTITLE (⠥  )                2-24
     TITLE (⠥  )                      2-25

		        


  ⪨ ᠭ  ஢


 몠  室 㫥   ࠧ   
⥣ਨ: ᠭ   믮 ,   "" 
"".

 ६ 믮 ணࠬ, ᠭ  ࠭  ᮡ 
  ࠢ  ᮮ⢥⢨ c 믮묨 ࠬ. 
   ᠭ    ஢ ⪮. ⪠
뢠 । ⮯  PRO RAM ( ?). 
ᥬ ६, ࠬ , PROCEDURE, FUNCTION, 
    ⪠.

 室  ਮ, 1 ⮫ ⢥  ⮪. ⪠ 
ᮤঠ 㪢 ( 孥   ॣ),   0  9, ᨬ
ન ᨬ (_),  稥 (:).  ᨬ   㪢
 ᨬ ન. ⪨  ⢨⥫  ॣ 㪢,
⮬, CurRent  CURRENT -  ⪨. ⪠   
१ࢨ஢ ᫮.  믮    
  ᯮ짮  楫   GOTO.

⪠  PROCEDURE  FUNCTION - () 㭪樨 
楤. ᯮ짮 ⪨   믮  믮
楤. ⪠  ᯮ  ࠦ,  ᯨ᪠ ࠬ஢
㣨 㭪権,  ᢮ 祭, 頥 㭪樥.


  襭 


⠢   ᮧ,  ᠭ   
㣨 ᠭ .  ⢮ ⠢    몥
ਮ: SCREEN, REPORT, FILE, RECORD, GROUP,  ..  ⠢
    窮 (.)  祢 ᫮ END.
 IF, CASE, EXECUTE, LOOP,  BEGIN,   ࠢ 
 ⠪  襭 窮  ஬ END.

		       ࠭ 

騥 祢 ᫮ ࠭    ᯮ짮  ⪨.


  AND        ELSE        LOOP        RETURN
  BEGIN      ELSIF       MEMBER      ROUTINE
  BREAK      END         NOT         SECTION
  BY         EXECUTE     OF          THEN
  CASE       EXIT        OMIT        TIMES
  COMPILE    FUNCTION    OR          TO
  CYCLE      GOTO        OROF        UNTIL
  DO         IF          PROCEDURE   WHILE
  EJECT      INCLUDE     PROGRAM     XOR

騥 祢 ᫮  ᯮ짮  ⪨   
믮 ஢.    ᯮ짮  ⪨ ஢
PROCEDURE or FUNCTION:

  CODE       FOOTER      MENU        QUEUE       ROW
  COL        GROUP       MODULE      RECORD      SCREEN
  DETAIL     HEADER      OPTION      REPEAT      SUBTITLE
  FILE       MAP         PULLDOWN    REPORT      TITLE


  樠 


 ᯨ᮪ ᯥ樠 ᨬ ᯮ㥬  몥 ਮ:

樠
  ! - ᪫⥫  稭 ਩
  ? - ⥫  稭 equate-   .
  @ -  "᪮ " 稭  ଠ  ࠢ(?).
  * - 窠 稭 ࠬ ।     ⨯ MAP.

ନ (⥫)

  ; 窠--⮩ ࠧ 믮  ⮟騥   ப
CR/LF / ࠧ⥫ 믮 ஢
  .   窠 蠥 .
   - ⨪쭠  - ᨬ த ப 室 ⥪.
  #       LONG-६.
  $      REAL-६.
  "  窠   STRING- .

⥫
 ( ) 㣫  㦠 ᯨ᮪ ࠬ஢.
 [ ]  㦠 ᯨ᮪ ᮢ ᨢ.
 ' '  㦠 ப ⠭.
 { }  ᪮ 㦠  ७  ப ⠭.
 < >  ᪮ 㦠 ASCII-  ப ⠭,  㪠뢠
ࠬ  ⨯ MAP,    饭.

 (ᮥ⥫)

  . 窠 - 筠 窠 ᯮ㥬  ᫮  ⠭.
  ,   ᮥ ଥ  ᯨ᪥ ࠬ஢.
  : 稥 ᮥ 䨪  ⪮    ᨬ  ⪠.
  _ ન ᮥ 㯯 ᨬ   .


  + .
  - ⠭.
  * 㬭.
  / .
  %   .
  ^   ⥯.
  <  祬.
  >  祬.
  = ᢮  ࠢ⢮.
  ~ ᪮ "".
  & ⥭ (ப).


  , , ᪨,  ᪨ 


ନ    ⭮  㯭 . 
 㯭   ணࠬ,    ࠭祭
㯭. ᪨  ᪨ ⭮  । 
 .   ᪨  뤥  㧪
ணࠬ,  ᪨  뤥  ६ ᯮ

  ⨯     ।  ணࠬ 
ਮ:  ᪨ ,  ᪨ , 
 ᪨ .

 ᪨    ᥪ樨  , 
祢묨 ᫮ PROGRAM  CODE.  㯭 믮 ࠬ 
ࠦ      .  ᥣ   
६ ᯮ ணࠬ.

 ᪨    㫥-,  祢묨
᫮ MEMBER  PROCEDURE ( FUNCTION). 㯭  
࠭祭 । -  ஬  ;   
 ⮫쪮     㫥-. ,  
 ।  ࠬ  㣮   . 
᪨  - ᥣ    ६ 믮 ணࠬ.

 ᪨    ᥪ樨   
,  祢묨 ᫮ PROCEDURE ( FUNCTION)  CODE. 㯭
⮫쪮      ன  ;   
뫠 ⮫쪮    . ,    ।
 ࠬ  㣮   .  ᯮ㥬
묨 묨 ᪨ ࠧ頥  ⥪  맮 PROCEDURE 
FUNCTION,  ᢮  PROCEDURE  FUNCTION 祭.


Cࠬ  SCREEN, PULLDOWN, FILE, QUEUE,  REPORT 砥
᪠ ,   묨, 묨  㫥-,
 묨    . 쪮 ᠭ ६
     ࠧ饭  ⥪.   
   ⨭ ४ᨢ,    
६    맮,  ᯮ짮 ⮫쪮   
.

. : ⨯ 楤  㭪権

                         


 PROGRAM                                      ( ணࠬ)

             PROGRAM
            [MAP
	       ⨯
             .]
              
	     CODE
	     
	    [RETURN]
	     楤  㭪樨


 MAP              ᠭ  楤  㭪権.

 ⨯         PROCEDURE  FUNCTION.

  

    ᪨ ,    ᯮ짮
ᥬ 楤ࠬ  㭪ﬨ.

  CODE             砫  믮 ஢.

          믮 樨 ணࠬ.

  RETURN 蠥 믮 ணࠬ. 頥 ࠢ 樮
⥬.

  楤  㭪樨 - 室 ⥪  楤  㭪権  㫥
PROGRAM.

 PROGRAM - ࢮ ᠭ  室 㫥 ਮணࠬ. 
 ।⢮  ਨ  室 ⥪,  ४⨢
 TITLE & SUBTITLE.  䠩 室 ⥪ 
ᯮ   䠩  ꥪ⭮ (.OBJ)  ᯮ塞 (.EXE)
㫥  樨.  PROGRAM   ,  ⪠
 ஬.

  PROCEDURE - FUNCTION   MAP-. MAP
 ⨯ 㭪権 - 楤.  PROCEDURE  FUNCTION
ᮤঠ  ⤥쭮 䠩 室 ⥪    
 MODULE  । MAP.

   㫥 PROGRAM,  PROGRAM  CODE, 
"묨 ᪨ 묨"  㯭    
  .

 ਬ:

             PROGRAM              !஡ ᠭ ணࠬ
 Fahrenheit   REAL                 !ᠭ  
 Centigrade   REAL
             CODE                 !H砫 믮塞 
             SETCOLOR(7)
             BLANK
             SHOW(4,20,' ⥬  ७: ')
             Fahrenheit = ENTRY(4,50.@N-04)
             Centigrade = (Fahrenheit - 32) / 1.8
             SHOW(6,20,'  : ')
             SHOW(6,50,Centigrade,@N-04)
             SHOW(8,20,'Press any key to exit')
             ASK

. : MAP, MODULE, PROCEDURE, FUNCTION, , ,
᪨  ᪨ 


MEMBER              ( ਭ -童)

             MEMBER (ணࠬ)
            [MAP
	       ⨯
             .]
 [⪠]       
	     楤  㭪樨


  ணࠬ ப ⠭, ᮤঠ  䠩 ( ७)
 PROGRAM.  ࠬ ॡ.

  MAP ᠭ  楤  㭪権.  楤  㭪樨
    ᯮ짮 ⮫쪮 ⥬ 楤ࠬ 
㭪ﬨ, 祩  室  ⮬ 㫥-.

  ⨯           .

      ᪨ ,   
ᯮ짮 ⮫쪮 ⥬ 楤   㭪ﬨ 祩
室  室  ⮬ 㫥-.

楤  㭪樨 - 室   楤  㭪権 -.

MEMBER -    室 㫥   
PROGRAM-㫥.   ।⢮ ⮫쪮 ਨ  室
⥪ - ४⨢   TITLE  SUBTITLE.  ᫮
ॡ  砫  室 䠩  ᮤন 楤 -
  ᯮ  .  MEMBER 
ணࠬ  ன ਭ  室 .

-   ᮡ⢥ MAP-. 楤  㭪樨
  ⮩ MAP 㯭 ⮫쪮 㣨 楤ࠬ  㭪  ⮬
㫥-. 室   楤  㭪権   MAP ⮣
-  ᮤঠ  䠩 ᠬ -,  㣮
䠩. ᫨ 室        MAP
- ᮤন  ⤥쭮 䠩, ⨯ ⠪ 楤 -
㭪樨      MODULE  । MAP 
-.  ⤥ 室 䠩 -  ⠪
ᮤঠ ᮡ⢥ MAP,     ᠬ ⨯  ⮩
  .  PROCEDURE  FUNCTION   
쭮 MAP ()     쭮 MAP 
-  ᮤন 室 .

   㫥-,  祢묨 ᫮ MEMBER 
PROCEDURE  FUNCTION,  "묨 ᪨ 묨"   
  ⮫쪮 PROCEDURE  FUNCTION  । .

 ਬ:

             MEMBER('OrderSys')
                         ! ⭮  ணࠬ OrderSys
             MAP         !뢠  楤
               Func1(STRING),STRING
                         !Func1 ⭠ ⮫쪮  ⮬ 㫥
             .
 LocalData    STRING(10)  !뢠 ,   -
			 ! -H

 HistOrd      PROCEDURE   !ᠭ 楤 HistOrd
 HistData     STRING(10)  !,   PROCEDURE
             CODE
             LocalData = Func1(HistData)

 HistOrd2     PROCEDURE  !  楤
             CODE
             LocalData = Func1(LocalData)

 Funcl        FUNCTION(RecField)
             CODE


 . : MODULE, PROCEDURE, FUNCTION, , , ᪨
 ᪨ 


 MAP                  ( ⨯  - )

	     MAP
	       ⨯
	      [MODULE()
	         ⨯
               .]
             .


 ⨯     .

 MODULE      室 -童.

MAP- ᮤন ⨯,  뢠 㭪樨, 楤 
譨 室 㫨 ᯮ㥬    㫥-. MAP
  PROGRAM-㫥     
㯭   ணࠬ. MAP  㫥-   
  㯭 ⮫쪮  ⮬ 㫥-.

 ਬ:

 䠩 ᮤন

 Sample       PROGRAM              !ணࠬ Sample  sample.cla
              MAP                  !H砫 쭮 MAP
                LoadIt             !楤 "㧨 "
              .                    ! map

 ⤥ 䠩 ᮤন:
             MEMBER('Sample')     ! -
             MAP                  !  MAP
	       ComputeIt          !楤 "᫨ "
	     .                    ! MAP


. : PROGRAM, MEMBER, MODULE, ⨯   H


                         (㪠뢠 䠩  㫥-)

             MODULE(sourcefile)
               ⨯ 楤e
               ⨯ 㭪樨
             .


  sourcefile - ப ⠭. ᫨ sourcefile ᮤন  室 
 ਮ,    䠩 ( ७)  ᮤন
 - . ᫨ sourcefile -  ⥪,  ப
 ᮤঠ  㭨 䨪.

 ⨯ 楤 - ⨯  ᮤঠ饩  sourcefile.

  ⨯ 㭪樨 - ⨯  ᮤঠ饩  sourcefile.

 MODULE  -.  ᮤন ⨯   
 ᮤঠ  sourcefile.  MODULE  ⮫쪮 
  । MAP-.

 ਬ:

    "sample.cla" ᮤন:
             PROGRAM              !ணࠬ Sample  sample.cla
             MAP                  !H砫 MAP
               MODULE('Loadit')   !  室  loadit.cla
                 LoadIt           !    楤 load it
               .                  !   MODULE
               MODULE('Compute')  !  室  compute.cla
                 ComputeIt        !     楤 compute it
               .                  !   MODULE
             .                    ! MAP

    "loadit.cla" ᮤন:
             MEMBER('Sample')     !뢠 -H
             MAP                  !H砫 쭮 MAP
	       MODULE('Process')  !  室  process.cla
	         ProcessIt        !    楤 process it
	       .                  !   MODULE
	     .                    ! MAP


 . : MEMBER, MAP, ⨯   H


  ⨯   H

   [(ᯨ᮪ ࠬ஢)][,頥 ⨯][,ᮣ襭 -
				            ][,RAW][,NAME()]

               ⪠  PROCEDURE  FUNCTION.

  ᮪ ࠬ஢ ⨯  ।    
⢥ ࠬ஢

  頥 ⨯  ,  頥 FUNCTION.

襭 맮 -  ᪠᪨  -  ।
ࠬ஢ १ ⥪.

RAW - 뢥,  ࠬ STRING  GROUP   ⮫쪮  
.

NAME - । , "譥"     .

            ⨯ 
MAP. ⨯ ⮨ : 省   , 易⥫쭮
ᯨ᪠ ࠬ஢,  頥 ⨯  (᫨ 뢠 FUNCTION).
᫨ PROCEDURE  FUNCTION ⥪, ᠭ  㣮 몥, C 
,   㪠 ᮣ襭  맮 (। ࠬ஢ १
⥪.    । 譥 (external) .
  易⥫ ᯨ᮪ ࠬ஢ - ᯨ᮪ ⨯   ।
  , ࠧ 묨  砥  㣫
᪮.  ࠬ    饭  맮 PROCEDURE 
FUNCTION,    ᯨ᮪ ࠬ஢ ⨯    㣫
᪮ ( < > ).   ⨯ ࠬ஢    ய饭:
ࠬ맭祭, ࠬ-६,  ࠬ-㪠⥫ (?).
  ࠬ-祭 "।  祭."  "맢"  
 ᯮ  ६ ।  ᯨ᪥ ࠬ஢
"뢠饩"   . "맢" PROCEDURE  FUNCTION 
  祭 ६ ।  "뢠饩".
ࠬ-祭 ।⠢  ᯨ᪥ ⨯   ⨯ 
   MAP. ⨬ ⨯ ࠬ஢-祭:

    BYTE SHORT USHORT LONG ULONG SREAL REAL DATE TIME STRING

  ࠬ-६ "।  ". ६ । 
  ⮫쪮    .  祭 ६ 
"맢"     祭 ᠬ ६,  
 . ࠬ-६ ।⠢  ᯨ᪥ ⨯  
窮 (*)  ⨯     MAP. ⨬ ⨯
ࠬ஢-६:

   *BYTE *SHORT *USHORT *LONG *ULONG *SREAL *REAL *DATE *TIME
   *STRING *PSTRING *CSTRING *GROUP

ࠬ-㪠⥫  ।      "맢"
  . । 㪠⥫   "맢"
    ᯮ짮    ਮ, 
ॡ    ࠬ. ࠬ-㪠⥫  ।-
⠢    ᯨ᪥  ⨯  㪠⥫   ⨯  
  MAP.  ࠬ-㪠⥫ ᥣ "।   -
." ⨬ ⨯ ࠬ஢-㪠⥫:

   FILE KEY INDEX QUEUE SCREEN  REPORT PULLDOWN

FUNCTION   (RETURN) 祭.   
㦭  ᥭ  ᯨ᮪, ⤥ ⮩, ᫥ -
易⥫쭮  ᯨ᪠  ࠬ஢.  ⨬  ⨯ १⮢,
頥 㭪樥:

   BYTE SHORT USHORT LONG ULONG SREAL REAL DATE TIME STRING

 ,   易, 㪠 ᯮᮡ । ࠬ஢ - C
    襩     .  ᯥ稢
ᮢ⨬ ⥪ ᠭ묨  㣨 몠. ᫨ 
 㪠뢠 ⨯ ᮣ襭  맮,  㬮砭  ᯮ
७, ᭮  ॣ ᮣ襭.

ਧ RAW   । ⮫쪮    
 ,   ࠬ-祭,    ࠬ--
. 筮, ࠬ STRING  GROUP ।  (?)
    ப. ਧ RAW   । .  
   㭪権 譨 ⥪,   
 ⮫쪮  ப.

ਧ NAME ᯥ稢 譥     .
 ⠪ ᤥ   ᮢ⨬   ⥪ ᠭ묨
 㣨  몠. ਬ:      몠 C,
 C-譮 ᮣ襭  맮   㭪樨,  
 ન   㭪樨. ਧ NAME  
 ࠧ ଠ쭮  㭪樨  ⠢  ணࠬ
 ਮ    㭪樨   , 稭騬   -
ન.

ਬ:

      MAP
        MODULE('Test')
             !'test.cla' ᮤন  楤  㭪樨
           MyProcl(LONG)     !LONG ࠬ-祭
           MyProc2(<*LONG>)  !H易⥫ LONG ࠬ--
			     !
           MyFuncl(*SREAL),REAL,C
             !SREAL ࠬ-६, 頥 REAL,
             !C-譮 ᮣ襭 맮
           MyFunc2(FILE),STRING
             !FILE ࠬ-㪠⥫, 頥 STRING
        .                          ! MODULE  MAP
        MODULE('Party3.Obj')       !third-party ⥪
           Func46(*CSTRING),REAL,C,RAW
             !। ⮫쪮  CSTRING  C-㭪
           Func48(REAL),REAL,PASCAL  !PASCAL᪨ 맮
           Func49(SREAL),REAL,C,NAME('_func49')
             !C- 맮  譥  㭪樨
      . .                          ! MODULE  MAP


. : MAP, MEMBER, MODULE, NAME, RETURN


PROCEDURE                                   ( 楤)

⪠        PROCEDURE (ᯨ᮪ ࠬ஢)
[⪠]       
	     CODE
	       
            [RETURN]


᮪ ࠬ஢        易⥫ ᯨ᮪ ६, -
			  । 祭 .   
			 ᯨ᮪ ।   ࠬ
			 ᯮ㥬  ।  
			 楤.    ࠬ ⤥
			 ⮩.      ࠬ
			 㪠    ⨯  楤   MAP-
			 .

            ᪨ ,
			    ᯮ짮 ⮫쪮  
			 ⮩ 楤.

CODE                     砫 믮 ஢.

                믮 樨 ணࠬ.

RETURN           	  믮  楤.   -
			     ,   ன 楤
			 뫠 맢.

  稭 ᥪ 室    -
  믮   . 楤  뢠 饭
  ⪥ ( 㪠  ࠬ஢, ᫨   稨)   
ᯮ塞    ᥪ樨  ,  , 
H.  蠥  頥   맮 -
 믮  RETURN.  RETURN ந室   
믮 .  믮    ।
  室 䠩  砫  , ROUTINE, 
㣮 .

   । ,  祢묨  ᫮-
 PROCEDURE  CODE,  "묨 ᪨ 묨"
    ⮫쪮   (᫨   
।  ࠬ 㣮   ).   
  ⥪,    뤥  室  楤-
,  ᢮   襭.

     MAP -H  -
. ᫨    MAP ,   㯭 
㣮 楤  㭪樨  ணࠬ. ᫨   
MAP -H,  楤 㯭 ⮫쪮 㣨 楤-
ࠬ  㭪  ⮣ -H.

ਬ:

      PROGRAM           !ਬ  ணࠬ
      MAP
        OpenFile(FILE)  !⨯ 楤  ࠬ஬
        ShoTime         !⨯ 楤  ࠬ
      .
      CODE
      OpenFile(FileOne) !맮 楤   䠩
      IDLE(ShoTime)   !뢠 ShoTime  ACCEPT  
      :                 ! - 

OpenFile     PROCEDURE(AnyFile)   !뢠  䠩
             CODE                 !H砫 ᥪ樨 
             OPEN(AnyFile)        ! 䠩
             IF ERRORCODE() = 2   !᫨ 䠩  
               CREATE(AnyFile)    !  ᮧ 
             .                    ! ᫮ IF
             RETURN               ! ⭮

ShoTime      PROCEDURE            !뢠 ६
Time         LONG                 !쭠 ६
             CODE                 !H砫 ᥪ樨 
             Time = CLOCK()       ! ⥬ ६
             SHOW(1,1,Time,@T3)   ! ६
             RETURN               ! ⭮


. : ⨯   H, ,  ,
	   ᪨  ᪨ 


FUNCTION                                      ( 㭪)

⪠        FUNCTION(ᯨ᮪ ࠬ஢)
[⪠]       
             CODE
               
             RETURN(祭)


᮪ ࠬ஢        易⥫ ᯨ᮪ ६ -
			  । 祭 .  
			 ᯨ᮪ ।   ࠬ
			 ᯮ㥬  । 室 
			 H.  ࠬ ⤥ -
			 ⮩.    ࠬ -
			   ⨯ 㭪樨  MAP--
			 .

            ᪨ 
			     ᯮ짮   ⮫쪮
			 ⮩ 㭪樥.

CODE                     砫 믮 ஢.

                믮 樨 ணࠬ.

RETURN		         蠥 믮 㭪樨   -
			 頥  祭    ࠦ   ஬
			 㭪 ᯮ짮.

祭                 ᫮  ப ﭭ 
			 ६  । १
			 맮 㭪樨.

  稭 ᥪ 室    
 믮 饭  ⪥  ( ᯨ᪮ ࠬ஢,
᫨ ). 㭪   ᯮ짮    ࠦ-
,   ࠬ    㣮     ᥪ樨 
. 믮  蠥 (ॡ㥬) ஬
RETURN   ᥪ樨 CODE.

    । ,   祢묨 ᫮
FUNCTION  CODE,   "묨 ᪨  묨" 
   ⮫쪮   (᫨    -
।   ࠬ 㣮     ).  
  ⥪,    뤥  室  㭪,
 ᢮  室  .

     MAP -H   .
᫨    MAP ,   㯭  㣮
楤  㭪樨  ணࠬ. ᫨    MAP -
-H,  㭪 㯭 ⮫쪮 㣨 楤ࠬ  㭪-
  ⮣ -H.

ਬ:

             PROGRAM
             MAP
               FulIName(STRING.STRING,STRING),STRING
                        !⨯ 㭪樨  ࠬࠬ
               DayString,STRING
                        !⨯ 㭪樨  ࠬ஢
             .
             CODE
             :                  ! 
             :

FulIName     FUNCTION(Last,First,lnit) !㭪  

             CODE                 !H砫 ᥪ樨 
             IF Init              !᫨  । 樠
               RETURN(CLIP(First) & ' ' & Last)
                                  !    
             ELSE                 ! ⨢ 砥
               RETURN(CLIP(First) & ' ' & Init & '. ' & Last)
                                  !    
             .                    ! ᫮ if
DayString    FUNCTION             !㭪  

             CODE                 !H砫 ᥪ樨 
             Day# = (TODAY()%7)+1 !   
				  !⥬ 
             EXECUTE Day#         !Execute, 頥 
				  !
               RETURN('ᥭ')
               RETURN('쭨')
               RETURN('୨')
               RETURN('।')
               RETURN('⢥')
               RETURN('⭨')
               RETURN('㡡')
             .                    !  execute

. : ⨯   H


CODE                               ( 믮 )

	     CODE


 CODE ⤥ ᥪ 樨   ᥪ樨 믮-
 ஢   । , ,   .
 ,   믮  ,   
 -  ᫥ ᫮ CODE.

ਬ:

OrdList      PROCEDURE  !塞 楤
                        !  ᠭ 
             CODE   ! 砫 ᥪ樨 ""
                        !  믮 

. : PROGRAM, PROCEDURE, FUNCTION


ROUTINE                        (  ணࠬ)

⪠         ROUTINE

⪠               ணࠬ.

ROUTINE  砫  ⭮ ணࠬ.   쭠 
⭮襭      ன  ᠭ  
    ᥪ樨  CODE       ன 
ਭ.

ROUTINE 뢠 ஬ DO,    ⪠  -
ࠬ. ࠢ ணࠬ ᫥ 믮 ROUTINE  -
  ᫥ ᫮ DO. ROUTINE 稢 殬  -
室  ,    砫  㣮  ROUTINE,  , 
.  RETURN  ⠪ ᯮ짮  -
  ROUTINE ( RETURN  ).

ਬ:

SomeProc     PROCEDURE
             CODE
               !
             DO CheckPage    !맮 ணࠬ
               ! 

CheckPage    ROUTINE         !砫 ணࠬ,  ६-
			     ! - 砭 楤
             IF LineCount > 55    !᫨  55 ப
               PRINT(@FF)         !   ॢ ଠ
               LineCount = 0      !   稪 ப
               EXIT               !  室  ணࠬ
             .                    ! ᫮ if


. : EXIT, DO


END                                        ( )

	     END


END 蠥 ᠭ   ⠢ 믮 .
㭪樮쭮 ⥭ 窥 (.)

ਬ:

Customer     FILE,DRIVER('Clarion')    !ᠭ 䠩
               RECORD                  !   ᠭ 
Name             STRING(20)
Number           LONG
               END                     !   ᠭ 
             END                       ! ᠭ 䠩

             CODE
             IF Number <> SavNumber    !砫  if
               DO GetNumber
             END                       !  if

             CASE Action               !砫  case
             OF  1
               DO AddRec
             OF  2
               DO ChgRec
             OF  3
               DO DelRec
             END                       !  case


                      

४⨢   -      
믮 ஥ ⢨  ६ 樨.   
 祭  믮 ꥪ  ணࠬ   ந-
 .


BEGIN                                (।  )

	     BEGIN
	       
             .


       믮 樨 ணࠬ.

४⨢  BEGIN ⠢   ᬠਢ
㯯 ஢    . BEGIN   
 窮  ஬ END.

BEGIN ᯮ    ࠢ EXECUTE  ⮡ -
 ࠡ뢠 ᪮쪮 ப   .

ਬ:

             EXECUTE Value
               Procl         !믮 ᫨ Value = 1
               BEGIN         !믮 ᫨ Value = 2
                 Value+=1
                 Proc2
               .
               Proc3         !믮 ᫨ Value = 3
             .

. : EXECUTE


COMPILE        (। 筨  㦭 ஢)

             COMPILE(⥫[,ࠦ])


⥫      ப ﭭ,  ⬥砥  ᫥-
		  ப  室 .

ࠦ        ࠦ,  饥  ᫮    믮
		 COMPILE. ࠦ  : EQUATE = 楫.

४⨢ COMPILE ।  ப 室 ,  
㦭   . 祭  稭  ४-
⨢ COMPILE  稢 ப,  ᮤন  ப
⠭-⥫.
???
 ப-⥫ 砥  COMPILE-.
???

易⥫ ࠬ "ࠦ" ࠧ蠥 ᫮  COMPILE.
ଠ ࠦ 筠.   - ⪠  EQUATE,  
⠭ ४⥫ CONDITIONAL  ஥⭮ ⥬, -
஢s   ࠢ⢠ (=),      楫 -
⠭.    COMPILE   ⥫   ⮫쪮
᫨ ࠦ ⨭.  ࠦ  ॡ, COMPILE 
ࠬ "ࠦ"   㦥,  ⮬    室  
 ᫨   饭   OMIT. COMPILE  OMIT
 - ,     ,   訥 ࠧ,    
    㣠.

ਬ:

Demo         EQUATE(1)          ! EQUATE-祭 Demo
             CODE
             COMPILE('EndDemoChk',Demo = 1)
                       !஢ ⮫쪮 ᫨ Demo=1
               DO DemoCheck     !஢ઠ ࠭⥫
EndDemoChk                      !  ᫮ COMPILE

. : OMIT, EQUATE


EJECT                           (  ࠭ ⨭)

             EJECT([ ])



		  ப ﭭ, ᮤঠ ,
		   㦭 .  ᫥饩 ࠭-
		   ⨭,   ⠥  
		  ࢮ  쥩 ப.

४⨢ EJECT 稭  ࠭ , 易⥫쭮,  
   ⨭ ਮ. ᫨  
饭,   ᫥饩 ࠭ 㤥 ⢮  -
 ⠭ ।騬 ४⨢ SUBTITLE  EJECT.

ਬ:

      EJECT('ᠭ 䠩')  !H  ࠭  
				!


EMBED                          ( ᥪ 室 )

             EMBED(ப)
                 室 
             .


ப               ப ﭭ   ᥪ-
		        室 .  筮 -
		         ᮮ饭   訡, 
		      䨪樨 ⮯ 訡.
 
室         ⨬  몠 ਮ.

४⨢ EMBED     室  .
 稭  ४⨢ EMBED   蠥  ஬ END
 窮.

४⨢ EMBED ⠢  㬥஢ ப 室-
  ⭮⥫쭮 砫  . ப ᯮ
 ᮮ饭  訡 ⮡ ।    
 ᮤন 訡. ᫥ 饩 窨    END,
㬥 ப ஬ த  ⮣ ,   
뫠 ࢠ ४⨢ EMBED ( ᫮ ப  ᮤঠ-
   ).

४⨢ EMBED 筮 ᯮ ⮡ ஢ 
 室   祭 ஬ ਫ  
ந  室 .

ਬ:

      CODE
      SETCOLOR(7)                      !ப  1
      BLANK                            !ப  2
      SETCOLOR()                       !ப  3
      EMBED('EndEmbed','Source One')   !ப  4
        SETCOLOR(23)                   ! ப 1
        SHOW(25,35,'Message')          ! ப 2
        SETCOLOR()                     ! ப 3
      .                         !ப 8,   
      OPEN(Screen)                     !ப  9


INCLUDE                     (஢   㣮 䠩)

             INCLUDE(_䠩[,ᥪ])[,LIST]

_䠩       ப ﭭ  ᮤন ᯥ䨪-
		 DOS-䠩  室 ⥪⮬. ᫨  㪠-
		 ७,   㬮砭 ਭ .CLA.

          ப ﭭ    ப
		ࠬ஬ ४⨢  SECTION ⬥饩  砫
		室   㦭 .

LIST             祭   ⨭.

४⨢ INCLUDE 㪠뢠 室   㦭  -
஢,    室   ⤥쭮  䠩.  
४⨢ INCLUDE, 㪠 䠩,     㪠  ᥪ
 ⠪,   室  ᠬ 㥬 -
㫥.

 ᯮ 䠩  ७祭 (TS.RED) ⮡  
ॡ㥬 䠩.     ,    
⨯  _䠩  (筮    ७).   㦭
    _䠩,  㦭 .  -
㦤 䠩 ७祭  室  㪮⢥  ணࠬ-
.

ਬ:

GenLedger    PROCEDURE                 !뢠 楤
             INCLUDE('filedefs.cla')
                                  ! 稬 ᠭ 䠩
             CODE                      !H砫 ᥪ樨 
             INCLUDE('Setups','ChkErr')
                            !砥 ᥪ ஢ન 訡 
			    !setups.cla


LIST    (頥 祭 室   ⨭ )

	     LIST


ਧ LIST ४⨢  INCLUDE ⠢   
祭 室   ⨭. ᫨ ਧ LIST 饭,  
⮫쪮 ᠬ  INCLUDE   ⨭.

ਬ:

      INCLUDE('filedefs.cla'),LIST
              ! ᠭ 䠩     ⨭


OMIT                  (뢠  騩 樨 ⥪)

             OMIT(⥫[,ࠦ])


⥫      ப ﭭ  ⬥砥 ᫥
		 ப  室 .

ࠦ        ࠦ 饥 ᫮ 믮 OMIT,
		 ࠦ   : EQUATE = 楫.

OMIT ४⨢  ।   室     
  ஢.    ப   ᮤঠ ਨ 
室    ᥪ     "⪫祭"   -
 楫.  饭   稭   ४⨢ OMIT  
蠥  ப,    ᮤন     ᠬ ப
⠭,   ⥫.  ப-⥫ ⮦  -
  OMIT-.

易⥫  ࠬ  "ࠦ"  ࠧ蠥  ᫮ OMIT.
ଠ  ࠦ  筠.    ⪠  EQUATE, 
⠭ ४⥫ CONDITIONAL  ஥⭮ ⥬, -
஢s   ࠢ⢠ (=),      楫 -
⠭. ४⨢ OMIT 믮 ⮫쪮, ᫨ ࠦ ⨭-
.

COMPILE  OMIT - ⨢       -
 .

ਬ:

        OMIT('**END**')        !᫮ OMIT
      *************************************************
      *
      *  横 ணࠬ
      *
      *************************************************
      **END**

Demo         EQUATE(0)       ! EQUATE-祭 Demo
             CODE            ! ⮫쪮, ᫨ Demo
	     		     !ࠢ 
             OMIT('EndDemoChk',Demo = 0)
                             !஢ઠ ࠭⥫
               DO DemoCheck  ! 饭 
EndDemoChk

. : COMPILE, EQUATE


SECTION                       (। ᥪ 室 )

             SECTION(ப)

ப             ப ﭭ   .

४⨢  SECTION 뢠 砫  믮
室   ᠭ . SECTION ᯮ  -
易⥫ ࠬ ४⨢ INCLUDE ⮡   -
  室  . SECTION 蠥  ᫥饩 
 殬 䠩.

ਬ:

             SECTION('FirstSection')  !H砫 ᥪ樨
FieldOne     STRING(20)
FieldTwo     LONG
             SECTION('SecondSection')
                         !稢 ।, 稭 
			 !ᥪ
               IF Number <> SavNumber
                 DO GetNumber
               .
             SECTION('ThirdSection')
                         !稢 ।, 稭 
			 !ᥪ
               CASE   Action
               OF 1
                 DO AddRec
               OF 2
                 DO ChgRec
               OF 3
                 DO DelRec    ! ᥪ 蠥  -
               .              !殬 䠩

. : INCLUDE


SUBTITLE      			  (  )

             SUBTITLE( )


   ப ﭭ ᮤঠ 騩
		      .

SUBTITLE ⠥  ࢮ  쥩 ப ⨭  -
ਮ.  ४⨢  SUBTITLE    ⠥  ⨭. ४⨢
SUBTITLE   饭  砫 室    -
ᠭ PROGRAM  MEMBER.   ⠥    ⥬ 
   ࠭ ⨭,  ᫨      ४⨢
EJECT.

ਬ:

             SUBTITLE ('ᠭ  ')


TITLE                                (⠥  )

             TITLE( )


   ப ﭭ, ᮤঠ ,
                   㦭 .

TITLE ⠥  ࢮ  ࢮ ப ⨭  ਮ.
४⨢ TITLE  ⠥  ⨭. ४⨢ TITLE 
 饭  砫 室   ᠭ PROGRAM  
MEMBER.   ⠥    ⥬      ࠭
⨭.

ਬ:

             TITLE ('ORDERSYS - ⨭ ⥬  ')



                   CHAPTER 3 - ᠭ ६

 ᠭ.......................................... 3-1
     BYTE (⭮  楫)................... 3-1
     SHORT (塠⭮ 楫  ).................... 3-2
     USHORT (塠⭮  楫)................. 3-3
     LONG (塠⭮ 楫  ).................. 3-4
     ULONG (塠⭮ 楫  )................. 3-5
     SREAL (塠⭮ ⢥  ).......... 3-6
     REAL (쬨⭮ ⢥  )............ 3-7
     DECIMAL (㯠 筮 䨪.   ). 3-8
     PDECIMAL ( ,   DECIMAL)........................ 3-9
     STRING (ப 䨪஢ ).................... 3-10
     CSTRING (ப 䨪. ,  㫥)...... 3-11
     PSTRING (ப  ஥ ⮬ )............ 3-12
     DATE (塠⭠ )............................. 3-13
     TIME (塠⭮ ६)............................ 3-14
     GROUP (⠢  )..................... 3-15
     LIKE (।塞 짮⥫ ⨯ ).......... 3-16

 ६.......................................... 3-17

 蠡........................................... 3-18
     ⮡ࠦ ᥫ  ............................. 3-18
     ⮡ࠦ 筮 樨.(ᯮ樠 ଠ).. 3-20
     ⮡ࠦ ....................................... 3-21
     ⮡ࠦ ६.................................... 3-22
     ⮡ࠦ " ࠧ"............................... 3-23
     Key-in Template Pictures............................... 3-24
     ⮡ࠦ ப...................................... 3-26
ਡ ६......................................... 3-27
     PRE (䨪 ⪨).................................... 3-27
     DIM (ࠧ୮ ᨢ).............................. 3-28
     ᨢ  ࠬ   ............... 3-29
     EXTERNAL (६, ᠭ  ணࠬ)......... 3-30
     NAME (譥  ६).......................... 3-31
     OVER (ࠧ   )........................ 3-33
४⨢ ....................................... 3-34
     EQUATE ( )............................... 3-34
     SIZE (ࠧ   ).......................... 3-35


BYTE                               (⭮ 楫  )

⪠   BYTE(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


    ଠ:       ⭠ ६
                  
    :         7                    0
    :     0..255

initial value    ᫮ ⠭. ᫨ 饭,  ࠧ㬥-
                  .

DIM              ୮() ६  ᨢ.

OVER                  ⮪   㣮
		 ६

NAME              ୠ⨢, "譥"   .

EXTERNAL         뢠,  ६ 뢠   
                    뤥   譥  ⥪. 
                 ࠧ襭  ᠭ FILE, QUEUE  GROUP.

BYTE 뢠 ⭮  楫. ᢮ 祭
室饣  ।    ਢ  ।᪠㥬 -
⠬.

ਬ:

Countl  BYTE                  !Declare one byte integer
Count2  BYTE,OVER(Countl)     !Declare OVER the one byte integer
Count3  BYTE,DIM(4)           !Declare it an array of 4 bytes
Count4  BYTE(5)               !Declare with initial value
Count5  BYTE,EXTERNAL         !Declare as external
Count6  BYTE,NAME('SixCount') !Declare with external name

ExampleFile  FILE,DRIVER('Clarion')   !Declare a file
Record         RECORD
CountS           BYTE,NAME('Counter')!Declare with external name
             . .


SHORT                              (塠⭮ 楫  )

⪠ SHORT(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


            祭
ଠ: 
:     15                  0

:  -32,768..32,767

initial value    ᫮ ⠭. ᫨ 饭,  ࠧ㬥-
                  .

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              譥  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

SHORT 뢠  塠⭮ 楫       ଠ 楫
᫮ Intel 8086. 訩   ⮩ 䨣樨 -  
(0 = ,  1 = .  ⥫ 祭  ।⠢ 
⠭⭮   . ᢮  祭, 室饣
 ।  SHORT   ।᪠㥬 १⠬.

ਬ:

Count2  SHORT,OVER(Countl)     !Declare OVER the two-byte signed
                               !  integer
Count3  SHORT,DIM(4)           !Declare it an array of 4 shorts
Count4  SHORT(5)               !Declare with initial value
Count5  SHORT,EXTERNAL         !Declare as external
Count6  SHORT,NAME('SixCount') !Declare with external name

Examp]eFile     FILE,DRIVER('Clarion')    !Declare a file
Record            RECORD
Count7              SHORT,NAME('Counter') !Declare with external
                . .                       !  name


USHORT                               (two-byte unsigned integer)

⪠ USHORT(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


ଠ:      祭
        
:    15              0


:  0..65,535

initial value    ᫮ ⠭. ᫨ 饭, the initial
                 value is zero.

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              譥   ६.

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

USHORT  뢠 塠⭮  楫      ଠ ᫮
Intel 8086.  ⮩ 䨣樨     . ᢮
祭, 室饣  ।   USHORT ਢ  -
।᪠㥬 १⠬.

ਬ:

Countl  USHORT              !Declare two-byte unsigned integer
Count2  USHORT,OVER(Countl) !Declare OVER the two-byte unsi gned
                            !  integer
Counts  USHORT.DIM(4)       !Declare it an array of  4  unsigned
                            !  shorts
Count4  USHORT(5)           !Declare with initial value
Count5  USHORT,EXTERNAL     !Declare as external
Count6  USHORT,NAME('SixCount') !Declare with external name

ExampleFile    FILE,DRIVER('Btrieve')     !Declare a file
Record           RECORD
Count7             USHORT,NAME('Counter') !Declare with external
               . .                        !  name


LONG                            (塠⭮ 楫  )

⪠ LONG(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


ଠ:     祭
        
:   31                  0

:  -2,147,483,648..2,147,483,647

initial value    ᫮ ⠭.  ᫨ 饭, ࠧ㬥-
                  .

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              譥   ६.

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

LONG 뢠 塠⭮ 楫    ଠ 
楫 Intel 8086. 訩   - ,  (0 - ⥫쭮,
1 - ⥫쭮).  ⥫   祭  ।⠢  
⠭⭮    . ᢮  祭, 室饣
  ।  LONG, ਢ  ।᪠㥬 १-
⠬

ਬ:

Countl    LONG              !Declare four-byte signed integer
Count2    LONG,OVER(Countl) !Declare  OVER  the four-byte signed
                            !  integer
Count3    LONG,DIM(4)       !Declare it an array of 4 longs
Count4    LONG(5)           !Declare with initial value
Count5    LONG,EXTERNAL     !Declare as external
Counts    LONG,NAME('SixCount') !Declare with external name

ExampleFile  FILE,DRIVER('Clarion')   !Declare a file
Record         RECORD
Count7           LONG,NAME('Counter')!Declare with external name
             . .


ULONG                           (塠⭮ 楫  )

⪠ ULONG(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


    ଠ:       祭
               
   :        31           0
:         0..4,294,967,295
initial value   ᫮ ⠭. ᫨ 饭,  ࠧ㬥-
                 .

DIM             ୮() ६  ᨢ.

OVER                 㣮 ६.

NAME             譥  ६.

EXTERNAL        뢠   ,   ६ ᠭ  -
                   뤥  譥 ⥪. 
                ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

ULONG 뢠 塠⭮ 楫    ଠ -
  楫  Intel 8086.   ⮩ 䨣樨   .
᢮ 祭, 室饣  ।   ULONG 
।᪠㥬 १.

ਬ:

Countl  ULONG                !Declare four-byte unsigned integer
Count2  ULONG,OVER(Countl)    !Declare OVER four-byte unsigned                   integer
Count3  ULONG,DIM(4)    !Declare it an array of 4 unsigned longs
Count4  ULONG(5)              !Declare with initial value
Count5  ULONG,EXTERNAL        !Declare as external
Counts  ULONG,NAME('SixCount')!Declare with external name

Examp]eFile     FILE,DRIVER('Btrieve')    !Declare a file
Record            RECORD
Count7              ULONG,NAME('Counter') !Declare with external
                . .                       ! name


SREAL                    (塠⭮ ⢥  )

⪠ SREAL(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


ଠ:       冷        
        
:     31               23                 0

:  0, +/- 1.17549435e-38 .. 3.40282347e+38
                                          (6  )

initial value     ᫮ ⠭. ᫨ 饭, ࠧ㬥-
                   .

DIM               ୮() ६  ᨢ.

OVER                   㣮 ६.

NAME              Specify an alternate, "external" name for  the
                  field.

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

SREAL 뢠 塠 ᫮ ६   
饩 ⮩  ଠ ⪮ 楫 Intel 8087 (-
 筮). ᢮ 祭, 室饣  । -
 SREAL ਢ  ।᪠㥬 १⠬.

ਬ:

Countl  SREAL           !Declare four-byte signed floating point
Count2  SREAL,OVER(Countl)      !Declare OVER the four-byte
      signed floating point
Count3  SREAL,DIM(4)            !Declare it an array of 4 floats
Count4  SREAL(5)                !Declare with initial value
Count5  SREAL,EXTERNAL          !Declare as external
Count6  SREAL,NAME('SixCount')  !Declare with external name

ExampleFile FILE,DRIVER('Btrieve')     !Declare a file
Record        RECORD
Count7          SREAL,NAME('Counter')!Declare with external name
            . .


REAL                      (쬨⭮ ⢥  )

⪠ REAL(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]


   ଠ:            冷         
                
   Bits:           63               52                  0

: 0,+/-2.22507385850720le-308..+/- 1.79769313496231e+308
                                         (15  )

initial value    ᫮ ⠭. ᫨ 饭, ࠧ㬥-
                  .

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              "譥"   .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

REAL 뢠 ᬨ⭮ ⢥ ᫮     -
  ⢥  Intel 8087 (  筮. -
ᢥ ᫠,  室饣   ।   REAL ਢ 
।᪠㥬 १⠬.

ਬ:

Countl  REAL           !Declare eight-byte signed floating point
Count2  REAL,OVER(Countl)  !Declare OVER the eight-byte
        signed floating point
Count3  REAL,DIM(4)        !Declare it an array of 4 rlelals
Count4  REAL(5)            !Declare with initial value
Count5  REAL,EXTERNAL      !Declare as external
Count6  REAL,NAME('SixCount') !Declare with external name

ExampleFile  FILE,DRIVER('Clarion')  !Declare  a file
Record         RECORD
Count5           REAL,NAME('Counter')!Declare with external name
             . .


DECIMAL
    (㯠 筮 ᫮ 䨪஢   )

⪠ DECIMAL(length[,places][,initial value])[,DIM()][,OVER()]
	                                    [,NAME()][,EXTERNAL]

ଠ:
   s d15 d14 d13 d12 d11 d10  d9  d8  d7  d6 d5  d4 d3 d2 d1 d0
  
   60                                                          0
:
:  -999,999,999,999,999..999,999,999,999,999

length            ᫮ ⠭, ᮤঠ  饥
		 ᫮   ( 楫  ஡ 
                  )  ६. ᨬ쭠 
                 15.

places           ᫮ ⠭,  ⢮  
                  ஡  (ࠢ  筮 窨)  
                 ६.         ࠢ
                 ࠬ length. ᫨ 饭,   뢠
                 ६ ⠥ 楫᫥.

initial value    ᫮ ⠭. ᫨ 饭,   㬮-
                  - .

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

DECIMAL 뢠 ६ ६   ,  -
 BCD (binary-coded-decimal) Intel 8087.   
DECIMAL ࠭  ⨭  ( 4   ). 
  ࠭  ᫠  ᢮ 襬  (0 = ,
- 㣮 - )    .  -
, ६ ⨯ DECIMAL ᥣ ᮤঠ ⭮ ᫮ 
(᪠, DECIMAL(10)  DECIMAL(11)    6 . -
ᢥ DECIMAL-६ 祭, 室  । DECIMAL
ਢ  ।᪠㥬 १⠬.

ਬ:

Countl  DECIMAL(5,O)   !Declare three-byte signed packed decimal
Count2  DECIMAL(5),OVER(Countl) !Declare OVER the three-byte
       signed packed decimal
Count3  DECIMAL(5.0),DIM(4)   !Declare it an array of 4 decimals
Count4  DECIMAL(5,0,5)               !Declare with initial value
Count5  DECIMAL(5,O),EXTERNAL        !Declare as external
Count6  DECIMAL(5,O),NAME('SixCount')!Declare with external name
ExampleFile FILE,DRIVER('Clarion')   !Declare a file
Record        RECOROD
Count7          DECIMAL(5,O),NAME('Counter 1)     !Declare with
            . .                                   !external name


PDECIMAL                                  ( ,   DECIMAL)

⪠ PDECIMAL(length[,places][,iinitial value])[,DIM()]
		[,OVER()][,NAME()][,EXTERNAL]


ଠ:
   dl5 dl4 d13 dl2 d11 d10  d9  d8  d7  d6 d5  d4 d3 d2 d1 d0 s
  
   63                                                        5 0
:

:  -999,999,999,999,999..999,999,999,999,999

length            ᫮ ⠭, ᮤঠ  饥
		 ᫮   ( 楫  ஡ 
                  )  ६. ᨬ쭠 
                 15.

places           ᫮ ⠭,  ⢮  
                  ஡  (ࠢ  筮 窨)  
                 ६.         ࠢ
                 ࠬ length. ᫨ 饭,   뢠
                 ६ ⠥ 楫᫥.

initial value    ᫮ ⠭. ᫨ 饭,   㬮-
                  - .

DIM              ୮() ६  ᨢ.

OVER                  㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

PDECIMAL  뢠  ६     ६ 
  ଠ Btrieve  IBM/EBCDIC.   PDECIMAL  -
ন    ,  4    .   ࠢ
 ᮤন   ᢮ 襬  (OFh  OCh  ⨢-
,  ODh  ⨢       .  ࠧ,
PDECIMAL-६ ᥣ ᮤঠ ண "⭮" ᫮ 
(᪠, PDECIMAL(10)  PDECIMAL(ll) ᯮ  6 ). -
᢮ ᫠,  室饣    PDECIMAL  ਢ  -
।᪠㥬 १⠬.

ਬ:

Countl  PDECIMAL(5,O)  !Declare three-byte signed packed decimal
Count2  PDECIMAL(5),OVER(Countl)!Declare OVER the three-byte
      signed packed decimal
Count3  PDECIMAL(5,O),DIM(4)  !Declare it an array of 4 decimals
Count4  PDECIMAL(5,0,5)         !Declare with initial value
Count5  PDECIMAL(5,O),EXTERNAL  !Declare as external
Count6  PDECIMAL(5,O),NAME('SixCount')!Declare with external name
ExampleFile FILE,DRIVER('Btrieve')    !Declare a file
Record        RECORD
Count7          PDECIMAL(5,O),NAME('Counter')    !Declare with
            . .                                  ! external name


STRING                              (ப 䨪஢ )

                  length     
⪠ STRING(string constant)[,DIM()][,OVER()][,NAME()]
                  picture                          [,EXTERNAL]


ଠ:           ஢ ᫮ .

:          1  65,535 .

length            ᫮ ⠭,   ࠧ 
                    .  ᯮ짮 ⮣ ࠬ,
                  ப 樠 ஡.

string constant   砫쭮 祭 ப.  STRING-a 
                   ( )   ⮩ ப
                  ⠭.

picture           ᯮ  ଠ஢ 祭, -
                  ᢮ ப.  ⠪ ப,  -
                  ⢮ , 筮  ࠭ ଠ-
                  ஢  ப. ப 樠 -
		  .

DIM               ୮() ६  ᨢ.

OVER                   㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

STRING 뢠 ᨬ ப 䨪஢ .

ਬ:

Name       STRING(20)                !Declare 20 byte name field
NameArray  STRING(l),DIM(20),OVER(Name) !Declare array over name
                                        !  field
Company    STRING('Clarion Software, Inc.,) !The software
                                            ! company - 22 bytes
Phone      STRING(@P(###)###-####P)     !Phone number field - 13
                                        !  bytes
ExampleFile   FILE,DRIVER('Clarion')    !Declare a file
Record          RECORD
NameField         STRING(20),NAME('Name') !Declare with external
              . .                         !  name


CSTRING        (ப 䨪஢ ,  㫥)

                  length     
⪠ CSTRING(string constant)[,DIM()][,OVER()][,NAME()]
                  picture                          [,EXTERNAL]


ଠ:           ஢ ᫮ .

:          1  65,535 .

length            ᫮ ⠭,   ࠧ 
                    ,    㫥 ᨬ-
		  .   ᯮ짮 ⮣ ࠬ,  ப
		  樠 ஡.

string constant   砫쭮 祭 ப. CSTRING-a 
                   ( )   ⮩ ப
                  ⠭  騩 㫥 ᨬ.

picture           ᯮ  ଠ஢ 祭, -
                  ᢮ ப.  ⠪ ப,  -
                  ⢮ , 筮  ࠭ ଠ-
                  ஢ ப  饣 㫥 ᨬ-
		  . ப 樠 ஡.

DIM               ୮() ६  ᨢ.

OVER                   㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

CSTRING 뢠 ᨬ ப,  㫥  ᨬ-
 (ASCII  NULL).   ᮮ⢥ ப,  ᯮ㥬 
몥 C   ⨯  "ZSTRING"   Btrieve Record  Manager. 
CSTRING   뤥 ⮪ ﭭ ,   ⮬,
騩 㫥䮩 ᨬ 頥     .
CSTRING   ६ ᯮ  ८ࠧ뢠   ஬
⨯ STRING.  CSTRING   㯮ॡ   ᮢ⨬-
  譨 䠩 / 楤ࠬ.

ਬ:
Name       CSTRING(21) !Declare 21 byte field - 20 bytes data
OtherName  CSTRING(21),OVER(Name) !Declare field over name field
Contact    CSTRING(21),DIM(4)     !Array 21 byte fields - 80
                                  !  bytes data Company
Company    CSTRING('Clarion Software, Inc.') !23  byte string 22
                                             ! bytes data
Phone      CSTRING(@P(###)###-####p) !Declare  14 bytes 13 bytes
                                     !  data
ExampleFile       FILE,DRIVER('Btrieve') !Declare a file
Record              RECORD
NameField             CSTRING(21),NAME('ZstringField')
                                     !Declare with external name
                  . .


PSTRING            (ப  ஥ ⮬-稪 )

                  length     
⪠ PSTRING(string constant)[,DIM()][,OVER()][,NAME()]
                  picture                          [,EXTERNAL]


ଠ:           ஢ ᫮ .

:          1  255 .

length            ᫮ ⠭,   ࠧ 
                    ,     ࢮ  -
		  浪 ,   ஬  ࠭   ⠪
		  ப.

string constant   砫쭮 祭 ப. PSTRING-a 
                   ( )   ⮩ ப
                  ⠭  砫 -稪.

picture           ᯮ  ଠ஢ 祭, -
                  ᢮ ப.  ⠪ ப,  -
                  ⢮ , 筮  ࠭ ଠ-
                  ஢ ப  砫쭮  .

DIM               ୮() ६  ᨢ.

OVER                   㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

PSTRING 뢠  ᨬ ப   騬  ⮬   
,   ⮩  ப..  ᮮ⢥ ⨯,  -
㥬  ᪠  ⨯  "LSTRING"  Btrieve  Record
Manager.      뤥 ﭭ ,  
  ᮤন ᫮  ᨬ, ॠ쭮 ࠭   ⠪
६.  ६ ᯮ, PSTRING ८ࠧ  STRING.
 PSTRING   㯮ॡ  ᮢ⨬  譨
䠩 / 楤ࠬ.

ਬ:

Name      PSTRING(21)     !Declare 21 byte field - 20 bytes data
OtherName PSTRING(21),OVER(Name)!Declare field over name field
Contact   PSTRING(21),DIM(4)!Array 21 byte fields - 80 bytes data
Company   PSTRING('Clarion Software,Inc.')   !23 byte string - 22
                                             !  bytes data
Phone     PSTRING(@P(###)###-####P) !Declare 14  bytes - 13 bytes
                                    !  data
ExampleFile  FILE,DRIVER('Btrieve') !Declare a file
Record         RECORD
NameField        PSTRING(21),NAME('LstringField')
             . .                    !Declare with external name


DATE                                       (塠⭠ )

⪠       DATE[,DIM()][,OVER()][,NAME()][,EXTERNAL]


ଠ:            
              

:         : 1..9999
                : 1..12
                 : 1..31

DIM             ୮() ६  ᨢ.

OVER                 㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

DATE 뢠   ६ ⨯ .  ଠ
ᮮ⢥ ⨯  "DATE"   Btrieve Record Manager.  DATE,
ᯮ㥬   ᫮ ࠦ,  ८ࠧ뢠   ᫮
, 襤  28  1800  (⠭⭠  ਮ-
 , 筮 ࠭   LONG). ⨬   ⠭-
⭮ ਮ᪮  -  1 ﭢ 1801   31 
2099 . ᯮ짮 祭, 室  ।  
, ਢ  ।᪠㥬 १⠬.  DATE -
  㯮ॡ  ᮢ⨬  譨 䠩  /
楤ࠬ.

ਬ:

DueDate      DATE                 !Declare a date field
OtherDate    DATE,OVER(DueDate)   !Declare field over date field
ContactDate  DATE,DIM(4)          !Array of 4 date fields

ExampleFile   FILE,DRIVER('Btrieve') !Declare a file
Record          RECORD
DateRecd          DATE,NAME('DateField')
              . .                    !Declare with external name

. ⠪: Standard Date


TIME                                      (塠⭮ ६)

⪠       TIME[,DIM()][,OVER()][,NAME()][,EXTERNAL]


ଠ:     
        

:          : 0..23
                 : 0..59
                ᥪ㭤: 0..59
            ᥪ㭤/100: 0..99

DIM             ୮() ६  ᨢ.

OVER                 㣮 ६.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.

TIME 뢠 塠 ६ ⨯ ६.  -
 ᮮ⢥  ⨯   "TIME"   Btrieve Record  Manager.
TIME  ᯮ㥬    ᫮  ࠦ, ८ࠧ뢠 
᫮      ᥪ㭤,  襤  㭮 (⠭⭮
ਮ᪮ ६, 筮 ࠭   LONG).  DATE  
  㯮ॡ    ᮢ⨬   譨 䠩 /
楤ࠬ.

ਬ:

ChkoutTime  TIME                   !Declare checkout time field
OtherTime   TIME,OVER(CheckoutTime)!Declare field over time field
ContactTime TIME,DIM(4)            !Array of 4 time fields

ExampleFile FILE,DRIVER('Btrieve')    !Declare a file
Record        RECORD
TimeRecd        TIME,NAME('TimeField')!Declare with external name
            . .

. ⠪: Standard Time


GROUP                               (⠢  )

⪠      GROUP[,PRE()][,DIM()][,OVER()][,NAME()][,EXTERNAL]
              declarations
            .


declarations         ᫥⥫ ᠭ -
		 .

PRE              ⪠-䨪  ६ ⮩ .

DIM              ୮ ६  ᨢ.

OVER                       㣮
                 ६  ன.

NAME              "譥"  .

EXTERNAL         뢠   ,   ६ ᠭ  -
                    뤥  譥 ⥪. 
                 ࠧ襭  ᠭﬨ FILE, QUEUE  GROUP.


(SPA -  ,   ⨢ ᠬ ᥡ - ,  
ਡ external  ࠧ襭  group,   ᠬ 㪠뢠   
ᯨ᪥  ࠬ஢...)

 GROUP    ᪮쪨 ६  
 ⪥.    ᯮ짮  ७ (?)  
६,   ᢮  ࠢ ஢  ६
 ஬.   ᫮ ணࠬ,   GROUP
㤮  প ஢ 易 ࠧ⨯ .  GROUP
  窮  ஬ END.

 饭    ࠦ  ६ ⨯  GROUP,
GROUP ᠬਢ  STRING, ⠢    ६-
 ⮩ .  GROUP      
 ,  ਬ, RECORD  㣠 GROUP.

-  ७  ।⠢,  ᫮  ६  (஬
DECIMAL) ᠭ  㯯  ᮢᥬ ४⭮  ࠡ뢠,
 ᯮ짮   ப.  ⮩ 稭, ஥ -
,  ஬ ᯮ  ⨯ GROUP, ᮤঠ騥  ᫮
६,  ਢ   ᫥⥫쭮 ࠢ-
 (collating sequence).

ਬ:

NameGroup    GROUP,PRE(Nme)           !Name group
First          STRING(20)             ! first name
Middle        STRING(L)               ! middle initial
Last          STRING(20)              ! last name
             .                        !End group declaration

DateTimeGrp  GROUP,PRE(Dtg),DIM(10)   !Date/time array
Date           LONG
Time           LONG
             .                        !End group declaration


LIKE                    (।塞 짮⥫ ⨯ )

_ᠭ LIKE(룫廊_)[,DIM()][,OVER()][,PRE()]
                                                       [,NAME()]


_ᠭ                ⪠ ᠭ  ⨯ .

룤廊_     ⪠ ᠭ  ,  ।
                 㤥 ᯮ짮.

LIKE   । _ᠭ ᯮ  
 ᠭ,    룫廊_,   ਡ.

_ᠭ  ᯮ짮 ਡ DIM  OVER. ᫨  -
廊_  ਡ DIM,  _ᠭ ࠧ 㤥 -
ᨢ. ᫨  饬  ਡ DIM    _ᠭ,
 ࠧ୮ ᨢ ।  饬 (???).

ਡ PRE  NAME   ᯮ짮, ᫨ . ᫨ -
廊_ 㦥   ਡ, _ᠭ 㭠᫥  
  ਢ  訡 . ⮡ ࠢ  -
,    ਭ㤨⥫쭮  PRE   NAME  _ᠭ,
⮡ ४ 㭠᫥() ਡ().

ਬ:

Amount       REAL            !뢠 
QTDAmount    LIKE(Amount)    !ᯮ㥬   ᠭ
YTDAmount    LIKE(OTDAmount) !  ࠧ
MonthlyAmts  LIKE(Amount),DIM(12)!  ᠭ,   ᨢ
                                 ! 12 ⮢
AmtPrPerson  LIKE(MonthlyAmts),DIM(10)
          !  ᠭ,  㦥  120 ⮢ (12,10)

Construct  GROUP,PRE(Con)          !뢠 㯯
Fieldl       LIKE(Amount)          !  con:field1 - real
Field2       STRING(10)            !  con:field2 - string(10)
           .
NewGroup   LIKE(Construct),PRE(New)!뢠  㯯 
                                   !  new:field1 - real
                                   !  new:field2 - string(10)
AmountFile  FILE,DRIVER('Clarion'),PRE(Amt)
Record        RECORD
Amount          REAL               !Define a field
OTDAmount       LIKE(Amount)       !Use same definition
            . .

. ⠪: DIM, OVER, PRE, NAME

		       

 ६  뢠  ᠭ .  ᮧ-
 ஬,   砥  .   
६,  ᯮ짮    ᠭ  
( 祢묨 ᫮ PROGRAM  CODE)  "  -
᪨ ".   ६  祢묨 ᫮
MEMBER    PROCEDURE  (  FUNCTION)  " ᪨
".  ⠫  ६ -  " -
᪨ ".

 ६ 筮  ᯮ : ᮢ  ᨢ,
䫠 true/false, ஬ ६  ᫮ ᫥-
;  ࠢ騥 ६ 横, .  Clarion ।-
  ⨯  ६:

#        LONG-६,  ⪠ () 蠥 ᨬ-
         # (⪠, ).

$         㪠뢠   REAL-६, ⪠
         蠥 ᨬ $ ().

"        窠 (    䠬!) -
	   32塠 ப.   ⠪  ६ 
	稢 ᨬ " (窠   窠).

ਬ:

   LOOP Counter# - 1 TO 10                 !Implicit LONG
     ArrayField[Counter#] = Counter# * 2   !Initialize an array
   .
   Address"=CLIP(City) & ','&State &' '&ZIP!Implicit STRING(32)
   SHOW(12,16,Address")       !Used to display a temporary value

   Percent$ = ROUND((Quota/Sales),.1) * 100  !Implicit REAL
   SHOW(15,22,Percent$,@P%<<<.##P)
                              !Used to display a temporary value

. ⠪: , , ᪨,  ᪨
.


		        

 蠡  । ଠ  ᮪   ᬮ /
।஢ ६.  蠡   ᯮ짮
 ࠬ   ᠭ  ६ ⨯  STRING, ENTRY, 
STRING  OPTION    SCREEN-;    ࠬ ஢
STRING  REPORT-;   ࠬ   楤 
㭪権 ਮ; ,  ࠬ ᠭ STRING, CSTRING  
PSTRING.  ᥬ ⨯ ⮢ 蠡: ᫮   ,
筠 , , ६, ࠧ, key-in template  ப.


 ᥫ  

        @N[][][]ࠧ[㯯஢][]
                                               [][][B]


@N               蠡 ᥫ   稭  @N.

             ($)  ப  ⠭,
                祭  ⨫ (~). ᫨  ਧ -
                    ਧ ,   ᨬ 
                㤥 ""  襩  .  ᫨
                    ਧ  ,   ᨬ 
                ⠥   ࠩ   樨. ᫨  ᨬ
                 ⮨ ᫥  ࠧ  㯯஢,  
                  㤥  ᯮ     뢠
                ᫠.

             ଠ 뢮 ⥫ ᥫ.   ᫨
                 ⮨ ।   ,   -
                ⥫  ᫠    뢮   騬
                 "". ᫨    ᫥ ,
                , places,  ,  ᫠  
                뢮  墮⮢ ᮬ. ᫨   -
                , ।祭     ᪮,
                 ⥫ ᫠  뢮   -
                ,  祭묨  ᪮.

      뢠   㫥 - 㫨, ஡  
                窨 (*). ᫨  饭,  -
                騥 ஡ .

               0 騥 㫨 뢮,  
               -  㫥 - ஡,  
               *   㫥 뢮 窨

ࠧ           ॡ, ⮡ 㪠 饥 ᫮ -
                   뢮,  ⢮  
                ਧ    ᨬ ଠ஢.

㯯஢   ਧ   (஬ ⮩,   
                ਭ    㬮砭)     饭
                ࠢ    ,    㪠  ࠧ⥫
                㯯   .

                . ஦ 窨    - ஦ 
                _ ஦ ஡ ( ન!)

             ᨬ 筮  ࠧ⥫   ᫮
                  ஡ . ᫮   ஡ 
                  , 祬 .   ࠧ-
                ⥫   窠 (.), ᫠  㤠७
                ('),  㪢 "v" (⮫쪮  ᠭ  ଠ
		࠭ STRING-,    뢮).

                 . 窠 ஦    ࠧ-
                   ⥫
                 `  㤠७  ஦    -
                    ࠧ⥫.
                 v   ஦   ࠧ⥫ (⮫쪮
		    ࠭ STRING-)

B               ᫨ 祭 㫥,  ᫮ 뢮  
                ஡.

 蠡 ᥫ   ଠ ᫠  뢮 
࠭   . ᫨ 祭 , 祬  뢥  -
饬 蠡, ⠪ 祭 뢮   ப  -
祪.

ਬ:

᫮      ଠ
@N9      4,550,000     ,  㯯஢  묨  (
		    㬮砭)
@N_9B    4550000     ,  㯯஢, 騥 㫨
                    뢮  ஡
@N09     004550000   , 騥 㫨 뢮
@N*9     ***45,000   ,  窠, 㯯-
                    ஢ 묨
@N9_     4 550 000   , 㯯஢ ஡
@N9.     4.550.000   , 㯯஢ 窠

.   ଠ
஡
@N9.2    4,550.75      ஡ ,  ࠧ-
		    ⥫ - 窠
@N_9.2B   4550.75    ,  㯯஢,  ᫨ ,  -
                     ப ஡.
@N_9'2    4550,75      ஡ ,  ࠧ-
		    ⥫ - 
@N9.'2   4.550,75    ࠧ⥫ - ,  㯯-
		     窠
@N9_'2   4 550,75    ࠧ⥫ - ,  㯯-
		     ஡


 -   ଠ

@N-9.2B  -2,347.25  騩 , ᫨ ,   뢥 
		    ப
@N9.2-    2,347.25- ⮢ 
@N(10.2) (2,347.25) 뢥  ᪮, ᫨ ⥫쭮

       ଠ
 @N$9.2B       $2,347.25   騩  ,  뢥 
			   ப, ᫨ 
 @N$10.2-      $2,347.25-  騩   ,  墮⮢ -
                           , ᫨ ⥫쭮
 @N$(11.2)     $(2,347.25) 騩  , 뢥  ᪮-
                           , ᫨ ⥫쭮
樮                   ଠ
 @N12_'2~ F~             1 5430,50 F          ࠭
 @N~L. ~12'           L. 1.430.050            ⠫
 @N~L~12.2               L1,240.50            ⠭
 @N~kr~12'2             kr1.430,50            ࢥ
 @N~DM~12'2             DM1.430,50            ଠ
 @N12_'2~ mk~             1 430,50 mk         ﭤ
 @N12'2~ kr~              1,430.50 kr         

쪮 ࠭  :

Variablel      STRING(@N_6v2) !   ࠭  -
                              ! ࠧ⥫
      CODE
      Variablel = 1234.56 !࠭   '123456'
      SHOW(1,1,Variablel,@N_7.2)
                          !뢮  . 窮: '1234.56'


 筮 樨

             @Em.n[B]


@E       蠡 筮 樨 稭  @E.

m       饥 ᫮ ᨬ  ଠ, ।  蠡-
        .

n       ᫮  ᫥ 筮 窨.

B       ᫨ ᫮ ࠢ ,  뢥  ப.

 筮  樨 ଠ  祭 訥    祭
쪨 ᫠. 뢮   筮 ᫠  ⥯  -
.

ਬ:
            祭       
    @E9.0         1,967,865     .20e+007
    @E12.1        1,967,865    1.9679e+006
    @E12.1B               0
    @E12.1       -1,967,865   -1.9679e+006
    @E12.1       .000000032    3.2000e-008


 

             @Dn[s][B]


@D       蠡  稭  @D.

n        蠡 . ⨬   1  16.

s       ⥫.  (/) ⠢  , 楬  -
          設⢥ 蠡 .  ᯮ짮 -
        ୠ⨢ ࠧ⥫,  :

        . ஦ 窨  ` (᫠ 㤠७) ஦ 
        - ஦    _ (ન) ஦ ஡

B       뢥  ப, ᫨ ᫮ ࠢ .

  ࠭  ᫮ ६ (筮 LONG), DATE--
 ( ᮢ⨬   Btrieve),    STRING ᠭ  
  .  ,  ࠭    ᫮ ६ 뢠
⠭⭮ ਮ᪮ ⮩.   祭 ।⠢  ᮡ
⢮ , 襤   28  1800 .   
८ࠧ  ᫮    ଠ⮢ .

    ᯮ짮 蠡 @D3, @D4, @D7  @D8
᪮   ॡ   ⮫쪮 ,   㪢.

ਬ:

       ଠ             

   @Dl       mm/dd/yy           10/31/59
   @D2       mm/dd/yyyy         10/31/1959
   @D3       mmm dd, yyyy       OCT 31,1959
   @D4       mmmmmmmmm dd, yyyy October 31, 1959
   @D5       dd/mm/yy           31/10/59
   @D6       dd/mm/yyyy         31/10/1959
   @D7       dd mmm yy          31 OCT 59
   @D8       dd mmm yyyy        31 OCT 1959
   @D9       yy/mm/dd           59/10/31
   @D10      yyyy/mm/dd         1959/10/31
   @D11      yymmdd             591031
   @D12      yyyymmdd           19591031
   @D13      mm/yy              10/59
   @014      mm/yyyy            10/1959
   @D15      yy/mm              59/10
   @D16      yyyy/mm            1959/10
 ------ ୠ⨢ ࠧ⥫ ----------
   @Dl.      mm.dd.yy      ⥫ - 窠
   @D2-      mm-dd-yyyy    ⥫ - 
   @D5_      dd mm  yy     ન ஦ ࠧ⥫
			   ஡
   @D6`      dd,mm,yyyy     㤠७ ஦ ࠧ⥫
			   


 ६

             @Tn[s][B]


@T       蠡 ६ 稭  @T.

n        ଠ ६. ⨬  ଠ⮢ -  1
         6.

s       ⥫. 稥 (:) ⠢  㬮砭 
        ᠬ, ⠬  ᥪ㭤  設⢥ ଠ⮢ -
        .  ᯮ짮 ୠ⨢ ࠧ⥫, 
        :

         . ஦ 窨 ' (᫠ 㤠७) ஦ 
         - ஦   _ (ન) ஦ ஡

B       ᫨ 祭 ࠢ ,  뢥  ப.

६  ࠭  ᫮ ६ (筮 LONG),  TIME-
 ( ᮢ⨬ Btrieve),   STRING, ᠭ  
ଠ ६. ६, ࠭饥  ᫮ ६ 뢠-
 ⠭ ਮ᪨ ६.  ।⠢  -
 ⢮   ᥪ㭤, 襤  㭮.  
६ ॢ  ᫮    6 ଠ⮢ ६.

 ᯮ짮     蠡 (@T3   @T6),   
ॡ   ⮫쪮 ,   㪢.

ਬ:

       ଠ         

   @T1       hh:mm          17:30
   @T2       hhmm           1730
   @T3       hh:mmXM        5:30PM
   @T4       hh:mm:ss       17:30:00
   @T5       hhmmss         173000
   @T6       hh:mm:ssXM     5:30:00PM
 ------ ୠ⨢ ࠧ⥫ ------------
   @T1.      hh.mm         ⥫ - 窠
   @T1-      hh-mm         ⥫ - 
   @T3_      hh mmXM       ન ஦ ஡
   @T4'      hh,mm,ss       㤠७ ஦ 


 " ࠧ"

             @p[<][#][x]P[B]


@P       蠡 " ࠧ" 稭  ࠧ⥫ @P 
        稢 ࠧ⥫ P.   ࠧ⥫
             .

<       ᫥ . ᫨  ⮩ 樨 ,   -
	 ஡.

#       ᫥ .  ⮩ 樨 뢥 , -
	ᨬ   祭.

x       易⥫ ᨬ  뢮.  ᨬ  -
        ⢮  뢮 ப.

p        蠡 " ࠧ"  稢  P. ᫨
	ࠧ⥫ @p    ॣ,    
        ࠧ⥫ P ⮦     ॣ.

B       ᫨  ᫮ ࠢ ,  뢥  ப.

 " ࠧ" ᮤঠ 易⥫ 楫᫥ -
樨  易⥫ ᨬ ।஢.  ᨬ  ஬
<   # ⠥  ᨬ ।஢,    
ଠ஢ ப-१. ⥫  @P  P  ⢨-
⥫  ॣ,  ஬  .  ᤥ  ⮣,
⮡, ᫨ ᪠,    ᨬ "",    ᯮ짮-
 ࠧ⥫ ""  .

ਬ:
               祭   
   @P###-##-####P    215846377  215-84-6377
   @P<#/##/##P       103159     10/31/59
   @P(###)###-####P  3057854555 (305)785-4555
   @P###/###-####P   7854555    000/785-4555
   @p<#:##PMp        530        5:30PM
   @P<#'<#"P         506        5' 6"
   @P<#Ib. <#oz.P    902        91b. 2oz.
   @P4##A-#P         112        411A-2


Key-in Template Pictures

             @K[@][#][<][x][\][?][^][_][]K[B]


@K       key-in template 蠡 稭 ࠧ⥫ @K 
	  ࠧ⥫  K.     "" 
           ⥬ .

@       襭 ⮫쪮 㪢  孥   ॣ.

#       襭 楫 ᫠  0  9.

<        楫 ᥫ 뢮 騥 㫨 ஡.

x       ।⠢ 易⥫ ﭭ ᨬ  -
         ( ᨬ, ਣ   뢮  ࠭).  
	ᨬ     १ ப.

\       騩  \ ᨬ 뢮  ࠭   ⠥.
            १ ப  ᨬ
        ଠ஢ (@,#,<,\,?,^,_,)    ⠥
	ᨬ.

?        ⮩ 樨    ᨬ.

^        ⮩ 樨 ࠧ襭 ⮫쪮 㪢  孥 ॣ-
        .

-        ⮩ 樨 ࠧ襭 ⮫쪮 㪢   ॣ

|       ࠭⥫. 쪮    |   ⠥
        ᨬ,   |  饭   १
	ப.

K        key-in  template 蠡   ᨬ  "K".
        ᫨ ࠧ⥫ @k     ॣ,   
        騩 k      ॣ.

B       ᫨  ᫮ ࠭ ,  뢥  ப.

Key-in 蠡   ᮤঠ 楫᫥ 樨  ( # <  ),
ᨬ 樨 ( @ ^ _ ),    ᨬ ( ? ),  
⠥ ᨬ.  ᨬ, ஬ ᨬ ଠ஢,
ᬠਢ  ⠥,    ଠ஢-
 ப-१.  ⥫ @K  d K  ⢨⥫  -
  ⮩  稭,   @P  P  蠡 " ࠧ".

Key-in    ᯥ      ⨯ STRING, PSTRING, 
CSTRING    ந쭮 ।஢   ஥ન
⨬ . ᯮ짮 key-in 蠡, ᮤঠ -
 䠢  ( @ ^ _ )  ﬨ   ᥫ -
 ।᪠㥬 १.

᪮ ᯮ짮 ० ⠢  key-in 蠡,  -
 ⠪ ਢ  ।᪠㥬 १⠬,  key-in 蠡-
 ᥣ ਭ   ० ⪨,  ᫨ 
ਡ INS.

ਬ:
                祭   ப-१
    @K###-##-###K       215846377       215-84-6377
    @K####-####K           33064             33064
    @K####-####K       330643597        33064-3597
    @K<# ^^^ ##K          10AUG59         10 AUG 59
    @K(###)@@@-##\@##K 305abc4555    (305)abc-45@55
    @K###/?##-####K       7854555      000/785-4555
    @k<#:##^Mk               530P            5:30PM
    @K<#' <#"K                506              5' 6"
    @K4#_#A-#K               1g12            41glA-2


ப 蠡

             @Slength


@S       ப 蠡 稭  @S.

length  । ⢮ ᨬ  蠡 ଠ.

ப  蠡  뢠  ଠ஢  ப 
.

ਬ:

Name          STRING(@S20)          !20-ᨬ쭮 -ப

		       


PRE                                              (䨪 ⪨)

             PRE(prefix)


prefix  ⨬  ᨬ - 㪢,    0   9   ᨬ
        ન. 䨪   稭   㪢   
          १ࢨ஢ ᫮.

ਡ PRE ।ᬠਢ  䨪 ⪨   ᫮ 
.  ᯮ   ⮣, ⮡ ࠧ ६  
묨   ࠧ  .  饭   -
 ᯮ塞  ࠬ,   ᢮   । 
ᯨ᪠ ࠬ஢,  䨪 ᮥ   ⪥  稥
(Pre:⪠). PRE   ᯮ짮   ᫥騬  ࠬ
:

        DETAIL    FILE      FOOTER
        GROUP     HEADER    OPTION
        QUEUE     RECORD    REPEAT
        REPORT    SCREEN

ਬ:

MasterFile    FILE,DRIVER('Clarion'),PRE(Mst)    !Declare master
Record          RECORD                           !  file layout
AcctNumber        LONG
              . .
Detail      FILE,DRIVER('Clarion'),PRE(Dtl)      !Declare detail
                                                 !  file layout
Record        RECORD
AcctNumber      LONG
            . .
         GROUP,PRE(Mem)     !Declare some memory variables
Message    STRING(30)
Page       LONG
Line       LONG
Device     STRING(30)
         .
        CODE
        IF Dtl:AcctNumber <> Mst:AcctNumber !Is it a new account
           Mem:Message     -   'New   Account' ! display message
           DO MatchMaster                      !  get new record
        .

. ⠪:  १ࢨ஢ ᫮


DIM                                        (ࠧ୮ ᨢ)

             DIM(७,....,७)

७  ᫮ ⠭,   ⢮ -
           ⮢   ७ ᨢ.
ਡ DIM  ६-ᨢ.  ६  -
 ⮫쪮 ࠧ, ᪮쪮 㪠  ࠬ . -
 ᨢ   ᬠਢ    .
 ७ ᨢ  ᮮ⢥騩 .  -
ࠧ,    ६  -   嬥୮ ᨢ,
 㪠  .   ᫮ ७  뢠-
 ࠭祭,  ࠬ ᨢ   ॢ  65,520.
 ਡ⮬ DIM  ᯮ짮 ᫥騥 ⨯ :

SHORT   REAL      STRING    CSTRING  PSTRING
ULONG   USHORT    SREAL     DATE      TIME

 筮 ।   ᨢ. ᮪
ᮢ ᮤন     ᨢ.  ᯨ-
,  ⤥   㣠 묨,   ᯨ -
砥   ᪮ ([ ]).     ᫮
⠭⮩,  ࠦ    㭪樥.  ᫨   
ᥬ ᨢ 楫,   ᯮ짮  ⮣  ᨢ
 ᯨ᪠ ᮢ.

 GROUP - ᮡ 砩.  ஢   -
    GROUP     ६. ,  ᠭ 
GROUP  ᯮ짮 筮 ⠪ ,   ᮡ⢥ GROUP.

ਬ:

Screen   GROUP                   !  ࠭
Row        GROUP,DIM(25)         !25 ப
Pos          GROUP,DIM(80)       !  
Attr           BYTE              ! ਡ
Char           BYTE              !⢥ ᨬ
         . . .                   !蠥   㯯
 ।饩 㯯:
Screen         4,000⭠ GROUP
Row[1]         160⭠ GROUP
Pos[1,1]       2塠⭠ GROUP
Attr[1,1]      BYTE
Char[1,1]      BYTE

Month   STRING(10),DIM(12)       !୮   - 12
        CODE
        CLEAR(Month)          ! ᨢ  ஡
        Month[1] = 'January'  ! ᨢ ﬨ
        Month[2] = 'February'
        MonthE3] = 'March'

. ⠪: MAXIMUM


ᨢ  ࠬ 楤  㭪権


ᨢ  ।   PROCEDURE  FUNCTION. ⨯,  -
ᠭ  MAP-  뢠 ⨯  "ᨢ"  
ࠬ-६ ("।   ")     ᯨ᪮
ᮢ. 뢠騩    । ᨢ   ROCEDURE
 FUNCTION.

ਬ:

     PROGRAM
      MAP
        MainProc
        AddCount(*LONG[,],*LONG[,]) !। 2 㬥
      .                             !ᨢ ⨯ LONG
      CODE
      MainProc

MainProc        PROCEDURE

TotalCount        LONG,DIM(10,10)
CurrentCnt        LONG,DIM(10,10)
      CODE
      AddCount(TotalCount,CurrentCnt)!뢠 楤, ।-
                                     !  ᨢ

AddCount        PROCEDURE(Tot,Cur)  !楤 㦭  ᨢ
   CODE
   LOOP I# = 1 TO MAXIMUM(Tot,1)  !  ࢮ 
     LOOP J# = 1 TO MAXIMUM(Tot,2)!  ஬ 
       Tot[I#,J#l += Cur[I#,J#]   !  㢥 TotalCount 
   . .                            !  CurrentCnt
   CLEAR(Cur)                     ! ᨢ CurrentCnt
   RETURN

. ⠪: DIM, ⨯ 楤  㭪権, MAXIMUM


EXTERNAL                              (६ ᠭ )

             EXTERNAL


ਡ EXTERNAL  㪠뢠   ,   ६, ன  
᢮, ᠭ  譥 ⥪.  ࠧ, ६-
  ਡ⮬ EXTERNAL ।   ᯮ짮  -
ਮ᪨ ,       㤥 뤥 .  
 ⠪ ६ 뤥 ᠬ 譥 ⥪.  
ਡ  Clarion-ணࠬ    ,  -
ᠭ  PUBLIC  譨 ⥪.

EXTERNAL ⨬ ⮫쪮  ६, ᠭ   
FILE, QUEUE  GROUP.

ਬ:

        PROGRAM
        MAP
          MODULE('External.Obj')
            AddCount,PASCAL!External library with PASCAL
        . .                !         calling  convention
TotalCount  LONG,EXTERNAL !Variable declared in external library

. ⠪: NAME


NAME                                       (㪠 譥 )

             NAME([ constant ])
                    variable 


constant  ப ⠭.

variable  ⪠ STRING-६, ᠭ   ᠭ
               ᠭ  -
          -童.

ਡ NAME  "譥" .   ᨬ  -
ਡ EXTERNAL -      ॡ  裡,  
  ਡ      ⮩  ६.

ਡ NAME  ᯮ짮  ⨯ 楤  㭪権,
ਬ  FILE,  KEY, INDEX, MEMO,   , ᠭ  
FILE  QUEUE ,      .  -
ਡ NAME  ࠧ ᢮⢠,  ᨬ  ⮣,  
 ᯮ짮.

NAME(⠭)    ⨯ 楤   㭪権.
⠭  -    譥  ,  ᯮ㥬 騪 
䨪樨 楤  㭪樨  譥 ⥪.

ਡ NAME(⠭)   NAME(६)   ᠭ  FILE
  ᯥ䨪   䠩. ᫨ ⠭-
  ६   ᮤন    ,   ࠧ㬥
⥪騥   ⠫. ᫨ 饭 ७ 䠩,  -
㬥 ७, ⠭⭮   䠩 ࠩ-
.  䠩 ࠩ ॡ, ⮡ KEY, INDEX, 
MEMO- 뫨   ⤥  䠩.   ࠧ, NAME  
ਬ  ᠭ KEY, INDEX  MEMO. ਡ NAME  -
⠭    ६,  뫠    ⮣ ⥫쭮
,  ஬   ਬ ( 䨪, ᫨ -
 㪠).

NAME(⠭)    ਬ     , ᠭ 
 RECORD.   ᯮ짮  ,  -
 ࠭祭  , 뢠 ⤥묨 䠩-
 ࠩࠬ.

NAME(⠭)  ਬ      QUEUE.
 ⨣  ᪨ ஢  ६ -
.

NAME(⠭)  ⠪  ਬ    ६, -
ᠭ  - .     -
騪  譥  ஢ ६, ᠭ 
譥 ⥪. ᫨ ६   ਡ  EXTERNAL,
  ᠭ,     뤥 ᠬ 譥 -
⥪.  ਡ  EXTERNAL, ⠪ ६  뢠, 
   뤥  ਮ᪮ ணࠬ,   -
 譥  ⭮襭  譥 ⥪.

ਬ:

         PROGRAM
         MAP
           MODULE('External.Obj')
             AddCount(LONG),LONG,C,NAME('_AddCount')
                             !C function named ' AddCount,
         . .
Cust FILE,PRE(Cus),NAME(CustName) !Filename in CustName variable
CustKey  KEY('Name'),NAME('c:\data\cust.idx')
       				  !Declare key,cust.idx
Record   RECORD
Name       STRING(20),NAME        !Default NAME to 'Cus:Name'
         .                        !End file declaration
SortOue QUEUE,PRE(Que)
Fieldl    STRING(10),NAME('FirstField') !QUEUE SORT NAME
Field2    LONG,NAME('SecondField')      !QUEUE SORT NAME
        .
CurrentCnt  LONG,EXTERNAL,NAME('Cur')  !Field declared public in
                                     ! external library as 'Cur'
TotalCnt        LONG,NAME('Tot')   !Field declared external
                                   !in external library as 'Tot'

. ⠪: ⨯  楤    㭪権,  FILE,  KEY,  INDEX,
	   QUEUE, EXTERNAL


OVER                                  (ࠧ   )

             OVER(६)

६  ⪠ ६,  㦥  ,  -
             ࠧ.

ਡ OVER  뫠      ⮪ 
 ࠧ묨 ﬨ. ,  ᠭ  ਡ⮬ OVER,  
  , 祬 ६,  ன  뢠
(, 筮,    ).

(SPA.     㤭  ࠧ,   뫮   ᢮
६, ᪠   堭 祭 ᪠᪨  
ਠ⠬)

   GROUP    ᠭ   ६,
 室  ⮩   GROUP. ,   -
   ६,    ᯨ᪠ -
஢ 楤  㭪樨.

ਬ:

    CustNote      FILE,PRE(Csn)       !Declare CustNote file
    Notes           MEMO(2000)        !The memo field
    Record          RECORD
    CustID            LONG
                  . .
    CsnMemoRow    STRING(IO),DIM(200),OVER(Csn:Notes) !Csn:Notes
                                 ! ᬠਢ  
                                 !楫    10 
. ⠪: DIM

		      


EQUATE                                         ( )

                    label   
⪠       EQUATE(constant )
                    picture 


⪠         ⪠ ᯮ塞 . ᯮ 
              ᢮    ⪨.

constant       ᫮   ᨬ쭠 ⠭.  ᯮ
                ᠭ  ᮪饭    ᮤন
              ⠭,        室
	       ⠭.

picture        蠡.  ᮪饭  蠡. 
               , ଠ  ࠭  ⮢   ਮ-
              ᪮ ।  ᯮ 祭  ⪨
               ࠧ襭 蠡.

४⨢ EQUATE     ६ ᯮ.  -
  ᢮ ⪨ 㣮   ⠭. -
 ४⨢ EQUATE    ⠪ ,   ࠬ.

ਬ:
    Init        EQUATE(SetUpProg)  ! 楤  㣮
    Off         EQUATE(0)          !Off 砥 
    On          EQUATE(1)          !On 砥 
    Pi          EQUATE(3.1415927)  !祭 ᫠ 
    EnterMsg    EQUATE('Press Ctrl-Enter to SAVE')
    SocSecPic   EQUATE(@P###-##-##IfltP) !ଠ  窨
					 !樠쭮 客.

. ⠪: १ࢨ஢ ᫮


SIZE                                    (ࠧ   )

                   label   
             SIZE(constant )
                   picture 


⪠         ⪠ ࠭ ᠭ ६.

constant      ᫮  ᨬ쭠 ⠭.

picture        蠡.

SIZE ⠢  ᮮ ⢮  ( )
뤥  ࠭ ࠬ.

ਬ:
SavRec    STRING(1),DIM(SIZE(Cus:Record)
                        !ப ⮫쪮 ,  ࠧ 
StringVar STRING(SIZE('Clarion Software, Inc.'))
                        !ப   筮  ⮩
			!⠭ 
LOOP I# = 1 TO SIZE(ParseString)
                        !   ᨬ ப
PicLen = SIZE(@P(###)###-####P) !࠭塞 ࠧ 蠡


		       4 - ࠦ

ࠦ................................................... 4-1
     ᫮ ⠭..................................... 4-2
     ᫮ ࠦ..................................... 4-3
     䬥᪨ ............................... 4-3
     ப ⠭.................................... 4-4
      ⥭樨.................................. 4-4
     ப ࠦ.................................... 4-5
     ᪨ ................................... 4-6
     ᪨ ࠦ................................... 4-7

			   

ࠦ -  ⥬᪠  ᪠ 㫠, ஦-
 祭. ࠦ    ६    -
ᢠ, ࠬ஬  楤   㭪樨, ᮬ  ᨢ
 ᫮  IF, CASE, LOOP  EXECUTE.  ࠦ -
 ᮤঠ ⠭, ६ / 饭   㭪,
ꥤ ᪨ / 䬥᪨ ࠬ

ࠦ   ⠭⭮ ࠨ᪮ 浪 -
権. ਮ ஢ ࠢ ⨯ ஢   ᯮ-
 ᪮.   ந (७)  ஬-
筮 祭, ᯮ㥬  ᫥ .  
ᯮ  㯯஢ 権  ࠦ.  ࠦ
  ७ ᪮  譨.

,  ᫥ ࠦ,  ᫥騥  ਮ
(   訬):

஢   1      ()            筮 㯯஢
஢   1      -              
஢   3      맮 㭪樨  祭  RETURN
஢   4      ^               ⥯
஢   5      */%           ,  ,  ⮪  
                               
஢   6      + -           , ⠭
஢   7      &             ⥭

ࠦ    ஦  ᫮,  ப  ᪨
祭 (᫥ true/false).  ࠦ     -
ঠ ஢;      筮  ६, -
⠭⮩  맮 㭪樨.


  ᫮ ⠭


᫮ ⠭ -  ﭭ ᫮ 祭.  
ਬ  ᠭ ,  ࠦ,  ࠬ -
楫   㭪権s    ਡ.  ᫮ ⠭ 
।⠢  筮, 筮, 쬥筮,  ⭠-
筮  筮  ଠ.  ଠ஢,   -
ਬ,    ,  ࠧ襭  ᫮  -
⠭.

 ᫮ ⠭  ᮤঠ 易⥫ -
騩   (ᨬ ७), 楫  易⥫  -
 ஡ .

ਬ:

            -924
             76. 346
            -45.026

 ᫮ ⠭  ᮤঠ 易⥫  
,  0  1   稢 ᨬ B  b.

ਬ:

             1011b
         -1000110B

쬥 ᫮ ⠭ ᮤঠ 易⥫  -
,   0  7   ᨬ O  o.

ਬ:

             3403o
         -7041312O

⭠  ᫮  ⠭  ᮤঠ  易⥫
 ,    0  9, 㪢   A  F  (।⠢騥
᫠  10  15)  騩 ᨬ H  h. ᫨ ᠬ -
 ᨬ  ⭠筮 ᫥ - 㪢  A  F,   
।  ⠢ 0 易⥫쭮!

ਬ:

          -1FFBh
       0CD1F74FH


  ᫮ ࠦ


᫮ ࠦ   ࠬࠬ 楤   㭪権,
᫮ﬨ   IF, CASE, LOOP  EXECUTE    -
   ᢠ,  祭 ࠦ  砥
᫮ ६. ᫮ ࠦ  ᮤঠ  䬥-
᪨     ⥭樨,     ᮤ-
 ᪨ .

᫨  ᫮ ࠦ ᯮ ப ⠭  
६,   ।ࠧ  ஬ ᫮  -
. ᫨   ⥭樨,  ஬筮 -
 ८ࠧ  ᫮  ᮡ⢥ ⥭樨.

ਬ:

       3.12159          !祭 
       Count + 1        !ਡ 1  Count
       (1-N*N)/R        !N ࠧ  N ⠥  1
                        !  ⥬   R
       305 & 7854555    !塞    ⥫䮭

. ⠪: ࠢ ८ࠧ 


  䬥᪨ 


䬥᪨   䬥᪨    ࠭
 祭 ஬筮 祭.  :

 +              (A+B  A  B)
 - ⠭            (A-B  A  B)
 *             (A*B  A ࠧ  B)
 /               (A/B  A   B)
 ^   ⥯ (A^B  A   ⥯ B)
 %       (A%B  ⮪   A  B)

  䬥᪨    ஦ ஬ 祭
⨯ Long  Real.    ஬筮 祭 -
 믮塞 樥  ⨯ ࠭.   ,
      ⥯   ஦ ஬
祭 ⨯ Real.


  ப ⠭

ப ⠭ -   ᨬ, 祭   -
 窨 (). ,     -
,  ⠢   ப ⠭, 稢   ASCII
ᨬ   㣫 ᪮  <  > .    ASCII
  ।⠢  筮  ⭠筮  -
.

 ப  ⭠,   㣫 ᪮  < 樨 
ࠢ 㣫 ᪮.   ,  ⮣, ⮡  ⠢ 
㣫 ᪮  ப,    .   ࠢ-
   䮢 -  ⮡   ப ,   
 .      묨     
ᨬ ( ⮫쪮 ஡) ।⠢  ப.

᫨   ᪮쪮 ࠧ     ᨬ,  ⮨
ᯮ짮 ।⠢   稪 ७. ᫮
ࠧ, ஥ ᨬ  , 頥   䨣-
묨 ᪮ {   },   ⠢ ࠧ    塞
ᨬ.

ਬ:

    'string constant'   !ப ⠭
    'It''s a girl!'     ! 
    '<27,15>'           ! ASCII-
    '<OEh>'             !⭠ ASCII-
    'A << B'            !  㣫 ᪮, A<B
    '*{20}'             !12 祪  ଠ 稪 -
			!७
    ''                  !㫥 () ப


   ⥭樨 (ᮥ)


 ⥭樨 & ᯮ  뢠  -
 ६  㣮.  १饩 ப,  -
  ⥭஢ 祭. ᫮ ⨯   -
 ⥭஢  ப  㣨 ᫮묨 ६-
   ⠭⠬. ,  ⮨ ᯮ짮  㭪 CLIP
 㤠 墮⮢ ஡  ப,  ன  ᮥ-
 㣠 ப.

ਬ:

  CLIP(FirstName) & Initial & & LastName !⠢塞  
  'Clarion Software' & ', Inc.'       !塞  ⠭

. ⠪: CLIP, ᫮ ࠦ, ࠢ ८ࠧ -
	   


  ப ࠦ


ப ࠦ   ᯮ짮  ࠬ  楤,
㭪権  ਡ⮢,   室   ᢠ-
,    ਭ ப ६.  ப
ࠦ  ᮤঠ   ப  ᫮ -
६, ⠪   ᫮  樨   ࠦ, 㭪権 
権.

ਬ:

  'Adress:'&Cus:Adress    !ᮥ塞 ⠭  ६
  Name                    !ப ६
  'Phone:' & '305-' & FORMAT(Phone,@P###-##I@itp)
       !塞 ⠭  १ 㭪樨 FORMAT
  Weight & 'Ibs.'          !ᮥ塞 ६  ⠭


  ᪨ 


᪨  ࠢ  ࠭  ࠦ   -
஦ ᫮   .   ⨯ ᪨ -
஢: ᫮  㫥. ᫮  ࠢ  -
祭  ࠦ.  㫥  뢠   ப-
, ᫮ / ᪨ ࠦ  ।  
true-false  (?).      ஢,   ஢ન
᫮ ᫮.

᫮         =    ࠢ⢠
                          <    祬
                          >    祬
㫥          NOT  ᪮ 
(᪠ 䬥⨪)  ~    줠 (᪮ )
                         AND  ᪮ 
                         OR   ᪮ 
                         XOR  ᪮  (᪫饥 )
஢          <>    ࠢ
                ~=    ࠢ
                         NOT=  ࠢ
                         <=     ࠢ
                         =<     ࠢ
                         ~<    
                         NOT>  
                         >=     ࠢ
                         =>     ࠢ
                         -<    
                         NOT<  

 ᪨ ᫥,  㫥 祭 砥
,   ப  㫥 祭 砥 .

ਬ:

᪮ ࠦ      
-     

A -  B                   ⨭, ᫨ A ࠢ B
A <  B                   ⨭, ᫨ A  B
A >  B                   ⨭, ᫨ A  B
A <> B,A ~= B, A NOT= B  ⨭, ᫨ A  ࠢ B
A ~< B,A >= B, A NOT< B  ⨭, ᫨ A   B
A ~> B,A <= B, A NOT> B  ⨭, ᫨ A   B

~ A, NOT A               ⨭, ᫨ A ⮥  
 A AND B                 ⨭, ᫨ A   B 
 A OR B                  ⨭, ᫨  A ,  B -
                           ,   
 A XOR B                 ⨭, ᫨  A ,  B -
                           ,    


  ᪨ ࠦ


᪨ ࠦ  ᫮ -  ࠢ
 IF, LOOP UNTIL,  LOOP WHILE. ࠢ । 
ᨬ  筮 १ ࠦ (   ).
᪨ ࠦ   ᫥ ࠢ. ࠢ  ࠭
ࠦ AND, OR  XOR  ⮫쪮    -
  १.    ࠢ   -
 浪 ᫥   ᯮ짮 ᪮.  ਮ
᪨ ஢ ⠪:

        ஢1       ᫮ 
        ஢2       ~, NOT
        ஢3       AND
        ஢4       OR, XOR

ਬ:

    LOOP UNTIL EOF(Customer)          !, ᫨  䠩
                !- 
    .
     IF A = B THEN RETURN. !RETURN ᫨ A ࠢ B
    LOOP WHILE - Done#     !   (Done# = 0)
                !- 
    .
    IF A >= B OR (C>B AND E=D) THEN RETURN.!True if a >= b,also
                           ! true if both c > b and e = d.
                           !The second part of the expression
                           ! (after OR) is evaluated only if the
                           ! first part is not true.


		 5 -  ᢮

 ᢮........................................ 5-1
       ᢮........................... 5-1
      ᢮-樨.......................... 5-2
     CLEAR ( ६)............................ 5-3

ࠢ ८ࠧ ............................... 5-4

		      


    ᢮

          祭 = 筨


祭        ⪮  ६

筨        ᫮   ப ⠭,   ६,
                㭪  ࠦ.

 = ᢠ 祭  ; 頥  -
祭 ࠦ-  ६-. ᫨ 
   ࠧ묨 ⨯ ,  १  -
  ࠢ ८ࠧ .

ਬ:

   Name = 'JONES'             !Variable = string constant
   PI = 3.14159               !Variable = numeric constant
   Cosine = SORT(1-Sine*Sine) !Variable = functi on return value
   A = B + C + 3              !Variable = numeric expressio

Name = CLIP(FirstName) &' '   Initial &'. '& LastName
                              !Variable = string expression

. ⠪: ࠢ ८ࠧ 


   ᢮-樨

          祭 += 筨
          祭 -= 筨
          祭 *= 筨
          祭 /= 筨
          祭 ^= 筨
          祭 %= 筨


祭         ⪮  ६

筨         ᫮  ப  ⠭,  ६,
                 㭪  ࠦ.

 ᢮-樨 믮 䬥᪨  樨
 ६. ,  ਬ,  ࠢ  ᫥ 㭪-
樮쭮 ,   ᢮-樨  -
  䥪⨢.

ਬ:

 ᢠ             㭪樮 
             -
     A += 1                            A = A + 1
     A -= B                            A = A - B
     A *= -5                           A = A * (-5)
     A /= 100                          A = A / 100
     A ^= I+1                          A = ^(I + 1)
     A %= 7                            A = A % 7


CLEAR                                      ( ६)

             CLEAR(⪠[,n])


⪠        ⪠ ६.

n            ᫮ ⠭; 1  -1.  ࠬ  
             祭,  樠 ६. ᫨
	     n=1,   ६ 砥  ᨬ쭮 
              ⮣ ⨯  祭.  STRING, PSTRING
	      CSTRING,  ASCII 255. ᫨ n=-1,   ६
             砥 쭮    ⨯ -
               祭.    STRING,  PSTRING  CSTRING 
             ASCII 0.

 CLEAR 頥 ६, 㪠 . ᫨ n -
饭,  ᫮ ६ 뢠  ,  ப -
 ஡. ᫨ ⪠ ਭ  GROUP,
RECORD  QUEUE,   ६  ⮩  .
᫨ ६  ਡ DIM,  頥 楫 ᨢ.
  ᨢ    饭.

ਬ:

   CLEAR(Count)        !Clear a variable
   CLEAR(Cus:Record)   !Clear the record structure
   CLEAR(Amount,l)     !Clear variable to highest possible value
   CLEAR(Amount,-I)    !Clear variable to lowest possible

		   

 Clarion ந  ⮬  ⨯  .
  ,   ਠ樨   த ᮮ⢥⢨
筨  祭 (source & destination). ᢮ "-
饣--ࠬ" 祭 ਢ  ।᪠㥬 १⠬

  PSTRING  CSTRING ࠡ뢠 ⠪ ,  STRING,
⮬   ८ࠧ  ஬ 祭 ⨯STRING
  権.  DATE  TIME ८ࠧ   ਮ-
 ⠭   ६  ࠡ뢠  LONG.

 ਢ ࠢ ८ࠧ     -
:

BYTE = SHORT
BYTE = USHORT
BYTE = LONG
BYTE = ULONG
              .  -
           砥 訥 8  .

BYTE = DECIMAL
BYTE = PDECIMAL
BYTE = REAL
BYTE = SREAL
              .  -
           砥 訥 8  . ஡  
           ᥪ.

BYTE = STRING
BYTE = CSTRING
BYTE = PSTRING
           ᫨  ப ⮫쪮 ,   砥 
           祭.

SHORT = BYTE
            砥 祭 .

SHORT = USHORT
SHORT = LONG
SHORT = ULONG
            砥   訥 15  .

SHORT = DECIMAL
SHORT = PDECIMAL
SHORT = REAL
SHORT = SREAL
            砥   訥 15  .
           ஡   ᥪ.

SHORT = STRING
SHORT = CSTRING
SHORT = PSTRING
              ஬    ଠ-
           ஢.  砥   楫   -
           .  ஡      ᥪ, 墮⮢
           ஡ .

USHORT = BYTE
            砥 祭 .

USHORT = SHORT
USHORT = LONG
USHORT = ULONG
            砥  訥 16   .  
            .

USHORT = DECIMAL
USHORT = PDECIMAL
USHORT = REAL
USHORT = SREAL
            砥 訥 16   楫  -
           . ஡     ᥪ   
           .

USHORT = STRING
USHORT = CSTRING
USHORT = PSTRING
              ஬   ᨬ ଠ-
           ஢.    砥  楫   ᫠.
           ஡   ᥪ,     墮-
            ஡ .

LONG = BYTE
LONG = SHORT
LONG = USHORT
LONG = ULONG
            砥   祭 .

LONG = DECIMAL
LONG = PDECIMAL
LONG = REAL
LONG = SREAL
            砥   訥 31   .
           ஡   ᥪ.

LONG = STRING
LONG = CSTRING
LONG = PSTRING
              ஬   ᨬ ଠ-
           ஢.    砥     楫 
           ᫠. 筠   ᥪ,  墮-
           ⮢ ஡ .

DATE = BYTE
DATE = SHORT
DATE = USHORT
DATE = ULONG
            砥 祭    ਮ-
           ᪮ ⠭⭮ .

DATE = DECIMAL
DATE = PDECIMAL
DATE = REAL
DATE = SREAL
            砥 訥  31     
           ਮ᪮ ⠭⭮ . 筠   -
            ᥪ.

DATE = STRING
DATE = CSTRING
DATE = PSTRING
              ஬   ᨬ ଠ-
           ஢.  砥 楫  ᫠  
           ਮ ⠭ . ஡   -
            ᥪ,  墮⮢ ஡ .

TIME = BYTE
TIME = SHORT
TIME = USHORT
TIME = ULONG
            砥 祭 筨  aਮ-
           ᪮ ⠭⭮ ६.

TIME = DECIMAL
TIME = PDECIMAL
TIME = REAL
TIME = SREAL
           砥 訥 31     -
          ਮ᪮ ⠭⭮ ६. ஡   
          ᥪ.

TIME = STRING
TIME = CSTRING
TIME = PSTRING
             ஬   ᨬ  ଠ-
          ஢.  砥 楫   
            ਮ᪮  ⠭⭮  ६.   ஡
           ᥪ,  墮⮢ ஡ .

ULONG = BYTE
ULONG = SHORT
ULONG = USHORT
ULONG = LONG
           砥 訥 32  . 
           .

ULONG = DECIMAL
ULONG = PDECIMAL
ULONG = REAL
ULONG = SREAL
           砥 訥 32   楫  -
          . ஡  ᥪ,    -
          .

ULONG = STRING
ULONG = CSTRING
ULONG = PSTRING
             ஬   ᨬ  ଠ-
          ஢.    砥  楫    ᫠.
          ஡  ᥪ,      墮⮢ ஡
          .

REAL = BYTE
REAL = SHORT
REAL = USHORT
REAL = LONG
REAL = ULONG
           砥     楫 ,  ⠪  
          .

REAL = DECIMAL
REAL = PDECIMAL
REAL = SREAL
           砥 , 楫  ஡  -
          .

REAL = STRING
REAL = CSTRING
REAL = PSTRING
             ஬   ᨬ  ଠ-
          ஢.  砥  , 楫   ஡
           ᫠. ⮢ ஡ .

SREAL = BYTE
SREAL = SHORT
SREAL = USHORT
SREAL = LONG
SREAL = ULONG
           砥   祭 .

SREAL = DECIMAL
SREAL = PDECIMAL
SREAL = REAL
            砥  , 楫  ஡   -
          .

SREAL = STRING
SREAL = CSTRING
SREAL = PSTRING
             ஬   ᨬ  ଠ-
          ஢.  砥  , 楫   ஡
           ᫠. ⮢ ஡ .

DECIMAL = BYTE
DECIMAL = SHORT
DECIMAL = USHORT
DECIMAL = LONG
DECIMAL = ULONG
DECIMAL = PDECIMAL
           砥   祭 .

DECIMAL = REAL
DECIMAL = SREAL
           砥     楫   , 
          ⠪  訥  ஡ .   
          ஡  (?) 㣫  .

DECIMAL = STRING
DECIMAL = CSTRING
DECIMAL = PSTRING
          筨   ஬   ᨬ  ଠ-
          ஢.  砥  , 楫   ஡
	   ᫠. ⮢ ஡ .

PDECIMAL = BYTE
PDECIMAL = SHORT
PDECIMAL = USHORT
PDECIMAL = LONG
PDECIMAL = ULONG
PDECIMAL = DECIMAL
           砥   祭 .

PDECIMAL = REAL
PDECIMAL = SREAL
           砥     楫   , 
          ⠪  訥  ஡ .   
          ஡  (?) 㣫  .

PDECIMAL = STRING
PDECIMAL = CSTRING
PDECIMAL = PSTRING
          筨   ஬   ᨬ  ଠ-
          ஢.  砥  , 楫   ஡
	   ᫠. ⮢ ஡ .

STRING = BYTE
STRING = SHORT
STRING = USHORT
STRING = LONG
STRING = ULONG
           砥   ଠ஢ ᫮.  
          , ᫮ ࠢ .

STRING = DECIMAL
STRING = PDECIMAL
STRING = REAL
STRING = SREAL
           砥 , 楫  ஡  -
          .  , ᫮ ࠢ .

CSTRING = BYTE
CSTRING = SHORT
CSTRING = USHORT
CSTRING = LONG
CSTRING = ULONG
           砥   ଠ஢ ᫮.  
          , ᫮ ࠢ .

CSTRING = DECIMAL
CSTRING = PDECIMAL
CSTRING = REAL
CSTRING = SREAL
           砥 , 楫  ஡  -
          .  , ᫮ ࠢ .

PSTRING = BYTE
PSTRING = SHORT
PSTRING = USHORT
PSTRING = LONG
PSTRING = ULONG
           砥   ଠ஢ ᫮.  
          , ᫮ ࠢ .

PSTRING = DECIMAL
PSTRING = PDECIMAL
PSTRING = REAL
PSTRING = SREAL
           砥 , 楫  ஡  -
          .  , ᫮ ࠢ .

		 6 - ࠢ騥 

ࠢ ணࠬ....................................... 6-1
     ᫥⥫쭮 믮 ஢............... 6-1
     맮 楤........................................ 6-1

ࠢ騥 ....................................... 6-2
     CASE ( ᫮ 믮).................. 6-2
     EXECUTE ( 롮 )................... 6-4
     IF ( ᫮ 믮).................... 6-6
     LOOP (樮 , 横).................... 6-7

ࠢ騥 ....................................... 6-9
     BREAK ( 室  LOOP)...................... 6-9
     CHAIN (믮  ணࠬ)..................... 6-10
     CYCLE (३  砫 横)......................... 6-11
     DO (맢 ணࠬ (ROUTINE)..................... 6-11
     EXIT ( ணࠬ (ROUTINE).................. 6-12
     GOTO (३  ⪥)................................. 6-12
     HALT (室  DOS)..................................... 6-13
     NOTIFY (ࠡ⪠ ᪨ 訡).................. 6-14
     RESTART (१ ணࠬ)...................... 6-17
     RETURN (  窥 맮)...................... 6-18
     RUN (믮  )............................ 6-19
     RUNSMALL (믮  )....................... 6-20
     SHUTDOWN (। 楤 襭)............. 6-21
     STOP (஧ 믮 ணࠬ)................. 6-21


		      


  ᫥⥫쭮 믮 ஢


 ࠧ CODE ਮ᪨ ணࠬ,  믮 -
筮,  ⮩ ᫥⥫쭮,   ன  ᠭ   -
室 㫥. ࠢ騥  ᯮ   
浪  믮.

ࠢ騥  ⨯ IF,  CASE, LOOP  EXECUTE  ।
冷 믮,   ࠦ   믮   
ᨬ  ᫮. ᫮ 室    -
 楤   GOTO,DO, CYCLE, BREAK, EXIT, RETURN,
RESTART, CHAIN, RUN  RUNSMALL.


  맮 楤

             procname[(ࠬ])


procname            ,   ᠭ     ⨯
                   楤   MAP-.    ᮮ-
                   ⢮ ⪥  PROCEDURE.

ࠬ          易⥫ ᯨ᮪ ࠬ஢,  ।-
                     .  ᮪   ᮤঠ 
                     ⮪ ६ /  ࠦ.
                   ࠬ ࠧ 묨   뢠
                    ⨯ 楤  MAP-.

     ⪥ (   ᪮ 㪠뢠  ᯨ᮪
ࠬ஢)     ࠧ CODE  PROGRAM, PROCEDURE
 FUNCTION. ᮪  ࠬ஢  ᮮ⢥⢮  ᯨ,
ᠭ  ⨯ 楤   MAP. 楤   -
  ࠦ.

ਬ:

     PROGRAM
     MAP
       ComputeTime(*GROUP)      !। 㯯  ࠬ
       MatchMaster              ! । ࠬ஢
     .
ParmGroup    GROUP              !뢠 㯯
FieldOne       STRING(10)
FieldTwo       LONG
             .
     CODE
     ComputeTime(ParmGroup)     !뢠 .  ६
     MatchMaster                !뢠 . ᮮ⢥⢨

. ⠪: ⨯   

		      


CASE                            ( ᫮ 믮)

             CASE ᫮
             OF ࠦ [TO ࠦ]
             [OROF ࠦ ][TO ࠦ]
               
             [ELSE]
               
             .


᫮            ᫮  ப ६  ࠦ-
		   .

OF                 , ᫥騥  OF 믮 ⮣,
                    ࠦ, ᫥饥  樥 OF, ࠢ-
		    ᫮   CASE.   CASE
                     ⢮ 権 OF.

ࠦ          ᫮  ப ६  ࠦ-
		   .

TO                 TO  ᯮ짮  OF  OROF   -
		   ,    楫    祭. ,
                   ᫥騥    OF    OROF 믮 ᫨
                   祭 ᫮ ࠦ    㪠-
                     ⥫쭮. ࠦ, -
		   饥 ᫥ OF   OROF -    ࠭
		   ,    ࠦ  ᫥   - 
		   ࠭.

OROF                 筮 OF.   -
                   襭  ⠡쭮,  OROF   ⠢ 
                   ⤥쭮 ப  OF.   OF  
                   易 ᪮쪮 OROF.

ELSE               , 騥  ELSE 믮   ᫨
                    ।騥 ᫮  OF / OROF   -
                   . ELSE  筮   ॡ,   ᫨
                     ᯮ짮,     ᫥-
                    樥   CASE.

statements          ࠧ襭  몠 ਮ.

 CASE ⥫쭮 믮 , ᭮뢠  
ࠢ⢥  ᫮  ࠦ    ࠦ.
 CASE     㣨 ࠢ騥 ,
 㣨  ࠢ騥        
CASE.

ਬ:

  CASE FIELD()             !롨ࠥ . ।஢ 
  OF ?Name                 !᫨  - 
    ERASE(?Address,?Zip)   !     ᠬ 
    GET(NameFile,NameKey)  !    

    CASE Action            !롨ࠥ ⢨
    OF 1                   !    -   
      IF NOT ERRORCODE()   !    訡 䠩?
        ErrMsg = 'ALREADY ON FILE'
                           !      ᮮ.  訡
        DISPLAY(?Address,?Zip)
                           !       ᠬ 
        SELECT(?Name)      !    ू 
    .                      !    IF
    OF 2 OROF 3            ! /㤠 -  㦥 
     DISPLAY(?Address,?Zip)!      ᠬ 
    .                      !   end case action

    CASE SUB(Name,l,l)     !Get first letter of name
    OF 'A' TO 'M'          !Process first half of alphabet
    OROF 'a' TO 'm'
      DO FirstHalf
    OF 'N' TO 'Z' OROF 'n' TO 'z' DO SecondHalf
                           !Process second half of alphabet
    .                      !End case sub(name
  OF ?Address              !If field is address
    DO AddressVal          !  call validation routine
  .                        !End case fieldo


EXECUTE                          (statement selection structure)

       EXECUTE expression
         statement 1
         statement 2
         [BEGIN
           statements
         .]
         statement n
       .


expression         ᫮ ࠦ,  ६,  ᮤঠ-
                    ᫥ 祭.

statement 1         , 믮塞 ⮫쪮,  ᫨
                   expression=1.

statement 2         , 믮塞 ⮫쪮,  ᫨
                   expression=2.

BEGIN              BEGIN ⬥砥  砫 ,  ᮤঠ饩
                       ப .   BEGIN
		   ᬠਢ         
                    EXECUTE.  BEGIN 蠥-
                    窮  ஬ END.

statement n         , 믮塞 ⮫쪮,  ᫨
                   expression=n.

 EXECUTE 롨ࠥ   ᯮ塞   (
    )  ᭮ 祭 expression. -
 expression ࠢ 1, 믮   (statement 1).
᫨ expression  ࠢ 2,   ன  (statement 2)   .. ᫨
祭 expression -   , 祬 饥 ᫮  -
஢ /    EXECUTE,  EXECUTE  -
.

 EXECUTE     㣨 ᯮ塞  -
  㣨 ᯮ塞   (IF, CASE, LOOP,  EXECUTE 
BEGIN)     EXECUTE.

ਬ:

   EXECUTE   Transact     !Evaluate Transact
     ADD(Customer)        !Execute if Transact = 1
     PUT(Customer)        !Execute if Transact = 2
     DELETE(Customer)     !Execute if Transact = 3
   .                      !End execute

   EXECUTE CHOICEO        !Evaluate CHOICEO function
     OrderPart            !Execute if CHOICEO = 1
     BEGIN                !Execute if CHOICEO = 2
       SavVendor" = Vendor
       UpdVendor
       IF  Vendor <> SavVendor"
         Mem:Message = 'VENDOR NAME CHANGED'
     . .
     CASE VendorType      !Execute if CHOICE() = 3
     OF 1
       UpdPartNo1
     OF 2
       UpdPartNo2
     .
     RETURN               !Execute if CHOICEO - 4
   .                      !End execute

. ⠪: BEGIN


IF                              ( ᫮ 믮)

          IF ᪮ ࠦ
          [THEN]
            satements
          [ELSIF ᪮ ࠦ]
          [THEN]
            satements
          [ELSE]
            satements
          .


᪮         ᫮  ப ६,  ࠦ
ࠦ           㭪.     
                   ᫮. । ࠢ । -
                   ⮬ (true  false) ࠦ. 㫥
                   ( ⮥) 祭 ⠥ ,  
                   㣮 祭 - .

THEN                ᫥ THEN 믮, ᫨ ।-
                   饥   ᫥   -
		   . THEN   ய᪠,  ᫨ 騥
                   믮   室   ⤥쭮
                   ப,    ⮩ ,     -
                   .

statements         믮塞     ᫥⥫쭮
                   믮塞 ஢.

ELSIF               , 饥  ELSIF -
                    ⮫쪮 ᫨  ।騥 IF  ELSIF
                   뫨 .

ELSE               , 騥  ELSE 믮,  ᫨
                    ।騥 IF  ELSIF  . ELSE  
                   ॡ,    ᫨  ᯮ,  
                    ᫥ 樥   IF.

 IF ࠢ 믮 ணࠬ  ᭮  뢮-
      .  IF 
  ⢮ 㯯 ஢ ELSIF-THEN.  IF
   ""   㣨 ࠢ騥  ,  㣨
ࠢ騥      IF-.

ਬ:

   IF Cus:TransCount        !If new customer
     AcctSetup              !  call account setup procedure
   ELSIF Cus:TransCount > 10 AND Cus:TransCount < 100
                            !If regular customer
     DO RegularAcct         !  process the account
   ELSIF Cus:TransCount>100 !If special customer
     DO SpecialAcct         !  process the account
   ELSE                     !Otherwise
     DO NewAcct             !  process the account
     IF Cus:Credit THEN CheckCredit ELSE CLEAR(Cus:CreditStat).
                            !  verify credit status
   .                        !End if
   IF ERRORCODEO THEN ErrHandler(Cus:AcctNumber,Trn:InvoiceNbr).
                            !Handle errors


LOOP                              (樮 , 横)

                     ᪮쪮 TIMES        
       LOOP [ i=砫 TO  [BY 蠣]  ]
               UNTIL ᪮ ࠦ 
               WHILE ᪮ ࠦ 
         statements
       .


᪮쪮            ᫮ ⠭, ६  ࠦ,
                   ஥ ।,  ࠧ (TIMES) 
                   ७   横 LOOP.

TIMES               TIMES (ࠧ) 믮  ⮫쪮
                   ࠧ,  .

i                  ⪠ ६-稪 横.

=                  ᢮ ६ (i)  祭   
                    樨 横 LOOP.

砫             ᫮ ⠭, ६  ࠦ,
                   ஥  砫쭮 祭  -
                    横 (i)  ࢮ 室 १  -
                    LOOP.

TO                 ⠪᪠ 離  ࠬ .

              ᫨ i  祬 ,  믮  横
                   LOOP 蠥.

BY                 ⠪᪠ 離  ࠬ .

蠣                ᫮ ⠭, ६  ࠦ.
		     ।  稭,     㤥
		   㢥稢 i   室 横. -
		    ࠬ BY 饭,   㬮砭 -
		   㬥,  i 㢥稢  1.

UNTIL              ࠬ UNTIL   
                    । 室 横. ᫨ -
                     ᫥  ,  믮-
                    横 LOOP 蠥.

WHILE              ࠬ WHILE   
                    । 室 横. ᫨ -
                     ᫥  ,  믮-
                    横 LOOP 蠥.

᪮         ᫮  ப ६,  ࠦ
ࠦ           㭪.     
                   ᫮. ।  ࠢ    -
                    (  ) ࠦ. 㫥
                   ( ⮥)  祭   , 
                   㣮 祭 - .

 LOOP  믮 ஢  .
᫮  LOOP ᥣ   砫 横, । 
室.  LOOP    㣨  ᯮ塞
,  㣨 ᯮ塞       
 LOOP.

LOOP  ࠬ஢ 믮 ᪮筮,   ,   
믮  BREAK  RETURN. BREAK ४頥 横 LOOP
 த 믮 ணࠬ  , 饣  -
ன LOOP.     LOOP ᯮ   -
 CYCLE. CYCLE  । ࠢ  砫 横
LOOP  ᫥饣 室,   ᯮ ஢,   
LOOP ᫥ CYCLE.

ਬ:

    LOOP                      !᪮ 横
      Char = GetChar()        !   ᨬ
      IF Char <> CarrReturn   !  ᫨    ⪨
        Field = CLIP(Field) & Char
                              !      ப
      ELSE                    !  
        BREAK                 !     横
    . .                       ! ஢ IF  LOOP

    IF ERRORCODE()            ! 訡
      LOOP 3 TIMES            !    ࠧ
        BEEP                  !    㪮 ⭠ ॢ
    . .                       ! ஢ LOOP  IF

    LOOP I# = 1 TO 365 BY 7   ! 横 I# 㢥稢  7
    			      ! ࠧ
      GET(DailyTotal,l#)      !  ⠥  7- 
      DO WeeklyJob            !  믮塞 ணࠬ
    .                         ! 横

    SET(MasterFile)           !⥫ -   
    LOOP UNTIL EOF(MasterFile)!ࠡ뢠  
      NEXT(MasterFile)        !  ⠥ 
      ProcMaster              !  뢠 楤
    .                         ! 横

    LOOP WHILE KEYBOARD()     !蠥  
      ASK                     !   ࠡ뢠  
    .                         ! 横

. ⠪: BREAK, CYCLE

		      


BREAK                                 (   LOOP)

             BREAK


 BREAK  ४頥 믮 横 LOOP  -
। ࠢ  ࢮ ,  ᫥饬   ன
LOOPe. BREAK  ᯮ짮 ⮫쪮  LOOP-.

ਬ:

  SHOW(5,12,'Press ESC to Continue')   ! ᮮ饭
  LOOP                                 !砫 横 LOOP
    ASK                                !    
    IF KEYCODE()= 256                  !  ᫨  ESC, 
      BREAK                            !    뫥⠥  横
    ELSE                               !  ,
      BEEP                             !     㤮
  . .                                  ! -஢ IF  LOOP

. ⠪: LOOP, CYCLE


CHAIN                               (믮  ணࠬ)

             CHAIN(ணࠬ)


ணࠬ          ப ⠭  ६,  ᮤঠ-
                     ணࠬ   ᯮ.   
                     EXE  COM ணࠬ.

CHAIN 蠥 ⥪ ணࠬ, 뢠  䠩,  -
頥   襭   樮 ⥬,   믮
 .

ਬ:

    PROGRAM                ! ணࠬ MainMenu
    CODE
    EXECUTE CHOICE()
      CHAIN('Ledger')      !믮 LEDGER.EXE ( ⮢)
      CHAIN('Payroll')     !믮 PAYROLL.EXE (⥦
			   !  )
      RETURN               !  DOS
    .

    PROGRAM                ! ணࠬ  ⮢
    CODE
    EXECUTE CHOICE()
      CHAIN('MainMenu')    !  ணࠬ MainMenu
      RETURN               !  DOS
    .

    PROGRAM                ! ணࠬ ⥦ 
    CODE
    EXECUTE CHOICE()
      CHAIN('MainMenu')    !  ணࠬ MainMenu
      RETURN               !  DOS
   .


CYCLE                              (३  砫 横 LOOP)

             CYCLE


 CYCLE,  । ࠢ ,  砫
横 LOOP,   ,   ᫮  LOOP.  CYCLE
 ᯮ짮   LOOP-ࠬ.

ਬ:

   SET(MasterFile)             !⥫ -   
   LOOP UNTIL EOF(MasterFile)  !ࠡ뢠  
     NEXT(MasterFile)          !  ⠥ 
     DO MatchMaster            !  ஢ઠ  ᮢ
     IF NoMatch                !  ᫨  ᮢ, 
       CYCLE                   !      砫 loop
     .                         !    IF
     DO TransVal               !  ⢥न ࠭
     PUT(MasterFile)           !   
   .                           ! 横

. ⠪: LOOP, BREAK


DO                               (맢 ணࠬ (ROUTINE)

             DO ⪠


⪠              ⪠  ROUTINE.

 DO ᯮ   믮 ணࠬ  (ROUTINE)
쭮  ,    .  ᫨ 믮
ROUTINE 襭,  ࠢ । , ᫥-
  DO. ROUTINE   맢 ⮫쪮  ⮩ ᥪ樨  CODE,
 ᮤন  ROUTINE.

ਬ:

   DO NextRecord                  !Call the next record routine
   DO CalcNetPay                  !Call the calc net pay routine




EXIT                            (  ணࠬ (ROUTINE)

             EXIT


 EXIT   ROUTINE  । ࠢ
, ᫥饬  ஬ DO,  맢  -
ணࠬ.  EXIT  ॡ. ROUTINE  EXIT -
 ⮬⨥᪨,  蠥 ᫥⥫쭮 -
஢  ROUTINE.

ਬ:

CaIcNetPay      ROUTINE
     IF GrossPay = 0        !᫨  ⥦
       EXIT                 !    ணࠬ
     .
     NetPay = GrossPay - FedTax - Fica
     QtdNetPay += NetPay
     YtdNetPay += NetPay


GOTO                                           (३  ⪥)

             GOTO ⪠


⪠               㣮 ᯮ塞    -
                   ,   ,          
		   (ROUTINE).

 GOTO ।  ࠢ     㣮.
-ࠬ GOTO    ⪮ ,   
.

  GOTO-室  ࠭祭  ⥪饩 , 
 ; GOTO    । ࠢ    -
,     ன  ᯮ짮.

ਬ:

ComputeIt     FUNCTION(Level)
              CODE
              IF Level = 0 THEN GOTO PassCompute.
                             !ய ᫥ 業⮢,
			     !᫨   業⭠ ⠢
              Rate = Level * MarkUp !᫨ 業
              RETURN(Rate)          !    
PassCompute   RETURN(999999)        !Return bogus number


HALT                                               (室  DOS)

             HALT(errorlevel,[ᮮ饭])


errorlevel         ⨢  楫 ⠭  ६  
                    0..250,  ।⠢  ᮡ
                     室,  ।    DOS.  DOS-䫠
		   ERRORLEVEL 㤥 ⠭   祭.

ᮮ饭          ப  ⠭  ६,  
                   뢮  ࠭ ᫥ 襭 ணࠬ

 HALT  頥 ࠢ DOS, ⠭
ERRORLEVEL , 易⥫쭮, 뢠  ᫥  -
 ணࠬ. ᫨  SHUTDOWN-楤,   믮-
 । 襭 ணࠬ.

᫨ ணࠬ, ⠭  HALT- 뫠 饭  ஬
RUN  RUNSMALL   㣮 ਮ-ணࠬ,  ERRORLEVEL,  
 諠 ⠭  ணࠬ,    㭪樥
RUNCODE.

ਬ:

Password        STRING(10)
                CODE
                BLANK
                SHOW(1,1,', , ஫.')
                Password = ENTRY(2,3,@S10)
                IF Password <> 'Pay$MeMoRe'
                  HALT(0,'  ७ ⥡! ࠢ쭮.')
                .

. ⠪: SHUTDOWN, RUN, RUNSMALL, RUNCODE


NOTIFY                            (ࠡ⪠ ᪨ 訡)

             NOTIFY(楤,ᮡ⨥)


楤          ⪠  , ⨯ ன,    
                      MAP,  騩  *STRING-
                   ࠬ (STRING ।  ).

ᮡ⨥            ᫥ ⠭, ६  -
                   . ᫨ ,  楤 NOTIFY ⬥-
		   ; ᫨  ,   ᪨ 訡  DOS
		   ࠡ뢠 楤ன.

 NOTIFY "" (SPA.    ॢ ᫮ arms?)
楤   ࠡ⪨ ᪨  訡 .   楤
砥 ࠬ  ⨯ *STRING,     ண, ।
ࠢ   ᪮ 訡.

祭 ⮩  -  Clarion-ਫ  -
 ᪨ 訡.    믮  ᪮
樨    㣨  ⢨. 室    
⢫ ஬ RETURN, (RESTART ࠩ   ४-
)  楤  롨  ஢ 祭,  -
஥ DOS ।  ⭮ 訡

STRING-ࠬ, ।      楤   
砫쭮 祭 GROUP,   室  ᨭ⠪-
᪮  ࠧ  ப    祭 ଠ樨  訡.
GROUP    ᠭ  쭮  ( ᪨
) ⠪   쭮   ⭮襭   - (
᪨ )  㬥襭 ॡ⥩  뤥  -
  ⥪. GROUP   ᠭ  ᫥騬 ﬨ:

CritParmGroup GROUP,PRE(Crt) !ᠭ ࠬ-㯯
Status          LONG   !ﭨ ࠡ⪨, 1  .訡.
CritType        SHORT        ! ᪮ 訡, 1-12, 15
CritMsg         STRING(25)   !ᠭ ᪮ 訡
CritDev         STRING(25)   ! ன⢠  ஬ 訡
RetVal          STRING(1) !頥 祭 - A, I, R  F
              .

᪨ 訡 ,    ࠡ⠭ 
          CritType             CritMsg
              
             0                  
             1                  ᪠
             2                ()  ⮢
             3                ॡ ⭠ 
             4                訡 ஫쭮 㬬 (CRC)
             5                ୠ  -
             6                訡 ᪠
             7                 ଠ ᪠
             8                  
             9                 㬠 稫 ਭ :-) :-)
             10                 
             11                 ⥭
             12               , ᯥ筠 訡
             15               ୠ ᬥ ᪠ (?)

᫥ ᢮  । ࠬ  STRING   (GROUP),
楤  ।,  訡 ந諠,   祭
CritType  (  訡),  CritMsg  (ᠭ 訡)  CritDev
(⪠襥 ன⢮). ⥬,   ।,   -
      ⭮  訡   ᢮  ६
RetVal.

襭 祭  RetVal:

  I        Ignore (஢ 訡)
  R        Retry ( ⢨, ਢ襥  訡)
  A        Abort (⬥ ⢨, ਢ襥  訡)
  F        Fail (४ 믮    )

祭 RetVal   楤 ।,  訡 ࠡ-
⠭. ࠭  頥 ᢮  ।-
 ࠬ *STRING   楤.

ਬ:

     ਬ  ᮤন  ਬ ࠡ稪  -
    ᪨ 訡. PrinterReady ᯥ筠  訡  ਭ,
     ErrorProc - ࠡ稪  訡.

        PROGRAM
        MAP
          PrintReport           !楤 
          PrinterReady(*STRING) !ࠡ稪 訡 ਭ
          ErrorProc(*STRING)    !ࠡ稪 ⠫ 訡
        .
CritParmGroup GROUP,PRE(Crt)    !ᠭ 㯯 ࠬ஢
Status          LONG            !Processing status, always 1
CritType        SHORT           !Critical error code, 1-12, 15
CritMsg         STRING(25)      !Critical error description
CritDev         STRING(25)      !Error device name string
RetVal          STRING(L)       !Action option chosen-A,I,R,or F
              .
ErrFlag       BYTE(0)           ! ⢨ 訡
        CODE
        PrintReport             !맮 楤-
        NOTIFY(ErrorProc,1)     ! ࠡ稪  -
				!  
                    ! 室 - ᯮ塞 

PrintReport   PROCEDURE
                    ! 뢠 ଠ 

ErrScreen  SCREEN(15,56),PRE(Scr),CQLOR(73),CENTER,SHADOW,CUA
             ROW(1,1) STRING('{54}')
             ROW(2,1) REPEAT(13);STRING('<O{54}>')
             ROW(15,1) STRING('{54}')
             ROW(3,16) STRING('訡 -- ஢ ਭ!')
             ROW(13,16) STRING('訡 -- ஢ ਭ!')
           .
        CODE
        NOTIFY(PrinterReady,1)  ! ࠡ稪 訡
				!  ਭ
        PRINT('<27>')           !뫠 ESC  ਭ
        IF ErrFlag              !뫠  ᪠ 訡?
          OPEN(ErrScreen)       !  뢥 ࠭  ।०.
          ASK                   !     
          ErrFlag = 0           !  뢠 䫠 訡
          RETURN                !   뢠
        .
                    ! ⠫쭮  

PrinterReady PROCEDURE(ParmString)!ࠡ稪 訡 ਭ
        CODE
     ErrFlag = 1                !뫠 ᪠ 訡!
     CritParmGroup = ParmString ! ?
     Crt:RetVal = 'F'           !⪠  த
     ParmString = CritParmGroup !   ࠬ



ErrorProc PROCEDURE(ParmString) !ࠡ稪  訡
Opt       STRING(1)             !頥  ⥪

ErrScreen  SCREEN(3,40),PRE(Scr),COLOR(79),CENTER,CUA
             ROW(1,2) STRING('訡:')
ErrDesc      ROW(1,10) STRING(25)
ErrDevice    ROW(2,10) STRING(25)
             ROW(3,2) STRING('롥: Abort Retry Ignore Fail')

        CODE
    CritParmGroup=ParmString    !   訡
    OPEN(ErrScreen)             ! ࠭
    Scr:ErrDesc = Crt:CritMsg   ! ᠭ 訡
    Scr:ErrDevice = Crt:CritDev !   ன⢥
    LOOP                        !   ⨬
				!  롮
      ASK                       !   
      Opt = UPPER(KEYCODE())
      IF Opt <> 'A' AND Opt <> 'R' AND Opt <> 'I' AND Opt <> 'F'
                                !᫨ ࠭  -
				!  ⨬, 
        BEEP                    !  ।० 짮⥫
        CYCLE                   !   塞 
      ELSE                      !,
        BREAK                   !  த
    . .                         ! ஢ IF  LOOP
    Crt:RetVal = Opt            !頥 , ࠭ -
    				!  ⥫  CritParmGroup
    ParmString = CritParmGroup  !   ࠬ


RESTART                                (१ ணࠬ)

             RESTART([楤])


楤          ⪠    PROCEDURE. ᫨   
                   饭,    砫 .

 RESTART 蠥 믮 ⥪饩 ,  -
    稭 믮 ணࠬ  窨, -
 ࠬ஬ . , 믮塞 ஬
RESTART ᬠਢ  "뢠  ".   ࠧ,
RETURN  -ࠬ  RESTART 蠥 믮  -
. RESTART  १㦠      -
 ६   砫 祭.  RESTART- -
 । ࠬ.

ਬ:

   RESTART                   !  ᠬ 砫

   RESTART(QuitToDOS)        !室  

QuitToDOS   PROCEDURE        ! ⮩ 楤 ⮫쪮 
			     !  ।祭:
            CODE
            RETURN           !    


RETURN                                (   맮)

             RETURN([ࠦ])


ࠦ           । 頥  祭  
                     ࠦ,  ஬ ᯮ짮
                    .  ॡ  ,
                       ᯮ짮    
                   .

 RETURN 蠥 ,     -
। ࠢ     맮.  ᫨ RETURN 맢  
ᥪ樨 CODE  ,  ணࠬ 蠥,  䠩 -
뢠  ࠢ 頥 樮 ⥬.

RETURN ॡ      易⥫    
. ᫨ RETURN  ᯮ     -
,    ᯮ塞  믮  RETURN. -
 ᯮ塞   ।  殬 室  䠩 
砫 㣮 ,   .

ਬ:

    IF Done# THEN RETURN. !室, ᫨  ᤥ

DayOfWeek FUNCTION(Date)  !㭪 頥  
   CODE
   EXECUTE (Date % 7) + 1 !।塞,   㤥 Date
     RETURN('Sunday')     !     ⮣ 
     RETURN('Monday')     !  १ RETURN
     RETURN('Tuesday')
     RETURN('Wednesday')
     RETURN('Thursday')
     RETURN('Friday')
     RETURN('Saturday')
   .


RUN                                      (믮  )

             RUN()


            ப ⠭  ६,  ᮤঠ-
                    .

 RUN 믮  ,  ᫨    뫠   
 ப .  ᯮ , ࠢ  ।-
 , ᫥饬  ஬ RUN.

RUN 뢠  䠩, ࠭ ࠭  뢠 ࠧ  -
 ணࠬ  ६  -䠩  ७ .RUN.  
⥬  㭨  䠩  ⢠ ६
.RUN-䠩. ६  䠩    ⥪騩    ⥪騩
⠫, ᫨ ६  㦥 'CLATMP=' 㪠.  CLATMP
   ⠫   ६ 䠩 ਮ.  -
   RAM- (४     512).   
SET CLATMP=D:\   ୥ ⠫ ᪠ D:  ⠫ 
६ 䠩.

RUN  㦠 ⮬᪨   COMMAND.COM.  -
,   뢠  ᫨ . COMMAND.COM 㦥 
७  , BAT-䠩  ,    -
 ணࠬ  PATH. ᫨ ணࠬ  室  ⥪-
饬 ⠫,       㪠  ,    
室   ன   COMMAND.COM.    ,  
COMMAND.COM,    ⠪  ७ ணࠬ-
 䠩 (.EXE  .COM).

 ᯮ , ६ 䠩 १㦠   
믮 ணࠬ த  , ᫥饣  -
஬ RUN. ᫥ ⠭ ணࠬ  ,   䠩
८뢠  ⮬  ० 㯠,  ஬  뫨  -
  RUN, ⠪ , ⠭ ࠭ ࠭.  -
 䠩   १㦥    ᠬ   -
,  ண  㦠,  , ᯮ짮 RUN  -
㧪 १⮢  (TSR)   ࠧ襭. ᪮  RUN 뢠
 䠩  ⥬ ८뢠 ,  ⥪騥 㪠⥫   -
 . ⥫쭮, 믮  RUN   ६
㯠  䠩, ࠩ  ४.

ᯥ譮  믮        ஢७ 㭪樥
RUNCODE,  頥   室 DOS,    -
 . ᫨ 믮 㤠筮, RUN ।   訡
 㭪樨 ERROR  ERRORCODE.

। 訡:

    RUN  ।   訡 (. ਫ B)

ਬ:

   RUN('\command.com /c dir /p') !믮  DIR  㧮
                                 !   ࠭栬
   RUN('c:\wp5l\wp.exe')         !⨬ WordPerfect
   RUN(ProgName)                 !믮 , ᮤঠ-
                                 !    ६ ProgName


. ⠪: RUNCODE



RUNSMALL                                     (믮 )

             RUNSMALL()


            筮   RUN.

 RUNSMALL 믮     .  -
 믮  ᫨   뫠    -
  ,  ⥬  ࠢ  頥  ணࠬe ,
᫥饬  RUNSMALL.

RUNSMALL 뢠  䠩, ࠭ ࠭  믮 -
.  믮  ,  䠩  ८뢠  ⮬  
० 㯠,      RUNSMALL,  ࠭ ⠭  
ணࠬ த  , ᫥饣  RUNSMALL.  -
짮 RUNSMALL  㧪 १⮢ (TSR)  ४-
. ᪮  RUN  뢠  䠩   ⥬ ८뢠
,  ⥪騥 㪠⥫   . ⥫쭮,  -
   RUN    ६ 㯠   䠩,  ࠩ 
४.

RUNSMALL   㦠 ⮬᪨     COMMAND.COM.
⮬,   뢠  ᫨ . COMMAND.COM  -
   ७   , BAT-䠩   ,  
 ᪠ ணࠬ  PATH. ᫨ ணࠬ  室-
  ⥪饬 ⠫,      㪠  ,   
 室  ன  COMMAND.COM.   ,
 COMMAND.COM,    ⠪  ७  -
ࠬ 䠩 (.EXE  .COM).

ᯥ譮  믮        ஢७ 㭪樥
RUNCODE,  頥   室 DOS,    -
 .  ᫨ 믮  㤠筮, RUNSMALL  । 
訡  㭪樨 ERROR  ERRORCODE.

। 訡:

RUNSMALL  ।   訡 (.ਫ B)

ਬ:

 RUNSMALL('\command.com /c dir /p')!믮塞 - DIR
 RUNSMALL(PrgoName)    !믮塞   ६ ProgName

. ⠪: RUNCODE


SHUTDOWN                          ( 楤 襭)

             SHUTDOWN([楤])


楤          ⪠  PROCEDURE.  ᫨ 饭,  
                   SHUTDOWN- ⬥.

 SHUTDOWN   , 뢠   襭
ணࠬ.  뢠   ଠ쭮 襭  -
ࠬ, ⨨ Ctrl-Break   ଠ쭮 襭/-
--६-ᯮ.   뢠, ᫨   -
१㦠    ணࠬ  ࢠ  -  ᡮ  ⠭.
RESTART  SHUTDOWN-  ४.

ਬ:
    SHUTDOWN(CloseSys)               !Arm the shutdown procedure


STOP                           (஧ 믮 ணࠬ)

             STOP([ᮮ饭])


ᮮ饭          易⥫쭮  ப ࠦ ( 64K),
                   ஥ 㤥   ଠ樮 .

STOP ࠦ 믮 ணࠬ  뢠  ଠ樮-
 . STOP । 짮⥫ 롮 - த 믮-
 ணࠬ    DOS.  室  DOS, STOP 뢠-
  䠩  ᢮ 뤥 ணࠬ . ଠ-
樮  ⠪ ᮤন ଠ ⥬ ஢,  
ன   ⬥ ⮫쪮  ⠭ ६  㦥
CLASTOP  OFF. ⠪ CLASTOP:

          CLASTOP=1085,OFF

᫮ 砥 ਮ᪨   (1085 = ALT=), 
뢠 ଠ樮  STOP   ACCEPT  ASK
   . CLASTOP   ⠭  ஢-
 DOS,  䠩 䨣樨 ணࠬ     -
. ᫨ 祭  OFF,    ଠ樮 ,
㤥 㯭 ଠ ⥬ ஢.

ਬ:

PswdScreen  SCREEN(3,30)
              ROW(1,1) STRING('  -,  ஫!')
              ROW(2,2) ENTRY(@10),USE(Password),HIDE
           .                         !  ࠭ ஫
     CODE
     OPEN(PswdScreen)            ! ࠭ ஫
     ACCEPT                      !    ⢥ 짮⥫
     IF Password <> 'PayMe$moRe' !ࠢ ஫?

     LOOP;STOP('  ७ ⥡!  饭!').
     .                           !᫨ ,    ...
	     7 -   ࠭  

楤.............................................. 7-1
     BLANK ( אַ㣮쭨  ࠭)............... 7-1
      梥⮢ ⨫ (ਡ)................... 7-2
     PAINT ( אַ㣮쭨  ࠭).............. 7-3
     SCROLL (ப אַ㣮  ࠭)....... 7-4
     SETBLINK (ࠧ )........................... 7-5
     SETCOLOR (⠭ ਡ).................... 7-5
     SETCURSOR ( )............................ 7-6
     SETGRAPHIC (⠭ ᪨ ०).............. 7-7
     SETMOUSE (樮஢  誨)................ 7-8
     SETNOBLINK ( )......................... 7-9
     SETTEXT (⠭ ࠧ ࠭  ⥪⮢ ०).. 7-9
     SHOW (  ࠭).............................. 7-10
     TYPE (뢥 ப  ࠭)......................... 7-11

㭪樨................................................ 7-12
     BACKCOLOR (頥 梥 䮭)....................... 7-12
     COLOR (頥  梥⮢ ⨫)................. 7-13
     FORECOLOR (頥 梥 ⥪)..................... 7-13
     GRAPHIC (頥 ⥪騩 ०)................ 7-14
     LOOK ( ᨬ()  ࠭)...................... 7-15
     MAKECOLOR (頥  梥⮢ ⨫)............. 7-16
     MOUSECOL (X-न 誨).......................... 7-17
     MOUSEROW (Y-न 誨).......................... 7-17

楤 ........................................ 7-18
     ALIAS (⠭ ୠ⨢  ).......... 7-18
     ASK (  ᨬ)............................. 7-18
     PRESS ( ᨬ   )............ 7-19
     SETKEYCODE (  )........................ 7-19

㭪樨 .......................................... 7-20
     ENTRY (頥   ).............. 7-20
     KEYBOARD (頥 饥 ⨥  )..... 7-21
     KEYCODE (頥   襭 )....... 7-21


			


BLANK                         ( אַ㣮쭨  ࠭)

             BLANK([ப][,⮫][,ப][,⮫殢])


ப              ᫮ 祭  ࠦ, ஥ -
                     ப  砫쭮 (孥 )
		    㣫.  㬮砭 - 1.

ப              ᫮ 祭  ࠦ, ஥ -
                     ⮫  砫쭮 (孥  -
		    ) 㣫.  㬮砭 - 1.

rows                ᫮ 祭  ࠦ, ஥ -
                     ᫮ ப  אַ㣮쭨.   㬮-
                    砭 -   ࠭.

columns             ᫮ 祭  ࠦ, ஥ -
                     ᫮ ⮫殢.  㬮砭 -   -
                    ਭ ࠭ ( SCREEN).

BLANK 㤠   ᨬ   אַ㣮쭮    ࠭.
 BLANK  頥 ⨢ ਡ-梥.   ⨢-
஢  ਡ  PAINT    SCREEN  /  
SETCOLOR    梥  אַ㣮쭨.

ਬ:

    BLANK                              !  ࠭

    BLANK(1,1,12,80)                   !  ࠭
    BLANK(1,41,12,40)                  ! ࠢ ⢥

. ⠪: SETCOLOR, PAINT


   ⮢ ⨫                           (ਡ)


      ⮨    ;   -
 (ᨬ)   ன  - ਡ.   ਡ⮢
ᮤন 塨 梥 䮭,  /મ  塨-
 梥 ।  (⥪).   ᪮  -
  梥⮢ ⨫  묨 祭ﬨ 0..255,  -
    梥⮢  䮭/⥪.    
㦨 ⮬ મ 䮭   楤 SetNoBlink.  
饭 ,  䮭   ᯮ짮    16 梥-
⮢,     ⥪. ᫨    ࠧ襭,    䮭
 ᯮ짮 ⮫쪮 8  梥⮢,  ⠫ 8   ਢ-
   ⥪.  梥⮢ ⨫ 砥  ᫮
祭 䮭  ⥪.  ᫥饩 ⠡ ਢ -
, ᯮ㥬  ᮧ  梥⮢ ⨫.

			   ஬

     ।                           
Dec  Hex                      Dec  Hex        
                                  
0    0h                     0    0h        
1    1h          ભ.   16   10h       
2    2h                      32   20h       
3    3h                      48   30h       
4    4h                      64   40h       
5    5h                      80   50h       
6    6h                      96   60h       
7    7h                      112  70h       
8    8h         
9    9h         મ- ભ.   128 (80h)  梥
10   0Ah        મ-            䮭, ⮡  -
11   0Bh        મ-            騩 ⥪.
12   0Ch        મ-
13   0Dh        મ-
14   0Eh        મ-
15   0Fh        મ-

			    ⭮

     । 
Dec     Hex           
                
0       Oh            
1       lh            㡮
2       2h            
3       3h            
4       4h            
5       5h            䨮⮢
6       6h            筥
7       7h            
8       8h            
9       9h            ⫮-㡮
10      OAh           ⫮-
11      OBh           ⫮-
12      OCli          ⫮-
13      ODh           ⫮-䨮⮢
14      OEh           
15      OFh           મ-

     

Dec    Hex          ( )         ( )
                      
0      0h                                 
16     10h           㡮                    㡮
32     20h                               
48     30h                              
64     40h                               
80     50h           䨮⮢                 䨮⮢
96     60h           筥                 筥
112    70h                                 
128    80h                                 
144    90h           ⫮-㡮             㡮
160    0A0h          ⫮-             
176    0B0h          ⫮-            
192    0C0h          ⫮-             
208    0D0h          ⫮-䨮⮢          䨮⮢
224    0E0h                               筥
240    0F0h          મ-                 


PAINT                        ( אַ㣮쭨  ࠭)

             PAINT([ப][,⮫][,ப][,⮫殢])


ப              ᫮ 祭  ࠦ, ஥ -
                     ப  砫쭮 (孥 )
		    㣫.  㬮砭 - 1.

ப              ᫮ 祭  ࠦ, ஥ -
                     ⮫  砫쭮 (孥  -
		    ) 㣫.  㬮砭 - 1.

rows                ᫮ 祭  ࠦ, ஥ -
                     ᫮ ப  אַ㣮쭨.   㬮-
                    砭 -   ࠭.

columns             ᫮ 祭  ࠦ, ஥ -
                     ᫮ ⮫殢.  㬮砭 -   -
                    ਭ ࠭ ( SCREEN).

PAINT 뢠 ⨢ ਡ SETCOLOR  אַ㣮
 ࠭.   אַ㣮쭨   .
PAINT ⮨ ਬ ⮫쪮 ᫥ 믮  SETCOLOR
 ࠬ஬-梥⮬. ᫨ - ࠬ ய饭, ,
࠭稢訥   ⠢.

ਬ:

    SETCOLOR(17h)                        !  㡮
    PAINT                                !  ࠭
    SETCOLOR(1Fh)                        !મ-  㡮
    PAINT(1,5,1,65)                      !ᢥ 

. ⠪: SETCOLOR


SCROLL                 (ப אַ㣮  ࠭)

           SCROLL[ப][,⮫][,ப][,⮫殢][,稪]


ப              ᫮ 祭  ࠦ, ஥ -
                     砫 () ப.   㬮-
                     - 1.

⮫             ᫮ 祭  ࠦ, ஥ -
                     砫 () ⮫ אַ㣮쭨-
                    .  㬮砭 - 1.

ப               ᫮ 祭  ࠦ, ஥ -
                     ᫮ ப  אַ㣮쭨.   㬮-
                    砭 -   ࠭ ( SCREEN)

⮫殢            ᫮ 祭  ࠦ, ஥ -
                     ᫮ ⮫殢.  㬮砭 -   -
                    ਭ ࠭ ( SCREEN).

稪             ⨢  ⨢ 祭  -
                    , ஥   ᪮쪮 ப  -
                    . ᫨   ⥫,   -
                    ⪠ ,  ᫨ ⥫,   .
                     㬮砭 =+1.

SCROLL ६頥 ᨬ   אַ㣮쭮   ࠭ 
 .   ᤢ ᨬ,  ப 㤠 ᢥ-
 (᭨) אַ㣮쭨,    ப ᮧ 
(). ࠬ     न  孥
 㣫  אַ㣮쭨 ⭮⥫쭮  孥   㣫
䨧᪮ ࠭;   뫠  孨  㣮 
 SCREEN.

SCROLL   ⨢뭥 ਡ  אַ㣮쭨.  -
  ⨢  ਡ    PAINT  SCREEN- 
 SETCOLOR    梥  אַ㣮쭨. -
 ᨬ ᤢ, 梥 ᪠ אַ㣮쭨  -
.

ਬ:

    SCROLL(4,10,16,60,-1)             !⪠  

    LOOP  5  TIMES                    ! 5 ࠧ
      SCROLL                          !    ࠭
    .                                 ! 横

. ⠪: SETCOLOR, PAINT


SETBLINK                                     (ࠧ )

             SETBLINK


SETBLINK ࠧ蠥 . ᫨  ࠧ襭,   䮭 -
 ᯮ짮 ⮫쪮 8 梥⮢.  ଠ ० ࠡ, 
 ,    饭 楤ன SETNOBLINK.

ਬ:


  SETNOBLINK            !몫 
  SHOW(1,15,CENTER(' 訡, 㦥!',30))
  SETCOLOR(0EBh)        !  梥 - ᢥ⫮ ᠫ  ⮬
  PAINT(1,15,1,30)      !  ᨬ  ᮮ饭
  BEEP(0,200)           ! 2 ᥪ㭤
  SETBLINK              !    騩 .ᠫ.  
			!  筥


. ⠪: SETNOBLINK, SETCOLOR,  ⮢ ⨫


SETCOLOR                              (⠭ ਡ)

             SETCOLOR(梥)


梥                ᫮ 祭  ࠦ, ஥ -
                      梥⮢ ⨫. ⨬  -
                      - 0..255.

SETCOLOR   먤ਡ   ᨬ, -
   ᫥  .  -    梥⮢
⨫ (  뫪  ७ ᨢ, ᯮ㥬  -
 SCREEN ଥ஬ COLOR).

᫨ SETCOLOR ᯮ짮  ࠬ஢,  ᨬ, 뢮
 ࠭ ᫥ ⠪ SETCOLOR    梥 ,
㤠  뢮.

ਬ:

   SETCOLOR(0)                       !  ୮
   SETCOLOR(47h)                     !  ᭮
   SETCOLOR                          !⠢ ਡ  .

. ⠪:  ⮢ ⨫


SETCURSOR                                      ( )

             SETCURSOR([ப,⮫])


ப              ᫮  祭   ࠦ,  饥
                    ப  ࠭.

⮫             ᫮  祭   ࠦ,  饥
                    ⮫  ࠭.

SETCURSOR 뢠   樨     -
. ᯮ   樮஢  뢮   ன⢮
"CON". SETCURSOR  㪠뢠   ப   ⮫  뢮
஬ TYPE,   ஬  PRINT,   ண ன⢮
 뢮    "CON." ᫨ ࠬ   , 
SETCURSOR  .

ਬ:

  SETCURSOR(2,5)           !Turn on the cursor at row 2 column 5
  SETCURSOR                !Turn off the cursor

. ⠪:    TYPE


SETGRAPHIC                        (⠭ ᪨ ०)

             SETGRAPHIC(०)


०                ⠭  EQUATE,   -
                    ᪨ ० (EGA, VGA, SVGA).

SETGRAPHIC  ᪨ ०  SCREEN-   -
⮬ GRAPHIC. ᪨ ० । ⮬᪨  
 ॡ ,  ࠢ. SETGRAPHIC ४뢠  ०
⮮। ०  ᫥饣 뢠 SCREEN.  -
襭   祭:

Dec  Hex        
          

90   5Ah        ⮢
121  79h        EGA
89   59h        VGA
87   57h        SVGA

᫨ ࠭ 㦥   ᪨, SETGRAPHIC(90)  -
    .  ᫨    ࠭        ᪮  ०,
SETGRAPHIC(90) ਭ㤨⥫쭮 맮  뢮 ᫥ ࠭  
⥪⮢ ०,  ᫨   ⠭ ਡ GRAPHIC.

ਬ:

GraphScreen   SCREEN(25,80),GRAPHIC
                !ᠭ  ࠭
              .
  CODE
  SETGRAPHIC(90)     !騩 ࠭ ਭ㤨⥫쭮  ⥪
  OPEN(GraphScreen)  !GraphScreen   ⥪⮢ ०

. ⠪: GRAPHIC


SETMOUSE                        (樮஢  誨)

             SETMOUSE([ப][,⮫])


ப               ⠭,  ६   ࠦ,
                    饥 ப,     
                    誨.  㬮砭 - .

⮫              ⠭,  ६   ࠦ,
                    饥 ⮫, 㤠   -
                    .  㬮砭 .

SETMOUSE ࠧ頥  誨  ࠭. ᫨   
饭,  SETMOUSE 몫砥  誨. ᫨ ணࠬ  -
ࠥ ᯮ짮  ,    ࠩ  ,  SETMOUSE
ॡ (⭮ -   砫 ணࠬ).

 ᪮ ०  誨 ।⠢ ५,   ⥪-
⮢ - אַ㣮   (),    ,   
ᯮ짮  LOADSYMBOLS  USESYMBOLS.

ਬ:

  SETMOUSE()                   !몫 
  SETMOUSE(1,1)                !  孥  㣫

. ⠪: LOADSYMBOLS, USESYMBOLS


SETNOBLINK                                   ( )

             SETNOBLINK


SETNOBLINK 頥   ࠭. 筮, 䮭   -
  8  梥⮢.  饭  ,  ⢥騩  
   ᯮ짮   મ 䮭.   -
 ᯮ짮  䮭   16 梥⮢,    ⥪.

஬  CGA   ন 饭 .
 ࠧ,  SETNOBLINK 㦥,  , EGA.

ਬ:

   SETNOBLINK                    !몫 
   SETCOLOR(OEh)                 !  ⠭   ⮬
   PAINT                         !    ࠭

. ⠪: SETBLINK,  ⮢ ⨫


SETTEXT            (⠭ ࠧ ࠭  ⥪⮢ ०)

             SETTEXT(ப,⮫殢)


ப                ⠭, ६    ࠦ,
                    饥 ᫮ ப  䨧᪮ ࠭  
                    ⥪⮢ ०.

⮫殢             ⠭,  ६   ࠦ,
                    饥 ᫮ ⮫殢  䨧᪮ ࠭
                     ⥪⮢ ०.

SETTEXT  筮 ,  ᪠, ० 43   50 ப.
 ਬ SetText, ⥪⮢ ० ⠥ ⠪ , 
   ᪥ ணࠬ.

SETTEXT ᯮ  ⮤ 襣  ࠧ饭   ࠬ஢
  .   ন ࠧ ⥪-
⮢ ०, ⠪ ,   ਭ樯, SETTEXT(200,200)   -
 ᨬ쭮  ࠧ襭  ⥪⮢ ०.

ਬ:

  R# = ROWS()                !࠭塞 ⥪騥 ࠬ ࠭
  C# = COLS()                !R# - ப  C# - ⮫
  GraphicScreenProc          !뢠 .  .࠭
  SETTEXT(R#,C#)             !頥  ।. 祭

. ⠪: ROWS, COLS


SHOW                                        (  ࠭)

             SHOW([ப][,⮫],ࠦ[,ଠ])


ப              ᫮ 祭  ࠦ, ஥ -
                     ப  ࠭,   㤥 뢥-
		      .    㬮砭  - ᫥
                    ப,  ன ந室 뢮.

⮫             ᫮ 祭  ࠦ, ஥  
                     ⮫,   㤥 뢥 -
                    .  㬮砭  - ᫥ ⮫,  
                     ந 뢮.

ࠦ           ⪠  ६,  ⠭,  ᫮ 
                    ப ࠦ.

ଠ               ଠ   ⪠   ப  (STRING)
                    ᠭ  ଠ⮬ 뢮 (picture).

SHOW 뢮 ६  ࠦ אַ  ࠭. ᫨ -
 ᫨誮 , ⮡ ࠧ  ப,   ᥪ-
. ⮡ ,  - ࠬ ய饭,  ॡ
. ,   뢮 SHOW, ࠥ  ,  뫮  ࠭ 
࠭.

ਬ:

  SHOW(1,1,TODAY(),@D3)               ! 
  SHOW(,,CLOCK(),@T3)                 ! ६  ⮬ -
                                      !, 㤠  ᫥
				      !뢮
  SHOW(1,80 - SIZE(Msg),Msg)          !஢ ᮮ饭 -
				      !
  SHOW(25,1,' ,  த')!뢮 ᪠


TYPE                                   (뢥 ப  ࠭)

             TYPE(ப)


ப            ப ⠭, ६  ࠦ.

TYPE 뢮 ப   ⠭⭮ ன⢮  뢮 (STDOUT).
  । ,  ⢥ STDOUT DOS ᯮ  -
ன⢮ CON. ப   ࠭ 稭  ⥪饣  -
 .   ᯮ짮  SETCURSOR, ⮡  ࠧ
  㦭 .

ன⢮ "CON" ᯮ  ᨬ CR, LF,  TAB  BS.  ॢ
ப (LF) ॢ    ப  ⥪饩. LF   -
᫥ ப ࠭ ਢ  ப⪥ ᥣ ࠭  
 ப.

ਬ:

    TYPE(Cus:Notes)           !뢥  ਬ砭

    SETCURSOR(1,25)           !  ᠬ  ࠭
    TYPE(@LF5)                !  ப⨬  5 ப

. ⠪: SETCURSOR,  ࠢ ਭ஬

			 


BACKCOLOR                                 (頥 梥 䮭)

             BACKCOLOR(ப,⮫)


ப              ᫮ 祭  ࠦ, ஥ -
                     ப  ࠭.

⮫             ᫮ 祭  ࠦ, ஥ -
                     ⮫  ࠭.

BACKCOLOR 頥 梥  䮭  㪠  . -
頥 祭       0  15  ⥫쭮,
 ᮮ⢥ ⭠ 梥⠬ । . ᫨ -
 室  ⨬ ।,  頥 .

  ਡ 䮭 梥 ࠭  襬   (4
).  , ᫨ 祭, 祭  BackColor ᯮ짮-
  ஦   梥⮢ ⨫,   ᭠砫   
㬭  ⭠,  ⥬ ਡ   祭 梥
 । .

頥 ⨯ : BYTE

ਬ:

  SETCOLOR(BACKCOLOR(1,1)+(FORECOLOR(1,1)*16)! 梥
  					     !⠬
  SaveBack = BACKCOLOR(1,1)           !࠭ 梥 䮭



. ⠪: SETCOLOR, FORECOLOR, MAKECOLOR,  ⮢ ⨫


COLOR                           (頥  梥⮢ ⨫)

             COLOR(ப,⮫)


㭪 COLOR 頥 ⨢     न⠬
(,)  梥⮢  ⨫ ( 梥⮢  䮭 
। ).

頥 ⨯ : BYTE

ਬ:

  SaveColor = COLOR(1,1)              !࠭ 

. ⠪: BACKCOLOR, FORECOLOR, MAKECOLOR,  ⮢ ⨫


FORECOLOR                      (頥 梥 । )

             FORECOLOR(ப,⮫)


FORECOLOR 頥 梥  ⥪     न⠬
(,).  頥 祭      0
 15 ⥫쭮.  ᫨ ࠬ 室  ⨬ ।-
,  頥 .

   ਡ 梥  ।   ࠭  襬
,  ,  祭  碥⮢ ⨫  १-
  FORECOLOR ਡ  १  BACKCOLOR 㬭
 ⭠.

頥 ⨯ : BYTE

ਬ:

 SETCOLOR(BACKCOLOR(1,1)+(FORECOLOR(1,1)*16))! 梥
					     !⠬
 SaveFore = FORECOLOR(1,1)            !࠭ 梥 ⥪

. ⠪: SETCOLOR, BACKCOLOR, MAKECOLOR,  ⮢ ⨫



GRAPHIC                          (頥 ⥪騩 ०)

             GRAPHIC(n)


n                  ᫥ ⠭, ६  -
                   .

㭪 GRAPHIC 頥  , ᮤঠ騩 ⥪騩  ७
०.  ᨬ  ०, 頥 ᫥饥:

Dec. Hex.       
         

90   5Ah        ⮢
121  79h        EGA
89   59h        VGA
87   57h        SVGA

GRAPHIC(0) 頥 ⨯  (EGA, VGA, SVGA) ᫨ ⥪騩
࠭    ᪮ ०. GRAPHIC(1) 頥 
 ਢ  祭  ᪨ ०  5Ah  
⥪⮢.

GRAPHIC(1) ஢,  室  ࠭  ᪮ ०
, ᫨ ⠪,    ᯮ. GRAPHIC(0) 筮 -
  । ⨯  ᯫ । ⨥
࠭  ᪮ ०.

頥 ⨯ : Byte

ਬ:

EGA        EQUATE(121)
VGA        EQUATE(89)
SVGA       EQUATE(87)

GraphScreen   SCREEN(25,80),GRAPHIC
              .
  CODE
  X# = GRAPHIC(0)
  IF X# = EGA OR X# = VGA OR X# = SVGA
    OPEN(GraphScreen)
    CASE GRAPHIC(1)
    OF  EGA
    OROF VGA
      SHOWIMAGE(1,1,25,80,'EGALOGO.PCX',1)
    OF SVGA
      SHOWIMAGE(1,1,25,80,'SVGALOGO.PCX',1)
  . .

. ⠪:     SETGRAPHIC



LOOK                                ( ᨬ()  ࠭)

             LOOK(ப,⮫,蠡)


ப              ᫮ 祭  ࠦ, ஥ -
                     Y-ᮮन  ⥭.  㬮砭 -
                    ᫥ ப,  ன 뫮 饭.

⮫             ᫮ 祭  ࠦ ஥  -
                     X-न  ࢮ ᨬ,  
                      .    㬮砭  - ᫥
                    ⮫,  ஬ 뫮 饭.

蠡               ଠ  ⪠ ப, ᠭ 
                    蠡  ଠ.    ᯮ 
                    ଠ஢ ⠭  ࠭  -
		    祭  ६.  蠡 ।
                    ⢮ ⮫殢,   ⠭
                     ࠭.

㭪 LOOK 뢠 ASCII- ᨬ  ࠭, 稭  
,  न⠬ (,). ᫨ - -
 饭,   ⮡   ⬥,  ॡ . LOOK
ࠡ⠥    ⥪⮢, ⠪  ᪨  ०.
(SPA - ᭮,   ᪨ 㪢  䨪 ࠡ⠥?)

頥 ⨯ : STRING

ਬ:

  PageNumber = LOOK(1,75,@N2)         !  ࠭
  Cus:AccountNumber = LOOK(,,@NO5)    !  ᫥ 뢥
                                      !  樨  -
                                      !    . 
  LastName = LOOK(5,20,@S20)          ! 


MAKECOLOR                       (頥  梥⮢ ⨫)

             MEKECOLOR(⥪,䮭)


⥪                ⠭, ६  ࠦ 
                     0..15, ।⠢ ᮡ 梥
                    ।  ( ⥪).

䮭                  ⠭, ६  ࠦ 
                     0..15, ।⠢ ᮡ 梥
                      ( 䮭).

MAKECOLOR 頥  梥⮢ ⨫   樨
梥⮢ ⥪/䮭.

頥 ⨯ : BYTE

ਬ:

   MAKECOLOR(7,0)        returns 7      White on Black
   MAKECOLOR(7,1)        returns 23     White on Blue

   ColorStyle = MAKECOLOR(7,1)    !Set ColorStyle variable to 23
   SETCOLOR(ColorStyle)           ! and use it to set the color


. ⠪: FORECOLOR, BACKCOLOR, COLOR, SETCOLOR,
	    ⮢ ⨫


MOUSECOL                                    (X-न 誨)

             MOUSECOL()


MOUSECOL  頥  ⮢  祭, ᮮ⢥饥 
⮫,  ஬ 室  誨  㠫쭮 ࠭.

頥 ⨯ : BYTE

ਬ:

  SaveMouseCol = MOUSECOL()          !Save mouse column position


MOUSEROW                                    (Y-न 誨)

             MOUSEROW()


MOUSEROW  頥  ⮢  祭, ᮮ⢥饥 
ப,  ன 室  誨  㠫쭮 ࠭.

頥 ⨯ : BYTE

ਬ:

  SaveMouseRow = MOUSEROW()             !Save mouse row position

		      


ALIAS                    (⠭ ୠ⨢  )

             ALIAS([,-])


                 ᫮   EQUATE-⪠  .

-           ᫮   EQUATE-⪠   .
                     ᯮ짮 ᢮ ࠭ .

ALIAS  㥬   ⨨   . -
 室  ⠡   .   700   999 -
᢮,     ᯮ짮   -. ࠪ᪨
䥪  ⮣ -   ॠ஢  , ᫨
 ணࠬ  ஢ -. ᫨  ࠬ -
,  ALIAS ⬥  ७祭 .

ਬ:

    ALIAS(F3Key,F1Key)              !Help ⥯  F3
    ALIAS(F1Key,F3Key)              !  ⨥ F1 ᬠਢ-
    				    !   ⨥ F3

    ALIAS(256,999)                  ! -㣮 
				    ! ESC
    ALIAS                           !⬥  ७祭

. ⠪: Equate- 


ASK                                       (  ᨬ)

             ASK


ASK ⠥     . 믮 ணࠬ-
 ਮ⠭  ६    . ᫨
  㦥  ࠡ⠭  , ASK ⠥  
 .

ਬ:

    SHOW(25,1,' ,  த') ! ᮮ饭 
    ASK                                   !  

    LOOP WHILE KEYBOARD()       !蠥  
      ASK                       !   ࠡ뢠  
    .

. ⠪: ENTRY


PRESS                                    (   )

             PRESS(     )
                    ப


            ᫮ ⠭  EQUATE-⪠  .

string         ப ⠭, ६  ࠦ.

PRESS      ७   -
 ਮ (   DOS). PRESS() 頥   -
 ⨥. PRESS() 頥   ப 楫. -
   ( ।), ࠧ ண  -
祭  㯭 ᭮ .   ⨥  -
 ⢮ 32 , . ⥮᪨ ᨬ ࠢ ਬ୮
2500 ᨬ  設⢥ "ଠ" ਫ.

ਬ:

 IF Action = 'Add'!On the way into a memo field on an add record
   Cus:MemoField = FORMAT(TODAY(),@Dl) &' '& FORMAT(CLOCK(),@T4)
                  !Preload first line of memo with date and time
   PRESS(EnterKey)!  and position user on second line
 .


SETKEYCODE                                 (  )

             SETKEYCODE()


                ⠭  EQUATE-⪠  .

SETKEYCODE ⠢ 㭪 KEYCODE   .  
 頥   .

ਬ:

   SETKEYCODE(999)    !⠢塞 KEYCODE  999

. ⠪: ALIAS, KEYCODE, Equate- 

		       


ENTRY                                (ਭ   )

             ENTRY(ப,⮫,蠡)


ப              ᫮ 祭  ࠦ, ஥ -
                     ப,  ன ந .

⮫             ᫮ 祭  ࠦ, ஥ -
                     ⮫,  ஬ ந 

蠡               ଠ  ⪠ ப, ᠭ 
                    蠡 ଠ. ࠬ  ।
                      ଠ     -
                    . ६ 뢠  ।-
                      ० ॢ᭮ ⮡ࠦ  (梥
                    䮭  ⥪  ⠬).

ENTRY ⠥     . ணࠬ ,  
।஢        襩  襭  
(筮  ENTER)    襩    (१ ALERT). ENTRY
⠭ ॢ  梥        砥
  ६ ।஢ .

頥 ⨯ : STRING

ਬ:

  Address = ENTRY(10,12,@S20)             ! 
  City = ENTRY(11,12,@S12)                ! த

. ⠪: ALERT


KEYBOARD               (頥 饥 ⨥  )

             KEYBOARD()


㭪 KEYBOARD  頥      ࠭  
  ⨩    .  ᯮ  ।,
  ,    ࠡ뢠 ࠬ ASK  
ACCEPT.

頥 ⨯ : LONG

ਬ:

  LOOP UNTIL KEYBOARD()               !  
    ASK
    IF KEYCODE() = EscKey THEN BREAK. !᫨ ESC, ࢠ 横
  .

. ⠪: ASK, ACCEPT, Equate- 


KEYCODE                 (頥   襭 )

             KEYCODE()


㭪 KEYCODE 頥  , ன 訫  -
஢ .   㭪 ࠡ⠥ ⮫쪮   १⮢
㭪樨 ENTRY  ஢ ASK, SETKEYCODE  ACCEPT.

頥 ⨯ : LONG

ਬ:

    LOOP                                !Loop on the display
      ASK                               !  wait for a keystroke
      CASE KEYCODE()                    !Process the keystroke
      OF UpKey                          !  up arrow
        SCROLL(,,,,1)                   !    scroll up one row
        DO GetRecordUp                  !      and get a record
      OF DownKey                        !  down arrow
        SCROLL(,,,,-1)                  !    scroll down one row
        DO GetRecordDn                  !      and get a record
      OF EscKey                         !  esc key
        BREAK                           !    break the loop
    . .                                 !End case, end loop

. ⠪: ASK, ACCEPT, Equate-⪨  

		   8 - Screen-

࠭ ਮ.............................................. 8-1
      ⠪ Screen....................................... 8-1
     Equate-⪨ ..................................... 8-1
     Equate-⪨ ...................................... 8-2

Screen-............................................ 8-3
     SCREEN (뢠 screen-).................... 8-3
     AT ( न ࠭).......................... 8-7
     CENTER (業஢  䨧᪮ ࠭)............ 8-7
     CUA ( 짮⥫᪨ 䥩 ⨯ SAA/CUA) 8-8
     EXPAND ( ࠧ ப).................... 8-8
     GRAPHIC ( ᪨ ०)..................... 8-9
     SHADOW (⮬᪠ ⥭  )................. 8-9
     ZOOM, FADE, WIPE, FALL (⮤  ࠭)........ 8-10

樮஢ ࠭ ............................. 8-11
     ROW (ப)........................................... 8-11
     COL (⮫).......................................... 8-11

  SCREEN....................................... 8-12
     BUTTON (-)................................... 8-12
     CHECK ( ⬥⪨ (祪).......................... 8-14
     ENTRY (  )................................. 8-15
     IMAGE (-㭮)................................... 8-17
     LIST (ᯨ᮪ (⡮)................................ 8-19
     OPTION ( 権).................................... 8-21
     PAINT (᪠ ⪠ ࠭)........................ 8-23
     PAUSE (    )............... 8-24
     POINT (㪠⥫  REPEAT)..................... 8-25
     PROMPT ( ᪠  ᫥饣 )............ 8-27
     RADIO (-ࠤ)............................... 8-28
     REPEAT (-७).......................... 8-29
     STRING (࠭ ६)........................... 8-31
     TEXT (   ⥪)........................ 8-32

ਡ .............................................. 8-34
     ALRT (⠭  襭 ).............. 8-34
     CAP ( 㪢 ᫮  묨).............. 8-35
     COLOR ( 梥 )............................ 8-36
     COLS ( ⮫  LIST-)................. 8-37
     ESC (㤠 ३  ⨨ ESC)..................... 8-39
     EVERY (⠭ ஬⮪  REPEAT)............... 8-39
     FILL (६,  祭  ⡮).... 8-40
     FROM (।  ᬮ १ LIST)................ 8-40
     FIX ( ⡮).............................. 8-41
     HIDE ( ᮤন ).......................... 8-42
     HLP  (䨪     )...... 8-42
     HSCROLL, VSCROLL, HVSCROLL ( ப⪨  LIST) 8-42
     IMM ( ᯮ)............................ 8-43
     INDEX (᭠ ६  REPEAT)................ 8-43
     INS ( -  ० ⠢).......................... 8-43
     LFT (ࠢ )............................... 8-44
     MAX (६-稪 ⮫殢  REPEAT)............. 8-44
     MSG (뢮 ᮮ饭  ࠭)......................... 8-45
     NAME (䠩  䨪  )...................... 8-45
     OVR ( -  ० )........................... 8-45
     REQ (    㫥  )............ 8-46
     REUSE (ᯮ짮 ࠭ ⠭ )....... 8-46
     SKIP (ய  )............................. 8-47
     TRN (஧筮 ࠦ)........................... 8-47
     UPR ( ८ࠧ뢠  孨 ॣ)........... 8-47
     USE (易   ६  )............. 8-48

 믠  (Pull-Down)....................... 8-49
     PULLDOWN ( "믠饥 ")................. 8-49
     SINGLE, DOUBLE, FULL, HALF ( ࠬ  )....... 8-51
     LOCAL (,  ன 뢠 PULLDOWN)........ 8-51

  PULLDOWN............................................. 8-52
     ITEM ( 믠饣 )........................ 8-52
     MENU (  믠饬 )....................... 8-53

ਡ   PULLDOWN................................... 8-54
     KEY ( ண 롮).......................... 8-54
     RIGHT (  MENU)............................... 8-55
     TOGGLE (-४⥫)......................... 8-55

			 


   ⠪ Screen


 몥 ਮ   ⨯ ࠭  - ᮡ⢥ -
࠭ - SCREEN,  PULLDOWN-. PULLDOWN- 
SAA/CUA-ᮢ⨬묨 믠騬 . SCREEN-  ᯮ-
    ⠫ ⨯ ࠭.  SCREEN- 
 SAA/CUA-ᮢ⨬,     .    
PULLDOWN  SCREEN-   প 誨  ᫥
믮  SETMOUSE.

ਬ  SAA/CUA-ᮢ⨬  ⭮     䥩
ணࠬ  짮⥫.  稨 SAA/CUA-ᮢ⨬, 
  ᢮ ணࠬ "  饭" 묨  -
ࠬ  ᪨  䥩ᮬ 짮⥫ (GUI).   ,
 ணࠬ 㤥 ⨢ ⭠ ⥬,    
    GUI.   ⮣,   ணࠬ    楫
᪨, ᯮ ਡ GRAPHIC  SCREEN-. -
, ᫨     ᮡ⢥ ⨫ "  饭",   
 ⪠  ⠭ SAA/CUA.

 ⫨稥  SAA/CUA  -CUA 짮⥫᪨  -
䥩ᠬ  ⢨   ENTER   ESC  롮   襭
.  -CUA ࠭, ENTER ( TAB) 蠥     
ॢ    ᫥饬     .   ESC
( BACKTAB) 頥  ।騥   襭 .
 SAA/CUA-࠭, ⮫쪮 TAB 蠥   室   ᫥-
饬. BACKTAB 蠥   室  ।饬. ENTER
 Esc  ६    CUA-࠭.

 - 㪮⢮  , ᫥⥫쭮,  ਡ  -
  SCREEN  PULLDOWN   ᨭ⠪  ᬮ७
஡.  ࠢ, SCREEN-  PULLDOWN- ਮ  ""
  ᮮ⢥  㬥⠫ ।   
   ਫ, 祬,   ନ -
४ ਮ᪨ ᨭ⠪. ⠫ , 筮  ஢
 SCREEN  PULLDOWN   室.


  Equate-⪨ 


 SCREEN-,      USE-६  砥 
 ᢮ .    稭    
ᢠ       ᠭ SCREEN-
.   冷 ।  ᫥⥫쭮 롮  
஬ ACCEPT (,    ஬  SELECT).
冷    ᠭ ࠭     ਡ-
⮢ ROW  COL,   ᯮ    ࠭.
 ࠧ,  㦤  - ५樨  -
   ࠭  ஬ , ᢮ ஬.

 ᪮쪮 ஢,   ᯮ    
 ࠬ: SELECT, DISPLAY, UPDATE, ERASE, DISABLE,  ENABLE,
  㣨. 뫮  쭮 ᫮    ࠧ
   ᯮ짮   . ⮬,  -
ਮ  堭 襭 ⮩ ஡: Equate-⪨ .

Equate-⪨   ᥣ 稭      (?), 
   USE-६ . 騩   -
砥   Equate- .  祭 宦  -
 ४⨢  EQUATE.  ⠢ -
    ⭮  Equate-⪨   ६ 樨. 
 㦭    ࠭  .

 LIST, POINT, BUTTON  PAUSE  SCREEN-  
USE-६,      ⮫쪮 Equate-⪠,  
। ᯮᮡ 饭  ⨬   ணࠬ.


  Equate-⪨ 


 PULLDOWN-,  砥   MENU  
ITEM ᢮ .    - ⥫, 稭  
  (-1)           
ᠭ PULLDOWN-.

Equate-⪨   PULLDOWN   ᠬ,  Equate-⪨ -
  SCREEN.  ᥣ 稭    (?). 
MENU   ITEM   PULLDOWN-    USE-६,
   ⮫쪮 Equate-⪠ ,  ।⠢
ᯮᮡ 饭  ⨬   ணࠬ.

		       SCREEN-


SCREEN                              (뢠 screen-)

⪠        SCREEN([rows][,columns])[,AT()][,ALRT()][,CENTER]
               [,COLOR()][,TRN][,EXPAND()][,GRAPHIC][,HLP()]
               [,PRE()][,SHADOW][,  ZOOM ][,CUA]
                                    FADE 
                                    WIPE 
                                    FALL 
               [ROW()]
               [COL()]
                       [BUTTON()]
                       [CHECK()]
                       [ENTERY()]
                       [IMAGE()]
                       [LIST()]

                       [OPTION
                           [CHECK()]
                           [RADIO()]
[⪠]                    [STRING()]
                       .]
                       [PAINT()]
                       [PAUSE()]
                       [PROMT()]

                       [REPEAT()
                           [POINT()]
                           [multiple other fields]
                       .]
[⪠]                [STRING()]
                       [TEXT()]
             .


⪠               ⨬  ਮ ⪠.  ॡ 
                     SCREEN   易⥫쭠  ࠭-
                     STRING-.

rows                ᫥  ⠭,      ᫮
                    ப  ࠭.  ࠭,    -
		    砥,   , ᯮ㥬  SCREEN-
		    ன. ᨬ - 255,   ந
		    ROWS  COLUMNS   ॢ 32767. -
		      ࠬ 饭,  ࠦ, -
		    ⮥ ࠭  ࠭.

columns             ᫥ ⠭,  ᫮  -
                      ࠭. ᨬ - 255,  ந-
		      ROWS    COLUMNS     ॢ
                    32767. ᫨  ࠬ 饭,  -
                    , ⮥ ࠭  ࠭.

AT                   X  Y न  ࠭,  -
                     ண, 䨪஢.

ALRT                  襭 ,  ⨢ 
                    ᥬ ࠭.

CENTER              뢠,   뢠   
                    業஢   ⭮⥫쭮    䨧᪮
		    ࠭.

COLOR                ᭮ 梥 ࠭.

TRN                 뢠  ,  ।騩 ࠭  
                    ஧筮 "ᢥ稢" ᪢ ⥪騩.

EXPAND                ப ࠭,    㡫
                    ᫨  ࠭,  ࠧࠡ⠭    ०  25
                    ப, 뢠  ० 43/50 ப.

GRAPHIC             ॢ ᯫ  ᪨ ०.

HLP                   , 易  ࠭.

PRE                  䨪 ⪨  STRING-६.

SHADOW              뢠,    ࠭  ⮬-
                    ᪨ ࠧ頥 ⥭.

ZOOM, FADE,         ࠢ ⮤  ࠭   -
WIPE, FALL          .

CUA                  SAA/CUA- 짮⥫᪨ -
                    䥩.

ROW                    ப  ᠭ   SCREEN-
		    .

COL                  ⮫  ᫥    ப
                     ᠭ  SCREEN-.

BUTTON              뢠 -.

CHECK               뢠  ,  饥  짮⥫
                    롨     ﭨ.

ENTRY               뢠    .

IMAGE               뢠  ᪮ ࠭,  -
                    ன    䠩 ⨯ GIF/PCX.

LIST                뢠  אַ㣮쭨  ࠭   -
                    ᬮ ᯨ᪠ ⮢.

OPTION              뢠 - ,  ᮤঠ-
                     ᪮쪮   ⨯  CHECK, RADIO  
		    STRING.     OPTION,  
                      ⨯.

RADIO               뢠 롮    OPTION-.
                    쪮  ࠤ  ᪮쪨, 
                     ⨢  ⤥ .

STRING               ࠭ ६  ᨬ
                    ⠭    ࠭.

PAINT               ⠭  ਡ⮢  梥
                     אַ㣮쭮  ࠭.

PAUSE               ࠦ   뢠 ਣ襭
                      襭 .

PROMPT               ப,  樨  
                    ⨯ ENTRY, TEXT, LIST  OPTION.

REPEAT              뢠 横᪨  .

POINT               뢠 㪠⥫ ( )  
                     REPEAT, ᯮ㥬  롮 -
                      REPEAT.

TEXT                뢠 筮   ।஢-
                     ⥪  ।.

SCREEN-   ࠭.      
ᠭ   ਡ,  뢠 뢮 ᨬ,  梥 
  짮⥫᪮ .  ࠭ ⨢,  -
 (STRING)     ⪠   ࠡ뢠   
㣨    ⪠. 㣮 ࠭    
뢠 ।,  ⨢   ⮫쪮 . -
᫥  ࠭   ⨢.

SCREEN  ࠬࠬ ROWS  COLUMNS (ࠧ  )  뢠
, ஥ ⮬᪨ ࠭ ४뢠  -
ࠦ.  ⨨  ࠭, ࠭ ࠦ  -
. ᫨  ࠬ ROWS  COLUMNS 饭,   ࠭
 ࠭ ४⮥ ࠦ.

࠭   ᠭ  ࠧࠬ, 訬 祬   䨧᪮
࠭ (,   ६   ).
 ࠭ 뢠 㠫.     -
쭮 ࠭   ஬ SETAREA.   室,
 ᯮ짮  SETAREA    ࠧ஢  㠫쭮
ࠡ祩 .

㠫 ࠭ ⮬᪨  樮 ⠪, ⮡  
⨢      뫮    䨧᪮ ࠭.
 ६ ᯮ ணࠬ,  ⨢  室  
। 䨧᪮ ࠭, ࠡ  㠫쭮 -
 ᤢ ⠪, ⮡  孨 ( , , ࠢ)
ࠩ 室  ப  (, , ࠢ) ࠭-
 .

SCREEN- ।  ⮬᪮ 樮஢  
--. ⨥  襭 蠥 ⥪饥 ⨢-
   ॢ   ᫥饥 , 饥 ।-
஢. 冷  롮    ࠧ饭  ᠭ
  ᠭ ࠭.  ࠧ, 冷 롮   
  ਡ⮢   COL  ROW,   ᯮ 
࠭.

 ࠭  ᮤঠ  প 誨. ᫨ -
। ᪮ ணࠬ 㦥 ࠩ 誨, 筮 믮-
  SETMOUSE,  ணࠬ ᬮ ࠡ  . -
  ६ 䨧᪨ ࠭  㠫쭮   
誨. 饭  誨  ࠩ ࠭ 뢠 ᤢ 
ப 䨧᪮ ࠭  । ࠭ 㠫쭮.

᫨   ६⨫ 㠫 ࠭ ⠪,   -
⨢     䨧᪮ ࠭,  ⮬᪨ -
    ७  䨧᪨  ࠭   뤥 , 
⮫쪮   - .

᫨  ࠭   ਡ GRAPHIC,    ४砥  
᪨ ०  ⨨ ⠪ ࠭. ᨬ  ࠧ-
 ᪮  ࠭ -  25x80. -  ࠭祭  ,
 ᪮ ०  ࠧ襭 㠫 ࠭.  뢠-
  ᫥⢨ ࠭   ਡ GRAPHIC    ०
ᯫ;  ⠭ ᪨   ,   㤥  -
 ࢮ砫 ࠭  ਡ⮬ GRAPHIC. ᫨ -
 ᫥ ࠭ ,  祬 25 x 80,  ணࠬ ਩
 ࠡ.

ਡ GRAPHIC ॡ ⮫쪮  ࠭  IMAGE-ﬨ. 
⠫ ࠭ ࠡ    ⥪⮢, ⠪   -
᪮ ०. ⮢, 筮,  ॥ 祬 -
᪨, ⮬,  ॡ ६ ࠧ  .

    "稥" ,   -
 ᠭ. , 騩  ᠭ   "-
 " .  室  ⠪ ,   ALT 
"" .

ਬ:

Screen    SCREEN(75,160),PRE(Scr)        !A virtual screen
            !(declarations)              !  fields, strings, etc
          .                              !End screen structure

. ⠪: SETAREA, SETMOUSE


AT                                    ( न ࠭)

             AT(ப,⮫)


ப              ᫮ ⠭  楫 ६, -
                      ப 㠫쭮 ࠭,  
                    ன 㤥  ப .

⮫             ᫮ ⠭  楫 ६, -
                      ⮫ 㠫쭮 ࠭, 
                    ஬ 㤥 ᠬ  ⮫ .

AT  ⭮   , ⠪    ᬮ "-
". 筮,  ᯮ  ࠭,   ࠧ,
祬 㠫.

SCREEN  ਡ AT ⠥ "" ⠪, ⮡   
ᮡ ᫥ ⮫  ப,   頫 ।騩
࠭.   㬮砭 -  ᫥ ப,   ன
뫮 饭    ᫥ ⮫,  ஬  뫮 -
. ᫨  ⮬ ࠩ  室  䨧᪨ ࠭,  -
 ⠥ ࠧ   ᫥ ப,  ன  뫮
饭. ᫨     砥,  SCREEN  業 ᥡ
 㠫쭮 ࠭.  ⮫  頥  ᫥-
 ⮫,  ஬ 뫮 饭. ᫨  ⮬ ࠩ  
室  । 䨧᪮ ࠭,   ᤢ  
  ,   㤥  ᠬ ࠢ ࠩ .

箪--६饭 誨  孥 ப "饣"  -
, 襣 祬 㠫,  ६   
 㠫쭮 ࠭.


ਬ:

Screen1  SCREEN(15,50),AT(27,15)!Fix window at row 27, column 15
           !(declarations)      !   declare fields etc.
         .                      !End of screen structure


CENTER                      (業஢  䨧᪮ ࠭)

             CENTER


ਡ CENTER 㪠뢠  ,   SCREEN- ᥣ
㤥 뢠  業 ࠭.  ⮨ ᯮ짮, 
࠭ ⭮,   ० 㤥 ࠡ ணࠬ - 25
43  50  ப,    ᯮ    業.  
誨    業஢  ࠭, ࠧ  ண
 祬  㠫쭮,     㠫쭮 ࠭.

ਬ:

Screenl  SCREEN(15,50),CENTER           !Always pop up in center
           !(declarations)              !   declare fields etc.
         .                              !End of screen structure


CUA          ( 짮⥫᪨ 䥩 ⨯ SAA/CUA)

             CUA


ਡ CUA     SCREEN   SAA/CUA- -
䥩. SAA/CUA- 砥 ⢮ ⥩,  設-
⢮  ,  祭  ࠭  ਮ     ਡ
CUA. ਡ  CUA   ᢮ ᯥ  ⮤ ६饭 
  ࠡ⪨  襭.

SAA/CUA- ࠭ ᯮ TAB  BACKTAB  ६饭
  ࠭. TAB 蠥 ।஢   室 
᫥饬. BACKTAB 蠥 ।஢ ⥪饣   -
室  . -SAA/CUA ࠭ ᯮ ENTER   ESC
( ⠪  TAB   BACKTAB)   ६饭   ﬨ ࠭.
ENTER ( TAB)  ।஢   室  ᫥-
饬   ࠡ⪨. ESC ( BACKTAB) 뢠 ࠡ -
饣    롨   ।஢  ।饥 , 
 ।஢ ⥪饣.

ਬ:

Screen1  SCREEN(15,50),AT(27,15).CUA
                              !SAA/CUA navigation and completion
           !(declarations)    !  declare fields etc.
         .                    !End of screen structure


EXPAND                              ( ࠧ ப)

             EXPEND(ப)


ப              ᫥ ⠭     1..25,
                    ⥫쭮.

ਡ EXPAND  SCREEN-   ப ( ०  25
ப),  㤥 ७  ᪮쪮 ࠧ  ०  43 
50 ப.    ᯮ짮 ࠭,  ࠧࠡ⠭ 
० 25 ப  ० 43/50 ப.  ப  -
 ⮫쪮 ࠧ, ᪮쪮  , ⮡  ࠭.  筮,
࠭ ப ᯮ  ࠧ REPEAT- 
LIST   18  25 ப.

ਬ:

Screen1  SCREEN(25,80),EXPAND(10)
                         ! ० 43/50 塞 10 ப
               REPEAT(12),INDEX(Ndx),MAX(MaxRows)
                         !Repeat-  ப 3..15
           ROW(3,5) POINT(1,16),USE(?Point)
Month      COL(5)   STRING(3)
           COL(12)  ENTRY(@N_7.2),USE(Amt),INS
         .     .         !End of screen structure


. ⠪: SETTEXT


GRAPHIC                               ( ᪨ ०)

             GRAPHIC


ਡ GRAPHIC 㪠뢠  ,  ࠭  뢠  -
᪮ ०.  ਡ  ॡ   ࠭,  -
ঠ饣 IMAGE-.

  ᪨ ०, ணࠬ ⠥  ,   -
஥ ࠭, 맢訩 室   ०.  ࠭, -
뢠 ᫥ ࠭  GRAPHIC,  뢠   -
 ० ᨬ     ⮣ ਡ. 室 
᪮ ० ஧祭  ;  ࠭  ,
 㭪樨 ।஢ ⠪  ,     ⥪⮢ ०.
 ⥪  । ⥪⮢ ࠭, ⮬᪨  㤥
८ࠧ  䨪. 㭪 BLINK  ࠡ⠥   ᪮
०.  ,   騩 ⥪,  䨪  㤥 뢥
 મ 䮭.

- ࠭祭  , 2580 - ᨬ ࠧ  -
᪮ ࠭. ᫨  ࠡ⠥  ० 43/50, ,  -
⨨ ᪮ ࠭, ࠭ ⮬᪨ ॢ  ०
25 ப.   ᪮  ०   㠫 ࠭.
᫨  ࠡ  ᪮ ०   㠫
 ࠭,  ࠬ ਩ ⠭.

ਬ:

Screenl  SCREEN(15,50),GRAPHIC!Screen puts video in graphics mode
           ! (declarations)   ! declare fields etc.
         .                    !End of screen structure



SHADOW                           (⮬᪠ ⥭  )

             SHADOW


ਡ SHADOW 뢠 ⮬᪮ ࠧ饭 "⥭"  -
  ࠢ ࠥ   -,  樨 嬥-
 䥪.  - ஧, .. 騩   ⥪  -
     묪. SHADOW 筮 ᯮ   SCREEN--
, ࠧ   䨧᪮ ࠭.

 PULLDOWN-, SHADOW 뤥 ⥭ ⮫쪮 "믠騥"  -
.


ਬ:

Screen1  SCREEN(15,50),SHADOW !Automatic shadowing around screen
           !(declarations)    !  declare fields etc.
         .                    !End of screen structure

. ⠪: PULLDOWN, BUTTON



ZOOM, FADE, WIPE, FALL                  (⮤  ࠭)

             ZOOM
             FADE
             WIPE
             FALL


 ਡ   ࠭  ᯮ짮  
䥪⮢. 쪮  ⮤   ਬ   ࠭.
 ਡ    ᪮ ०.

     ZOOM         "⠥"  ࠭
     FADE         ""  ࠭ ᨬ쭮
     WIPE         "ࠥ"  ࠭
     FALL         "믠"  ࠭

ਬ:

Screen1        SCREEN(12,12),ZOOM
Screen2        SCREEN(25,80),FADE
Screen3        SCREEN(50,180),WIPE
Screen4        SCREEN(10,30),FALL


		  


ROW                                              ( ப)

             ROW(ப[,⮫])


ப               ⠭,   ப,  -
                    ன  㤥 뢥  ࠭.

⮫              ⠭,  ⮫, 稭
                     ࣮,   ப 㤥 뢥 
		    ࠭.  ᫨  ய饭,    ࠧ㬥
                    ⮫  ᫥  ROW  COL.

ROW ࠢ ࠧ饭   ப  ࠭.   
    ।   ਭ ࠭ ᮮ⢥ᢥ.

ਬ:

   ROW(4,12)      PAINT(12,34),COLOR(7,4)

   ROW(9)         ENTRY(@Sl2),USE(Status)



COL                                             ( ⮫)

             COL(⮫)


⮫             ᫥ ⠭,  ⮫, 
                    ண 㤥 뢮 ப  .

COL ࠧ  ᠭ   ।   SCREEN ⠭
⮫  ᫥饣    ப  ⮩    ࠭,
   ।⢥ ।饣 .

ਬ:

Fname  ROW(2,2) STRING(@S12)      !뢮 Fname  . 2 ⮫. 2
Init   COL(16)  STRING(@S1)       !뢮 Init  . 2 ⮫. 16
Lname  COL(18)  STRING(@S12)      ! Lname  . 2 ⮫ 18


		       SCREEN


BUTTON                                             (-)

             BUTTON(⥪),USE()[,COLOR()][,TRN][,MSG()][,ESC()]
               [,HLP()][,SHADOW][,REQ][,IMM]


⥪               ப ⠭  ६,  ᮤঠ-
                       .

USE                 Equate-⪠ ,    -
                     ணࠬ   ⮬ .

COLOR                梥.

TRN                  ᪮ ० 㪠  ,  
                    뢮 , ᯮ짮 ⮫쪮 梥  -
                    । , ⠢ 䮭 .

MSG                 饭, ஥ 㤥     ப
                    ᮮ饭 ࠭.

ESC                 ,  ஥ ३  ⨨ ESC  
                    BACKTAB.

HLP                 䨪  ᪠, 易   
                    ⨬ .

KEY                 _  "祩 ",  뢠-
                    饩  ⨥ BUTTON.

SHADOW              ⮬᪨ ࠧ ⥭  .

REQ                 ⠢ BUTTON ஢    -
                     ࠭  ਡ⮬ REQ  ।  -
                       , ⫨     -
                    .

IMM                 BUTTON ⮬᪨ 蠥  ⨨
                        易   楤-
                     뢠 뢭  ᪠ -
                     .

BUTTON 뢠 -  SCREEN-. ⮢ -
  ᮤঠ ᠭ (&), 砥,  ᫥騩
  ᨬ - ""   ⮣ . ⨥ ALT  
뤥  ᠭ  ᨬ  뢠  "⨥"
⮩ .

ਡ  KEY  ⠪          
BUTTON.     ਮ᪨    -
⭠ ப  ⠭. ᫨  ਡ KEY  , 
        ᥣ 㤥  㭪樥
KEYCODE()  襭 -, ᨬ  ⮣,  
  ᠬ  ᯮ짮  ⮣.

 TAB,   CUA   -CUA ࠭,  蠥 --
.   ENTER 蠥     ० -
.

⮢ ப   ᮤঠ ⠪ ⨪   (|),
 砥  ப  ⥪.  ࠧ,   -
  .  ਭ  אַ㣮-
। 訬 ᫮ ᨬ  ⨪쭮 .

BUTTON  ਡ⮬ REQ  - ,  "ॡ  ஢ન -
".  CUA  ࠭, ਡ REQ    ENTRY   TEXT 
஢,   㤥    ਡ⮬ REQ.

BUTTON  ਡ IMM, 蠥  ᪠  
. BUTTON  ਡ⮬ IMM 蠥  ⨨  -
 .   ᯮ 祭 ⮩   ᯮ-
塞    ,   㤥 饭  .

ਬ:

   BUTTON('               ButtonText  '),USE(?Pushbutton)
                                          !筠 


CHECK                                    ( ⬥⪨ (祪)

             CHECK(text),USE()[,COLOR()][,TRN][,MSG()][,HLP()]
               [,ESC()]


text                ப ⠭  ६, ᮤঠ-
                     ⥪  뢮  ࠭.

USE                 ᫥ ६  EQUATE-⪠.

COLOR                  .

TRN                  ᪮ ० 梥 䮭 - ஧,
                      १    ᢥ稢 䮭 ।饣
                    ࠦ.

MSG                 ,  㤥 뢥  ப ᮮ-
                    饭 ࠭.

HLP                  ࠭ ᪠, 易  ⨬ -
                    .

ESC                  ,   ஥   ३ 
                    ⨨ ESC  BACKTAB.

CHECK     ﭨﬨ - /몫.  頥-
   1 ஡   ப,     ࠬ 
CHECK.    "祭", 易   USE-६
⠭      箪 "⬥⪠"  ()  
ࠬ窥 (  ,        LOADSYMBOLS
 USESYMBOLS). ᫨ "몫祭",  ࠬ 頥  USE--
 ⠭    (). ﭨ  祪 
 襩 ஡.

⮢ ப   ᮤঠ  ᠭ,   
⠪       ⥪⮢  ப   BUTTON -  "
"   .

CHECK   ⤥쭮,    㯯஢  㣨
ࠬ CHECK   OPTION. ﭨ  ४-
 ஡.

ਬ:

 ROW(12,23) CHECK('Employed?'),USE(Employed) ! 祪

 ROW(5,6) OPTION                    !砫  OPTION
 ROW(6,9)   CHECK('Deduct &Medical')! 'Alt-M'  
 ROW(7,9)   CHECK('Deduct &Dental') ! 'Alt-D'  ⮬⮫
 ROW(8,9)   CHECK('Deduct &AD&&D')  ! 'Alt-A'  ⥫ 
          .                         !  OPTION

. ⠪:  LOADSYMBOLS, USESYMBOLS


ENTRY                                           (  )

             ENTRY([picture]),USE()[,COLOR()][,TRN][,HLP()]
               [,ESC()][,IMM][,LFT][,INS][,CAP][,ALRT()]
                                     OVR   UPR
               [,MSG()][,SKIP][,HIDE][,REQ]


picture             ,  ஬     ଠ஢
                      USE-६ ᨬ. ᫨  -
                      ,    ᬠਢ  
                    "⮥", ஥   ACCEPT 
                    ⮬᪨.

USE                 ६,  砥  -
                    .  "" ,  筮  EQUATE-
                    ⪠.

COLOR                梥.

TRN                  ᪮ ० 梥 䮭 - ஧,
                      १    ᢥ稢 䮭 ।饣
                    ࠦ.

MSG                 ,  㤥 뢥  ப  ᮮ-
                    饭 ࠭.

HLP                  ࠭ ᪠, 易  ⨬ -
                    .

ESC                  ,   ஥   ३ 
                    ⨨ ESC  BACKTAB.

IMM                   蠥,   -
                     .

LFT                   ࠢ .

INS/OVR               - ⠢  .

UPR/CAP                  ⮫쪮 -
                     㪢   .

ALRT                  ⨢ alert-    
                    .

SKIP                     ਭ - -
                    .

HIDE                 ᨬ    ࠭.

REQ                        㫥.

 ENTRY     ।஢  ᮤন-
 USE-६.   ENTRY    ⠪ ,
  USE-६. ਬ, an ENTRY(@S30)  ᯮ짮-
   STRING(85),  USE-६ 㤥  ப-
稢   ࠢ  ࠬ,  蠡.   ,
  ENTRY ⨢,  ᯮ짮 ५ /-
  ६頥    USE-६.

᫨ ᯮ  "⮥"   ( 頡),   
ACCEPT   蠥   .   ࠧ, ""
  ணࠬ   ࠢ   - 窠
ࠡ⪨  SCREEN-  (筮  ᯮ  ࠡ⪨
-CUA ࠭).

 ENTRY  ਡ⮬  HIDE 뢠  ࠭  窨 (*)
   . 筮   ᯮ     ஫,
⮡  뫮 拉 -   .

᫨  ਡ SKIP,      ࠭   
.   , USE-६    -
஬ DISPLAY,   ᮧ  "⮫쪮  ".

ਬ:

    ROW(6,14)   ENTRY(@S24),USE(Name),CAP,LFT,HLP('Name')
    ROW(8,16)   ENTRY(@S2),USE(state),UPR.IMM,HLP('StateLst')
    ROW(12.20)  ENTRY(@N4.1),USE(Percent),INS,REQ,ESC(?Amount)
    ROW(10,8)   ENTRY(@P###-##-####P),USE(SocSecNbr),OVR,REQ.IMM
    ROW(1,1)    ENTRY,USE(?FirstField)



IMAGE                                             (-㭮)

             IMAGE(row,columns),[NAME()][,USE()][,IMM][,REUSE]
               [,SKIP][,MSG()][,ESC()][,HLP()][,KEY()]


rows                ப  IMAGE-, ᨬ - 25.

columns             ⮫殢  IMAGE-, ᨬ - 80.

NAME                ப ६  ⠭, ᮤঠ-
                      PCX   GIF 䠩  .  ᫨
                    USE  ᮤন    MEMO-,   ਡ
                    NAME  ᯮ.

USE                 EQUATE-⪠ ,  ⪠ ६, -
                     ᮤন PCX  GIF 㭮  -
                    , 筮  MEMO_  ਡ⮬ BINARY.

IMM                   㭮,   
                    ப ࠫ ४뢠 .

REUSE                256-梥⭮ SVGA ०, 㭮 㤥 -
                    뤨    梥⮢,   㣨
		    .PCX  .GIF,  ࠭,   
                       㬮砭,  ਭ樯 "-
                    襣 ᮮ⢥⢨".

SKIP                     ࠭   짮-
                    .

MSG                 ,  㤥 뢥  ப  ᮮ-
                    饭 ࠭.

HLP                  ࠭ ᪠, 易  ⨬ -
                    .

ESC                  ,   ஥   ३ 
                    ⨨ ESC  BACKTAB.

KEY                 ""  ,    
                    IMAGE-.

IMAGE 뢠   뢮 䨪   SCREEN-
 ਡ⮬ GRAPHIC. ࠬ rows  columns ।  ࠧ
뢮  ࠭ 㭪.  PCX  GIF 㭪  ⮬᪨
⠡  室.

IMAGE-  ਡ SKIP    BUTTON.   -
  EQUATE- ,    USE-६,   -
 뫠   ࠬ ணࠬ. 짮⥫  -
: ६    襩 TAB   ENTER, 饫-
   誮,     ਡ⮬  KEY 
 - ACCEPT   . ᫨ ਡ KEY 㪠,  
    㤥  㭪樥  KEYCODE()
 襭 IMAGE-, ᨬ  ,  ⢨⥫쭮
訢襩 . ᫨ IMAGE- ࠭ 짮⥫,   
孥   㣫   騩 ஬  (ASCII 4). 
஬ -  梥 ।   ⥪饣 ⮢ ⨫,
  ᨬ  ⥪⮢ ०  ⮩ 樨.

IMAGE- ন  ᪨ ० EGA, VGA  SVGA;
CGA Color  Hercules graphics  ন. ন
 16-梥 ०. 256-梥 PCX  GIF 㭪 ⮬-
᪨ 뢮  16-梥⭮ ०  16-梥⭮ "". 256-
梥 SVGA ० ন  । 㬥 -
 ।:

   /             襭        ॡ 
                        

   TSENG Chip Set           640 x 350             512K
   Video7/Headland          640 x 400             256K
   Ahead Systems            640 x 400             256K
   Paradise                 640 x 400             256K
   VESA                     640 x 400             256K
   Trident/Everex           640 x 400             256K
   Zymos                    640 x 400             256K
   Genoa                    640 x 400             256K

ਬ:

Screen  SCREEN(20,30),PRE(Scr),GRAPHIC
          ROW(3,5)  IMAGE(14,25),NAME('picture.pcx'),SKIP
                                              ! 㭮
          ROW(3,35) IMAGE(14,25),NAME('picture.gif'),IMM
                                              !IMAGE  BUTTON
          ROW(3,37) STRING('Picture Select Button')
                             !ப 뢠  㭮
        .

. ⠪: BUTTON, SHOWIMAGE



LIST                                          (뢠 ᯨ᮪)

             LIST(rows,cols),FROM()[,COLOR()][,TRN][,HLP()]
               [ESC()][,IMM][,SKIP][,MSG()][,USE()][,HIDE]
               [,FILL()][,COLS()][,FIX()][,HSCROLL ]
                                           VSCROLL 
                                           HVSCROLL


rows                ᫮ ப (⮢) ᯨ᪠, 뢮 
                    ࠭.

cols                ᫮ ⮫殢  뢮  ⮬ ᯨ᪥.

FROM                ⪠ QUEUE    QUEUE    뢮
                      ⨯ GROUP.

COLOR                梥.

TRN                  ᪮ ०  ⢥ 梥   䮭
                    ᯮ 梥 ४뢠 ࠦ

HLP                 䨪  , 易  ⨬
                    .

ESC                  ,   ஥ ३  ⨨
                     ESC  BACKTAB.

IMM                  稠 ,  ⮫쪮 㪠-
                    ⥫   .

SKIP                     .

MSG                 , 뢠  ப ᮮ饭 -
                    .

USE                 EQUATE-⪠ ,    -
                    ࠬ ணࠬ 뫠   ᯨ᮪.

HIDE                -㪠⥫  㤥  ⮫쪮  ⮣,
                       ⨢.

FILL                ᫥ ⠭  EQUATE-⪠ -
                    ,  , ஥ ਭ  -
                    , ࠭  ᯨ᪠.

COLS                  ਭ  ⮫   ᯨ᪥.  ন
                    ப ⠭  ६, 
                    ᫮ ᨬ   ⮫, 楫᫥-
                     ६,     । 
                    ᢥ祭 ⮫,   ᯨ᮪  -
                    襭,    楫᫥  ⠭,  
                    ﭨ  ⮫栬.

FIX                 ᫥ ⠭,  ᫮ -
                     ப   ᯨ᪥,   ,  
                    ᯮ짮 ਡ COLS,   ᯨ-
                    ᮪  ⮫殢.

HSCROLL              ਧ⠫쭮 ப⪨, 
                    ᠬ  ப ᯨ᪠.

VSCROLL               ⨪쭮 ப⪨,  
                    ᠬ ࠢ ⮫ ᯨ᪠.

HVSCROLL               ᯨ᮪   ப⪨  -
                    ਧ⠫  ⨪.

LIST  ᯨ᮪  SCREEN-.  LIST 뢮  ࠭
rows ⮢/   QUEUE,   ன   ਡ⮬
FROM.  QUEUE 뢮     ப,   ,
 ࠬࠬ rows  cols.    । 뢮
 ᯨ᮪  , ⠪    ਤ ଠ஢
 ६  ஥ QUEUE.  ᫨   LIST-   ਡ IMM  
QUEUE    ६,   LIST    짮-
⥫,  ᯮ짮  DISPLAY   ᯨ᪠.

    롨    ᯨ᪠.
FILL-        த   ᯨ.
᮪ 蠥 ⨥ TAB  CUA ࠭ ( TAB  ENTER
 -CUA ࠭)    ࠡ⪨ 室   ᫥饬
  .  饫箪 誨 ⠪ 蠥 ᯨ᮪,  
 ॢ ࠡ ⮬᪨  ᫥饥 .  㭪
CHOICE 頥      QUEUE  (祭 頥
㭪樥 POINTER(queue)) ᮮ⢥騩 , ࠭ 
襭 ᯨ᪠. ன  ࠬ  SELECT   
ᯮ짮  饭      ᯨ᪠.

᮪  ਡ⮬ IMM, ப稢 ਧ⠫쭮  255 ᨬ-
.  ਡ IMM,  ப稢  । ᠬ 
   QUEUE ( 255 ᨬ).

᫨  ਡ COLS,   ᢥ稢   ⮫-
 ( ਡ⮬ COLS)  ࠧ,  ५ /ࠢ -
  室    ⮫    ⮫  । 
ᯨ᪠. ਡ FIX   ᯮ짮   ᮧ 
⮫殢,  ப稢 ⮫쪮 ਧ⠫쭮,  
ᥬ ᯨ᪮,  ப稢  ⨪ ( ஢ 
ᯨ᪥). 짮⥫   ⬥   .

ਬ:

SelectPart PROCEDURE
ListOue    QUEUE,PRE(Lst)               !।  ஢ /
PartNo       STRING(10)                 !  ଠ஢ 
           .                            !  뢮  ࠭
Screen  SCREEN(20,30),PRE(Scr)
          ROW(3,45) ENTRY(@slO),USE(Trn:PartNo),SKIP
          ROW(4,45) LIST(10,10),FROM(Lst:PartNo)|
               ,FILL(?Trn:PartNo),USE(?PartList)
        .

        CODE
        SET(PartsFile)         !ந QUEUE  LIST
        LOOP UNTIL EOF(PartsFile)
          NEXT(PartsFile)
          IF ERRORCODE() THEN STOP(ERROR()).
          Lst:PartNo = Par:PartNo
          ADD(ListOue,Lst:PartNo)
          IF ERRORCODE() THEN STOP(ERROR()).
        .
        OPEN(Screen)            ! ஥ ࠭ ...
        ACCEPT                  !  롮  짮⥫!

. ⠪: QUEUE, SELECT


OPTION                                    (뢠  権)

             OPTION[,COLOR()][,TRN]
               CHECK()
             .
             OPTION[USE()][,COLOR()][,TRN][,HLP()][,ESC()]
               RADIO()
             .
             OPTION([picture])[USE()][,COLOR()][,TRN][,HLP()]
                 [,ESC()][,ALRT()][,IMM][,REQ][,SKIP][,PRE()]
[⪠]        STRING()
             .


picture              ଠ ᯮ  ଠ஢-
                     ᨬ  뢮  ᢮  USE-
                    ६. ࠬ ࠧ襭  STRING
                    OPTION .

USE                 ६  EQUATE-⪠ .  -
                     ࠧ襭   RADIO   STRING  OPTION
                    .

COLOR                梥 ࠭   . 
                    ࠬ ࠧ襭   CHECK, RADIO,
		     STRING OPTION.

TRN                  ᪮ ०  ⢥ 梥   䮭
                    ᯮ 梥  䮭 ४뢠  -
                    ࠦ.  ࠬ ࠧ襭   -
                     CHECK, RADIO,  STRING OPTION.

HLP                 䨪  , 易  ⨬
                    .   ࠬ ࠧ襭   
                    RADIO  STRING OPTION.

ESC                 ,  ஥ ३  ⨨ ESC 
                    BACKTAB.  ࠬ ࠧ襭  
                    RADIO  STRING OPTION.

ALRT                 ⨢  ALERT-    
                    .    ࠬ  ࠧ襭  
                    STRING OPTION.

IMM                   ⠥ 襭,   ⮫쪮 
                    .  ࠬ ࠧ襭  -
                     STRING OPTION.

REO                     ⠢    -
                    .   ࠬ ࠧ襭   
                    STRING OPTION.

SKIP                     ᯮ짮   
                    .  ࠬ ࠧ襭   
                    STRING OPTION.

PRE                  䨪 .  ࠬ ࠧ-
                    襭   STRING OPTION.

 OPTION ନ  ࠭  .  
OPTION ࠧ襭  ⨯ : CHECK (祪), RADIO 
STRING (ப).  ࠧ ⨯   ᯮ짮  -
  ⮩   OPTION. ⨥ 祩 , 
ᠭ  ।饬  PROMPT,   
 楫  OPTION.

OPTION, ᮤঠ騩  CHECK, 㯯 ᪮쪮 祪-
ᮢ . 㯯      騩 梥 (ਡ  COLOR
 OPTION).  ५ /  ६ -㪠-
⥫   祪  㣮   室 -   ᠬ
  ᠬ 孨.   祪    ४祭
㠫쭮 (஡)    ⠫ 祪  -
 OPTION.  祪   ᮡ⢥  -
,  ᠭ   ப ࠬ஢.  USE--
  ࠧ襭  OPTION-,  㭪 CHOICE   
 ⨯ OPTION-.

OPTION, ᮤঠ騩 RADIO   ⮫쪮   
ᯨ᪠, ਢ    OPTION.    ࠭,
 㣠 ࠭  ࠭  ⪫砥  (᭥). USE-
६ 砥 祭 ப  ࠭t RADIO, 
㭪 CHOICE 頥 ⭮⥫     -
 OPTION.

OPTION, ᮤঠ騩  STRING, ࠡ⠥     -
 SCREEN.  ப   ᢥ祭 ஬   -
࠭ ⨥ ENTER  筮 ࠭,  ⨥ TAB  CUA-
࠭. USE-६   祭 ப,   㭪
CHOICE 頥 ⭮⥫  ࠭ ப  
 OPTION.   ᯮ짮 易⥫ 蠡  ଠ.
 뢮 祭 ⥪饩 ப  孨  㣮 -
 OPTION,     ६饭 .


ਬ:

 ROW(5,6)  OPTION                 !砫  CHECK OPTION
 ROW(6,9)    CHECK('Deduct &Medical')!'Alt-M'  
 ROW(7,9)    CHECK('Deduct &Dental') !'Alt-D'  ⮬⮫
 ROW(8,9)    CHECK('Deduct &AD&&D')  !'Alt-A'  ⥫ RPG
           .                         !  OPTION
 ROW(10,6) OPTION,USE(TaxSelection) !砫  RADIO OPTION
 ROW(11.9)  RADIO('Pre-Tax'),MSG(' 뫮  ᡮ ')
 ROW(12,9)  RADIO('Post-Tax'),MSG(' ⠫ ᫥ ᡮ ')
           .

 ROW(15,6) OPTION                   !Begin item option structure
 ROW(16,9)   STRING('Process &Medical')
                                    !'Alt-M' for medical procedure
 ROW(17,9)   STRING('Process &Dental')
                                    !'Alt-D' for dental procedure
 ROW(18,9)   STRING('Process &AD&&D')!'Alt-A' for AD&D procedure
           .                         !End option structure

. ⠪: CHECK, RADIO, STRING, PROMPT


PAINT                                    (᪠  ࠭)

             PAINT(ப,⮫殢),COLOR()[,TRN]


columns             쪮 ⮫殢 訢.  ᫥
		    ⠭.

rows                쪮  ப  訢.   ᫥
                    ⠭.

COLOR                ᪨.

TRN                 ஧筠 ᪠.

 ⨨ SCREEN-,   ਡ ।
 ਡ⮬ COLOR. PAINT   ਡ⮢  -
 אַ㣮쭮  ࠭.

ਬ:

  ROW(4,25)  PAINT(13,32),COLOR(23)
                      !  13 ப  32 ⮫
  ROW(6,58)  PAINT(6,22),TRN
                      ! ஧筮 6 ப  22 ⮫


PAUSE                         (    )

           PAUSE(ப)[,USE()][,COLOR()][,TRN][,HLP()][,ESC()]
             [,ALRT()][,MSG()]


string              ப ⠭  ६, ᮤঠ-
                     ᮮ饭, 뢮  ६ .

USE                 EQUATE-⪠  ,    ࠬ
                    ணࠬ 뫠  .

COLOR                 .

TRN                  ᪮ ०,   ࠦ  
                    ᯮ짮  ⮫쪮  梥  । ,
                    ⠢ 䮭 " ".

HLP                 䨪  , 易  -
                     .

ESC                 ,  ஥ ३  ⨨ ESC 
                    BACKTAB.

ALRT                 ALERT-,  ⨢   
                    .

MSG                 , 뢮  ப ᮮ饭 ࠭.

 PAUSE- ࠭,  ࠭ 뢮 ப string.  -
  ஬ ESC   BACKTAB 蠥 PAUSE-.  -
襭 PAUSE- 㡨ࠥ ப string  ࠭.

PAUSE  । 祭  USE-६.   ,  
    (᪠    ᫮  - USE=)
EQUATE-,        ।   㭪樥
FIELD  ᢮ 楫. PAUSE- 筮 ᯮ   -CUA
࠭,    뢮  ᮮ饭  ⨯ "쥬/ 쥬", ॡ
⢥ত  .

ਬ:
             :
  PAUSE('F10 - ,  㣠  - த')|
        ,USE(?Complete)
             :
  CODE
  CASE FIELD()
  OF ?Complete
   IF KEYCODE() = F10Key THEN RETURN.
  .

. ⠪: FIELD



POINT                               (㪠⥫  REPEAT)

             POINT(ப,⮫殢)[,USE()][,COLOR()][,TRN]
               [,ALRT()][,HLP()][,ESC()][,REQ()][,MSG()][,IMM]


ப                㪠⥫  ப.

⮫殢            ਭ 㪠⥫  ᨬ.

USE                 EQUATE-⪠ ,  뫠  
                    .

COLOR                  .

TRN                  ᪮ ०,   ࠦ  
                    ᯮ짮  ⮫쪮  梥  । ,
                    ⠢ 䮭 " ".

HLP                 䨪  , 易  -
                     .

ESC                 ,  ஥ ३  ⨨ ESC 
                    BACKTAB.

ALRT                 ALERT-,  ⨢   
                    .

MSG                 , 뢮  ப ᮮ饭 ࠭.

REQ                 뢠,     ࠭.

IMM                  ⠥ 襭,   ⮫쪮  
                    ᢥ祭 ஬.

POINT- ᮧ  ᢥ⪨ ()  -
    REPEAT-.  㣮 ஭,  
⠭ 祭 REPEAT INDEX. POINT-㪠⥫ ନ
 梥⮢  뢠  .   -
 ࠬࠬ   . ய饭 ࠬ -
⠥ ࠢ . 孨  㣮 㪠⥫ 室  
樨,    ࠬࠬ ROW   COL,    
। ,  ࠬࠬ DOWN  ACROSS (  -
४) REPEAT-,   ࠬ஬  EVERY. ५,  
Home  End   ६  । 
REPEAT. POINT  ᢥ稢  ⮩ .

騥   POINT-,  ⠭ ६-
 REPEAT INDEX  ⭮⥫   REPEAT.   -
짮  । ࠢ ணࠬ  REPEAT:

Tab (CUA)        Enter (non-CUA)        Ins        Del
Backspace        Pgup                   PgDn       CtrlPgUp
CtrlpgDn         Up ( ᠬ )    Down ( ᠬ )
 䠢⭮-஢ ᨬ.

POINT- 蠥, ᫨   ( BACKTAB  CUA-
०)      ᠬ  ࢮ  樨 REPEAT-, 
    ᠬ ᫥ 樨.   , -
 ⨯ POINT  ਡ⮬ REQ 㤥 "ᢥ뢠"   ᫥/
 樨 ᮮ⢥⢥,  襭.

 䠢⭮-஢ ᨬ  ⠪  POINT-.  
 ணࠬ ᮧ "" . "୮"
 ᪨ ९樮    , ᮤ-
  짮⥫ ᨬ.   ""  -
 ⢫ "  㢥祭"  宦 ࢮ -
, ᮤঠ饩 , 稭騥   ᨬ.

ਬ:

                REPEAT(12),INDEX(Ndx)
         ROW(3,5)  POINT(1,16),USE(?Point)
Month    COL(5)    STRING(3)
                .                        !  REPEAT

. ⠪: REPEAT



PROMPT                    (ப ᪠  ᫥饣 )

             PROMPT(text)[,COLOR()][,TRN]


text                ப ⠭  ६  ᮤঠ-
                     ⥪ ᪠.

COLOR                梥 ࠭  PROMPT

TRN                 뢠,   ᪮ ०  -
                     ⮫쪮 梥⮬ । , -
                     䮭  .

PROMPT  ⥪, 뢮  裡  ᫥騬   
⨯ ENTRY, TEXT, LIST  OPTION. ⮢ ப PROMPT- -
 ᮤঠ ᠭ (&),  砥,  ᫥騩  
ᠭ ᨬ - ""   맮 易 -
. ६ ⨥ Alt  "祩 "  -
ࠥ 易  ⨯ ENTRY, TEXT, LIST  OPTION.

ਬ:

    ROW(6,14) PROMPT('  : ')
    ROW(6,30) ENTRY(@S20),USE(Name)


RADIO                                        ( ࠤ-)

             RADIO(text)[,COLOR()][,TRN][,MSG()]


text                ப ⠭  ६  ᮤঠ-
                     뢮  ࠭ ப.

COLOR                梥 ࠭  ⮣ .

TRN                 뢠,   ᪮ ० 
                    뢮 ⮫쪮 梥⮬ । ,
                    ⠢ 䮭  .

MSG                 , 뢮  ப ᮮ饭 ࠭.

RADIO- -      OPTION. ᫨  
   १ LOADSYMBOLS   USESYMBOLS,  text 뢮  
᪮. ᫨  ࠭,    ।⠢ ᮡ  ᨬ
㡥 (ASCII 4 = ). 쪮     OPTION  -
  ࠭    ६.

ਬ:
 ROW(10,6) OPTION,USE(TaxSelection)!砫  ࠤ
 ROW(11,9)   RADIO('Pre-Tax'),MSG('뫮  ᡮ ')
 ROW(12,9)   RADIO('Post-Tax'),MSG('⠫ ᫥ ᡮ ')
           .                       ! 

. ⠪: LOADSYMBOLS, USESYMBOLS


REPEAT                                    (-७)

         REPEAT(down,across)[,EVERY()][,INDEX()][,PRE()][,MAX()]
           [POINT()]
           fields to repeat
         .


down                ᫥ ⠭,  ᫮ -
                    ७ ᢥ . ᫨ ய饭,  -
                    㬥 1.

across              ᫥ ⠭,  ᫮ -
                    ७ ᫥ ࠢ. ᫨ ய饭,  -
                    ࠧ㬥 1.

EVERY               ᫮ ப  ⮫殢  騬
                    ﬨ.  㬮砭 - EVERY(1,1).

INDEX               ᭠ ६  REPEAT-.

PRE                 䨪  ⮪  ⠢  REPEAT--
                    .

MAX                 ६,   ⢮ ப   
                    REPEAT-  ६ ᯮ.

POINT               -㪠⥫,  ᢥ稢騩  ⤥
                     REPEAT-.

REPEAT-  ᬠਢ   "ᨢ   ࠭".
 ७  ᮮ⢥   -
. 饥 ᫮ ⮢  -  ந ࠬ஢  down 
across.    ᥣ    REPEAT- ᯮ  ⨯
STRING,  뢮 ப稢 ⠡.

஬ ⮣,  REPEAT-    ENTRY-. USE
६  ENTRY-,  饭   REPEAT-, 
 ਡ  DIM,   ࠧ஬ 訬   ࠢ ந
ࠬ஢ down  across.  USE-६   REPEAT--
  ᢮  ਡ DIM,        㯯,
饩 ਡ DIM.

 騬    ⮬ 浪,   ஬
   SCREEN- (⠪ ,   騬
).   祭,   -७  -
, ᪮   㤥    .   砥,
 EQUATE-⪠ REPEAT- 뫠 楫   
,    ⤥  .  ⥪饣 -
७    ६ INDEX.

騥  뢮  , ।塞  ࠬ
ࠬ row  column, ਡ⮬ EVERY  祭 ᭮ ६
 (REPEAT  INDEX).   ⨨ ࠭,  뢮  
-७ 樠஢ .   --
७  REPEAT-, 뢮  樨,  न
⠬ ᠬ  REPEAT. ਡ EVERY  樨  -
᫥ ७,   ᫮ ப  ⮫殢, ࠧ-
 ⤥ .

 -७ 砥 , 祭 ᭮  -
 ।,   ᨢ USE-६ 砥
  祭.    ACCEPT ⮬᪨ 㢥稢
 ६,     ।   
REPEAT-, ᫨ INDEX ॢ ᨬ쭮 祭,  
  롨ࠥ ᫥饥   ࠭. ⨥  
Esc ( -SAA/CUA ࠭)   BACKTAB ( SAA/CUA  ࠭),
㬥蠥 INDEX,  ⠢   ।騩 --
. ᫨  ࠭  ,  ESC, BACKTAB,   
  롨ࠥ   ᫥饥   ࠭.

ਬ:

 REPEAT-     ᨢ
 :

LoadMonthArray PROCEDURE

Ndx    BYTE                                !᭠ ६
Amt    DECIMAL(7,2),DIM(12)                !ᨢ 
					   !
Month  STRING('JanFebMarAprMayJunJulAugSepOctNovDec')
Mnth   STRING(3),DIM(12),OVER(Month)       ! ᨢ 
					   ! ᨢ Month

Screen    SCREEN(16,22),AT(5,30),PRE(Scr),COLOR(7)
             ROW(2,5)    STRING(' ')
             ROW(16,7)   STRING('F10 - 室')
                     REPEAT(12),INDEX(Ndx)
             ROW(3,5)    POINT(1,16),USE(?Point),ESC(?-l),REQ
Month        COL(5)      STRING(3)
             COL(12)     ENTRY(@N_7.2),USE(Amt),INS
                    ..         !  REPEAT  SCREEN

     CODE
     OPEN(Screen)
     LOOP Ndx = 1 TO 12                    !塞 
       Scr:Month = Mnth[Ndx]               !    ࠭
     .
     LOOP
       ALERT(2058)                         !  F10
       ACCEPT
       IF KEYCODE() = 2058                 !᫨  F10
         RETURN                            !   室
     . .

. ⠪:  POINT


STRING                            (࠭ ६ - ப)

                       
[⪠]      STRING (祭.)[,COLOR][,TRN][,MSG()]
                     ଠ 


⪠               , ஥    .

               ᫮ ⠭,     ப.
                     ⮬ 砥, ப 砫쭮 .

祭            ப ⠭  ६  ᮤঠ-
                     砫쭮  祭 ப.   ப
                    ⠭ ࠢ  .

ଠ              ᯮ    ଠ஢   
                    ப. ,  ⠪ 砥, 㤥  ⠪,
                    ⮡    ଠ஢   ப.
                      ⮬ 砥 - .

COLOR                梥 ࠭  ⮣ .

TRN                 뢠,     ᪮  ०  
                    뢮  ⮫쪮  梥⮬  ।  ,
                    ⠢ 䮭  .  ࠧ,  
                     ப  ᪨ 㭮.

MSG                 , 뢮  ப ᮮ饭 ࠭,
                      㭪樥 SETMSG.

STRING 뢮  ࠭   ⭮⥫쭮 樨 (ROW,COL)  
孥  㣫 ࠭.  STRING  ⢥ ⨯  -
,     SCREEN-.

 ࠭ ப  ⪮,        -
 ६,     ᮤঠ騩   ࠭.  
  ॡ, ⠪, 筮   ᯥ樠쭮 -
⪨  믮  ⥬᪨ 権. ,  
㢥祭 祭 ,   ८ࠧ  ᫮,  㢥-
, ८ࠧ ᫮ ⭮   ப    
稢  ப    .  ࠧ 䥪⨢ 㤥
ᯮ짮 ᫮ ६  ᫥,  㦥  -
 ᢠ ࠭ ப.

ਬ:

Screen  SCREEN(3,30),PRE(Scr),CENTER
          ROW(1,1) STRING('<201,205{22},187>')  ! 㥬
          ROW(2,1) STRING('<186,32{22},186>')   ! ࠬ
          ROW(3,1) STRING('<200,2O5{22},188>')  !
Msg       ROW(2,5) STRING(20)                   !  ᮮ-
						!饭
        .


TEXT                                  (   ⥪)

             TEXT(ப,⮫殢),USE()[,COLOR()][,TRN][,HLP()]
               [ESC()][,LFT][,REQ][,INS][,CAP][,ALRT()]
                                    OVR   UPR
               [,MSG()][,SKIP]


ப               ᫥  ⠭,      ᫮
                    ப  TEXT-.

⮫             ᫥  ⠭,      ᫮
                    ⮫殢  TEXT-.

USE                  ६,  ਭ -
                      TEXT- 祭.

COLOR                梥 ࠭  ⮣ .

TRN                 뢠,      ᪮ ०  
                    뢮  ⮫쪮  梥⮬  ।  ,
                    ⠢ 䮭  .

HLP                  䨪  , 易
                     ⨬ .

ESC                 ,  ஥ ३  ⨨  
                    ESC  BACKTAB.

LFT                 蠥 ७ ᫮   .

REQ                       㫥.

INS/OVR               - /.

UPR/CAP                ० ந室  -   
                      ࢠ 㪢  .

ALRT                ALERT-, ⨢   .

MSG                 , 뢮  ப ᮮ饭 ࠭.

SKIP                      .

TEXT-,   來 ப     ७ᮬ ᫮, 
⨪쭮 ப⪮,   SCREEN-.    ENTRY-,
TEXT-  ⫨    ᢮ USE-६. -
 TEXT-,  ந ࠬ஢   . ᫨
USE-६ , 祬 TEXT-,      ᥣ-
,    ᨬ.  ᥣ  ப稢
⨪쭮  TEXT- ⠪,   ᥣ⮢  USE-६
६   TEXT-     ६.  ᫨ 
USE-६ , 祬 TEXT-,      
ᨬ, 祬  USE-६.

 TEXT- ࠭,  頥   ⮫ -
 ப.  ENTER ॢ    ⮫ ᫥-
饩 ப.   ࠧ, ENTER    
   HOME.  ENTER  ᫥ ப  TEXT-,
 맢 ப      ப,    ,
    㯭  ப⪨  ᥣ USE-६.
⨥ ENTER        ᫥ ᥣ, 맢
襭    USE-६.

ਡ ALRT   ALERT  ᯮ짮   -
  ,    蠥  ,   
 ப. ALERT-    USE-६,  ⮬
 ᯮ짮  UPDATE.

५   ,  PgUp, PgDn, Ctrl-PgUp   Ctrl-PgDn
 ப稢 USE-६  TEXT-. ५ 
  ப稢  ࠧ   ᥣ     -
   ᫥ ப  TEXT-. PgUp   PgDn  ப稢
ࠧ  ᥣ⮢. Ctrl-PgUp  Ctrl-PgDn 室  ࢮ
 ᫥ ᥣ USE-६. ⨥   ࢮ
ᥣ, ਢ   롮  ।饣 ,  ⨥  
᫥ ᥣ, 뢠  USE-६   롮
᫥饣 .

७ ᫮  ࠧ蠥 ਡ⮬  LFT. ७  ᫮ 
墮  ᥣ ஡ ⠪, ⮡ ᫮  楫
 ᫥騩 ᥣ, ᫨    ࠧ   ᥣ-
.  ࠧ, USE-६ TEXT- ⠭  "-
⥫묨   ਭ." ᫨  ⢨⥫쭠   ਭ ६
ᯮ짮  TEXT-  ६ ਭ,   ᫮ -
 㦭 ஡,  ᫮  ࠧ ப.

ਬ:

       ROW(18,15) TEXT(4,60),USE(Act:Comments),HLP('Comments')
       ROW(20,10) TEXT(3,50),USE(Rec:Notes),LFT,ESC(?Rec:Phone)
       ROW(10,15) TEXT(10,60)USE(Emp:History),LFT

			 


ALRT                     (⠭ () 襭 )

             ALRT(--[,᫥--])


--  ᫮     EQUATE-⪠  
                    .        砫 
                     .

᫥---  ᫥    EQUATE-⪠  -
                  .


ਡ ALRT   襭   ⤥쭮  
 ࠭.   ᯮ  ﬨ  ⨯ ENTRY, TEXT,  OPTION,
PAUSE   POINT. ᫨   蠥  ALRT-襩,   
USE-६   ⮬᪨.

ਡ ALRT ࠧ襭    SCREEN. ,  -
 ⠪ ࠧ, ⨢     ࠭.

ਬ:
Screen SCREEN(6,40).PRE(Scr),ALRT(F10Key)
			       !F10    
         ROW(2,5)  ENTRY(@S20),USE(Name),ALRT(F5Key)
                               !F5  ⮫쪮  ⮣
			       !
         ROW(4,5)  TEXT(2,30),USE(Memo),ALRT(F7Key,F9Key)
                               !F7 - F9  ⮫쪮 
			       !⮣ 
       .
    CODE
    OPEN(Screen)               !뢠 ࠭  ࠡ⪨
    LOOP                       !  ࠡ뢠  
      ACCEPT                   ! 襭 
      IF KEYCODE() = F10Key    !஢塞 ALERT- ࠭
        RETURN
      .
      CASE FIELD()
      OF ?Name                 ! ENTRY-
        IF KEYCODE() = F5Key   !஢塞  ALERT-
          UPDATE               !  塞 USE-६
          DO SomeRoutine       !   - 
        .
      OF ?Comments             ! TEXT-
        CASE KEYCODE()         !஢塞  ALERT-
        OF F7Key               ! ࠡ뢠  -᢮
          UPDATE
          DO SevenRoutine
        OF F8Key
          UPDATE
          DO EightRoutine
        OF F9Key
          UPDATE
          DO NineRoutine
    . . .                      ! case, case  loop


CAP                        ( 㪢 ᫮  묨)

             CAP


ਡ CAP   ⮬ ⠫    ⨯
ENTRY  TEXT.  ,   ॣ ᫮  - 
ᨬ, ᫥騩  ஡,   ᨬ ࢮ ᫮ -
 ॢ  孨 ॣ,  ⠫ ᨬ -  .

ਬ:

Screen      SCREEN(6,40),PRE(Scr)
              ROW(2,5) ENTRY(@S20).USE(Name),CAP
              ROW(4,5) TEXT(2,30),USE(Comments),CAP
            .

. ⠪: ENTRY, TEXT


COLOR                                      ( 梥 )

        COLOR(normal[,selected][,dim][,hot-normal][,hot-select])


normal                筮 뢮.

selected             ,   ࠭.

dim                  ,     饭  ஬
                    DISABLE.

hot-normal           "祩"   筮 뢮.

hot-select           "祩" ,   ⨢.

ਡ COLOR ஥ 梥, ᯮ㥬  SCREEN--
,      SCREEN-    PULLDOWN-.
 ⨯   ᯮ짮     ࠬ,
易  ਡ⮬ COLOR.  ᠭ ࠬ   
⨯ . (SPA. - ⭮ ४㥬,   易⥫)

              normal selected dim hot-normal hot-select
               
BUTTON                  x       x      x      x          x
CHECK                   x       x      x      x          x
ENTRY                   x       x      x
LIST                    x       x      x
OPTION                  x       x      x
OPTION STRING           x       x      x      x          x
PAINT                   x
PAUSE                   x
POINT                   x
PROMPT                  x       x      x      x          x
RADIO                   x       x      x      x          x
SCREEN                  x
STRING                  x
TEXT                    x       x      x
PULLDOWN                x       x      x      x          x
MENU                    x       x      x      x          x

ࠬ ਡ COLOR,  ᫠,   0..255, 
  ⮢ ७ ᨢ  ⮢  -
.  256- ᨢ,  ࠭ ࠭   
  ⮢ ⨫.   樠஢ -
祭, ࠢ   (  0 := 0,  1  :=1 ),
    ,          ࠬ SETSTYLES 
GETSTYLES. 騩 梥 뢮   ⮢ ⨫,  ࠭-
騩   ᨢ.

ਬ:

Screen  SCREEN,COLOR(1)                     ! 梥 ࠭
          ROW(4,2)  PROMPT('&State:'),COLOR(5,6,7,8,9)
          ROW(4,10) ENTRY(@S2),USE(State),COLOR(5,6,7)
        .

. ⠪: SETSTYLES, GETSTYLES, STYLES,  ⮢ ⨫



COLS                           ( ⮫  LIST-)

             COLS(string,variable[,spaces])


string              ப ⠭  ६, ᮤঠ-
                     ASCII-祭, 騥 ᫮  ᨬ
                     ᢥ⪨   ⮫.  ᨬ
                    ⮩ ப   ਭ  ⮫  
                    LIST. 饥 ᫮ ᨬ  ப  
                     ᫠ ⮫殢  LIST-.

variable             楫᫥ ६,   -
                    砥   ⥪饣 ᢥ祭  ⮫,
                     LIST 蠥 ஬ ACCEPT.

spaces              ᫥ ⠭,  ᫮ -
                      ⮫栬  ࠭.

ਡ COLS  뢮 ⮢ ।  ⡮  
஭ ⠡.  ᢥ稢 ⮫쪮  ⮫  
ࠧ. ப, 뢠 ᫮ ᨬ   ⮫,  
 ᢥ稢  . ࠬ  SPACES   ⢮
஡, ⮬᪨ ⠢塞  뢮묨 ⮫栬.

 ACCEPT 蠥 LIST, VARIABLE 砥  ᢥ-
祭 ⮫.  ᫨ VARIABLE  㦥 ᮤন  - 祭
 ⨢樨 ⡮,      ⨢ ⮫,
 ண ࠭  VARIABLE.

᫨   ਡ⮬ COLS,  ⡮ ਬ   
 FIX,       ⮫殢  
⡮.       ப稢,     
 ࠭.

ਬ:

ListOue  QUEUE,PRE(Lst)              !। ஢ ⠫
PartNoA    STRING(10)                !  ଠ஢ 
PartNoB    STRING(10)                !  뢮   
         .

Screen   SCREEN(20,30),PRE(Scr)
           ROW(3,45) ENTRY(@s10),USE(Trn:PartNo),SKIP
           ROW(4,45) LIST(10,20),FROM(Lst:PartNo), |
                 USE(?PartList),COLS('<10,10>',Column#,1)
         .

         CODE                  !ந ।  ⡮
  SET(PartsFile)
  LOOP
    NEXT(PartsFile)
    Lst:PartNoA = Par:PartNo
    IF EOF(PartsFile) THEN BREAK.
    NEXT(PartsFile)
    Lst:PartNoB = Par:PartNo
    IF EOF(PartsFile) THEN BREAK.
    ADD(ListQue)
      IF ERRORCODE() THEN STOP(ERROR()).
    CLEAR(ListQue)
  .
  ADD(ListQue)
    IF ERRORCODE() THEN STOP(ERROR()).
  OPEN(Screen)                       !⥬ ஥ ࠭
  ACCEPT                             !    ᤥ 롮
  GET(ListQue,CHOICE())              !砥 ࠭ 
  EXECUTE Column#
    Trn:PartNo = Lst:PartNoA         !࠭  ࢮ ⮫?
    Trn:PartNo = Lst:PartNOB         !    ண?
  .

. ⠪: LIST, FIX


ESC                               (㤠 ३  ⨨ ESC)

             ESC(field)


field                ᫮, EQUATE-⪠    -
                    , 饥 롨ࠥ .

ਡ ESC    ⨯ ENTRY,  TEXT, OPTION, PAUSE   POINT
⠭ , ஥    ⨨ Esc (-CUA
࠭)  BACKTAB (CUA ࠭). 筮,⨥ ESC  BACKTAB
ਢ  롮 ।饣    ⮩ ᫥⥫쭮,  
ன  롨ࠫ. ਡ ESC ४뢠 ଠ  -
᫥⥫쭮.

ਬ:

Screen  SCREEN,COLOR(1)
          ROW(3,10) ENTRY(@S15),USE(Name)       ! 1
          ROW(4,10) ENTRY(@S20),USE(Address)
          ROW(5,10) ENTRY(@S12),USE(City)
          ROW(5,24) ENTRY(@S2),USE(State).ESC(?Name)
                                             ! ESC -   1
       ROW(5,28) ENTRY(@NO5),USE(Zip),ESC(1) ! ESC -   1
          ROW(6,10) ENTRY(@P(###)###-####P),USE(Phone),ESC(?-5)
        .                                    ! ESC -   1

. ⠪: ENTRY, TEXT, MENU, PAUSE, POINT


EVERY                         (⠭ ஬⮪  REPEAT)

             EVERY(ப,⮫殢)


ப               ᫥ ⠭,   㪠뢠,
                     ᪮쪮 ப   뢮  ᫥-
                    騥   REPEAT-.

⮫殢            ᫥ ⠭,   㪠뢠,
                     ᪮쪮 ⮫殢 ࠢ  뢮
                    ᫥騥   REPEAT-.

EVERY  ᫠   , ࠧ ⤥  -
  REPEAT-.  ਬ, EVERY(2,20) ࠧ頥  -
-७   ன ஥, १ 20 ⮫殢.  ᫨
ࠬ  ய饭,  ࠧ㬥  .  ᫨   ᠭ
 REPEAT  ய饭 ਡ EVERY,   ࠧ㬥-
 EVERY(1,1).

ਬ:

Screen SCREEN,PRE(Scr)
         REPEAT(12,3),EVERY(1,20),INDEX(Ndx)!12x3,20 cols apart
           ROW(2,5) ENTRY(@N-7.2),USE(Amt)!36 elements on screen
       .



FILL              (६,  祭  ⡮)

             FILL(field)


field               EQUATE-⪠ ,  ࠭
                    , ஥ 㤥 ਭ 祭.

ਡ FILL   ࠭,  ஥ 㤥 । -
, ஥ ࠭  ⡮.

ਬ:

PartOue  QUEUE,PRE(Que)
RecPtr     LONG
PartNo     STRING(10)
         .
Screen SCREEN.PRE(Scr)
         ROW(2,5) ENTRY(@N_7.2),USE(Fil:PartNo),SKIP
         ROW(3,5) LIST(10,10),FROM(Que:PartNo),FILL(?Fil:PartNo)
       .                 !Fil:PartNo 砥 ࠭ 祭

. ⠪: LIST


FROM                          (।  ᬮ १ LIST)

             FROM(field)


field               ⪠ । (QUEUE)   ।.  -
                      ⨯ GROUP.

ਡ LIST- FROM,   , ஥   뢥
 ⡮.

ਬ:

PartOue  QUEUE,PRE(Que)
RecPtr     LONG
PartNo     STRING(10)         !  뢮  ࠭
         .
Screen SCREEN,PRE(Scr)
         ROW(2,5) ENTRY(@N_7.2),USE(Fil:PartNo),SKIP
         ROW(3,5) LIST(10,10),FROM(Oue:PartNo),FILL(?Fil:PartNo)
                              !뢠 ᯨ᮪  Que:PartNo
       .

. ⠪: LIST


FIX                                        ( ⡮)

             FIX(number)


number              ᫥ ⠭,   -
                     ஢ ப.

ਡ LIST- FIX,  ᫮ ⮢ ।,  -
 ᮤঠ "" ଠ.   뢮  
孥  ⡮.     ப⪥,    
 ࠭.     ᯮ   뢮 
 ,      ⮫,  -
 LIST ᠭ  ਡ⮬ COLS.

ਬ:
ListOue QUEUE,PRE(Lst)         !। ஢ ⥩
PartNoA   STRING(10)           !  ଠ஢  뢮
PartNoB   STRING(10)           !   ࠭   
        .
Screen  SCREEN(20,30),PRE(Scr)
          ROW(3,45) ENTRY(@s10),USE(Trn:PartNo).SKIP
          ROW(4,45) LIST(10,20),FROM(Lst:PartNo), 
              USE(?PartList),COLS('<10,10>',Column#,1),FIX(2)
        .
        CODE
  Lst:PartNoA = 'Part A'       !  ⮫殢
  Lst:PartNoB = 'Part B'
  ADD(ListQue)                 !   塞   ।
    IF ERRORCODE() THEN STOP(ERROR()).
  ListOue = ALL('-')           ! ࠧ⥫ ⮫殢
  ADD(ListOue)                 !   塞   ।
    IF ERRORCODE() THEN STOP(ERROR()).
  SET(PartsFile)               !ந ।  ⡮
  LOOP
    NEXT(PartsFile)
    Lst:PartNoA = Par:PartNo
    IF EOF(PartsFile) THEN BREAK.
    NEXT(PartsFile)
    Lst:PartNoB = Par:PartNo
    IF EOF(PartsFile) THEN BREAK.
    ADD(ListOue)
      IF ERRORCODE() THEN STOP(ERROR()).
    CLEAR(ListQue)
  .
  ADD(ListQue)
    IF ERRORCODE() THEN STOP(ERROR()).
  OPEN(Screen)                 !뢠 ࠭
  ACCEPT                       !   塞 롮 짮⥫
  GET(ListOue,CHOICE())        !६ ࠭  ।
  EXECUTE Column#
    Trn:PartNo = Lst:PartNoA   !࠭  ࢮ ⮫?
    Trn:PartNo = Lst:PartNoB   !࠭  ண ⮫?
  .
. ⠪: LIST, COLS


HIDE                                    ( ᮤন )

             HIDE


ENTRY-  ਡ⮬ HIDE   뢠    ࠭. 
  ᨬ   ,   (⮫쪮  ࠭)  
窠. 筮  ᯮ     ஫

ਡ HIDE  ᯮ짮  ⡮ᠬ.  ⮬ 砥, 
  ᢥ⪨ ()  ⡮  ⨢.


HLP                 (䨪     )

             HLP(window)


window              ப  ⠭   ६ (  20
                    ᨬ),   䨪 
                    ᪠  HELP-䠩 ணࠬ.

ਡ HLP     ⨯ ENTRY,  TEXT, CHECK,  LIST, BUTTON,
OPTION, PAUSE   POINT    ᪠  ⮣  .
ਡ HLP  ᠭ SCREEN,      ࠭,
   ਡ  .

⨢ (࠭)  ᪠ 뢠   F1  
६   ࠬ ASK  ACCEPT,  믮-
  HELP   ࠬ஢. HELP-䠩    
। 맮 .

. ⠪:  ENTRY,  TEXT,  CHECK,  LIST,  BUTTON,  OPTION, PAUSE,
POINT, SCREEN, HELP


HSCROLL, VSCROLL, HVSCROLL          ( ப⪨  LIST)

             HSCROLL
             VSCROLL
             HVSCROLL


ࠬ HSCROLL, VSCROLL  HVSCROLL   ⡮ -
 ப⪨. HSCROLL - ਧ⠫  ⡮, VSCROLL -
⨪ ࠢ,  HVSCROLL - .  ப⪨ -
  ப   ⮫  LIST(ப,⮫殢).

⨪    ப⪨    ப稢 ᯨ᮪
   ,  ਧ⠫ - ࠬ஢   
/ࠢ.


IMM                                      ( ᯮ)

             IMM


 ENTRY  TEXT  ਡ⮬ IMM  襭묨,  
⮫쪮    묨,   ENTER   TAB.
 OPTION  ਡ⮬ IMM, 蠥,  ⮫쪮  
 ⮩ ᨬ, ᮤঠ騩   ,  -
 "" ,  ᠭ  ப.  ⨯
LIST  POINT  ਡ⮬ IMM,  襭묨   -
 ६饭   ᯨ  REPEAT-.  ⮬
ணࠬ 砥  ࠢ    ⨨   
 .

IMAGE-  ਡ⮬ IMM, 뢮 ,  
ப ࠫ, 騬    ᠭ SCREEN-,
४뢠  㭪. BUTTON  ਡ⮬ IMM, 蠥
 ⨨    .  ࠧ,   뢭
믮 易       ,    
 㤥 饭.

. ⠪: ENTRY, TEXT, OPTION, LIST, POINT, BUTTON, IMAGE


INDEX                          (᭠ ६  REPEAT)

             INDEX(varible)


variable            ⪠ ᫥ ६.

ਡ INDEX 뢠 ६,     ᨢ,
 ⨢     REPEAT-. -
 1 ⨢  ,  祭 ࠢ  ந-
 ࠬ஢  REPEAT (down  across) ⨢ -
᫥ .

᫨ ᭠ ६ 室  ⨬   ।,
  뢠  . REPEAT INDEX 室   ப
  ⮫栬 - ᭠砫 ᢥ ,  ⮬ ᫥ ࠢ.

. ⠪: REPEAT


INS                                    ( -  ० ⠢)

             INS


ਡ INS   ᯮ짮  ﬨ  ⨯ ENTRY   TEXT 
祭    ०  ⠢. ,    ०
⠢, ᤢ  ।   ᨬ ࠢ.   -
⮫ 㣨     筮 窨.   몫祭
० ⠢  ᯮ짮 襩 INS.

. ⠪: ENTRY, TEXT


LFT                                         (ࠢ )

             LFT


 ਡ ᯮ  ENTRY-ﬨ  ࠢ  -
    .     USE-६,  ப
㤠 騥 ஡.

짮 ⮣  ਡ   TEXT-ﬨ,   ७
ப  ।஢.

. ⠪: ENTRY, TEXT


MAX                       (६-稪 ⮫殢  REPEAT)

             MAX(varible)


variable            ⪠ ᫥ ६.

ਡ MAX 뢠 ६,  ,  ६  -
 ணࠬ, ᫮  ⮫殢 ࠭,   REPEAT--
ன. MAX, ᮢ⭮   ਡ⮬ EXPAND,   ᯮ짮
࠭  REPEAT-ࠬ, ࠧࠡ⠭  ० 25  ப,
 ० 43/50 . ப. MAX-६    -
 ᯮ ।, ᪮쪮 ⮢ ᮤন REPEAT-
.          饭
   REPEAT-ᨢ.

ਬ:

Rows  BYTE                                !⮫殢  REPEAT
Ndx   BYTE                                ! ७
Amt   DECIMAL(7,2),DIM(100)               !ᨢ 믫

Screen SCREEN(25,80),PRE(Scr),COLOR(7),EXPAND(4)
         REPEAT(12),INDEX(Ndx),MAX(Rows)  !६ Rows
					  ! ᫮ ப
           ROW(3,5) POINT(1,16),USE(?Point)
Amnt       ROW(3,12) STRING(@N_7.2)
       . .
       CODE
    OPEN(Screen)
    LOOP Ndx = 1 TO Rows                  !塞 ࠭ -
      Scr:Amnt = Amt[Ndxl                 !  ⠬
    .

. ⠪: EXPAND, REPEAT


MSG                                   (뢮 ᮮ饭  ࠭)

             MSG(text)


text                ப ⠭  ६, ᮤঠ-
                     ப  뢮.

 ਡ  ᯮ짮  ﬨ ⨯ ENTRY,CHECK,RADIO,
STRING, TEXT, LIST, BUTTON  OPTION STRING. MSG 뢮  ⥪-
 ப    饭 ࠭,  SETMSG.  ᫨
   뫠  SETMSG,   㬮砭  ⠭
 ப ࠭, 稭  1 ⮫   80 ᨬ.

. ⠪: SETMSG


NAME                                (䠩  䨪  )

             NAME(filename)


filename            ப ⠭  ६, ᮤঠ-
                      ᯥ䨪  (+)  .PCX  .GIF
		    䠩.

ਡ NAME  IMAGE,   䠩  PCX  GIF 㭪
  .

ਬ:

Screen   SCREEN(20,30),PRE(Scr),GRAPHIC
           ROW(3,5) IMAGE(14,20),NAME('picture.pcx')
         .

. ⠪: IMAGE


OVR                                     ( -  ० )

             OVR


 ਡ ᯮ  ﬨ ENTRY  TEXT.   ४砥
  ० .  ६   ⬥  
⢨,   INS.

. ⠪: ENTRY, TEXT


REQ                      (    㫥  )

             REQ


ਡ REQ 砥,    ENTRY,  TEXT, OPTION,   POINT
ॡ   .  ப  ENTRY  TEXT  -
    ஡,     ENTRY   
 㫥.

  ⨯ OPTION  POINT, ⠢  "
       (   ࠢ  -
 ).  ॡ騥   ⨯ OPTION   POINT ⠢
 롮, ⮡   .

 ⨯  BUTTON   ਡ⮬ REQ,  ⮬᪨ ஢ 
⠫   ⨬  ਡ⮬  ⥪饬 ࠭, ⮡ 㡥-
,     㫥   .  ந室   
-CUA   CUA ࠭.   짮⥫ ६
 ﬨ   誨, ⠢ 㢥७,   
  ᮤঠ ࠢ   襭 ࠭.

 -CUA ࠭, ⪠     㫥  
஡, 뢠 㪮 ᨣ   ⮣ .  -
   ⨥ ESC   ४⭮  -
.   CUA ࠭,     ਡ⮬ REQ   ஢ ᢮
    ""  ਡ⮬ REQ.

. ⠪: BUTTON, ENTRY, TEXT, OPTION, REPEAT REUSE


REUSE                 (ᯮ짮 ࠭ ⠭ )

             REUSE


ਡ REUSE  IMAGE-  㪠뢠,  PCX   GIF-ࠧ
㤥 뢥  ࠭  , ⠭ 㣨 㭪,
 㦥  ࠭. ᫨  ࠭  㣨 㭪,  
 ⠭⭠  襣 . ᫨   -
ਡ   ,  ᯮ ᮡ⢥  -
,  뢥 ࠭ ࠧ ४訢.

 ਡ 㦥 ⮫쪮  SVGA ०  256 梥⮢.  16-梥
 VGA   EGA  ० ᯮ  ⮫쪮 ⠭⭠ 
먤.

ਬ:

Screen  SCREEN(20,30),PRE(Scr),GRAPHIC
          ROW(3,5) IMAGE(14,20),NAME('picture.pcx'),REUSE
        .

. ⠪: IMAGE


SKIP                                       (ய  )

             SKIP


ਡ SKIP ᯮ  ﬨ ENTRY, TEXT, STRING OPTION  
LIST.   ਡ⮬  SKIP   ।஢  祫
 ⨢஢  ஬ SELECT.  SKIP ᮧ  ࠭
  "⮫쪮    ᬮ".   USE-६ 뢮 
࠭ ஬ DISPLAY.

ਬ:

Screen SCREEN(20,60),PRE(Scr)
         ROW(6,14) ENTRY(@S24),USE(Name),SKIP!쪮  
         ROW(15,10) TEXT(3,50),USE(Rec:Notes),SKIP
                                             ! ⥪ ⮦
         ROW(19,5) PAUSE('Press any key to continue')
       .                      ! ࠭ - ⮫쪮  ᬮ

. ⠪: ENTRY, TEXT, OPTION, LIST


TRN                                     (஧筮 ࠦ)

             TRN


ਡ TRN ࠧ襭  ⮫쪮  ஢  PAINT  SCREEN  
⥪⮢ ०.     ⮬ ࠭  ࠦ
ண뢠 १ ⥪騩 ࠭,   ࠭  襭-
 אַ㣮쭨 ஧묨. (... -   ࠧ窠!)

 ᪮ ०,  ࠭   ਡ⮬ TRN  뢮-
 ⮫쪮 梥⮬ । , ⠢ 䮭  .  -
 ࠧ     㭪, ᪢  -
  㭮.

. ⠪: PAINT


UPR                     ( ८ࠧ뢠  孨 ॣ)

             UPR


ਡ UPR ᯮ  ﬨ ENTRY  TEXT   ८ࠧ-
     .

. ⠪: ENTRY TEXT


USE                       (易   ६  )

             USE( variable )
                   label  


variable            ⪠ ६, ਭ饩  -
                    .

⪠               EQUATE-⪠   .

USE  ࠬ஬-६ ন  ENTRY, TEXT,CHECK,
 RADIO ( STRING) OPTION ६,    
 .   襭 (襭    )
 ६ 砥  祭.

 IMAGE-, USE(variable)  ६,  ᮤ-
 PCX  GIF-ࠧ  뢮. 筮, ⠪ ६ - 
MEMO-  ਡ⮬ BINARY.

USE(label) । ᯮᮡ  饭    ࠬ -
ࠬ.ࠬ label   ᯮ짮   RADIO 
STRING OPTION, CHECK, TEXT  ENTRY. ⪠   ᯮ짮
  POINT, PAUSE  BUTTON  SCREEN-,   
MENU  ITEM   PULLDOWN.

ਬ:

    ROW(l,l)   ENTRY.USE(?FirstField)
    ROW(6,14)  ENTRY(@S24),USE(Name)
    ROW(8,16)  TEXT(2,20),USE(comments)
    ROW(10,8)  CHECK('Check String'),USE(CheckVar)
    ROW(12,20) PAUSE('Press any key to continue'),USE(?Pause)

. ⠪:ENTRY, TEXT, CHECK, OPTION, PAUSE, POINT, BUTTON,
EQUATE-⪨ 

	      PULLDOWN (믠騥 )


PULLDOWN                           ( "믠饥 ")

⪠    PULDOWN[,COLOR()][,KEY()][,SINGLE()][,SHADOW][,LOCAL]
                                    DOUBLE()
                                     FULL() 
                                     HALF() 
            [MENU()
               [INTEM()]
               [MENU()
                  [INTEM()]
               .]
            .]
         .


COLOR                梥 뢮.

KEY                 ""   PULLDOWN-.

SINGLE,
DOUBLE,
FULL,HALF            ࠬ  믠 .

SHADOW              ᫨ , 㦭 ⥭  믠騬 

LOCAL               뢠,  뢠 PULLDOWN -   -
                     ப 䨧᪮  㠫쭮 
                     (⠢ ࠭  ⮬  ᠬ )

MENU                  ⤥ 믠騬 誮.

ITEM                 .

PULLDOWN 뢠 SAA/CUA-  믠饣  .
PULLDOWN-  ᪮쪮 ⥩ 롮  ,
  ⨢஢  ᯮ  ACCEPT.

 MENU  ITEM    PULLDOWN 㬥  ⥫묨
᫠  浪,  ஬    ⮩ , 
稭     (-1).   롮 ᤥ, 㭪  FIELD
頥  ࠭  (ITEM).

 PULLDOWN-    "" .  ⨯
㦨  ६饭  ⠬ ,  "稥"  
 ⠢ ᠭ אַ । 㦭 ᨬ  -
  MENU  ITEM,  ⮬,  ࠡ ⠪ ᨬ 뤥.
᫨   ப  ᠭ,  ᢥ稢  -
⮩ ᨬ ப.  "稥"  ᯮ  
襩 ALT  맮  믠饣  ᫨   -
  ࠭     (ࠧ㬥,  㦥   
 ஬ OPEN) / 롮 ⭮  (MENU)
   (ITEM).

ன ⨯  ,  ,  ਡ⮬ KEY
 ⮢ MENU  ITEM.    묨  ࠧ襭묨
  (.  EQUATE)  뢠   믮
易   MENU   ITEM. ᫨ ਡ KEY    
MENU  ITEM,       㤥 ᥣ  -
 㭪樥 KEYCODE()  襭 MENU  ITEM,  -
ᨬ  ⮣,  襩  襭  .

ਬ:

PullDown  PULLDOWN                 ! 믠饣 
            MENU('File'),USE(?File)!뢠 
              ITEM('Open'),USE(?FileOpen)
                                   !  
              ITEM('Close'),USE(?FileClose)
              ITEM('Save'),USE(?FileSave)
            .
            MENU('Options'),USE(?Options)
              ITEM('43/50 Line Mode'),USE(?OptLine)
              ITEM('Colors'),USE(?OptColor)
            .
            MENU('Quit'),USE(?Quit),KEY(CtrlQ).
!  믮  , אַ   PULLDOWN
          .


SINGLE, DOUBLE, FULL, HALF                 ( ࠬ  )

             SINGLE(color)
             DOUBLE(color)
             FULL(color)
             HALF(color)


color                梥⮢ ⨫  ᨬ ࠬ.

 ਡ  ,   ⨯ ᨬ  ࠬ 㤥 ᯮ짮-
         PULLDOWN-.  ⤥쭮
PULLDOWN-    ⮫쪮    ⨯ ࠬ.

     SINGLE   
     DOUBLE   
     FULL      
     HALF       ᫥  ࠢ,   -
               ᭨  ᢥ.

ਬ:

PullDown PULLDOWN,SINGLE(5)        !   
         .

. ⠪:  ⮢ ⨫


LOCAL                  (,  ன 뢠 PULLDOWN)

             LOCAL


ਡ LOCAL 㪠뢠,   PULLDOWN- 뢠  
ࢮ ப 䨧᪮ ࠭. ᫨  ய饭,   PULLDOWN
뢠  ࢮ  ப ᫥ ⮣  ࠭, ᫨
  㠫 ࠭.

  ப  䨧᪮    㠫쭮 ࠭ ࠧ
⮫쪮 ⥬,  ࢠ ப 䨧᪮ ࠭ ᥣ ⠥
 ᢮ ,   ६,  ࢠ ப 㠫쭮 -
   ப祭   । ࠭ 䨧᪮.   ⮬
砥,  頥    饭  PULLDOWN  ᫨
PULLDOWN- ᠭ  ਡ LOCAL.

ਬ:

PuIlDown  PULLDOWN,LOCAL  !뢠  ࢮ ப 
			  !࠭

. ⠪: PULLDOWN

			  PULLDOWN


ITEM                                  ( 믠饣 )

             ITEM(⥪)[,KEY()][,USE()][,TOGGLE]


⥪               ப ⠭,   뢮  
                    ࠭ ப, 易  ITEM.

KEY                      ᨬ, -
                      믮  .

USE                 EQUATE-⪠ .

TOGGLE                ⨯ /.

ITEM 뢠  롮       PULLDOWN.  ⮢
ப  ᮤঠ ᠭ,  砥,   ᫥-
騩    ᨬ - ""    ⮣  . ⨥
⠪   ALT  ᢥ稢  ᯮ   .
᫨    ᠭ,   ஫ ⠪ "祩"  
㯠  ⮩ ᨬ .

ਡ KEY 砥 ⤥ ""   .  
   ⨬  ,  ⠪ 맮 -
 믮 , ᨬ  ⮣, PULLDOWN
 ࠭  . ᫨ ਡ KEY   ITEM,   
   㤥 ᥣ  㭪樥 KEYCODE(), -
ᨬ  ⮣,   訫  .

᪠  ᢥ稢 ⤥ ITEM- :)   ME-
NU.  ITEM   易  PROCEDURE,    ,
  믮  롮 ⮣ .

ਬ:

Pul]Down PULLDOWN
           MENU
             ITEM('&GL'),USE(?GL),KEY(AltG)     !Hot key - Alt-G
             ITEM('A&R'),USE(?AR),KEY(AltR)     !Hot key - Alt-R
             ITEM('A&P'),USE(?AP),KEY(A]tP)     !Hot key - Alt-P
         . .


MENU                                 (  믠饬 )

             MENU(⥪)[,KEY()][,USE()][,COLOR()][,RIGHT()]
               [ITEM()]
               [MENU()]
                   multiple other ITEM and/or MENU statements
             .


⥪               ப ⠭,    뢮 
                    ࠭ ப, 易  MENU.

KEY                      ᨬ, -
                      믮  .

USE                 EQUATE-⪠ .

COLOR                ࠭  롮஢  ⮬ .

RIGHT               뢠,  MENU   ࠢ  
                       ࢮ ப ࠭.

MENU 뢠  믠饥      PULLDOWN. 
MENU ࠭,  MENU  / ITEM    MENU 뢮-
  ⤥쭮 誥 (ய). MENU  易  ᮤঠ
 ᥡ 㣨   MENU   ITEM. ⮢ ப  
ᮤঠ ᠭ,  砥,  ᫥騩   ᨬ-
 - ""    ⮣ . ᫨ MENU 室  
 PULLDOWN, ⨥ Alt  "祩" 襩 ᢥ-
  믮 MENU. ᫨  室  㣮 MENU,  
믮 ⨥ "祩"    ALT.  ᫨    
ᠭ,   ⢥ "祩"  㯠  -
⮩ ᨬ  . ਡ  KEY 砥   ⮣ 
 ""  .       ⨬
 ,   ⠪ 맮   믮 ,
ᨬ  ⮣, PULLDOWN  ࠭  . ᫨ -
ਡ KEY   MENU,      㤥  -
  㭪樥  KEYCODE(), ᨬ   ⮣, 
 訫  .

ய  MENU   אַ       PULL-
DOWN. ᫨  蠬 ENTER      
  㣨 ,    ࠢ  -
饣 .   頥  ।騩 ய.

ਬ:

PuIlDown PULLDOWN                 ! PULLDOWN
           MENU('File'),USE(?File)!믠饥 
             ITEM('Open'),USE(?FileOpen)
                             !    室  
             ITEM('Close'),USE(?Fi]eClose)
             MENU('Tools'),USE(?Fi]eTools) !  
               ITEM('Rebuild Keys'),USE(?FileTooIsRebuild)
           . .                    !  
           MENU('Quit'),USE(?Quit)
                    !  믮   PULLDOWN
         . .

		   ਡ   PULLDOWN


KEY                                    ( ண 롮)

             KEY( character )
                   keycode 


character            ᨬ  롮  㭪 
                     SCREEN BUTTON.  ࠬ  ⢨-
                    ⥫  ॣ 㪢.

keycode             ਮ᪨      EQUATE-⪠
                     .

ਡ KEY  ⮢  PULLDOWN MENU, ITEM,  SCREEN
IMAGE  SCREEN  BUTTON  ""    롮  
믮  .   ""   ⫨砥 
⮩,   ᠭ ⥬,   易   ﬨ
MENU, ITEM  BUTTON. "ᠭ" "稥"  ᯮ-
     ⨯ MENU  ITEM. "稥" -
 ਡ KEY ᯮ   믮  易-
   .

᫨  -    ਡ KEY,   襭  ⮣
, 㭪 KEYCODE()  ୥  ,  ⨬
ਡ⮬, ᨬ   ⮣,    ᯮ짮 
ᠬ .

ਬ:
PuIlDown PULLDOWN
           MENU('Options'),USE(?Options)
             ITEM('43/50 Line Mode'),USE(?OptLine)
             ITEM('Colors'),USE(?OptColor)
           .
           MENU('Quit'),USE(?Quit),KEY(CtrIX)   !Ctrl-X - 
         .
Screen SCREEN(5,15),CENTER
         ROW(2,3) STRING('OK to continue?)
         ROW(4,5) BUTTON(' OK '),KEY(EnterKey)   !Enter - OK
          COL(10) BUTTON(' Cancel '),KEY(EscKey) !Esc - ⬥
       .

. ⠪: PULLDOWN, MENU, ITEM, IMAGE, BUTTON


RIGHT                                         (  MENU)

             RIGHT


ਡ RIGHT  㪠뢠,        
ᠬ ࠢ   PULLDOWN.  ਡ  
⮢ ,   ய.

ਬ:

PuIlDown PULLDOWN
           MENU('Options')
             ITEM('43/50 Line Mode')
             ITEM('Colors')
           .
           MENU('Quit'),RIGHT           !  ᠬ 
         .

. ⠪: MENU


TOGGLE                     (-४⥫ ⨯ /)

             TOGGLE(varible)


variable            ⪠ 楫᫥ ६.

ਡ TOGGLE    ITEM   PULLDOWN, 㪠뢠
 ,  ITEM - ४⥫.  ITEM 祭,  VARIABLE=1
 ᫥  易   ITEM  箪 ().   
ITEM 몫祭, VARIABLE ⠭ ࠢ ,  箪 ()  祧-
.

ITEM  /몫 ⨥    ENTER, 
᢮    ६ VARIABLE  ᯮ塞
.

ਬ:
LineMode        BYTE(1)          !४⥫ ࠭ 祭

PuIlDown PULLDOWN
         MENU('Options')
         ITEM('43/50 Line Mode'),TOGGLE(LineMode) !४⥫
         ITEM('Colors')
         . .

. ⠪: ITEM
ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.



	       9 -  ࠡ⪨ ࠭

楤 ࠡ  ࠭.................................. 9-1
     ACCEPT (ࠡ稪  ࠭)....................... 9-1
     ALERT (⠭  襭 ).............. 9-3
     BEEP (㪮 ᨣ )....................... 9-3
     CLOSE ( ⥪騩 ࠭).......................... 9-4
     DISABLE ( 롮   ⥬ )......... 9-5
     DISPLAY (뢥 USE-६  ࠭).............. 9-6
     ENABLE (ࠧ 롮 ⥬ ࠭ )....... 9-7
     ERASE (   ࠭   USE-६)... 9-8
     GETSTYLES (  ⮢ ⨫  䠩)...... 9-9
     HELP (   ᪠)......................... 9-11
     IDLE (ਮ᪨ 뢠 楤)............... 9-12
     LOADSYMBOLS (㧪 ᥢ䨪)................... 9-13
     OPEN ( ࠭  ࠡ⪨)..................... 9-14
     SELECT (   ࠡ⪨).................... 9-15
     SETAREA (⠭ ࠧ 㠫쭮 ࠭)........ 9-16
     SETMSG ( ப ᮮ饭 ࠭)................ 9-17
     SETSTYLES (⠭  ⮢ ⨫)............ 9-18
     SHOWIMAGE ( .PCX  .GIF)..................... 9-19
     UPDATE (   ࠭  USE-६)..... 9-20
     USESYMBOLS (᪨ 誠,   ࠬ窨)....... 9-21

㭪樨 ࠡ  ࠭.................................... 9-22
     CHOICE (⭮⥫쭠  )................ 9-22
     COL ( ⮫).................................... 9-23
     COLS (᫮ ⮫殢).................................. 9-24
     CONTENTS (ᮤন USE-६)................... 9-25
     FIELD (᫥ 襭 )..................... 9-26
     FIELDS (᫮   ࠭)......................... 9-27
     REFER (뫮 饭    ).................. 9-27
     ROW ( ப)..................................... 9-28
     ROWS (᫮ ப)..................................... 9-29
     SELECTED (࠭  ࠡ⪨ )................ 9-30
     STYLES (頥 ७ ᨢ ⮢ ⨫).. 9-31

		     


ACCEPT                                 (ࠡ稪  ࠭)

             ACCEPT


ACCEPT     (祫 :)    ࠭ 
 롮  PULLDOWN.

 PULLDOWN-, ACCEPT ந ७ ࠡ -
 .   ⨯ ITEM,   ࠭  ⮫쪮
,   饭 ஬ DISABLE.  PULLDOWN-
蠥 ⮫쪮 ᫨  ࠭  ⨯ ITEM.   -
襭, 㭪 FIELD 頥     ITEM.

 SCREEN-, ACCEPT 樨   ࠭  
 .  㬮砭, 롮    ⮬ 浪,  -
஬  ᠭ  SCREEN-. ,    易⥫쭮,
롨    ஬ SELECT. ࠭   
⮫쪮  ,   USE-६,    ਡ
SKIP   饭 ஬ DISABLE.
(... -   쭥襬,        "饭 ...", 
 "DISABLED" - . )

   ENTRY   TEXT, ACCEPT  ᢥ稢 ,  뢠
USE-६, ᢥ稢 , ࠧ蠥    
  ⢨ .   襭 ଠ쭮 (  
ALERT-),   祭 ଠ,  ᮣ᭮
蠡 ,  ⮬᪨ ९뢠  USE-६.

  OPTION (STRING  RADIO)  POINT, ACCEPT ᢥ稢
 , ࠧ蠥      ⢨ -
.   襭, 㭪 CHOICE() 頥  ⭮-
⥫  ࠭   OPTION-  REPEAT--
.   ⨯ STRING  RADIO OPTION, USE-६ -
砥 ࠭ 祭.    ⨯ POINT, ᭠  -
  REPEAT, ⠪,   ࠭ -
.

  ⨯ PAUSE,ACCEPT 뢠 ࠬ  PAUSE,
ࠧ蠥            . 
    ,  ᪫祭  ESC  BackTAB  
-CUA ࠭.

ACCEPT ந ७ ࠡ ESC  BackTAB ⮫쪮  
-CUA ࠭.  Esc   BackTab ⠢  ACCEPT  
 ।饥  ,   ,   ਡ⮬ ESC. ᫨
⠪  ,  ACCEPT  㪮 ᨣ  ⠭ 
⮬  .

ACCEPT ⠪ ஢ ७ ࠡ ᪨-  -
 ⨯ OPTION STRING, OPTION RADIO, POINT   ⡮  (
ਡ IMM)   CUA- ⠪   -CUA ࠭.

ਬ:

Screen SCREEN(5,40),PRE(Scr),COLOR(1),ZOOM,CUA,SHADOW
          ROW(2,5) ENTRY(@N3),USE(Ctl:Code)
          ROW(3,5) ENTRY(@S30),USE(Ctl:Name)
          ROW(4,15)BUTTON('OK'),USE(?OkButton),KEY(EnterKey)
          ROW(4,25)BUTTON('⬥'),USE(?CanxButton),KEY(EscKey)
       .
       CODE
       OPEN(Screen)
       LOOP
         ACCEPT                            ! -   
         CASE FIELD()
         OF ?OkButton
           EXECUTE DiskAction
             ADD(Control)
             PUT(Control)
             DELETE(Control)
           .
           BREAK
         OF ?CanxButton
           IF KEYCODE() EscKey THEN RETURN.
       . .


ALERT                        (⠭  襭 )

             ALERT([first-keycode][,last-keycode])


first-keycode       ᫮     EQUATE-⪠  
		    .      ।  
                      .

last-keycode        筮 first-keycode,    -
                     ।    .

ALERT      ,  
襭 . (... -  -᪨, ALERT "" 
(). ⮬,  쭥襬,  ⠪    - "
 "  "ALERT-").  ALERT  ࠬ஢
⪫砥  ALERT- (,  ਡ⮬  ALRT
  ࠭  ⬥).

 ,   ,  ,    
ࠬ஬  ALERT. ᫨  襭  ALERT-襩,
  USE-६  ,   ᯮ
 UPDATE.

ਬ:

   ALERT                        !⬥   
   ALERT(F1Key,F12Key)          !  F-
   ALERT(279)                   ! "" Ctrl-ESC

. ⠪: UPDATE


BEEP                                 (㪮 ᨣ )

             BEEP([][,⥫쭮])


             ᫮ ⠭,६  ࠦ,
                    饥  ⮭. ᫨   ,
                    ࠧ㬥 150hz.
⥫쭮        ᫮ ⠭,६  ࠦ,
                    饥 ६ (   ᥪ㭤) -
                     ᨣ. ᫨  ,  ࠧ㬥-
                     16  ᥪ㭤.

 BEEP  ⠢      . ᫨
=0 (㪠 ),  BEEP ⠭ 䥪⨢  ।⢮
   祭  ६, ᨬ  .

ਬ:

 IF ERRORCODE()   !! 㦥 訡?
   BEEP(200,100)  !   ⮣  
   STOP(ERROR())  !  ⠭  뢮 ᮮ饭  訡
 .                !  IF
 BEEP(0,200)      ! 㧠   楫  ᥪ㭤!


CLOSE                                    ( ⥪騩 ࠭)

             CLOSE(⪠)


⪠               ⪠  SCREEN  PULLDOWN.

CLOSE ४頥 ࠡ ⥪饣 SCREEN  PULLDOWN. ,
 ⥪騬 ࠭ ᢮    ⨨. ᫨  
⥪饣 ࠭ 뫨  ࠬ   ,  㤥
⠭ ⮥  ࠦ.

ਬ:

    CLOSE(MenuScr)      ! ࠭  
    CLOSE(CustEntry)    ! ࠭    㯠⥫


DISABLE                   ( 롮   ⥬ )

             DISABLE(first field [,last field])


first field           EQUATE-⪠    -
                      ⤥쭮    ࢮ  
                      .

last field           ,   FIRST FIELD,    ᫥
                       .

 DISABLE 頥        
  PULLDOWN-.   ࠭    USE-६.
  饭,  ⮡ࠦ  梥,  
 ࠬ ਡ COLOR, 易  ,    -
     ⠪ .  DISABLE    楫 
PULLDOWN,  ⮫쪮    (ITEM).

ਬ:

Screen SCREEN(5,40),PRE(Scr).COLOR(l),ZOOM,CUA,SHADOW
         ROW(2,5) ENTRY(@N3),USE(Ctl:Code)
         ROW(3,S) ENTRY(@S30),USE(Ctl:Name)
         ROW(4,15) BUTTON('OK').USE(?OkButton),KEY(EnterKey)
         ROW(4,25) BUTTON('Cancel'),USE(?CanxButton).KEY(EscKey)
       .

       CODE
       OPEN(Screen)
       DISABLE(?Ctl:Code)              ! 
       DISABLE(?Ct]:Code,?Ctl:Name)    !  
       DISABLE(2)                      ! ஥  -
       				       !   

PuIlDown  PULLDOWN
            MENU('室'),USE(?FirstMenu)
              ITEM('室  Dos'),USE(?FirstItem)
            .
            MENU('ࠬ')
              ITEM('ࠡ '),USE(?ProcRec)
              ITEM(' '),USE('DelRec')
          . .
          CODE
          OPEN(PuIlDown,1)
          DISABLE(?FirstItem)
                   !⨢஢  㭪   PULLDOWN
          SomeProcedure           !   믮  楤
          ENABLE(?FirstItem)      ! ⨢஢ 㭪 

. ⠪: ENABLE


DISPLAY                        (뢥 USE-६  ࠭)

             DISPLAY(first field [,last field])


first field           EQUATE-⪠    -
                      ⤥쭮    ࢮ  
                      .

last field           ,   FIRST FIELD,    ᫥
                       .

DISPLAY 뢠  祭 USE-६   易   
 ⥪饣 ࠭. DISPLAY   ࠬ஢, 뢮   ࠭
 USE-६. ᫨  ⮫쪮 FIRST FIELD,  㤥 -
 祭 USE-६  ⮫쪮    . ᫨
  FIRST  LAST FIELD,    祭  USE
६   FIRST FIELD..LAST FIELD ⥫쭮.

ਬ:

  DISPLAY                    !  
  DISPLAY(2)                 !   2
  DISPLAY(3,7)               !   3  7
  DISPLAY(?MenuField)        ! -
  DISPLAY(?TextBlock,?Pause) !   TextBlock  Pause

. ⠪: EQUATE-⪨ , UPDATE, ERASE


ENABLE                 (ࠧ 롮 ⥬ ࠭ )

             ENABLE(first field [,last field])


first field           EQUATE-⪠    -
                      ⤥쭮    ࢮ  
                      .

last field           ,   FIRST FIELD,    ᫥
                       .

 ENABLE  ⨢    ,  -
 뫨 饭  ஬ DISABLE. ⨢஢  
 㯭   .

ਬ:
SomeScreen PROCEDURE
Screen SCREEN,COLOR(0)
         ROW(2,3) ENTRY(@N4),USE(Fieldl),COLOR(0,1,2)
         ROW(3,3) ENTRY(@N4),USE(Field2),COLOR(0,1.2)
       .
       CODE
       OPEN(Screen)
       DISABLE(?Field2)               !Field2 ⨢஢
       IF Ctl:Password = 'Supervisor'
         ENABLE(?Field2)              !⨢㥬 Field2
       .

SomeMenu PROCEDURE
PuIlDown PULLDOWN
           MENU('Quit'),USE(?FirstMenu)
             ITEM('Exit to Dos'),USE(?FirstItem)
           .
           MENU('Options')
             ITEM('Process Record'),USE(?ProcRec)
             ITEM('Delete Record'),USE('DelRec')
         . .

         CODE
         DISABLE(?FirstItem)    !  㭪  
                                !  PULLDOWN
         SomeProcedure          !   - ᤥ
         ENABLE(?FirstItem)     ! ⨢஢  㭪

. ⠪: DISABLE


ERASE  ( ()  ࠭  () USE-६())

             ERASE([first field][,last field])


first field           EQUATE-⪠    -
                      ⤥쭮    ࢮ  
                      .

last field           ,   FIRST FIELD,    ᫥
                       .

ERASE 頥   ࠭  ᮮ⢥騥   USE-६.
ERASE   ࠬ஢ 頥      ࠭.  ᫨ 
⮫쪮 first field,  ERASE   USE-६ 
易   . ᫨   first  last field,  
饭   USE-६    first field  last
field ⥫쭮.

ਬ:

ERASE(?)                ! ⥪饥 

ERASE                   !    ࠭

ERASE(3,7)              !   3  7

ERASE(?Name,?Zip)       !     

ERASE(?City.?City+2)    !     ᫥ 

. ⠪: EQUATE-⪨ 


GETSTYLES                (  ⮢ ⨫  䠩)

             GETSTYLES([䠩])


䠩                ப ⠭  ६  ᮤঠ-
                      ᯥ䨪  䠩     ⮢
                    ⨫. ᫨  ࠬ 饭,   㤥
                    ⠭ ⠭  梥⮢.

GETSTYLES ⠥ 䠩  ⨫  ᢠ  ७ ᨢ
⮢ ⨫ 祭  ⮣ 䠩. ᫨ 䠩  , 
GETSTYLES   ७ ᨢ  梥⮢  -
 ⠥ .

ᨢ  梥⮢ ⨫  ७ 256-  ᨢ,
 ࠭ ⥪騥  梥⮢ ⨫.    㬥-
  0   255.   樠  祭,
ࠢ    ( 0=0,   1=1.. 255=255).
 ਡ  SCREEN and PULLDOWN,  ᯮ  
梥⮢ ⨫, 頥  ⮬ ᨢ  । -
騥 梥 ᯫ, ࠭騥   ᨢ.

file  ⥪⮢ ASCII-䠩.   ப ᮤন   
⮢ ⨫     , ࠧ  묨. ࢮ
 -   ७ ᨢ. ஥ -  ⮢-
 ⨫    (    16!)
 稨 梥⭮ ᯫ.     梥   -
஬ ᯫ, ⢥⮥   - 易⥫쭮  ᠭ.
ਬ, 䠩 ⨫  룫拉 ⠪:

            0,0,0,  ୮
            1,112,112,  ࠭
            2,63,112, ࠭
            3,115,7, ࠭
            4,113,7,ଠ PROMPT
            5,116,7,騩 PROMPT
            6,127,112,   PROMPT
            7,127,112,   ⥪饬 PROMPT
            8,126,7,  
            9,7,112,饥   

 䠩 ⨫      1  256  ப     易
ᯯ   浪 ஢  ⮢.   
⮫쪮   ᨢ,  㪠  䠩.

,   梥⭮ ᯫ  ᯮ 襯ਢ
䠩, ਡ ࠭  COLOR(1,2,3,4,5) 㤥 
᫥騥 梥:

      112 (  )  ଠ쭮 ⥪
      63 (મ  ⭮) ᫨   ⨢
      115 (  )   ⥭
      113 (  )   ᠭ ⪥
      116 (  )  ⪥ ⨢ 

ਬ:

 STYLES.DEF ᮤন:
      0,31,7.મ  /  ୮
      1,48,112,  ⭮/  
      2,23,8,  e/  ୮

 ணࠬ ᮤন:
             PROGRAM
Screen SCREEN,COLOR(0)      !  㬮砭   ୮
         ROW(2,3) ENTRY(@N4),USE(Field1),COLOR(0,1,2)
         ROW(3,3) ENTRY(@N4),USE(Field2).COLOR(0,1.2)
       .
    CODE
    GETSTYLES('styles.def')! 䠩 styles.def
    OPEN(Screen)    !࠭ - મ  
    	            !Field1 -   ⭮ (⨢ )
                    !Field2 -    (⥭ )
    DISABLE(?Field2)

. ⠪:  ⮢ ⨫, SETSTYLES


HELP                                   (   ᪠)

             HELP([helpfile][,window-id])


helpfile            ப ⠭  ⪠ ப  -
                    ६,  ᮤঠ饩  ᯥ䨪  䠩 
                     ᪠. ᫨  ᯥ䨪樨  -
                        䠩,   ࠧ㬥,  
                    䠩  ⥪饬 ⠫. ᫨ 饭 -
                    ७ 䠩,  ࠧ㬥 ".hlp". ᫨
                        䠩,    ᯮ짮
                    , ⮡  ,    ࠬ
                    饭.

window-id           ப ⠭  ⪠ ப  -
                    ६ (  20 ᨬ)   ᮤন
                    䨪  ᪠.

 HELP 뢠 㪠 䠩 ᪠   ⨢
   WINDOW-ID.  ६ ࠡ ஢ ASK   AC-
CEPT, ⥪饥  ᪠  맢 ⨥   F1.
 ᪠ ᮧ ⨫⮩ ਮ HELPER.

᫨ ய饭 WINDOW-ID,  䠩 뢠,    
⨢. ᫨ ࠬ HELPFILE  ,  ࠧ㬥-
,  䠩 㦥   ⨢㥬  । -
ࠬ஬ WINDOW-ID.  ᪠ ⠪ ⨢  ਡ-
⮬ HLP  SCREEN    ࠭.  ࠬ஢, HELP
뢠 ⥪饥  ᪠.

(... -  ,   . ᫨   易   -
,      蠬 PgUp/PgDn. ਬ஬  -
 裡  㦨 ࠢ筠 ⥬ CPD 2.1x)

ਬ:

  HELP('C:\HLPDIR\LEDGER.HLP')    ! 䠩 ᪠ LEDGER

  HELP(,'CustUpd')	!ᪧ  ᥭ   ᯨ᮪
  			!㯠⥫

  HELP                          ! ⥪饥  ᪠

. ⠪: ASK, ACCEPT, HLP


IDLE                         (ਮ᪨ 뢠 楤)

             IDLE([procedure][,separation])


procedure           ⪠  PROCEDURE. 楤  
                    뢠  MAP ணࠬ,    MAP 
                    -童.

separation           ᫮ ᥪ㭤, 饥 
                    ஬⮪  饭ﬨ  . 0
                    砥, ,  , 饭 
                       뢭. ᫨ SEPARATION
                     ,   㬮砭 - 1.

IDLE-楤 ⨢  ६ ࠡ ஢ ASK  ACCEPT
 㭪樨 ENTRY.    ६   ⨢ ⮫
  IDLE-楤.    IDLE-楤,  ⬥
.  IDLE  ࠬ஢ ⬥ 饭   IDLE-
楤.

(... -    ⮩ 㭪樨,  ਬ,  뢮  
࠭  , , ࣠뢠 ࠡ   뢠
 ⠩,   筮 ਬ⨢)

ਬ:
   IDLE(ShoTime,10)     !뢠 shotime  10 ᥪ㭤

   IDLE(CheckNet)       !஢ ⨢   ᥪ㭤

   IDLE                 !⪫ IDLE-楤

. ⠪: ASK, ACCEPT, ENTRY, PROCEDURE, MAP


LOADSYMBOLS                             (㧪 ᥢ䨪)

             LOADSYMBOLS([string])


string              ப ⠭  ६  
                    㥬 ᨬ.  ᫨ ய饭,  
                     ᨬ  㬮砭.

楤 LOADSYMBOLS 㦥 "᪨" ᨬ  
誨, RADIO-   CHECK-ᮢ,    
⥪⮢ ० 25*80. LOADSYMBOLS    稥 ⥪-
 ०, ⠭ 楤ன SETTEXT.

  STRING ᨬ   ᨬ, ।⠢騥
 誨  ५, RADIO-  " "  (
 ࠭)  CHECK-     㪢  "" 
( 祪 ⨢). ⥫쭮,  ⮡ ᨬ  STRING  
ᯮ짮 -   ணࠬ.

᫨ STRING ய饭,   ।  ᨬ-
, , 筮, । ᯮ. "᪨" ᨬ-
  RADIO-  祪ᮢ ᯮ ⮫쪮   -
,   ६,  筮 ।⠢ ॡ  
(.. (+)   []).  ᨬ      ᫥饬
浪:

࠭ "䨪"      㬮砭           ࠭
             
 誨              1                      ५
RADIO 몫              198,  2, 32              㦮
RADIO                207,  5, 32              㦮  窮
CHECK 몫              209, 11, 32              
CHECK                211, 19, 32                ""

(... - "1"  誨   ⪠,   ⠪  ⮨...)

 襭 ணࠬ,  ⠭  -
室 .  ,   ⠭   ६
믮 楤 RUN  RUNSMALL.

᫨   ᯮ짮 "䨪" ᮡ⢥ ⮢,
 㧨 ᢮  - ⨫⮩. ᫥  -
㧪  ,  ᯮ  㭪 USESYMBOLS, ⮡
㪠,   ᨬ ᯮ짮.USESYMBOLS 筠
LOADSYMBOLS,  ᪫祭 ⮣,     -
.

ਬ:

  LOADSYMBOLS                      !ᯮ짮 ⠭ -
  				   ! ᨬ

  LOADSYMBOLS('<1,198,2,33,207,5,32,209,11,32,211,19,32>')
				   !ᯮ짮 ⠭ -
  				   ! ᨬ

  LOADSYMBOLS('<170>')             ! ASCII 170  誨,
                                   ! ⠫쭮 - ⠭⭮.

  LOADSYMBOLS('<228,229,230,231,232,233,234,235,236,237,238,239|
    ,240>')                     !ᯮ짮   228  240

. ⠪:  USESYMBOLS


OPEN                               ( ࠭  ࠡ⪨)

             OPEN(label[,value])


⪠               ⪠  SCREEN  PULLDOWN.

value               ᫮ ⠭  ६.   -
                    ࠬ ᯮ ⮫쪮  PULLDOWN--
                    ࠬ.

OPEN 뢠  SCREEN   ࠡ⪨. 쪮   SCREEN 
 ⨢.   SCREEN-  , ⮡ࠦ  
樠஢ ப  ࢮ   ⠭ -
⨢. USE-६  뢮 ஬ DISPLAY.

OPEN 뢠 PULLDOWN-  ࠡ⪨,   ⨢-
 . PULLDOWN- ⠭ ⨢  饫窥  -
     ⨨ 祩 Alt-,  
MENU  ITEM. PULLDOWN   ⨢஢,    
⨨  ࠭ ,   ⨢஢.

᫨  ࠬ VALUE,     ࠢ ,    OPEN
 뢠  .   ⠥  -
   , ᨬ   ⮣, ⨢    ,
( ࠩ ,   ,    ஥ 㣮  -
). ᫨ VALUE ய饭   ,     
⮫쪮  ⨨ Alt-.

ਬ:
    OPEN(MenuScr)               ! ࠭ 

    OPEN(CustEntry)             ! ࠭  ᢥ 
				!  㯠⥫

    OPEN(PullDown,1)            !  ᥣ 


SELECT                              (   ࠡ⪨)

             SELECT([field][,cursor position])


field                    EQUATE-⪠    ,
                    饣 ࠡ⪥.

cursor position        ,  㤠   -
                    .   ENTRY  TEXT,    ᨬ-
                    .  OPTION  RADIO, OPTION STRING,  
		    OPTION CHECK     롮   
		    OPTION.  LIST    QUEUE.

SELECT  ଠ 冷 ࠡ⪨  ࠭. -
 FIELD  , 饥 ࠡ⪥. SELECT  ࠡ⠥
 ﬨ  PULLDOWN.

SELECT  ࠬ஢,  ॢ ࠭   "⠭" -
 - 襭   ࠭      ஬.
  蠥  筮 浪.   SELECT
 ⠭  ᫥  .  室   ࢮ 
⠪        ࠭. "⠭" ० SELECT
४頥    ᫥ ⥫:

      SELECT(?) ४頥 横 SELECT    -
      ஢ ⥪饥 .

      㦥 ⮥  㫥   ਡ⮬ REQ. 
      ᨣ,   ଠ 冷 ࠡ⪨  -
          ਡ⮬ REQ.

ਬ:

   LOOP                       ! 横 ࠡ⪨ ࠭
     ALERT(CtrlEnter)         ! ⪥
     ACCEPT                   !ਭ  
     IF KEYCODE() = CtrIEnter ! ⨨ ⪥
       SELECT(?)              !    ⮣  ᠬ 
       SELECT                 !   ३  ⠭
       CYCLE                  !  ० אַ ᥩ
     .
     IF FIELD() = ?State    !᫨ ।㥬  - ,
       IF State <> 'FL' AND State <> 'GA'
                            !    ࠢ ,
         BEEP               !   ।। 㪮 ᨣ
         SELECT(?)          !    ⮬  ( ⬥
                            !  ⠭ ०)
   . . .                    ! ஢ LOOP  IF

. ⠪: ENTRY, TEXT OPTION, LIST


SETAREA                  (⠭ ࠧ 㠫쭮 ࠭)

             SETAREA(ப,⮫殢)


ப               ᫮  ⠭,      ᫮
                    ப  㠫쭮 ࠭. ᨬ - 255.
                      , ந    
                      ॢ 32767.

⮫殢            ᫮ ⠭,       ᫮
                    ⮫殢   㠫쭮 ࠭.  ᨬ -
		    255.      ,  ந   
		       ॢ 32767.

SETAREA   ᬥ      㠫쭮 ࠭.
 ।  ,   । ன   ६
䨧᪨ ࠭. SETAREA  祣  뢮,  ⠪    
ᯮ짮,  ࠭ 㦥 .    ⮫
  ⮩  ࠭,     .

SETAREA ॡ,    ࠭ (  ࠬ஢ ப/
⮫殢)  ࠧ , 祬 ࠭ ।  㠫-
 ࠭,    祬 25 x 80.  ᫨ SCREEN(ப,⮫殢)
, 祬 ࠧ  㠫쭮 ࠭,   㠫쭠 
⮬᪨ ८।, ࠨ  訩  ࠧ.
 ⠭ ࠧ  㠫쭮 , ⠥  
,    ८। 訩 ࠭  楤
SETAREA.

᫨  SETAREA   ࠧ஬ 訬, 祬   ⥪饣 ࠭,
,     , , , ⠭ -
㯭   . ᫨ ⥬  SETAREA  ଠ
묨 ࠬࠬ,   ,  祭 ࠭,   ⠭ -
㯭.   ,  ࠬ, 梥   .

ਬ:

Screen   SCREEN,PRE(Scr),COLOR(1) !࠭ 50ப  160 ⮫殢
           ᠭ   ⮣ ࠭
         .
         CODE
         SETAREA(50,160)  !⠭ ࠧ 㠫쭮 ࠭
         OPEN(Screen)     !    


SETMSG                          ( ப ᮮ饭 ࠭)

             SETMSG(row,col,length)


row                 ᫥ ⠭, ६   -
		    ࠦ, ஥   ப  -
                    㠫쭮 ࠭.

col                 ᫥ ⠭, ६   -
		    ࠦ,஥   ⮫  -
                    㠫쭮 ࠭.

length              ᫥ ⠭, ६   -
		    ࠦ,  ஥    ᫮  ᨬ 
                    ப ᮮ饭.

SETMSG 뢠  ࠭  뢮 ᮮ饭   ਡ-
⮢ MSG. ᫨   ࠬ ࠢ ,  ⠭
ப ᮮ饭  㬮砭.

 㬮砭, ப ᮮ饭 ࠧ頥  ࠭,   -
 ⮫ 25- ப    80 ᨬ.

ਬ:

Screen SCREEN(25,80),EXPAND(5)
        ROW(3,5) ENTRY(@N4),USE(Fieldl),MSG('ࢮ  ')
        ROW(4,5) ENTRY(@N4),USE(Field2),MSG('饥 ')
       .
       CODE
       OPEN(Screen)
       SETMSG(25,25,30)      !ப ᮮ饭  25 ப࠭
			     !࠭   30 ᨬ.

       SETTEXT(43,80)        !室  ० 43 ப
       SETMSG(0,0,0)         !ப ᮮ饭 -  㬮砭
                             !ப 43, ⮫ 1,  80

. ⠪: MSG


SETSTYLES                      (⠭  ⮢ ⨫)

             SETSTYLES(program array)


program array	ᨢ  256 ⮢ ⨯ BYTE, 
		STRING(256).

SETSTYLES  ᢠ  祭,  ᮤঠ騥   PROGRAM ARRAY
७ ᨢ  梥⮢ ⨫.    
" "  梥⮢  ணࠬ.

७ ᨢ   梥⮢  ⨫ -  256- ᨢ,
࠭騩 ⥪騥   梥⮢ ⨫.    㬥
 0  255.  , 砫쭮,  祭,  ࠢ
  (-[0]=0, -[1]=1..-[255]=255).  ਡ
 , ᯮ騩  梥⮢ ⨫, 頥  -
 ᨢ   ।  梥   ⭮   梥⮢
⨫.

, ᪮, ᨢ ਮ 㬥  ,   SETSTY-
LES ᢠ    PROGRAM ARRAY  㫥 
७ ᨢ  梥⮢ ⨫, ன - ࢮ...

ਬ:

StyleCodes  STRING(256)                 !ணࠬ ᨢ
StyleArray  BYTE,DIM(256),OVER(StyleCodes)

Screen    SCREEN,COLOR(0)  ! 㬮砭 - 梥   ୮
            ROW(2,3) ENTRY(@N4),USE(Fieldl),COLOR(0,1,2)
            ROW(3,3) ENTRY(@N4),USE(Field2),COLOR(0,1,2)
          .
        CODE
        StyleCodes = STYLES()        !砥 ⥪騥 ⨫
        StyleArray[1] = 31           !મ  
        StyleArray[2] = 48           !  ⭮
        StyleArray[3] = 23           !  
        SETSTYLES(StyleArray)        !⠭  ⨫
        OPEN(Screen)    !࠭ ⥯ મ  
                        ! Field1 -   ⭮ (⨢)
        DISABLE(?Field2)   !Field2 -    (⥭)

. ⠪:  ⮢ ⨫, GETSTYLES, STYLES


SHOWIMAGE                               ( .PCX  .GIF)

             SHOWIMAGE(row,col,[rows],[cols],file,usepal)


row                 ப,  ன  뢮 PCX  GIF.

col                 ⮫,  ஬  뢮 PCX  GIF.

rows                 㭪  ப. ᫨ ய饭, 
		    ⮫쪮, ᪮쪮 㦭  ࠧ饭 -
		    .

cols                ਭ 㭪   ⮫.  ᫨ ய饭,
                     ⮫쪮, ᪮쪮 㦭  ࠧ饭 -
                    㭪.

file                ப ⠭  ६  ᮤঠ-
                      PCX  GIF 䠩.

usepal              ᫥ ⠭  ६. ᫨
                    0,  ᯮ 256-梥⭠   .PCX
		     .GIF. ᫨ -,  ᯮ 256-
                    梥⭠    ࠭  뢥 㭪
                    ( ⠭  ⠭).

SHOWIMAGE  ஢   뢮 㭪  ଠ-
 PCX  GIF    ⨯ IMAGE. ࠭     -
᪮ ०, ⠪   ᭠砫   SCREEN   ਡ⮬
GRAPHIC. ਡ ROWS   COLS    饭,   ,
⬥騥 ய饭 ࠬ,   易⥫쭮.  ᫨
ਡ ROWS   COLS ய饭,   㭮 뢮   
ࠧ.  室, 㭮 ⠡.

ন ᪨ ० EGA, VGA  SVGA. CGA   Hercu-
les  ন. ন  16-梥 ०.  
16-梥 , 256-梥 PCX  GIF 뢮  16-梥-
 ०.   SVGA  256 梥⮢  ন  ᫥騬
㤮 (쭠 䨣):

ઠ       襭    ॡ㥬 
          
TSENG Chip Set        640 x 350       512K
Video7 / Headland     640 x 400       256K
Ahead Systems         640 x 400       256K
Paradise              640 x 400       256K
VESA                  640 x 400       256K
Trident Everex        640 x 400       256K
Zymos                 640 x 400       256K
Genoa                 640 x 400       256K

ਬ:

Screen   SCREEN(25,80).COLOR(0),GRAPHIC.
         CODE
         OPEN(Screen)       ! 䨪⨢ ᪨ ࠭
         SHOWIMAGE(1,1,25,80,'logo.pcx',0)
                            !뢥    ࠭


UPDATE               (   ࠭  USE-६)

             UPDATE([first field][,last field])


first field            EQUATE-⪠   ࢮ
                       .

last field             EQUATE-⪠   ᫥-
                        .

UPDATE 뢠 ᮤন  ࠭   USE-६.

UPDATE               USE-६   ࠭.

UPDATE(first field)  USE-६ ⭮ .

UPDATE(first field,last field)
                     USE-६     
                     first field  last field.

USE-६ ⮬᪨   ஬  ACCEPT 
 .   ,   ALERT-蠬
   USE-६ ⮬᪨.   ⮣   㦨
 UPDATE.

ਬ:

  UPDATE(?)             ! USE-६ ⥪饣 

  UPDATE                !  USE-६

  UPDATE(?Address)      ! USE-६  

  UPDATE(3,7)           ! USE-६   3  7

  UPDATE(?Name,?Zip)    !塞     ᠬ 

  UPDATE(?City,?City+2) !塞     ᫥ 

. ⠪: Field Equate Labels


USESYMBOLS                 (᪨ 誠,   ࠬ窨)

             USESYMBOLS([string])


string              ப ⠭  ६, 
                    ᯮ㥬 ᨬ. ᫨  ,  -
                     ⠭ .

楤 USESYMBOLS  ।⠢  誨,  ࠤ-
  祪ᮢ ᪨, ᯮ 㦠  -
.

᫨    ᯮ㮢 ᢮ ࠦ  㪠
⮢,    㧨  ࠭  - ⨫⮩.
   㦥, 뢠  USESYMBOLS   ⮣,
⮡ 㪠,   ᨬ  ( ASCII)  뫨  .
USESYMBOLS 筠  LOADSYMBOLS,       㦥
㦥 .

⥫쭮, ⮡ ᨬ   , 㪠묨  STRING   -
짮 -   ணࠬ, ⠪    ਢ-
  祭    䥪⠬.

᫨ STRING  ,  ᯮ ⠭   ᨬ-
  ᥢ䨪.

஡ ᬮ  ᠭ LOADSYMBOLS.

 襭 ணࠬ,   ਢ   ࢮ-
砫 . ,  ⠭  ६ ᯮ RUN
 RUNSMALL.

ਬ:

  USESYMBOLS                       !⠭  ᨬ
  USESYMBOLS('<1,198,2,33,207,5,32,209,11,32,211,19,32>')
                                   ! ᠬ,   
  USESYMBOLS('<170>') ! ASCII 170  誨, ⠫쭮 ⠭-
  		      ! ⭮.
  USESYMBOLS('<228,229,230,231,232,233,234,235,236,237,238,239,|
    240>')                      !ᯮ㥬 ᨬ 228  240
. ⠪: LOADSYMBOLS

		      


CHOICE                          (⭮⥫쭠  )

             CHOICE([field])


field               EQUATE-⪠  ⨯ LIST, OPTION, POINT.

㭪 CHOICE 頥 浪  ࠭  
 OPTION, LIST    POINT.  맢  
ࠬ஢, CHOICE 頥  浪  ࠭  -
  ᫥ LIST, OPTION  POINT, 襭 ஬
ACCEPT.

CHOICE 頥  浪   ࠭ RADIO-  
 ⨯ STRING   OPTION. 浪   ,
  ⭮⥫쭠   砫 ᠭ . -
   浪  1, ன - 2  ..

CHOICE 頥   । (QUEUE), ࠭  
⡮.

CHOICE 頥  㪠⥫ (POINT)   REPEAT-,
 襭 POINT-.   祭 頥  ᭠
६ (INDEX) REPEAT-.

頥 ⨯ : LONG

ਬ:

Screen  SCREEN
          ROW(4,13) OPTION,USE(MenuField),REQ ! 
          ROW(5,13) STRING(' ') !   1
          ROW(7,13) STRING(' ') !   2
          ROW(9,13) STRING(' ')  !   3
          ROW(11,18) STRING('室')          !   4
        .
        CODE
        LOOP
          ACCEPT
          EXECUTE CHOICE() ! ᨬ  ࠭ 
			   !  믮    ⢨:
            AddRec         !   
            PutRec         !  ᬮ/ 
            DelRec         !  㤠 
            RETURN         !   ࠡ
        . .


COL                                              ( ⮫)

             COL([ screen ])
                    field 
                  variable


screen              ⪠ SCREEN- (࠭)

field                 EQUATE-⪠ 

variable            ⪠  ⨯ STRING

COL  ࠬ஢, 頥  ᫥ ⮫,  -
஬ 뫮 饭.

᫨  ࠬ SCREEN, COL 頥  ࢮ ⮫-
   ⮬ ࠭.   SCREEN   ࠬ஢  ROWS  COLUMNS
ᥣ 㤥  .  ࠭, ᠭ  
⮬ AT,  COL ୥ 祭 ࠬ COL,   AT.

  ࠬࠬ  FIELD    VARIABLE, 頥  ࢮ
⮫ . ᫨   ⨯ POINT,  頥 祭
।  ⥪饣 ⮫  REPEAT-.

頥 ⨯ : LONG

ਬ:

  SaveCol = COL(Total)         !   :

  SHOW(ROW(),COL()+6,Status)   ! ﭨ 

  BLANK(ROW(?),COL(?),ROWS(?),COLS(?))
                               ! ⥪饥 


COLS                                            (᫮ ⮫殢)

             COLS([ screen ])
                     field 
                   variable


screen              ⪠ SCREEN-.

field                 EQUATE-⪠ .

variable            ⪠ ࠭  ⨯ STRING.

㭪 COLS 頥 ᫮ ⮫殢,  ⮬  -
. COLS  ࠬ஢, 頥 ᫮ ⮫殢  䨧᪮
࠭ (⥪騩 ⥪⮢ ०). ᫨  ࠬ SCREEN, 
頥 ਭ ࠭  ⮫.

᫬    ࠬ  FIELD   VARIABLE, 頥 ᫮
⮫殢,  .

頥 ⨯ : LONG

ਬ:

  R# = ROWS()     !࠭塞 ᫮ ப  䨧᪮ ࠭
  C# = COLS()     !࠭塞 ᫮ ⮫殢  䨧᪮ ࠭
  GraphicScreenProc  !뢠 楤, ࠡ  䨪
  SETTEXT(R#,C#)     !⠭ ।騩 ⥪⮢ ०

  SaveCols = COLS(Total)     !࠭塞 ਭ  :

  SHOW(ROW(),COL()+COLS(?)+1,Status)   ! ﭨ 

  BLANK(ROW(?),COL(?),ROWS(?),COLS(?))
                             ! ⥪饥 

. ⠪: SETTEXT, ROWS


CONTENTS                             (ᮤন USE-६)

             CONTANTS(field)


field                 EQUATE-⪠ .

㭪 CONTENTS 頥 ப, ᮤঠ 祭  USE--
६    ⨯  ENTRY, OPTION  (STRING   RADIO) 
TEXT.

USE-६   , 祬 蠡 ଠ 易
  .  ⨯ TEXT   ந *-
 , 祬   USE-६. CONTENTS ᥣ -
頥 ப , ࠢ   USE-६.

頥 ⨯ : STRING

ਬ:

  IF CONTENTS(?LastName) ='' AND CONTENTS(?FirstName)
                               !᫨   䠬 
     Scr:Message = 'Must Enter a First or Last Name'
                               !  뢥 ᮮ饭  訡
  .


FIELD                               (᫥ 襭 )

             FIELD()


㭪 FIELD 頥   ,  ஬ 뫮  饭
᫥ ࠧ.  ᢠ ⥫  
࠭, ᯮ騬 USE-६  ⮬ 浪,  ஬ 
ᠭ   SCREEN-. ⥫   ᢠ
ᥬ ⠬ ⨯ MENU  ITEM  PULLDOWN-.   ⥪
ணࠬ  ,  筮,    EQUATE-⪨ 
 EQUATE-⪨ ⮢ .

頥 ⨯ : LONG
(.. -     ⢥   ࠭...)

ਬ:

Screen SCREEN
         ROW(4,13) ENTRY(@N4),USE(Fieldl)
         ROW(5,13) ENTRY(@N4),USE(Field2)
         ROW(6,13) ENTRY(@N4),USE(Field3)
         ROW(7,13) ENTRY(@N4),USE(Field4)
      .
  CODE
  LOOP
    ACCEPT
    CASE FIELD()                  !ࠢ ।஢
    				  !  
      OF ?Field1                  !  1
        IF Field1 = 0             ! ᫨ ,
          BEEP                    !   㪮 ᨣ
          SELECT(?)               !     
        .
      OF ?Field2                  !  2
        IF Field2 > 4             !  ᫨   4
          Scr:Message = '㬬    4'
          ERASE(?)                !     
          SELECT(?)               !      ।஢ 
        ELSE                      !  祭 ⨬?
           CLEAR(Scr:Message)     !     ப ᮮ饭
        .
       OF ?Field4                 !  4
          BREAK                   !   横 ࠡ⪨
     . .                          ! ஢ CASE  LOOP


FIELDS                                   (᫮   ࠭)

             FIELDS()


㭪 FIELDS 頥 ᫮ , ᯮ USE-६-
,  ⥪饩 SCREEN-. ᫨     -
,  FIELDS 頥 .

頥 ⨯ : LONG

ਬ:

   SELECT(FIELDS())                ! ᫥ 

   ERASE(?,FIELDS())               ! 騥 


REFER                            (뫮 饭    )

             REFER()


㭪 REFER 䮧頥 1 (⨭) ᫨ 뫮 饭  ᫥
 襭 ,  0 () ᫨ 饭  뫮. -
饭 ந室      ⭮  ᨬ, 롮
 OPTION   POINT   ।  㪠⥫  ⡮.
REFER 頥 ⨭,  ᫨   뫨    ᨬ
,   뫨   ࠭.

頥 ⨯ : LONG

ਬ:

Screen SCREEN
         ROW(4,13) ENTRY(@N4),USE(Fieldl)  !  
         ROW(5,13) ENTRY(@N4),USE(Field2)  !  
         ROW(6,13) ENTRY(@N4),USE(Field3)  !  
         ROW(7,13) ENTRY(@N4),USE(Field4)  !  
       .
  CODE
  LOOP
    ACCEPT
    CASE FIELD()                  !ࠢ ।஢
    				  !  
      OF ?Field1                  !  1
        IF Field1 = 0             ! ᫨ ,
          BEEP                    !   㪮 ᨣ
          SELECT(?)               !     
        .
       OF ?Field4                 !  4
          BREAK                   !   横 ࠡ⪨
     . .                          ! ஢ CASE  LOOP


ROW                                               ( ப)

             ROW([ screen ])
                    field 
                  variable


screen              ⪠ SCREEN-.

field                 EQUATE-⪠ .

variable            ⪠  ⨯ STRING.

ROW  ࠬ஢ 頥  ᫥ ப,   ன
ந諮 饭. ᫨  ࠬ SCREEN<  ROW  -
頥 䨧᪨  ப  ࢮ ப ࠭.   SCRE
EN  ࠬ஢  ROWS  COLUMNS,  ᥣ 頥 1.  ᫨
࠭ ᠭ  ਡ⮬ AT,  ROW 頥 祭  ࠬ
 ROW   AT.

 ࠬ஢ FIELD  VARIABLE 頥  ࢮ ப
 ( ⨯ TEXT, BUTTON,  LIST  IMAGE    -
쪮 ப).  ᫨   ⨯ POINT,   頥 祭
। ⥪饩 ப  REPEAT-.

頥 ⨯ : LONG

ਬ:

  SaveRow = ROW(Total)              !Save row of screen total

  SHOW(ROW(),COL()+6,Status)        !Display the line status

  BLANK(ROW(?),COL(?),ROWS(?).COLS(?))
                                    !Blank out the current field


ROWS                                               (᫮ ப)

             ROWS([ screen ])
                     field 
                   variable


screen              ⪠ SCREEN-.

field                 EQUATE-⪠ .

variable            ⪠  ⨯ STRING.

㭪 ROWS  頥    ࠭   ப. 
ࠬ஢ 頥  䨧᪮ ࠭ (⥪騩 ⥪-
 ०). ᫨   ࠬ SCREEN,  頥  
⥪饣 ࠭.

᫨  ࠬ FIELD  VARIABLE,  頥 
  ப.  ⨯ TEXT, BUTTON, LIST, IMAGE  POINT  -
    祬   ப.

頥 ⨯ : LONG

ਬ:

  R# = ROWS()     !࠭塞 ᫮ ப  䨧᪮ ࠭
  C# = COLS()     !࠭塞 ᫮ ⮫殢  䨧᪮ ࠭
  GraphicScreenProc  !뢠 楤, ࠡ  䨪
  SETTEXT(R#,C#)     !⠭ ।騩 ⥪⮢ ०

  Y#=ROW(Screen1)+(ROWS(Screen1)/2)!塞 業ࠫ ப
  X#=COL(Screen1)+(COLS(Screen1)/2)!--//-- 業ࠫ ⮫

  SHOW(Y#-1,X#-1,'')  !饭    業 Screen1
  OPEN(Screen2)       !뢠 Screen2  業 Screen1

  BLANK(ROW(?),COL(?),ROWS(?),COLS(?))
                       ! ⥪饥 

. ⠪: SETTEXT, COLS


SELECTED                          (࠭  ࠡ⪨ )

             SELECTED()


㭪 SELECTED 頥  ࠭    -
.  , ஥  ACCEPT 㤥 ࠡ뢠 ᫥-
騬. 祭 㭪樨  SELECTED 筮 ।  "⢥-
" 浪 롮 ,  ᯮ ஬  AC-
CEPT (冷,  ஬  ᠭ  SCREEN-).  
冷  , ᯮ  SELECT.

頥 ⨯ : LONG

ਬ:

  SavField = SELECTED()      !࠭  ⥪饣 

  IF SELECTED() = ?Cus:Company AND Cus:CustType - ''
    SELECT(?Name)            !ய   ᫨ 
			     !ਭ 䨧᪮ 
  .

. ⠪: ACCEPT, SELECT


STYLES            (頥 ७ ᨢ ⮢ ⨫)

             STYLES()


㭪 STYLES 頥 256- ப, ᮤঠ ⥪騥
祭 ७ ᨢ  梥⮢ ⨫.

७ ᨢ   梥⮢  ⨫ -  256- ᨢ,
࠭騩 ⥪騥   梥⮢ ⨫.    㬥
 0  255.  , 砫쭮,  祭,  ࠢ
  (-[0]=0, -[1]=1..-[255]=255).  ਡ
 , ᯮ騩  梥⮢ ⨫, 頥  -
 ᨢ   ।  梥   ⭮   梥⮢
⨫.

ᨢ ਮ 㬥 稭  ,  ७ -
ᨢ  梥⮢ ⨫ 㬥  . ⮬, 
 ப ᮮ⢥   ᨢ, ன
ࢮ  ..

頥 ⨯ : STRING(256)

ਬ:

StyleCodes STRING(256)   !ணࠬ ᨢ ⨫
StyleArray BYTE,DIM(256),OVER(Sty]eCodes)
			 !ᬠਢ ப  ᨢ

Screen SCREEN,COLOR(0)   !  㬮砭   ୮
         ROW(2,3) ENTRY(@N4),USE(Fieldl),COLOR(0,1,2)
         ROW(3,3) ENTRY(@N4),USE(Field2),COLOR(0,1,2)
       .

  CODE
  StyleCodes = STYLES()   ! ⥪騥 ⨫
  StyleArray[1] = 31      !મ   -  ⨫: 0
    ! ணࠬ ᨢ #1 ᮮ⢥  #0
    !७ ᨢ
  StyleArray[2] = 48      !  ⭮ -  ⨫: 1
  StyleArray[3] = 23      !   -  ⨫: 2
  SETSTYLES(StyleCodes)   !१ ᨢ ⨫
  OPEN(Screen)            !࠭ 㤥 મ  ᨭ. 
                          !୮  ᠫ⭮ (⨢)
  DISABLE(?Field2)        !Field2   ᨭ (⥭)

. ⠪:  ⮢ ⨫, SETSTYLES, GETSTYLES

ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.


		        10 - 

 ⮢.......................................... 10-1
     REPORT (뢠  )................... 10-1
     APPEND (뢠 뢮   䠩)........... 10-3
     DEVICE ( ன⢮,  ஥ 뢥 ).. 10-3
     LENGTH (᫮ ப  ࠭)...................... 10-4
     LINE (६ - 稪 ப)..................... 10-4
     PAGE (६ - 稪 ࠭)................... 10-5
     PRINTER (᪠ প ਭ)............... 10-5
     WIDTH (ᨬ쭠 ਭ ࠭).................. 10-6

 ............................................ 10-7
     HEADER ( ࠭, 孨 )....... 10-7
     DETAIL (⥫ ).................................. 10-9
     FOOTER ( ࠭,  )......... 10-11

ਡ ⮢ .................................. 10-13
     ALLOW (஫ 祩 ப)....................... 10-13
     ALONE ( DETAIL   HEADER/FOOTER)... 10-14
     FIXED ( 䨪஢ )................. 10-14
     SEPARATE (஬⮪  ⠬ )......... 10-15

饭 ........................................... 10-16
     ROW (ப).......................................... 10-16
     COL (⮫)......................................... 10-17
     SUPPRESS (  , ᫨  ⮩)........ 10-17

  .............................................. 10-18
     CONTROL (ࠢ ᫥⥫쭮  ਭ). 10-18
     STRING (६ )............................ 10-19
     TEXT (筮  )...................... 10-20

ਡ ............................................. 10-21
     CLIP ( 墮⮢ ஡)....................... 10-21
     LFT, RHT, CENT (⮤ ࠢ )............ 10-21
     UPR, LWR, CAP (⮤ ⠫樨).................. 10-22
     USE (६, 易  )................... 10-23
     WRAP (ࠧ ७ ᫮)......................... 10-24

 ............................................. 10-25
     OPEN (   ࠡ⪨).................... 10-25
     CLOSE ( ⥪騩 )......................... 10-25
     PRINT (  )..................... 10-26
     ROWS (⢮ ப)............................... 10-26
     ९ ࠭................................. 10-27

 ࠢ  ਭ................... 10-27

		        


REPORT                              (뢠  )

⪠        REPORT[APPEND][DEVICE()][LENGTH()][LINE()][PAGE()]
                   [PRE()][PRINTER()][WIDTH()]

[⪠]        [HEADER[ALLOW()][FIXED][PRE()][SEPARATE()]
                 [ROW()]
                 [COL()]
                 [SUPPRESS()]
[⪠]                      [STRING()]
[⪠]                      [TEXT()]
[⪠]                      [CONTROL()]
               .]
[⪠]        [DETAIL[ALLOW()][ALONE][FIXED][PRE()][SEPARATE()]
                 [ROW()]
                 [COL()]
                 [SUPPRESS()]
[⪠]                      [STRING()]
[⪠]                      [TEXT()]
[⪠]                      [CONTROL()]
               .]
[⪠]        [FOOTER[ALLOW()][FIXED][PRE()][SEPARATE()]
                 [ROW()]
                 [COL()]
                 [SUPPRESS()]
[⪠]                      [STRING()]
[⪠]                      [TEXT()]
[⪠]                      [CONTROL()]
               .]
             .


APPEND                  䠩.

DEVICE              ன⢮  뢮 .

LENGTH              ᨬ쭮 ᫮ ப  ࠭.

LINE                ६ - 稪 ப.

PAGE                ६ - 稪 ࠭.

PRE                 䨪    .

PRINTER              ਭ  䠩 ᠭ ਭ-
		    ஢.

WIDTH               ᬠ쭠  ப.

HEADER               ࠭.

DETAIL               .

FOOTER               ࠭.

ALLOW                쭮 ᫮ ப, ஥ 
                    ய      -
                    .

ALONE               뢠     .

FIXED               뢠  䨪஢ .

SEPARATE              ᫮  ப   ⠬
                    .

ROW                  ப.

COL                  ⮫.

SUPPRESS              ⮣ .

STRING              ६  ᨬ쭠 ⠭.

TEXT                筮 ᨬ쭮 .

CONTROL             ࠢ騩  ਭ.

 REPORT  砫 -. HEADER, DETAIL 
FOOTER -  ,    ନ .  
    ஬ OPEN.  ⮣  -
  뢮   (1) ஬ PRINT.  ९-
 ࠭  ⮬᪨   HEADER 
FOOTER. ᪮  㬥  - 㪮⢮  ,   
ਡ  , 易   ⠬,  ᬮਬ  
  ஡.  筮,    ਮ  ""  
। ଠ஢     
 ࠭஢ ࠢ ᨭ⠪ᮬ.  ⮬ ⠭ -
易⥫ 筮 ᮧ  ⮢. (2)

(...
(1) -  뢮    ࠧ㬥  ⮫쪮 뢮  
      ਭ,       ன⢮,  ਣ  뢮
      ନ஢ , ਬ 䠩  ࠭.
(2) -    (19.05.94)     Clarion Da-
      taBase Developer  3.007.105,   ன "筮  ᮧ"
      ⮢,  筥 ࠢ ⮣,    ⨫  -
      ,   易⥫쭠!)

ਬ:

CustRpt       REPORT                    !  㯠⥫
                   !ᠭ ⮢ 
              .                         ! ᠭ 


APPEND                      (뢠 뢮   䠩)

             APPEND


APPEND ࠡ⠥   ਡ⮬ DEVICE. ᫨  ⢥  -
ன⢠      䠩,  ࠬ APPEND   -
   騩 䠩,   㤥  ᠭ  
䠩.

ਬ:

Report  REPORT,DEVICE('MYFILE.RPT'),APPEND
                               ! 뢠   䠩-
			       !  .
                !ᠭ ⮢ 
        .


DEVICE             ( ன⢮,  ஥ 뢥 )

             DEVICE()


                ப ⠭, ६  ࠦ
                   饥 ன⢮   䠩.

ਡ  DEVICE  ன⢮,  ஥ 㤥  뢮-
 . ᫨      ⠭⭮  ன-
⢮ DOS, ࠧ㬥,    䠩. ᫨ ,  
䠩,  䠩 ᮧ  㪠 ᪥  㪠  ⠫-
. ᫨  / ⠫  ,  䠩 ᮧ  ⥪-
饬 ⠫ ⥪饣 ᪠. ᫨  䠩 㦥  ,
  㤥  饭 , ᫨    㫥   ਡ
APPEND. ᫨ ᯥ䨪 䠩 ४⭠,  DEVICE -
   ⠥  LPT1. ᫨  - CON,    㤥
뢮   ࠭, 稭   ⥪饩  樨 . 
ᯮ짮 SETCURSOR   ⠭  ।   뢮
 ࠭.      뢥   ᫥騥 ⠭
ன⢠ :

       CON        ᮫
       PRN         ࠫ 
       LPT1        ࠫ 
       LPT2       ன --/-- --/--
       LPT3       ⨩ --/-- --/--
       AUX         ᫥⥫ 
       COM1        ᫥⥫ 
       COM2       ன ᫥⥫ 
       NUL        ⮥ ன⢮ (   $%)

ਬ:

Report  REPORT,DEVICE('LPT2')    ! -  ன ਭ
Report1 REPORT,DEVICE('C:\REPORTS\CUSTLST.RPT')! -  䠩
Report2 REPORT,DEVICE(DeviceName)! ன⢠ ࠭  -
				 !  ६ DEVICENAME

. ⠪:   SETCURSOR


LENGTH                                 (᫮ ப  ࠭)

             LENGTH(value)


value               ᫥ ⠭  ६.

ਡ LENGTH  ᨬ쭮 ᫮ ப  ࠭. -
᪨  室      ࠭ ந室  ᭮
祭 VALUE. ᫨ VALUE=0,  ᫥ ९ -
  몫砥.  VALUE   ᫮_ப__HEADER__FOOTER
㤥 ᫮ ப, 㯭   DETAIL-.

 ਭ ᠬ  ᫥  ࠭.  ᫨ VALUE
   ࠢ ७   ࠭  ਭ,  
ந  ॢ ଠ.

ਬ:

CustRpt  REPORT,LENGTH(60)        !  60 ப  ࠭
               !ᠭ ⮢ 
         .                        ! ᠭ 

CustRpt2 REPORT,LENGTH(RptLength)!᫮ ப  ࠭ -
				 !  ६ RptLength
               !ᠭ ⮢ 
         .                       ! ᠭ 

. ⠪: ९ ࠭


LINE                                (६ - 稪 ப)

             LINE(variable)


variable            ⪠ ᫮ ६.

ਡ  LINE   ६,   ⠭ 稪
ப.  ⨨ ,  ६ 砥 祭 1 
뢠     ९ ࠭.  
 HEADER,  DETAIL   FOOTER, ६  㢥稢 
᫮ ⠭ ப.  ६  ᯮ짮, -
ਬ,  㬥樨 ப .

ਬ:

CustRpt REPORT,LINE(LineNbr)       !稪 - ६ LineNbr
                  !ᠭ ⮢ 
        .                          ! ᠭ 

. ⠪: ९ ࠭


PAGE                              (६ - 稪 ࠭)

             PAGE(variable)


variable            ⪠ ᫮ ६.

ਡ  PAGE   ६,   㤥 ᯮ짮-
  稪 ࠭.  ६  㤥 ᯮ짮-
      ⥪饩 ࠭.   ⨨ ,
६ ⠭  ,  㢥稢   -
 ࠭   ࠢ ணࠬ.

ਬ:

CustRpt  REPORT,PAGE(PageCount)  !稪 ࠭ - PageCount
                    !ᠭ ⮢ 
         .                       ! ᠭ 


PRINTER                          (᪠ প ਭ)

             PRINTER(name)


name               ப ⠭, ६  ࠦ
                   ᮤঠ  ਭ,  ⮬ ,   -
                   ஬    䠩 ᠭ ਭ஢.

PRINTER    প ਭ   . -
 NAME ᮤন  ਭ, ᯮ㥬    -
,  ⮬ ,       䠩 ᠭ  ਭ-
஢.

 ᠭ ਭ஢,  㬮砭, PRINTER.CTL.   -
  ,   ६ 㦥 CLAPRINTER.   
 :  䠩 䨣樨 ணࠬ (.INI-䠩),   -
 ப   믮 ணࠬ, ஬  SETCOMMAND
 ஬  SET.

ਬ:

Report  REPORT,PRINTER('EPSON LQ-1500')
                                   !ᯮ㥬 Epson LQ-1500
                !ᠭ ⮢ 
        .
        CODE
        SETCOMMAND(' CLAPRINTER=Control.Prn')
                                 !塞 䠩 ᠭ ਭ஢
        OPEN(Report)

. ⠪: SETCOMMAND


WIDTH                             (ᨬ쭠 ਭ ࠭)

             WIDTH(value)


value               ᫥ ⠭  1  255.

ਡ WIDTH   ᨬ쭮  ⢮ ᨬ   ᠬ
 ப .  祭 VALUE ᯮ  ଠ஬
⮢  ਧ⠫쭮 樮஢  業஢.

ਬ:

CustRpt  REPORT,WIDTH(80)          !Report, max width 80 columns
                !ᠭ ⮢ 
         .                         ! ᠭ 

			 


HEADER                  ( ࠭, 孨 )

[⪠]      [HEADER[ALLOW()][FIXED][PRE()][SEPARATE()]
               [ROW()]
               [COL()]
               [SUPPRESS()]
[⪠]                    [STRING()]
[⪠]                    [TEXT()]
[⪠]                    [CONTROL()]
             .]


ALLOW               쪮  ப,    ,  ⠢  
                    ࠭   DETAIL-.

FIXED                 䨪஢ .

PRE                 䨪  ⮢ HEADER-.

SEPARATE            쪮 ப ய ᫥ .

ROW                   ப    ⨯  STRING,  TEXT
                     CONTROL.

COL                  ⮫    ⨯  STRING,  TEXT
                     CONTROL.

SUPPRESS              ப, ᫨  .

STRING              ,  ᮤঠ饥  祭  ६  
		    ᨬ쭠 ⠭.

TEXT                筮 ᨬ쭮 .

CONTROL             ࠢ ᫥⥫쭮 ਭ.

 HEADER-  ப,     砫
 ࠭. HEADER-   窮  
஬ END.     ⮫쪮  . -
     뢥   ஬  PRINT. ᫨
⮣  뫮,   ⮬᪨ ⠥    ࢮ
  DETAIL,  ன  ਡ ALONE.  -
⮬᪨ ⠥  ९ ࠭.

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             ! 
           .                    !   ᠭ 
         .                      ! ᠭ 

. ⠪: ९ ࠭


DETAIL                                             (⥫ )

[⪠]      [DETAIL[ALLOW()][ALONE][FIXED][PRE()][SEPARATE()]
               [ROW()]
               [COL()]
               [SUPPRESS()]
[⪠]                    [STRING()]
[⪠]                    [TEXT()]
[⪠]                    [CONTROL()]
             .]


ALONE                DETAIL    -
                      .

ALLOW               쪮  ப,    ,  ⠢  
                    ࠭   DETAIL-.

FIXED                DETAIL   䨪஢
                    .

PRE                 䨪  ⮢ DETAIL-.

SEPARATE            쪮 ப ய ᫥ DETAIL.

ROW                   ப    ⨯  STRING,  TEXT
                     CONTROL.

COL                  ⮫    ⨯  STRING,  TEXT
                     CONTROL.

SUPPRESS              ப, ᫨  .

STRING              ,  ᮤঠ饥  祭  ६  
		    ᨬ쭠 ⠭.

TEXT                筮 ᨬ쭮 .

CONTROL             ࠢ ᫥⥫쭮 ਭ.

DETAIL-,  ப, ⠢騥 ⥫ .  -
 稢 窮  ஬ END.    
᪮쪮 DETAIL-.

DETAIL-    ⠥  ⮬᪨, ᫥-
⥫쭮,     ⠭ ஬ PRINT.  -
⮣,  DETAIL-    ᢮ .

DETAIL-   ⠭  室. -
   ᪮쪮 DETAIL-,    ,
᪠   易⥫       㯯
  ࠧ   ᨬ  ⠥ .

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
GroupHead  DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
CustDetail DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
         .                      ! ᠭ 

. ⠪: PRINT


FOOTER                    ( ࠭,  )

[⪠]      [FOOTER[ALLOW()][FIXED][PRE()][SEPARATE()]
               [ROW()]
               [COL()]
               [SUPPRESS()]
[⪠]                    [STRING()]
[⪠]                    [TEXT()]
[⪠]                    [CONTROL()]
             .]


ALLOW               쪮  ப,    ,  ⠢  
                    ࠭   DETAIL-.

FIXED                FOOTER   䨪஢
                    .

PRE                 䨪  ⮢ FOOTER-.

SEPARATE            쪮 ப ய ᫥ .

ROW                   ப    ⨯  STRING,  TEXT
                     CONTROL.

COL                  ⮫    ⨯  STRING,  TEXT
                     CONTROL.

SUPPRESS              ப, ᫨  .

STRING              ,  ᮤঠ饥  祭  ६  
		    ᨬ쭠 ⠭.

TEXT                筮 ᨬ쭮 .

CONTROL             ࠢ ᫥⥫쭮 ਭ.

  FOOTER  ᮤন  ப,     
  ࠭.  FOOTER-   樢 窮
 ஬ END.     ⮫쪮  .

FOOTER ⮬᪨ ⠥   ࠭   ९
࠭.   ⯥  ஬ PRINT.  -
 ⮬᪨ ⠥  ᫥ ࠭   -
⨨ , ஬  ⮣ ,   ᫥ ⠭
DETAIL-   ਡ ALONE.

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
GroupHead  DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
CustDetail DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
Foot       FOOTER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
         .                      ! ᠭ 


		     


ALLOW                                  (஫ 祩 ப)

             ALLOW(value)


value               ᫥ ⠭  ६,  -
		    ঠ ᫮ ப.

ਡ ALLOW ࠧࠡ⠭   "",   ப,
 . VALUE  쭮 ᫮ ப, ஥ 
⠢    DETAIL- ᫥   ,
  㣨  DETAIL-. ᫨   ࠧ饭 DETAIL-
  墠⠥ ப,  ந室  .

⨬,   LENGTH(60)  50 ப 㦥 ⠭  -
  (७  稪  ப=51).  ᫨   3
ப,    DETAIL-  ⠥ 7  ப. ᫨ DETAIL-
  5 ப,   ଠ쭮 -  墠  .
᫨   DETAIL-  ਡ ALLOW(5),   ந
  ।  DETAIL-. -
 䬥⨪: ⠫ 7  ப,  5 (   ᠬ
DETAIL-) 稬 .  2,  ᪮쪮 , 祬 5,
ॡ㥬 ਡ⮬ ALLOW(5).

 ᫥ ᢮    ࠭ ᯮ   
祭 ਡ⮢ SEPARATE.

ਬ:

CustRpt  REPORT,LENGTH(60)       !60 ப  ࠭ 
Head       HEADER
             !ᠭ ⮢ 
           .
GroupHead  DETAIL,ALLOW(5)       !Must allow 5 CustDetail lines
  !5 ப -    ! after the group header
           .
CustDetail DETAIL                ! DETAIL
  !1 ப -  
           .
Foot       FOOTER           !    3 ப
  !3 ப -  
           .
        .                        ! ᠭ 


ALONE              ( DETAIL   HEADER/FOOTER)

             ALONE


 ਡ    ⮬,  DETAIL-   
  ࠭   - HEADER  FOOTER.   -
짮 -   ⮢  ࠭ .

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
TitlePage  DETAIL,ALONE         !DETAIL- 쭮
				!
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
CustDetail DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
Foot       FOOTER               !  砫 ᠭ 
             !ᠭ ⮢ 
         . .                    !     


FIXED                            ( 䨪஢ )

             FIXED


FIXED ᯮ ᮢ⭮  ஬ SUPPRESS.   ࠭-
,    㤥   ᫮ ப 
࠭. 訬 ਬ஬ ⮬  㦨 ⮢  ⨪-
,          ப,   ᠬ
⨪⪨   ﭭ . FIXED  -
 ⠪  ⢮  ப,  뫮 ய饭  -
஬ SUPPRESS (-᪨ SUPRESSed :).

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
GroupHead  DETAIL               !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
                                !   ᠭ DETAIL
           .
CustDetail DETAIL,FIXED         !  detail 䨪஢ 
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
Foot       FOOTER               !  砫 ᠭ 
             !ᠭ ⮢ 
         . .                    !     



SEPARATE                    (஬⮪  ⠬ )

             SEPARATE(value)


value               ᫥ ⠭  ६.

ࠬ ਡ  SEPARATE   ᫮   ப, 
  ⠭ ࠧ  ᫥ .

ਬ:

CustRpt  REPORT                 !  㯠⥫
Head       HEADER               !  砫 ᠭ 
             !ᠭ ⮢ 
           .                    !   ᠭ 
GroupHead  DETAIL,SEPARATE(2)   !
             !ᠭ ⮢ 
                                !   ᠭ DETAIL
           .
CustDetail DETAIL,SEPARATE(1)   !  砫 ᠭ DETAIL
             !ᠭ ⮢ 
           .                    !   ᠭ DETAIL
Foot       FOOTER               !  砫 ᠭ 
             !ᠭ ⮢ 
         . .                    !     

		        


ROW                                                     (ப)

             ROW(row[,column])


row                 ᫥ ⠭,   
                      ப    ⨯  STRING,
		    TEXT  CONTROL  ⠢   HEADER,
		    DETAIL  FOOTER.

column              ᫥ ⠭,   
                      ⮫  ⮫   -
                     STRING, TEXT  CONTROL  ⠢ -
                     HEADER, DETAIL  FOOTER.

ROW ᯮ   ࠢ ࠧ饭    
HEADER, DETAIL  FOOTER.  ࠧ饭     
, ROW ஦ ॢ ப,  ⪨  -
.

᫨ ய饭 ࠬ COLUMN,   頥   ⮫-
 㪠 ப. ࠬ COLUMN ஦ ஡,  -
⥫  ஬⪮  ﬨ.

ਬ:

CustRpt    REPORT                    !  㯠⥫
CustDetail   DETAIL,SEPARATE(1)      !  砫 ᠭ DETAIL
               ROW(2,5) STRING(20),USE(Cus:Name)
                                  !Cus:Name  ப 2 ⮫ 5
               ROW(3) STRING(30),USE(Address)
                                     !Address at row 3 col 1
             .                       !   ᠭ DETAIL
           .                         ! ᠭ 


COL                                                    (⮫)

             COL(column)


column              ᫥ ⠭,   
                      ⮫   ⨯  STRING,
		    TEXT  CONTROL,  室   
                    ப  , ᠭ ࠭.

COL ᯮ  ࠧ饭   ப   HEA-
DER, DETAIL  FOOTER.  COL ஦ ஡, ⮡  
஬⪨  ﬨ.

ਬ:

CustRpt    REPORT                    !  㯠⥫
CustDetail   DETAIL,SEPARATE(l)      !  砫 ᠭ DETAIL
               ROW(2.5) STRING(15),USE(FirstName)
                                     !FirstName  .2, ⫡.5
               COL(22) STRING(I).USE(Initial) !Initial  ⫡.22
               COL(24) STRING(15),USE(LastName)
                                     !LastName  ⫡.24
               ROW(3) STRING(30),USE(Address)
                                     !Address  .3 ⫡.1
             .                       !   ᠭ DETAIL
           .                         ! ᠭ 


SUPPRESS                   (  , ᫨  ⮩)

             SUPPRESS(ப)


ப               ப,   .

SUPPRESS  ப,   ⠥, ᫨  ६-
   . 筮 ᯮ  ਡ⮬ FIXED.

ਬ:

CustLabels  REPORT              !⮢ ⨪⪨
CustDetail    DETAIL,FIXED      !detail ﭭ 
                ROW(2,5) STRING(15),USE(Company)
                ROW(3,5) STRING(1).USE(Contact)
                ROW(4,5) STRING(15),USE(Addressl)
                ROW(5,5) STRING(15),USE(Address2)
Citystzip       ROW(6,5) STRING(15)
                SUPPRESS(5)     ! Address2 ?
				!  ப 5
            . .                 ! detail  

			   


CONTROL            (ࠢ ᫥⥫쭮  ਭ)

                       length 
[⪠]      CONTROL( constant )[,USE()]
                       picture


length              ᫥ ⠭.     ⠪
                    ,    USE-६.

constant            ப ⠭, 뫠  ਭ.

picture             ଠ 祭, ᢮ CONTROL-
                    ,  祭 USE-६. LENGTH  
                    ࠧ,   ࠭ 
                     ப. 砫쭮, PICTURE 
                    ஡.

USE                 ६, ᮤঠ ࠢ  ᫥-
                    ⥫쭮.   ⠪ ,  
                     ࠬ஬ LENGTH.

CONTROL  ᨬ  ப,  ࠢ  ⢨ﬨ
ਭ. CONTROL-      ⨯  STRING
 TEXT.  ,      ᯮ짮  
ࠢ     ᫥     ⨯ STRING
 TEXT (:    ᮢᥬ   㢥७,   ॢ fields
that occur following the CONTROL declaration.)

᫨  CONTROL  ਡ USE,   ਭ 뫠 ࠢ-
 ᫥⥫쭮,  ᮤন   USE-६.
 ࠧ  ࠭ ᫥⥫쭮  ࠧ  ⨯
ਭ஢,  ᢠ USE-६ 㦭  ᯮ㥬
   ਭ.

᫨     ਡ PRINTER,  ப  ⠭ 
USE-६   ᮤঠ   ਭ,    ᠭ 
䠩 ࠢ ਭࠬ (PRINTER.CTL).

ਬ:

PrinterType  STRING('EPSON LQ-1500')
ItalicOn     STRING('ITALIC ON')

CustRpt    REPORT,PRINTER(PrinterType)  !  㯠⥫
CustDetail   DETAIL,SEPARATE(1)  !  砫 ᠭ DETAIL
               ROW(2,5) CONTROL(4),USE(ItalicOn)
                                 !ࠢ塞  ६
				 !ItalicOn -  ᨢ
               ROW(2,5) STRING(15),USE(FirstName)
               COL(22) STRING(15),USE(LastName)
               ROW(3,1) CONTROL('COMPRESSED  ON')
                                 !  Control  printer.ctl
               ROW(3) STRING(30),USE(Address)
           . .                   ! ᠭ 

. ⠪: PRINTER


STRING                                       (६ )

                     length          LFT    UPR
[⪠]      STRING(constant)[,USE][,RHT ][,LWR][,CLIP]
                     picture         CENT   CAP


length              ᫮ ⠭,     ப.
                     ⮬ 砥 ப ⮨  ஡.

constant            ப ⠭.  ப ⠭
                    ࠢ  ⠭.

picture             ᯮ     ଠ஢  祭
                    ப   USE-६.  ⮬  砥
                      ப    ࠧ,   
                    ࠭ ଠ஢ ப. 砫쭮
                    ப  ஡.

USE                  ६,  祭 ன -
                     STRING.

LFT, RHT,            ᯮᮡ ࠢ ⥪   ப:
CENT                , ࠢ   業 ᮮ⢥⢥.

UPR, LWR,            ० ⠫樨 ப -  孨
CAP                 ॣ,   ॣ,  ࢠ 㪢  -
                    .

CLIP                뢠,   ப  㤠  墮-
                    ⮢ ஡.

STRING 뢠 ६    樨,  ROW  
COL   HEADER, DETAIL   FOOTER. ᫨    ROW
 COL,  STRING ⠥  ࢮ ⮫ ࠢ   ।-
饣 . ᫨ STRING  ,     ,
  REPORT   .

ਬ:

CustRpt   REPORT,PRINTER(PrinterType)!  㯠⥫
CustDetail  DETAIL,SEPARATE(1)       !  砫 ᠭ DETAIL
              ROW(2,5) STRING(15),USE(FirstName),CLIP
                       STRING(' ')
                       STRING(1),USE(Initial)
                       STRING('.  ')
                       STRING(15),USE(LastName)
              ROW(3,5) STRING(30),USE(Address)
            .
ProdDetail  DETAIL
              ROW(1) STRING(':')
                                   !⠥ ப ⠭
              COL(10) STRING(@n3),USE(Itm:ProductNbr)
              COL(20) STRING(@n2),USE(Itm:Quantity)
ExtPrice      COL(34) STRING(12)   !ଠ ணࠬ (?)
            .
          .


TEXT                                 (筮  )

                                        LFT    UPR
[⪠]     TEXT(rows,colomns)[,USE()][,RHT ][,LWR][,CLIP]
                                        CENT   CAP   WRAP


rows                쪮 ப (ᨬ) .

columns              ᪮쪮 ⮫殢.

USE                  ६,  祭 ன -
                     STRING.

LFT, RHT,            ᯮᮡ ࠢ ⥪   ப:
CENT                , ࠢ   業 ᮮ⢥⢥.

UPR, LWR,            ० ⠫樨 ப -  孨
CAP                 ॣ,   ॣ,  ࢠ 㪢  -
                    .

CLIP                뢠,   ப  㤠  墮-
                    ⮢ ஡.

WRAP                 ७ ᫮.

 ⨯ TEXT    ⥪. ROWS -
 ᨬ   ப, COLUMNS - ਭ  ⮫.
USE-६ ࠧ  ᥣ  COLUMNS ᨬ.  -
⠥  ROWS ᥣ⮢. ᫨ ᥣ⮢  祬 ROWS,  -
 ⮫쪮 ᥣ, ᮤঠ騥 .

ਬ:

CustRpt   REPORT,PRINTER(PrinterType)  !  㯠⥫
ProdDetail  DETAIL                     !Declare the detail line
              ROW(1) STRING('Product:')
              COL(10) STRING(@n3),USE(Itm:ProductNbr)
              COL(20) STRING(@n2),USE(Itm:Quantity)
ExtPrice      COL(34) STRING(12)
              ROW(2,5) TEXT(5,50),USE(Pro:Desc)
                                       ! 50 ⮫殢,  5 ப
            .                          !End detail
          .                            ! ᠭ 

			 


CLIP                                  ( 墮⮢ ஡)

             CLIP


ਡ CLIP 㤠   墮⮢ ஡.

ਬ:

CustRpt   REPORT
CustDetail  DETAIL,SEPARATE(l)
              ROW(2,5) STRING(15),USE(FirstName),CLIP
                                     !FirstName  .2 ⫡.5
                                     ! ᥪ  ࠧ  
                       STRING(' ')   !   ஡
                       STRING(1),USE(Initial)
                                     !Initial  ᫥饬 ⫡.
                                     !    窠  
                       STRING('.  ') !  ஡
                       STRING(15),USE(LastName)
                                     !LastName  ᫥饬 ⫡.
               COL(45) STRING(@P(###)###-####P),USE(Phone)
                                     !Phone  .2 ⫡.45
          . .


LFT, RHT, CENT                       (⮤ ࠢ )

             LFT
             RHT
             CENT


LFT ࠢ , RHT -  ࠢ,  CENT 業 ⥪  
.  ਡ ࠧ襭  ﬨ ⨯ STRING  TEXT.

ਬ:

CustRpt  REPORT
Head       HEADER,SEPARATE(1)
             ROW(2,25) STRING(30),USE(Company).CENT
           .                      !஢  
CustDetail DETAIL,SEPARATE(1)
             ROW(2,5) STRING(15),USE(FirstName),RHT
                                  ! ஢ ࠢ
             COL(22) STRING(1).USE(Initial)
             COL(24) STRING(15),USE(LastName),LFT
                                  ! 䠬 - 
         . .


UPR, LWR, CAP                             (⮤ ⠫樨)

             UPR
             LWR
             CAP


 ⨯ STRING, TEXT   CONTROL  ਡ⮬ UPR 뢮  
㪢 묨.  ਡ LWR  ⠥     ॣ.
ਡ CAP 뢮 ⥪  ଠ  - ࢠ 㪢  -
 ᫮ ,  ⠫ - .

ਬ:
CustRpt  REPORT
Head       HEADER,SEPARATE(1)
             ROW(2,25) STRING(30),USE(Company),CENT,UPR
                                               !묨
             ROW(3,25) STRING(30),USE(Motto),CENT,LWR
                                               !ய묨
           .
CustDetail DETAIL,SEPARATE(1)
             ROW(2,5) STRING(15).USE(FirstName),CAP
                                               ! 
             COL(22) STRING(l),USE(Initial),UPR!묨
             COL(24) STRING(15),USE(LastName),CAP
                                               ! 
             ROW(3) STRING(30),USE(Address)
         . .


USE                              (६, 易  )

             USE(variable)


variable            ⪠ ६.

ਡ USE  ६, 祭 ன ।  -
  STRING, TEXT   CONTROL.  ஬  PRINT 
 ९ ࠭,   HEADER,  DETAIL,
 FOOTER, 祭 USE-६   易  -
  STRING, TEXT  CONTROL.

ਬ:

CustRpt  REPORT
Head       HEADER
             ROW(1,1) CONTROL(5),USE(Boldon)
             ROW(2,25) STRING(30),USE(Company),CENT,UPR
                                                     !묨
             ROW(3.1) CONTROL(5),USE(BoldOff)
             ROW(3,25) STRING(30).USE(Motto),CENT,LWR!묨
           .
CustDetail DETAIL,SEPARATE(1)
             ROW(2,5) STRING(15),USE(FirstName)
             COL(22) STRING(1),USE(Initial)
             COL(24) STRING(15).USE(LastName)
             ROW(3) STRING(30),USE(Address)
           .
ProdDetail DETAIL
             ROW(1) STRING('Product:')
             COL(10) STRING(@n3),USE(Itm:ProductNbr)
             COL(20) STRING(@n2),USE(Itm:Quantity)
ExtPrice     COL(34) STRING(12)
             ROW(2,5) TEXT(5,50),USE(Pro:Desc)
           .
         .                               ! ᠭ 



WRAP                                    (ࠧ ७ ᫮)

             WRAP


ਡ WRAP ࠧ蠥 ७  ᫮   ⨯  TEXT. ७
᫮ ࠭,  ᫮,  騥  ⥪   -
७ᥭ  砫 ᫥饩,  祣   ⥪饩 ப -
 ஡.

ਬ:

CustRpt  REPORT,PRINTER(PrinterType)

ProdDetail DETAIL
             ROW(1) STRING('Product:')
             COL(10) STRING(@n3),USE(Itm:ProductNbr)
             COL(20) STRING(@n2),USE(Itm:Quantity)
ExtPrice     COL(34) STRING(12)
             ROW(2,5) TEXT(5,50),USE(Pro:Desc),WRAP
                                          !襭 ७ ᫮
         . .

			 


OPEN                               (   ࠡ⪨)

             OPEN(report)


report              ⪠  REPORT.

OPEN  ⨢    REPORT.      
०, 祬 ᬮ  -  ⨯ HEADER,
DETAIL  FOOTER.   ६  (   ⪠) 
 ᨬ  ⮣,    .

ਬ:
OPEN(CustRpt)                                   ! 


CLOSE                                    ( ⥪騩 )

             CLOSE(report)


report              ⪠  REPORT.

 CLOSE ⠥  FOOTER (᫨, 筮, ᫥-
 ⠭  DETAIL   ਡ ALONE),  -
뢠    室 䠩 (᫨ ਡ DEVICE  㪠뢠
 䠩). RETURN  楤, 襩 ,   뢠
CLOSE.

ਬ:

CLOSE(CustRpt)                                  ! 


PRINT                                (  )

             PRINT( structure)
                     string  


structure           ⪠  HEADER, DETAIL  FOOTER.

string              ப ࠦ,  ६   ᨬ
                    ࠢ ਭ஬.  ࠬ  -
                     ਡ DEVICE  뢮 ப  -
                    ன⢮ PRN (LPT1).

 PRINT 뢮     ਡ⮬  DE-
VICE ன⢮. PRINT ⮬᪨ 㢥稢 稪  ப
 ࠭  뢠,  室, ९  ࠭.
PRINT ⠪  뢥 ப ।⢥  LPT1.

ਬ:

  PRINT( '⮣:'& FORMAT( Filetot @N10.2) & @LF)
                          !⠥     LPT1
  PRINT(@FF)              !  ()  LPT1
  PRINT(OrderDtl)         !뢥 ப    DEVICE

. ⠪:  ९ ࠭,  ࠢ 
	    ਭ


ROWS                                          (⢮ ப)

             ROWS(structure)


structure           ⪠  REPORT.

㭪 ROWS 頥 ᫮  ப,     
     (HEADER, DETAIL  FOOTER). -
  砥  ᥡ  祭 ਡ SEPARATE,  ப  
ਡ⮬ SUPPRESS 뢠.

頥 ⨯ : LONG

ਬ:

  IF Length - Line > ROWS(Detail)
                          !  , ⮡ ᯥ
			  !  Detail 楫?
    PRINT(Detail)         !  ᫨ ,  ⠥
  ELSE                    !  ᫨ , 
    PRINT(Footer)         !  ᭠砫 ३   ࠭
    PRINT(Header)         !
    PRINT(Detail)         !   㦥 ⥬ ⠥ Detail
  .


  ९ ࠭


९ ࠭ ந室,  PRINT   ࠧ-
  DETAIL  ࠭   筮 ,
⮡ ᫥  DETAIL ⠢ ⮫쪮 , ᪮쪮 -
  ਡ⮬ ALLOW.
 ᠭ,  ந室   .

          ᫨  FOOTER,    ॢ  ப ⠪,
          ⮡ FOOTER   ᠬ  ࠭ (ᮣ᭮  -
          ਡ LENGTH). ⥬ ⠥ ᮡ⢥ FOOTER.

          稪 ࠭ 㢥稢,  稪 ப -
            .

          ᫨  HEADER,   ⠥  稪 ப 㢥
          稢  ᫮ ப,   FOOTER.


 ࠢ  ਭ


@FF[n]              ॢ  (, Form feed, FF, ASCII  12)
		     n ࠧ, ⥬ 뤠 .

@LF[n]              ॢ ப (, Line feed, LF, ASCII 10)
		     n ࠧ.

@CR[n]                 ⪨   (,  Carriage   return,
		    ASCII 13)  n ࠧ.

n                   ᫥  ⠭,    ᪮쪮
                    ࠧ   .  㬮砭 - .

 ࠢ  ਭ ।⠢ ᮡ 騥  -
᫥⥫쭮 ࠢ ਭ஬. 筮 蠡  -
, 蠡  ࠢ ਭ஬  稭    @. 
蠡  ᯮ짮 ᮢ⭮  ஬ PRINT.

ਬ:

   PRINT(@LF3)                              ! 3 
   PRINT(@CR4)                              ! 4 
   PRINT(@FF)                               ! 1 

ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

		     11 -  

 䠩 ..................................... 11-1
     FILE (ᠭ  䠩 )............... 11-1
     CREATE (ࠧ蠥 ᮧ 䠩).................... 11-3
     DRIVER ( ⨯ 䠩 )..................... 11-3
     ENCRYPT (஢ 䠩 )...................... 11-4
     OWNER ( ஫  ஢ 䠩 ).... 11-4
     RECLAIM (ᯮ짮   㤠 ᥩ).... 11-5

  䠩................................. 11-6
     INDEX (뢠 ᪨   䠩)....... 11-6
     KEY (뢠 ᪨  ()  䠩). 11-7
     MEMO (뢠 ⥪⮢ )...................... 11-8
     RECORD (뢠  ).................. 11-9

ਡ  INDEX, KEY  MEMO............................ 11-10
     BINARY (MEMO ᮤন  )............... 11-10
     DUP (ࠧ 騥 祭  )... 11-10
     NOCASE (KEY  INDEX -  ⢨⥫  ॣ). 11-11
     OPT (  㫥 祢  뢠). 11-11

 ࠡ  䠩.................................. 11-12
     BUILD (ந  /   䠩)...... 11-12
     CLOSE ( 䠩 ).......................... 11-14
     COPY (஢ 䠩 )........................ 11-14
     CREATE (ᮧ ⮩ 䠩 ).................. 11-15
     EMPTY ( 䠩 )......................... 11-15
     FLUSH (    ).................. 11-16
     LOCK (   䠩).................... 11-17
     OPEN ( 䠩 )........................... 11-18
     PACK (䨧᪨  㤠 )............ 11-19
     REMOVE ( 䠩 )......................... 11-19
     RENAME (२ 䠩 )................... 11-20
     SHARE ( 䠩 ).......................... 11-21
     STREAM (ࠧ ਧ १ )............. 11-22
     UNLOCK (ࠧ஢ ஢ 䠩)......... 11-23

 ࠡ  ﬨ................................. 11-24
     ADD (  ).......................... 11-24
     APPEND (  )....................... 11-25
     DELETE (㤠 ).............................. 11-26
     GET (   אַ ).............. 11-27
     HOLD (   )................... 11-29
     NEXT ( ᫥  ᫥⥫쭮). 11-30
     PREVIOUS ( ।  ᫥-).. 11-31
     PUT (  ⭮  䠩)................. 11-32
     RELEASE (᢮ ஢ ).......... 11-33
     RESET ( 㪠⥫ ⥪饩 )............... 11-34
     SET (樨஢ ᫥⥫ ࠡ 䠩).. 11-35
     SKIP (ய   ᫥⥫쭮)........ 11-37

㭪樨 ࠡ  䠩................................... 11-38
     BOF (砫 䠩)................................... 11-38
     BYTES (ࠧ 䠩  )........................ 11-39
     DUPLICATE (஢  㡫஢ 祢 ). 11-40
     EOF ( 䠩).................................... 11-41
     POINTER (⭮⥫  )................. 11-41
     POSITION (   ᫥⥫쭮)......... 11-42
     RECORDS (᫮ ᥩ).............................. 11-43
     SEND (ࠢ ᮮ饭 䠩 ࠩ)........ 11-43

ࠡ⪠ ࠭権...................................... 11-44
     COMMIT ( ᯥ譮 ஢ ࠭).... 11-44
     LOGOUT ( ࠭)........................... 11-45
     ROLLBACK ( 訡 ࠭)............ 11-46

		      


FILE                           (ᠭ  䠩 )

⪠       FILE,DRIVER()[,CREATE][,RECLAIM][,OWNER()][,ENCRYPT]
                     [,NAME()][,PRE()]
⪠          [INDEX()]
⪠          [KEY()]
⪠          [MEMO()]
[⪠]        RECORD
                 fields
             . .


DRIVER               ⨯ 䠩 . ਡ DRIVER -
                       ᠭ  FILE.

CREATE                ᮧ  䠩   CREATE 
                    ६ ࠡ ணࠬ.

RECLAIM             蠥 ୮ ᯮ짮 , ᢮-
		     㤠묨 ﬨ.

OWNER                ஫  ஢ .

ENCRYPT              䠩 .

NAME                ⠭  䠩  ⠭ .

PRE                  䨪 ⪨  .

INDEX                ᪨   䠩, 
                      ஥  ६ ᯮ.

KEY                   ᪨  騩 
                    䠩.

MEMO                뢠  ⥪⮢   ६  
                     64K ).

RECORD                  .  -
                     RECORD     ᠭ  
                    䠩.

fields                  RECORD.

FILE   䠩 . ⪠  FILE  -
    㭪, ࠡ  䠩. -
 FILE   窮  ஬ END.

ਡ  FILE, KEY, INDEX, MEMO,  ᠭ 
  ⨯ ,   ᮤঠ  䠩, 楫 -
  ⭮ 䠩 ࠩ. ,   ন-
 䠩 ⥬,   ਡ DRIVER,  ⨨
䠩 맮 ᮮ饭  訡 䠩 ࠩ. ਡ 
() ⨯ , ࠧ襭  ⭮ 䠩  ⥬,
᫥  㬥樨  䠩 ࠩ.

 ६ 믮,   RECORD 뤥   
ᯮ짮  ⢥ ,  ࠭ ,  ⠭
 ᪠.  䠩 易⥫쭮    RECORD.

ਬ:

Names     FILE,DRIVER('Clarion')       !ᠭ  䠩
Rec         RECORD
Name          STRING(20)
          . .                          ! ᠭ 䠩


CREATE                                (ࠧ蠥 ᮧ 䠩)

             CREATE


ਡ CREATE,   ᠭ  䠩,   ᮧ 䠩 
᪥ ஬ CREATE   ணࠬ,  ன   䠩 -
ᠭ.

, ᠭ  ਡ CREATE,   ᮧ  -
 Clarion Data Dictionary Administrator.

ਬ:

Names FILE,DRIVER('Clarion'),CREATE!뢠 䠩  ࠧ蠥
				   ! ᮧ
Rec     RECORD
Name      STRING(20)
      . .                          ! ᠭ 䠩


DRIVER                                 ( ⨯ 䠩 )

             DRIVER(filetype[,driver string])


filetype            ப ⠭, ᮤঠ  -
                     䠩 (Btrieve, Clarion .).

driver string       ப ⠭  ६. ᮤঠ-
                       樨   ࠩ-
		    . ਡ DRIVER ,  ࠩ -
                      ࠡ  䠩. ਡ DRI-
                    VER ॡ   ᠭ 䠩.

ணࠬ  ਮ ᯮ ࠩ  㯠   䠩.
 ࠩ 㦨 ॢ稪  ணࠬ  䠩
⥬,  ᯮ짮        ࠧ
䠩 ⥬.

७ ॠ ⮩    㯠  䠩 -
  䠩 ࠩ.     
  । ࠩ஬ - ࠭祭,  䠩-
 ⥬.  䠩 ࠩ 㬥  ⤥쭮.
 ন , ਡ , ⨯   /
ᨭࠧ 䠩 ⥬ ਢ  㬥樨.

ਬ:

Names     FILE,DRIVER('Clarion')         !砫 ᠭ 䠩
Record      RECORD
Name          STRING(20)
					 ! ᠭ 䠩


ENCRYPT                                  (஢ 䠩 )

             ENCRYPT


ਡ ENCRYPT, ᯮ㥬 ᮢ⭮  ਡ⮬ OWNER, 㪠-
  室 ஠   䠩. ENCRYPT ࠧ襭
    ਡ⮬  OWNER.    ᯮ 16 ।,
쬠 㤭 ஢ ஢ .

(.. - 쭮 ᮬ. ᫨       ਬ-
  OWNER,  ஢ -  ᪮쪨 .)

ਬ:

Names        FILE,DRIVER('Clarion'),OWNER('Clarion'),ENCRYPT
Record         RECORD
Name             STRING(20)
             . .

. ⠪: OWNER


OWNER                ( ஫  ஢ 䠩 )

             OWNER(password)


password            ப ⠭  ६.

ਡ  OWNER    ஫,    ᯮ ਡ⮬
ENCRYPT  ஢ .  ⮤ ஢  -
  ⭮ 䠩 ࠩ.

ਬ:

Customer  FILE,DRIVER('Clarion'),OWNER('abCdeF'),ENCRYPT
                                 !㥬  
				 !஫ "abCdeF"
Record      RECORD
Name          STRING(20)
          . .

. ⠪: ENCRYPT


RECLAIM                (ᯮ짮   㤠 ᥩ)

             RECLAIM


ਡ RECLAIM   ⮬,  䠩 ࠩ 㤥  -
    䠩   ࠭ 㤠, ᫨  ⠪
.  ⨢ 砥  㤥     䠩-
.   ⮤ RECLAIM     䠩 ࠩ 
ন  ᥬ 䠩묨 ⥬.

ਬ:

Names FILE,DRIVER('Clarion'),RECLAIM !   
				     ! ࠭ 㤠.
Record  RECORD
Name      STRING(20)
      . .

		     


INDEX                   (뢠 ᪨   䠩)

⪠        INDEX([-][field])[NAME()][,NOCASE][,OPT]


-                     । ⮩  -
                    ,     ⮩ ⮩, 
                      뢠 (  祭
                     訬),   㬮砭 ஢  -
		    ⠭.

field               ⪠      RECORD 䠩,  
                    ண ந .  -   -
                      .  ६   ਡ⮬ DIM
                    (ᨢ)  ᯮ짮  ⢥ -
                     .

NAME                 䠩  .

OPT                     ᢥ    ,
                       , ᯮ㥬   -
                     ,   ᮤঠ .

NOCASE              ஢ ஢   ॣ.

INDEX 뢠 ""   䠩 . INDEX  -
 ⮫쪮  ஬ BUILD.   ᯮ   㯠 
  浪, ⫨筮  䨧᪮ ࠧ饭 ᥩ  
䠩. INDEX  ᯮ짮   ᫥⥫쭮, ⠪ 
 ந쭮  㯠   䠩.   INDEX-  ࠧ襭
   祭   (duplicated entri-
es).

INDEX  ந  ᭮  祬  .  -
,    ஬     , । 冷
஢ ᥩ  ⮬ .    -
 稬, ᠬ ᫥ - .  饬, 䠩  
  255 ᮢ (/ 祩)      
  255  (    㬬ୠ    ,
⢮  ஥  ),  筮  ᫮ -
  祢 䠩   䠩 ࠩ.

᫨  ᠭ INDEX    ,  ᮧ "-
᪨"  ,      ᯮ짮   
 RECORD  ⢥ ᢮ ,  ᪫祭 -
ᨢ.     ६ ᯮ   -
ࠬ஬  BUILD.  室  ந쭮 -
஢ 䠩  ६ ᯮ (.. -   -
 ,  楫, 楤, ᯮ ࠧ  浪
஢   ⮣  䠩).

ਬ:

Names    FILE,DRIVER('Clarion'),PRE(Nam)
NameNdx  INDEX(Nam:Name),NOCASE        !  
NbrNdx   INDEX(Nam:Number),OPT         !  
Rec        RECORD
Name         STRING(20)
Number       SHORT
         . .

. ⠪: KEY, BUILD


KEY             (뢠 ᪨  ()  䠩)

⪠        KEY([-][field])[NAME()][,NOCASE][,OPT]

-                     । ⮩  砥,
                            ⮩ ⮩, 
                      뢠 (  祭
                     訬),   㬮砭 ஢  -
		    ⠭.

field               ⪠      RECORD 䠩,  
                    ண ந .   -    -
                     . ६  ਡ⮬ DIM (
		    ᨢ)  ᯮ짮  ⢥  -
		     .

NAME                 䠩  .

OPT                     ᢥ    , 
		      , ᯮ㥬  -
		     ,   ᮤঠ .

NOCASE              ஢ ஢   ॣ.

DUP                  䠩  ࠧ襭   -
                     祭ﬨ 祢 .

KEY -   䠩 ,  ⮬᪨ 
 ,   㤠 ᥩ.   ᯮ
 㯠    浪, ⫨筮  䨧᪮  ࠧ-
饭 ᥩ   䠩. INDEX  ᯮ짮    ᫥-
⥫쭮, ⠪   ந쭮  㯠   䠩.

KEY  ந  ᭮  祬  .  冷,
 ஬   , । 冷 ஢
ᥩ  ⮬ .     稬,
ᠬ ᫥ - .  饬, 䠩     255
祩 ( ᮢ)        255  
(   㬬ୠ   , ⢮  
஥ ),  筮 ᫮ 祢   䠩
  䠩 ࠩ.

ਬ:

Names    FILE,DRIVER('Clarion'),PRE(Nam)
NameKey  KEY(Nam:Name),NOCASE,DUP        !  
NbrKey   KEY(Nam:Number),OPT             !  
Rec        RECORD
Name       STRING(20)
Number     SHORT

   CODE
   Nam:Name = 'Clarion Software'       !樠㥬 祢
				       !  
   GET(Names,Nam:NameKey)              !⠥ 
   SET(Nam:NbrKey)                     !ࠡ뢠  浪
				       !  ⠭ 
				       !  NAM:NUMBER

. ⠪: SET, GET, INDEX


MEMO                                  (뢠 ⥪⮢ )

⪠        MEMO()[,BINARY][,NAME()]


               ᫮  ⠭,    ᨬ
                     ⥪  ᨬ.    
                      1  65,536 .

BINARY              뢠,   -   ࠭
                     .

NAME                  䠩,  ஬  室
                    -. ᯮ짮 ⮣ ࠬ -
                      䠩 ࠩ.

( - . ᪠, ⪠, ਬ砭)

MEMO 뢠 ப  ६ , ஥ ࠭
 ᪥. ࠬ   ᨬ ࠧ   ਬ-
砭.    ᠭ  ᠭ  RECORD.
   - 뤥  ⨨ 䠩,  -
஬  ਬ砭 ⭮,  ᢮    -
⨨.

᪨,    255 -   䠩.
筮    ᫮   ᯮᮡ   ࠭   ᪥  
䠩 ࠩ. ᬠਢ MEMO-, 筮,  
 ⨯ TEXT  ࠭  .

ਬ:

Names     FILE,DRIVER('Clarion'),PRE(Nam)
NameKey     KEY(Nam:Name)
NbrKey      KEY(Nam:Number)
Notes       MEMO(4800)          !ਬ砭   4800 .
Rec         RECORD
Name          STRING(20)
Number        SHORT
          . .


RECORD                              (뢠  )

[⪠]      RECORD[PRE()][,NAME()]
               
             .


                   ᠭ ६.

PRE                  -䨪 .

NAME                 譥   RECORD. ᯮ-
                     ⮣ ࠬ   䠩
                    ࠩ.

 RECORD 뢠 砫  䠩 .  -
 RECORD 易⥫쭮    ᠭ 䠩.  -
 -   RECORD.   RECORD  ᪫뢠-
   室   .  饭   RE-
CORD,  ᬠਢ,   ⨯ GROUP.

 ६ ᯮ,    RECORD, 뤥 -
  ᪮ . ,   , 㯭  -
ᨬ  ⮣  䠩   .  뢠   
 䠩 ࠬ NEXT, PREVIOUS  GET.    -
뢠,  ⥬ 뢠  䠩   楫쭮 
RECORD ࠬ ADD, PUT  DELETE.

ਬ:

Names    FILE,DRIVER('Clarion')      !ᠭ  䠩
Record     RECORD                    !  砫 ᠭ 
Name         STRING(20)              !    뢠  
Number       SHORT                   !    뢠  
         . .                   ! ᠭ   䠩


		  INDEX, KEY  MEMO


BINARY                           (MEMO ᮤন  )

             BINARY


ਡ -  BINARY 㪠뢠   ,   MEMO- 
ᮤঠ   ⮫쪮 ⥪⮢,      .  筮,
 ਡ  ᯮ   ࠭   - 
⨭,   뢮  IMAGE-  ࠭.

ਬ:

Names    FILE,DRIVER('Clarion'),PRE(Nam),
NameKey    KEY(Nam:Name)
NbrKey     KEY(Nam:Number)
Picture    MEMO(48000),BINARY		!筮  
					!   48,000 
Rec        RECORD
Name         STRING(20)
Number       SHORT

. ⠪: MEMO, IMAGE


DUP               (ࠧ 騥 祭  )

             DUP


ਡ DUP,  ᠭ ,    䠩 ᪮쪮
ᥩ   祭 祢 . ᫨ ਡ  DUP
ய饭,  ⪠   १   㦥  -
騬 祭ﬨ 祢 , 맮 訡 " -
 㦥 " ("Creates Duplicate Key"),    㤥  -
ᠭ  䠩.  ६ ᫥⥫쭮 ࠡ⪨  , -
  묨 祢묨 ﬨ ࠡ뢠  ⮬ 䨧-
 浪,  ஬  祢  ᯮ  䠩 -
.  GET  SET    ࢮ    , 
  祢 . ਡ DUP  㦥   -
ᮢ, ᪮    ᪠ 㡫஢  祭
祢 .

ਬ:

Names    FILE,DRIVER('Clarion'),PRE(Nam)
NameKey    KEY(Nam:Name),DUP
                    !  , ࠧ蠥  
NbrKey     KEY(Nam:Number)
                    !  .   饭
Rec        RECORD
Name         STRING(20)
Number       SHORT
         . .


NOCASE             (KEY  INDEX -  ⢨⥫  ॣ)

             NOCASE


ਡ NOCASE  ᠭ KEY  INDEX 砥,  ஢
  䠢 㤥  ந   ॣ  㪢.
   祢 䠩,  㪢  ਢ   -
 ॣ.   ਡ     , ࠭騥  
䠩    㪢.

ਬ:

Names     FILE,DRIVER('Clarion'),PRE(Nam)
NameKey     KEY(Nam:Name),NOCASE
                        !     ॣ
NbrKey      KEY(Nam:Number)                  !  
Rec         RECORD
Name          STRING(20)
Number        SHORT
          . .

. ⠪: INDEX,KEY


OPT             (  㫥 祢  뢠)

             OPT


᫨  ਡ ,        ᢥ
 ,    祢  .  ନ ਡ-
 , "⮥ " 砥,  ᫮  ᮤন ,
 ᨬ쭮 - ⮫쪮 ஡.

ਬ:

Names   FILE,DRIVER('Clarion'),PRE(Nam)!ᠭ  䠩
NameKey KEY(Nam:Name),OPT    !  ,    
			     !  
NbrKey  KEY(Nam:Number),OPT  !  .   
			     !   㫥묨
Rec       RECORD
Name        STRING(20)
Number      SHORT
        . .

. ⠪:  INDEX,KEY


		      


BUILD                  (ந  /   䠩)

                      
             BUILD(  [,])
                     䠩 


                ⪠ ᠭ .

              ⪠ ᠭ .

䠩                ⪠ ᠭ .

          ப ⠭  ६, ᮤঠ-
                     ᯨ᮪ ,  ᭮   -
                     ᪨ .    
                    ࠧ 묨, ।   -
                         , ⮡ 
                    ஢  ⠭   뢠.

 BUILD  ந    .  BUILD(), BUILD(-
)  BUILD(䠩) ॡ 쭮 㯠  䠩.  ..,
䠩    ஢ (१ LOCK)      
㯠 12h  ( ஬   饭  ⥭/)  22h
( ஬  饭 ). BUILD(,)  
ॡ 쭮 㯠  䠩.

BUILD()
BUILD()       ந  ⮫쪮  㪠     .
                          , ஢ 
                      ० 12h  22h.

BUILD(䠩)         ந        .  
                      , ஢   
                     ० 㯠 12h  22h.

BUILD(,)
                     ந  ᪨ .  
                    ଠ BUILD  ॡ 쭮  㯠
                     䠩, ⥬    䠩    -
                       ࠧ襭 ० 㯠. -
                    ᪨    ᮧ   ६
                    䠩 ⮫쪮  饣   짮⥫.
                     ६ 䠩 ⮬᪨  㤠
                     ⨨ 䠩.

頥 訡:
	 37    
	 40   㦥 
	 63 ॡ  
	 76  ࠬ  

ਬ:

Names   FILE,DRIVER('Clarion'),PRE(Nam)!ᠭ  䠩
NameKey   KEY(Nam:Name).OPT            !ᠭ   
NbrNdx    INDEX(Nam:Number),OPT        !ᠭ   -
				       !  
DynNdx    INDEX()                      !뢠 ᪨
				       !  
Rec       RECORD
Name        STRING(20)
Number      SHORT
        . .
    CODE
    OPEN(Names,12h)             !뢠 䠩  ᪫⥫
				!  ࠢ ⥭/
    BUILD(Names)                !ந    䠩 
    BUILD(Nam:NbrNdx)           !ந   
    BUILD(Nam:DynNdx.'-Nam:Number,+Nam:Name')
          !ந ᪨  -    뢠,
	  !     ⠭.

. ⠪: OPEN, SHARE


CLOSE                                      ( 䠩 )

             CLOSE(䠩)


䠩                ⪠ .

 CLOSE 뢠 . 筮,  뢠  ᪮-
 ஢     ᢮ , 뤥   ,
஬ , ࠭饣   RECORD.   冷
 䠩   䠩 ࠩ.

ਬ:

CLOSE(Customer)                        ! 䠩 㯠⥫


COPY                                    (஢ 䠩 )

             COPY(䠩,_䠩)


䠩                ⪠ 㥬 䠩.

_䠩          ப ⠭  ६, ᮤঠ-
                      ᯥ䨪 䠩 (, ⠫
                     ). ᫨  ᯥ䨪樨  
                     ⠫,  ࠧ㬥 ⥪騩  -
                     ⥪饣 ᪠. ᫨ 㪠 ⮫쪮 ,
                       _ ᯮ  
                    ७ 㥬 .

 COPY ᮧ  䠩,   ᮮ⢥  -
  ⠫. 㥬    ,  㤥
䮧饭  騡  "  㦥  ". ᫨ ᯥ䨪 -
_ ᮢ  ᯥ䨪樥 ਣ,  ⠪ 
COPY .

᪮  䠩 ࠩ ᯮ ᪮쪮 䨧-
᪨   ࠡ      ,   ࠧ-
    ७ 䠩    䠩 ࠩ.
᫨ ந室 - 訡,  䠩  .

頥 訡:
       02   
       03   
       05  饭
       52  㦥 

ਬ:

  COPY(Names,'A:\')          !㥬 䠩   ᪥
  COPY(CompText,Filename)    !㥬 ⥪⮢ 䠩  㣨
  			     !  


CREATE                              (ᮧ ⮩ 䠩 )

             CREATE(䠩)


䠩                ⪠ 䠩,   ᮧ.

 CREATE ᮧ   ⠫ ⮩ 䠩  .
᫨ 䠩 㦥  ,    㤠  ᮧ  
䠩,  ᮤঠ騩 .    ,   -
 訡 " 㦥  ". CREATE  ⠢  ᮧ
䠩 .

頥 訡:
	 03   
	 04 誮   䠩
	 05  饭
	 52  㦥 
	 54  ਡ CREATE

ਬ:

  CREATE(Master)         !  ᭮ 䠩
  CREATE(Detail)         !  䠩 ஡⥩


EMPTY                                     ( 䠩 )

             EMPTY(䠩)


䠩                ⪠ 饣 䠩.

EMPTY 㤠     䠩. EMPTY ॡ -
쭮 㯠  䠩.   䠩      -
 㯠 12h (ᥬ, ஬  饭 ⥭/)  
22h (ᥬ, ஬  饭 )

頥 訡:
	63 ॡ  

ਬ:

   OPEN(Master,18)                       ! ᭮ 䠩
   EMPTY(Master)                         !    

. ⠪: OPEN, SHARE


FLUSH                              (    )

             FLUSH(䠩)


䠩                ⪠ 䠩.

 FLUSH 蠥   STREAM.   뢠 
,  ਢ    ⠫    䠩-
. প ⮣    䠩 ⥬  -
 १ ⮩  ᠭ  㬥樨  䠩-
 ࠩ.

ਬ:

   STREAM(History)                 !ᯮ㥬 㢥 
   SET(Current)                    !  砫 䠩 CURRENT.
   LOOP UNTIL EOF(Current)
     NEXT(Current)
     His:Record - Cur:Record
     ADD(History)
   .                               ! 横
   FLUSH(History)                  !稢    -
				   !    뢠 .

. ⠪: STREAM


LOCK                                (   䠩)

             LOCK(䠩[,ᥪ㭤])


䠩                ⪠ 䠩,  ⮣  ᮢ⭮  -
                    㯠.

ᥪ㭤             ᫮  ⠭  ६,  
                     ᨬ쭮 ६    ᥪ-
		    .

 LOCK   䠩  㯠    㣨  ࠡ
⠭権  짮⥫᪮ ।. 筮,   -
   䠩    ⥭  㣨 짮⥫ﬨ. ⭠
ࠡ  LOCK   䠩 ࠩ.

LOCK(䠩)          ⠥ ஢ 䠩   , 
                      㤠.  ᫨ 䠩 㦥  ஢
                    㣮 ⠭樥,   LOCK 㤥 ,  
                     ⠭  ࠧ 䠩.

LOCK(䠩,ᥪ㭤)  ᫨   ६  㤠 -
                     䠩,  頥 訡 "  㦥
                    ஢".

  ஡    ஢묨  䠩,    
"ᬥ⥫쭮 ".  ந室,   ⠭樨  -
 ஢      䠩  ࠧ  ᫥-
⥫쭮,   ᯮ  LOCK(䠩).   ⠭
㦥 ஢  䠩,    ஢  㣠, 
. ⮩ ஡  , ᫨ ᯮ짮 -
 LOCK(䠩,ᥪ㭤)  ᥣ ஢ 䠩     ⮬
 浪.

頥 訡:
	   32  㦥 ஢

ਬ:

   LOOP                      !   "ᬥ⥫쭮
   			     !  "
     LOCK(Master,1)          !1 ᥪ㭤 ⠥ ஢
			     !  ᭮ 䠩
     IF ERRORCODE() = 201    !᫨ - 㦥  , 
       BEEP(0,100)           !  ᥪ㭤 
       CYCLE                 ! ⠥ ᭮...
     .
     LOCK(Detail,1)          ! ᥪ㭤 ⠥ ஢
			     !  䠩 ஡⥩

     IF ERRORCODE() = 201    !᫨ - 㦥  , 
       UNLOCK(Master)        !  ࠧ㥬   䠩,
       BEEP(0,100)           !   ᥪ㭤 
       CYCLE                 !   ࠧ ஡㥬
   . .                       ! ஢ IF  LOOP


OPEN                                       ( 䠩 )

             OPEN(䠩[,० 㯠])


䠩                ⪠ 䠩.

० 㯠       ᫮ ⠭,  ६   ࠦ-
                    , 饥  ஢ 㯠   䠩  
                     뢠饣  짮⥫, ⠪  
                    ⠫ 짮⥫  짮⥫-
                     ⥬. ᫨ ய饭,   ࠧ㬥-
                     22h (ᥬ, ஬  饭  
		      䠩)

 OPEN 뢠  FILE  ࠡ⪨   ⠭-
 ० 㯠. প ࠧ ஢ 㯠  -
  䠩  ࠩ.  䠩      
।  ᯮ짮.    ⮢ , 㪠-
 樮,   ।⠢ 뢠饬 -
⥫,        ⠫ ⥭樠
짮⥫ ⮣ 䠩.  ⨬ ᫥騥 祭  ०
㯠:

               . 16.  㯠
                  
뢠騩     0   0h   쪮  ⥭ (Read Only)
짮⥫    1   1h   쪮   (Write Only)
                2   2h    ⥭   (Read/Write)

⠫       0   0h     (० FCB-ᮢ⨬)
짮⥫   16  10h   饭   (Deny All)
               32  20h   饭  (Deny Write)
               48  30h   饭 ⥭ (Deny Read)
               64  40h   ??? (Deny None)

頥 訡:
	 02   
	 04 誮   䠩
	 05  饭
	 52  㦥 
	 75  ⥫ ⨯ 

ਬ:

ReadOnly     EQUATE(0)     !᪨ 祭  ०
WriteOnly    EQUATE(1)     !  㯠
ReadWrite    EOUATE(2)
DenyAll      EQUATE(10h)
DenyWrite    EQUATE(20h)
DenyRead     EQUATE(30h)
DenyNone     EQUATE(40h)
       CODE
       OPEN(Names,ReadWrite+DenyNone)  !뢠  
				       !  ० ࠧ.

. ⠪: SHARE


PACK                        (䨧᪨  㤠 )

             PACK(䠩)


䠩                ⪠ 䠩.

 PACK 㡨ࠥ 㤠    䠩    -
ࠨ  .  祭 䠩 㤥 ⥭, ᪮쪮
 . PACK ॡ,   ,     
᪥, 祬  䠩   砬  -䠩.   䠩
ᮧ  ,    䠩    ᫥ -
譮 襭 .  PACK ॡ 쭮  㯠
 䠩.

頥 訡:
	  63 ॡ  

ਬ:

  OPEN(Trans,12h)               !쭮 뢠 䠩 
  PACK(Trans)                   !  㯠뢠 .

. ⠪: OPEN, SHARE


REMOVE                                     ( 䠩 )

             REMOVE(䠩)


䠩                ⪠ 䠩, 饣 㤠.

 REMOVE ࠥ  䠩  ⠫ 筮 -
  Delete.      ,  㤥  訡
" 㦥 ".    - 訡 䠩  
㤠.

頥 訡:
	 02   
	 05  饭
	 52  㦥 

ਬ:

  REMOVE(OldFile)                       !塞  䠩
  REMOVE(Changes)                       !塞 䠩 


RENAME                               (२ 䠩 )

             RENAME(䠩,_䠩)


䠩                ⪠ २뢠 䠩.

_䠩          ப ⠭  ६, ᮤঠ-
                     ᯥ䨪 䠩. ᫨   ᯥ䨪樨
                        ,  ᯮ ⥪-
                    騩  ⠫  ⥪饣  ᪠.  ᫨  㪠
                    ⮫쪮 ,   ⢥    -
                      䠩 ᯮ   -
                     ਣ.     २-
                      㣮 .

 RENAME    䠩,  ७   -
 ⠫   ⮬   ᪥.  , 騩 ६,
  ,   ந 訡 " 㦥  ".
᫨   _ ,   RENAME -
.   - 訡, 䠩   २뢠-
.

᪮  䠩 ࠩ ᯮ ᪮쪮 䨧-
᪨   ࠡ      ,   ࠧ-
   ७ 䠩   䠩 ࠩ.

頥 訡:
	  02   
	  03   
	  05  饭
	  52  㦥 

ਬ:

  RENAME(Text,'text.bak')          ! १ࢭ 
  RENAME(Master,'\newdir')         !६頥  㣮 ⠫


SHARE                                      ( 䠩 )

             SHARE(䠩[,० 㯠])


䠩                ⪠ 䠩.

० 㯠       ᫮ ⠭,  ६   ࠦ-
                    , 饥  ஢ 㯠   䠩  
                     뢠饣  짮⥫, ⠪  
                    ⠫ 짮⥫  짮⥫-
                     ⥬. ᫨ ய饭,   ࠧ㬥-
                     42h (ᥬ, ஬ , DENY NONE).

 SHARE 뢠 䠩  ࠡ⪨  ⠭  -
 㯠  .   SHARE 祭   OPEN 
⫨砥    ⮫쪮  ० 㯠   㬮砭. 
  ⮢ , 㪠뢠 樮,  
।⠢ 뢠饬 짮⥫,       -
   ⠫ ⥭樠 짮⥫ ⮣ 䠩. -
⨬ ᫥騥 祭 ० 㯠:

               . 16.  㯠
                  
뢠騩     0   0h   쪮  ⥭ (Read Only)
짮⥫    1   1h   쪮   (Write Only)
                2   2h    ⥭   (Read/Write)

⠫       0   0h     (० FCB-ᮢ⨬)
짮⥫   16  10h   饭   (Deny All)
               32  20h   饭  (Deny Write)
               48  30h   饭 ⥭ (Deny Read)
               64  40h   ??? (Deny None)

頥 訡:
	  02   
	  04 誮   䠩
	  05  饭
	  52  㦥 
	  75  ⥫ ⨯ 

ਬ:

ReadOnly     EQUATE(0)     !᪨ 祭  ०
WriteOnly    EQUATE(1)     !  㯠
ReadWrite    EOUATE(2)
DenyAll      EQUATE(10h)
DenyWrite    EQUATE(20h)
DenyRead     EQUATE(30h)
DenyNone     EQUATE(40h)
       CODE
       SHARE(Names,ReadOnly+DenyWrite) !뢠  ० ⮫-
				       !    ⥭.

. ⠪: OPEN


STREAM                         (ࠧ ਧ १ )

             STREAM(䠩)


䠩                ⪠ 䠩.

 䠩 ⥬  뢠     
 .  STREAM 頥  ⮬᪨ . -
   뤥   BUFFERS=   䠩 CONFIG.SYS. 
࠭ 뢠      ,   㢥   -
,  ⥬  ࠧ 뢠  .  -
  ⮫쪮   䨧᪮  ஢   .
 STREAM 蠥  ⨥ 䠩,  ⮬᪨
뢠   ,   믮  FLUSH.

প ⮣    䠩 ⥬   ᠭ
 㬥樨  䠩 ࠩ  ⥬.

ਬ:

    STREAM(History)                !ᯮ㥬  
    SET(Current)                   !  砫 䠩 CURRENT
    LOOP UNTIL EOF(Current)
      NEXT(Current)
      His:Record - Cur:Record
      ADD(History)
    .  !End loop
    FLUSH(History)                 !蠥  ࠡ
				   !  뢠   

. ⠪: FLUSH


UNLOCK                     (ࠧ஢ ஢ 䠩)

             UNLOCK(䠩)


䠩                ⪠ 䠩.

 UNLOCK ࠧ ࠭ ஢ ஬
LOCK 䠩 .    ࠧ஢ 䠩, ஢-
 㣮 ⠭樥. ᫨ 䠩  ஢  ஢ -
 ⠭樥,   UNLOCK . UNLOCK  -
頥 - 訡. 筮 ⢨ UNLOCK   䠩-
 ࠩ.

ਬ:

   LOOP                      !   "ᬥ⥫쭮
   			     !  "
     LOCK(Master,1)          !1 ᥪ㭤 ⠥ ஢
			     !  ᭮ 䠩
     IF ERRORCODE() = 201    !᫨ - 㦥  , 
       BEEP(0,100)           !  ᥪ㭤 
       CYCLE                 ! ⠥ ᭮...
     .
     LOCK(Detail,1)          ! ᥪ㭤 ⠥ ஢
			     !  䠩 ஡⥩

     IF ERRORCODE() = 201    !᫨ - 㦥  , 
       UNLOCK(Master)        !  ࠧ㥬   䠩,
       BEEP(0,100)           !   ᥪ㭤 
       CYCLE                 !   ࠧ ஡㥬
   . .                       ! ஢ IF  LOOP
ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

		      


ADD                                      (  )

             ADD(䠩,[])


䠩                ⪠ 䠩.

               ᫥ ⠭, ६   -
		    ࠦ, ᮤঠ饥 ᫮ , 뢠
                     䠩.       
                          RECORD. ᫨ 
                    ய饭  室  ࠧ襭  -
                    ,   뢠    
                    RECORD.

 ADD ᮧ  䠩      묨
   RECORD.  믮 ADD,   
祢 䠩 ( !). ᫨ ந室 - 訡,
     䠩. ⭮ ⢨ ADD 
 䠩 ࠩ.

᫨  ᪥  墠⠥    ࠧ饭  ,  
頥 訡 " 饭".

頥 訡:
	 05  饭
	 37    
	 40   㦥 

ਬ:

  ADD(Customer)                       !ᨬ   
  				      !  㯠⥫
  IF ERRORCODE() THEN STOP(ERROR()).  ! ஢塞  -
				      !  稥 訡.


APPEND                                   (  )

             APPEND(䠩[,])


䠩                ⪠ 䠩.

               ᫥ ⠭, ६   -
		    ࠦ, ᮤঠ饥 ᫮ , 뢠
                     䠩.       
                          RECORD. ᫨ 
                    ய饭  室  ࠧ襭  -
                    ,   뢠    
                    RECORD.

 APPEND   䠩     , -
    RECORD. 祢 䠩   .
᫥    APPEND,  ந  
 BUILD. 筮 APPEND ᯮ  ⭮ -
 ᪮쪨 ᥩ   ਥ (.. -   -
,  , ࠧ㬥, ந室 ॥).

᫨  ᪥  墠⠥    ࠧ饭  ,  
頥 訡 "  饭". ⭮ ⢨  AP-
PEND   䠩 ࠩ.

頥 訡:
	 05  饭
	 37    

ਬ:

  LOOP UNTIL EOF(InFile)         !ࠡ⪠ 室 䠩
    NEXT(InFile)                 ! ⠥   
      IF ERRORCODE() THEN STOP(ERROR()).      !  訡?
    Cus:Record = Inf:Record      !㥬    䠩
    				 !  㯠⥫
    APPEND(Customer)             !     
				 !   䠩
      IF ERRORCODE() THEN STOP(ERROR()).      !  訡?
  .                              ! 横 ࠡ⪨
  BUILD(Customer)                ! ⥯ ந ...

. ⠪:    BUILD


DELETE                                          (㤠 )

             DELETE(䠩)


䠩                ⪠ 䠩.

   㤠 ᫥  ,   ன ந室
饭 ࠬ  NEXT, PREVIOUS,  GET, ADD   PUT. 
㤠 ᢥ  ⮩   祢 䠩. DELETE  
頥   RECORD, ⠪ ࠧ,   㤠
  -० 㯭   ,  ᮤন
 RECORD  .

᫨  뫮 饭  -    ஢-
 㣮 ࠡ祩 ⠭稥, DELETE 頥 訡 " -
㯭"  㤠   ந室. 筮 ⢨  -
 DELETE   䠩 ࠩ.

頥 訡:
	  05  饭
	  33  㯭

ਬ:

Customer  FILE,DRIVER('Clarion'),PRE(Cus)
NameKey     KEY(Cus:Name),OPT
NbrKey      KEY(Cus:Number),OPT
Rec         RECORD
Name          STRING(20)
Number        SHORT
          . .

     CODE
     Cus:Number = 12345              !樠㥬 祢
     				     !  
     GET(Customer,Cus:NbrKey)        !⠥ ᮮ⢥ 
				     !  
       IF ERRORCODE() THEN STOP(ERROR()).
     DELETE(Customer)                !᫨  ,   ,
				     !   㤠塞  .

. ⠪: ADD, GET, HOLD, NEXT, PREVIOUS, PUT


GET                          (   אַ )

                  䠩,                     
             GET( 䠩,㪠⥫__䠩[,] )
                  ,㪠⥫__        


䠩                ⪠ 䠩.

                ⪠   .

㪠⥫__䠩   ᫮ ⠭,  ६   ࠦ-
		    , ᮤঠ 祭, 頥 㭪-
                    樥 POINTER(䠩). ⭮ 祭  -
                      䠩 ࠩ.

㪠⥫__   ᫮ ⠭,  ६   ࠦ-
		    , ᮤঠ 祭, 頥 㭪-
                    樥 POINTER(). ⭮ 祭  -
                      䠩 ࠩ.

               ᫥ ⠭, ६   -
		    ࠦ, ᮤঠ饥 ᫮ , 뢠
                     䠩.       
                          RECORD. ᫨ 
                    ய饭  室  ࠧ襭  -
                    ,   뢠    
                    RECORD.

 GET 室     䠩    뢠
    RECORD. אַ     ⢫-
   ⭮⥫쭮    䠩   ᮢ-
 祢   祭  .

GET(䠩,)      砥       䠩 (ᮣ᭮
                    ),  ᮤন 祭, ᮢ-
                    騥  祭ﬨ  .

GET(䠩,㪠⥫__䠩[,])
                    砥   䠩   㪠뢠-
                     㪠⥫__䠩. ᫨ 㪠⥫__䠩
                    ࠢ ,   㪠⥫  ⥪  
                    頥    뢠.

GET(,㪠⥫__)
		    砥    㪠뢠  㪠-
                    ⥫__.

祭 㪠⥫__䠩  㪠⥫__   䠩-
䮣 ࠩ.   :  ;     䠩-
  - 㣮  "୮ 窨"  䠩. ᫨  -
祭 㪠⥫__䠩  㪠⥫__ 室   ࠧ-
襭 ।   䠩  室  祭  ᥩ,
 訡 "  ".

頥 訡:
	  35   
	  37    
	  43  㦥 ஢

ਬ:

Customer  FILE,DRIVER('Clarion'),PRE(Cus)
NameKey     KEY(Cus:Name),OPT
NbrKey      KEY(Cus:Number),OPT
Rec         RECORD
Name          STRING(20)
Number        SHORT
          . .
   CODE
   Cus:Name = 'Clarion'      !樠㥬 祢 
   GET(Customer,Cus:NameKey) ! 砥 ᮮ⢥ 
     IF ERRORCODE() THEN STOP(ERROR()).

   GET(Customer,3)           !⠥  䨧 
			     !  䠩
     IF ERRORCODE() THEN STOP(ERROR()).

   GET(Cus:NameKey,3)        !砥    浪,
			     !   箬 NameKey
     IF ERRORCODE() THEN STOP(ERROR()).

. ⠪: POINTER, DUPLICATE


HOLD                               (   )

             HOLD(䠩[,ᥪ㭤])


䠩                ⪠ 䠩, ⮣  ᮢ⭮  -
                    㯠.

seconds             ᫮ ⠭   ६,  
                     ᨬ쭮 ६    ᥪ-
		    .

 HOLD 砥 ஢   ᫥   
஢ GET, NEXT r PREVIOUS  짮⥫᪮  -
.  GET, NEXT  PREVIOUS ᯥ譮 墠뢠 , 
⠢  䫠  "held"  (஢).  筮   
⠫ 짮⥫   ,   蠥 
. ⭮ ⢨ HOLD   䠩 ࠩ.

HOLD(䠩)          ᪠  ஢ ⠪,  ᫥-
                    騥 GET, NEXT   PREVIOUS   -
                    墠    ,    㤠
		    . ᫨  㦥 墠祭 㣮 ࠡ祩
                    ⠭樥,         
                    ᢮ ⮩ .

HOLD(䠩,ᥪ㭤)  ᪠  ⠪,  ᫥騥  GET,
                    NEXT  PREVIOUS  訡 "  㦥
                    ஢", ᫨     ᫮ -
                    㭤   ᬮ 墠 .

    ६ ⮫쪮       䠩 
 ஢.  ᫨ ந室  饭   㣮 
⮣ 䠩,  墠祭 ࠭  ⮬᪨  ᢮-
.

      LOCK,  ஡  "ᬥ⥫쭮 -
".     ࠡ ⠭樨  墠
      ᥩ,    ࠧ  ᫥⥫쭮 
  ᯮ  HOLD(䠩).  ⠭ 㦥  墠-
⨫ ,  ⠥ 墠 㣠  .  ⮩
஡  , ᯮ  HOLD(䠩,ᥪ㭤) 
᫥  訡 " 㦥 ஢".

ਬ:

  LOOP                        !   "ᬥ⥫쭮
  			      !  "
    HOLD(Master,1)    !1 ᥪ㭤 ⠥ 墠  -
		      !   䠩
    GET(Master,1)             !⠥  㥬 
    IF ERRORCODE() = 208      !᫨ - 㦥 墠⨫ , 
      BEEP(0,100); CYCLE      !  ᥪ㭤  ஡㥬
			      ! ᭮
    .
    HOLD(Detail,1)    !1 ᥪ㭤 ⠥ 墠  
		      !  䠩 ஡⥩
    GET(Detail,1)             !⠥  㥬 
    IF ERRORCODE() = 208      !᫨ - 㦥 墠⨫ , 
      RELEASE(Master)         ! ᢮ 墠祭 ࠭,
      BEEP(0,100); CYCLE      !  ᥪ㭤  ஡㥬
			      ! ᭮
  . .                         ! ஢ IF  LOOP

. ⠪: RELEASE, GET, NEXT, PREVIOUS


NEXT             ( ᫥  ᫥⥫쭮)

             NEXT(䠩)


䠩                ⪠ 䠩.

NEXT ⠥  䠩  ᫥,  ࠭  ᫥-
⥫쭮,        RECORD.  -
 SET ⠭ ᫥⥫쭮,  ன  -
뢠 .  NEXT, 믮訩 ࠧ ᫥ SET, -
⠥   樨, ⠭ ஬ SET. ᫥騥
NEXT-  ᫥騥   ⮩ ᫥⥫쭮. ᫥-
⥫쭮   ࠬ GET, ADD, PUT   DELE-
TE.

믮 NEXT, ।    믮 SET,   ⪠
  ᫥  䠩, ਢ  訡 "  -
㯭".

頥 訡:
	  33  㯭
	  37    
	  43  㦥 ஢

ਬ:

  SET(Cus:NameKey)         !稭  砫 䠩, ᫥-
			   !  ⥫쭮  箬 NameKey.
  LOOP UNTIL EOF(Customer) !⠥ ,  ,   䠩-
  			   !  
    NEXT(Customer)         ! ᫥⥫쭮 ⠥ 
      IF ERRORCODE() THEN STOP(ERROR()).
    DO PostTrans           ! 뢠 楤 㦨
			   !  ࠭権.
  .                        ! 横

. ⠪: SET, PREVIOUS, EOF, HOLD


PREVIOUS        ( ।  ᫥⥫쭮)

             PREVIOUS(䠩)


䠩                ⪠ 䠩.

PREVIOUS ⠥  䠩  ।,  ࠭  -
᫥⥫쭮,         RECORD.
 SET ⠭  ᫥⥫쭮,  ன  
뢠 .   PREVIOUS, 믮訩 ࠧ  ᫥
SET, ⠥   樨, ⠭ ஬ SET.  -
᫥騥 PREVIOUS- :)  ᫥騥  ⮩  ᫥-
⥫쭮    . ᫥⥫쭮   
ࠬ GET, ADD, PUT  DELETE.

믮 PREVIOUS, ।    믮 SET,   -
⪠   । 砫 䠩, ਢ  訡 "-
 㯭".

頥 訡:
	   33  㯭
	   37    
	   43  㦥 ஢

ਬ:

  SET(Trn:DateKey)      !⠭ ᫥⥫쭮 -
			!  ⪨ ᥩ
  LOOP UNTIL BOF(Trans) !⠥    ⭮ 浪
    PREVIOUS(Trans)     !  ⠥  ᫥⥫쭮
      IF ERRORCODE() THEN STOP(ERROR()).
    DO LastInFirstOut   !  뢠 楤 LIFO
  .                     ! 横

. ⠪: SET, NEXT, BOF, HOLD


PUT                             (  ⭮  䠩)

             PUT(䠩[,㪠⥫__䠩][,])


䠩                ⪠ 䠩.

㪠⥫__䠩   ᫮ ⠭,  ६   ࠦ-
		    , ᮤঠ 祭, 頥 㭪-
                    樥 POINTER(䠩). ⭮ 祭  -
                      䠩 ࠩ.

               ᫥ ⠭, ६   -
		    ࠦ, ᮤঠ饥 ᫮ , 뢠
                     䠩.       
                          RECORD. ᫨ 
                    ய饭  室  ࠧ襭  -
                    ,   뢠    
                    RECORD.

 PUT 뢠 ᮤন  RECORD  ᫥ -
,  ன ந 饭.

PUT(䠩)           뢠    ,  ஬ -
                    ᫥ ࠧ 頫 NEXT, PREVIOUS,  GET,
		     ADD.  ᫨   祭 祢
                    ,   ( !) .

PUT(䠩,㪠⥫__䠩)
		    뢠        ,  ஥
		    㪠뢠 㪠⥫__䠩   -
		    .

PUT(䠩,㪠⥫__䠩,)
                    뢠  ⮢   ,  -
		    ஥ 㪠뢠 㪠⥫__䠩   
                    .

᫨    뫮 饭 ࠬ NEXT, PREVIOUS,  GET
 ADD   뫠 㤠,  頥 訡 " -
㯭". PUT ⠪    訡 "   㦥 ".
  - 訡 䠩  .

頥 訡:
	  05  饭
	  33  㯭
	  40   㦥 

ਬ:

  SET(Trn:DateKey)      !End/Beginning of file in keyed sequence
  LOOP UNTIL BOF(Trans) !⠥    ⭮ 浪
    PREVIOUS(Trans)     !   㣮
      IF ERRORCODE() THEN STOP(ERROR()).
    DO LastInFirstOut   !뢠 楤 LIFO
    PUT(Trans)        !뢠 ࠭ ⭮  䠩
      IF ERRORCODE() THEN STOP(ERROR()).
  .                     ! 横

. ⠪:  NEXT, PREVIOUS, GET, ADD


RELEASE                      (᢮ ஢ )

             RELEASE(䠩)


䠩                ⪠ 䠩.

 RELEASE ᢮ 墠祭 ࠭ .   -
 ᢮  , 墠祭  㣨 짮⥫.  ᫨
  墠祭  墠祭 㣨 짮⥫,   
 .

ਬ:

  LOOP                !   "ᬥ⥫쭮 "
    HOLD(Master,1)    !1 ᥪ㭤 ⠥ 墠  䠩
    GET(Master,1)        !砥  㥬 
    IF ERRORCODE() = 208 !᫨ - ᯥ ࠭ , 
      BEEP(0,100)        ! ᥪ㭤 
      CYCLE              !  ஡㥬  ࠧ
    .

    HOLD(Detail,1)       !1 ᥪ㭤 ⠥ 墠 䠩
    			 !  ஡⥩
    GET(Detail,1)        !砥  㥬 
    IF ERRORCODEO = 208  !᫨ - ᯥ ࠭ , 
      RELEASE(Master)    ! ᮡ , 墠祭 ࠭
      BEEP(0,100)        ! ᥪ㭤 
      CYCLE              !  ஡㥬  ࠧ
  . .                    ! ஢ IF  LOOP


RESET                           ( 㪠⥫ ⥪饩 )

             RESET(᫥⥫쭮,ப)


᫥⥫쭮  ⪠ 䠩,   .

ப              ப, 頥 㭪樥 POSITION.

RESET ⠭ 㪠⥫   ,  -
, 頥 㭪樥 POSITION. ᫥ ⮣,  RESET -
 㪠⥫, NEXT  PREVIOUS    .

祭, ᮤঠ饥  ,      䠩-
 ࠩ.  RESET, 筮,  ᯮ    POSITION 
६  浪 ࠡ⪨ ᥩ.

ਬ:

RecordQue      QUEUE,PRE(Dsp)
QueFields        LIKE(Trn:Record),PRE(Dsp)
               .
SavPosition    STRING(260)
  CODE
  SET(Trn:DateKey)                !Top of file in keyed sequence
  LOOP                            !᫥⥫쭮 ⠥
    NEXT(Trans)                   ! ,   㣮
      IF ERRORCODE() THEN STOP(ERROR()).
    RecordQue = Trn:Record        !頥   ।
    ADD(RecordQue)                !
      IF ERRORCODE() THEN STOP(ERROR()).
    IF RECORDS(RecordQue) >= 20 OR EOF(Trans)
                                  ! । 20 ᥩ?
      SavPosition = POSITION(Trn:DateKey)  !࠭ 㪠⥫
      					   ! ⥪ 
      DO DisplayQue               !뢥 ।  ࠭
      FREE(RecordQue)             !  ⨬ 
      IF EOF(Trans) THEN BREAK.
                         !᫨ ࠡ⠭  ,  室
      RESET(Trn:DateKey,SavPosition)   !뢠 㪠⥫
  . .                                  ! 横

. ⠪: POSITION, NEXT, PREVIOUS


SET              (樨஢ ᫥⥫ ࠡ 䠩)

                              䠩           
             SET(          䠩,          )
                    䠩,㪠⥫__䠩   
                                         
                           ,         
                    ,㪠⥫__   
                  ,,㪠⥫__䠩


䠩                ⪠ 䠩.  ࠬ 㪠뢠   ,
                     ࠡ⪠  ந室   ⮬ 浪,  
                    ஬  䨧᪨ ᯮ   䠩-
                    .

                ⪠   . ᫨   ࠬ
                    ⮨ ,  ࠡ⪠ 室   -
                    ᫥⥫쭮,  箬   -
                    ᮬ.

㪠⥫__䠩   ᫮ ⠭, ६   ࠦ-
		    ,    祭,  頥 㭪樥
                    POINTER(䠩).  ⭮  祭 
                     䠩 ࠩ.

㪠⥫__   ᫮ ⠭, ६   ࠦ-
		    ,    祭,  頥 㭪樥
		    POINTER().  ⭮  祭 
		     䠩 ࠩ.

SET 樨 ᫥⥫ ࠡ 䠩. SET  뢠-
 ,  ⮫쪮 ⠭ 冷 ࠡ⪨   砫
  ᫥ ஢ NEX  PREVIOUS.   -
 । 冷 ࠡ⪨ ᥩ. ன  ⨩ - -
  ࠡ뢠   (砫   ࠡ⪨).
᫨   饭,   ࠡ⪠ 筥   砫  ( )
䠩.

SET(䠩)            ࠡ  䨧᪮ ᫥⥫-
                      砫 (SET .. NEXT)    (SET
		    ..PREVIOUS) 䠩.

SET(䠩,)      ࠡ⪠   䨧᪮  浪,  稭 
                    ࢮ , 祭 祢  -
                    ன,    ᥣ  室  ⠭
                    ࠭ 祭  .

SET(䠩,㪠⥫__䠩)
		    ࠡ⪠    䨧᪮  浪, 稭 
                    ,      㪠뢠 㪠⥫__
		    䠩.

SET()           ࠡ⪠   ᫥⥫쭮,  
                    箬,  砫 (SET..NEXT)    (SET
		    ..PREVIOUS) 䠩  ⮩ ᫥⥫쭮.

SET(,)      ࠡ⪠   ᫥⥫쭮,  
                    箬, 稭  , 祭  祢
                     ன,    ⠭-
                     祭  .

SET(,㪠⥫__)
		    ࠡ⪠    ᫥⥫쭮, 
                    箬, 稭  ,    㪠-
		     㪠⥫__.

SET(, , 㪠⥫__䠩)
                    ࠡ⪠  , 稭  , ᮤ-
                    饩 ,    ᮤন
                       ( - ?) ⭮ ,
                     㪠⥫__䠩.

᫨ ன ࠬ - ,  ࠡ⪠ 筥  ࢮ  -
, ᮤঠ饩 祭,      祭 -
    .  ᫨    ᮢ,   
NEXT  PREVIOUS   . ᫨  筮  ᮢ-
,  NEXT ⠥   訬  祭,
 PREVIOUS -   訬.

祭 㪠⥫__䠩  㪠⥫__   䠩-
 ࠩ.     , ⭮⥫  
  䠩       "୮ 窨"   䠩.
 ࠬ ᯮ  砫 ࠡ⪨  ⭮ -
  䠩.

ਬ:

  SET(Customer)          !ࠡ⪠  䨧᪮ 浪

  Cus:Name = 'Smith'
  SET(Customer,Cus:NameKey)
         !ࠡ⪠  䨧᪮ 浪, 稭  , 
	 !  ன  Name = 'Smith'

  SavePtr = POINTER(Customer)
  SET(Customer,SavePtr)
         !ࠡ⪠  䨧᪮ 浪, 稭  ,
	 !  䨧᪨  ன ࠭  SavePtr

  SET(Cus:NameKey)
         !ࠡ⪠  浪,  箬 NameKey

  SavePtr = POINTER(Cus:NameKey)
  SET(Cus:NameKey,SavePtr)
         !ࠡ⪠  浪,  箬 NameKey,  -
	 !  , ⭮⥫  ன   ᮤন
	 !  SavePtr

  Cus:Name = 'Smith'
  SET(Cus:NameKey,Cus:NameKey)
         !ࠡ⪠  浪,  箬 NameKey, -
	 !    ࢮ ,  ன  = 'Smith'

  Cus:Name = 'Smith'
  SavePtr = POINTER(Customer)
  SET(Cus:NameKey,Cus:NameKey,SavePtr)
         !ࠡ⪠  浪,  箬 NameKey,
	 ! Name = 'Smith'    = SavePtr

(... - , 筮,  ᮢᥬ    ᥤ쬮 㭪, -
  ஢ ᯥਬ⠫쭮)

. ⠪: NEXT, PREVIOUS, KEY, RECORD, POINTER


SKIP                    (ய   ᫥⥫쭮)

             SKIP(䠩,count)


䠩                ⪠ 䠩.

count               ᫮ ⠭  ६. COUNT -
                     ᫮ ய᪠ ᥩ. ᫨ -
                      ⥫쭮,     ய᪠
                     (筮 NEXT). ᫨  COUNT  -
                    ⥫쭮,      ய᪠  
                    (筮 PREVIOUS).

 SKIP ᯮ  ய᪠ ᥩ  ६  ᫥-
⥫쭮 ࠡ⪨ 䠩.  ய᪠   浪, -
 ஬ SET, ६  㪠⥫   䠩  
COUNT ᥩ ।  . SKIP  䥪⨢, 祬  NEXT
 PREVIOUS   ய᪥  ᪮쪨 ᥩ,  ᪮  
뢠   , ⢥   RECORD.

᫨ SKIP ⠥      砫 䠩,   㭪樨
EOF()  BOF()  ⨭. ᫨ ࠭   믮 SET,
 SKIP .

ਬ:

  SET(Itm:InvoiceKey)          !稭  砫 䠩 ⮢஢
  LOOP UNTIL EOF(Items)        !ࠡ뢠  
    NEXT(Items)                !⠥ 
      IF ERRORCODE() THEN STOP(ERROR()).
    IF Itm:InvoiceNo <> SavinvNo  !᫨   ⮢  -
    				  !  , 
      Hea:InvoiceNo = Itm:InvoiceNo  !樠㥬 祢
				     !  
      GET(Header,Hea:InvoiceKey)
                               !砥 ᮮ⢥騩  -
			       !  ⮫
        IF ERRORCODE() THEN STOP(ERROR()).
      IF Hea:InvoiceStatus = 'Cancel'   !᫨  ⬥,
        SKIP(Items,Hea:ltemCount-1)     !  ய᪠ ⠫-
					!  ⮢
        CYCLE                           !  ࠡ뢠 ᫥-
					!  騩 
    . .                                 !  ஢ IF
    DO ItemProcess                      ! ࠡ뢠 ⮢
    SavInvNo = Itm:lnvoiceNo            ! ࠭塞  
  .                                     ! 横

		       


BOF                                               (砫 䠩)

             BOF(䠩)


䠩                ⪠ 䠩.

㭪 BOF 頥 㫥 祭 (⨭), ᫨  -
ࠬ PREVIOUS   SKIP(-count)  뫠 ⠭   ய饭
ᠬ ࢠ  ᫥⥫쭮.  ⨢ 砥  -
頥  ().

㭪 BOF   ᯮ  ஢ન ᫮  
横 LOOP UNTIL. ᪮  ᫮ 믮 ⮣ 横  -
   横,   BOF ୥   ᫥ ⥭
ࢮ  ᫥⥫쭮.

 頥 १: LONG

ਬ:

  SET(Trn:DateKey)      !襬   䠩  
  LOOP UNTIL BOF(Trans)        !ࠡ뢠 䠩  
    PREVIOUS(Trans)            !  ᫥⥫쭮  
      IF ERRORCODE() THEN STOP(ERROR()).
    DO LastInFirstOut          !  뢠 楤 LIFO
  .                            ! 横

. ⠪: PREVIOUS, SKIP, LOOP


BYTES                                    (ࠧ 䠩  )

             BYTES(䠩)


䠩                ⪠ 䠩.

㭪 BYTES 頥  ࠧ     䠩,   -
᫥ ,  ன  뫮 饭. ᫨ 믮  BYTES
ࠧ ᫥   䠩,    ୥ ࠧ ⮣  䠩.
᫥ ⮣,    䠩 ⨫  ࠬ GET, NEXT,  ADD
 PUT, BYTES ୥ ࠧ   , ⠭  
 RECORD.  㭪 BYTES   ᯮ짮   ⮣, ⮡
㧭, ᪮쪮 뫮 ⠭   ࠡ  ﬨ  -
 .

ਬ:

   OPEN(DosFile)                  ! 䠩
   IF (BYTES(DosFile) % 80) > 0   !Check for short record
      SavPtr = INT(BYTES(DosFile)%80)+1
                                  ! compute short record pointer
   ELSE
      SavPtr = BYTES(DosFile)/80  ! compute last record pointer
   .
   GET(DosFile,SavPtr)            !Get the last record
   LastRec = BYTES(DosFile)       !Save size of the short record


DUPLICATE             (஢  㡫஢ 祢 )

             DUBLICATE()
                       䠩


                ⪠ ᠭ .

䠩                ⪠ 䠩.

㭪 DUPLICATE 頥  㫥 祭 (⨭),  ᫨
 ᥭ   䠩  訡 "  㦥 "
("CREATES DUPLICATE KEY"). ᫨  ࠬ ,  ஢-
  祢 䠩.   ࠬ஬  ஢  
, ᠭ  ਡ DUP.

㭪 DUPLICATE ࠧ㬥,  ᮤন  RECORD
筮 ᮤন  ,    㪠뢠  㪠⥫
⥪饩 .   ࠧ,   ᯮ짮  DUPLICATE 
 , 㪠⥫  ⥪饩     饭
 GET(䠩,0).

 頥 १: LONG

ਬ:

  IF Action = 'ADD' THEN GET(Vendor,0).
                              !  頥 㪠⥫
  IF DUPLICATE(Vendor)        !᫨ ⠪ த뢠 㦥 , 
    SCR:MESSAGE = '  த  ⠪ ஬'
                              ! 뢮 ᮮ饭
    SELECT(?)                 !  ᭮    ⮦ ᠬ
			      !  
  .                           !  if

. ⠪: GET


EOF                                                ( 䠩)

             EOF(䠩)


䠩                ⪠ 䠩.

㭪  EOF  頥    (  ) ᫨ 뫠 ⠭
(஬ NEXT)  ய饭 (஬ SKIP) ᫥  -
 ᫥⥫쭮.   ⨢  砥 頥  
(㫥 祭). 㭪 EOF 筮 ᯮ  ஢ન
᫮  横 LOOP UNTIL. ᪮ ᫮  ⠪ 横 -
  砫 横,   EOF ୥  ᫥ ⮣,  
㤥 ⠭ ᫥ .

 頥 १: LONG

ਬ:

  SET(Trn:DateKey)      !襬  砫 䠩  
  LOOP UNTIL EOF(Trans)        !ࠡ뢠 䠩  砫,
    PREVIOUS(Trans)            !  ᫥⥫쭮  
      IF ERRORCODE() THEN STOP(ERROR()).
    DO LastInFirstOut          !  뢠 楤 LIFO
  .                            ! 横

. ⠪: NEXT, SKIP, LOOP


POINTER                             (⭮⥫  )

             POINTER(䠩)
                     


䠩                ⪠ 䠩. ⨬ 㪠뢠   䨧᪮
                    ᯮ ᥩ  䠩.

                ⪠    .   㪠뢠  
                    冷 ᥩ,   箬   -
                    ᮬ.

POINTER 頥 ⭮⥫    䠩    -
᫥⥫쭮  ⭮⥫쭮   㪠⥫   -
     ( ᫥⥫쭮 " "). -
祭, 頥 㭪樥,   䠩 ࠩ. 
   ,  ⭮⥫     䠩 
- 㣮  "୮ 窨  䠩".

 頥 १: LONG

ਬ:

  SavePtr# = POINTER(Customer)   !࠭塞 㪠⥫  

. ⠪: SET


POSITION                     (   ᫥⥫쭮)

             POSITION(᫥⥫쭮)


᫥⥫쭮  ⪠ 䠩,   .

POSITION  ப,   㭨 -
   ᫥⥫쭮. POSITION 頥  
䠩 ᫥ ,  ன ந室 饭 ( 
ᮤন  室    RECORD).

祭   頥 ப   䠩  ࠩ-
. POSITION ᯮ ᮢ⭮  RESET  ६ -
 浪 ࠡ⪨ ᥩ, , ⥬,  ⠭.

 頥 १: STRING

ਬ:

RecordQue       QUEUE,PRE(Dsp)
QueFields         LIKE(Trn:Record),PRE(Dsp)
                .
SavPosition     STRING(260)
  CODE                            ! 砫 䠩   
  SET(Trn:DateKey)                !᫥⥫쭮 ⠥
  LOOP                            !  
    NEXT(Trans)
      IF ERRORCODE() THEN STOP(ERROR()).
    RecordOue = Trn:Record        !塞  
    ADD(RecordQue)                ! ।
      IF ERRORCODE() THEN STOP(ERROR()).
    IF RECORDS(RecordOue) >= 20 OR EOF(Trans)
                                  !᫨  । 20 ᥩ, 

      SavPosition = POSITION(Trn:DateKey) !࠭塞  ⥪-
					  ! 饩 ,
      DO DisplayQue               !뢠 । 
      FREE(RecordQue)             ! 頥 
      IF EOF(Trans) THEN BREAK.
                             !᫨   ࠡ⠭, 
			     ! 稢 ࠡ
      RESET(Trn:DateKey,SavPosition) !⠭ 㪠⥫
  . .                             ! 横

. ⠪:    RESET


RECORDS                                          (᫮ ᥩ)

             RECORDS(䠩)
                     


䠩                ⪠ 䠩.

                ⪠   .

 㭪 ⢮ ᥩ  䠩  . ᪮  -
ਡ OPT            
,   祢   ,  RECORDS   -
     襥 祭 祬  䠩,  -
஬  ਭ.

 頥 १: LONG

ਬ:

  SaveCount = RECORDS(Master)      !࠭塞 ⢮ ᥩ
  SaveNameCount = RECORDS(Nam:NameKey)
                         !᫮ 祪,   
			 !  NAME

. ⠪: KEY, INDEX, OPT


SEND                    (ࠢ ᮮ饭 䠩 ࠩ)

             SEND(䠩,ᮮ饭)


䠩                ⪠ 䠩. ਡ 䠩 DRIVER  -
                     䠩 ࠩ, ஬ ᮢ
                    ᮮ饭.

ᮮ饭           ப ⠭  ६, ᮤঠ-
		     ଠ, । ࠩ.

㭪 SEND  ணࠬ । 䠩 ࠩ, 
६ 믮, ᯥ ࠬ. ਬ ⠪ ᯥ-
 ࠬ஢ ਢ  㬥樨  ࠩ.

 頥 १: STRING

ਬ:

  FileCheck = SEND(ClarionFile,'RECOVER=120')
                            ! ⠭  䠩
			    !  ⠭ ਮ

		      


COMMIT                ( ᯥ譮 ஢ ࠭)

             COMMIT


 COMMIT 蠥 ⨢ ࠭. 믮 -
 COMMIT ࠧ㬥,  ࠭ ᯥ譮 襭  
  室  믮  ROLLBACK. ᫥ 믮
COMMIT, 믮 ROLLBACK ⠭ .

COMMIT ନ 騩  ࠭樨 䠩 ࠩ   
⮬,  ६ 䠩, 室  ਢ    -
室 ﭨ ( 뫮  ࠭樨),  㤠.  ᫥
⮣, 䠩 ࠩ  ந ⢨, 室   
䠩 ⥬  襭 ࠭樨.

ਬ:

  LOGOUT(.1,OrderHeader,OrderDetail) !稭 ࠭
    DO ErrHandler                    !   訡?
  ADD(OrderHeader)                   !   த⥫
    DO ErrHandler                    !   訡?
  LOOP X# = 1 TO RECORDS(DetailQue)
			     !ࠡ⪠ ࠭ ஡⥩
    GET(DetailQue,X#)                !⠥   ।
      DO ErrHandler                  !   訡?
    Det:Record = DetailOue           !頥   
    ADD(OrderDetail)                 !  塞   䠩
      DO ErrHandler                  !   訡?
  .
  COMMIT                       !蠥 ᯥ ࠭

ErrHandler   ROUTINE                 !ࠡ稪 訡
  IF NOT ERRORCODE() THEN EXIT.      !訡 ? ୥.
  ROLLBACK                     !⬥ ࢠ ࠭樨
  BEEP                               !।० 짮⥫
  SHOW(25,1,'訡 ࠭樨 - ' & ERROR())
  ASK                                !    
  RETURN                             ! ⥬ 頥

. ⠪: LOGOUT, ROLLBACK


LOGOUT                                       ( ࠭)

             LOGOUT(⠩,䠩[,䠩,...,䠩])


⠩             ᫮ ⠭  ६,  
                    ᪮쪮  ᥪ㭤     ࠭
                     䠩(), ० 祬 ࢠ   -
                     訡.

䠩                ⪠ 䠩.     ࠧ  ᪮쪮
                    ࠬ஢ , ৤ 묨. 
                     ᫥   䠩,  砢騥 
                    ࠭樨.

 LOGOUT 稭 ࠡ ࠭樨   䠩-
   䠩.  ⢮ 䠩   ࠡ
   ⥬  䠩 ࠩ஬. LOGOUT ᮮ頥 ࠩ  
砫 ࠭樨. ࠩ,  ᢮ ।, 믮  ⢨,
室   䠩 ⥬  砫 ࠡ⪨ ࠭-
樨      䠩. ᫨  䠩 ⥬  ॡ,
⮡ 䠩 뫨 ஢ । 砫 ࠭樨,  LOG-
OUT ⮬᪨   ( ⮣  㦥 ).

쪮  ࠭,  樨஢ १ LOGOUT,   -
 ६. ன LOGOUT ( ।⥫쭮 COM-
MIT  ROLLBACK) ⠭ ணࠬ  ᮮ饭  訡
 뢠  DOS.

頥 訡:
	  32  㦥 ஢

ਬ:

  LOGOUT(,1,OrderHeader,OrderDetail) !稭 ࠭
    DO ErrHandler                    !   訡?
  ADD(OrderHeader)                   !   த⥫
    DO ErrHandler                    !   訡?
  LOOP X# = 1 TO RECORDS(DetailQue)
				  !ࠡ⪠ ࠭ ஡⥩
    GET(DetailQue,X#)                !⠥   ।
      DO ErrHandler                  !   訡?
    Det:Record = DetailQue           !頥   
    ADD(OrderDetail)                 !  塞   䠩
      DO ErrHandler                  !   訡?
  .
  COMMIT                       !蠥 ᯥ ࠭

ErrHandler   ROUTINE                 !ࠡ稪 訡
  IF NOT ERRORCODE() THEN EXIT.      !訡 ? ୥.
  ROLLBACK                     !⬥ ࢠ ࠭樨
  BEEP                               !।० 짮⥫
  SHOW(25,1,'訡 ࠭樨 - ' & ERROR())
  ASK                                !    
  RETURN                             ! ⥬ 頥

. ⠪: COMMIT, ROLLBACK


ROLLBACK                        ( 訡 ࠭)

             ROLLBACK


 ROLLBACK 蠥 ⥪ ࠭   COMMIT. -
  ROLLBACK ࠧ㬥,  ࠭ 諠
    㦤  ⠭   ﭨ,
 ஬  뫠  ࠭樨.

ROLLBACK ᮮ頥 䠩 ࠩ, 饬  ࠭樨,
 ⮬,  ६  䠩, 室  饭   
ࢮ砫쭮 ﭨ,   ᯮ짮  ⠭-
 . ࠩ,  ᢮ ।, 믮 ⢨,  -
 室   䠩 ⥬  ⪠ ࠭樨.

ਬ:

  LOGOUT(,1,OrderHeader,OrderDetail) !稭 ࠭
    DO ErrHandler                    !   訡?
  ADD(OrderHeader)                   !   த⥫
    DO ErrHandler                    !   訡?
  LOOP X# = 1 TO RECORDS(DetailQue)
				  !ࠡ⪠ ࠭ ஡⥩
    GET(DetailQue,X#)                !⠥   ।
      DO ErrHandler                  !   訡?
    Det:Record = DetailQue           !頥   
    ADD(OrderDetail)                 !  塞   䠩
      DO ErrHandler                  !   訡?
  .
  COMMIT                       !蠥 ᯥ ࠭

ErrHandler   ROUTINE                 !ࠡ稪 訡
  IF NOT ERRORCODE() THEN EXIT.      !訡 ? ୥.
  ROLLBACK                     !⬥ ࢠ ࠭樨
  BEEP                               !।० 짮⥫
  SHOW(25,1,'訡 ࠭樨 - ' & ERROR())
  ASK                                !    
  RETURN                             ! ⥬ 頥

. ⠪: LOGOUT, COMMIT

ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

		       12 - 

 ।........................................... 12-1
     QUEUE (뢠 QUEUE-)...................... 12-1

楤 ࠡ  ।ﬨ................................ 12-2
     ADD ( )................................. 12-2
     DELETE (㤠 )............................... 12-4
     FREE (㤠 ।)................................. 12-4
     GET ( )................................. 12-5
     PUT (१ )............................. 12-7
     SORT (஢ ।)........................... 12-9

㭪樨 ࠡ  ।ﬨ.................................. 12-10
     POINTER (㪠⥫  ᫥ )............... 12-10
     RECORDS (⢮ ⮢)......................... 12-10

		        


QUEUE                                (뢠 QUEUE-)

⪠        QUEUE[,PRE]
⪠          field[,NAME()]
             .


PRE                  䨪 .

field               ᠭ . 騩 ࠧ ᠭ -
                        65,000 .

QUEUE 뢠 ।  . । (QUEUE) -  -
 ᯨ᮪,    뫪  ।騩  ᫥-
騩 . ⪠ QUEUE- ᯮ   
㭪, ࠡ  ।ﬨ.  ᯮ짮  
ᢠ, QUEUE ᬠਢ   ⨯ GROUP.

।   ।⠢   "䠩   ".   ᠭ
। 뤥 .     ।, 
 ᪨ 뤥 ,     -
     .  㤠 ,  뤥 
  ᢮.  ।   ᨬ  65,535
⮢.

।  ᯮ짮 㠫 , ᫨ ⠪ -
.  , ⥮᪨, ⢥  ।  42 -
 .  㠫    뤥 EMS,  XMS
    ᪥.     ࠧ襭   饭 
६ 㧪. ⠫쭠   ६ 㦥
CLAVM. ᫨ 㠫쭠  㯭,  । ࠭ 
⠭⭮   ( 640).  ᫨   ⢥ 㠫쭮
  ࠭ ⮫쪮 ,  ।, ᪮쪮  -
, ࠭  ⠭⭮     砥  ९ -
筮 뢠  . ᫨ 㠫쭠  ஥ 
EMS/XMS,  । ᭠砫 㤥   EMS/XMS. ⥬, ᫨
EMS/XMS  墠⠥,  ⠭⭮ (   ।  㠫-
 ), ⥬ ᭮  EMS/XMS  㦥  ௠ EMS/XMS,
 ⥬ 㦥 㤥 뢠   (᫨  ࠧ襭).

, ⢮     ।,  ࠢ 㬬୮
ࠧ  ,   28  ( ⥬   
㪠⥫), 㣫  ⪮  襣 ᫠  ⭮
16. ਬ:   ⮨    : ⨯ LONG   ⨯
SHORT (ᥣ 6  ),    48  (6+26   㣫塞 
48). 㣫 믮 ⮬,   뤥  16--
묨 "ࠣ䠬".  , ⠪,  让 "襪"
, 뤥塞 ⥬   ᮧ ।, -
 ᢮ ⮫쪮 ஬ FREE.

ਬ:

NameQue  QUEUE,PRE(Nam)                     !뢠 ।
Name       STRING(20)
Zip        DECIMAL(5,0),NAME('SortField')
         .                                  ! ᠭ

. ⠪: PRE, NAME, FREE, ਫ C

		    


ADD                                           ( )

                               㪠⥫     
             ADD(।[,[+],....[-]])
                                          


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

㪠⥫           ᫮ ⠭,  ६   ࠦ-
                    . ⥫       1
                     ___.

+-                  騩   /  砥,    
                        ஢  ந  
                    ⠭/뢠.

                ⪠ ,  ᠭ   ⠢  .
                    ᫨    䨪,     ⠪
                      .

                 ப ⠭, ६   ࠦ-
		    ,  ᮤঠ  ਡ  NAME   ,
                    室  ⠢ , ࠧ -
                    묨   易⥫ 騬  + 
                    -   ਡ.  ࠬ -
                    ⥫  ॣ 㪢.

ADD 뢠      . ᫨  -
筮     ,   頥
訡 "筮 " (Insufficient Memory).

ADD(।)        뢠     .

ADD(।,㪠⥫)
		    ⠢    ⭮⥫  -
                    ,  ࠬ஬ . ᫨
		     ⮩ 樨 㦥  ,   "-
		    ⠫  ",  ⮡  ᢮ 
		      .  ᫥騥  㪠-
		    ⥫ ࠨ  ⮬  -
		    . ਬ, ,   
		    10, ⮫     -
		     11,  11 -   12  .. -
		     =0   饣 ᫠  -
		    ⮢ ,   㤥   
                     ।.

ADD(।,)   ⠢       ஢
                    .    ᯮ짮   16 祩,
                    ࠧ 묨,  易⥫ -
                    騬    , ⮡  -
                    ஢  ⠭  뢠. 
                    㤥  ⠢  ࠧ  ᫥  ⮢,
                     ᮮ⢥ 祭 祩. ᫨
                      ,  ADD(।,) -
                     ᯮ짮  ஥ ࠧ  -
		    ஢ .

ADD(।,)    ⠢       ஢
                    . ப   ᮤঠ ਡ-
                      NAME, ࠧ 묨   -
                    易⥫묨       -
                     浪 ஢.  ⠢-
                     ࠧ ᫥  ᥩ,  ᮮ⢥-
                     祭 . ᫨   -
		    ,  ADD(।,)   ᯮ짮
		     ஥ ࠧ ஢  -
		    .

頥 訡:
          08 筮 
	  75  ⥫ ⨯ 

ਬ:

NameQue  QUEUE,PRE(Que)
Name       STRING(20),NAME('FirstField')
Zip        DECIMAL(5,0),NAME('SecondField')
        .
  CODE
  ADD(NameQue)             !    ।

  ADD(NameQue,1)           !⠢    

  Que:Name = ''      !樠㥬 
  Que:Zip = 12345
  ADD(NameQue,+Que:Name,-Que:Zip)
                           ! -  ⠭,  - 
			   !  뢠

  Que:Name = '㧭殢'    !樠㥬 
  Que:Zip = 12345
  ADD(NameQue,'+FirstField,-SecondField')
                           !Add in name, descending zip order


DELETE                                         (㤠 )

             DELETE(।)


।             ⪠ QUEUE-,  ⪠ ।
                    ࠬ ⨯ QUEUE.

DELETE 㤠      樨,   ன ᫥
ࠧ 㯥譮 믮 GET  ADD,  ᢮ . ᫨ -
   믮 GET  ADD,  頥 訡 "
।   (Queue Entry Not Found).  㪠⥫  ।
    ஥, ⮡ ஢  㤠 -
.

頥 訡:
	  08 筮 
	  30   

ਬ:

  Que:Name = ''                 !樠㥬 
  GET(NameQue,Que:Name)               !室 室 
  DELETE(NameQue)                     ! 㤠塞 


FREE                                           (㤠 ।)

             FREE(।)


।             ⪠ QUEUE-,  ⪠ ।
                    ࠬ ⨯ QUEUE.

FREE 㤠    ।  ᢮   
. ஬ ⮣,   㤠 "襪", 뤥塞   ᠬ
।.

頥 訡:
          08 筮 

ਬ:

    FREE(Location)              ! । 

    FREE(NameQue)               ! । 


GET                                           ( )

                          㪠⥫     
        GET(।[,[+],....[-]])
                                     


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

㪠⥫           ᫮ ⠭,  ६   ࠦ-
                    . ⥫       1
                     ___.

+-                  騩   /  砥,    
                        ஢  ந  
                    ⠭/뢠.

                ⪠ ,  ᠭ   ⠢  .
                    ᫨    䨪,     ⠪
                      .

                 ப ⠭, ६   ࠦ-
		    ,  ᮤঠ  ਡ  NAME   ,
                    室  ⠢ , ࠧ -
                    묨   易⥫ 騬  + 
                    -   ਡ.  ࠬ -
                    ⥫  ॣ 㪢.

GET 뢠          -
⪨. ᫨ GET  室 ᮮ⢥⢨,  頥  訡
" ।   (Queue Entry Not Found).

GET(।,㪠⥫)
		    頥      樨, 
                    祭 .

GET(।,)     ,   ᮮ⢥
                    祭 () .   ᯮ짮-
                        16  祩,  ࠧ 묨.
                       㦥 ஢  -
                    , ᯮ㥬  ⢥ 祢.

GET(।,)      ,   ᮮ⢥
                    祭 () . ப  -
                     ᮤठ NAME-ਡ ,  ࠧ-
                     묨  易⥫ 騬 
                         浪 ஢-
                    .   㦥  ஢ 
                    , ᫥  ࠬ .

頥 訡:
	  08 筮 
	  30   
	  75  ⥫ ⨯ 

ਬ:

NameQue   QUEUE,PRE(Que)
Name        STRING(20),NAME('FirstField')
Zip         DECIMAL(5,O),NAME('SecondField')
          .
  CODE
                              !  ந ।...
  GET(NameQue,1)                      !⠥  
   IF ERRORCODE() THEN STOP(ERROR()).

  Que:Name = ''              !樠㥬 祢 
  GET(NameQue,Que:Name)            !室 室 
    IF ERRORCODE() THEN STOP(ERROR()).

  Que:Name = Fil:Name     !६ 砫쭮 祭  Fil:Name
  GET(NameQue,Que:Name)            !室 室 
    IF ERRORCODE() THEN STOP(ERROR()).

  Que:Name = '㧭殢'            !樠㥬 祢 
  Que:Zip = 12345
  GET(NameQue,'FirstField,SecondField')
  				   !室 室 
    IF ERRORCODE() THEN STOP(ERROR()).

. ⠪:  SORT


PUT                                       (१ )

        PUT(।[,[+],....[-]])
                                     


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

+-                  騩   /  砥,    
                        ஢  ந  
                    ⠭/뢠.

                ⪠ ,  ᠭ   ⠢  .
                    ᫨    䨪,     ⠪
                      .

                 ப ⠭, ६   ࠦ-
		    ,  ᮤঠ  ਡ  NAME   ,
                    室  ⠢ , ࠧ -
                    묨   易⥫ 騬  + 
                    -   ਡ.  ࠬ -
                    ⥫  ॣ 㪢.

PUT १뢠 ᮤন   ⭮   
  믮 GET  ADD. ᫨ GET  ADD  뫨 믮
 頥  訡 " ।   (Queue  Entry
Not Found).

PUT(।)        뢠  ⭮    ⭮⥫-
                       ।,   믮  -
                    ᫥ ᯥ GET  ADD.

PUT(।,)   頥   ஢ ।
                    ᫥ ᯥ譮 GET  ADD, ᮡ  -
                     ஢  ᫨ 뫨   祭
                    祢 .    ᯮ짮    16
		    祩, ࠧ 묨,  易⥫-
		     騬    , ⮡ -
		     ஢  ⠭  뢠.
		     㤥 ⠢ ࠧ ᫥   -
		    ⮢,  ᮮ⢥ 祭 -
		    祩.

PUT(।,)    頥   ஢ ।
		    ᫥ ᯥ譮 GET  ADD, ᮡ  -
		     ஢  ᫨ 뫨   祭
                    祢 . ப    ᮤঠ
		    NAME-ਡ , ࠧ 묨  
		     易⥫묨     
		     浪 ஢.  ⠢-
		     ࠧ ᫥  ⮢,   -
		    ⢥ 祭 .

頥 訡:
	  08 筮 
	  30   
	  75  ⥫ ⨯ 

ਬ:

NameQue   QUEUE,PRE(Que)
Name        STRING(20),NAME('FirstField')
Zip         DECIMAL(5,0),NAME('SecondField')
          .
  CODE
                              !  ந ।...
  Que:Name = ''              !樠㥬 祢 
  GET(NameQue,Que:Name)            !室 室 
    IF ERRORCODE() THEN STOP(ERROR()).

   Que:Zip = 12345               !塞 ⮢ 
   PUT(NameQue)                  !뢠   ।
     IF ERRORCODE() THEN STOP(ERROR()).

   Que:Name  =  ''           !樠㥬 祢 
   GET(NameQue,Que:Name)           !室 室 
     IF ERRORCODE() THEN STOP(ERROR()).

   Que:Name = '㧭殢'                !塞 祢 
   PUT(NameQue.Que:Name)         !뢠   ।
     IF ERRORCODE() THEN STOP(ERROR()).

   Que:Name  =  '㧭殢'         !樠㥬 祢 
   GET(NameOue,'FirstField')       !室 室 
     IF ERRORCODE() THEN STOP(ERROR()).

   Que:Name = ''                !塞 祢 
   PUT(NameQue,'FirstField')     !뢠   ।
     IF  ERRORCODE()  THEN   STOP(ERROR()).


SORT                                     (஢ ।)

       SORT(।[,[+],....[-]])
                                     


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

+-                  騩   /  砥,    
                        ஢  ந  
                    ⠭/뢠.

                ⪠ ,  ᠭ   ⠢  .
                    ᫨    䨪,     ⠪
                      .

                 ப ⠭, ६   ࠦ-
		    ,  ᮤঠ  ਡ  NAME   ,
                    室  ⠢ , ࠧ -
                    묨   易⥫ 騬  + 
                    -   ਡ.  ࠬ -
                    ⥫  ॣ 㪢.

SORT 㯮冷稢  . SORT    -
६饭 ,  ⮫쪮  㪠⥫ ⮢.

SORT(।,)     浪,  -
                    箬.  ᯮ짮  16 祩, ࠧ-
		      묨,    易⥫ 騬
		        , ⮡   -
		    ஢  ⠭  뢠.

SORT(।,)         浪,   
                    ப . ப   ᮤঠ NA-
		    ME-ਡ , ࠧ 묨   
		    易⥫묨       
		     浪 ஢.

頥 訡:
          08 筮 
	  75  ⥫ ⨯ 

ਬ:

Location  QUEUE,PRE(Loc)
Name        STRING(20),NAME('FirstField')
City        STRING(10),NAME('SecondField')
State       STRING(2)
Zip         DECIMAL(5.0)
          .
  CODE
  SORT(Location,Loc:State,Loc:City,Loc:Zip)
                                !㥬    ।
				! த  । 
  SORT(Location,+Loc:State,-Loc:Zip)
                                !㥬    ।
				!   뢠
  SORT(Location,'FirstField,-SecondField')
                                !㥬  뢠  
				! த

		     


POINTER                         (㪠⥫  ᫥ )

             POINTER(।)


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

㭪 POINTER  頥   楫 (⨯  LONG), 饥
 ᫥  ,  ஬ 頫 ADD 
GET.

頥 ⨯ : LONG

ਬ:

  Que:Name = ''              !樠㥬 祢 
  GET(NameQue,Que:Name)                  !砥 
    IF ERRORCODE() THEN STOP(ERROR()).   !    訡?
  SavPoint = POINTER(NameQue)            !࠭塞 㪠⥫


RECORDS                                   (⢮ ⮢)

             RECORDS(।)


।             ⪠ ,   ⪠  । -
		     ⨯ QUEUE.

㭪 RECORDS 頥  楫, ᮤঠ饥  ⢮
⮢  .

頥 ⨯ : LONG

ਬ:

  Entries# = RECORDS(Location)      ! ⢮ ⮢
  LOOP I# = 1 TO Entries#           !ࠡ뢠  ।
    GET(Location,I#)                !    
      IF ERRORCODE() THEN STOP(ERROR()).
    DO SomeProcess                  !  ࠡ뢠 
  .                                 ! 横
ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.


	 13 -    

⥬᪨ 㭪樨.................................... 13-1
     ABS (᮫⭮ 祭)............................ 13-1
     INRANGE (  ᫮   )...... 13-1
     INT (ᥪ ஡ )......................... 13-2
     LOGE (ࠫ ).......................... 13-2
     LOG10 ( ).......................... 13-3
     RANDOM (砩 ᫮)............................. 13-3
     ROUND (㣫 ᫠)............................. 13-4
     SORT ( ७)............................. 13-4

ਣ᪨ 㭪樨................................ 13-5
     SIN (ᨭ).......................................... 13-5
     COS (ᨭ)........................................ 13-6
     TAN (⠭)........................................ 13-6
     ASIN (ᨭ)...................................... 13-7
     ACOS (પᨭ).................................... 13-7
     ATAN (⠭).................................... 13-8

ப 㭪樨......................................... 13-9
     ALL (ப   ᨬ)............... 13-9
     CENTER (業஢ ப)........................ 13-9
     CHR (ॢ ASCII- ᨬ  ᨬ)........... 13-10
     CLIP (ப  墮⮢ ஡)................. 13-10
     DEFORMAT (㤠 ଠ஢  ᫮ ப).. 13-11
     FORMAT (ଠ ᫮  蠡)................ 13-11
     INSTRING ( ப  ப)................ 13-12
     LEFT (ப, ࠢ )..................... 13-13
     LEN ( ப)................................... 13-13
     LOWER ( ॣ)............................... 13-14
     NUMERIC (⮨  ப ⮫쪮  ?).......... 13-14
     RIGHT (ப, ࠢ ࠢ)................... 13-15
     SUB (頥 ப ப).................... 13-15
     UPPER (孨 ॣ).............................. 13-16
     VAL ( ᨬ).................................... 13-16

⮢ 㭪樨........................................... 13-17
     BAND (⮢  - AND)............................. 13-17
     BOR (⮢  - OR)............................. 13-18
     BXOR (⮢ ᪫饥  - XOR)............... 13-19
     BSHIFT (⮢ ᤢ)............................. 13-20

楤  㭪樨   ६........................ 13-21
     ⠭⭠ ..................................... 13-21
     ⠭⭮ ६.................................... 13-21
     TODAY (⥬ )............................... 13-21
     SETTODAY (⠭ ⥬ ).................. 13-22
     CLOCK (⥬ ६).............................. 13-22
     SETCLOCK (⠭ ⥬ ६).............. 13-22
     DATE (⠭⭠ ).............................. 13-23
     DAY (    ).................. 13-23
     MONTH (   )...................... 13-24
     YEAR (   )......................... 13-24
     AGE (   )........................ 13-25

楤  㭪樨 ................................... 13-26
     COMMAND ( ப)........................... 13-26
     MEMORY (㯭 )............................ 13-28
     PATH (⥪騩   ⠫)........................ 13-28
     RUNCODE ( 襭 )......................... 13-29
     SETCOMMAND (⠭ ࠬ  ப)... 13-30
     SETPATH ( ⥪騩   ⠫)............ 13-30

ᯮ⥫ 楤  㭪樨....................... 13-31
     ADDRESS ( )............................... 13-31
     ERROR (ᮮ饭  訡).......................... 13-31
     ERRORCODE (  訡)........................ 13-32
     ERRORFILE ( 訡筮 䠩)..................... 13-32
     IN (   ).......................... 13-33
     MAXIMUM (ᨬ쭮 祭  ᨢ)...... 13-33
     NAME (ᮢ᪮  䠩  ன⢠)............ 13-34
     OMITTED (஢ઠ ய饭 ࠬ஢)............ 13-35
     OUT (   )......................... 13-36
     PEEK (   ).................... 13-37
     POKE (    )................... 13-38
     STATUS (ﭨ ਭ/䠩/᪠/)... 13-39

		     


ABS                                        (᮫⭮ 祭)

             ABS(ࠦ)


ࠦ           ⠭, ६  ࠦ.

㭪 ABS 頥 ᮫⭮ 祭 . ᮫⭮
祭ᥣ ⥫쭮 ( ).

頥 ⨯ : REAL

ਬ:

  C = ABS(A - B)   !C - ᮫⭮ 祭 ࠧe  A  B
  IF B < 0 THEN B = ABS(B).   !᫨ B ⥫쭮,    ᬥ
			      !  


INRANGE                  (  ᫮   )

	INRANGE(ࠦ,_।,孨_।)


ࠦ           ᫮ ⠭,६  ࠦ.

_।       ᫮ ⠭, ६  ࠦ
                    饥  ࠭ .

孨_।      ᫮ ⠭, ६  ࠦ
		    饥  ࠭ .

㭪 INRANGE ࠢ   ⥫  
ᥫ. ᫨ 祭     ,  -
  頥    ("").  ᫨   
_      _,   頥
 ("").

頥 ⨯ : LONG

ਬ:

  IF INRANGE(Date % 7,1,5)     !᫨  - ࠡ稩
    DO WeekdayRate             !    筠
  ELSE                         !
    DO WeekendRate             !    ࠡ  室
  .                            ! ᫮


INT                                     (ᥪ ஡ )

             INT(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ.

㭪 INT 頥 楫  ᫮ .  -
    㣫  ந.

頥 ⨯ : REAL

ਬ:

    INT(8.5)   ୥  8
    INT(-5.9)  ୥ -5


LOGE                                      (ࠫ )

             LOGE(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ.
                   ᫨ 祭   ,   -
                   頥 , ᪮ ࠫ   -
                     ।  ⥫ ᥫ.

㭪 LOGE (ந   "loge"() )  頥 -
ࠫ  ᫮  . ࠫ   
⥫ ⥯,     ᫮ , ⮡ -
稫  ᫮. 祭 e  ਭ﫨  2.71828182846.

頥 ⨯ : REAL

ਬ:

  LOGE(2.71828182846)  ୥ 1
  LOGE(1)              ୥ 0

  LogVal = LOGE(Val)   ! ࠫ   VAL.


LOG10                                      ( )

             LOG10(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ.
                   ᫨ 祭   ,   -
                   頥 , ᪮  
                    ।  ⥫ ᥫ.

㭪 LOG10 (ந  "log ten"( ) )  頥
    ᫮  .  ,
 ⥫ ⥯,     10, ⮡  -
  ᫮.

頥 ⨯ : REAL

ਬ:

   LOG10(10)   ୥ 1
   LOG10(1)    ୥ 0

   LogStore = LOG10(Var)   !࠭    VAR


RANDOM                                         (砩 ᫮)

             RANDOM(_।,孨_।)


_।      ᫮ ⠭, ६  ࠦ,
                   饥  ࠭ .

孨_।     ᫮ ⠭, ६  ࠦ,
		   饥  ࠭ .

㭪 RANDOM 頥 砩 楫    
 ⥫쭮. ࠬ _।  孨_।
  묨 ᫮묨 ࠦﬨ,    砥-
⮫쪮  楫 .

頥 ⨯ : LONG

ਬ:

   LOOP X# - 1 TO 6
     LottoNbr[X#] = RANDOM(1,49)     !롨ࠥ ᫠  6  49
   .


ROUND                                         (㣫 ᫠)

             ROUND(ࠦ,筮)


ࠦ          ᫮ ⠭, ६  ࠦ.

筮           ᫮ ࠦ, 饥 ⥯ -
                   ,  : 1, 10, 100, 0.1, 0.001  .. -
                    祭   筮 ⥯ -
                   ,  ᯮ   ⥯
                   .. 0.55   0.1,  155 -  100.

㭪 ROUND 頥 祭 , 㣫   -
  .

頥 ⨯ : REAL

ਬ:

   ROUND(5163,100)      ୥ 5200
   ROUND(657.50,1)      ୥ 658
   ROUND(51.63594,.O1)  ୥ 51.64

  Commission = ROUND(Price / Rate,.01)
                       !㣫塞 ᨮ  楫 


SQRT                                         ( ७)

             SQRT(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ.
                   ᫨ 祭    ,   -
                   頥 0.

㭪 SORT 頥  ७  . ᫨  -
  ⥫쭮 ⢥ ᫮,  ७ 
 ,  ⠪ ᫮, ஥,  㬭 ᠬ   ᥡ,
 .

頥 ⨯ : REAL

ਬ:

  Length = SORT(X^2 + Y^2)
           ! ⥮६ 䠣 室 ﭨ  0,0  X,Y


		   

ਣ᪨ 㭪樨   祭,  ।⠢騥
㣫  ᮮ⭮襭 ஭ אַ㣮쭮 㣮쭨  (ᮤঠ-
饣 㣮  90). ⥭㧠,  ஭ ॣ쭨,  ⨢-
  אַ 㣫. (⠫ ஡  㧭 
 ଠ쭮 祡 ਣਨ,  -᪨ -
砥 "७ 㣮쭨").

 ࠦ   ࠤ.  PI ()  -   ⠭, 
।⠢ ᮮ⭮襭   㦭    ࠤᮬ.
 㦭  2*Pl ࠤ ( 360 ࠤᮢ).

 ਢ    筮 祭   樥
८ࠧ  ࠤ  ࠤᠬ.

 Pi       EQUATE(3.1415926535898) !祭 
 Rad2Deg  EQUATE(57.295779513082) !ࠤᮢ  ࠤ
 Deg2Rad  EQUATE(.0174532925199)  !  ࠤ


SIN                                                      (ᨭ)

             SIN(ࠤ)


ࠤ             ᫮ ⠭, ६  ࠦ,
                   饥 㣮  ࠤ.

㭪 SIN 頥 ਣ᪨ ᨭ 㣫, ࠦ-
  ࠤ.  -  ᮮ⭮襭   ஭ -
⨢ 㣫   ⥭.

頥 ⨯ : REAL

ਬ:

  Angle = 45 * Deg2Rad    !ॢ 45  ࠤ
  SineAngle = SIN(Angle)  !砥 ᨭ 㣫  45


COS                                                    (ᨭ)

             COS(ࠤ)


ࠤ             ᫮ ⠭, ६  ࠦ,
                   饥 㣮  ࠤ.

㭪 COS 頥 ਣ᪨ ᨭ 㣫, ࠦ-
  ࠤ. ᨭ  -  ⭮襭 ஭  ਫ饩 
㣫  ⥭.

頥 ⨯ : REAL

ਬ:

  Angle = 45 * Deg2Rad     !ॢ 45  ࠤ
  CoSineAngle = SIN(Angle) !砥 ᨭ 㣫  45


TAN                                                    (⠭)

             TAN(ࠤ)


ࠤ             ᫮ ⠭, ६  ࠦ,
                   饥 㣮  ࠤ.

㭪 TAN 頥 ਣ᪨ ⠭ 㣫, ࠦ-
  ࠤ.  -  ⭮襭 ஭  ⨢-
 㣫  ஭ ਫ饩  㣫.

頥 ⨯ : REAL

ਬ:

  Angle = 45 * Deg2Rad      !ॢ 45  ࠤ
  TangentAngle = SIN(Angle) !砥 ⠭ 㣫  45


ASIN                                                  (ᨭ)

             ASIN(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ,
                   饥 ᨭ 㣫.

㭪 ASIN 頥  ᨭ. " ᨭ" -
 " 㣮, 騩  ᨭ". 頥 㣮  
ࠤ.

頥 ⨯ : REAL

ਬ:

  InvSine = ASIN(SineAngle)                   ! ᨭ

. ⠪: SIN


ACOS                                                (પᨭ)

             ACOS(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ,
                   饥 ᨭ 㣫.

㭪  ACOS  頥    ᨭ. " ᨭ"
砥 "  㣮, 騩   ᨭ".  頥
㣮  ࠤ.

頥 ⨯ : REAL

ਬ:

  InvCosine = ACOS(CosineAngle)             !砥 પᨭ

. ⠪: COS


ATAN                                                (⠭)

             ATAN(ࠦ)


ࠦ          ᫮ ⠭, ६  ࠦ,
                   饥 ⠭ 㣫.

㭪  ATAN  頥    ⠭ " ⠭"
砥 "  㣮, 騩   ⠭".  頥
㣮  ࠤ.

頥 ⨯ : REAL

ਬ:

  InvTangent = ATAN(TangentAngle)           ! ⠭

. ⠪: TAN


		        


ALL                           (ப   ᨬ)

             ALL(ப[,])


ப              ப ࠦ,  ᮤঠ饥  ᫥-
                    ⥫쭮 ᨬ  ७.

                 頥 ப. ᫨  ய饭,
                     㤥 饭 ப  255 ᨬ.

㭪 ALL  頥 ப,  ᮤঠ ,  ७
᪮쪮 ࠧ.

頥 ⨯ : STRING

ਬ:

   Starline = ALL('*',25)   ! 25 祪
   Dotline = ALL('.')       ! 255 祪


CENTER                                    (業஢ ப)

             CENTER(ப[,])


ப            ப ⠭, ६  ࠦ.

              १饩 ப.  ᫨  ய饭,
                   ᯮ  ࠬ .

㭪 CENTER  ᭠砫 㤠  騥   墮⮢ ஡ 
, ⥬   騬  墮⮢묨 ஡  ⠪,
⮡ ப 業஢  ।   ⥬ -
 祭 १.

頥 ⨯ : STRING

ਬ:

   CENTER('ABC',5)   ୥  ' ABC '
   CENTER('ABC   ')  ୥  ' ABC '
   CENTER('   ABC')  ୥  ' ABC '

  Message = CENTER(Message)                 !饭 -  業
  Rpt:Title = CENTER(Name,60)               ! -  業


CHR                       (ॢ ASCII- ᨬ  ᨬ)

             CHR()


                     ᫮ ࠦ, ᮤঠ饥 ᫮
			ASCII- ᨬ.

㭪 CHR 頥 ᨬ, ।⠢  ASCII-.

頥 ⨯ : STRING

ਬ:

   Stringvar = CHR(122)    !筠 "z"
   Stringvar = CHR(239)    !筠 ""


CLIP                             (ப  墮⮢ ஡)

             CLIP(ப)


ப              ப ࠦ.

㭪 CLIP 㤠  墮⮢ ஡   ப. 頥
ப -  ப   墮⮢ ஡. CLIP 
ᯮ   ஬ ⥭樨 (᫨ﭨ)   -
 ࠦ.

頥 ⨯ : STRING

ਬ:

  Name = CLIP(Last) &','& CLIP(First) & Init & '.'
                                    !   ࠧ,
				    ! ⨯ "Agarkoff, Serg P."


DEFORMAT              (㤠 ଠ஢  ᫮ ப)

             DEFORMAT(ப[,蠡])


ப             ப ࠦ, ᮤঠ饥 ப .

蠡              ଠ  ⪠  ⨯ STRING,
                   CSTRING    PSTRING,  ᠭ  蠡
                   ଠ. ᫨ ய饭,  ᯮ 蠡-
                   ,  ᯮ짮    .  (?)  ᫨
                    ᠭ  ࠬ ,   -
                   頥 祭 㤥 ᮤঠ ⮫쪮  
                   ᨬ,   ࠧ襭   ᫮ -
                   ⠭.

㭪 DEFORMAT 㤠 ᨬ ଠ஢  ப, ᮤ-
饩 ,  頥 ⮫쪮  ,    ᯮ 
᫮.

頥 ⨯ : STRING

ਬ:

  DialString = 'ATDT1' & DEFORMAT(Phone,@P(###)###-####P) & |
                '@13,10)'   !⠢塞    

  ClarionDate = DEFORMAT(dBaseDate,@D1)
              !砥 ⠭   ப  mm/dd/yy


FORMAT                            (ଠ ᫮  蠡)

             FORMAT(祭,蠡)


祭            ᫮ ࠦ, ᮤঠ饥 祭  
                    ଠ஢.

蠡               ଠ  ⪠ STRING, CSTRING 
		    PSTRING ᠭ  ࠬ஬ .

㭪 FORMAT 頥 ᫮ ப, ଠ஢ -
᭮ ࠬ .

頥 ⨯ : STRING

ਬ:

  Rpt:SocSecNbr = FORMAT(Emp:SSN,@P###-##-####P)
         !ଠ㥬   窨 樠쭮 客

  Phone=FORMAT(DEFORMAT(Phone,@P###-###-####P),@P(###)###-####P)
                   !塞      ᪮

  DateString = FORMAT(DateLong,@D1)   !८ࠧ㥬   ப


INSTRING                            ( ப  ப)

	   INSTRING(ப,ப[,蠣][,])


ப         ப ⠭, ६  ࠦ,
                  ᮤঠ饥 ᪮ ப.

ப            ⪠  ६  ⨯  STRING,  CSTRING  
		  PSTRING,  ன ᪠.

蠣               ᫮ ⠭, ६   ࠦ,
                  饥 ࠧ  蠣 ᪠.  =1 砥,
                    㤥 ᪠   ᨬ
                  , =2  -    ண  ᨬ 
                  ⠪ . ᫨ ய饭,   㬮砭  -
                    .

             ᫮ ⠭, ६   ࠦ,
                  饥 砫  ,   ᨬ, 
                  ᪠ring.  ᫨  ய饭,   筥 
                  ࢮ ᨬ .

㭪 INSTRING  室   , ᪨    宦
. ᫨  ,  頥  ᨬ
 ,  ண 稭 宦   .  ᫨
   ,  INSTRING 頥 0.

頥 ⨯ : LONG

ਬ:

     INSTRING('DEF','ABCDEFGHIJ',1,1)   ୥  4
     INSTRING('DEF','ABCDEFGHIJ',2,1)   ୥  0
     INSTRING('DEF','ABCDEFGHIJ',2,2)   ୥  2
     INSTRING('DEF','ABCDEFGHIJ',3,1)   ୥  2

  Extension = SUB(FileSpec,INSTRING('.',FileSpec) + 1,3)
               !뤥塞 ७   ᯥ䨪樨 䠩

  IF INSTRING(Search.Cus:Notes,1,1)    !᫨ ᪮ ६
				       ! , 
    Scr:Message = ' ⠪ 㪢!'  !  ᮮ  ⮬
  .


LEFT                                 (ப, ࠢ )

             LEFT(ப[,])


ப            ப ⠭, ६  ࠦ.

             ᫮ ⠭, ६   ࠦ,
                  饥  頥 ப. ᫨  -
                  饭,   १ ࠢ  .

㭪 LEFT 䮧頥 , ࠢ . 騥  -
 㤠  .

頥 ⨯ : STRING

ਬ:

  CompanyName = LEFT(CompanyName) !  ᤢ 


LEN                                               ( ப)

             LEN(ப)


ப            ப ⠭, ६  ࠦ.

㭪 LEN  頥   . ᫨  ࠬ  
⪠ ६,  LEN ୥     ⮩
६. ᫮ 祭 ⮬᪨ ८ࠧ  -
 ப.

頥 ⨯ : LONG

ਬ:

  IF LEN(CLIP(Title) &' '& CLIP(First) &' '& CLIP(Last)) > 30
              !᫨    㪫뢠   ,
    Rpt:Name = CLIP(Title) &' '& SUB(First.1.1) &'.'& Last
              !   ⢠ ᯮ㥬 樠.
  ELSE
    Rpt:Name = CLIP(Title) &' '& CLIP(First) &' '& CLIP(Last)
              !   ᫨   浪,  ⠢  
  .

  Rpt:Title = CENTER(Cus:Name,LEN(Rpt:Title))
                                   !㥬   


LOWER                                           ( ॣ)

             LOWER(ப)


ப             ப ⠭, ६  ࠦ
                    ८ࠧ.

㭪 LOWER 頥 ப,  ன  㪢 - .

(... -   ᮢᥬ ୮  ᪮ ⥪,  CLA-
RION SoftWare     㦨 :( )

頥 ⨯ : STRING

ਬ:

  Name = SUB(Name,1,1) & LOWER(SUB(Name,2,19))
               ! 㪢 , ஬ ࢮ, ᤥ 묨


NUMERIC                      (⮨  ப ⮫쪮  ?)

             NUMERIC(ப)


ப            ப ⠭, ६  ࠦ.

㭪 NUMERIC 頥 1 () ᫨ ப ᮤন  ࠧ-
襭 ᫮ 祭.  ୥ 0 () ᫨ ப  -
ন ஢ ᨬ. 襭  ᨬ,     0
 9, 騩    筠 窠.

頥 ⨯ : LONG

ਬ:

  IF NOT NUMERIC(PartNumber)    !᫨   -  ᫮,
    DO ChkValidPart             ! ஢ਬ   ⨬
  .                             ! ᫮


RIGHT                               (ப, ࠢ ࠢ)

             RIGHT(ப[,])


ப            ப ⠭, ६  ࠦ.

             ᫮ ⠭, ६   ࠦ,
                  饥  頥 ப. ᫨  -
                  饭,   १ ࠢ   -
                  .

㭪 RIGHT 頥  ப, ࠢ ࠢ.  ⮢
஡ 㤠, ⥬ ப  ᫥ 騬  -
  .

頥 ⨯ : STRING

ਬ:

  Message = RIGHT(Message)            !饭 ᤢ ࠢ


SUB                                (頥 ப ப)

             SUB(ப,,)


ப            ப ⠭, ६  ࠦ.

           ᫥ ⠭, ६   -
		  .   ⥫쭠,   
                   ᨬ   砫 , ᫨  -
                  ⥫쭠,    .

             ᫮ ⠭, ६   ࠦ,
                   ⢮ 頥 ᨬ.

㭪 SUB 頥   ᨬ  , 稭   -
 .

頥 ⨯ : STRING

ਬ:

  SUB('ABCDEFGHI',1,1)   ୥  'A'
  SUB('ABCDEFGHI',-1,1)  ୥  'I'
  SUB('ABCDEFGHI',4,3)   ୥  'DEF'

  Extension = SUB(FileName,INSTRING('.',FileName,1,1),3)
                                      !砥 ७ 䠩

. ⠪: INSTRING


UPPER                                          (孨 ॣ)

             UPPER(ப)


ப             ப ⠭, ६  ࠦ
                    ८ࠧ.

㭪 UPPER 頥 ,  ன  ᨬ - -
.

(... -   ᮢᥬ ୮  ᪮ ⥪,  CLA-
RION SoftWare     㦨 :( )

頥 ⨯ : STRING

ਬ:

   Name = UPPER(Name)       !  뢥  孥 ॣ


VAL                                                ( ᨬ)

             VAL(ᨬ)


ᨬ              ⭠ ப, ᮤঠ .

㭪 VAL 頥 ASCII- .

頥 ⨯ : LONG

ਬ:

  VAL('')  ୥  239
  VAT('z')  ୥  122

  CharVal = VAL(StrChar)
                    ! ASCII- ᨬ  StrChar


			 

JOKE:
-  ⠪ ?
-    ⮬ .
-  ⠪ ?
- [ᥬ ࠧ ,  ⠪ ]
-    ⠪ ?
- ,  祭  ...


BAND                                         (⮢  - AND)

             BAND(祭,᪠)


祭           ᫮ ⠭, ६  ࠦ,
                   饥 ⮢ 祭,  ஥  -
                   뢠 . ,   室,
                   ८ࠧ  ⨯ LONG । 樥.

᪠              ᫮ ⠭, ६  ࠦ,
                   饥  ⮢  .   室,
                    ८ࠧ  ⨯ LONG ।  믮-
                    樨.

㭪 BAND ࠢ   , 믮   -
    ⮬. 頥  楫,  -
஬   ⮫쪮   ,   뫨   
  ,  ⠫   㫨.

BAND 筮 ᯮ   ᭥ 祭    -
᪮쪨  (0  1)  ६.

頥 ⨯ : LONG

ਬ:

  BAND(0110b,0010b)     ୥ 0010b     !0110b = 6, 0010b = 2

RateType  BYTE                 ! 
Female    EQUATE(0001b)        !᪠  騭
Male      EQUATE(0010b)        !᪠  稭
Over25    EQUATE(0100b)        !᪠  ,   25 

       CODE
  IF BAND(RateType,Female) |       !᫨ 騭
      AND BAND(RateType,Over25     !  25 ,
    DO BaseRate                    !  ६ - 筠
  ELSIF BAND(RateType,Male)        !᫨ 稭,
    DO AdjBase                     !  ࠢ ࠧ ६
  .                                !End if


BOR                                         (⮢  - OR)

             BOR(祭,᪠)


祭           ᫮ ⠭, ६  ࠦ,
                   饥 ⮢ 祭,  ஥  -
                   뢠 . ,   室,
                   ८ࠧ  ⨯ LONG । 樥.

᪠              ᫮ ⠭, ६  ࠦ,
                   饥  ⮢  .   室,
                    ८ࠧ  ⨯ LONG ।  믮-
                    樨.

㭪 BOR ࠢ   , 믮   -
    ⮬. 頥  楫,  -
஬   ࠢ  ,  뫨 栬  
,        ⠬  ⠬,  ⠫  
ﬨ.

BOR 筮 ᯮ  ⮣, ⮡ ਭ㤨⥫쭮 ⠭
  ᪮쪮 ⮢ ६  .

頥 ⨯ : LONG

ਬ:

  BOR(0110b,0010b)  ୥ 0110b  !0110b = 6, 0010b = 2

RateType  BYTE                 ! 
Female    EQUATE(0001b)        !᪠  騭
Male      EQUATE(0010b)        !᪠  稭
Over25    EQUATE(0100b)        !᪠  ,   25 

      CODE
      RateType = BOR(RateType,Over25) !⠭ ਧ "-
                                      !  25 "
      RateType = BOR(RateType,Male)   !⠭ ਧ "
				      ! 稭"


BXOR                           (⮢ ᪫饥  - XOR)

             BXOR(祭,᪠)


祭           ᫮ ⠭, ६  ࠦ,
                   饥 ⮢ 祭,  ஥  -
                   뢠 . ,   室,
                   ८ࠧ  ⨯ LONG । 樥.

᪠              ᫮ ⠭, ६  ࠦ,
                   饥  ⮢  .   室,
                    ८ࠧ  ⨯ LONG ।  믮-
                    樨.

㭪 BXOR ࠢ   , 믮  -
     ⮬. 頥  
楫,  ஬    ⠭ ⮫쪮  , -
 뫨 栬      .  ,  
ᮢ     ,   ⠪ ,   뫨 ﬨ 
⠬  ⠬,  ﬨ.

BXOR 筮 ᯮ  ४祭  1  0   
  ᪮쪨 ⮢ ६.

頥 ⨯ : LONG

ਬ:

  BXOR(0110b,0010b)  ୥  0100b    !0110b=6, 0100b=4, 0010b=2

RateType  BYTE                 ! 
Female    EQUATE(0001b)        !᪠  騭
Male      EQUATE(0010b)        !᪠  稭
Over25    EQUATE(0100b)        !᪠  ,   25 
Over65    EQUATE(1100b)        !᪠  ,   65 

       CODE
  RateType = BXOR(RateType,Over65) !஢ ਧ "-
				   !  65 "


BSHIFT                                         (⮢ ᤢ)

             BSHIFT(祭,稪)


祭           ᫮ ⠭, ६  ࠦ.
                    室, ८ࠧ  ⨯ LONG
		   । 樥.

稪            ᫮ ⠭, ६  ࠦ,
                   饥  ᪮쪮  㦭 ᤢ -
                   . ᫨  ⥫, 祭 ᤢ-
                    , ᫨ ⥫ -  .

㭪 BSHIFT ᤢ     ⮢. 
  ᤢ  (  ⮢  訬)  -
 (   訬), ᢮騥   -
ﬨ.

(... -  ᪠,  BSHIFT 㬭 (>0)  -
 (<0)    2  ⥯ .  , ⮡
㬭   16  믮  =*16  =BSHIFT(X,4),
祬 ᫥ ࠦ 믮 ॥ ࢮ, ᪮
筮 ॠ  ஢ ୮  ᤢ.  -
 ᯮ   ਭ樯)

頥 ⨯ : LONG

ਬ:

  BSHIFT(0110b,1)   ୥ 1100b
  BSHIFT(0110b,-1)  ୥ 0011b

  Varswitch = BSHIFT(20,3)           !  8
  Varswitch = BSHIFT(Varswitch,-2)   !  4

(... -   ᠫ ᢮ ਬ砭,    ᬮ५  
।騥 ப :)


	           


  ⠭⭠ 


⠭⭠  ਮ -  ᫮ , 襤  28  -
 1800 . 㯭     1 ﭢ 1801 (⠭-
⭠  4)   31   2099 (⠭⭠   109211).
㭪樨 ࠡ  ⮩     ࠢ  १⮢
 祭,  室    ।.   ⠭⭮
  ࠨ    ᮪     㯭
.

筮, ⢥ ⠭⭮  ᯮ  ⨯ LONG
ᠭ   蠡   (@D).    DATE  -  ଠ
, ᯮ㥬 ஬ ᥩ Btrieve.  DATE -
ࠧ  LONG, ᮤঠ饥 ⠭  ਮ । -
   ⥬᪨ 権   権  ࠡ 
⠬.  ࠧ, DATE ⮨ ᯮ짮  䠩 ᮢ-
⨬  Btrieve,  LONG -  㣨 䠩 ⥬.


  ⠭⭮ ६


⠭⭮ ६ ਮ -  ᫮   ᥪ㭤,  -
襤  㭮. ⨬ ।:   1 (  ਭ﫨  
)   8,640,00 (23:59:59:99).  ⠭⭮ ६  1 筮
ᮮ⢥ 㭮.  ६   ࠦ  筮  
  ᥪ㭤, ⥬  ⠩   ⮫쪮  18.2
ࠧ  ᥪ㭤 (ਡ⥫쭮  5.5  ᥪ㭤).

筮,  ⢥ ⠭⭮ ६ ᯮ  ⨯
LONG ᠭ  蠡 ६ (@T).   TIME  ᯮ-
   ᥩ Btrieve.  ⨯ TIME ८ࠧ 
LONG, ᮤঠ饥 ⠭⭮ ६ ਮ । 믮 -
 ⥬᪨ 権  権  ६.   -
ࠧ, DATE   ᯮ짮  䠩  ᮢ⨬
 Btrieve,  LONG -   ⠫ .


TODAY                                           (⥬ )

             TODAY()


㭪 TODAY 頥 ⥬  DOS  ଠ  ⠭-
  ਮ.

頥 ⨯ : LONG

ਬ:

  SETTODAY(TODAY() + 1)    !⠭  
  OrderDate = TODAY()      !⠢   ᥣ 


SETTODAY                              (⠭ ⥬ )

             SETTODAY()


               ᫮ ⠭, ६  ࠦ,
                   ᮤঠ饥 ⠭ .

 SETTODAY ⠭ ⥬  .

ਬ:

   SETTODAY(TODAY() + 1)             !⠭  


CLOCK                                          (⥬ ६)

             CLOCK()


㭪 CLOCK 頥 ६ , 室  ⥬ ६
.

頥 ⨯ : LONG

ਬ:

  Time = CLOCK()                      !࠭塞 ⥬ ६
  SHOW(1,1,CLOCK(),@T4)               ! ⥬ ६


SETCLOCK                          (⠭ ⥬ ६)

             SETCLOCK(६)


६              ᫮ ⠭, ६  ࠦ,
                   ᮤঠ饥  ⠭⭮  ६,  ࠦ 
                     ᥪ㭤).

 SETCLOCK ⠭ ⥬ ६ .

ਬ:

  SETCLOCK(1)                           !  ⠭ !!!


DATE                                          (⠭⭠ )

             DATE(,᫮,)


              ᫮ ⠭, ६  ࠦ,
                   饥 .

᫮              ᫮ ⠭, ६  ࠦ,
                   饥 ᫮ .

                ᫮ ⠭, ६  ࠦ,
                   饥 ,      00   99 (
                   砥  1900-1999)   1801  2099

㭪 DATE  頥 ⠭      ,
᫠  . ࠬ      祭, -
騥   । ࠧ㬭.  , 13   ᬠਢ
 ﭢ ᫥饣 .   32 ﭢ ᬠਢ 
1  䥢ࠫ.  ⢥⢥,  DATE(12,32,87),  DATE(13,1,87)  
DATE(1,1,88)      .

頥 ⨯ : LONG

ਬ:

  HireDate = DATE(Hir:Month,Hir:Day,Hir:Year) !塞 
					      ! ਥ  ࠡ

. ⠪: ⠭⭠ 


DAY                              (    )

             DAY()


                ᫮  ⠭,  ६,  ࠦ
                      ⪠  ६  ⨯ STRING, CSTRING
		     PSTRING, ᠭ  蠡 .  
                       ⠭⭮ ⮩.  ६,
                    ᠭ  蠡 , ⮬᪨ -
                    ࠧ  ஬筮 祭 -  ⠭-
                     .

㭪 DAY  ᫮  (1..31)   ⠭-
⭮ .

頥 ⨯ : LONG

ਬ:

  OutDay = DAY(TODAY())           !   ᥣ ᫮?
  DueDay = DAY(TODAY()+2)         !塞  믫

. ⠪: ⠭⭠ 


MONTH                                  (   )

             MONTH()


                ᫮  ⠭,  ६,  ࠦ
                      ⪠  ६  ⨯ STRING, CSTRING
		     PSTRING, ᠭ  蠡 .  
                       ⠭⭮ ⮩.  ६,
                    ᠭ  蠡 , ⮬᪨ -
                    ࠧ  ஬筮 祭 -  ⠭-
                     .

㭪 MONTH 頥   (1..12)   ⠭
⭮ .

頥 ⨯ : LONG

ਬ:

  PayMonth = MONTH(DueDate)         ! 믫

. ⠪: ⠭⭠ 


YEAR                                     (   )

             YEAR()


                ᫮  ⠭,  ६,  ࠦ
                      ⪠  ६  ⨯ STRING, CSTRING
		     PSTRING, ᠭ  蠡 .  
                       ⠭⭮ ⮩.  ६,
                    ᠭ  蠡 , ⮬᪨ -
                    ࠧ  ஬筮 祭 -  ⠭-
                     .

㭪 YEAR  頥        
⠭⭮  (1801 to 2099).

頥 ⨯ : LONG

ਬ:

  IF YEAR(LastOrd) < YEAR(TODAY())
                     !᫨  ᫥    ⮬ ,
    DO StartNewYear  !   筥  
  .

. ⠪: ⠭⭠ 


AGE                                    (   )

             AGE(_஦,_)


_஦       ᫮ ࠦ  ⠭⭮ .

_        ᫮ ࠦ  ⠭⭮ . -
                     ய饭,   ᫥  -
                    ⥬  .

㭪 AGE 頥 ப, ᮤঠ ६, 襤襥 
 ⠬. 頥 ப  ⠪ ଠ:

   1..60            - 'nn DAYS'
   61 ..24    - 'nn MOS'
   2 ..999       - 'nnn YRS'

頥 ⨯ : STRING

ਬ:

  Message = '⭨ ' & Emp:Name & ' ᥣ譨 ' |
  & AGE(Emp:DOB.TODAYo)
                          !뢮  ࠡ⭨  ᮮ饭

. ⠪: ⠭⭠ 

		       


COMMAND                                       ( ப)

             COMMAND(䫠[,])


䫠         ப ⠭  ६, ᮤঠ  -
               ࠬ      ࠬ   
             ப.

     ᫥ ⠭  ६   
              0  3. ᫨ ய饭,   㬮砭 0.

㭪 COMMAND 頥 祭 ࠬ    
ப, 䠩 䨣樨   ६ 㦥.  ᫨ 
 ,  COMMAND 頥   ப.  ᫨  ᠭ
⭮,  頥  ࢮ 祭.

 㪠뢠  ᪠:

       3        ப
       2       䠩 䨣樨
       1       㦥
       0         ।,  浪 3-2-1

COMMAND  ࠦ =VALUE  頥 VALUE.  
 ஡  ,  ࠢ⢠  VALUE.   -
樮 䠩  㦥 頥 ,  室
ࠢ   ࠢ⢠. VALUE, 砥   ப
뢠  ࢮ ⮩  ஡. ᫨ ஡  -
  祭 ,  ,  ⮨ ࠢ   
ࠢ⢠,     窨 (="VALUE").

, COMMAND    ப , ।  ⮨
 (/).  ᫨ ⠪  ,   COMMAND 頥  祭
   . ᫨   ᮤন  ⮫쪮 ᫮,   COMMAND
頥 ࠬ  ப,  ண  ᮤন
 . ᫨  -  ப ('')  =3,  -
頥   ப,  ன  騩 ஡.

 䨣樨  ࠨ ணࠬ  ६  -
.  ⥪⮢ 䠩,  ᮤন   -
ࠬ,     ६ ᯮ.  ࠬ
  ⤥ ப.  㬮砭,  䠩 -
樨,    ணࠬ,   ன   䠩  ⭮, 
७ .INI.       ப -
ࠬ஬ CLAINI=__䠫. CLAINI  ⠭  -
 SETCOMMAND.

頥 ⨯ :  STRING

ਬ:

C:\>MYPROG CLAVM="EMS ... 16,3,6"
                   !ࠬ   ப ᮤন 

C:\>MYPROG CLAINI=INITFILE.INI
                      ! MYPROG.INI ᯮ㥬 INITFILE.INI

  RUN(COMMAND('COMSPEC',1) & '/C DIR /P')
                             !室 ⮯ command.com
                             !  믮塞  

  IF COMMAND('/N',3)                !  ப  /N?
    DO SomeProcess
  .

  IF UPPER(COMMAND('CLAVM',0)) = 'OFF'
                        !㦥 㠫쭠  ⪫祭?
    DO NoVirtualMem     !  ⮣ ਤ    :-(
  ELSE
    DO VirtualMem       !  , ⥭ᨢ ᯮ饥
			!  .
  .

  CommandString = COMMAND(",3)    !砥   ப

  SecondParm = COMMAND('2'.3)
                   !砥   ப ன ࠬ

. ⠪: SETCOMMAND


MEMORY                                        (㯭 )

             MEMORY([n])


n     ᫮ ⠭,  ६   ࠦ.  ⨬
      祭 0..4, ⥫쭮. ᫨ ய饭,   㬮-
       - 0.

㭪 MEMORY 頥 ⢮ 㯭 ᢮  
 . ᫨ n=0  n=1,  頥 㯭  ⠭-
 (conventional) ,  n=2 頥 ⢮  ᢮-
 EMS,  n=3 頥 饥 ⢮ ᢮ -
㠫쭮 ,   n=4 頥 ࠧ ᨬ쭮 -
㯭  . ᫨ n    1..4,   -
 .

頥 ⨯ : LONG

ਬ:

 SysMem = MEMORY()  !頥 ⢮
 SysMem = MEMORY(0) ! ᢮
 SysMem = MEMORY(1) ! ⠭⭮ 
 SysMem = MEMORY(2) !頥 ⢮ ᢮ EMS
 SysMem = MEMORY(3) !頥 饥 ⢮ ᢮
 		    ! 㠫쭮 
 SysMem = MEMORY(4) !頥 訩 㠫 


PATH                                    (⥪騩   ⠫)

             PATH()


㭪 PATH 頥 ப, ᮤঠ ⥪騩    -


頥 ⨯ : STRING

ਬ:

  IF PATH() = 'C:\'                            !᫨   ୥
    SHOW(12,12,' ᥩ  ୥ ⠫')!  ᮮ騬 
					       ! ⮬
. ⠪: SETPATH


RUNCODE                                     ( 襭 )

             RUNCODE()


㭪 RUNCODE 頥  襭, ।    -
, 믮 ஬  RUN.    室 ।
஬ HALT   ணࠬ  ਮ,       ER-
RORLEVEL   DOS. 祭,  頥 㭪樥  RUNCODE 
⨯ LONG     祭, ।     
襭 ஦ .

஦    ।   DOS  ⮫쪮 祭 ⨯
BYTE  ⢥   襭, ⮬,  ⢥   -
襭   ᯮ짮 ⥫ ᫠.   䠪
  㭪樨  RUNCODE  १ࢨ஢  祭,
⮡ ࠡ뢠 樨,    室 㯥:

        0  ଠ쭮 襭
       -1  ணࠬ ࢠ  Ctri-C
       -2  ணࠬ ࢠ - ᪮ 訡
       -3  TSR 訫 ࠡ
       -4  ணࠬ  ⨫ (஢ 㭪 ERROR())

頥 ⨯ : LONG

ਬ:

   RUN('Nextprog.exe')            !᪠ ᫥ ணࠬ
   IF RUNCODE() = -4
     IF ERROR() = 'Not Enough Memory'
            !᫨ ணࠬ  ⨫ - 墠⪨ 
       SHOW(25,10,'Insufficient memory') !  ᮮ  ⮬
       RETURN                      !   楤
     ELSE
       STOP(ERROR())               ! ࢠ  ணࠬ
   . .

. ⠪: RUN, RUNSMALL, HALT


SETCOMMAND               (⠭ ࠬ  ப)

             SETCOMMAND(_ப)


_ப  ப ⠭, ६  ࠦ,
                  ᮤঠ饥  ࠬ  ப.

SETCOMMAND  ணࠬ ""  ࠬ -
 ப,    㭪 COMMAND.  SETCOMMAND
४뢠  ࠬ  ப  ⠪   -
. ⮡ ⬥ ࠬ, 稭騩  ,   -
  ࠢ⢠ (=)    ப.

SETCOMMAND  ᯮ짮  ⠭ ࠬ஢  ⥬-
 ஢,        ப  㧪
ணࠬ.   ࠬ,   㠫쭠   (CLAVM=) 
䠩 䨣樨 ணࠬ (CLAINI=)     -
㧪        SETCOMMAND.  ⠫
 ६  䠩 (CLATMP=)   ८।   SETCOM-
MAND.

ਬ:

  SETCOMMAND(' /N')                       !塞 ࠬ /N
  SETCOMMAND(' /N=')                      !⪫砥 ࠬ /N

. ⠪: COMMAND


SETPATH                        ( ⥪騩   ⠫)

             SETPATH(__)


__  ப   ⠭    ⪠  ६  ⨯
	     STRING, CSTRING  PSTRING, ᮤঠ饩  ᯥ䨪-
	       ᪠  . ᫨ ய饭 㪢 ᪠
	      稥 ᫥  ,  ࠧ㬥  ⥪騩
	     .

SETPATH  ⥪騩   ⠫ . ᫨   -
  ࠢ쭮, 頥 訡 "  "
(Path Not Found)  ⥪騩 ⠫  .

頥 訡:
	  03   

ਬ:

  SETPATH('C:\LEDGER')   !室  ⠫ 壠᪨ 
  SETPATH(UserPath)      !室  짮⥫᪨ ⠫


	         


ADDRESS                                           ( )

             ADDRESS(६)


६          ⪠  .

㭪 ADDRESS 頥  楫 (LONG), ᮤঠ饥  -
     ⠭⭮ ଠ  ᥣ:ᬥ饭.
 㭪  ।   譨  -
⥪,     ᠭ   㣨 몠. ᫨  -
ࠬ ૥,  ᫥ 襭 楤,  ன  -
짮 祭 ADDRESS,  祭  㤥  ᮮ⢥-
 ⨭.  ந室 - ⮣,  稪 ૥
믮 ⮬   㧪 ᥣ⮢.

頥 ⨯ : LONG

ਬ:

  MAP
    MODULE('External.Obj')      ! ⥪
      SomeProc(LONG),C          !। ࠬ   
  . .

Varl   CSTRING(10)              !ப,  㫥
       CODE
       SomeProc(ADDRESS(Varl))
                     !।  Varl   楤


ERROR                                      (ᮮ饭  訡)

             ERROR()


㭪 ERROR 頥  ப, ᮤঠ ᠭ  襩
訡? ᫨ 訡  뫮,  ERROR ୥  ப.

頥 ⨯ : STRING

ਬ:

  PUT(NameQueue)                            !襬 
  IF ERROR() = 'Queue Entry Not Found'      !᫨  
    ADD(NameQueue)                          !   
      IF ERRORCODE() THEN STOP(ERROR()).
                                     !  - ?
  .

. ⠪:  B


ERRORCODE                                    (  訡)

             ERRORCODE()


㭪 ERRORCODE 頥  () 襩 訡.  ᫨
訡  뫮,  ERRORCODE 頥 .

頥 ⨯ :  LONG

ਬ:

  ADD(Location)                !  
  IF ERRORCODE() = 8          ! 墠⠥ ?
    SHOW(1,5,' !')  !  ᮮ騬  ⮬ 饬 䠪
  .

. ⠪:  B


ERRORFILE                                 ( 訡筮 䠩)

             ERRORFILE()


㭪 ERRORFILE 頥   䠩,   ࠡ⪥ ண
 訡.  ᫨ 䠩  ,   頥  
ᯥ䨪  ଠ . ᫨ 䠩  ,  頥
ᮤন ਡ NAME   FILE. ᫨ 䠩    
 FILE   ਡ NAME,  頥 ⪠  -
 FILE. ᫨ 訡  뫮,   訡  易-
  䠩,  ERRORFILE 頥  ப.

頥 ⨯ : STRING

ਬ:

  ADD(Location)                       !塞  
  IF ERRORCODE()
    SHOW(1,5,'஡  䠩 ' & ERRORFILE())
                                 !뢥 ᮮ饭
    ASK                          !     
  .

. ⠪:  B


IN                                      (   )

             IN(,)


     ᫮ ⠭, ६  ࠦ,  襥
          .  ᮪ ࠧ襭  ஢ ⮢  
           孨᪮ 㪮⢥  IBM PC.

   ⪠ ६ ⨯ BYTE, SHORT  USHORT. ᫨ -
          ⨯ BYTE,    ⠥ 訩   १
         ॣ AL. ᫨    ⨯  SHORT  USHORT,  
            १ ॣ AX.

 IN ⠥    , ᯮ 設  -
 IN.

ਬ:

    IN(61h,SavePPI)                      !࠭塞 PPI
    IN(62h,PError)                       !  訡 ⭮

. ⠪: OUT


MAXIMUM                  (ᨬ쭮 祭  ᨢ)

             MAXIMUM(६,)


६   ⪠ ६, ᠭ  ਡ⮬ DIM.

       ᫮ ⠭, ६  ࠦ, -
             饥  .  ।,   -
             ७ ᨢ । ⮩ 㭪樨.


㭪 MAXIMUM 頥  ᨬ쭮 祭   -
  ६-ᨢ. 筮  ᯮ   -
 ࠧ ᨢ, ।  楤  㭪.

頥 ⨯ : LONG

ਬ:

Array  BYTE,DIM(10,12)           !뢠 㬥 ᨢ

 ᨢ :  MAXIMUM(Array,1)  ୥  10
                   MAXIMUM(Array,2)  ୥  12

  LOOP X# = 1 TO MAXIMUM(Array,1)
                           !   ࢮ ७
    LOOP Y# = 1 TO MAXIMUM(Array,2)
                           !    ண ७
      Array[X#,Y#] = 27    !    = 27
  . .                      ! 横

. ⠪: DIM, ᨢ  ࠬ   


NAME                        (ᮢ᪮  䠩  ன⢠)

             NAME(⪠)


⪠               ⪠ ᠭ   䠩.

㭪 NAME 頥 ப,  ᮤঠ   ⠭  
 ,   .   䠩,  ᫨ 䠩 ,
頥  ᯥ䨪 䠩  DOS (, ,   
७). ᫨ 䠩 ,  頥 ᮤন  -
 NAME  ⮣ 䠩.

 ⮢, 頥  ,  ਡ⮬  DEVICE. ᫨
 뢮  䠩  䠩 ,  NAME ୥  ᯥ-
䨪 ⮣ 䠩.   ⨢ 砥, NAME ୥  , 
ᠭ  ਡ DVICE. ᫨ ⮣ ਡ ,   -
頥 PRN.

頥 ⨯ : STRING

ਬ:

  OpenFile = NAME(Customer)      !࠭塞  ⮣ 䠩
  OutputDevice = NAME(AcctRpt)
                 !࠭塞  ன⢠, 㤠 뢮 


OMITTED                        (஢ઠ ய饭 ࠬ஢)

             OMITTED()


   ᫥  ⠭  ६,   
        ஢塞 ࠬ.

㭪 OMITTED ஢   ।    ࠬ 
楤  㭪. ᫨  ᪮ ࠬ ய饭,   -
頥  (1). ᫨ ࠬ     ।,
 頥  (0).   ᫥ ᫥  ।-
 ࠬ ᮮ⢥ ய饭 ࠬ.

蠥 ய᪠ ⮫쪮   ࠬ, 祩 ⨯   -
祭  㣫 ᪮ ( <> )  ⨯ 楤  㭪樨
 MAP-.

頥 ⨯ : LONG

ਬ:
   SomeProc(Fieldl,,Field4)

 襯ਢ ਬ:
     OMITTED(1)   ୥  0
     OMITTED(2)   ୥  1
     OMITTED(3)   ୥  0
     OMITTED(4)   ୥  1

    PROGRAM
    MAP
      SomeFunction(ப,<LONG>),STRING     !⨯ 㭪樨
    .
    CODE
    :
    :

SomeFunction FUNCTION(Fieldl,Date)
    CODE
    IF OMITTED(2)                 !᫨   ,
      Date = TODAY()              !  ⠢塞 ⥬.

. ⠪: ⨯ 楤  㭪権


OUT                                     (   )

             OUT(,)


     ᫮ ⠭, ६  ࠦ,  襥
          .  ᮪ ࠧ襭  ஢ ⮢  
           孨᪮ 㪮⢥  IBM PC.

   ᫥ ⠭,   祬 65,535 (64)  
	 ⪠ ६ ⨯ BYTE, SHORT  USHORT. ᫨ -
	  ⨯ BYTE,     뢮 訩   १
	 ॣ AL. ᫨    ⨯ SHORT   USHORT,
	  १ ॣ AX   뢠  .

 OUT 뢠    뢮, 믮  設
 OUT.

ਬ:

  OUT(43h.Control)    !뫠  ࠢ  ⠩
  OUT(61h,Speaker)    !砥 

. ⠪: IN


PEEK                                       (read memory address)

             PEEK(ᥣ:ᬥ饭,ਥ)


ᥣ:ᬥ饭  ᫮ ⠭, ६   ࠦ,
		  饥  .      
		    ,       -
		  . ᫨  ࠬ ⨯ REAL,   ஬-
		  筮 祭 ८ ⮫쪮   -
		   , ⮡  32-塨⭮ 楫.

ਥ          ⪠ ६.

 PEEK ⠥      :
 뢠     ६ .  PEEK 뢠 ⮫쪮
, 窮쪮 㦭, ⮡  .

ਬ:

Segment       USHORT
Offset        USHORT
Destl         BYTE
Dest2         SHORT
Dests         REAL
KeyboardFlag  BYTE
   CODE
   PEEK(Segment*(256.0*256.0)+Offset,Destl)  !⠥ 1 
   PEEK(BSHIFT(Segment,16)+Offset,Dest2)     !⠥ 2 
   PEEK(BSHIFT(Segment,16)+Offset,Dest3)     !⠥ 8 
   PEEK(00400017h,KeyboardFlag)
   	!⠥  ﭨ 

. ⠪:  POKE


POKE                               (    )

             POKE(ᥣ:ᬥ饭,筨)


ᥣ:ᬥ饭  ᫮ ⠭, ६   ࠦ,
		  饥  .      
		    ,       -
		  . ᫨  ࠬ ⨯ REAL,   ஬-
		  筮 祭 ८ ⮫쪮   -
		   , ⮡  32-塨⭮ 楫.

筨          ⪠ ६.

 POKE 뢠 ᮤন ६   㪠-
  . POKE  ⮫쪮 , ᪮쪮   -
.

ਬ:
Segment       USHORT
Offset        USHORT
Destl         BYTE
Dest2         SHORT
Dests         REAL
KeyboardFlag  BYTE
   CODE
   PEEK(Segment*(256.0*256.0)+Offset,Source1)  !襬 1 
   PEEK(BSHIFT(Segment,16)+Offset,Source2)     !襬 2 
   PEEK(BSHIFT(Segment,16)+Offset,Source2)     !襬 8 
   POKE(00400017h,KeyboardFlag)   !⠥ ﭨ 
   KeyboardFlag = BOR(KeyboardFlag,40h)      ! 砥 CAPS
   POKE(00400017h,KeyboardFlag)   ! १뢠 ﭨ

. ⠪:    PEEK


STATUS               (ﭨ ਭ/䠩/᪠/)

             STATUS( ਭ  )
                          
                       䠩   
                    ࠳


ਭ      ப ⠭  ६, ᮤঠ  -
             ⨬      ਭ୮ :  LPT1,
             LPT2  LPT3.

         ப ⠭  ६, ᮤঠ  -
             ⨬    ᪠: A:, B:, C:, . . ., Z:.

䠩         ⪠  FILE.

   ப ⠭  ६, ᮤঠ  
             ன⢠: CON.

㭪  STATUS  頥  ⥪饥  ﭨ ਭ, ᪠,
䠩  .

STATUS(ਭ)    頥 0, ᫨ ਭ  ⮢  1, ᫨
                    ਭ஬   浪.

STATUS()       頥 0, ᫨   ⮢   ᢮-
                      ᪥  , ᫨    -
                   浪.

STATUS(䠩)       頥 0, ᫨ 䠩    ० -
                   㯠  䠩,  ᫨  .  ᫨ ⥪騩
                   ० 㯠 -  0 (⮫쪮   ⥭, 
                   ),  頥   40h (Read  Only
		   Deny None) (. OPEN).

STATUS() 頥  䫠  ﭨ  . 
                   䫠 ᬠਢ   ᮢ㯭  -
                   ⮢   楫. 祭 ⮢ ਢ
                    (** 砥,   ⠭  ⮫쪮
                     ):

 x....... ........ Ins **
 .x...... ........ Caps Lock **
 ..x..... ........ Num Lock **
 ...x.... ........ Scroll Lock **
 ....x... ........   (Ctrl-Num Lock  Pause) **
 .....x.. ........ Sys Req **
 ......x. ........ Left Alt **
 .......x ........ Left Ctrl **
 ........ x.......  ⠢
 ........ .x...... Caps Lock
 ........ ..x..... Num Lock
 ........ ...x.... Scroll Lock
 ........ ....x... Alt **
 ........ .....x.. Ctrl **
 ........ ......x. Left Shift **
 ........ .......x Right Shift **

頥 ⨯ :   LONG

ਬ:

  IF STATUS(DataFile) % 16 = 0   !  ⮫쪮  ⥭?
    RETURN                       !  ⮣ ⢠
  ELSE                           ! ⨢ 砥
    EXECUTE DiskAction           ! 襬   
      ADD(DataFile)
      PUT(DataFile)
      DELETE(DataFile)
  . .

  LOOP
    IF STATUS('A:') = 0            !஢塞 ﭨ ᪠ :
      SHOW(1,1,'⠢, ,   ᪮ A:')
      BEEP
      ASK
    ELSE
      BREAK
  . .

  LOOP
    IF STATUS('LPT1') = 0           !஢ઠ ﭨ ਭ
      SHOW(1,1,'஢, , ਭ.')
      BEEP
      ASK
    ELSE
      BREAK
  . .

  LOOP
    IF BAND(STATUS('CON'),00100000b)         !஢塞 Num Lock
      SHOW(1,1,'몫, , Num Lock')
      BEEP
      ASK
    ELSE
      BREAK
  . .

. ⠪:    OPEN

ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-    ।    ॢ, -
頩:

Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486
६ ࠡ ⠭樨  15:00   23:30  ᪮᪮ ६  
㤭   㣫筮   室  ࠧ.  ⮬  
⥫䮭     3:00  12:00  ᪮᪮  -
.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

                                                    ਫ A


		       


		ଠ    ਮ


   ᮮ⢥     ਮ.
  0   255 -   ⠭ ASCII  ,  256   
ᯥ  몠 ਮ.   ਮ  
㭪樥 KEYCODE()   ᫥騩 ଠ:

        Ŀ
         F  A  C  N          
        
      11 10   9   8   7         0

祭 ⮢:
    F=1       -  㭪樮쭮  ( 1-10  Fl-F10)
    A=1       -     Alt
    C=1       -     Ctrl
    A  C=1   -     Shift
    N=1       -   뢮  ࠭


    


 Ŀ
                +Shift   +Ctrl   +Alt  
 Ĵ
  ஡             32     289     290          
  0      )           48      41            1072  
  1      !           49      33            1073  
  2      @           50      64     562    1074  
  3      #           51      35            1075  
  4      $           52       6            1076  
  5      %           53       7            1077  
  6      ^           54      94     566    1078  
  7      &           55      38            1079  
  8      *           56      42            1080  
  9      (           57      40            1081  
  a      A           97      65     577    1089  
  b      B           98      66     578    1090  
  c      C           99      67     579    1091  
  d      D          100      68     580    1092  
  e      E          101      69     581    1093  
  f      F          102      70     582    1094  
  g      G          103      71     583    1095  
  h      H          104      72     584    1096  
  i      I          105      73     585    1097  
  j      J          106      74     586    1098  
  k      K          107      75     587    1099  
  l      L          108      76     588    1100  
  m      M          109      77     589    1101  
  n      N          110      78     590    1102  
  o      O          111      79     591    1103  
  p      P          112      80     592    1104  
  q      Q          113      81     593    1105  
  r      R          114      82     594    1106  
  s      S          115      83     595    1107  
  t      T          116      84     596    1108  
  u      U          117      85     597    1109  
  v      V          118      86     598    1110  
  w      W          119      87     599    1111  
  x      X          120      88     600    1112  
  y      Y          121      89     601    1113  
  z      Z          122      90     602    1114  
  -      _           45      95     557    1169  
  =      +           61      43            1185  
  [      {           91     123     603          
  ]      }           93     125     605          
  ;      :           59      58                  
  '      "           39      34                  
  `      ~           96     126                  
  \      |           92     124                  
  ,      <           44      60                  
  .      >           46      62                  
  /      ?           47      63                  
  Esc               256     273     279          
  Enter             257     274     280          
  Backspace         258     275     281          
  Tab               259     276                  
  Gray *            260             282          
  Home              261             283          
  ५      262                          
  Page Up           263             284          
  Gray -            264     277                  
  ५      265             285          
  ५ ࠢ    266             286          
  Gray +            267     278                  
  End               268             287          
  ५       269                          
  Page Down         270             288          
  Insert            271                          
  Delete            272                          
  F1               2049    3585    2561    3073  
  F2               2050    3586    2562    3074  
  F3               2051    3587    2563    3075  
  F4               2052    3588    2564    3076  
  F5               2053    3589    2565    3077  
  F6               2054    3590    2566    3078  
  F7               2055    3591    2567    3079  
  F8               2056    3592    2568    3080  
  F9               2057    3593    2569    3081  
  F10              2058    3594    2570    3082  
  F11              2059    3595    2571    3083  
  F12              2060    3596    2572    3084  
 


  KEYCODES.EQU

  ᪨ EQUATE-⪨   ࠭  䠩 KEYCODES.EQU.
 䠩  ଠ CLARION SOURCE,  ᮤন  EQUATE 
  . 砫쭮  䠩 室  ⮬ ⠫, 
  ⠭ CDD.  䠩    室 ⥪
ணࠬ ஬: INCLUDE('KEYCODES.EQU').

     ⮬ 䠩 ᫥  䠢⭮ 浪 ᢮ 
⮪.

 Alt0         EQUATE(1072)  !Alt-0
 Alt1         EQUATE(1073)  !Alt-1
 Alt2         EQUATE(1074)  !Alt-2
 Alt3         EQUATE(1075)  !Alt-3
 Alt4         EQUATE(1076)  !Alt-4
 Alt5         EQUATE(1077)  !Alt-5
 Alt6         EQUATE(1078)  !Alt-6
 Alt7         EQUATE(1079)  !Alt-7
 Alt8         EQUATE(1080)  !Alt-8
 Alt9         EQUATE(1081)  !Alt-9
 AltA         EQUATE(1089)  !Alt-A
 AltB         EQUATE(1090)  !Alt-B
 AltC         EQUATE(1091)  !Alt-C
 AltD         EQUATE(1092)  !Alt-D
 AltE         EQUATE(1093)  !Alt-E
 AltEqual     EQUATE(1085)  !Alt-
 AltF         EQUATE(1094)  !Alt-F
 AltF1        EQUATE(3073)  !Alt-F1
 AltF10       EQUATE(3082)  !Alt-F10
 AltF11       EQUATE(3083)  !Alt-F11
 AltF12       EQUATE(3084)  !Alt-F12
 AltF2        EQUATE(3074)  !Alt-F2
 AltF3        EQUATE(3075)  !Alt-F3
 AltF4        EQUATE(3076)  !Alt-F4
 AltF5        EQUATE(3077)  !Alt-F5
 AltF6        EQUATE(3078)  !Alt-F6
 AltF7        EQUATE(3079)  !Alt-F7
 AltF8        EQUATE(3080)  !Alt-F8
 AltF9        EQUATE(3081)  !Alt-F9
 AltG         EQUATE(1095)  !Alt-G
 AltH         EQUATE(1096)  !Alt-H
 AltI         EQUATE(1097)  !Alt-I
 AltJ         EQUATE(1098)  !Alt-J
 AltK         EQUATE(1099)  !Alt-K
 AltL         EQUATE(1100)  !Alt-L
 AltM         EQUATE(1101)  !Alt-M
 AltMinus     EQUATE(1069)  !Alt-Minus
 AltN         EQUATE(1102)  !Alt-N
 AltO         EQUATE(1103)  !Alt-O
 AltP         EQUATE(1104)  !Alt-P
 AltQ         EQUATE(1105)  !Alt-Q
 AltR         EQUATE(1106)  !Alt-R
 AltS         EQUATE(1107)  !Alt-S
 AltT         EQUATE(1108)  !Alt-T
 AltU         EQUATE(1109)  !Alt-U
 AltV         EQUATE(1110)  !Alt-V
 AltW         EQUATE(1111)  !Alt-W
 AltX         EQUATE(1112)  !Alt-X
 AltY         EQUATE(1113)  !Alt-Y
 AltZ         EQUATE(1114)  !Alt-Z
 BSKey        EQUATE(258)   !Backspace
 Ctrl2        EQUATE(562)   !Ctrl-2
 Ctrl6        EQUATE(566)   !Ctrl-6
 CtrlA        EQUATE(577)   !Ctrl-A
 CtrlB        EQUATE(578)   !Ctrl-B
 CtrlBS       EQUATE(281)   !Ctrl-Backspace
 CtrlC        EQUATE(579)   !Ctrl-C
 CtrlD        EQUATE(580)   !Ctrl-D
 CtrlE        EQUATE(581)   !Ctrl-E
 CtrlEnd      EQUATE(287)   !Ctrl-End
 CtrlEnter    EQUATE(280)   !Ctrl-Enter
 CtrlEsc      EQUATE(279)   !Ctrl-Esc
 CtrlF        EQUATE(582)   !Ctrl-F
 CtrlF1       EQUATE(2561)  !Ctrl-F1
 CtrlF10      EQUATE(2570)  !Ctrl-F10
 CtrlF11      EQUATE(2571)  !Ctrl-F11
 CtrlF12      EQUATE(2572)  !Ctrl-F12
 CtrlF2       EQUATE(2562)  !Ctrl-F2
 CtrlF3       EQUATE(2563)  !Ctrl-F3
 CtrlF4       EQUATE(2564)  !Ctrl-F4
 CtrlF5       EQUATE(2565)  !Ctrl-F5
 CtrlF6       EQUATE(2566)  !Ctrl-F6
 CtrlF7       EQUATE(2567)  !Ctrl-F7
 CtrlF8       EQUATE(2568)  !Ctrl-F8
 CtrlF9       EQUATE(2569)  !Ctrl-F9
 CtrlG        EQUATE(583)   !Ctrl-G
 CtrlGAst     EQUATE(282)   !Ctrl-Gray *
 CtrlH        EQUATE(584)   !Ctrl-H
 CtrlHome     EQUATE(283)   !Ctrl-Home
 CtrlI        EQUATE(585)   !Ctrl-I
 CtrlJ        EQUATE(586)   !Ctrl-J
 CtrlK        EQUATE(587)   !Ctrl-K
 CtrlL        EQUATE(588)   !Ctrl-L
 CtrlLBrk     EQUATE(603)   !Ctrl-[
 CtrlLeft     EQUATE(285)   !Ctrl- 
 CtrlM        EQUATE(589)   !Ctrl-M
 CtrlMinus    EQUATE(557)   !Ctrl-Minus
 CtrlN        EQUATE(590)   !Ctrl-N
 CtrlO        EQUATE(591)   !Ctrl-O
 CtrlP        EQUATE(592)   !Ctrl-P
 CtrlPgDn     EQUATE(288)   !Ctrl-PgDn
 CtrlPgUp     EQUATE(284)   !Ctrl-PgUp
 CtrlQ        EQUATE(593)   !Ctrl-Q
 CtrlR        EQUATE(594)   !Ctrl-R
 CtrlRBrk     EQUATE(605)   !Ctrl-]
 CtrlRight    EQUATE(286)   !Ctrl- ࠢ
 CtrlS        EQUATE(595)   !Ctrl-S
 CtrlSlash    EQUATE(604)   !Ctrl- (/)
 CtrlSpace    EQUATE(290)   !Ctrl-஡
 CtrlT        EQUATE(596)   !Ctrl-T
 CtrlU        EQUATE(597)   !Ctrl-U
 CtrlV        EQUATE(598)   !Ctrl-V
 CtrlW        EQUATE(599)   !Ctrl-W
 CtrlX        EQUATE(600)   !Ctrl-X
 CtrlY        EQUATE(601)   !Ctrl-Y
 CtrlZ        EQUATE(602)   !Ctrl-Z
 DelKey       EQUATE(272)   !Del
 DownKey      EQUATE(269)   ! 
 EndKey       EQUATE(268)   !End
 EnterKey     EQUATE(257)   !Enter
 EscKey       EQUATE(256)   !Esc
 F10Key       EQUATE(2058)  !F10
 F11Key       EQUATE(2059)  !F11
 F12Key       EQUATE(2060)  !F12
 F1Key        EQUATE(2049)  !F1
 F2Key        EQUATE(2050)  !F2
 F3Key        EQUATE(2051)  !F3
 F4Key        EQUATE(2052)  !F4
 F5Key        EQUATE(2053)  !F5
 F6Key        EQUATE(2054)  !F6
 F7Key        EQUATE(2055)  !F7
 F8Key        EQUATE(2056)  !F8
 F9Key        EQUATE(2057)  !F9
 GAstKey      EQUATE(260)   !Gray *
 GMinusKey    EQUATE(264)   !Gray -
 GPlusKey     EQUATE(267)   !Gray +
 HomeKey      EQUATE(261)   !Home
 InsKey       EQUATE(271)   !Ins
 MouseLeft    EQUATE(4000)  !  誨
 MouseLeft2   EQUATE(4002)  ! 饫箪   誨
 MouseRight   EQUATE(4001)  !ࠢ  誨
 LeftKey      EQUATE(265)   ! 
 PgDnKey      EQUATE(270)   !PgDn
 PgUpKey      EQUATE(263)   !PgUp
 RighTKey     EQUATE(266)   ! ࠢ
 ShftBS       EQUATE(275)   !Shft-Backspace
 ShftEnter    EQUATE(274)   !Shft-Enter
 ShftEsc      EQUATE(273)   !Shft-Esc
 ShftF1       EQUATE(3585)  !Shft-F1
 ShftF10      EQUATE(3594)  !Shft-F10
 ShftF11      EQUATE(3595)  !Shft-F11
 ShftF12      EQUATE(3596)  !Shft-F12
 ShftF2       EQUATE(3586)  !Shft-F2
 ShftF3       EQUATE(3587)  !Shft-F3
 ShftF4       EQUATE(3588)  !Shft-F4
 ShftF5       EQUATE(3589)  !Shft-F5
 ShftF6       EQUATE(3590)  !Shft-F6
 ShftF7       EQUATE(3591)  !Shft-F7
 ShftF8       EQUATE(3592)  !Shft-F8
 ShftF9       EQUATE(3593)  !Shft-F9
 ShftGMinus   EQUATE(277)   !Shft-Gray -
 ShftGPlus    EQUATE(278)   !Shft-Gray +
 ShftSpace    EQUATE(289)   !Shft-஡
 ShftTab      EQUATE(276)   !Shft-Tab
 TabKey       EQUATE(259)   !Tab
 UpKey        EQUATE(262)   ! 

  ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-   ।   ॢ, 頩:

  Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486 ६
ࠡ ⠭樨  15:00  23:30  ᪮᪮ ६  㤭  
㣫筮  室  ࠧ.  ⮬  ⥫䮭  
  3:00  12:00  ᪮᪮ ६.  ⠭ મ.

譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

                                                    ਫ B


			   


ERRORS.EQU


  EQUATE-⪨  訡 ᢠ ᪨ ⪨ ,
頥 㭪樥 ERRORCODE().  EQUATE-⮪  訡
(ERRORS.EQU)  䠩  ଠ CLARION SOURCE, ᮤঠ騩  EQUATE
   訡,   墠  ஢ ਮ. 
㩬 ᪨ 訡, ,  ਭ樯,  ਢ  ﭨ
"   " (Run-time Halt).  砥,  ணࠬ
 뢠, 뢮 ᮮ饭  訡   뫥⠥ 
.
  ERRORS.EQU 砫쭮 室 ⠬, 㤠  ⠭ CDD.  䠩
   室 ⥪ ணࠬ ஬:
INCLUDE('ERRORS.EQU').

!                ERRORS.EQU  -- ERRORCODE EQUATES

!                祭,      祭,
!		 頥   頥
!                ERRORCODE()    ERROR()

NoError          EQUATE(0)     !''

NoFileErr        EQUATE(02)    !'File Not Found'
			       !  

NoPathErr        EQUATE(03)    !'Path Not Found'
			       !  

TooManyErr       EQUATE(04)    !'Too Many Open Files'
			       !誮   䠩

NoAccessErr      EQUATE(05)    !'Access Denied'
			       ! 饭

BadMemErr        EQUATE(07)    !'Memory Corrupted'
			       !ࠢ 

NoMemErr         EQUATE(08)    !'Insufficient Memory'
			       !筮 

BadDriveErr      EQUATE(15)    !'Invalid Drive'
			       !ࠢ쭮 㪠 

NoEntryErr       EQUATE(30)    !'Entry Not Found'
			       !  

IsLockedErr      EQUATE(32)    !'File Is Already Locked'
			       ! 㦥 ஢

BadRecErr        EQUATE(33)    !'Record Not Available'
			       ! 㯭

NoRecErr         EQUATE(35)    !'Record Not Found'
			       !  

BadFileErr       EQUATE(36)    !'Invalid Data File'
			       !訡  䠩 

NotOpenErr       EQUATE(37)    !'File Not Open'
			       !  

DupKeyErr        EQUATE(40)    !'Creates Duplicate Key'
			       !  ⠪ 箬 㦥 

IsHeldErr        EQUATE(43)    !'Record Is Already Held'
			       ! 㦥 墠祭

BadNameErr       EQUATE(45)    !'Invalid Filename'
                               !ࠢ쭮  䠩 (.. -  
㣠   ᮧ 䠩  ᪨ , ਬ ._,
ᬮ  ,      .)

BadKeyErr        EQUATE(46)    !'Key Files must be Rebuilt'
			       ! ந 祢 䠩

InvalidFileErr   EQUATE(47)    !'Invalid File Declaration'
			       !ࠢ쭮 ᠭ 䠩

BadTranErr       EQUATE(48)    !'Unable to log transaction'
			      !   ⮪ ࠭樨

IsOpenErr        EQUATE(52)    !'File Already Open'
			       ! 㦥 

NoCreateErr      EQUATE(54)    !'No Create Attribute'
			       ! 䠩  ਡ CREATE

NoShareErr       EQUATE(55)    !'File Must Be Shared'
		          !    ᮢ⭮ ०

BadMemoErr       EQUATE(57)    !'Invalid Memo File'
			       !訡  䠩 ਬ砭

ExclReqErr       EQUATE(63)    !'Exclusive Access Required'
			       !ॡ  

ShareVioErr      EQUATE(64)    !'Sharing Violation'
			       !襭 ᮢ⭮ ०

CantRollErr      EQUATE(65)    !'Unable to rollback transaction'
			       !  ⬥ ࠭

TypeDescErr      EQUATE(75)    !'Invalid Field Type Descriptor'
			       ! ⥫⨯ 

BadIndexErr      EQUATE(76)    !'Invalid Index String'
			     !ࠢ쭠 ப  樨

IndexAccessErr   EQUATE(77)    !'Unable To Access Index'
			      !     

BadParmErr       EQUATE(78)    !'Invalid Number Of Parameters'
			       !ࠬ஢    

NoDriverSupport  EQUATE(80)    !'Function not supported'
			       ! 㭪  ন

  ॢ ᥩ 㬥樨 믮 ࣥ મ. ᫨ 
-   ।   ॢ, 頩:

  Jew Smile MO Station 2:5040/22.3 Serg Agarkoff +7-(421)-626-8486 ६
ࠡ ⠭樨  15:00  23:30  ᪮᪮ ६  㤭  
㣫筮  室  ࠧ.  ⮬  ⥫䮭  
  3:00  12:00  ᪮᪮ ६.  ⠭ મ.

 譨 ⥫䮭 +7-(421)-626-8486  13:00  0:30  ᪢.

                                                    ਫ C


		  

  ⥬ ࠢ , 砥  ᥡ 孮 
㠫쭮  (VMM). VMM ⮬᪨ ࠢ EMS  XMS (᫨,
筮, ⠪   ᪫ :)  ⠪ 㠫쭮   ᪥.
  ⠭⭠ (conventional) ,  ,  ன  
᪠ ணࠬ,    0K  640K.
  EMS (expanded, 筠) -    640K, 㦨
⥬ ஬ 筮  ⨯ QEMM  EMM386. 筠
   - ।  ᮢ, 
ᯮ ⮡ࠦ  뤥    64K. EMS
ᯮ  ࠭  窨 ,    ᯮ짮 
᪠ ணࠬ.
  XMS (extended, ७) -    1Mb.   ᯮ
"४祭 ࠭"  EMS,      㤠-
 ⠭⭮     1 Mb.
  㠫쭠  -  EMS ( ⠭ LIM EMS 3.2  ), XMS 
  ᪥. ᪮ 㠫쭠    뤥  
ன⢥,  ஬     㪢 ᪠ 
(易⥫쭮) . 㠫 ᪨ (RAM-᪨)   
  ந⥫쭮 ᪮ 㠫쭮 .
  (  ⥪ ନ "筠 " 㤥   EMS ⠪ 
XMS, ஬  砥,  㪠 - ⭮) (... - , 
ᠭ ... ..., ᫥   ...  ...)
  ਪ뭥 ணࠬ  ਮ ᯮ 㠫  
࠭ ,    . VMM ਮ
ᠬ⥫쭮  ६饭    (⠭⭮ 
筮)  ᪮. ᯮ "孨  "    ᪥,
ਪ ணࠬ  ਮ    64 ⠬ 쭮
.
   ᪥ ணࠬ  ਮ, VMM ⮬᪨ ।, ᪮쪮
  稨 筮  (᫨  ).  㬮砭,
VMM ᯮ    ஬ 64K ( 4). ᫨  稨
 4 筮 , VMM ᯮ   祭 4
㠫쭮 . 㠫쭠 ᪮  뤥  ⥪饬
⠫. ࠬ 㠫쭮 ,   㬮砭,  
 ६ 㦥 CLAVM.


CLAVM                          (䨣 㠫쭮 )

  CLAVM= EMS K[,][,ࠧ ][, ६]
         XMS K                                 [,]
           NOEMS  
            OFF   
                  


  EMS K -  ࠬ ᮮ頥 VMM, ᪮쪮 Kb EMS ᯮ짮.
㡯ࠬ  㦥 易⥫쭮. ᫨  ⥫,  , 
ᯮ짮  㯭 EMS, ஬ 㪠 ⢠. 
ࠧ 뤥塞  - 64. ⠭  㬮砭 - EMS-64 ( EMS
஬ 64K).

XMS K -  ࠬ ᮮ頥 VMM, ᪮쪮 Kb XMS ᯮ짮. 
祭 ࠬ EMS  ᥬ ஬ ⨯ ᯮ㥬 . 
㬮砭 ⠭ XMS-64 ( XMS ஬ 64K).

NOEMS - ਪ뢠 VMM ᯮ짮  㠫  ⮫쪮 .

  OFF - ⪫砥 VMM, 㦤  ணࠬ 室 ⮫쪮
⠭⭮ .

   -   (易⥫쭮)  ,  뤥 㠫쭮
᪮ . VMM ᮧ ᪮  ᫥ ⮣,   
. ᫨   筮 ,   㠫쭠 
ࠧ頥  ᪥.  ࠬ  ᮤঠ  ࠧ襭  
ᯥ䨪. VMM ஢ ⢮ . ᫨  
ࠢ쭮,    ᯮ .  㬮砭 =. (窠),
 㦤 VMM 짮 ⥪騥   ⠫. =* 砥, 
 㠫쭮   ᯮ짮  ࠧ蠥.

  ࠧ  -    8  64 ⥫쭮. ⨬  ࠧ (
) ᨬ쭮  ,   稢 /
㠫쭮 . ᫨    ࠧ  墠⠥ , 
뤥  襣 ࠧ.  ࠬ  ஢ ⥬
㠫쭮 .  㬮砭   ࠢ 32K.

   ६ - ᫮ 㠫 , ६ ᮤঠ
 ⠭⭮  ० 祬 ந室 㧪. ᫮ 
   3  .  㬮砭 - 3.

   - ᨬ ࠧ 㠫쭮   VMM.  饥
⢮ , ஥   㦥   , 
,   㤠  㤠.  ன     ࠬ
 . 祭  㬮砭 - 4 . (... - .. ࠧ
㠫     ࠧ   ࠬ)

   ࠢ 㠫쭮 , VMM ᯮ 㦠 
, ࠧ   ࠬ஬  . ᫨ ᯮ
EMS   XMS,   㠫   (ᮬ  64K) ᮧ 
 ࠭ EMS (. . 1). VMM  ᯮ ⠭  
 ,    㠫    ࠭ EMS. 
ॡ  㠫 , VMM ࠧ   
㠫    ⠭⭮ .

 Ŀ
           32MegĿ    
                   |           筠           |    
                   Ŀ Ŀ Ŀ    
                   :::::::::: :::::::::: ::::::::::    
                   :::::::::: :::::::::: ::::::::::    
                   :::::::::: :::::::::: ::::::::::    
                     ٳ    
            1MegĴ    
                   ######################################Ŀ 
                   #########  ࠭ EMS ########## 64K
                   ###################################### 
           E000HĴ    
                             ਩ BIOS               
                   Ĵ    
                                                  
    A000HĴĿ 
                  Ŀ Ŀ Ŀ   
                  :::::::::: :::::::::: ::::::::::   
                  :::::::::: :::::::::: ::::::::::   
  ⠭⭠      :::::::::: :::::::::: ::::::::::640K
               ٳ   
                          Ŀ         
                            ᫥          
                                   
                                ணࠬ            
                  Ĵ   
                                ணࠬ               
                  Ĵ   
                                   DOS                     
    0000H 
         Ŀ                                          
         ::::::::::                                          
         :::32 K:::  =     㦠             
         ::::::::::    [ࠧ ࠭, ।  ..]      
                                                   
 

 㭮 1. ।   㬮砭

     㦠   ⠭⭮  ,
ᠬ । ᯮ㥬  㦠  EMS.  EMS ௠,
㦠   ᮧ  ᪥  䠩  ७ SWP.
  ன VMM, ਭ  㬮砭,  , ᯮ CLAVM 
 ப ,  䠩 䨣樨   ६ 㦥.
 ப  訩 ਮ  ४뢠  稥 ⮤. 
䠩 䨣樨 ன ਮ,   ६ 㦥 - ᠬ
.
   :   ⠢ ஡  ᫮ CLAVM  
ࠢ⢠, ᪮  ᬠਢ CLAVM= and CLAVM =   ࠧ
६ - "CLAVM"  "CLAVM". ணࠬ  ਮ ᯮ ⮫쪮
CLAVM=.

  ன   ப

  ⠭ ⥬ 㠫쭮 ,ᤥ  㬮砭,  
४   ப  CLAVM=,  ன  
ࠬ. ࠬ   祭   窨 (᪠,
CLAVM="EMS-64,.,32,3,4") ᫨ ᯮ 樠  ப.
 ᯮ짮 SETCOMMAND  ⠭ ࠬ஢ CLAVM (᫨誮
 ६ 㩤  믮 SETCOMMAND).

  ன  䠩 䨣樨

   ६ ᯮ, ணࠬ   ⥪饬 ⠫ 䠩,  
program.INI ( program -   .EXE-䠩 ணࠬ). , ணࠬ
FUCK'EM!.EXE  ᯮ짮 䠩 䨣樨   FUCK'EM!.INI.
  ⥪⮢ 䠩,  ஬  ᮤঠ ࠬ
ணࠬ,  ⮬ ᫥  ன  CLAVM.  ࠬ ணࠬ 
⮬ 䠩   ⤥ ப.
  ன  ६ 㦥
  VMM, ⠪,  ந, ⠭ CLAVM  ६ 㦥, 
 ᮢ᪮  SET.    ᤥ  ⭮ 䠩
(⨯ AUTOEXEC.BAT)    ப .

⨬㥬 ந⥫쭮

   ந⥫쭮 ணࠬ   ⢮ 筮 ,
⠪  ᪮ ன⢠, ᯮ㥬  ᪮ 㠫쭮 .
 祭 ⨬쭮 ந⥫쭮   ந
ࠬ  ,    .
  ⨬     ணࠬ.  室騩 
 । ࠧ஬ ᠬ 让   ணࠬ, ࠧ஬
襣 ࠭   ࠧ஬ ᪨ ࠧ.  饬,
    ॢ ᨬ쭮 뤥塞 ⪠ ,
뤥, ᪠  ࠭    ,   ⮨ 
  16K.  設⢠ ணࠬ, ⨬㬮  ⠭
ࠧ  32.
  祭 ⢠   ਢ,   ஭ 
襬 室 ⠭⭮ ,   㣮 -  襩 ४窥
  ⠭⭮  㠫쭮 . ᫨ ⠭⭮ 
筮,   㢥  ࠬ  襭
ந⥫쭮.      ᭮ 易 
ᮡ. 襭    ࠭  ⠭⭮ 
  .
  VMM ᮧ  ⠭⭮  "⠡ ᫥",  ᮤন
㪠⥫  , ࠭騥  㠫쭮 .  ᫥
ࠧ  ⠡  ᯮ짮 :

 _ = (1024 / (_ / )) * 22

   㬮砭, VMM ᮧ "⠡ ᫥"  2816  
⠭⭮  (2816=(1024/(32/4))*22).
 ࠬ    ࠧ ⮩ "⠡ ᫥". १୮
襭 ⮣ ࠬ ਢ  ᭮ 室 ⠭⭮ 
  㢥祭 ६ 㯠  㠫 . 筮 ६,
ॡ㥬  ᪠ 㪠⥫  襩 ⠡, ᭨
ந⥫쭮.

 頥 訡:

	8 筮 
       68 訡 㠫쭮 

  ᫨ VMM ⪫祭 (CLAVM=OFF),  ᯮ ⮫쪮 ⠭⭠ .
 ⠭⭠  뢠, ணࠬ 뫥⠥  訡
"筮 ".
   ௠ 㠫쭮 , ணࠬ 뫥⠥  "訡
㠫쭮 ",   ଠ樮  뢮 ७ ᠭ
訡:

  (... - ᪮     ᨨ ᨨ ਮ, 
७ ᠭ 訡  ⠢  ⮬ ,  ஬  
,  ⠭ ᮮ饭  訡 , , ॢ.)

  ७ ᠭ            稭
 Ŀ
 Oversized allocation or memory 誮         
 corrupt                                                      
                                                              
 ⪠ 뤥  -                                
 , 祬                                      
 浪                                                      
 Ĵ
  No memory to save VM mapping  ௠ ⠭⭠   
                                                              
  墠⠥   ࠭-                               
  "⠡ ᫥"                                   
 Ĵ
  Attempt to exceed tracking    ௠ 㠫쭠   
  tables                                                      
                                                              
 ⪠   । "⠡-                               
  ᫥"                                           
 Ĵ
  Write failure saving data     ⭠ ஡      
                                   ᪮             
                                           
 Ĵ
  Attempt to exceed tracking    誮  ࠬ  
  tables, increase Meg                                        
                                                              
 ⪠   । "⠡-                               
  ᫥", ஡                                 
 㢥 ࠬ                                   
 

ਬ:

 ४⨥ ஥ VMM  䠩 䨣樨:

  CLAVM=EMS-64,C:\SWAP,32,3,4 (ᯮ㥬  EMS ஬ 64K,   ᪥
뤥塞   ⠫ C:\SWAP)

  CLAVM=XMS-64,C:\SWAP,32,3,4 (ᯮ㥬  XMS ஬ 64K,   ᪥
뤥塞   ⠫ C:\SWAP)

  CLAVM=NOEMS,C:\SWAP,32,3,4 (㤥  EMS  XMS   㤥 뢠
   ⠫ C:\SWAP)

  CLAVM=EMS-64,*,32,3,4 (頥 ᢮  )

४⨥ ஥ VMM   ப:

C> Program.exe CLAVM="EMS-64.*,32.3,4" (  ப 頥
᢮  )

C> Program.exe CLAVM=OFF ( ⪫砥 VMM   ப)

४⨥ ஥ VMM  ⭮ 䠩   ப :

C> SET CLAVM=EMS-64,C:\SWAP.32,3,4 (࠭塞 ⠭ ன, ⮫쪮
᢮   㤥  ⠫ C:\SWAP)

C> SET CLAVM=XMS-64,C:\SWAP.32.3,4 (࠭塞 ⠭ ன, ⮫쪮
᢮   㤥  ⠫ C:\SWAP)

C> SET CLAVM=OFF (頥 VMM ६ 㦥)
