Improved Κριτικσι Λίθος' Plus-And-Minus

Text(5,5,"RULES:"
Text(15,5,"COLLECT THE +"
Text(25,5,"AVOID THE -"
DispGraph
Pause
ClrHome
getKey→A
8→X
4→Y
randInt(1,16)→U
randInt(1,8)→V
randInt(1,16)→K
randInt(1,8)→L
0→S
randInt(1,16)→M
randInt(1,8)→N

Repeat C=K+Li or C=U+Vi
getKey
If Ans=105
Return
If Ans=34 or 2>abs(25-Ans
Ans→A

Output(Y,X,"
max(1,min(16,X+(A=26)-(A=24→X
max(1,min(8,Y+(A=34)-(A-25)→Y
Output(Y,X,"O
X+Yi→C

randInt(0,3→D
Output(L,K,"
max(1,min(16,K+imag(i^Ans→K
max(1,min(8,L+real(i^D→L
Output(L,K,"-

randInt(0,3→D
Output(V,U,"
max(1,min(16,U+imag(i^Ans→U
max(1,min(8,V+real(i^D→V
Output(V,U,"-

If C=M+Ni
Then
S+1→S
randInt(1,16→M
randInt(1,8→N
End

Output(1,15,S
End
ClrHome
Disp "GAME OVER
Pause S