DataMuseum.dk

top - metrics - download

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

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »openoutputx « 

TextFile

;       open output zone      * page 1   21 04 81, 15.23;  

if listing.yes
char 10 12 10

open_output=set 1 0
open_output=algol
;  open_output ;  
external
boolean procedure open_output(z, name, giveup);  
value                                  giveup;  
zone                          z;  
real array                       name;  
integer                                giveup;  
begin
  comment
  Proceduren åbner zonen 'z' til det, der beskrives i katalog-
  indgangen med navn 'name'.

  Kald:    open_output(z, name, giveup)

  _    open_output   (retur-værdi, boolean) Angiver om åbningen
  _                  gik godt (true) eller i fejl:
  _                  false add <status> shift 1.
  _                  <status> er beskrevet i 'open_input'

  _    z             (kald og retur, zone) Zonen, der skal åbnes.

  _    name          (kald og retur, real array) Navn på den katalog-
  _                  indgang hvortil, der skal åbnes, ved retur
  _                  navnet på dokumentet.

  _    giveup        (kald, integer) 'giveup-maske', se 'open'.

  Proceduren åbner til området 'name', hvis det er tilladt, 
  og hvis der er skrive tilgang til området.
  Hvis området ikke findes oprettes et temporært bs-område
  på disc, med længde 1 segment.
  Hvis name er real <::> laves er 'work-name' (format:
  wrkxxxxxx, hvor xxxxxx er et oktalt tal).
  ;  

  if name(1)=real <::> then
  begin
    <*der skal laves en 'work-fil'*>
    integer array ia(1:20);  
    real array field raf;  

    raf:= 2;  
    monitor(68)generate_name:(z, 0, ia);  
    getzone6(z, ia);  
    name(1):= ia.raf(1);  
    name(2):= ia.raf(2);  
  end;  

  open_output:= connect_zone(z, name, giveup, false);  

end *open_output*;  
end;  

if warning.yes
message fejl i openoutput

end
▶EOF◀