DataMuseum.dk

top - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »TESTIO.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\TESTIO.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\TESTIO.RTP« 
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
    └─⟦this⟧ »OLDRTP\TESTIO.RTP« 
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
    └─⟦this⟧ »OLDRTP\TESTIO.RTP« 

TextFile

helpenv;\r
\r
type\r
     zone=record iz,oz: op_zone;\r
                 p: ^pool;\r
          end;\r
          \r
  procedure open_input_zone(var z: zone); external;\r
  procedure open_output_zone(var z: zone); external;\r
.\r
\r
procedure open_input_zone(var z: zone);\r
var mbx_ptr: ^mailbox;\r
begin\r
  if nil(z.p) then new(z.p);\r
  if nil(z.iz.dataready) then begin\r
    op_initzone(z.iz);\r
    if allocpool(z.p^,2,100,mem_private)<>2 then;\r
    mbx_ptr:= search_object(operator_name);\r
    op_openzone(z.iz,mbx_ptr,z.iz.dataready,1,z.p^,1,7,0,0);\r
    op_in(z.iz);\r
    op_in(z.iz);\r
  end;\r
end;\r
\r
procedure open_output_zone(var z: zone);\r
var mbx_ptr: ^mailbox;\r
begin\r
  if nil(z.p) then new(z.p);\r
  if nil(z.oz.dataready) then begin\r
    op_initzone(z.oz);\r
    if allocpool(z.p^,1,100,mem_private)<>1 then;\r
    mbx_ptr:= search_object(operator_name);\r
    op_openzone(z.oz,mbx_ptr,z.oz.free,1,z.p^,2,7,0,0);\r
  end;\r
end;\r
\r
procedure writechar(var z: zone; aa: char);\r
begin\r
  open_output_zone(z);\r
  op_outchar(z.oz,aa);\r
  op_outend(z.oz,true);\r
end;\r
\r
procedure writestring(var z: zone; inspect aa: string);\r
begin\r
  open_output_zone(z);\r
  op_outstring(z.oz,aa);\r
  op_outend(z.oz,true);\r
end;\r
\r
procedure printboolean(var z: zone; aa: boolean);\r
begin\r
  open_output_zone(z);\r
  if aa=true then op_outstring(z.oz,"TRUE ")\r
  else op_outstring(z.oz,"FALSE ");\r
  op_outend(z.oz,true);\r
end;\r
\r
procedure printinteger(var z: zone; aa: integer);\r
begin\r
  open_output_zone(z);\r
  op_outinteger(z.oz,aa,1);\r
  op_outchar(z.oz,' ');\r
  op_outend(z.oz,true);\r
end;\r
\r
procedure printword(var z: zone; aa: word);\r
begin\r
  open_output_zone(z);\r
  with aa as ii: integer do op_outhex(z.oz,ii,5);\r
  op_outstring(z.oz,"HW ");\r
  op_outend(z.oz,true);\r
end;\r
\r
procedure printbyte(var z: zone; aa: byte);\r
begin\r
  open_output_zone(z);\r
  with aa as ii: 0..255 do op_outhex(z.oz,ii,5);\r
  op_outstring(z.oz,"HB ");\r
  op_outend(z.oz,true);\r
end;\r
\r
function readchar(var z: zone): char;\r
var aa:char;\r
begin\r
  open_input_zone(z);\r
  op_inchar(z.iz,aa);\r
  if z.iz.readstate<>0 then\r
  begin\r
    op_in(z.iz);\r
    op_wait(z.iz,z.p^);\r
    op_inchar(z.iz,aa);\r
  end;\r
  readchar:=aa;\r
end;\r
\r
function readinteger(var z: zone): integer;\r
var aa:integer;\r
begin\r
  open_input_zone(z);\r
  op_ininteger(z.iz,aa);\r
  if z.iz.readstate<>0 then\r
  begin\r
    op_in(z.iz);\r
    op_wait(z.iz,z.p^);\r
    op_ininteger(z.iz,aa);\r
  end;\r
  readinteger:=aa;\r
end.\r
«eof»