1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#SRC: JCON
procedure main()
write(right("abc"))
write(right("def", ))
write(right("ghi", &null))
write(right("jkl", 2))
write(right("mno", 3))
write(right(237, 4))
write(right("stu", 5))
write(right("vwx", 6))
write(right("abc", 3, ))
write(right("def", , "."))
write(right("ghi", &null, "."))
write(right("jkl", 2, "."))
write(right("mno", 3, "."))
write(right(237, 4, "."))
write(right("stu", 5, "."))
write(right("vwx", 6, "."))
write(right("abc", 3, ))
write(right("def", , "<>"))
write(right("ghi", &null, "<>"))
write(right("jkl", 2, "<>"))
write(right("mno", 3, "<>"))
write(right(237, 4, "<>"))
write(right("stu", 5, "<>"))
write(right("vwx", 6, "<>"))
end
|
