image of READY prompt

Wang2200.org

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"