#####################################################################
########             ᠭ 䥩             ##########
########          ࠭⭮ ।஢         ##########
########                  " SHELLEDIT "                    ##########
########                    2.0                      ##########
########              ணࠬ ᫮                 ##########
########                  . ᪢.                       ##########
########     .  㬠, -9;  ⥫. 263-63-88     ##########
########      @@@@@@@@@@;            ⥫. 524-05-59     ##########
########   裡 . -7, 143900, ᫮ ..    ##########
########   - TURBO PASCAL 5.5 . M - SHELLED.TPU.  ##########
#####################################################################

#####################################################################
     Procedure  Connect
#####################################################################
     ⢨:
  ᫥ 뢥 ६ , ᫨ 楤 ᯮ짮
 ᫥  뢮 , ⠭ 塞 ⨯, ᮢ-
 騩  ⨯  ⨯ 뢥 ६,    ᯨ᮪ -
  ୠ⨢ 祭 ६  ⥪饥 祭, 
 祭, ⠭  ⢥ 室 ࠬ த楤,
 ᫨      祭.  ᫥ ᯮ짮 -
 ᮥ  ᯨ  ୠ⨢ 祭 ६ -
 祭, ⠭  ⢥ 室 ࠬ 楤, ᫨
      祭.
     饭:
 Connect(X);
     ᠭ:
 Procedure  Connect(X:string);
     室 ࠬ:
  X -  ६  ப.
     ਬ砭:
    ଠ  祭  ப  ᮮ⢥⢮ ଠ
   祭 ६ ⮣ ⨯ 楤ன READ.
  ᨨ 2.0 .
#####################################################################
     Procedure  ConnectHelp
#####################################################################
     ⢨:
 ᮥ ப HELP  ᫥ 뢥 ६.
     饭:
 ConnectHELP(X);
     ᠭ:
 Procedure  ConnectHELP(X:string);
     室 ࠬ:
 X:ப HELP.
     ਬ砭:
    ஥  祭 HELP 楤ன
 HelpSit
  ᨨ 2.0 .
#####################################################################
     Procedure  CursorSize
#####################################################################
     ⢨:
 ⠭ ࠧ .
     饭:
 CursorSize(SizeOfCursor);
     ᠭ:
 Procedure CursorSize(SizeOfCursor:byte);
     室 ࠬ:
 SizeOfCursor:ࠧ :
     0 - ,
     1 - ଠ,
     2 - ।,
     3 - 让,
#####################################################################
     Procedure  DeleteMaskScrin
#####################################################################
     ⢨:
   ᮧ  ᪨ ६, ᮧ 楤ன
  MaskScrin, ਢ ࠭  ﭨ  맮 MaskScrin.
     饭:
 DeleteMaskScrin(Refresh);
     ᠭ:
 DeleteMaskScrin(Refresh:boolean);
     室 ࠬ:
 Refresh - ਧ ⠭ ࠭
    true  -  ⠭,
    false -   ⠭.
     ਬ砭:
 ! ᫥ ⮣   ᬮ ࠡ  楤ࠬ  
  饭  MaskScrin, ..  ଠ 㤥 ﭠ.
 ६, ⢥, ࠭ 祭, ⠭  ।-
 ஢.  ᨨ 2.0 .
#####################################################################
     Procedure  EditScrin
