' cod e` la codifica "segreta" dei numeri del codice ASCII
' car$ e` un carattere battuto e n.asc e` il suo numero in codice ASCII
' car.new$ e` la sua codifica segreta e n.asc.new e` il suo numero in codice ASCII
' -> Matematica e Calcolatore, sch.8, es.7
PRINT
DIM cod(255)
FOR i = 0 TO 255
    cod(i) = i + 3: IF cod(i) > 255 THEN cod(i) = cod(i) - 255
NEXT
10
INPUT "1: codifica, 2: decodifica"; cosa
SELECT CASE cosa
CASE 1
 LINE INPUT "messaggio: ", a$
 PRINT "codifica:  ";
 FOR i = 1 TO LEN(a$)
    car$ = MID$(a$, i, 1): n.asc = ASC(car$): n.asc.new = cod(n.asc)
    car.new$ = CHR$(n.asc.new)
    PRINT car.new$;
 NEXT
 PRINT
CASE 2
 LINE INPUT "codifica: ", a$
 PRINT "messaggio:  ";
 FOR i = 1 TO LEN(a$)
    car$ = MID$(a$, i, 1): n.asc = ASC(car$)
    FOR n.asc.new = 0 TO 255: IF n.asc = cod(n.asc.new) THEN EXIT FOR
    NEXT
    car.new$ = CHR$(n.asc.new)
    PRINT car.new$;
 NEXT
 PRINT
CASE ELSE
END SELECT
GOTO 10