\start83\ \comment=Made by dizzy p. 270198.slow at the moment \name=HEX2 \file=C:\WINLINK\HEX2\HEX2.TXT "0123456789ABCDEF"\->\Str0 ClrHome Input "DEC->",A 0\->\L For(T,0,7) 16^(7-T)\->\C iPart(A/C)\->\B A-B*C\->\A Output(8,9+L,sub(Str0,B+1,1)) L+1\->\L End \stop83\