1 CLEAR1500:DEFSTRN-S:DIMN(255):GOSUB9
2 R="":CLS:INPUT "Start";I:M=7:O="LCD:":INPUT"Print";S:IFS="Y"ORS="y"THENO="LPT:":M=49
3 OPENOFOROUTPUTAS1:L=0:CALL16959:CLS
4 GOSUB5:B=VAL(N(A)):IFB=0THENS=N(A):GOSUB7:GOTO4ELSES=MID$(N(A),2)+STR$(256*(B-1)*PEEK(I+2)+PEEK(I+1)):GOSUB7:S="":FORC=1TOB:GOSUB5:GOSUB7:NEXT:GOTO4
5 A=PEEK(I):Q="":IFA>32ANDA<127THENQ=CHR$(A)
6 IFR="R"ORR="r"THENCLOSE:GOTO2:ELSEIFR="M"ORR="m"THENMENUELSERETURN
7 R=INKEY$:PRINT#1,USING"#####   ###   \          \  !";I,A,S,Q:I=I+1:L=L+1:IFL>MTHENL=0:IFO="LCD:"THENR=INPUT$(1):CLSELSELPRINTCHR$(12);
8 RETURN
9 DATANOP,RNZ,2LXI B,POP B,STAX B,2JNZ,INX B,2JMP,INR B,2CNZ,DCR B,PUSH B,1MVI B,1ADI,RLC,RST 0,UNDF,RZ,DAD B,RET,LDAX B,2JZ,DCX B,UNDF,INR C,2CZ,DCR C,2CALL,1MVI C,1ACI,RRC,RST 8,UNDF,RNC,2LXI D,POP D,STAX D,2JNC,INX D,1OUT,INR D,2CNC,DCR D,PUSH D,1MVI D
10 DATA1SUI,RAL,RST 16,UNDF,RC,DAD D,UNDF,LDAX D,2JC,DCX D,1IN,INR E,2CC,DCR E,UNDF,1MVI E,1SBI,RAR,RST 24,RIM,RPO,2LXI H,POP H,2SHLD,2JPO,INX H,XTHL,INR H,2CPO,DCR H,PUSH H,1MVI H,1ANI,DAA,RST 32,UNDF,RPE,DAD H,PCHL,2LHLD,2JPE,DCX H,XCHG,INR L
11 DATA2CPE,DCR L,UNDF,1MVI L,1XRI,CMA,RST 40,SIM,RP,2LXI SP,POP PSW,2STA,2JP,INX SP,DI,INR M,2CP,DCR M,PUSH PSW,1MVI M,1ORI,STC,RST 48,UNDF,RM,DAD SP,SPHL,2LDA,2JM,DCX SP,EI,INR A,2CM,DCR A,UNDF,1MVI A,1CPI,CMC,1RST 56,ADD,ADC,SUB,SBB,ANA,XRA,ORA,CMP
12 FORI=0TO63:READN(I),N(I+192):NEXT:S="BCDEHLMA":K=64:FORI=1TO8:READR:FORJ=1TO8:N(K)="MOV "+MID$(S,I,1)+","+MID$(S,J,1):N(K+64)=R+" "+MID$(S,J,1):K=K+1:NEXT:NEXT:N(118)="HLT":RETURN