@
10 INPUT 'FILE';F$
20 OPEN 'MT0:' AS FILE 1
30 OPEN F$ AS FILE 2
31 RESTORE
35 FOR N=1 TO 256
40 READ C
50 T$=T$+CHR$(C)
60 NEXT N
70 FIELD #1,132 AS B$
80 GET #1
90 C$=XLATE(B$,T$)
95 IF MID(C$,1,1)=CHR$(27) THEN GOSUB 120
100 PRINT #2,C$
110 GOTO 70
120 GET #1
125 PRINT XLATE(B$,T$)
130 GET #1
135 PRINT XLATE(B$,T$)
140 F$=MID(XLATE(B$,T$),1,10)
150 PRINT F$
160 INPUT 'NEW FILE';F$
170 GOTO 30
200 DATA  0 , 1 , 2 , 3 , 4 , 9 , 6 , 7 , 8 , 5 , 21 , 11 , 12 , 13 
210 DATA  14 , 15 , 16 , 17 , 18 , 19 , 20 , 10 , 22 , 23 , 24 , 25 
220 DATA  26 , 27 , 28 , 29 , 30 , 31 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
230 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
240 DATA  0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 32 , 0 , 0 , 0 , 0 , 0 
250 DATA  0 , 0 , 0 , 0 , 96 , 46 , 60, 40 , 43 , 124 , 38 , 0 , 0 
260 DATA  0 , 0 , 0 , 0 , 0 , 0 , 0 , 33 , 36 , 42 , 41 , 59 , 126 
270 DATA  45 , 47 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 94 , 44 , 37 , 9
280 DATA  62 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 58 , 35 
290 DATA  64 , 39 , 61 , 34 , 0 , 97 , 98 , 99 , 100 , 101 , 102 
300 DATA  103 , 104 , 105 , 0, 0 , 0 , 0 , 0 , 0 , 0 , 106 , 107 
310 DATA  108 , 109 , 110 , 111 , 112 , 113 , 114 , 0 , 0 , 0 , 0 
320 DATA  0 , 0 , 0 , 0 , 115 , 116 , 117 , 118 , 119 , 120 , 121"
330 DATA  122 , 0 , 00, 0 , 0 , 0 , 0 , 0 , 92 , 123 , 125 , 0 , 0 
340 DATA  0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 65 , 66 , 67 
350 DATA  68 , 69 , 70 , 71 , 72 , 73 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
360 DATA  74 , 75 , 76 , 77 , 78 , 79 , 80 , 81 , 82 , 0 , 0 , 0 , 0 
370 DATA  0 , 0 , 0 , 0 , 83 , 84 , 85 , 86 , 87 , 88 , 89 , 90 , 0 
380 DATA  0 , 0 , 0 , 0 , 0 , 48 , 49 , 50 , 51 , 52 , 53 , 54 , 55 
390 DATA  56 , 57 , 0 , 0 , 0 , 0 , 0 , 127 
8