mirror of
https://github.com/alecthomas/chroma.git
synced 2025-02-13 13:28:27 +02:00
24 lines
276 B
Plaintext
24 lines
276 B
Plaintext
* Comment
|
|
DEFINE DATA /* Inline comment
|
|
LOCAL
|
|
1 #VAR-NAME-1 (A10) INIT<'Hello'>
|
|
1 #I (I4)
|
|
END-DEFINE
|
|
|
|
IF #VAR-NAME-1 = 'Hello'
|
|
IGNORE
|
|
END-IF
|
|
|
|
PERFORM MY-SUBROUTINE
|
|
|
|
WRITE #VAR-NAME-1
|
|
|
|
DEFINE SUBROUTINE MY-SUBROUTINE
|
|
FOR #I = 1 TO 10
|
|
ESCAPE MODULE
|
|
END-FOR
|
|
END-SUBROUTINE
|
|
|
|
END
|
|
|