TresCom Forums

10 PLAY "mb": INPUT P$: P$ = LCASE$(P$)
20 L = LEN(P$): X$ = ""
25 FOR N = 1 TO L: X$ = X$ + "-": NEXT
27 CLS : LOCATE 10, 20: PRINT X$: L$ = STRING$(26, " "): X = 0
30 a$ = INKEY$: a$ = LCASE$(a$)
40 IF a$ < "a" OR a$ > "z" THEN 30
45 LOCATE 20, 10: PRINT SPC(25);
50 C = ASC(a$) - 96: IF INSTR(L$, a$) THEN LOCATE 20, 10: PRINT "Esa letra ya la usaste...": GOTO 30
55 MID$(L$, C, 1) = a$: LOCATE 5, 32: PRINT L$: a = 1
60 K = INSTR(a, P$, a$): IF a = 1 AND K = 0 THEN X = X + 1: ON X GOSUB 200, 210, 220, 230, 240, 250, 260, 270, 280, 290: LOCATE 7, 64: PRINT X; "fallas": IF X = 10 THEN GOTO 100 ELSE GOTO 30
70 IF K THEN MID$(X$, K, 1) = a$: IF K < L THEN a = K + 1: GOTO 60
75 LOCATE 10, 20: PRINT X$: IF X$ = P$ THEN PLAY "o3c2g2fed>c2<g4.p8fed>c2<g4.p8fefd": LOCATE 20, 10: PRINT "­Felicidades, desgraciado! ­Adivinaste!": END
80 GOTO 30
100 PLAY "o1c4.p8c4.p16ccp16d4c+c+cc<b>c": LOCATE 20, 20: PRINT "­Est s muerto!"
110 LOCATE 21, 20: PRINT "La palabra era: "; P$: END
200 LOCATE 13, 5: PRINT "ÉÍÍ": FOR V = 14 TO 17: LOCATE V, 5: PRINT "º": NEXT: LOCATE 18, 5: PRINT "Ð": RETURN
210 LOCATE 13, 8: PRINT "Ñ": RETURN
220 LOCATE 14, 8: PRINT CHR$(2): RETURN
230 LOCATE 15, 8: PRINT "Ã…": RETURN
240 LOCATE 15, 7: PRINT "Ú": RETURN
250 LOCATE 15, 9: PRINT "¿": RETURN
260 LOCATE 16, 8: PRINT "Á": RETURN
270 LOCATE 16, 7: PRINT "Ú": LOCATE 17, 7: PRINT "Ù": RETURN
280 LOCATE 16, 9: PRINT "¿": LOCATE 17, 9: PRINT "À": RETURN
290 LOCATE 14, 8: PRINT CHR$(1): RETURN