ZX Computings - OpenLibra

ENTER YOUR GUESS NO- 9
10 REM 5PECTRRL HRNGMRN
20 REM (C) K MAHOGANY 19B2
30 GOSUB 100©
60 LET N=LEN R«
"70 DIM B(N)
"75 DIM D(N)
30 FOR G = 1 TO N
90 LET B(6) =CODE A$(G.l
155© LET DIG) =EHG)
110 NEXT G
120 FOR J a l TO N +N>3
14-0 GOSUB 4.10
150 SCROLL
ISO SCROLL
170 SCROLL
lo0 SCROLL
190 PRINT "ENTER YOUR GUESS .NO,
"; u
200 INPUT C$
210 LET F=CODE C$
220 FOR G=1 TO N
23d XF D CG) -F THEN LET D /G.I =0
24-0 NEXT G
260 NEXT J
255 GOSUB 4-10
270 SCROLL
275 PRINT "SORRY, TIME IS UP"
. 3 0 GOTO 330
300 SCROLL
310 PRINT TRB 8;"UELL DONE"
315 SCROLL
320 PRINT "YOU GOT THE WORD T.N
; J -1 ;" GUESSES"
325 SCROLL
330 PRINT "THE WORD WAS
33S SCROLL
337 SCROLL
340 PRINT "PRESS ANY KEY
NEW GAME"
34.5 PAUSE 4E4
350 FOR G = 1 TO 24
350 SCROLL
3 70 NEXT G
330 RUN
410 LET H=0
412 SCROLL
FOR A
415 FOR E=2 TO N
420 IF B(E)=D(EJ THEN PRINT "-'
430 IF Bl'El OD(E>
R $ B < E ) ;
435 IF B (E ) < > D ( E .1
I
THEN PRINT CH
THEN LET H=.H +
4-40 NEXT E
450 IF H=N
455 SCROLL
THEN GOTO 300
460 PRINT "YOU HRUE GUESSED
*' LETTER";
470
4S0
490
1000
0
1010
IF H < > 1 THEN PRIMT
SCROLL
RETURN
S"
L ET K = INT f RND >25 J * J & +J
GOSUB K
1020 RETURN
1510 LET A $
1515 RETURN
1520 LET R S =
1525 RETURN
1530 LET A $
1535 RETURN
1540 LET AF
RETURN
A §50 LET FI$ —
1555 RETURN
1560 LET AS —
1565 RETURN
1570 LET A$
1575 RETURN
1530 LET AS —
15 5.5 RETURN
I B 5