?CHR$(15)

10 F=20:NN=200:DIMNA$(NN)

100 DIMW$(19):FORI=0TO19:READW$(I):NEXT

110 N0=1:N1=F:GOSUB1000
130 DOS"S:??1*,??3*,??5*,??7*,??9*
135 FORI=0TONN:IFI/2<>INT(I/2)THENNA$(I)=""
137 NEXT
140 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFS<>1ORX<>F/2THENSTOP

150 N0=F+1:N1=2*F:GOSUB1000
170 DOS"S:??1*,??3*,??5*,??7*,??9*
175 FORI=0TONN:IFI/2<>INT(I/2)THENNA$(I)=""
177 NEXT
180 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFS<>1ORX<>F/2THENSTOP

210 J=0
220 FORI=0TONN
230 IFLEN(NA$(I))=0GOTO240
235 DOS"R:"+RIGHT$("00"+MID$(STR$(J),2),3)+"="+NA$(I):J=J+1
327 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFSTHENSTOP
240 NEXT

250 DOS"$

260 J=0
270 FORI=0TONN
280 IFLEN(NA$(I))=0GOTO320
290 OPEN2,8,2,RIGHT$("00"+MID$(STR$(J),2),3)
300 INPUT#2,A$:IFA$<>NA$(I)THENSTOP
310 CLOSE2:J=J+1
320 NEXT

330 A$="":FORI=0TOJ-1:A$=A$+RIGHT$("00"+MID$(STR$(I),2),3)
340 IFI<>J-1THENA$=A$+","
350 NEXT
360 DOS"C:ALL="+A$
365 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFSTHENSTOP

367 DOS"S:"+A$
368 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFS<>1ANDX<>FTHENSTOP

370 J=0
375 OPEN2,8,2,"ALL"
380 FORI=0TONN
390 IFLEN(NA$(I))=0GOTO430
410 INPUT#2,A$:IFA$<>NA$(I)THENSTOP
420 J=J+1
430 NEXT
440 CLOSE2

450 DOS"S:ALL
460 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFST<>1ANDX<>1THENSTOP

470 DOS"S:*
480 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFST<>1ANDX<>0THENSTOP

999 PRINT"OK":END

1000 FORJ=N0TON1
1010 N$=RIGHT$("00"+MID$(STR$(J),2),3)+" ":E=INT(RND(1)*10)
1020 FORI=0TOE:N$=N$+W$(INT(RND(1)*20)):IFI<>ETHENN$=N$+" "
1030 NEXT:NA$(J)=N$:REM PRINTCHR$(34);N$;CHR$(34)
1040 OPEN2,8,2,N$+",P,W"
1042 OPEN15,8,15:INPUT#15,S,S$,X,Y:CLOSE15:IFS<>0THENSTOP
1045 PRINT#2,N$:CLOSE2
1050 NEXT
1060 RETURN


10000 DATA retire,scramble,excess,pension,extension,new,enlarge,finish,ribbon
10100 DATA blade,impress,countryside,exercise,test,crude,sickness,thought,bread
10200 DATA persist,merit

RUN
