9 lines
161 B
Text
9 lines
161 B
Text
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
|