image of READY prompt

Wang2200.org

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"