MrT said:Let's just say that it almost certainly won't look like this.
Code:[ID] MAIN LCLC &P(5) LCLA &I,&N,&X &I SETA 0 &N SETA 1 &X SETA 1 .LOOP1 ANOP &I SETA &I+1 AIF (&I GT K'&SYSPARM.LOOP1X AIF ('&SYSPARM'(&I,1) NE ',').LOOP1 &P(&X) SETC '&SYSPARM'(&N,&I-&N) &N SETA &I+1 &X SETA &X+1 AGO .LOOP1 .LOOP1X ANOP &P(&X) SETC '&SYSPARM'(&N,&I-&N) &I SETA 0 .LOOP2 ANOP &I SETA &I+1 AIF (&I GT &X).LOOP2X AIF ('.&P(&I)' EQ '.').LOOP2 AIF ('.&P(&I)' EQ '.OPT').OPT AIF ('.&P(&I)' EQ '.NOOPT').NOOPT AIF ('.&P(&I)' EQ '.DEBUG').DEBUG AIF ('.&P(&I)' EQ '.NODEBUG').NODEBUG AGO .LOOP2 .* .OPT ANOP &OPT SETB 1 MNOTE 0,'Text to follow' AGO .LOOP2 .* .NOOPT ANOP &OPT SETB 0 MNOTE 0,'Text to follow' AGO .LOOP2 .* .DEBUG ANOP &DBG SETB 1 MNOTE 0,'Text to follow' AGO .LOOP2 .* .NODEBUG ANOP &DBG SETB 0 MNOTE 0,'Text to follow' AGO .LOOP2 .* .LOOP2X ANOP .EXIT ANOP MEND
EEK what in the name of every language in the world and some that don't exist is THAT?!
Ayeshteni