CPI    7
 RZ
 JMP    WIN
NEAR   LHLD   YOUP
 CALL   RT
 CALL   NEAR2
 CALL   UP
 CALL   NEAR2
 CALL   LF
 CALL   NEAR2
 CALL   LF
 CALL   NEAR2
 CALL   DN
 CALL   NEAR2
 CALL   DN
 CALL   NEAR2
 CALL   RT
 CALL   NEAR2
 CALL   RT
 CALL   NEAR2
 CALL  MCLEAR
NEAR3  RET
NEAR2  MOV    A,M
 CPI    7
 RNZ
 CALL   MSG1
 POP    H
 JMP    NEAR3
MSG1   PUSH   H
 PUSH   B
 LXI    H,MS1
 LXI    B,M1
 CALL   MSGG
 POP    B
 POP    H
 RET
MSG2   LXI    H,MS1
 LXI  B,M2
 CALL   MSGG
 RET
WIN    LXI    H,MS1
 LXI    B,MWIN
 CALL   MSGG
 LDA    YSCORE
 INR    A
 STA    YSCORE
 CALL   SCORE
 CALL   OVER
 CALL   WAIT
 JMP    START
SCORE  LXI    H,SRE
 LXI    B,MSR
 CALL   MSGO
 LDA    YSCORE
 ADI    30H
 LXI    H,SCR
 MOV    M,A
 LDA    RSCORE
 ADI    30H
 LXI    D,40H
 DAD    D
 MOV    M,A
 LXI    H,MSY
 LXI    B,MSR1
 CALL   MSGO
 LXI    H,MT1
 LXI    B,MSR2
 CALL   MSGO
 RET
MCLEAR PUSH   H
 PUSH   B
 LXI    H,MS1
 MVI    C,20H
MCL1   MVI    M,' '
 INX    H
 DCR    C
 JNZ    MCL1
 POP    B
 POP    H
 RET
MSGO   LDAX   B
 CPI    0FFH
 RZ
 MOV    M,A
 INX    B
 INX    H
 JMP    MSGO
MSGG   LDAX   B
 CPI    0FFH
 RZ
 ORI    80H
 MOV    M,A
 INX    B
 INX    H
 JMP    MSGG
MNAME ASC '*** THE GAME OF CHASE ***'
 DB     0FFH
M1 ASC '* CAUTION - ROBOT NEAR *'
 DB     0FFH
M2 ASC '* YOU HAVE BEEN DESTROYED *'
 DB     0FFH
MWIN ASC '* CONGRATULATIONS - YOU HAVE WON! *'
 DB     0FFH
MSR ASC '--SCORE--'
 DB     0FFH
MSR1 ASC 'YOU:'
 DB     0FFH
MSR2 ASC 'ROBOTS:'
 DB     0FFH
ENDB1 ASC 'THE ROBOTS HAVE WON -  : '
 DB     0FFH
ENDB2 ASC 'YOU HAVE BEATEN THEM -  : '
 DB     0FFH
ENDB3 ASC '* HIT ANY KEY TO PLAY AGAIN *'
 DB     0FFH
MDIFF  ASC '* LEVEL OF DIFFICULTY (0-9)? *'
 DB     0FFH
 END