Listing of file='M2' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 313, program filename = 'M2' 0020 X=VAL(L$(1))*256+VAL(STR(L$(1),2)) : DIM Y$(1) 0030 Y$(1)=C$(1,1) : MAT COPY C$()<X,N1>TO Y$()<1,N1> : XOR (Y$(1),C$(1,1)) : Y=POS(Y$(1)>00) : STR(H7$,2,2)=L$(1) : IF Y=0THEN 40 : IF Y>N1THEN 40 : STR(H7$,1,1)=STR(Y$(1),Y) : Y$(1)=HEX(00) : BIN(STR(Y$(1),2))=Y-1 : ADDC(STR(H7$,2,2),STR(Y$(1),1,2)) 0035 COM CLEAR C$() : LOAD DC T"M3" 0040 N=N+1 : IF N<500THEN 30 : COM CLEAR C$() : LOAD DC T"M4"