5 REM *** WRITTEN BY CHRIS REID, LEXINGTON HS, '73 6 REM *** CONVERTED TO BASIC-PLUS BY DAVE AHL, DIGITAL 11/45 GROUP 7 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 10 DIM S(5),A(5),L(5),D(5),P(5) 15 PRINT \PRINT \PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE" 16 PRINT "YOU CLUES TO HELP YOU. GOOD LUCK !!"\PRINT \PRINT 20 RANDOMIZE 30 PRINT \PRINT \PRINT "STARTING A NEW GAME...."\RESTORE 40 READ N\C=INT(N*RND(0)+1) 60 FOR I=1 TO C\READ S$\NEXT I 90 G=0 100 S(0)=LEN(S$)\S(1)=ASC(SEG$(S$,1,1)) 101 S(2)=ASC(SEG$(S$,2,2))\S(3)=ASC(SEG$(S$,3,3)) 102 S(4)=ASC(SEG$(S$,4,4))\S(5)=ASC(SEG$(S$,5,5)) 110 FOR I=1 TO 5\A(I)=45\NEXT I 120 FOR J=1 TO 5\P(J)=0\NEXT J 150 PRINT "GUESS A 5-LETTER WORD";\INPUT L$ 170 G=G+1 174 IF L$=S$ THEN 500 180 L(0)=LEN(L$)\L(1)=ASC(SEG$(L$,1,1)) 181 L(2)=ASC(SEG$(L$,2,2))\L(3)=ASC(SEG$(L$,3,3)) 182 L(4)=ASC(SEG$(L$,4,4))\L(5)=ASC(SEG$(L$,5,5)) 190 IF L(1)=63 THEN 300 200 IF L(0)<>5 THEN 400 205 M=0\Q=1 210 FOR I=1 TO 5 220 FOR J=1 TO 5 230 IF S(I)<>L(J) THEN 260 231 P(Q)=L(J)\Q=Q+1 233 IF I<>J THEN 250 240 A(J)=L(J) 250 M=M+1 260 NEXT J 265 NEXT I 270 A(0)=5\P(0)=M 275 A$=CHR$(A(1))&CHR$(A(2))&CHR$(A(3))&CHR$(A(4))&CHR$(A(5)) 276 P$=CHR$(P(1))&CHR$(P(2))&CHR$(P(3))&CHR$(P(4))&CHR$(P(5)) 280 PRINT "THERE WERE";M;"MATCHES AND THE COMMON LETTERS WERE....";P$ 285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW.............";A$ 286 IF A$=S$ THEN 500 287 IF M>1 THEN 290 288 PRINT \PRINT "IF YOU GIVE UP, TYPE ? FOR YOUR NEXT GUESS" 289 PRINT 290 PRINT \GOTO 150 300 S$=CHR$(S(1))&CHR$(S(2))&CHR$(S(3))&CHR$(S(4))&CHR$(S(5)) 310 PRINT "THE SECRET WORD IS ";S$\PRINT \GOTO 30 400 PRINT \PRINT "PLEASE GUESS A 5 LETTER WORD. AGAIN...."\G=G-1\GOTO 150 500 PRINT "YOU HAVE GUESSED THE WORD!! IT TOOK";G;"GUESSES."\PRINT 510 PRINT "WANT TO PLAY AGAIN (Y OR N)";\INPUT Q$\IF Q$="Y" THEN 30 520 PRINT "OKAY. HOPE YOU HAD FUN !!"\GOTO 999 530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST" 540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY" 999 END