C M CONTAINS THE 20 WORDS FROM THE DISK C NL CONTAINS THE # OF LETTERS IN EACH WORD DEFINE DISK DIMENSION N(10), M(200), NL(20) 1 FORMAT (/,/," GUESS THE WORDS, 20 WORDS. WHICH ONE DO YOU WANT TO TRY? ") 2 FORMAT (I) 6 FORMAT (A) 7 FORMAT (/) 8 FORMAT ("GUESS A LETTER ") 20 FORMAT (" ") 35 FORMAT ("NEW LIST OF 20 WORDS") TYPE 99 TYPE 100 TYPE 110 99 FORMAT (/,"*** WORD GAME. A CTRL/P WILL GIVE THE ANSWER") 100 FORMAT (/," AND A NEW WORD IN A PRESENT GROUP. TYPE A") 110 FORMAT (/," NUMBER > 20 WILL GIVE A NEW LIST OF 20 WORDS.") 40 DO 10 K=1,20 JJ=K*10 JJI=JJ-9 DO 19 J=JJI,JJ 16 READ 3, 6, M(J) IF (M(J)-141) 18,16,18 18 IF (M(J)-138) 17,16,17 17 IF (M(J)-160) 19,23,19 19 CONTINUE 23 NL(K)=9+J-JJ 10 CONTINUE DO 30 LOOP=1,20 13 TYPE 1 26 ACCEPT 2, NW IF (NW) 13,13,25 25 IF (NW-20) 24,24,45 24 TYPE 7 JS=NW*10-9 JF=JS+NL(NW)-1 KF=NL(NW) DO 3 J=1,KF N(J)=173 3 CONTINUE 4 DO 5 J=1,KF TYPE 6, N(J) 5 CONTINUE TYPE 7 TYPE 8 ACCEPT 6, L IF (L-144) 60,49,60 60 TYPE 20 K=1 C REPLACE BLANKS IF REQ. DO 9 J=JS,JF IF (M(J)-L) 14,11,14 11 N(K)=L 14 K=K+1 9 CONTINUE C CHECK FOR (-) DO 12 J=1,KF IF (N(J)-173) 12,4,12 12 CONTINUE C TYPE PRESENT FORM OF WORD DO 15 J=1,KF TYPE 6, N(J) 15 CONTINUE GOTO 30 49 K=1 DO 50 J=JS,JF N(K)=M(J) K=K+1 50 CONTINUE TYPE 20 DO 51 J=1, KF TYPE 6, N(J) 51 CONTINUE 30 CONTINUE 45 TYPE 7 TYPE 7 TYPE 35 TYPE 7 GOTO 40 END