10 DIM S$(12),INV$(12)
20 S$="Rosetta Code"
30 FOR I=1 TO 12
40 INV$(I)=CHR$(ASC(S$(I))+128)
50 NEXT I
60 GRAPHICS 0
70 FOR I=1 TO 10
80 PRINT S$,INV$
90 NEXT I