Listing of file='M2' on disk='vmedia/701-2046C.wvd.zip'
# Sector 237, 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(D$(1),2,2)=L$(1) : IF Y=0THEN 40 : IF Y>N1THEN 40 : STR(D$(1),1,1)=STR(Y$(1),Y) : Y$(1)=HEX(00) : BIN(STR(Y$(1),2))=Y-1 : ADDC(STR(D$(1),2,2),STR(Y$(1),1,2)) 0035 COM CLEAR C$() : LOAD DC T#6,"M3" 0040 N=N+1 : IF N<500THEN 30 : COM CLEAR C$() : LOAD DC T#6,"M4"