5 CLEAR256:READF$,T:IFT<=MAXRAMTHENCLEAR256,T:READF$,T
6 READE,X:PRINTF$;T;E;X:M=T:S$="":R=0
7 IFM>ETHENSAVEMF$,T,E,X:MENUELSEIFS$=""THENREADS$
8 H=ASC(MID$(S$,1))-64:IFH<16THENN=H*16+ASC(MID$(S$,2))-64:S$=MID$(S$,3)ELSER=H-16:S$=MID$(S$,2)
9 POKEM,N:M=M+1:IFRTHENR=R-1:GOTO9ELSE7
10 DATAlcdtxt,63574,63804,63574,LCFEOHOCCNBNMCKJJOMCKIMKNHCLLIOCJOMCOOCNCLMCONCN@AMCOOCNGEMCONCN@BMCOOCNBFMCONCN@CMCOOCNCOMCONCN
11 DATA@DMCOOCN@GMCONBA@@PLMKIOHLM@IOILMEIOHLJICOHLMBFOILMEIOHLBILOHLM@IOILMBFOILMEIOHLJJEOHJOMCOOCNCBMCONLIBBJLONCN@HMCOOGMMCON
12 DATACN@IMCOOGLMCONLICN@JMCOOGMMCONCN@KMCOOGLMCONLIOECN@JMCOOGMMCONCN@KMCOOGLMCONCN@LMCOOOAOEMCONCN@JMCOOGMMCONCN@KMCOOGLOFA@
13 DATAMCONCN@LMCOOOAMCONLIBA@@PCN@@LMMJOHBCCLLB@NOI@AH@@ACNB@LMMJOHBC@KGHKALBAIOILIBJFAOFNKBA@@P@AH@@BAJLMMJOHACBC@KGHKALBC@OI
14 DATALI