0 callnetbload("/software/basic/m-test/w.dat")
5 pg=0:ad=&h6000
10 a=inp(&h34):?hex$(a);"  ";chr$(13);
20 if (a and 3)<>3 then 10 else print:print"Copying";
30 'data requested and we are idle
40 for i=0 to 255
50 callnetgetmem(pg,ad,a,b,c,d):f=inp(&h30):?hex$(f);
60 out&h30,a:out&h31,b:out&h30,c:out&h31,d:ad=ad+4
70 next i
80 print "ad=";hex$(ad);
90 if ad>&h7fff then ad=ad-&h2000:pg=pg+1
100 if pg<10 then 10