A Clarion Hello World example

code The Paste Bin
1

Copied from http://www.softvelocity.com/clarion/Rich_Language.htm

  PROGRAM
  MAP
  END 
  MyWindow  WINDOW('My Caption'),AT(,,185,92),FONT('Arial',9,,FONT:regular),GRAY
      BUTTON('OK'),AT(144,10,35,14),USE(?OkButton),DEFAULT
      STRING('Hello World!'),AT(17,39),USE(?String1)
    END 
  CODE 
  OPEN(MyWindow)
  ACCEPT
    CASE FIELD()
    OF ?OkButton
      CLOSE(MyWindow)
    END
  END
2

I’d use

CASE ACCEPTED()
     OF ?OkButton

Or, in that particular case, you could use ,STD(STD:Close) as an attribute in the window structure, and have no code.

3

Perhaps more minimally…

  PROGRAM
  MAP
  END 
  CODE 
  Stop('Hello World')
4

A back in the day reminder of when exe size was a real consideration in “product features.”