|
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: 572 (0x23c)
Types: TextFile
Names: »OSITEST.RTP«
└─⟦316f7fc78⟧ Bits:30010522 DVBS1.SW2114.src.2.7-4 SW2114 4/4 Real Time Pascal 2.7 til old rtp 92.06.10
└─⟦this⟧ »OLDRTP\OSITEST.RTP«
└─⟦3651f6bb8⟧ Bits:30010514 DVBS1.SW2114.src.2.14-4 SW2114 REAL #4/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »OLDRTP\OSITEST.RTP«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »OLDRTP\OSITEST.RTP«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »OLDRTP\OSITEST.RTP«
program ositest;\r
program systest; external;\r
\r
type str=record length: byte; alfa:array(1..12) of char end;\r
\r
function load(var s:str): integer; external;\r
\r
var\r
proc: process;\r
\r
procedure do_load(s: string);\r
var help: str;\r
begin\r
help.length:= byt(s!length);\r
for i:=1 to s!length do help.alfa(i):=s(i);\r
if load(help)=0 then;\r
end;\r
\r
\r
\r
begin\r
do_load("TESTIO");\r
do_load("SYSTEST1");\r
do_load("SYSTEST2");\r
\r
if link("SYSTEST", systest)=link_ok then trace(0) else trace(1);\r
if create("", systest, proc, 0, 200)=create_ok then;\r
end.\r