56 lines
647 B
Plaintext
56 lines
647 B
Plaintext
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 ?=""
|