ml/i test -- s
tests s-variables,startlines,stop markers and counting of lines
mcskip mt,<>
mcins u,%.
mcgo error1 unless%s1.%s3.%s4.%s5.=0000
mcgo error2 unless%s6.%s7.%s8.%s9.=0000
mcskip /withs nl
1<>mcset s1=1
2<>mcdef sl
as 3
mcskip d,sl
mcsub(an eror message with sl in,/
 sb (sl),2)mcset s1=0
 sb 123
mcset s2=0
%s2./
%s2.mcdef threenl nl withs nl withs nl as<mcset s2=s2-3
%s2.>
threenl


%s2.mcdef slashnl/withs nl n0 as<%s2.>
slashnl x/
%s2. sb 123456
mcdef macronl opt nl n1 or n1 x withs nl or
nl withs nl withs ok or 2 n0 all n1 as<1>
mcstop nl
macronl
x


ok x 2%3.<4> sb 1234
macronl
this line contains 4 mismatches: mcgo%<
mcdef strscan/ssas rubbish
this should cause an error on the next line: mcgo l12
line ignored
this should cause 4 errors on the next line but one: mcgo l1
mcgo l2
%mcsub(strscan .....
mcskip d,nl
mcskip 2 withs 3 5 withs 6
mcdef stopmac end
as<mcnoskip%a1.mcstop space
mcgo error unless mcleng(5 6) en 3
>
mcstop 5 withs 6
stopmac 1 2 3 4 5 6 7 end sb 1 2 %3. 4 5 6 7
mcdefg 5 withs 6 as 1
0<>stopmac this should give a mismatch 5 6<>2 sb 012
