PROGRAM:Joy   Stick 
01 COL 7,0:DIR 0
02 CLS :? "Joystick 1 "
03 ? "( Escape to skip )"
04 ? "Centre, push button 1"
05 A=ADC(321):B=ADC(322)
06 WAIT 5:J=IN(0):K=KEY(0)
07 ? @3,1;!10;A;" ";B
08 IF K=237:GO 23
09 IF J=1:GO 5
10 ? "Top Left, push button 1"
11 C=ADC(321):D=ADC(322)
12 WAIT 5:J=IN(0):K=KEY(0)
13 ? @5,1;!10;C;" ";D
14 IF K=237:GO 23
15 IF J=1:GO 11
16 ? "Bottom Right, push button 1"
17 E=ADC(321):F=ADC(322)
18 WAIT 5:J=IN(0):K=KEY(0)
19 ? @7,1;!10;E;" ";F
20 IF K=237:GO 23
21 IF J=1:GO 17
22 ? A;B;C;D;E;F:WAIT 50
23 CLS :? "Joystick 2 "
24 ? "( Escape to skip )"
25 ? "Centre, push button 1"
26 L=ADC(325):M=ADC(326)
27 WAIT 5:J=IN(4):K=KEY(0)
28 ? @3,1;!10;L;" ";M
29 IF K=237:GO 44
30 IF J=1:GO 26
31 ? "Top Left, push button 1"
32 N=ADC(325):O=ADC(326)
33 WAIT 5:J=IN(4):K=KEY(0)
34 ? @5,1;!10;N;" ";O
35 IF K=237:GO 44
36 IF J=1:GO 32
37 ? "Bottom Right, push button 1"
38 P=ADC(325):Q=ADC(326)
39 WAIT 5:J=IN(4):K=KEY(0)
40 ? @7,1;!10;P;" ";Q
41 IF K=237:GO 44
42 IF J=1:GO 38
43 ? L;M;N;O;P;Q:WAIT 50
44 DA 0,0,-1,-1,1,1,"1",$85
45 DA 10,0,-1,-1,1,1,"2",$86
46 CLS :? @11,15;"+";
47 R=ADC(321):S=ADC(322)
48 T=ADC(325):U=ADC(326)
49 IF R<A:SCALE X,0,15,C,R,A:GO 51
50 SCALE X,15,29,A,R,E
51 IF S<B:SCALE Y,0,11,D,S,B:GO 53
52 SCALE Y,11,22,B,S,F
53 LIM X,0,29:LIM Y,0,22
54 DA 0,0:SPR 0,Y,X
55 IF T<L:SCALE X,0,15,N,T,L:GO 57
56 SCALE X,15,29,L,T,P
57 IF U<M:SCALE Y,0,11,O,U,M:GO 59
58 SCALE Y,11,22,M,U,Q
59 LIM X,0,29:LIM Y,0,22
60 DA 10,0:SPR 10,Y,X
61 G=IN(0):H=IN(3):V=IN(4):W=IN(7)
62 ? @20,5;G;H;"            ";V;W;
63 GO 47
64 '@jbretro.com 2026
#