image of READY prompt

Wang2200.org

Listing of file='M1' on disk='vmedia/701-2046C.wvd.zip'

# Sector 778, program filename = 'M1'
0020 N2=VAL(STR(D$(1),4))*256+VAL(STR(D$(1),5))
0025 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>
0030 N=N+1
   : PRINT N
   : PRINT HEX(0C);
   : IF N=N2THEN 60
   : FOR I=1TO 2
   : MAT SEARCHC$(),<>STR(C$(1,1),1,N1)TO L$()STEP N1
   : IF L$(1)>HEX(0000)THEN 50
   : NEXT I
   : GOTO 25
0050 LOAD DC T#6,"M1.5"
0060 LOAD DC T#6,"M6"