home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / maggie / maggie3b.arj / maggie3b.msa / PROGRAMS / MUSIC.GFA (.txt) < prev   
GFA-BASIC Atari  |  1987-04-22  |  2KB  |  52 lines
  1. ' $m5000
  2. RESERVE 5000
  3. GOSUB firstmusix
  4. key%=INP(2)                                     ! wait key press
  5. mus2%=mus2%+32
  6. ~C:mus2%(L:x#,W:y#,z#)                             ! turn music off
  7. mus2%=mus2%-32
  8. mus2%=MFREE(mus2%)                              ! set memory free
  9. RESERVE
  10. STOP                                            ! finished
  11. PROCEDURE firstmusix
  12. ' ## INLINE:
  13. ' $0000: 60 1a 00 00 01 82 00 00 00 00 00 00 00 00 00 00 
  14. ' $0010: 00 00 00 00 00 00 00 00 00 00 00 00 48 e7 ff fe 
  15. ' $0020: 0c 98 49 63 65 21 66 44 20 18 4b f0 08 f8 2e 98 
  16. ' $0030: 28 49 2c 49 dd d7 26 4e 61 64 61 36 61 00 00 8c 
  17. ' $0040: 64 2a 3e 3c 0f 9f 7c 03 38 23 7a 03 d8 44 d1 40 
  18. ' $0050: d8 44 d3 41 d8 44 d5 42 d8 44 d7 43 51 cd ff ee 
  19. ' $0060: 51 ce ff e6 48 93 00 0f 51 cf ff dc 4c df 7f ff 
  20. ' $0070: 4e 75 61 56 64 22 72 00 61 50 64 16 43 fa 00 f8 
  21. ' $0080: 76 04 20 21 61 6a 48 40 b2 40 56 cb ff f6 d2 a9 
  22. ' $0090: 00 14 1d 25 51 c9 ff fc bd cc 6e 62 4e 75 70 03 
  23. ' $00a0: 1e 25 e0 9f 51 c8 ff fa 4e 75 3e 0d 08 07 00 00 
  24. ' $00b0: 66 06 2e 25 df 87 60 3e 2e 2d ff fb e1 8f 1e 25 
  25. ' $00c0: 57 8d de 87 08 c7 00 00 60 2c de 87 67 02 4e 75 
  26. ' $00d0: 3e 0d 08 07 00 00 66 06 2e 25 df 87 4e 75 2e 2d 
  27. ' $00e0: ff fb e1 8f 1e 25 57 8d de 87 08 c7 00 00 4e 75 
  28. ' $00f0: 72 00 de 87 67 b4 d3 41 51 c8 ff f8 4e 75 43 fa 
  29. ' $0100: 00 8a 74 03 61 c4 54 ca ff fc 78 00 72 00 10 31 
  30. ' $0110: 20 01 48 80 6b 02 61 d8 18 31 20 06 d8 41 67 1e 
  31. ' $0120: 43 fa 00 72 74 01 61 a2 54 ca ff fc 72 00 10 31 
  32. ' $0130: 20 01 48 80 61 ba d4 42 d2 71 20 06 60 12 72 00 
  33. ' $0140: 70 05 74 00 61 84 64 04 70 08 74 40 61 a2 d2 42 
  34. ' $0150: 43 f6 40 02 d2 c1 1d 21 1d 21 51 cc ff fc 60 00 
  35. ' $0160: ff 12 7f ff 00 0e 00 ff 00 07 00 07 00 02 00 03 
  36. ' $0170: 00 01 00 03 00 01 00 00 01 0d 00 00 00 0e 00 00 
  37. ' $0180: 00 07 00 00 00 04 00 00 00 01 09 01 00 ff ff 08 
  38. ' $0190: 04 02 01 00 0b 04 07 00 01 20 00 00 00 20 00 00 
  39. ' $01a0: 00 00 
  40. ' 418  Bytes.
  41.   INLINE test%,418
  42.   mus1%=MALLOC(17000)                           ! reserve memory
  43.   mus2%=MALLOC(17000)                           ! reserve more memory
  44.   BLOAD "\data\lap1.dat",mus1%                   ! load musix to first position
  45.   r%(8)=mus1%                                   ! pass these values
  46.   r%(9)=mus2%                                   ! on to the depacking
  47.   RCALL test%,r%()                              ! routine in test%
  48.   mus1%=MFREE(mus1%)                            ! set the memory free again
  49.   r%(6)=1                                       ! set the tune number of this tune
  50.   RCALL mus2%,r%()
  51. RETURN
  52.