home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / games / linecras / par_joy.asc < prev    next >
Text File  |  1994-04-29  |  967b  |  27 lines
  1. 5 cls
  2. 10 repeat 
  3. 20 gosub 65050
  4. 30 J0$="PARALELL JOYSTICK 0 "
  5. 40 J1$="PARALELL JOYSTICK 1 "
  6. 50 if J0 and 1 then J0$=J0$+"up "
  7. 51 if J0 and 2 then J0$=J0$+"down "
  8. 53 if J0 and 4 then J0$=J0$+"left "
  9. 54 if J0 and 8 then J0$=J0$+"right "
  10. 56 if BTN0 then J0$=J0$+"FIRE!"
  11. 60 if J1 and 1 then J1$=J1$+"up "
  12. 61 if J1 and 2 then J1$=J1$+"down "
  13. 63 if J1 and 4 then J1$=J1$+"left "
  14. 64 if J1 and 8 then J1$=J1$+"right "
  15. 66 if BTN1 then J1$=J1$+"FIRE!"
  16. 100 locate 0,9 : print J0$;"                  "
  17. 101 locate 0,11 : print J1$;"                  "
  18. 110 until upper$(inkey$)="Q"
  19. 120 end 
  20. 65050 trap 14,28,0,$80+7
  21. 65051 trap 14,28,0,$80+15 : J0=dreg(0) and $F
  22. 65052 J1=dreg(0) and $F0 : ror 4,J1
  23. 65054 trap 14,28,0,$80+14 : if btst(5,dreg(0)) then BTN0=0 else BTN0=1
  24. 65056 if btst(0,peek($FFFA01)) then BTN1=0 else BTN1=1 : rem <-- try reading memory locs in that area and fidling with centronixinterface ***
  25. 65058 J0=not(J0) : J1=not(J1)
  26. 65060 return 
  27.