Wang 2200 Virtual Media

Listing of file='IPLD100M' on disk='vmedia/701-2049C.wvd.zip'

# Sector 48, program filename = 'IPLD100M'
0010 REM IPLD100M
0110 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(D$(1),6))
   : MAT COPY C$()TO C$()<N1+1,I*4096-1024-N1>
   : N=N+1
   : PRINT ,"LOOP ";N;HEX(0C)
   : MAT SEARCHC$(),<>STR(C$(1,1),1,N1)TO L$()STEP N1
0200 IF L$(1)>HEX(0000)THEN 250
   : IF N<10THEN 110
   : COM CLEAR
   : PRINT HEX(03);"SYNTAX TEST"
   : LOAD DC T#0,"SYNTAX"
0250 STOP "ERROR IN MEMORY"