|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1152 (0x480) Types: TextFile Names: »SOEG.LOG«
└─⟦70836188a⟧ Bits:30005899 Mikro-Logo ver. 01/01/84HP (RC855) └─⟦this⟧ »SOEG.LOG«
R▶0b◀til søg x y &▶0b◀gentag 1000 &▶0e◀gafstx :=afstx &▶0e◀gafsty :=afsty &▶06◀frem 3 :=afsty & hvor a b cfsty &▶0f◀afstx :=(x-a)^2 &▶0f◀afsty :=(y-b)^2 &$hvis (afstx>=gafstx)+(afsty>=gafsty) & venstre 30x>=gafstx)+(afsty>=gafsty) &sluthvis30x>=gafstx)+(afsty>=gafsty) &▶06◀hertilis30x>=gafstx)+(afsty>=gafsty) &▶07◀sluttils30x>=gafstx)+(afsty>=gafsty) &) &▶07◀sluttils30x>=gafstx)+(afsty>=gafsty