DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦0a7f57221⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »writestnatx«

Derivation

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



;       write_st_na_tx        * page 1   10 10 77, 10.18;  

;  write_st_name
;  *************

if listing.yes
char 10 12 10

write_st_name = set 1 disc

write_st_name = algol

external integer procedure write_st_name(z, a);  
_______________________________________________
zone z;  array a;  
begin
  outtext(z, 11, a, 1);  
  write_st_name:= 11;  
end;  
end

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