#####################################################################
     ⢨:
 .
     :
 ⠢/
      楤ன TimeInterrupt  ᪠ ।,  -
      ࠡ -  ⨨ <INSERT>;
 㪮 ᨣ 祭/몫祭
     ⠭ 楤ன SoundEdit  ᪠ ।;
 뤥 ।㥬 権 梥⮬
  ,
  ,
  + 栭,
  몫祭 -
     ⠭ 楤ன EditSelect  ᪠ ।;
 室  ணࠬ १ ࢠ ६ -
     ⠭ 楤ன TimeInterrupt  ᪠ ।;
 室  ணࠬ  ⨨ <ENTER> -
     ⠭ 楤ன EnterInterrupt  ᪠ ।.
   ࠡ । ࠧ  ᨣ  ०
      ⨯ ।㥬 ६:
   - 塞 ⨯, ᯮ  롮 <+>, <->,
     , ᫨  ࠧ襭 楤ன EnterInterrupt,  <ENTER>,
  ଠ - ० ⠢,ᯮ
    <+> -    ஬   ᫥ (ᯮ 
      㢥祭 ᫠),
    <-> -    ஬   । (ᯮ 
      㬥襭 ᫠),
    <DEL> - 㤠 ᨬ  ஬,
    <BEACKSPEICE> - 㤠 ᨬ ᫥  ;
  । - ० 
    <DEL> - ⥪饥 祭  㤠,
    <BEACKSPEICE> - 㤠 ᨬ ᫥  ;
  让 - 塞 ⨯,   ᯨ᪠ ୠ-
    ⨢ 祭, ᯮ  롮 <+>, <->, , ᫨ ࠧ-
    襭 楤ன EnterInterrupt, <ENTER>,   -
    <DEL> - ⥪饥 祭  㤠,
    <BEACKSPEICE> - 㤠 ᨬ ᫥  ;
    ६饭 , 室  㣮 ६ ᯮ
  ࠢ ஬.
    砭 ࠡ ६ ਭ 祭, 騥  ,
 ஬ 室  ० ।஢  ⨨  <ESC>, 
 ⮬ 砥  ਭ 祭, 訥  뢮 楤ࠬ
 .
       ﭨ   室, ⮬ 
 ᤥ   짮⥫ 室  ணࠬ, ࠡ
  室   室  ணࠬ.  ⮣ 筮 
  ࠬ  묨 ந襫 室 -  室, 
 ப  祢 ᨬ    ப - STROKA, NOMER, 짮-
   ஬⪠  饭ﬨ  । 楤ன WriteD
   EditScrin ஢ ᮮ⢥⢨ ⨯,  訡 -
 ,  砥 訡  㪮 ᨣ, 室  ணࠬ
  ⮬ 砥   ᫥ ४⭮ ,  ᫥ -
   <ESC>.
     饭:
 EditScrin(STROKA,NOMBER,EXITSYMBOL);
     ᠭ:
 Procedure  EditScrin(var STROKA,NOMBER:byte;var EXITSYMBOL:char);
     室 ࠬ:
 STROKA -  ப,  ᫠  祢   뢮-
   , ।஢ 樨  ன 室 ३;
 NOMBER -   ப;
 EXITSYMBOL -  室:
     'Q' - த ࠡ ᫥ 뢠  砭 ।-
 ஢ 樨,
     'T' - த ࠡ ᫥ 뢠  砭 ࢠ
 ६ ।஢,
     室 ࠬ:
 STROKA -  ப,  ᫠  祢   뢮,
    ன 室    室  ।;
 NOMBER -   ப;
 EXITSYMBOL - 뢠 ।஢,  室:
  'E' -   <ESC>,
  '1' -   <F1>,
  '2' -   <F2>,
  '3' -   <F3>,
  '4' -   <F4>,
  '5' -   <F5>,
  '6' -   <F6>,
  '7' -   <F7>,
  '8' -   <F8>,
  '9' -   <F9>,
  '0' -   <F10>,
  'Q' - 祭 ।஢ 樨, ᠭ (  -
     SetGoTo)  뢠饩 뢠  ,
  'U' -   <PdUp>,
  'D' -   <PdDn>,
  'T' - 뢠 १ ஬⮪ ६,᫨  ࠧ襭  -
     楤 TimeInterrupt.
  'R' - 뢠 ᫥   <RETURN>, ᫨  ࠧ襭
       楤 EnterInterrupt.
     ਬ砭:
 ᫥ 饭  楤 ࢮ 㤥   
 祢   뢮.
