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

⟦748a4aba2⟧ TextFile

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

Derivation

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

TextFile

job jaba 600 time 3 0 size 100000 ,
perm mini1 300 1

zz = set 1 mini1
scope user zz
pp = pascal

program convert(ind='yyy',ud='zz',output);

var ch : char;
ind,ud : text;

(*$T-*)
begin
reset(ind);
rewrite(ud);
while not eof(ind) do
begin
ch := ind^;
get(ind);
if (ch >= 'A') and (ch <= 'Z') then
ch := chr(ord(ch) + 32);
write(ud,ch);
end;
end.

 pp

finis
▶EOF◀