10 A=0
20 ?="MEMORY SIZE? ";
30 B=?
40 A=A+257
50 C=A
60 I=0
70 I=I+1
80 :I)=C
90 C=C+769
95 ?="";
100 #=I*2+&<B*70
110 C=A
120 I=0
130 I=I+1
140 D=:I)
145 #=D=C=0*170
150 C=C+769
155 ?="";
160 #=130
170 E=C/256
180 F=%
190 G=D/256
200 H=%
210 J=E=G
220 P=I*2+&+J
230 #=P<B*300
240 ?="TEST # ";
250 ?=A/256
260 ?=" COMPLETE"
270 #=A<65535*40
280 ?="DONE"
290 #=999
300 ?="ERROR AT BYTE #";
305 ?=P
310 ?=""
320 #=J*342
330 F=E
340 H=G
342 ?=" TEST BYTE WAS ";
344 ?=F
345 ?=""
346 ?="ERROR BYTE WAS ";
348 ?=H
349 ?=""
350 L=0
360 F=F/2
370 M=%
380 H=H/2
390 N=%
400 #=M=N=0*430
410 L=L+1
420 #=L<8*360
430 ?="BIT IN ERROR IS #";
440 ?=L
450 ?=""