. , , ,

,,,

. " ": " " — ,

()

.

()

: -

: ͻ: .

: ..


- . , , , . , , , 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 ..).

3. p p

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 .

4. 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.

() . ()

 

 

 

! , , , .
. , :