mirror of
https://github.com/alecthomas/chroma.git
synced 2025-02-15 13:33:12 +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
|
||
|
|
|