0 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
1 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$:IFSTTHENSYS65484:CLOSE1:END
2 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO1