10 out&hc6,5:out&hc7,3
11 out&h7e,&h68:out&h7f,&h0f
20 out&h7e,&h20:out&h7f,&h18
30 out&h7e,&h38:out&h7f,&hf2
40 out&h7e,&h50:out&h7f,&h19
50 out&h7e,&h08:out&h7f,&h11
60 out&h7e,&h68:out&h7f,&h8f
61 fori=0to10:nexti:out&h20,0
70 stop
100 fori=0to15:a=inp(&h30+i):?hex$(a):nexti:goto100
110 fori=0to3:a=inp(&h40+i):?hex$(a):nexti:goto110