1 OPEN1,8,0,"$":GET#1,A$,A$:E$=CHR$(0)
2 GET#1,A$,A$,H$,L$:IFSTTHENCLOSE1:RETURN
3 PRINT"[157]"ASC(H$+E$)+256*ASC(L$+E$);
4 GET#1,A$,B$:IFA$THENPRINTA$B$;:GOTO4
5 PRINTA$:GOTO2