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

⟦8b4f006fb⟧ TextFile

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

Derivation

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

TextFile

; Kurt Fleckner 6. juli 1985
;
; Reglen genererer pseudotilfældige tal
; Det forudsættes, at der er en generator regel
generator(7).
tilf_tal(Tilf) hvis 
     glem(generator(X)),
     Tilf = værdi_af(((42*X) mod 101)-1),
     Ny_X = værdi_af((42*X) mod 101) og 
     husk(generator(Ny_X)).
«eof»