eric
/
telegard
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Stubbed a DOSism.

This commit is contained in:
Ryan C. Gordon 2000-11-18 06:33:48 +00:00
parent c97d23ec6b
commit 0112902e54
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
file2.pas
View File

@ -27,6 +27,8 @@ var buffer:array[1..16384] of byte;
src,dest:file; src,dest:file;
procedure dodate; procedure dodate;
{rcg11172000 DOSism. Stubbed.}
{
var r:registers; var r:registers;
od,ot,ha:integer; od,ot,ha:integer;
begin begin
@ -41,6 +43,10 @@ var buffer:array[1..16384] of byte;
ax:=$3e00; bx:=ha; msdos(dos.registers(r)); ax:=$3e00; bx:=ha; msdos(dos.registers(r));
end; end;
end; end;
}
begin
writeln('STUB: file2.pas; dodate()...');
end;
begin begin
ok:=TRUE; nospace:=FALSE; ok:=TRUE; nospace:=FALSE;