#####################################################################
     Procedure  EditSelect
#####################################################################
     ⢨:
  ⠭ 梥 뤥 ।㥬 権.
     饭:
 EditSelect(SELECTTYPE,COLORTEXT,COLORBACKGROUND);
     ᠭ:
 Procedure  EditSelect(SELECTTYPE:char;COLORTEXT,
 COLORBACKGROUND:byte);
     室 ࠬ:
  SELECTTYPE - । ⨯ 뤥:
    'I' - ᭮,
    'i' - ᭮  栭,
    'Y' -   COLORTEXT,COLORBACKGROUND,
    'y' -   COLORTEXT,COLORBACKGROUND  栭,
    'N' -  뤥  뢮 ப HELP,
    'n' -  뤥  뢮 ப HELP;
  COLORTEXT - 梥 ᨬ ᫥ 뤥,
  COLORBACKGROUND - 梥 䮭 ᫥ 뤥,
     ਬ砭:
  楤 ࠡ⠥ ।⢥  ,  ன
  稭  $0b800:$0000.  砥 㣨 ᮢ, 室 -
  ⠭ 'N'    ࠧࠡ稪   ணࠬ.
  ⠭  㬮砭:
     SELECTTYPE:='Y',
     COLORTEXT :=15,
     COLORBACKGROUND:=0.
#####################################################################
     Procedure  EnterInterrupt
#####################################################################
     ⢨:
  蠥/頥 뢠 ।஢  ⨨ <ENTER>.
     饭:
 EnterInterrupt(SETINTERRUPT);
     ᠭ:
 Procedure    EnterInterrupt(SETINTERRUPT:boolean);
     室 ࠬ:
   false - 頥 뢠,
   true  - ࠧ蠥 뢠.
     ਬ砭:
  ᫨ 뢠 ࠧ襭, ᫥  <ENTER> ந室 室
   ।,  ⮬ 楤 EditScrin  ࠬ EXITSYMBOL
  頥 'R';  ⨢ 砥  ᯮ    -
  ࠢ  ।.
     ᨨ 2.0 .
  ⠭  㬮砭
    SETINTERRUPT:=true.
#####################################################################
     Procedure  ESCEdit
#####################################################################
     ⢨:
  ⠭ 祭 ६,  뫨 । 
  뢮  ᯮ짮 㭪権 . 뢠 ⮬᪨ 
  ।  室 ᫥   <ESC>.
     饭:
 ESCEdit.
    ᠭ:
 Procedure  ESCEdit.
     ਬ砭:
 ᫥ 饭  楤 ࢮ 㤥   
 祢   뢮.
#####################################################################
     Procedure  GetMustChandg
#####################################################################
     ⢨:
  頥 न ࢮ  ६, ᠭ 
  易⥫쭮   (  楤 SetMustChandg), -
   ⠪ .
     饭:
 GetMustChandg(STROKA,NOMBER);
     ᠭ:
 Procedure    SetMustChandg(STROKA,NOMBER:byte);
     室 ࠬ:
 STROKA -  ப,  ᫠  祢 樨  뢮,
     ன 뫠 ᠭ  易⥫쭠  ।஢,
    祭 뢥    뫮 ।஢;
 NOMBER -   ப;
   ᫨ ⠪ ६  :
     STROKA:=0,
     NOMBER:=0.
     ਬ砭:
   ᨨ 2.0 .
#####################################################################
     Procedure  GetPoz
#####################################################################
     ⢨:
  頥 㯭 樨  뢮 ᫥饩 ६.
     饭:
 GetPoz(POZN,LENG);
     ᠭ:
 Procedure  GetPoz(POZN,LENG:byte);
     室 ࠬ:
  POZN -  砫,
  LENG - .
     ਬ砭:
   ᨨ 2.0 .
#####################################################################
     Procedure  HelpSit
