home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 709.dms / 709.adf / AMAL_Joystick.AMOS / AMAL_Joystick.amosSourceCode
AMOS Source Code  |  1978-10-10  |  790b  |  28 lines
  1. Rem  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  2. Rem   Joystick control under AMAL  
  3. Rem  
  4. Rem  Due to a few early requests 
  5. Rem  asking how this was possible
  6. Rem  Aaron decided to give you the 
  7. Rem  neccessary code to get going. 
  8. Rem
  9. Rem  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  10. Load "AMOS_DATA:Magic_Forest/Mfsprites.Abk"
  11. Curs Off : Flash Off : Hide 
  12. Get Sprite Palette 
  13. A$="Let R0=1 ; " : Rem R0 is the speed factor 
  14. A$=A$+"A: If J1&1 then Jump E ;" : Rem up 
  15. A$=A$+"B: If J1&2 then Jump F ;" : Rem down 
  16. A$=A$+"C: If J1&4 then Jump G ;" : Rem left 
  17. A$=A$+"D: If J1&8 then Jump H ;" : Rem right  
  18. A$=A$+"Jump A ;"
  19. A$=A$+"G: Let X=X-R0 ; Jump D ;"
  20. A$=A$+"H: Let X=X+R0 ; Jump A ;"
  21. A$=A$+"E: Let Y=Y-R0 ; Jump B ;"
  22. A$=A$+"F: Let Y=Y+R0 ; Jump C ;"
  23. Bob 1,160,100,41
  24. Channel 1 To Bob 1
  25. Amal 1,A$
  26. Amal On 
  27. Do 
  28. Loop