0 DATA01BRK
1 DATA00ORA1010111022
2 DATA01???
3 DATA01???
4 DATA01???
5 DATA00ORA0010020022
6 DATA00ASL0010020022
7 DATA01???
8 DATA01PHP
9 DATA00ORA0110020022
10 DATA01ASL
11 DATA01???
12 DATA01???
13 DATA00ORA0011020023
14 DATA00ASL0011020023
15 DATA01???
16 DATA11BPL
17 DATA00ORA1010021102
18 DATA01???
19 DATA01???
20 DATA01???
21 DATA00ORA0010020112
22 DATA00ASL0010020112
23 DATA01???
24 DATA01CLC
25 DATA00ORA0011020103
26 DATA01???
27 DATA01???
28 DATA01???
29 DATA00ORA0011020113
30 DATA00ASL0011020113
31 DATA01???
32 DATA00JSR0011020023
33 DATA00AND1010111022
34 DATA01???
35 DATA01???
36 DATA00BIT0010020022
37 DATA00AND0010020022
38 DATA00ROL0010020022
39 DATA01???
40 DATA01PLP
41 DATA00AND0110020022
42 DATA01ROL
43 DATA01???
44 DATA00BIT0011020023
45 DATA00AND0011020023
46 DATA00ROL0011020023
47 DATA01???
48 DATA11BMI
49 DATA00AND1010021102
50 DATA01???
51 DATA01???
52 DATA01???
53 DATA00AND0010020112
54 DATA00ROL0010020112
55 DATA01???
56 DATA01SEC
57 DATA00AND0011020103
58 DATA01???
59 DATA01???
60 DATA01???
61 DATA00AND0011020113
62 DATA00ROL0011020113
63 DATA01???
64 DATA01RTI
65 DATA00EOR1010111022
66 DATA01???
67 DATA01???
68 DATA01???
69 DATA00EOR0010020022
70 DATA00LSR0010020022
71 DATA01???
72 DATA01PHA
73 DATA00EOR0110020022
74 DATA01LSR
75 DATA01???
76 DATA00JMP0011020023
77 DATA00EOR0011020023
78 DATA00LSR0011020023
79 DATA01???
80 DATA11BVC
81 DATA00EOR1010021102
82 DATA01???
83 DATA01???
84 DATA01???
85 DATA00EOR0010020112
86 DATA00LSR0010020112
87 DATA01???
88 DATA01CLI
89 DATA00EOR0011020103
90 DATA01???
91 DATA01???
92 DATA01???
93 DATA00EOR0011020113
94 DATA00LSR0011020113
95 DATA01???
96 DATA01RTS
97 DATA00ADC1010111022
98 DATA01???
99 DATA01???
100 DATA01???
101 DATA00ADC0010020022
102 DATA00ROR0010020022
103 DATA01???
104 DATA01PLA
105 DATA00ADC0110020022
106 DATA01ROR
107 DATA01???
108 DATA00JMP1011021023
109 DATA00ADC0011020023
110 DATA00ROR0011020023
111 DATA01???
112 DATA11BVS
113 DATA00ADC1010021102
114 DATA01???
115 DATA01???
116 DATA01???
117 DATA00ADC0010020112
118 DATA00ROR0010020112
119 DATA01???
120 DATA01SEI
121 DATA00ADC0011020103
122 DATA01???
123 DATA01???
124 DATA01???
125 DATA00ADC0011020113
126 DATA00ROR0011020113
127 DATA01???
128 DATA01???
129 DATA00STA1010111022
130 DATA01???
131 DATA01???
132 DATA00STY0010020022
133 DATA00STA0010020022
134 DATA00STX0010020022
135 DATA01???
136 DATA01DEY
137 DATA01???
138 DATA01TXA
139 DATA01???
140 DATA00STY0011020023
141 DATA00STA0011020023
142 DATA00STX0011020023
143 DATA01???
144 DATA11BCC
145 DATA00STA1010021102
146 DATA01???
147 DATA01???
148 DATA00STY0010020112
149 DATA00STA0010020112
150 DATA00STX0010020102
151 DATA01???
152 DATA01TYA
153 DATA00STA0011020103
154 DATA01TXS
155 DATA01???
156 DATA01???
157 DATA00STA0011020113
158 DATA01???
159 DATA01???
160 DATA00LDY0110020022
161 DATA00LDA1010111022
162 DATA00LDX0110020022
163 DATA01???
164 DATA00LDY0010020022
165 DATA00LDA0010020022
166 DATA00LDX0010020022
167 DATA01???
168 DATA01TAY
169 DATA00LDA0110020022
170 DATA01TAX
171 DATA01???
172 DATA00LDY0011020023
173 DATA00LDA0011020023
174 DATA00LDX0011020023
175 DATA01???
176 DATA11BCS
177 DATA00LDA1010021102
178 DATA01???
179 DATA01???
180 DATA00LDY0010020112
181 DATA00LDA0010020112
182 DATA00LDX0010020102
183 DATA01???
184 DATA01CLV
185 DATA00LDA0011020103
186 DATA01TSX
187 DATA01???
188 DATA00LDY0011020113
189 DATA00LDA0011020113
190 DATA00LDX0011020103
191 DATA01???
192 DATA00CPY0110020022
193 DATA00CMP1010111022
194 DATA01???
195 DATA01???
196 DATA00CPY0010020022
197 DATA00CMP0010020022
198 DATA00DEC0010020022
199 DATA01???
200 DATA01INY
201 DATA00CMP0110020022
202 DATA01DEX
203 DATA01???
204 DATA00CPY0011020023
205 DATA00CMP0011020023
206 DATA00DEC0011020023
207 DATA01???
208 DATA11BNE
209 DATA00CMP1010021102
210 DATA01???
211 DATA01???
212 DATA01???
213 DATA00CMP0010020112
214 DATA00DEC0010020112
215 DATA01???
216 DATA01CLD
217 DATA00CMP0011020103
218 DATA01???
219 DATA01???
220 DATA01???
221 DATA00CMP0011020113
222 DATA00DEC0011020113
223 DATA01???
224 DATA00CPX0110020022
225 DATA00SBC1010111022
226 DATA01???
227 DATA01???
228 DATA00CPX0010020022
229 DATA00SBC0010020022
230 DATA00INC0010020022
231 DATA01???
232 DATA01INX
233 DATA00SBC0110020022
234 DATA01NOP
235 DATA01???
236 DATA00CPX0011020023
237 DATA00SBC0011020023
238 DATA00INC0011020023
239 DATA01???
240 DATA11BEQ
241 DATA00SBC1010021102
242 DATA01???
243 DATA01???
244 DATA01???
245 DATA00SBC0010020112
246 DATA00INC0010020112
247 DATA01???
248 DATA01SED
249 DATA00SBC0011020103
250 DATA01???
251 DATA01???
252 DATA01???
253 DATA00SBC0011020113
254 DATA00INC0011020113
255 DATA01???
410 Q=40960
420 READA$
430 PRINT"[147]";
431 POKE1024,LEN(A$)+1
433 PRINT""A$;Z
440 FORI=1TOLEN(A$)+1
450 POKEQ,PEEK(1023+I)
460 Q=Q+1
470 NEXT:Z=Z+1
480 GOTO420