1 DATA"#","$","$,X","$,Y","$","$,X","$,Y","#","($,X)"
2 DIMM$(256):DIMC$(12):DATA"($),Y","($)"," [193]KKU":S$="0123456789ABCDEF"
3 J=65535:FORX=1TO12:READC$(X):NEXT:FORW=0TO256:READE$:IFE$=""THENNEXT
4 M$(W)=RIGHT$(E$,3)+C$(ASC(LEFT$(E$,1))-64):NEXT:PRINT"[147][150][210]EASS BY [205].[203]ESSLER"
5 DATA@BRK,IORA,,,,BORA,BASL,,@PHP,AORA,LASL,,,EORA,EASL,,HBPL,JORA,,,,CORA
6 DATACASL,,@CLC,GORA,,,,FORA,FASL,,EJSR,IABD,,,BBIT,BAND,BROL,,@PLP,AAND,LROL,
7 DATAEBIT,EAND,EROL,,HBMI,JAND,,,,CAND,CROL,,@SEC,GAND,,,,FAND,FROL,,@RTI,IEOR
8 DATA,,,BEOR,BLSR,,@PHA,AEOR,LLSR,,EJMP,EEOR,ELSR,,HBVC,JEOR,,,,CEOR,CLSR,
9 DATA@CLI,GEOR,,,,FEOR,FLSR,,@RTS,IADC,,,,BADC,BROR,,@PLA,AADC,LROR,,KJMP,EADC
10 DATAEROR,,HBVS,JADC,,,,CADC,CROR,,@SEI,GADC,,,,FADC,FROR,,,ISTA,,,BSTY,BSTA
11 DATABSTX,,@DEY,,@TXA,,ESTY,ESTA,ESTX,,HBCC,JSTA,,,CSTY,CSTA,CSTX,,@TYA,GSTA
12 DATA@TXS,,,FSTA,,,ALDY,ILDA,ALDX,,BLDY,BLDA,BLDX,,@TAY,ALDA,@TAX,,ELDY,ELDA
13 DATAELDX,,HBCS,JLDA,,,CLDY,CLDA,DLDX,,@CLV,GLDA,@TSX,,FLDY,FLDA,GLDX,,ACPY
14 DATAICMP,,,BCPY,BCMP,BDEC,,@INY,ACMP,@DEX,,ECPY,ECMP,EDEC,,HBNE,JCMP,,,
15 DATACCMP,CDEC,,@CLD,GCMP,,,,FCMP,FDEC,,ACPX,ISBC,,,BCPX,BSBC,BINC,,@INX,ASBC
16 DATA@NOP,,ECPX,ESBC,EINC,,HBEQ,JSBC,,,,CSBC,CINC,,@SED,GSBC,,,,FSBC,FINC,,A
17 INPUT"[158][211]TART";S:FORI=STOJ:A$=M$(PEEK(I)):C=0:FORN=1TOLEN(A$):J$=MID$(A$,N,1)
18 IFJ$=""THENC=C+1:IFC=2ORC=4THENH=PEEK(I+C/2):GOSUB20:PRINT""SPC(N+7)H$;"[145]"
19 NEXT:PRINT""ICHR$(13);SPC(7)"[145][158]: ";A$:I=I+C/2:POKE198,0:WAIT198,1:NEXT
20 A=H/16:B=HAND15:H$=MID$(S$,A+1,1)+MID$(S$,B+1,1):RETURN