10 MEMSET &H2A40
20 WIDTH 20,20
30 DEFINT Y,Z
40 DIMA$(256):DIMA%(256)
50 FORZ=0TO255:READA$(Z):NEXT
60 FORZ=0TO255:READA%(Z):NEXT
70 A$(256)="@":A%(256)=0
200 DATA @,NOP,@,@,LSRD,ASLD,TAP,TPA,INX,DEX,CLV,SEV,CLC,SEC,CLI,SEI
205 DATA SBA,CBA,@,@,@,@,TAB,TBA,XGDX,DAA,SLP,ABA,@,@,@,@
210 DATA BRA&,BRN&,BHI&,BLS&,BCC&,BCS&,BNE&,BEQ&,BVC&,BVS&,BPL&,BMI&,BGE&,BLT&,BGT&,BLE&
215 DATA TSX,INS,PULA,PULB,DES,TXS,PSHA,PSHB,PULX,RTS,ABX,RTI,PSHX,MUL,WAI,SWI
220 DATA NEGA,@,@,COMA,LSRA,@,RORA,ASRA,ASLA,ROLA,DECA,@,INCA,TSTA,@,CLRA
225 DATA NEGB,@,@,COMB,LSRB,@,RORB,ASRB,ASLB,ROLB,DECB,@,INCB,TSTB,@,CLRB
230 DATA NEG%,AIM%,OIM%,COM%,LSR%,EIM%,ROR%,ASR%,ASL%,ROL%,DEC%,TIM%,INC%,TST%,JMP%,CLR%
235 DATA NEG$,AIM!,OIM!,COM$,LSR$,EIM!,ROR$,ASR$,ASL$,ROL$,DEC$,TIM!,INC$,TST$,JMP$,CLR$
240 DATA SUBA#,CMPA#,SBCA#,SUBD#,ANDA#,BITA#,LDAA#,@,EORA#,ADCA#,ORAA#,ADDA#,CPX#,BSR&,LDS#,@
245 DATA SUBA!,CMPA!,SBCA!,SUBD!,ANDA!,BITA!,LDAA!,STAA!,EORA!,ADCA!,ORAA!,ADDA!,CPX!,JSR!,LDS!,STS!
250 DATA SUBA%,CMPA%,SBCA%,SUBD%,ANDA%,BITA%,LDAA%,STAA%,EORA%,ADCA%,ORAA%,ADDA%,CPX%,JSR%,LDS%,STS%
255 DATA SUBA$,CMPA$,SBCA$,SUBD$,ANDA$,BITA$,LDAA$,STAA$,EORA$,ADCA$,ORAA$,ADDA$,CPX$,JSR$,LDS$,STS$
260 DATA SUBB#,CMPB#,SBCB#,ADDD#,ANDB#,BITB#,LDAB#,@,EORB#,ADCB#,ORAB#,ADDB#,LDD#,@,LDX#,@
265 DATA SUBB!,CMPB!,SBCB!,ADDD!,ANDB!,BITB!,LDAB!,STAB!,EORB!,ADCB!,ORAB!,ADDB!,LDD!,STD!,LDX!,STX!
270 DATA SUBB%,CMPB%,SBCB%,ADDD%,ANDB%,BITB%,LDAB%,STAB%,EORB%,ADCB%,ORAB%,ADDB%,LDD%,STD%,LDX%,STX%
275 DATA SUBB$,CMPB$,SBCB$,ADDD$,ANDB$,BITB$,LDAB$,STAB$,EORB$,ADCB$,ORAB$,ADDB$,LDD$,STD$,LDX$,STX$
300 DATA 0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1
305 DATA 1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,0
310 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
315 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
320 DATA 1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1
325 DATA 1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1
330 DATA 2,3,3,2,2,3,2,2,2,2,2,3,2,2,2,2
335 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
340 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,2,3,0
345 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
350 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
355 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
360 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,0,3,0
365 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
370 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
375 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
400 INPUT"ORG";Y
410 LOCATE0,19,0
420 PRINTHEX$(Y);
430 INPUTB$
440 IFB$=""THEN:Y=Y-A%(Z):GOTO410
450 FORZ=0TO255
460 IFB$=A$(Z)THEN500
470 NEXTZ
500 IFA%(Z)=0THEN410
510 POKEY,Z
520 Y=Y+1
530 IFA%(Z)=1THEN410
540 LOCATE12,18,1
550 INPUT"",C$
560 C$="&H"+LEFT$(C$,2)
570 LOCATE12,18,0
580 PRINTRIGHT$(C$,2)+CHR$(26)
590 POKEY,VAL(C$)
600 Y=Y+1
610 IFA%(Z)=2THEN410
620 LOCATE14,18,1
630 INPUT"",C$
640 C$="&H"+LEFT$(C$,2)
650 LOCATE14,18,0
660 PRINTRIGHT$(C$,2)+CHR$(26)
670 POKEY,VAL(C$)
680 Y=Y+1
690 GOTO410
