5 cls
10 repeat 
20 gosub 65050
30 J0$="PARALELL JOYSTICK 0 "
40 J1$="PARALELL JOYSTICK 1 "
50 if J0 and 1 then J0$=J0$+"up "
51 if J0 and 2 then J0$=J0$+"down "
53 if J0 and 4 then J0$=J0$+"left "
54 if J0 and 8 then J0$=J0$+"right "
56 if BTN0 then J0$=J0$+"FIRE!"
60 if J1 and 1 then J1$=J1$+"up "
61 if J1 and 2 then J1$=J1$+"down "
63 if J1 and 4 then J1$=J1$+"left "
64 if J1 and 8 then J1$=J1$+"right "
66 if BTN1 then J1$=J1$+"FIRE!"
100 locate 0,9 : print J0$;"                  "
101 locate 0,11 : print J1$;"                  "
110 until upper$(inkey$)="Q"
120 end 
65050 trap 14,28,0,$80+7
65051 trap 14,28,0,$80+15 : J0=dreg(0) and $F
65052 J1=dreg(0) and $F0 : ror 4,J1
65054 trap 14,28,0,$80+14 : if btst(5,dreg(0)) then BTN0=0 else BTN0=1
65056 if btst(0,peek($FFFA01)) then BTN1=0 else BTN1=1 : rem <-- try reading memory locs in that area and fidling with centronixinterface ***
65058 J0=not(J0) : J1=not(J1)
65060 return