'>>> Page 3 of TUNE.BAS begins here.
PLAY "X" + VARPTR$(DR1$)
PLAY "T100B16A16C#16C16C#16C16"
PLAY "C#16"
PLAY "X" + VARPTR$(DR$)
PLAY "X" + VARPTR$(DRA$)
PLAY "X" + VARPTR$(DRB$) + ">MNB16C#32MNB16D16MSD16D16D16"
PLAY "C#16E16D16D16C#16MSG8MNE32C#32DP4P4"
MT$ = "MND8P8D12D12D12E8P8E8P8F#8P8D8P8"
MT1$ = "MLE16>C8P16D16C8P16C8P16D8P8MNA64B64>C64C#64MS"
PLAY "D8P16E16D8P16C16<"
PLAY "B8P16A16G8P16B16>T165E8P16D16C8P16E16F#8P16E16D8P16F#16"
PLAY "MSG8P16MLF#16E8P16F#16MSD#8P8ML"
PLAY "F#64G64A64A#64MNB8P8C#8D#8E8"
PLAY "F#8G8G#8B8>C8>"
PLAY "X" + VARPTR$(MT2$) + "F#8>>B8A#8A8G8F#8"
PLAY "E8D8C8>MNC#16MSD8P8D8P8T150MND12D12D12"
PLAY "E8P8E8P8F#8P8D8P8E2T160X" + VARPTR$(MT$) + "E.P16<"
PLAY "X" + VARPTR$(MT1$) + "T170"
PLAY "X" + VARPTR$(MT3$)
PLAY "D8P8D2CC2CCCP16C2.D2.<"
PLAY "A16P64A8.P64A16>C2P64C.P16CE2."
PLAY "D.P16C2.P8CD2.P16E2."
PLAY "P16DC2P16T90C8.D16C1P4"
END SUB
SUB OLTOB
PLAY "o2T120MLAP64AP64AG#Ao3Co2B-DP16GF"
PLAY "E8F8GCA2.P16AP64AP64Ao3DCP64Co2B-DP32G"
PLAY "FE8F8AGF2.P8AP64AP64AGFE2P64EP32EDEFGA2.P16AP64AP64AG#A"
PLAY "o3Co2B-DP16o3DCo2FA.G8F1P4o3"
END SUB
SUB SN
PLAY "o4"
PLAY "D2P64DC2P64CC.C.D2P64DF."
PLAY "D8C2.E2.P16T110C.>> Page 3 of TUNE.BAS ends here. Continued on next page.
___ Blue Wave/DOS v2.30
--- Maximus 3.00
---------------