21 lines
496 B
Plaintext
21 lines
496 B
Plaintext
include c:\cxpl\stdlib;
|
|
char Dict(10,10);
|
|
int Entries;
|
|
|
|
proc AddEntry(Letter, Greek); \Insert entry into associative array
|
|
char Letter, Greek;
|
|
[Dict(Entries,0):= Letter;
|
|
StrCopy(Greek, @Dict(Entries,1));
|
|
Entries:= Entries+1; \(limit checks ignored for simplicity)
|
|
];
|
|
|
|
int I;
|
|
[Entries:= 0;
|
|
AddEntry(^A, "alpha");
|
|
AddEntry(^D, "delta");
|
|
AddEntry(^B, "beta");
|
|
AddEntry(^C, "gamma");
|
|
for I:= 0 to Entries-1 do
|
|
[ChOut(0, Dict(I,0)); ChOut(0, ^ ); Text(0, @Dict(I,1)); CrLf(0)];
|
|
]
|