|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1555 (0x613)
Types: TextFile
Names: »PSCPLM.PAS«
└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
└─⟦this⟧ »RTP\PSCPLM.PAS«
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
└─⟦this⟧ »RTP\PSCPLM.PAS«
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\PSCPLM.PAS«
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
└─⟦this⟧ »PSCPLM.PAS«
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
└─⟦this⟧ »RTP\PSCPLM.PAS«
unit pscplm;\r
\r
(*\r
! PASCAL86 declarations for UDI routines.\r
! NLA/ 83.12.01\r
*)\r
\r
interface\r
CONST\r
string_length = 80;\r
buffer_length = 128;\r
rtpstringmax = 255;\r
max_word = $FFFF;\r
\r
TYPE\r
ptr_string = ^string;\r
dword = RECORD\r
CASE BOOLEAN OF\r
FALSE: (word1,word2 : word);\r
TRUE: (long : longint);\r
END;\r
date_time = RECORD\r
date,time : PACKED ARRAY [1..8] OF byte;\r
END;\r
coded_time = RECORD\r
system_time : dword;\r
date, time : ARRAY [1..8] OF char\r
END;\r
three_char = string[3];\r
conn_info = RECORD\r
open, access, seek : byte;\r
file_ptr : dword\r
END;\r
\r
buffer = ARRAY [ 1..buffer_length ] OF byte;\r
file_data = RECORD\r
owner : ARRAY [ 1..15 ] OF char;\r
length : dword;\r
file_type ,\r
owner_acc ,\r
world_acc : byte;\r
create_time ,\r
last_mod_time : dword;\r
reserved : ARRAY [ 1..20 ] OF char\r
END;\r
\r
\r
VAR\r
systempath : string[20];\r
implementation\r
uses overlay;\r
\r
var aaa : longint;\r
i : integer;\r
begin\r
systempath := ParamStr(0);\r
i := length(systempath);\r
while i <> 0 DO\r
begin\r
if systempath[i] <> '\' then\r
begin\r
delete(systempath,i,1);\r
i := i - 1;\r
end\r
else\r
begin\r
i := 0;\r
end\r
end;\r
{$IFDEF rtp86}\r
ovrinit(systempath + 'RTP86.OVR');\r
{$ELSE}\r
ovrinit(systempath + 'RTP.OVR');\r
{$ENDIF}\r
ovrInitEMS;\r
ovrsetbuf(100000);\r
end.\r
\r
\r
«eof»