#####################################################################
     ⢨:
  ⠭ ࠧ饭  梥 뢮 ப HELP.
     饭:
 HelpSit(ONACTIVWINDOW,STROKA,NOMBER,SIZEOFHELP,COLORS);
     ᠭ:
 Procedure    HelpSit(ONACTIVWINDOW:boolean;STROKA,NOMBER,
 SIZEOFHELP:byte; COLORS:byte).
     室 ࠬ:
  ONACTIVWINDOW - न :
     true  - ⭮⥫쭮  孥 㣫 ⥪饣 ,
     false - ⭮⥫쭮  孥 㣫 ᥣ  ࠭,
  STROKA -  ப 뢮;
  NOMBER -  ࢮ 樨  뢮;
  SIZEOFHELP:⢮ 権  뢮;
  COLORS:梥 뢮 ப HELP.;
     ਬ砭:
  न 樨   孥 㣫 - 1, 1.
   ᨨ 2.0 .
#####################################################################
     Procedure  InsertEdit
#####################################################################
     ⢨:
  ⠭ ० ⠢/  । EditScrin.
     饭:
 InsertEdit(INS);
     ᠭ:
 Procedure    InsertEdit(INS:boolean);
     室 ࠬ:
  INS - ⠭ ० ⠢/:
    true - ० ⠢,
    false - ० .
#####################################################################
     Procedure  MaskScrin
#####################################################################
     ⢨:
  뢮  ࠭ 䠩-,ᮧ  ᪨ ६
   祢  '_',  梥  ⠭  
   䠩  砬, ᫥   ᫥ ஡,  뢮
    ࠭:
    \N - 室    䠩 梥   N  뢮 ᨬ-
 ,
     \ - 室  ⠭  ணࠬ 梥  뢮
 ᨬ,
    \\N - 室    䠩 梥   N  뢮
 䮭,
     \\ - 室  ⠭  ணࠬ 梥   N 
 뢮 䮭,
     饭:
 MaskScrin(X,Y,WHOT,COLORTEXT,COLORBACKGROUND);
     ᠭ:
 Procedure    MaskScrin(X,Y:integer;WHOT,COLORTEXT,
 COLORBACKGROUND:byte);
     室 ࠬ:
  X,Y - न  孥 㣫;
  WHOT -   䠩-᪥;
  COLORTEXT - ⠭  梥 ᨬ,
  COLORBACKGROUND - ⠭  梥 䮭.
     ਬ砭:
 ᫥ 饭  楤 ࢮ 㤥   
 祢   뢮.
#####################################################################
     Procedure  RefreshMaskScrin
#####################################################################
     ⢨:
  뢮  ࠭ 䠩-,  ⮬  梥  ⠭
     䠩  砬, ᫥   ᫥ -
  ,  뢮   ࠭:
    \N - 室    䠩 梥   N  뢮 ᨬ-
 ,
     \ - 室  ⠭  ணࠬ 梥  뢮
 ᨬ,
    \\N - 室    䠩 梥   N  뢮
 䮭,
     \\ - 室  ⠭  ணࠬ 梥   N 
 뢮 䮭,
     饭:
 RefreshMaskScrin(X,Y,WHOT,COLORTEXT,COLORBACKGROUND);
     ᠭ:
 Procedure    RefreshMaskScrin(X,Y:integer;WHOT,COLORTEXT,
 COLORBACKGROUND:byte);
     室 ࠬ:
  X,Y - न  孥 㣫;
  WHOT -   䠩-᪥;
  COLORTEXT - ⠭  梥 ᨬ,
  COLORBACKGROUND - ⠭  梥 䮭.
     ਬ砭:
  ᯮ  ஬⪠ ࠡ ।   ᪨,
  ᫨    ࠭ ࠥ 㦭 ଠ.  ⮬
   ᠬ ࠥ  뢥 祭.   ⠭
  室  뢮. 祭 ६  ० ࠡ -
    ⮬  .
   ᨨ 2.0 .
    ᫥ 饭  楤 ࢮ 㤥   -
   祢   뢮.
