Return to starbrite.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/starbrite.icn, revision 1.1

1.1     ! root        1: #  Version for the Wyse75.
        !             2: procedure main(x)
        !             3:    i := x[1] | 1000                    # "length of pattern"
        !             4:    j := x[2] | 2000                    # steady state time
        !             5:    r := 0                              # with credits to sbw
        !             6:    ran1 := create 2(&random :=: r, |?(24 | 80), &random <-> r)
        !             7:    ran2 := ^ran1
        !             8:    clear()
        !             9:    every 1 to i do                     # start up the universe
        !            10:       place(ran1,"*")
        !            11:    every 1 to j do {                   # steady state condition
        !            12:       place(ran2," ")                  # clean up the beginning
        !            13:       place(ran1,"*")                  # create more
        !            14:       }
        !            15:    every 1 to i do                     # and the universe dies
        !            16:       place(ran2," ")                  # clean up the end
        !            17:    clear()
        !            18: end
        !            19: 
        !            20: procedure clear()
        !            21:    write(image("\^[[2J\^[[1;1;H"))     # remove image and change write
        !            22:                                        # to writes for the real thing.
        !            23: end
        !            24: 
        !            25: procedure place(e,s)
        !            26:    write(image("\^[["),@e,";",@e,"H",s) # remove image and change write to
        !            27:                                        # writes for the real thing.
        !            28: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.