12 lines
267 B
Text
12 lines
267 B
Text
record star(name,HIP)
|
|
|
|
procedure main()
|
|
|
|
Ori := [ star("Betelgeuse",27989),
|
|
star("Rigel",24436),
|
|
star("Belatrix", 25336),
|
|
star("Alnilam",26311) ]
|
|
|
|
write("Some Orion stars by HIP#")
|
|
every write( (x := !sortf(Ori,2)).name, " HIP ",x.HIP)
|
|
end
|