#####################################################################
     Procedure  SetColor
#####################################################################
     ⢨:
  ⠭ 梥  뢮 ᫥饩 ६.
     饭:
 SetColor(COLORTEXT,COLORBACKGROUND);
     ᠭ:
 Procedure    SetColor(COLORTEXT,COLORBACKGROUND:byte);
     室 ࠬ:
  COLORTEXT - 梥 ᨬ,
  COLORBACKGROUND - 梥 䮭.
#####################################################################
     Procedure  SetGoTo
#####################################################################
     ⢨:
  ⠭ 室  ᫥饩 樨  砭 ।஢-
   뢥 ६. ᫨  祭  﫮, ।
  .
     饭:
 SetGoTo(GOTOSTROKA,GOTONOMBER);
     ᠭ:
 Procedure    SetGoTo(GOTOSTROKA,GOTONOMBER:byte);
     室 ࠬ:
  GOTOSTROKA -  ப,  ᫠  祢 樨 
     뢮,  ।஢ 樨  ன 室 ३;
  GOTONOMBER -   ப.
  ᫨ GOTOSTROKA=0  GOTONOMBER=0  室 .
     ਬ砭:
   ᨨ 2.0 .
#####################################################################
     Procedure  SetInterval
#####################################################################
     ⢨:
  ⠭ ⨬ ࢠ 祭  뢥 ६-
  , ஢  ।஢.
     饭:
 SetInterval(MIN,MAX);
     ᠭ:
 Procedure  SetInterval(MIN,MAX:real);
     室 ࠬ:
  MIN - 쭮  祭,
  MAX - ᨬ쭮  祭.
     ਬ砭:
   ᨨ 2.0 .
#####################################################################
     Procedure  SetMayConnect
#####################################################################
     ⢨:
  ⠭/᭨     ᯨ᪠
   祭 塞 ⨯  뢥 ६.
     饭:
 SetMayConnect(MAYCONNECT);
     ᠭ:
 Procedure  SetMayConnect(MAYCONNECT:boolean);
     室 ࠬ:
  MAYCONNECT - ⠭/᭨    -
   ᯨ᪠.
    true  -   ,
    false -   .
     ਬ砭:
  뢠 ᫥ ᮥ   祭  
  楤 Connect.
   ᨨ 2.0 .
#####################################################################
     Procedure  SetMayChandg
#####################################################################
     ⢨:
  ⠭/᭨   祭 
  ६  ।஢.
     饭:
 SetMayChandg(MAYCHANDG);
     ᠭ:
 Procedure    SetMayChandg(MAYCHANDG:boolean);
     室 ࠬ:
  MAYCHANDG - ⠭/᭨ 室  祭
  ६  ।஢:
    true  -   ,
    false -   .
     ਬ砭:
   室  ।஢  樨 室  । -
     ⮣ 祭.
#####################################################################
     Procedure  SetMustChandg
#####################################################################
     ⢨:
  ⠭/᭨ 室  祭 
  ६  ।஢.
     饭:
 SetMustChandg(MUSTCHANDG);
     ᠭ:
 Procedure    SetMustChandg(MUSTCHANDG:boolean);
     室 ࠬ:
  MUSTCHANDG - ⠭/᭨ 室  祭
  ६  ।஢:
    true  -  室 ,
    false -   .
     ਬ砭:
   室  ।஢  樨 室  । -
     ⮣ 祭.
   ᨨ 2.0 .
#####################################################################
     Function SetPoint
#####################################################################
     ⢨:
  ⠭ 祢   묨 न⠬ ⥪饩 
  뢮 .
     饭:
 SetPoint(STROKA,NOMBER);
     ᠭ:
 Function SetPoint(STROKA,NOMBER);
     室 ࠬ:
 STROKA -  ப  ᫠  祢   뢮
    ன 室 ३;
 NOMBER -   ப;
    頥:
    true  -   ⠪ न⠬  ,
    false -     ⠪ न⠬ .
