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 - download

⟦73cefcedb⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »SIMP.SCL«

Derivation

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─ ⟦this⟧ »SIMP.SCL«

TextFile

simplificer(Input,Resultat) hvis simpl(Input,0,Resultat).
vælg_een simpl
simpl(X+A,M,Y) hvor heltal(A) 
 hvis M1=værdi_af(M+A) og simpl(X,M1,Y).
simpl(X+A,M,Y+A) hvor konstant(A) hvis simpl(X,M,Y).
simpl(R,M,M1) hvor heltal(R) hvis
M1= værdi_af(R+M).
simpl(R,0,R).
simpl(R,N,N+R).
slut.

«eof»