Profan    up http://www.profan.de
  similar languages: ABC   Amos   BASIC   Euphoria   REXX  
 


 Hello World   Michael Neumann 
PRINT "Hello World"
Prints "Hello World" onto the screen.


 Squares   Michael Neumann 
' gibt die Quadrate von 1-10 aus

DECLARE I%
LET I% = 0

WHILENOT @Equ(I%, 10)
   INC I%
   PRINT @Sqr(I%); " ";
WEND
Outputs the squares from 1 to 10.