-
Notifications
You must be signed in to change notification settings - Fork 0
/
BALREV.SNO
33 lines (33 loc) · 1.25 KB
/
BALREV.SNO
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
32
33
-MODULE BALREV
-LINE 11 "BALREV.lss"
-IN72
-LINE 37 "BALREV.lss"
-STITL BALREV
-EJECT
*
************************************************************************
* *
* ###### # # ###### ####### # # *
* # # # # # # # # # # *
* # # # # # # # # # # *
* ###### # # # ###### ##### # # *
* # # ####### # # # # # # *
* # # # # # # # # # # *
* ###### # # ####### # # ####### # *
* *
* BALREV BALANCED REVERSE *
* *
************************************************************************
*
* BALREV.lss
*
-LINE 14 "BALREV.lss"
-PUBLIC BALREV()
*
DEFINE('BALREV(S)') :(BALREV_END)
*
BALREV BALREV = REPLACE(REVERSE(S), ')(', '()') :(RETURN)
*
BALREV_END
*
* CE: .MSNOBOL4;