Wang 2200 Virtual Media

Listing of file='EXPAN-03' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 551, program filename = 'EXPAN-03'
0010 DIM C$(120,8),L$(1)2
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$,2))
   : MAT COPY C$()TO C$()<N1+1,I*4096-1024-N1>
0030 N=N+1
   : FOR I=1TO 5
   : MAT SEARCHC$(),<>STR(C$(1,1),1,N1)TO L$()STEP N1
   : IF L$(1)>HEX(0000)THEN 35
   : NEXT I
   : PRINT N;HEX(0D)
   : IF N<11THEN 20
   : H7$="OK"
   : GOTO 40
0035 H7$="NG"
0040 LOAD DC T"COM"