DataMuseum.dk

top - download

    Length: 846 (0x34e)
    Types: TextFile
    Names: »TESTHEX.PAS«

└─⟦b6837b237⟧ Bits:30010500 SW2103 REL 1.11 Sourcer DVBS1.SW2103.rel.1.11-1 MASTER 31-1-192
    └─⟦this⟧ »TESTHEX.PAS« 

TextFile

program test;\r
uses rtpunit, dos;\r
\r
var sep, count, int: integer;\r
    neg : boolean;\r
    a: alfa;\r
    p: path;\r
begin\r
  p   := '';\r
  neg := false;\r
  count := 0;\r
  repeat\r
    sep   := paramread(count,int,a);\r
    if p <> source_path then\r
    begin\r
      writeln('sourcepath : ', source_path);\r
      p := source_path;\r
    end;\r
    write('seperator(', count:1,') = ', (sep shr 8):5, (sep and 255):5,\r
          '  alfa = ', a, ' integer = ');\r
    if a='neg' then neg := not neg;\r
(*$R-*)\r
if neg then int := -int;\r
(*$R+*)\r
    write_hex(int, 4);\r
    writeln;\r
    count := count + 1;\r
  until sep = 0;\r
\r
writeln(' heap available: ', memavail);\r
writeln(' rtppath       : ', rtp35_pathname);\r
writeln(' rtpwork1      : ', path1_name);\r
writeln(' rtpwork2      : ', path2_name);\r
writeln(' sourcepath    : ', source_path);\r
\r
end.\r
«eof»