178 Endings
370 Q=INT(RND*(N-1))+1
380 W=0
390 IF L$<121$ THEN Q=INT(RND*Q) ELSE Q=IN T(RND/Q)
400 L$=LEFT$(0$(0),1):IF L$=B$ AND X(0)< >1 THEN P$=MID$(6$(0),C(0),1):GOTO 640 410 W=W+1:IF W>100 THEN 490
420 GOTO 390
430 REM FIRST GO
440 IF RND>0.85 THEN 490
450 Q=INT(RND*(N-1))+1
460 IF X(Q)=1 THEN 450
470 P$=LEFT$(0$(0),C(0))
GOTO 640
490 REM COMPUTER MAKES ONE UP
500 B$=LEFT$(Q$,1)
510 IF B$="" THEN B$=CHR$(INT(RND*26)+65
520 Q=INT (RND*N)+1
530 L$=LEFT$(6$(0),1)
540 IF L$=B$ THEN P$=MID$(6$(0),INT(RND* 3)+1,1):GOTO 560
550 GOTO 520
560 Q=INT (RND*N)+1:R=3
570 P$=P$+MID$(6$(0),R,(RND*3)+1)
590 0=INT(RND*N)+1
590 P$=P$+MIDS(G$(0),11-(INT (RND*3)+1), 1)
600 IF RIGHT$(P$,1)=" "THEN P$=LEFT$(P$, LEN(P$)-1):GOTO 600
610 P$=RIGHT$(0$,1)+P$
620 Q=LEN(P$)
630 MID$(B$0,1)=RIGHT$(Q$0):L5=1 640 REM COMPUTER PRINTOUT NAME
650 PEN 2:LOCATE PS,VPS:PRINT P$;" ";:PE N 1: PS =POS(#0):VPS=VPOS(#0)
660 LOCATE 1,20:PRINT CHR$(20);:LOCATE 1 ,20:PRINT"PRESS [ENTER] OR 1*' KEY"
670 A$=INKEY$:IF A$<>"" THEN 670
680 A$=INKEY$:IF A$="" THEN 680
690 IF ASC(A$)=13 THEN 830
700 IF A$="*" OR A$=":" THEN 720
710 GOTO 670
720 REM COMPUTER CHALLENGED