[vcf-midatlantic] GW-BASIC joystick programming

[Glenn Roberts]

Is this it?

STICK Function

Purpose:
To return the x and y coordinates of two joysticks.

Syntax:
	x=STICK(n)

Comments:
x is a numeric variable for storing the result.
n is a valid numeric expression within the range of 0 to 3.

Value of n 	Coordinate Returned
0 		x coordinate of joystick A. Stores the x and y values for both joysticks for the
		Following three function calls.
1 		y coordinate of joystick A.
2 		x coordinate of joystick B.
3 		y coordinate of joystick B.

> -----Original Message-----
> From: vcf-midatlantic [mailto:vcf-midatlantic-
> bounces at lists.vintagecomputerfederation.org] On Behalf Of Evan Koblentz
> via vcf-midatlantic
> Sent: Sunday, February 18, 2018 1:45 PM
> To: vcf-midatlantic <vcf-midatlantic at lists.vintagecomputerfederation.org>
> Cc: Evan Koblentz <evan at vcfed.org>
> Subject: [vcf-midatlantic] GW-BASIC joystick programming
> 
> How do I program joystick input in GW-BASIC?
> 
> It's insanely easy in Applesoft: you use the PDL(0) and PDL(1) commands to
> determine where the stick is located along X/Y (0-255 on each scale) and then
> tell it what do based on those locations.
> 
> For example, in Applesoft, my Lego robot navigation code looks like this:
> 
> 3000 REM NEVIGATION
> 3010 FB=PDL (1):LR=PDL (0)
> 3020 IF FB < 75 THEN M=5
> 3030 IF FB > 180 THEN M=10
> 3040 IF LR < 75 THEN M=9
> 3050 IF LR > 180 THEN M=6
> 3060 POKE L,M: REM SEND COMMANDS
> 
> (The variable L is the address of the interface card to the control box.
> The variable M gets translated into binary to turn the relevant bits on/off at
> the control box, which runs the motors, sensors, and lights.)
> 
> How do I do this in GW?