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