Infrastructure tools to support an effective radiation oncology learning health system

Open Programming Language (OPL) is a programming language for embedded systems and mobile devices that run the operating systems EPOC and Symbian. It was released by the British company Psion in 1984.

Originally designed for use on their classic Psion PDAs such as the Series 3, 5/5mx, Series 7, and netBook–netPad, and the Psion produced MC218, OPL was provided as part of the standard application suite. It can also be installed on the Nokia 9200, 9300 and 9500 Communicator series mobile telephone and personal digital assistant (PDA) and the Sony Ericsson P800, P900, P910 series. OPL is also included in Psion Teklogix industrial handhelds such as the Workabout mx, and it also appeared in the lesser known Oregon 'Osaris' organiser, a broadly compatible EPOC32 device that uniquely used version 4 of the OS. OPL is an interpreted language similar to BASIC. A fully Visual Basic-compatible language OVAL has also been developed.

The language was originally named Organiser Programming Language, developed by Psion Ltd for the Psion Organiser. Designed by Colly Myers with the first iteration implemented by Richard Harrison and Martin Stamp. The first implementation (without graphics) was for the original Psion Organiser (now referred to as the Psion Organiser I, 1984), and it came bundled with the Science, Finance and Math data packs. It became truly accessible as built-in software in the Psion Organiser II (1986), and the language went on to be used in the Psion Series 3 and later. After Psion retired from the personal digital assistant market, a project aiming to bring OPL to Symbian came to fruition, when the fledgling Symbian Developer Program released it as open-source software. The language is now available on SourceForge in a project named opl-dev.

The language is currently unavailable for Symbian OS v8 and later. With the subsequent retirement of the Symbian OS, it seems unlikely OPL will be made available for later generations of Symbian devices. As of 2010, Nokia device developers were encouraged to use Python for S60 instead (See Python for S60).^{[citation needed]}

Here is the console version of a "Hello, World!" program:

PROC main:
  PRINT "Hello World!"
  PAUSE 40
ENDP

(Source code taken from the PCDevPrimer in the OPL Wiki.)

And here is a GUI version for Nokia's Series 80 user interface:

CONST KKeyEnter%=13

PROC hello:
  dINIT "Hello"
  dTEXT "","Hello World!"
  dBUTTONS "OK",KKeyEnter%
  DIALOG
ENDP

OPL is a structured programming language. OPL programs contain PROCedures, which are much like functions (subroutines) in other programming languages.

• The dINIT keyword in this example initializes a dialog box (intuitively enough, all dialog-box related functions begin with a letter 'd'; for clarity, this letter is in lower case, but the language is case independent). The first argument of the dialog is an optional string, which is used for the title of the dialog, displayed in the title bar.
• The dTEXT function displays text, with two compulsory arguments: a left-aligned 'prompt' string, and a main string.
• The dBUTTONS keyword allows you to put buttons on the dialog box - here there is a button with the text "OK". The second argument to each button is both the special notation of the shortcut key for that button and the dialog's return code, in this case the "Enter" key.
• Finally, the DIALOG keyword is required for the previously initialized dialog box to be shown on the screen.

An example:

 PROC test:
   dINIT "Your Challenge"
   dTEXT "","Will your answer to this question be no?"
   dBUTTONS "Yes",%y,"No",%n
   IF DIALOG=%y
      PRINT "No it wasn't!"
   ELSE
      PRINT "Yes it was!"
   ENDIF
   GET
 ENDP

In this cruel interrogative program, the Yes button is assigned the shortcut of Ctrl+y, while No has Ctrl+n, represented by %y and %n respectively. The user's input from the DIALOG is tested in the IF statement, PRINTing appropriate responses to the screen. Note that the 'GET' keyword, which gets user input without using a dialog box, is here used simply to wait for a keypress before terminating the program (otherwise it would end immediately without giving time for the user to read the text). The output from DIALOG can also be stored in a variable.

Variables specific to a procedure must be declared with the LOCAL keyword; global variables are defined with the GLOBAL keyword.

The table below uses an example variable named var.

OPL interfaced with advanced Psion Series 3 features by means of operating system CALLs, but in the later Psion Series 5mx this was changed to a so-called OPX library, stored in the system read-only memory (ROM), termed the Z drive. 'OPX' libraries were also made available for the Nokia 9210, Nokia 9300 and Nokia 9500 Communicators, adding OPXs routines for handling Short Message Service (SMS) and managing Bluetooth communication.

Other OPL features include those starting with a letter: g for graphical functions, m for menus, and d for dialogs.

• Psion Organiser
• Symbian

• The opl-dev project
• OPL wiki on Internet Archive containing documents detailing OPL keywords, OPX interfaces and much other information
• OPL Blog by Symbian, now dead, but old versions are available from the Internet Archive
• Russian site about OPL Archived 6 December 2006 at the Wayback Machine
• OPL programming tutorial