|
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: 768 (0x300)
Types: TextFile
Names: »ixtx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »ixtx «
mode list.yes
ix=algol ix.yes survey.yes
begin
integer ix;
integer array ia (1:3);
write (out,
"nl", 1, <:rc8000 = :>, if rc8000 then <:true:> else <:false:>);
stopzone (out, true);
trap (goon);
for ix := 1 step 1 until 3 do
ia (ix) := ix;
write (out, "nl", 1, <:index ? :>);
stopzone (out, true);
read (in, ix);
write (out,
"nl", 1, <:ix = :>, ix);
stopzone (out, true);
overflows := underflows := 0;
write (out,
"nl", 1, <:overflows, underflows = :>, overflows, <:, :>, underflows);
stopzone (out, true);
write (out,
"nl", 1, <:ia (ix) = :>, ia (ix));
goon:
write (out,
"nl", 1, <:overflows, underflows = :>, overflows, <:, :>, underflows);
stopzone (out, true);
end;
▶EOF◀