DEFINT A-Z PRINT "Cod:"; d$ = "" DO LOCATE CSRLIN, 5: PRINT STRING$(LEN(d$), "*"); "_ "; k$ = INPUT$(1) SELECT CASE k$ CASE CHR$(8): IF LEN(d$) > 1 THEN d$ = LEFT$(d$, LEN(d$) - 1) CASE CHR$(27): SYSTEM CASE CHR$(13): cd = VAL(d$): EXIT DO CASE "0" TO "9": d$ = d$ + k$ CASE ELSE: BEEP END SELECT LOOP OPEN "Sims.bas" FOR BINARY AS #1 FOR i = 1 TO LOF(1) - 1 GET #1, i, intg intg = intg XOR cd PUT #1, i, intg NEXT CLOSE #1 SYSTEM