|
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 - metrics - download
Length: 896 (0x380)
Types: TextFile
Names: »MGF.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »MGF.PAS«
program test;
var rest1,rest2,mi,mj,x,y:integer;
farve1,farve2:array(.1..8.) of integer;
begin
y:=$ffff;
read(x);
begin
rest1:=x;
rest2:=y;
for mj:=1 to 7 do
begin
farve1(.mj.):=round(4*frac(rest1/4));
rest1:=rest1 div 4;
writeln(mj:5,farve1(.mj.):5,rest1:5);
end;
for mj:=1 to 7 do
begin
farve2(.mj.):= (rest2 shl 14) shr 14;
rest2:=rest2 shr 2;
writeln(mj:5,farve2(.mj.):5,rest2:5);
end;
if rest2=0 then rest2:=rest1;
for mj:=7 downto 1 do
begin
if farve2(.mj.)=0 then
rest2:=4*rest2+farve1(.mj.)
else
rest2:=4*rest2+farve2(.mj.);
end;
write(x:5,rest2:5);
end;
end.
«eof»