home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / joyid.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  200b  |  9 lines
  1. 10 cj=0: rem "joy/id" subroutine
  2. 20 poke198,0:poke56333,17:poke56320,255
  3. 30 c2=(peek(56320)and16)/16:c1=(peek(56321)and16)/16
  4. 40 poke56333,129:ifpeek(631)=13goto80
  5. 50 ifc1=0thencj=1:goto80
  6. 60 ifc2=0thencj=2:goto80
  7. 70 goto20
  8. 80 poke198,0:return
  9.