DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »iogeotx«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦bf33d74f6⟧ »iogeofile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦bf33d74f6⟧ »iogeofile« 
            └─⟦this⟧ 

TextFile

;       io_geo_tx             * page 1   13 09 77, 10.22;  

;  io_geo
;  ******

if listing.yes
char 10 12 10

io_geo = set 1

io_geo = algol

external integer procedure io_geo
________________________________
_                (z, t, exist);  
zone              z;  
integer              t;  
boolean                 exist;  

begin
  integer  q_proc;  
  real     str;  

  io_geo  :=
  q_proc  := 16;  

  write(z, nl, 3, <:;  :>, q_proc, <:_procedures:>, nl, 2, 
  _    <:;  proc_name___________version:>, nl, 1);  

  for t := 1 step 1 until q_proc do
  if exist then
  begin
    str := real (case t of (
    <*  1 *> <:io<95>geo:>, 
    <*  2 *> <:conv<95>t<95>geo:>,
    <*  3 *> <:read<95>geo<95>t:>, 
    <*  4 *> <:read<95>nmb:>, 
    <*  5 *> <:read<95>st<95>name:>, 
    <*  6 *> <:read<95>niv<95>stn:>, 
    <*  7 *> <:read<95>add<95>pch:>, 
    <*  8 *> <:in<95>add<95>pch:>, 
    <*  9 *> <:read<95>text:>,  
    <* 10 *> <:read<95>geo:>, 
    <* 11 *> <:write<95>geo<95>t:>, 
    <* 12 *> <:write<95>stn:>, 
    <* 13 *> <:write<95>st<95>name:>,
    <* 14 *> <:write<95>cmt:>, 
    <* 15 *> <:write<95>niv<95>stn:>, 
    <* 16 *> <:write<95>geo:>, 
    <*    *> <::>));  

    wr_date_time(z, proc_transla(string str)
    + 0*write(z, sp, 16 - write(z, nl, 1, string str, <:, :>)));  

  end;  

end io_geo;  

end

if warning.yes
( mode 0.yes
message io_geo not ok
lookup io_geo)
▶EOF◀