20秒は遅すぎるような??? ↓これで 8.5 秒です。 option defint var t0 = millisec, g[0] gsave 4,g,1 var i, n = len(g), s$ for i = 0 to n - 1: inc s$,chr$(g[i]): next for i = 0 to n - 1: g[n - 1 - i] = asc(s$[i]): next gload g,1,1 ? (millisec - t0) / 1e3