1: DECLARE FUNCTION DES$ (ln$) 2: COLOR 15, 1: CLS 3: INPUT "Filename"; f$ 4: OPEN f$ FOR INPUT AS #1 5: DO 6: LINE INPUT #1, d$ 7: d$ = DES$(d$): PRINT d$ 8: a = a + 1 9: IF a = 23 THEN SLEEP: a = 0 10: LOOP UNTIL EOF(1) 11: END 12: 13: FUNCTION DES$ (ln$) 14: q = ASC(RIGHT$(ln$, 1)) 15: ln$ = LEFT$(ln$, LEN(ln$) - 1) 16: FOR m = 1 TO LEN(ln$) 17: tt$ = tt$ + CHR$(ASC(MID$(ln$, m, 1)) - q) 18: NEXT m 19: DES$ = tt$ 20: END FUNCTION 21: |