Owner's Manual

76
90 LET D$ = ""
100 FOR I = 1 TO L: D$ = D$ + "-": NEXT I
110 PRINT "You have"; LIVE; "chance(s)"
120 PRINT D$
130 INPUT "Make a guess:"; G$
140 T$ = ""
150 GOSUB 3000
160 FOR I = 1 TO L
170 IF G$ = MID$(SECRET$, I, 1) THEN 200
180 T$ = T$ + MID$(D$, I, 1)
190 GOTO 210
200 T$ = T$ + G$
210 NEXT I
220 IF T$ = SECRET$ THEN GOTO 4000
230 IF T$ = D$ THEN 1000
240 IF LIVE = 0 THEN 2000
250 D$ = T$
260 GOTO 110
270 DATA "CATAPULT", "TOGGLE"
280 DATA "PIGEON", "BUTTON", "BATTLE"