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@lists.vintagecomputerfederation.org] On Behalf Of Evan Koblentz via vcf-midatlantic Sent: Sunday, February 18, 2018 1:45 PM To: vcf-midatlantic <vcf-midatlantic@lists.vintagecomputerfederation.org> Cc: Evan Koblentz <evan@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?