,,,
()
.
()
: -
: ͻ: .
: ..
- . , , , . , , , 1991-1992 " ".
. , "" - " ", .
" " "" , , , , . , . "" . . . - . , ( ) "" . . , .
80-, 90- .
. 89-91 . "" . , - - , . , -, "" .
" " . " " .
, . , " ". 1991-1992 . - , , .
, " " , , , . , , , , , , . , . , , , - -. " " - , , .
. , , "" " " " " . , , " " , , "" , " ", "-" , . , - : " " " " .
, , . , - " " .
" " -
, " " , . ( EXAMPLE) f.bat.
:
, "" - "" . :
1. ;
2. "" ;
3. .
. . "" " ":
" " . . :
. "" "" "" .
1. , ;
2.
( );
3. .
. . , , . , .
, "" .
. .
. F10. .
" " . "" "" . "" -. , . , . :
Alt-F2 - / ;
Alt-F3 - //
;
Alt-F4 - ;
Alt-F5 - ;
Alt-F6 - ;
Alt-X - .
"" Alt-F9 - , .
:
Esc - - ;
F1 - ;
F3 - .
. F1. .
, , . "" . , "". , Enter . "" " ". . . BackSpace. - Esc.
"" , . - . .
! - . , , . . . , - - .
, . , " " , , , , (+,-,*,/), , . - . Enter. :
23.07+5*(2345.45-567.947)/45.2
.
. . . - "" -. , . . BackSpace Del.
. , "" F10. "-" "" . , Esc.
, - . / . , "" . - .
, , , . , F7, Insert " ". 1. , " 1995" (... 1996, 1997 " ", ). , 1- Enter.
:
" " "" . , - " ". , , . : 12.00. - , . , . " " " " , , " ". - "" . " ". , , " ", " " "" .
" ". :
, . - - . . , , "". : "" "". "". :
" ".
, , . 20 Enter. . 3. . - , , - 1230000. Enter. , - . " , " Enter. . , (, , ).
. F6.
, . , , - "" . Esc, (F10), "", Enter " " F6. .
. , 6 . , , , , (1,000,000*0.008) (0.8%), .
. , . - , , .
. , , . , , . .
. -> -> . :
, , . , . F4 Tab. . . 33 001, Enter "" "". , . . "" . , . , "" , , Enter. . Enter. . 300000, - " ". . F6. . . .
, . . , F4 F7 70-002 , . 200000.
? "" ( ) . , () ( ) . . :
1.
;
2. .
. :
Home - ;
End - ;
PageUp - ;
PageDown - .
. Alt, , Alt. . , .
. - .
. Enter Tab , , ( ) . , . "" Enter. - , , , .
. - . , , , . 4 , - 25.
. , , "" Enter .
. , , , , 300000 400000. . .
, , .
, . . , , , Esc. , "" . . F8, Delete " " :
"". .
- . F5 . :
, " ?". , "" "": " ". Esc, ( , , ONLINE) . , , , .
, . (F9), (F2) . , , .
F2. :
. , ( ), . . "" . . "". . . . :
. Del. . "". End. , "". . End. . , F2. - . , . , , .
, , , , . . ?
" " . . - .
. "".
, "" 3. , . .
, Enter. . . - . , .
, . . " " - , , , , ..
, "". "" , - . , 1, - 31. , 1 31 - . , , 2- ? "" F4. .
. 1-. "" . F5. . 30-. "" .
2- . 1 , - 30 , .
. , . , - "" . .
, . , !
.
. " " , . . Alt-F3 .
"" . PageUp, PageDown. , :
, , . ( : , ; : , ; : , ) . (. . "" "") "" , . , , , "" / - ( ) "". , .
. - "" , Alt- , (, ).
" ". , , . , - "". " " "" , .
, , , . :
1. ;
2. ;
3. .
" " " " , . .
. 46 "" Enter . :
, . . - , ( - 46-). (), . , - . , .
, Esc "" , 68. :
Enter. , . Enter, . , - . . ( ) 400000 500000. , 68, 69, 70, 80 . 20 .
, "" . "" , , , . .
80. , F9 . :
, . , , . F6. "" .
, "", . , .
. , . " " "" . , "", F6. . F6 "" . . 20, 46, 50, 68, 69, 70, 80. - .
. "" "". "" . - N 1. , - , .
, - . , . , - . "" - , " " . , "" , - .
. - , - " ". , . . - .
"" , , :
1. ;
2. -;
3. ;
4. ;
5. .
. . "FORM1 * pp (p 1)" Enter. N 1. . . - , . , , 46 .
, :
1. ;
2. , " ", .
. , . " ". . , - . . , , , , .
-. - - - . , .
, , , "" . , "". , F1 . , - . , , " ", " ", " ", "p ", " ", "pp " " " . , "" ": " ": ". , , " Windows: , " - , "" . Windows, , " Windows: , " - , Windows , . - .
" "
, . , , , . , , . - , , . , " ", .
" " . ? - , , . , , .
" " , - - . , , , . , . , , , , .. , " " , , , "" .
, . , , , . - "" " " - . , - , " " .
?
, , " " , , , , , , .. , " " "" 500 - . , "" - . "" , . .
.
-, : , , , , , , , , , .
-, , . , , .
-, , , , , , , , ..
-, , .
, " " , . " ", , , .
, . , , , , . , , . . - , .
, " "?
, . , , , "" . , . , .
, " " , . , - , , . , . . , , .
, , ( ), , , . - , , , .. , , , "" , , . , .
, . , , .. .
- . , "" "" , . , . , , , .
, " " " " . , " ", . , . - , . , . , .
, , , , . , - , , , . , . , , , , . , .
. , , . , , , , . , , "" . " " , .
. " " , " ", . , . , , . , .
"", "" , " " , - . " " ! , , .
"" , , , "" , "" , . , , , .
, , , . , . "" , . , .
" "
. "" *.exe *.com , DLL-. , "" " ", . , *.exe *.com . - [ru ]. :
[ru s1,s2,n], s1 - ,
;
s2 - ;
n - :
0 - , ,
1 - ( , ).
, [ru ], RU.TXT.
.
" " - PLATEZKA.RPT, " ". " " "" . , . , - . , , , - , .
BANK.EXE, Clipper Summer'87. "" clipper.lib, extend.lib ct1.lib:
parameters FBP_par
* -
*
if pcount() = 0
clear
? ' " "'
? ' . '
inkey(0)
quit
endif
set scoreboard off
* BANK.DBF
* SUB_SCET - , ࠠ 9
* KONTRAG - , 100
* RS - , 11
* MFO - , 10
* BANK1 - , 50
* BANK2 - , 50
* ,
* [ru ]
* RS MFO
* BANK.DBF
* [cp ]
* BANK.DBF SUB_SCET
use bank index bank
* [ru ]
* ,
* ,
subscet = token( FBP_par, ';', 1 )
kontrag = token( FBP_par, ';', 2 )
* ,
seek rtrim(subscet)
* ,
*
if .not. found()
append blank
replace sub_scet with subscet, kontragent with kontrag
do EditRecord
endif
* - [ru ]
*
set color to n/bg
@ 0,0 say center(' ',80,.T.)
@ 24,0 say ' Enter- F5- F4- F8- F2- '
set color to w/b,n/w
@ 1,0 clear to 23,79
@ 1,0 to 1,79 double
set cursor off
*
declare f_list[3], h_list[3]
f_list[1] = 'if(deleted(),"*"," ")'
f_list[2] = 'sub_scet'
f_list[3] = 'left(kontragent,61)'
h_list[1] = ''
h_list[2] = ''
h_list[3] = ''
dbedit( 2, 0, 23, 79, f_list, 'KeyProc', '', h_list )
* RU.TXT ,
* ,
memowrit( 'RU.TXT', RS+MFO+alltrim(Bank1)+' '+alltrim(Bank2) )
pack &&
* dbedit()
function KeyProc
parameters mode, field_ptr
if mode < 4
return 1
endif
do case
case lastkey() = 13 &&
return 0
case lastkey() = -4 &&
subscet = sub_scet &&
kontrag = kontragent &&
append blank
replace sub_scet with subscet, kontragent with kontrag
do EditRecord &&
return 2
case lastkey() = -1 &&
reindex && , Clipper'
return 2
case lastkey() = -3 &&
do EditRecord
case lastkey() = -7 && /
if deleted() &&
recall
else
delete
endif
endcase
return 1
* " ", "" " "
procedure EditRecord
save screen
set color to n/bg
@ 24,0 say center('Insert-/ࠠ : Del,Bs,Ctrl/T,Ctrl/Y',80,.T.)
set color to w/b,n/w
@ 1,0 clear to 23,79
@ 2,2 say ': ..... '+sub_scet
@ 4,2 say ' ... '+left (kontragent,50)
@ 5,17 say right(kontragent,50)
@ 7,0 to 7,79
@ 9,2 say ' ....' get RS
@ 11,2 say ' ...............' get MFO
@ 13,2 say ' ...' get Bank1
@ 14,2 say ' ' get Bank2
set cursor on
read
set cursor off
restore screen
dbf- BANK.DBF, :
SUB_SCET - , 9,
KONTRAG - , 100,
RS - , 11,
MFO - , 10,
BANK1 - , 50,
BANK2 - , 50.
BANK.DBF SUB_SCET. - BANK.NTX.
[ru ] , ( Clipper), , .
, BANK.DBF , , " ". , .
, . , . Enter, RU.TXT, "" [ru ].
, . . PLATEZKA.RPT PROBA, PLAT_POR.RPT :
, " " :
:
" ". - , , 145. BANK.EXE , 60-001 " " :
. , , , :
Enter " " :
[ru ] . " " , "" - .
, [ru ] - RU.TXT. -. " " [DLLcall ], DLL-. :
[DLLcall library, index, data]
library - DLL,
index - p pp ,
data - p , p pp.
DLLcall .
data , . , 128 . . data , data.
, DLLcall " " .
PASCAL- MOLDOVA, . , :
{$A+,B-,D+,E+,F-,G-,I-,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,0}
library MOLDOVA;
uses strings;
type Sex = (male,female);
Var Number : longint;
ER : integer;
Frase : string;
F : text;
Level : integer;
function StrNumS(R :longint; f :Sex) :string;
var N,L :longint; s :string;
const D0 :array [0..19] of string[20]
= ('','unu','doi','trei','patru','cinci','sase','sapte','opt',
'noua','zece','unsprezece','doisprezece','treisprezece',
'paisprezece','cincisprezece','sasesprezece','saptesprezece',
'optsprezece','nouasprezece');
D1 :array [1..9] of string[20]
= ('zece','douazeci','treizeci','patruzeci','cincizeci','saizeci',
'saptezeci','optzeci','nouazeci');
D2 :array [1..9] of string[20]
= ('o suta','doua sute','trei sute','patru sute','cinci sute',
'sase sute','sapte sute','opt sute','noua sute');
begin
inc(Level,1);
if R < 0 then StrNumS:='Minus '+ StrNumS(-R,f)
else if R = 0 then StrNumS:=''
else if R = 1 then
if Level=1 then
StrNumS:='un '
else
StrNumS:='unu '
else if R <= 19 then begin
StrNumS:=D0[R]+' ';
if f=female
then if R = 1 then StrNumS:=''
else if R = 2 then StrNumS:='doua ';
end
else if R <= 99 then begin
if (R mod 10)<>0 then
StrNumS:=D1[R div 10] + ' si ' + StrNumS(R mod 10,f)
else
StrNumS:=D1[R div 10] + ' ' + StrNumS(R mod 10,f)
end
else if R <= 999 then StrNumS:=D2[R div 100] + ' ' + StrNumS(R mod 100,f)
else if R <= 1999 then begin
StrNumS:='o mie ' + StrNumS(R mod 1000,f);
end
else if R <= 2999 then begin
StrNumS:='doua mii ' + StrNumS(R mod 1000,f);
end
else if R <= 99999 then begin
L:=R div 1000;
N:=L mod 10;
s:='mii ';
if N = 1 then s:='mie ';
StrNumS:=StrNumS(L,female) + s +
StrNumS(R mod 1000,f);
end
else if R <= 999999 then begin
L:=R div 1000;
N:=L mod 10;
s:='de mii ';
StrNumS:=StrNumS(L,female) + s +
StrNumS(R mod 1000,f);
end
else if R <= 1999999
then begin
StrNumS:= 'un milion ' +
StrNumS(R mod 1000000,f);
end
else if R <= 2999999
then begin
StrNumS:= 'doua milioane ' +
StrNumS(R mod 1000000,f);
end
else if R <= 999999999
then begin
L:=R div 1000000;
N:=L mod 10;
s:='milioane ';
StrNumS:=StrNumS(L,male) + s +
StrNumS(R mod 1000000,f);
end
else if R <= 1999999999
then StrNumS:='un miliard ' +
StrNumS(R mod 1000000000,f)
else StrNumS:='****** N > 1,999,999,999 ******';
end;
procedure P(s :pChar); export;
var i,n :longint; c :integer;
q,t :string;
begin
q:=StrPas(s);
t:='';
for i:=1 to length(q)
do if q[i] <> ','
then t:=t+q[i];
Val(t,n,c);
if c <> 0
then q:='ERROR'
else q:=StrNumS(n, male);
q[1]:=upcase(q[1]);
StrPcopy(s, q);
end;
const M :array [1..12] of string[20] =
('ianuarie ','februarie ','martie ','aprelie ','mai ','iunie ','iulie ',
'august ','septembrie ','oktombrie ','noembrie ','decembrie ');
procedure Q(s :pChar); export;
var q :string; n,c :integer;
begin
q:=StrPas(s);
Val(q,n,c);
if c <> 0
then q:='ERROR 1'
else if (n < 0) or (n > 12)
then q:='ERROR 2'
else q:=M[n];
StrPcopy(s,q);
end;
exports P index 1;
exports Q index 2;
begin
end.
moldova.dll , -. " " "" [wn ] [dt ]. , , [DLLcall ], :
2458051. '':
" " Windows
1995 " " Windows. 4000 DOS. , , . DOS, Windows . DOS , .
, Windows , . , Windows- (DDE).
, , Windows- .
Windows- " " , 4000 DOS. 286 287, 2 VGA. 386DX 4 14". DOS , Windows . , . , Windows- . 486DX. "" . 17" 1024768. .
. Windows FINSETUP.EXE. "" " " . , , : (System font) (System fixed font). Windows.
- , ", ". Windows FINWSYS.FON FINWFIX.FON, SYSTEM.INI . , SYSTEM.INI SYSTEM.OLD. Windows . ", ".
. , "" . , " " , DOS-.
. "" " ", .
(FINW.EXE, FINW.HLP), (FINW.COD), (FINWDDE.EXE), DDE- (FINWDDE.EXE) (FINW.TXT).
( ) C:\FINW\EXAMPLE, C:\FINW\EXCHANGE, C:\FINW\FILM, C:\FINW\UTILS. C:\FINW\EXAMPLE , , DOS- () . Excel (DIRECTOR.XLS) Lotus-123 (YEAR.WK4), " " Windows-. C:\FINW\EXCHANGE C:\FINW\FILM , DOS- \FBP\STANDART\EXCHANGE \FBP\STANDART\ROLIK. , , . C:\FINW\UTILS SUF.EXE, , , . , RTM.EXE, DPMI16BI.OVL, DPMINST.EXE, SUF .
" ". "Help", "ReadMe", "Fin Setup", "DDE-server", "Example", "Exchange", "Film", , . , , " " .
, DOS- . , , " ". . , . .
Windows- .
, . , , .
" " . , . , Window Edit. Window "Tile ". .
. " " - . , , . , " " , , , . - "" , : , , . , , "" .
Windows- . , , "", , :
, , :
, , .
DOS- . " ?" . Alt/E " " . , " ?" , . , - . , , .
. " " .
. , Windows . , , - . " " . , , , . , , . , .
. DOS- -, "" "" , . Windows-, , , . , "" . . , . :
. "" , . , . IR, IS, IA, IY , .
, , , [ru]. PIF-, .
. Windows- ( ) " ", " ", " ", " ". "". System. , "" .
Windows " / / ". " " , Alt-R.
": -/" " ". "" . , , . " " 0,1 2 .
" " Windows (DDE) Windows. , DDE-"", DDE- .
" " DDE-. FINWDDE.EXE, . "DDE-".
DDE- "" Microsoft Excel.
" ". , Excel. " " DIRECTOR.XLS. \FINW\EXAMPLE. . Excel : " . ?". "". , " . 'FINWDDE.EXE'?" "". Excel FINWDDE.EXE, Excel " ". :
D1. :
=FINWDDE|'C:\FINW\EXAMPLE'!'[ea 50]+[ea 51]+[ea 52]'
Excel FINWDDE, , , " " "" [ea 50]+[ea 51]+[ea 52]. " " , . , . , , :
=FINWDDE|'C:\FINW\EXAMPLE'!'[ea 50]+[ea 51+[ea 52]'
D1 :
"#ERR: 51+[ea "
. . .
, , " ", , , . , , . , "" . , , "#BUSY".
" " "-"
. "" . , : 90 , 80. , "-" . " ?" " -?".
. 1993 , "SQL-" "-".
" "? ?
, . - " ", "-". " " , . , , " ", .
, . . , , , , , . .
, SQL "" . , . , . , .
, " " , , , , , , , , " ". , ( ) .
. , , , , , .
״ 2.04״. 1.0
1. p
p p p p p p. p p p p pp:
1. p p pp "" p p D - .
2. pp p D D' D' .
3. pp p. , p .
p p (R), p (J), p (E), D D', pp p 3.
(O D) p p , pp D' p 3.
( ) p p, pp p 4.
4. pp p D, D' (p )
5. p pp "p" D, p p p.
p , pp "" 6, p 5.
D , pp p 2.
6. pp D D' p.
(O D) , pp D'.
p p, pp p D "p" 5 , , p .
p p " p" - p, p . p pp .
pp p D' D p 5.
pp p p , . p p DUAL OLD p.
, p p p p pp .
, p p, p p pp , "" p ( Windows, OS/2 ..).
p p pp - p p.
p p, p , p p.
. pp. p p p CAAA-170 pp p:
X p Y 100,
p X 1100, Y 900.
p, pp :
fact ta 'X', 100, 0, 'Y', 1100, 'CAAA-170'
fact ta 'Y', 0, 100, 'X', 900, 'CAAA-170'
p ta-. Ta- p pp p:
__SYS000 * p p
__SYS001 * p
__SYS002 * p
__SYS003 *
__SYS004 * pp
__SYS005 * pp
__SYS006 * pp
pp p ta-, . ta- . p p , ta- p.
, p ta- p pp p .
p, @-p [CT]. :
[CT s]
s - p. p p, p p @-p s p. p @-p , p.
: p @-p, p p @-p. , p p, p; p , p p p , ..
[USER] , p pp p.
[TA] , pp TA- . :
[TA m1,m2]
m1 m2 - p p .
p 1 ta- , 0, ta- .
[INTSN] pp p p [SN]: p p p .
, [INTSN 12345678] - '12345678'.
[LENGTH] p p - p. :
[LENGTH s]
s - p. pp: [LENGTH 'qwerty'] p 6, : [LENGTH ''] 1, 0!
[ANTIDA] p [DA] p , p p .
, [DA 3,28,1996] 1975, [ANTIDA 1975] - 199603.28
p pp. p p p U.
M ON - p pp;
M OFF - ;
W ON - "" pp p;
p pp pp ,
p
p;
W OFF - "" pp p ;
p pp pp;
W FORM - pp p ( .17 )
W DOWN - p p pp.
5. p pp:
server data [box [color [mode [m1 [m2]]]]]
server - pp
data - p
box - ,
- \_BOX_;
"_"
color - p , pp
: COLOR MONO; - MONO:
mode - , p p
pp:
OLD - p ,
. p 1.x;
DUAL - p ;
- DUAL;
m1, m2 - , p
ta-;
ta-
pp DOS, Windows, ..:
FN C:\DEMODATA C:\_BOX_ COLOR DUAL 1 12
FN C:\DEMODATA C:\_BOX_ MONO OLD 3 5
pp Novell NetWare:
LOAD FL DEMODATA _BOX_ COLOR DUAL 1 12
LOAD FL DEMODATA _BOX_ MONO DUAL
6. DOS
DOS " ". , p p p p, p Windows. , p p pp - p .
DOS pp p " ". p ( p J) Enter p pp. p p p pp . KEY p O.
pp: p CAAA-170 p; p p pp p (p p pp):
O KEY=CAAA-170 1000 p
p J p . KEY.
pp: J KEY=CAAA-170
p p (pp, p), p p p - , p p; p A - p, C - p ..
pp: J KEY=B900
: p, 900- p . , p p - p-p , pp p p J p , p. , pp pp p pp p (p J). , p- p, p p J ALL.
7.
p p pp p p p . p p pp p, p. p , p p pp ( p), pp "" p W FORM; p pp; FORMS.ERR, p S ( pp).
8. @-p
p, @-p, . pp p p.
9. p p p pp
pp p p p, FATAL.ERR. p p, p.
10. p 2.04 2.02
p p 2.02 (p 1996). p 2.04 2.02:
- 10 16. p pp p p p p p pp p 4000/ultraF.
- [set] [plus] p - p, p. p %. % p . p, [set] [plus] % - p. p ppp p p.
- [co] p , - p. p . , p p p p.
() . ()
Copyright (c) 2024 Stud-Baza.ru , , , .