1[
2 {"type":"CommentSingle","value":"* Comment"},
3 {"type":"Text","value":"\n"},
4 {"type":"Keyword","value":"DEFINE"},
5 {"type":"Text","value":" "},
6 {"type":"Keyword","value":"DATA"},
7 {"type":"Text","value":" "},
8 {"type":"CommentSingle","value":"/* Inline comment"},
9 {"type":"Text","value":"\n"},
10 {"type":"Keyword","value":"LOCAL"},
11 {"type":"Text","value":"\n"},
12 {"type":"LiteralNumberInteger","value":"1"},
13 {"type":"Text","value":" "},
14 {"type":"NameVariable","value":"#VAR-NAME-1"},
15 {"type":"Text","value":" "},
16 {"type":"Other","value":"(A10)"},
17 {"type":"Text","value":" "},
18 {"type":"Keyword","value":"INIT"},
19 {"type":"Operator","value":"<"},
20 {"type":"LiteralStringSingle","value":"'Hello'"},
21 {"type":"Operator","value":">"},
22 {"type":"Text","value":"\n"},
23 {"type":"LiteralNumberInteger","value":"1"},
24 {"type":"Text","value":" "},
25 {"type":"NameVariable","value":"#I"},
26 {"type":"Text","value":" "},
27 {"type":"Other","value":"(I4)"},
28 {"type":"Text","value":"\n"},
29 {"type":"Keyword","value":"END-DEFINE"},
30 {"type":"Text","value":"\n\n"},
31 {"type":"Keyword","value":"IF"},
32 {"type":"Text","value":" "},
33 {"type":"NameVariable","value":"#VAR-NAME-1"},
34 {"type":"Text","value":" "},
35 {"type":"Operator","value":"="},
36 {"type":"Text","value":" "},
37 {"type":"LiteralStringSingle","value":"'Hello'"},
38 {"type":"Text","value":"\n"},
39 {"type":"Keyword","value":"IGNORE"},
40 {"type":"Text","value":"\n"},
41 {"type":"Keyword","value":"END-IF"},
42 {"type":"Text","value":"\n\n"},
43 {"type":"Keyword","value":"PERFORM"},
44 {"type":"Text","value":" "},
45 {"type":"NameFunction","value":"MY-SUBROUTINE"},
46 {"type":"Text","value":"\n\n"},
47 {"type":"Keyword","value":"WRITE"},
48 {"type":"Text","value":" "},
49 {"type":"NameVariable","value":"#VAR-NAME-1"},
50 {"type":"Text","value":"\n\n"},
51
52 {"type":"Keyword","value":"DEFINE"},
53 {"type":"Text","value":" "},
54 {"type":"Keyword","value":"SUBROUTINE"},
55 {"type":"Text","value":" "},
56 {"type":"NameFunction","value":"MY-SUBROUTINE"},
57 {"type":"Text","value":"\n"},
58
59 {"type":"Keyword","value":"FOR"},
60 {"type":"Text","value":" "},
61 {"type":"NameVariable","value":"#I"},
62 {"type":"Text","value":" "},
63 {"type":"Operator","value":"="},
64 {"type":"Text","value":" "},
65 {"type":"LiteralNumberInteger","value":"1"},
66 {"type":"Text","value":" "},
67 {"type":"Keyword","value":"TO"},
68 {"type":"Text","value":" "},
69 {"type":"LiteralNumberInteger","value":"10"},
70 {"type":"Text","value":"\n"},
71
72 {"type":"Keyword","value":"ESCAPE"},
73 {"type":"Text","value":" "},
74 {"type":"Keyword","value":"MODULE"},
75 {"type":"Text","value":"\n"},
76
77 {"type":"Keyword","value":"END-FOR"},
78 {"type":"Text","value":"\n"},
79
80 {"type":"Keyword","value":"END-SUBROUTINE"},
81
82 {"type":"Text","value":"\n\n"},
83 {"type":"Keyword","value":"END"},
84 {"type":"Text","value":"\n\n"}
85]
View as plain text