|
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: 768 (0x300) Types: TextFile Names: »MGF.BAK«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline) └─⟦this⟧ »MGF.BAK«
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»