2 0 CLS
LIT tgt: 55 DUP LIT 1 SET
LIT plr: 11 DUP LIT 1 SET
EQU LIT @hit JCR
LIT 8 KEY EQU LIT @right JCN
LIT 4 KEY EQU LIT @left JCN
LIT 2 KEY EQU LIT @down JCN
LIT 1 KEY EQU LIT @up JCN
BRK
hit: RND LIT @tgt STA RET
right: LIT @plr LDA INC LIT @plr STA BRK
left: LIT @plr LDA DEC LIT @plr STA BRK
down: LIT @plr LDA LIT 10 ADD LIT @plr STA BRK
up: LIT @plr LDA LIT 10 SUB LIT @plr STA BRK
|