========================================================================= i everybody, Here is my first contribution to the list. I wrote a game which is called LE PENDU in french. When running the program, a person is asked to enter a name which must be kept secret. The second person will next have to discover th e name, by trying letters till he has discovered the whole name. In case he makes more than 5 mistakes, the game is over. Here is the program: << CLLCD "Enter the name < 24 =" /* asks the first player to enter the secret name. 2 DISP HALT 'N' STO >> /* stores the name in N 'P1' STO << 0 'E' STO 0 'F' STO CLLCD /* initialization "*" 2 N SIZE START "*" + NEXT /* creates a chain with as many "*" as the number of letters of the word. DUP 'B' STO /* This chain is stored in B and dis- played on the screen 2 DISP P3 >> 'P2' STO << 400 .05 BEEP /* a small noise ... DO UNTIL KEY END /* waits for a key to be pressed. 'K' STO 1 'E' STO /* stores the key in K; E=1 1 N SIZE FOR X X 'D' STO /* starts a loop to compare the key pressed with each letter of the secret word. IF N D D SUB K SAME THEN P4 END /* if the key pressed exists in the word:P4 NEXT P5 >> /* else, continue the loop... 'P3' STO << 0 'E' STO /* E=0 B 1 D 1 - SUB /* takes the left side of the chain with "*". K + /* adds the key pressed. B D 1 + N SIZE SUB + /* adds the right side of the chain with "*" DUP 'B' STO 2 DISP >> /* stores the new chain in B and display it 'P4' STO << IF B N SAME THEN CLLCD /* if the whole name has been discovered... 50 .5 BEEP "You won..." /* then beep and write... 2 DISP END /* display it and stops. P6 >> /* else goto P6 'P5' STO << IF E 0 SAME THEN P3 /* if a wright key was pressed, continue. ELSE P7 END >> /* else goto P7. 'P6' STO << 1 'F' STO+ 900 .01 BEEP /* F=1; beep IF F 5 < THEN /* if you've done less than 5 mistakes... "Mistakes=" F ->STR + /* then print the number of mistakes... 4 DISP P3 /* and continue. ELSE CLLCD "You lost..." 1 DISP /* else you have lost... "The wright word was" 2 DISP /* N 3 DISP END >> /* the end. 'P7' STO To start the program, press P1. Enter your secret name and press SHIFT CONT. Then the second player just type key by key till he discovers the whole word. If you find any mistakes or any improvements, please tell us. Nicolas GODARD, France. =========================================================================