Codigo "ofuscado"

Un pequeño truco que hay para Atari Basic.

20 S = STICK(S)
30 DX = (S = 5 OR S = 6 OR S = 7) - (S = 9 OR S = 10 OR S = 11)
40 DY = (S = 5 OR S = 9 OR S = 13) - (S = 6 OR S = 10 OR S = 14)
50 RETURN

Con los valores que entrega el joystick, se puede resumir en un par de lineas de codigo.

https://www.atariarchives.org/c2ba/page002.php
https://www.atarimagazines.com/v5n1/derejoystick.html