DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦ff72992f0⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »MGF.BAK«

Derivation

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »MGF.BAK« 

TextFile

          rest1:=pix(.soejle+mi.);
          rest2:=temp(.gemindex+mi.);
          for mj:=1 to 7 do
          begin
             farve1(.mj.):=round(4*frac(rest1/4));
             rest1:=rest1 div 4;
          end;
          for mj:=1 to 7 do
          begin
             farve2(.mj.):=round(4*frac(rest2/4));
             rest2:=rest2 div 4;
          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;
          pix(.soejle+mi.):=rest2;
«eof»