Directory of image this file is from
This file as a plain text file
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