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