home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / games / pacmen / ste_joy.asc < prev   
Text File  |  1994-04-29  |  2KB  |  44 lines
  1. 1 rem *************************************************************************
  2. 2 rem * IF YOU HAVE THE STE EXTENSION FOR STOS, THIS LISTING IS NOT NESCESARY *
  3. 3 rem *************************************************************************
  4. 450 cls
  5. 460 dim JM$(4)
  6. 500 repeat 
  7. 501 JM$(1)="STE A0 " : JM$(2)="STE A1 "
  8. 502 JM$(3)="STE B0 " : JM$(4)="STE B1 "
  9. 505 SEJ=deek($FF9202) : SEF=peek($FF9201) : SEF=not(SEF) : SEJ=not(SEJ)
  10. 510 for T=1 to 4
  11. 520 JP=0 : JD=0 : JL=0 : JR=0 : FIR=0
  12. 550 if T<>1 then goto 560 : rem here STE A0
  13. 551 if SEJ and 8 then JP=true
  14. 552 if SEJ and 4 then JD=true
  15. 553 if SEJ and 2 then JL=true
  16. 554 if SEJ and 1 then JR=true
  17. 555 if SEF and 1 then FIR=true
  18. 560 if T<>2 then goto 570 : rem here STE A1
  19. 561 if SEJ and 2048 then JP=true
  20. 562 if SEJ and 1024 then JD=true
  21. 563 if SEJ and 512 then JL=true
  22. 564 if SEJ and 256 then JR=true
  23. 565 if SEF and 2 then FIR=true
  24. 570 if T<>3 then goto 580 : rem here STE B0
  25. 571 if SEJ and 128 then JP=true
  26. 572 if SEJ and 64 then JD=true
  27. 573 if SEJ and 32 then JL=true
  28. 574 if SEJ and 16 then JR=true
  29. 575 if SEF and 4 then FIR=true
  30. 580 if T<>4 then goto 590 : rem here STE B1
  31. 581 if SEJ and 32768 then JP=true
  32. 582 if SEJ and 16384 then JD=true
  33. 583 if SEJ and 8192 then JL=true
  34. 584 if SEJ and 4096 then JR=true
  35. 585 if SEF and 8 then FIR=true
  36. 590 if JP then JM$(T)=JM$(T)+"up "
  37. 600 if JD then JM$(T)=JM$(T)+"down "
  38. 610 if JL then JM$(T)=JM$(T)+"left "
  39. 620 if JR then JM$(T)=JM$(T)+"right "
  40. 630 if FIR then JM$(T)=JM$(T)+"FIRE! "
  41. 700 locate 0,7+T : print JM$(T);"                  "
  42. 800 next T
  43. 900 until upper$(inkey$)="Q"
  44.