|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »chotxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »chotxt«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »chotxt«
program for printing of model chemical reactions
29 01 81 17 00 00
fpinit area.kemdata
begin
integer ndata,idata,cnr,segm,i,j,k,p;
real date,clock;
boolean nl;
integer array TAIL(1:10);
real array BS(1:3);
zone DATA(128,1,stderror);
nl:= false add 10;
readsfp(<:area:>,BS,<:kemdata:>);
open(DATA,4,string inc(BS),0);
inrec(DATA,128); date:= DATA(125); clock:= DATA(126);
ndata:= DATA(127); idata:= DATA(128);
write(out,nl,1,<< dd dd dd>,date,clock,nl,1);
write(out,string inc(DATA)); setposition(out,0,0);
lookuptail(BS,TAIL);
if ndata<0 or ndata>(TAIL(1)-1)*(128//idata) then
ndata:= (TAIL(1)-1)*(128//idata);
p:= 0;
for i:= 1 step p until ndata do
begin p:=readi(<:print:>);
if p=0 then
begin segm:= readi(<:segm:>);setposition(DATA,0,segm); end;
for j:= 1 step 1 until p do
begin inrec(DATA,idata);
write(out,nl,1,<<-d>,DATA(1),<< dddd.d>,DATA(2),<< d.d'-d>,DATA(3));
for k:= 4 step 1 until idata do
write(out,<< -d.dd'-dd>,DATA(k));
end;
end
end
▶EOF◀