#####################################################################
     Procedure  SetPoz
#####################################################################
     ⢨:
  ⠭  㯭 樨  뢮 ᫥饩
  ६.
     饭:
 SetPoz(POZN,LENG);
     ᠭ:
 Procedure  SetPoz(POZN,LENG:byte);
     室 ࠬ:
  POZN -  砫, ᫨ 0,   ;
  LENG - , ᫨ 0,   .
#####################################################################
     Procedure  SetQuit
#####################################################################
     ⢨:
  ⠭/᭨ 室 室  ணࠬ ।-
  ஢  砥  祭  ६.
     饭:
 SetQuit
     ᠭ:
 Procedure SetQuit(MUSTQUIT:boolean);
     室 ࠬ:
  MUSTQUIT - ⠭/᭨ 室 室.
    true -   室 ⠭,
    false -  .
     ਬ砭:
  ᫥ 砭 ।஢ ६,  ன ⠭
  室 室, 楤 EditScrin 蠥 ࠡ, 
  ⮬  ࠬ EXITSYMBOL 頥 'Q',   STROKA, NOMBER, 
  ᥣ, न 祢   뢮,  ன 室
     室  ।.
     ᨨ 2.0 .
#####################################################################
     Procedure  SoundEdit
#####################################################################
     ⢨:
  ⠭ 祭/몫祭 㪮 ᨣ  
  ।஢.
     饭:
 SoundEdit(ERRORSOUND,RIGHTSOUND,DELAYSOUND);
     ᠭ:
 Procedure  SoundEdit(ERRORSOUND,RIGHTSOUND,DELAYSOUND:byte);
     室 ࠬ:
  ERRORSOUND -  ᨣ 訡, , ᫨ 1 ,  ;
  RIGHTSOUND -  ᨣ ⢥ত, , ᫨ 1 , 
    ;
  DELAYSOUND - த⥫쭮  ᨣ, ,  ᫨ 1 ,  -
  .
     ਬ砭:
  த⥫쭮 ᨣ ⢥ত   ࠧ  த-
  ⥫쭮 ᨣ 訡.
    த⥫쭮 砭 ⠭ প.  -
   ਡ⥫쭮  筮   ⭮ ⨯ . ᫨
    ᪮ ࠡ ணࠬ, ⠭ DELAYSOUND:=0.
    ⠭  㬮砭:
    ERRORSOUND:=2000 ,
    RIGHTSOUND:=100 ,
    DELAYSOUND:=100 .
#####################################################################
     Function   SuslovEditVer
#####################################################################
     ⢨:
  頥  ᨨ .
     饭:
 SuslovEditVer;
     ᠭ:
  Function  SuslovEditVer:string;
#####################################################################
     Procedure  TimeInterrupt
#####################################################################
     ⢨:
  ⠭ 室  楤 ।஢ EditScrin १
  ஬⮪ ६.
     饭:
 TimeInterrupt(INTERVAL);
     ᠭ:
 Procedure   TimeInterrupt(INTERVAL:word);
     室 ࠬ:
  INTERVAL - ࢠ    ᥪ㭤.
  ᫨ INTERVAL=0, 뢠 ⪫祭.
     ਬ砭:
    ⠭  㬮砭:
  INTERVAL:=0;
  ᫨ 室 ⠭  짮⥫   ଠ, १
   ࢠ ந室 室  ।,  ⮬ 楤
  EditScrin  ࠬ EXITSYMBOL 頥 'T'.
     ᨨ 2.0 .
