DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »plotstntx«

└─⟦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

;         plot station        * page 1    3 04 79, 12.45;  

;  plot_stn
;  ********

if listing.yes
char 10 12 10

plot_stn = set 1

plot_stn = algol

external integer procedure plot_stn
___________________________________
_                     (z, nr);  
value                     nr;  
zone                   z;  
long                      nr;  

comment

the same call and return as for write_stn. see this

exception : all preceeding spaces are skipped
*********   i.e. the station nuber is placed to the left.

;  

\f



comment   plot station        * page 2    3 04 79, 12.45
0 1 2 3 4 5 6 7 8 9 ;  

begin

  integer  i, j, max, stop, used, char, chars;  
  long     portion;  

  integer array  descr(1:20);  
  zone           convert(10, 1, std_error);  

  open(convert, 0, <:dummy:>, 0);  

  max  := write_stn(convert, nr);  
  used := (max + 5) // 6;  
  chars:=
  stop := 0;  

  comment set corearea to init;  
  write(convert, false, 2);  
  get_zone6(convert, descr);  
  descr(12) := 1;  
  descr(14) := descr(19);  
  descr(16) := 40;  
  set_zone6(convert, descr);  

  for i := 1 step 1 until used do
  begin

    portion := long convert(i);  
    max     := max - 6;  
    if max < 0 then stop := 8 * max;  

    for j := -40 step 8 until stop do
    begin
      char := (portion shift j) extract 8;  
      if char <> 32 or chars > 0 then
      begin
        out_char(z, char);  
        chars := chars + 1;  
      end;  

    end;  

  end;  

  plot_stn := chars;  

end;  

end

if warning.yes
(mode 0.yes
message plot_stn not ok
lookup plot_stn)

end

finis

▶EOF◀