|
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: »tryktx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »tryktx «
mode list.yes
tryk=algol survey.yes
begin
integer i, j, ch, k;
integer array tabel (0:127);
isotable (tabel);
intable (tabel);
for i := 0 step 1 until 127 do
if tabel (i) shift (-12) = 0 then
tabel (i) := 9 shift 12 + i;
tabel (32) := 7 shift 12 + '_';
for j := 1 step 1 until 2 do
begin
write (out, <:<10>***start segment***<10>:>);
for i := 1 step 1 until 768 do
begin
k := readchar (in, ch);
if ch = 25 then
write (out, <:<10>em<10>:>)
else
if ch = 10 then
write (out, <:(nl)<10>:>)
else
if k = 9 then
write (out, <: blind(:>, <<d>, ch, <:):>)
else
outchar (out, ch);
end for i;
end for j;
end;
end
▶EOF◀