Listing of file='M1.5' on disk='vmedia/tbo_81.wvd.zip'
# Sector 570, program filename = 'M1.5' 0010 DIM Y$(1) : INIT(00)STR(D$(1),1,5) : BIN(STR(D$(1),5))=256-2*N1 : Y$(1)=C$(1,1) : I=INT((32*VAL(STR(D$(1),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(D$(1),4,1)=HEX(FF) 0030 LOAD DC T"M2"