DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tnewtest« 

TextFile

(mode list.yes
newout=set 30
scope user newout
o newout
testnew=pascal list.yes codesize.200 heap.100
if ok.yes
testnew
scope user testnew
o c
mode list.no
finis
)
(*$C+*)
program testnew(input,output);
type
nodep=^node;
node=record
  case integer of
   1:  (c: array Æ1..10Å of integer);
   2:  (c2:array Æ1..100Å of integer);
   3:  (c3:array Æ1..1000Å of integer);
end;
var
i,j,k,l: integer;
iarr: nodep;
size: integer;
begin
case size of
1: new(iarr,1);
2: new(iarr,2);
3: new(iarr,3);
end;
read(size,i,j);
for k:=i to j do iarr^.cÆkÅ:=26;
end.
;
2 8 9
mode list.no
finis
▶EOF◀