new



190 cls:print "Twiddle the joysticks"
200 print "q to quit"
210 locate 3,3
220 print "stick";
230 locate 9,3
240 print "strig";
250 for j=0 to 2
260 locate 1,j+4
270 print j;
280 next
290 a$=inkey$
310 for j=0 to 2
320 locate 3,j+4
330 print stick(j);
340 locate 9,j+4
350 print strig(j);
360 next
370 a$=inkey$:if a$="q" then locate 1,10:print:end
380 goto 310
