|
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: »precrosst«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »precrosst«
job hlv 2 1000 time 5 0 perm mini 1000 10
(mode list.yes
precross=set 200 mini
scope user precross
precross=algol list.yes
finis)
begin
boolean comm; integer ch;
comm:= false; ch:= 0;
for ch:= ch while ch <> 25 do
begin
readchar(in,ch);
if comm then
begin
if ch = 33 then <* ! *>
begin comm:= false; write(out,<:*):>) end
else
if ch = 10 then
begin comm:= false; write(out,<:*)<10>:>); end
else outchar(out,ch);
end <* comm *> else
if ch = 33 or ch = 59 then
begin comm:= true; write(out,<:(*:>) end
else outchar(out,ch);
end <* while -,em *>
end
▶EOF◀