|
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: 2304 (0x900)
Types: TextFile
Names: »ftestpager «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »ftestpager «
mode list.yes
awrite=assign write
fchar=algol
external
boolean procedure fchar (i);
value i ;
integer i ;
fchar := false add i ;
end
p=fortran survey.yes list.yes rts.algftnrts
integer function head (z, text, page, seg)
zone z
long text
dimension text (3)
integer page, seg
external awrite, fchar
integer awrite
logical fchar
common text4 (1)
long text4
data text4/'page'/
if (mod (seg, 30) .ne. 0) goto 10
call awrite (z, fchar (12), 1, fchar (10), 2,
1text, fchar (32), 40, text4, page, fchar (10), 3);
page = page + 1
10
head = seg
end
program p
external initpager, head, progsize, out
integer initpager, head, progsize
zone out
common /c1/ text1 (3) /c2/ text2 (3)
long text1, text2
data text1/'segment counters'/
data text2/'line information'/
integer i,page
pagersize = initpager (0, progsize, 1, 59)
call outchar (out, 12)
call printsurvey (out, 0)
i = 0
page = 1
call printseginf (out, head (out, text1, page, i), i, progsize, 0)
i = 0
page = 1
call lineinf (out, head (out, text2, page, i), i, progsize, 0, 5)
call outchar (out, 12)
end
/
end
finis
▶EOF◀