|
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: »retrell3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retrell3tx «
mode list.yes
releasel4tx=edit releasel3tx
; parameter array til system med lower index <> 1
l./message link programs/, r/07.03.79/88.09.02/, r/v.60/rel. 4.0/
l./integer array corearr(0:1);/, l1, i/
integer array field iaf;
iaf := -2;
/, p-2
l./corearr)/, g5/corearr)/corearr.iaf)/, p-5
l./page...9/, r/07.03.79/88.09.02/
l./integer array docname(2:5);/, l1, i/
integer array field iaf;
iaf := 4;
/, p-2
l./docname)/, r/docname)/docname.iaf)/
l./page...11/, r/07.03.79/88.09.02/
l./is suppressed./, r/./ and free links are not printed./
l./if linkdescr > 2 then/, l./i:=1;/, i/
if linkdescr > 0
or not all then
begin <*link not free*>
/, l1, r/i/ i/, l1, r/c/ c/, l1, r/b/ b/, l1, r/p/ p/, l1, r/p/ p/,
l1, r/e/ e/, l1, i/
end <*link not free*>;
/, p-8
l./page...12/, r/07.03.79/88.09.02/
l./if linkdescr=0 then/, l./write/, r/write/if not all then
write/
l./page...21/, r/07.03.79/88.09.02/
l./fpproc(29/, l1, r/shift 1 + 1/shift 2 + 0/
l1, r/a size on 1 segment/the most resources of key 0/
f
end
▶EOF◀