'programma che visualizza in codice ASCII con cifre decimali un testo
PRINT
INPUT "NomeFile"; n$
OPEN n$ FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, x$
FOR i = 1 TO LEN(x$)
J = ASC(MID$(x$, i, 1))
IF J < 16 THEN PRINT "0";
PRINT HEX$(ASC(MID$(x$, i, 1))); " ";
IF POS(1) > 77 THEN PRINT
NEXT
PRINT "0D ";
IF POS(1) > 77 THEN PRINT
WEND
PRINT
CLOSE