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

⟦9aa5f22ea⟧ TextFile

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

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦8c6b0f8fa⟧ »cdes« 
            └─⟦this⟧ 

TextFile

;ali time.690 lines.2000
mode list.yes
lookup guideline
lkj=lookup tcarea
if ok.no
contract from.cproc tcarea
careaout=set 15
o careaout
i tcarea
o c
mode list.yes
lkj=lookup tlistint
if ok.no
contract from.talgprog tlistint
listintout=set 15
mode 15.yes
o listintout
i tlistint
mode list.yes
listint
mode list.no
o c
mode 15.no list.yes
progfinp=set 5
lkj=lookup procfinp
if ok.no
contract from.cdes procfinp
progfinp=edit procfinp
g b/procedure/program/,f
progfinp=edit progfinp
l./algol8/,r/algol8//,
f
progform=compose progfinp
procform=compose procfinp
careades=set 12
lookup careainp listintinp
if ok.no
contract from.cdes careainp listintinp
careades=compose careainp
listintdes=compose listintinp
lookup guideinp
if ok.no
contract from.cdes guideinp
guideinp1=edit guideinp procfinp progfinp careainp careaout,
listintinp listintout
l b,l-1,d,s2,d1,l./*qr*/,i/
*ps0*
*ct*
Appendix I
/,
l./*ef*/,s3,d1,l./qr/,i/
*ps0*
*ct*
Appendix II
/,
l./*ef*/,s4,d1,l./qr/,i/
*ps0*
*ct*
Appendix III
/,
l./*ef*/,s4,i/
*ps0*
*ct*
Appendix IV
*sj*
*se @*
@nl1@
Input to the program "compose" generating Appendix III
This file is found under the name "careainp"
@nl2@
/,l b,i/
@se *@
/,s5,i/
@ps0@
@ct@
Appendix V
@sj@
/,p0
l./testclearar/,i/
@ps0@
/,l b,
s6,d1,l./qr/,i/
@ps0@
@ct@
Appendix VI
@nl1@
@se *@
/,
l b,l-1,i/
*ps0*
/,
l1,s6,i/
*se @*
@nl2@
@ct@
Appendix VII
@sj@
@nl1@
Input ot the program "compose" generating Appendix VI
This file is found under the name "listintinp"
@nl2@
@sj@
/,
l b,i/
@ps0@
/,
l1,s7,i/
@nl2@
@ct@
Appendix VIII
@nl2@
@sj@
/,
l./algolend/,
l1,d
l./listint/,i/
@ps0@
/,l b,i/
@ef@
/,
f
guideline=compose guideinp1
global listint guideline progform procform
head 1
mode list.no
finis
▶EOF◀