1 CLEAR256,61439!:A=61440!:LN=0:INPUT"File to convert";F$:OPENF$FORINPUTAS#1 2 IF EOF(1)THENBSAVE"GRAFIC",61440!,LN,61440!:MENU 3 DT=0:GOSUB6:GOSUB6 4 POKEA,DT:A=A+1:LN=LN+1:GOTO2 5 'GET CHR, STRIP CR AND LF 6 D=ASC(INPUT$(1,1)):IFD<48THEN6 7 'STRIP ASCII BIAS 8 DT=16*DT+D-48:RETURN s.