File system: new function 70.3 for write to the existing file

@panel: to match K0581 distro: SYSMETER -> GMON
@numcalc: moved to the appropriate place in repository
HeEd: added english variant
NetSendC, NetSendS: added english variant + optimization
pic4: changes in set background + optimization
tetris, @rcher, board, sysxtree, vrr: new versions from K0581 distro
bgitest: fixed small error + ability to set language via lang.inc
c4: small correction in label height to match K0581 distro

git-svn-id: svn://kolibrios.org@131 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/examples/numcalc/trunk/@numcalc.asm

@@ -0,0 +1,49 @@
+use32
+        db      'MENUET01'
+        dd      1
+        dd      start
+        dd      i_end
+        dd      mem
+        dd      mem
+        dd      0
+        dd      0
+
+start:
+        push    66
+        pop     eax
+        push    4
+        pop     ebx
+        mov     cl, 45h         ; NumLock scancode
+        xor     edx, edx
+        int     40h
+        mov     al, 40          ; старшие биты уже обнулены
+        mov     bl, 2           ; старшие биты уже обнулены
+        int     40h
+event:
+        push    10
+        pop     eax
+        int     40h
+; у нас может быть только одно событие - нажата клавиша
+        mov     al, 2
+        int     40h
+        cmp     al, 2
+        jnz     event
+; у нас есть только одна горячая клавиша
+        push    70
+        pop     eax
+        mov     ebx, fileinfo
+        int     40h
+        jmp     event
+
+fileinfo:
+        dd      7
+        dd      0
+        dd      0
+        dd      0
+        dd      0
+        db      '/rd/1/calc',0
+
+i_end:
+        align   16
+        rb      16
+mem:

programs/develop/examples/numcalc/trunk/build.bat

@@ -0,0 +1,2 @@
+@fasm @numcalc.asm @numcalc
+@pause

programs/develop/heed/trunk/heed.asm

@@ -1159,7 +1159,7 @@ help_window:
   add  edx,14 ;help_text addr.
   add  esi,37 ; = 51 - length 1 line
   mov  ecx,0x00ffffff
-  mov  edi,15
+  mov  edi,(help_end-help_text)/51
  @@:
   add  ebx,0x10
   int  0x40
@@ -1329,6 +1329,7 @@ db 0xEC,0xED,0xEE,0xEF
 ;text for help_window
 help_label: db 'Help for HeEd.'
 help_text:
+if lang eq ru
  db '1.HeEd ¢ á®áâ®ï­¨¨ ®âªàëâì ä ©« ⮫쪮 ®¤¨­ à § ¨  '
  db '  ­ã¦­®¥ ç¨á«® à § á®åà ­¨âì ¥£®.                  '
  db '2.�ਠ®âªàë⨨ ä ©«  ¡¥§ à áè¨à¥­¨ï ­ ¤® íâ® à áè¨-'
@@ -1344,12 +1345,27 @@ help_text:
  db '  ¤¨âáï ¯ ¬ïâì á  ¤à¥á  0å80000, ­® à §¬¥à ä ©«    '
  db '  à ¢¥­ 0xFFFFFFFF.                                '
  db '               (á¬. ¨­ä® "About")                  '
+else
+ db '1.HeEd can once open file and many times save it.  '
+ db '2.To open file without extension it is required to '
+ db '  specify anyway as three spaces after a dot.      '
+ db '3.File is opened when the button "Go" is pressed.  '
+ db '4.Creation of new files in the menu is not provided'
+ db '  but you can edit...                              '
+ db '5.Only number of bytes which was file size when    '
+ db '  opening is written to file.                      '
+ db '6.If you press "Go" with empty filename field,     '
+ db '  memory starting from address 0x80000 is output,  '
+ db '  but file size equals to 0xFFFFFFFF.              '
+ db '               (see info "About")                  '
+end if
 help_end:
 ;text for about_window
 about_label: db 'About this funny.'
 about_text:
+if lang eq ru
  db '�¥ª®â®à ï ¨­ä®à¬ æ¨ï ¤«ï â¥å, ªâ® § å®ç¥â ¤®¯¨á âì '
- db 'á çâ®-⮠᢮¥: ª®¤ ¯à ªâ¨çªáª¨ ­¥ ®¯â¨¬¨§¨à®¢ ­,'
+ db 'á çâ®-⮠᢮¥: ª®¤ ¯à ªâ¨ç¥áª¨ ­¥ ®¯â¨¬¨§¨à®¢ ­,'
  db 'â ª çâ® à §®¡à âìáï ¡ã¤¥â ­¥ â ª 㦠᫮¦­®. ‘âப¨ '
  db '¤«ï ª­®¯®ª ¬¥­î ¤®«¦­ë ¨¤â¨ ¯àאַ ¤à㣠§  ¤à㣮¬,  '
  db 'â. ª. ï ¯à¨ ¢ë¢®¤¥ ¨á¯®«ì§ãî ­¥ mov esi,à §¬¥à ¨   '
@@ -1363,6 +1379,23 @@ about_text:
  db 'ப á GUI MeOS ¨ ¯®í⮬㠭¥ ¯à¥â¥­¤ã¥â ­  çâ®-â®   '
  db '¡®«ì襥, 祬 ¯à¨¬¥à. �à®áâ® ­ ¤®¥«  íâ  â¥¬ ,   ¢ë-'
  db 'ª¨­ãâì ¦ «ª®.            mailto:babalbes@yandex.ru '
+else
+ db 'Some information for those who want add to this    '
+ db 'something their own: the code is practically not   '
+ db 'optimized, so investigation is not complicated.    '
+ db 'Strings for menu buttons must rank after each other'
+ db 'as I use not mov esi,size and mov edx,address when '
+ db 'output but simply add offsets. For encodins and    '
+ db 'file sizes for save, it remains only add buttons   '
+ db 'with text in menu (at addition one should take into'
+ db 'account that buttons ID are recognized as dec ah   '
+ db 'rather than cmp ah,ID). Nevertheless if study is   '
+ db 'unpleasant, you can write and ask. This program has'
+ db 'been written in course of study GUI MeOS and does  '
+ db 'not therefore pretend on some more than example.   '
+ db 'Just this theme bothers, but I regret to delete.   '
+ db '                         mailto:babalbes@yandex.ru '
+end if
 about_end:
 
 I_END: