|
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: 1536 (0x600)
Types: TextFile
Names: »trtxtpr4tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »trtxtpr4tx «
mode list.yes
clear user,
textproclib comparetext,
putnumber putfixed putchar puttext,
getnumber getfixed getchar gettext putgeterror
(putnumber=slang pnumber4tx
putnumber putfixed putchar puttext,
getnumber getfixed getchar gettext putgeterror)
if ok.no
(message putnumber ok.no
end)
comparetext=algol spill.yes compare4tx
if ok.no
(message comparetext ok.no
end)
if warning.yes
(message comparetext warning.yes
end)
textproclib=algol
external
procedure textproclib;
write (out,
<:<10>comparetext:>,
<:<10>putnumber :>,
<:<10>putfixed :>,
<:<10>putchar :>,
<:<10>puttext :>,
<:<10>getnumber :>,
<:<10>getfixed :>,
<:<10>getchar :>,
<:<10>gettext :>,
<:<10>putgeterror:>);
end;
if warning.yes
(message textproclib warning.yes
end)
if ok.no
(message textproclib ok.no
end)
scope user,
textproclib comparetext,
putnumber putfixed putchar puttext,
getnumber getfixed getchar gettext putgeterror
if ok.no
finis
textproclib=compresslib comparetext putnumber
if ok.no
finis
lookup,
textproclib comparetext,
putnumber putfixed putchar puttext,
getnumber getfixed getchar gettext putgeterror
end
▶EOF◀