Sirius    up
 
 


 Hello World   Michael Neumann
@ Hello World in Sirius @

PROGRAM Hello_World
   OUTPUT ('Hello World')
END
Prints "Hello World" onto the screen.


 Squares   Michael Neumann
PROGRAM Squares

PROCEDURE iterate (INTEGER start, ende)
   DECLARE i AS INTEGER

   WHILE (start <= ende)
      i := start * start
      OUTPUT (i)
      start := start + 1
   NEXT
END

iterate (1, 10)

END
Outputs the squares from 1 to 10.