|
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: 894 (0x37e)
Types: TextFile
Names: »SYSTEST1.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\SYSTEST1.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\SYSTEST1.RTP«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »OLDRTP\SYSTEST1.RTP«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »OLDRTP\SYSTEST1.RTP«
(***************** TEST RTP COMPILER ***************)\r
\r
(* ******************* Procedure on level 0 from TEST3F *****************)\r
procedure p11(var b: boolean);\r
\r
\r
\r
\r
var\r
k: integer;\r
begin\r
k := 7;\r
if k < 10 then b := true\r
else b := false;\r
end;\r
\r
function mult(i: integer): integer;\r
\r
\r
begin\r
mult := i * i;\r
end;\r
\r
(********************* Function on level 0 for test3fa *************)\r
\r
function multbyadd(i: integer; j : integer): integer;\r
begin\r
if i = 0 THEN multbyadd := 0 \r
ELSE\r
multbyadd := j + multbyadd(i - 1, j);\r
end;\r
\r
(*******************************************************************)\r
\r
\r
\r
Procedure Writename(VAR z : Zone; INSPECT name : string);\r
\r
begin\r
WriteChar(z,CR);\r
WriteChar(z,LF);\r
WriteString(z," ");\r
WriteString(z,name);\r
WriteString(z," ");\r
End.\r