image of READY prompt

Wang2200.org

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"