Listing of file='M0' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 750, program filename = 'M0' 0010 COM C$(120,8),L$(1)2,X$(1)2,N1 0020 N1=INT(RND(1)*16)+1 : FOR I=1TO N1 : BIN(STR(C$(1,1),I))=INT(RND(1)*256) : NEXT I : I=VAL(STR(H7$,6)) : MAT COPY C$()TO C$()<N1+1,I*4096-1024-N1> 0030 N=N+1 : PRINT "LOOP ";N;HEX(0C) : FOR I=1TO 5 : MAT SEARCHC$(),<>STR(C$(1,1),1,N1)TO L$()STEP N1 : IF L$(1)>HEX(0000)THEN 50 : NEXT I : GOTO 20 0050 PRINT "ER" : LOAD DC T"M1"