|
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: 1588 (0x634)
Types: TextFile
Names: »RC35IMC.RTP«
└─⟦289818552⟧ Bits:30010516 DVBS1.SW2114.src.2.7-3 SW2114 3/4 Real Time Pascal 2.7
└─⟦this⟧ »RTP\RC35IMC.RTP«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »RTP\RC35IMC.RTP«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\RC35IMC.RTP«
└─⟦d5707feda⟧ Bits:30010512 DVBS1.SW2114.src.2.14-3 SW2114 REAL #3/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »RTP\RC35IMC.RTP«
helpimcinv;\r
TYPE\r
alfa3 = String(3);\r
.\r
procedure connect(var p:port; index:1..maxint; var compl, disc: reference;\r
inspect remote_name:string; service: conn_service);\r
procedure oldconnect = connect(var p:port; index:1..maxint;\r
var compl, disc: reference;\r
remote_name:alfa;\r
service: conn_service);\r
external;\r
VAR a : alfa;\r
BEGIN\r
a := remote_name;\r
oldconnect(p,index,compl,disc,a,service);\r
END;\r
procedure openport(var p:port; var closebuf: reference;\r
inspect name:string; scope: scope_type;\r
no_of_cons: 0..maxint; cntrl: control_type);\r
procedure oldopenport = openport(var p:port; var closebuf: reference;\r
name:alfa; scope: scope_type;\r
no_of_cons: 0..maxint; cntrl: control_type);\r
external;\r
VAR a : alfa;\r
BEGIN\r
a := name;\r
oldopenport(p,closebuf,a,scope,no_of_cons,cntrl);\r
END;\r
\r
\r
Procedure masknames(VAR r : Reference; mask : string; \r
imc_incno : 1..maxint); \r
Procedure oldmasknames = masknames(VAR r : Reference; mask : alfa3; \r
imc_incno : 1..maxint); EXTERNAL;\r
VAR\r
a : alfa3;\r
BEGIN\r
a := mask;\r
oldmasknames(r,a,imc_incno);\r
END;\r
\r
function alias( var p: port; inspect name: string ): boolean;\r
function oldalias = alias( var p: port; name: alfa ): boolean;\r
external;\r
VAR\r
a : alfa;\r
BEGIN\r
a := name;\r
alias := oldalias(p,a);\r
END.\r