Listing of file='M1' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 600, program filename = 'M1' 0010 DIM Y$(1) : INIT(00)STR(H7$,1,5) : BIN(STR(H7$,5))=256-2*N1 : Y$(1)=C$(1,1) : I=INT((32*VAL(STR(H7$,6))-8)*128/N1)*N1-N1+1 : MAT COPY C$()<I,N1>TO Y$()<1,N1> : IF Y$(1)=C$(1,1)THEN 30 : STR(H7$,4,1)=HEX(FF) 0030 LOAD DC T"M2"