5 for j=0 to 3
6 q=j
10 out&hd8,q mod 64
20 out &hd9,q\64
30 for i=0 to 32
40 print hex$(inp(&hd9));" ";
50 next i:print
60 next j