#####################################################################
     Procedure  WriteB
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮, ६ ⨯ BOOLEAN,
  ⠭  㬮砭 ਡ  ।஢.
     饭:
 WriteB(X,STRTRUE,STRFALSE);
     ᠭ:
 Procedure    WriteB(var X:boolean;STRTRUE,STRFALSE:string);
     室 ࠬ:
   X -  ६,
   STRTRUE - ப, ᮮ⢥ true,
   STRFALS - ப, ᮮ⢥ false.
     室 ࠬ:
   X -  ६.
     ਬ砭:
   砭 ।஢ ६ ⮬᪨ ਭ -
  祭, ⠭   ।஢.
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
  祢   뢮.
#####################################################################
     Procedure  WriteI
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮, ६ ⨯ INTEGER,
  ⠭  㬮砭 ਡ  ।஢.
     饭:
 WriteI(X);
     ᠭ:
 Procedure    WriteI(X:integer);
     室 ࠬ:
  X  -  ६.
     室 ࠬ:
   X -  ६.
     ਬ砭:
   砭 ।஢ ६ ⮬᪨ ਭ -
  祭, ⠭   ।஢.
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
  祢   뢮.
#####################################################################
     Procedure  WriteR
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮, ६ ⨯ REAL,
  ⠭  㬮砭 ਡ  ।஢.
     饭:
 WriteR(X,FD);
     ᠭ:
 Procedure    WriteR(X:real;FD:byte);
     室 ࠬ:
  X -  ६,
  FD - ⢮  ᫥ ⮩.
     室 ࠬ:
   X -  ६.
     ਬ砭:
   砭 ।஢ ६ ⮬᪨ ਭ -
  祭, ⠭   ।஢.
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
  祢   뢮.
#####################################################################
     Procedure  WriteS
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮,६ ⨯ STRING,
  ⠭  㬮砭 ਡ  ।஢.
     饭:
 WriteS(X);
     ᠭ:
 Procedure    WriteS(var X:string);
     室 ࠬ:
  X -  ६.
     室 ࠬ:
   X -  ६.
     ਬ砭:
   砭 ।஢ ६ ⮬᪨ ਭ -
  祭, ⠭   ।஢.
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
  祢   뢮.
#####################################################################
     Procedure  WriteT
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮, ⥪ ,⠭
   㯭  ।஢.
     饭:
 WriteT(X:string);
     ᠭ:
 Procedure    WriteT(X:string);
     室 ࠬ:
  X -  ६  ப.
     ਬ砭:
    ।஢ 祭  .
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
  祢   뢮.
#####################################################################
     Procedure  WriteD
#####################################################################
     ⢨:
  뢮,稭  ᫥饩 ᢮ 祢 樨,ᠭ 
  䠩-᪥  ।祭  뢮, 祭,  
  ⢥ 室 ࠬ,  ⨯ ਢ  ⨯ ६, -
  祭 ன    ।⥫쭮 뢮, ⠭-
    㬮砭 ਡ  ।஢.뢮 ந
  ।⢥  .
     饭:
 WriteTD(X:string);
     ᠭ:
 Procedure    WriteTD(X:string);
     室 ࠬ:
  X -  ६  ப.
     ਬ砭:
  ! 뢮     ⮫쪮 ᫥  -
  樨 楤ன 뢮 । ⨯:WriteI, WriteR, WriteB,
  WriteS,  WriteT.
    ଠ  祭  ப  ᮮ⢥⢮ ଠ
   祭 ६ ⮣ ⨯ 楤ன READ.
    ᯮ  뢮 祭   ६,  -
  ஢ 뢮  ᮧ 䥪 뢭 ࠡ ।. -
  楤 ࠡ⠥ ।⢥  ,  ன -
    $0b800:$0000.  砥 㣨 ᮢ 楤ன 짮-
   , 室   ࠧࠡ稪  
  ணࠬ.
    祭 ⠭ ਡ⮢ ᬮ  " 㪮e -
  ⥫  ࠭⭮ ।஢  " SHELLEDIT ",
   2.0 ".
    ᫥ 饭  楤 ࢮ 㤥  ᫥
