10 INPUT"PLAYERS";N
 20 GOSUB 700
 30 FOR I=1 TO N
 40 PRINT"PLAYER";I;
 50 INPUT"NAME IS";A$(I)
 60 NEXT I
 70 GOSUB 800
 80 CLEAR
 90 GOTO 10
 700 REM INIT MATRIX
 710 DIM A(21,N)
 720 FOR I=1 TO 21
 730 FOR J=1 TO N
 740 A(I,J)=ASC(".")
 750 NEXT J
 760 NEXT I
 770 T=13:IF N>4 THEN T=10:IF N=5 THEN T=12
 780 RETURN
 800 REM SET UP DISPLAY
 810 PRINT"  Player";
 820 PRINT TAB(T);" ";
 830 FOR J=1 TO N
 840 PRINT CHR$(J+48);" ";
 850 NEXT J:PRINT
 900 REM SET UP DISPLAY
 910 RESTORE
 920 FOR I=1 TO 21
 930 IF I=7 OR I=13 THEN PRINT
 940 READ A$:A$=MID$(A$,1,T):PRINT A$;
 950 PRINT TAB(T);" ";
 960 FOR J=1 TO N
 970 PRINT CHR$(A(I,J));" ";
 980 NEXT J
 990 PRINT:NEXT I:RETURN
 1000 DATA MUSTARD,PLUM,GREEN,PEACOCK,SCARLET,WHITE
 1010 DATA KNIFE,CANDLESTICK,REVOLVER,ROPE,LEAD PIPE,WRENCH
 1020 DATA HALL,LOUNGE,DINING ROOM,KITCHEN,BALL ROOM,CONSERVATORY
 1030 DATA BILLIARD ROOM,LIBRARY,STUDY