1 PRINT"[147]":OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$:E$=CHR$(0)
2 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:END
3 PRINTASC(H$+E$)+256*ASC(L$+E$);
4 GETA$,B$:IFA$THENPRINTA$B$;:GOTO4
5 PRINTA$:GOTO2