Play Music
[ Table of Contents ] [ Disk Image ] Play Music (playmus.act) comes from Section 5 of Larry Serflaten's " Larry's ACTION! TUTORIAL " hosted on the atariwiki.org website. Larry Serflaten's "Larry's ACTION! TUTORIAL" was a monthly addition to the SPACE club Newsletter originally appearing from January 1995 through March 1996. MODULE BYTE ARRAY NOTE= [ 32 16 24 16 24 16 40 ], DELAY=[ 30 8 55 6 8 6 60 ] DEFINE NOTE_COUNT="7" PROC WAIT(BYTE JIF) BYTE RTCLK=20 RTCLK=0 WHILE RTCLK<JIF DO OD RETURN PROC PLAY() BYTE ARRAY AUDIO(8)=53760 BYTE C AUDIO(8)=3 AUDIO(1)=166 AUDIO(3)=170 FOR C=0 TO NOTE_COUNT-1 DO AUDIO(0)=NOTE(C) AUDIO(2)=NOTE(C) LSH 1 +1 WAIT(DELAY(C)) OD AUDIO(1)=0 AUDIO(3)=0 RETURN