Circling back around to InterLisp/65 - anyone figure out the stick function?

[svhovater]

hi folks

Working with interlisp/65 v2.5, and was checking out functionality. I thought it would be interesting to write something that would read the position of joystick 0.

Unfortunately, when I enter

(stick 0)

 

I get a string of atascii back instead of the number I expected.

So.. if we invoke (car (unpack (stick 0))) we get the first character of the atascii string. If I move the joystick, and execute again, I get a different character.

I don't see a way to turn that character into a number.

 

ideas?

[TGB1718]

What characters are you getting for all positions, as long as the character is different and consistent in all positions

then just use the values returned, I don't know Lisp, but can you use "define" alias the values you want ? 

 

i.e. #DEFINE UP <character returned from (stick 0)>

etc.

etc. 

[svhovater]

Well now.. I loaded InterLisp65 v 2.1 (under OS/A+) and (stick 0) is returning the right value.

 

 

Edited August 3, 2023 by svhovater