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

⟦149c1fad5⟧ TextFile

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

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »listpass3« 

TextFile

job btj 8 600 area 10 perm disc 500 1 device printer pres no size 100000 time 11 0

mode list.yes
claim
head cpu

; make the editings
i eheadpass3
i eprocpass3
i emainpass3

head cpu

(i pass1codes
p3head = edit nheadpass3
end)

(i pass3codes
p3head = edit p3head
end)

(i pass3errors
p3head = edit p3head
end)

p3head = edit p3head
g b/=packed record/= (* packed *) record/,
f
head cpu

pass3txt = copy p3head nprocpass3 nmainpass3

head cpu

pass3list = indent pass3txt mark lc
head cpu
lp = head cpu
lp = cross pass3list
lp = head cpu
head cpu
finis
)
platonpass3 = set 200 disc
scope user platonpass3
platonpass3 = pascal pass3txt survey.yes codesize.6000
head cpu

replace runpass3
finis
▶EOF◀