|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »CPMCOM.PAS«
└─⟦8183be05c⟧ Bits:30005943 RC855 CP/M 2.2 Boot diskette for 8088 CPU modul
└─ ⟦this⟧ »CPMCOM.PAS«
const
nl = @10@13;
zero = @0;
var
i,
j,
no : integer;
slut : boolean;
z : file;
com : array (.1..10.) of string (.8.);
begin
no := 0;
slut := false;
for i := 1 to 10 do com(.i.) := '';
while not slut do
begin
write('>');
no := succ(no);
readln(com(.no.));
if len(com(.no.)) = 0 then
slut := true;
if no = 10 then
slut := true;
end;
assign(z,'fin.sub');
(*$i-*) rewrite(z); (*$i+*)
if iores > 0 then
write('sorry');
for no := 10 downto 1 do
begin
if len(com(.no.)) > 0 then
begin
blockwrite(z,com(.no.),1);
end;
end;
close(z);
end.«eof»