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

⟦f8a20213d⟧ TextFile

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

Derivation

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

TextFile


job btj 1 time 5 0 size 90000

pascal80 stop.5
(*$1 1 1*)
process pip;
type
ar1 = array (1..5) of byte;
ar2 = array (1..5) of ar1;

const cc = ar2(
ar1(1,2,3,4,5),
ar1(6,7,8,9,10),
ar1(11,12,13,14,15),
ar1(16,17,18,19,20),
ar1(21,22,23,24,25)
);

var vv: ar2 := cc;

begin
vv := cc;
vv := ar2(
ar1(5,4,3,2,1),
ar1(10,9,8,7,6),
ar1(15,14,13,12,11),
ar1(20,19,18,17,16),
ar1(25,24,23,22,12)
);
end.

platonpass6 list.yes

finis
▶EOF◀