Oké, ez a lista úgy tűnik, hogy működik a Joy1 és Joy2.
Kérlek Judge, ki tudod próbálni az adaptereddel?
Ok, this listing seems to work on Joy1 and Joy2.
Please Judge, can you try it with your adapter?
100 PROGRAM "4JOYS.BAS"
110 ALLOCATE 50
120 CODE JOYS=HEX$("18,04,00,00,00,00,AF,47,0E,05,09,06,04,77,2B,
10,FC,23,01,00,05,F5,F3,D3,B5,DB,B6,FB,2F,1F,CB,16,1F,1F,CB,11,F1,3C,
10,ED,23,23,71,2B,FE,05,28,E2,C9")
130 DO
135 CALL USR(JOYS,JOYS)
141 LET JOYSTICK1=PEEK(JOYS+1+1)
142 LET JOYSTICK2=PEEK(JOYS+1+2)
143 LET JOYSTICK3=PEEK(JOYS+1+3)
144 LET JOYSTICK4=PEEK(JOYS+1+4)
150 PRINT JOYSTICK1,JOYSTICK2,JOYSTICK3,JOYSTICK4
160 LOOP