DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

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

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦d1ee16925⟧ TextFile

    Length: 444 (0x1bc)
    Types: TextFile
    Names: »KRYSTAL1.MOD«

Derivation

└─⟦37cf4f704⟧ Bits:30003051 Dymos II - Modeller
    └─⟦this⟧ »MODEL3\KRYSTAL1.MOD« 

TextFile

// Model : Krystal1

If n=1 then
  dx:= random - 1/2
  dy:= random - 1/2
  x := x+dx
  y := y+dy
  yg:= 200     // flyt 2.graf v▶91◀k
  If abs(x)>n0 then x:=st▶9b◀d(x)
  If abs(y)>n0 then y:=st▶9b◀d(y)
  n := lim(round(x),round(y))
else
  yg:= y       // slet med 2.graf
  If n=3 then stop
  n := 1
endif

// 2.graffarve skal v▶91◀re sort og
// graferne skal tegnes med prikker.
// Benyt funktionstasten F5.