DataMuseum.dk

top - download

    Length: 1024 (0x400)
    Types: TextFile
    Names: »SYSTEST1.RTP«

└─⟦289818552⟧ Bits:30010516 DVBS1.SW2114.src.2.7-3 SW2114 3/4 Real Time Pascal 2.7
    └─⟦this⟧ »RTP\SYSTEST1.RTP« 
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
    └─⟦this⟧ »RTP\SYSTEST1.RTP« 
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\SYSTEST1.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\SYSTEST1.RTP« 

TextFile

  (***************** 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
  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
Procedure Writename(VAR z : inoutZone; INSPECT name : string);\r
\r
(*  procedure outnl (var z: zone); external;*)\r
\r
begin\r
  WriteChar(z,' ');\r
---$IF target = rc3502\r
---  outnl(z.oz);\r
---$ELSE\r
  WriteChar(z,CR);\r
  WriteChar(z,LF);\r
---$ENDIF\r
  WriteString(z,"   ");\r
  WriteString(z,name);\r
  WriteString(z,"    ");\r
End.\r