?tacl macro
[#DEF ascii STRUCT
BEGIN
BYTE byt0  VALUE 7;  CHAR bell   REDEFINES byt0;
BYTE byt1  VALUE 27; CHAR esc    REDEFINES byt1;
BYTE byt2a VALUE 36; CHAR dollar REDEFINES byt2a;
BYTE byt2  VALUE 37; CHAR perc   REDEFINES byt2;
BYTE byt3  VALUE 38; CHAR amp    REDEFINES byt3;
BYTE byt4  VALUE 64; CHAR at     REDEFINES byt4;
BYTE byt5 (0:1) VALUE 27 73;
CHAR clr (0:1) REDEFINES byt5; == escape sequence
END;
]
varq Norm   [ascii:esc]6[ascii:at]
varq Blink  [ascii:esc]6b
varq Invert [ascii:esc]6[ascii:dollar]
varq Dim    [ascii:esc]6[ascii:perc]

==var Line25 [ascii:esc]o[ascii:esc]6[ascii:amp]
#output [blink]************[norm][invert] MENU [norm][blink]***********[norm]
#output 1 - Load Macros
#output 2 - Files
#output 3 - $data5.AUTOTABS
#output 4 - Check BLK files using BKP number
#output 5 - Locate a Spoolcom Report
[#case [#input [dim]Enter a Selection:[norm]]
|1|
    o $dev2.jimmenu.zload
    menu
|2|
    Files
    menu
|3|
    dir $data5.autotabs.*
    menu
|4|
    dir $data*.blk*[#input Enter the BLK number:]*.*
    menu
|5|
    #push mypart
    #set mypart [#input Enter a portion of the reports name: ]
    purge Zjunk1,Zjunk2
    spoolcom/out Zjunk1/\PROD.$SPLS;job
    edit Zjunk1;DQBN/[mypart]/;c5:80//a;cqf/spoolcom \prod.$spls;job /a;e
    spoolcom/out Zjunk2/\PROD.$MPLS;job
    edit Zjunk2;DQBN/[mypart]/;c5:80//a;cqf/spoolcom \prod.$mpls;job /a;e
    EDIT ZJunk1;g Zjunk2 to l;lua;e
    o zjunk1
|otherwise|
    #output -- Sniff ! Sniff ! --- Bye
]