/*
 * DemoPrg.c     : Demoprg für B2-MIDI-Playerroutinen
 * Compiler      : SAS-C 5.10
 * Date          : 20-Sep-1991
 * Version       : 1.0
 * Revision      : 1
 *
 * © 1991 by Wolfgang Küting  -  K·WARE - Hard- & Software
 * Es gelten die gleichen Kopierbestimmungen wie für den original
 * Assembler-Source von Jörg Schließer
 */

#include <exec/types.h>
#include <stdio.h>
#include <dos.h>
#include <stdlib.h>
#include <private/b2mplay.h>

#include <proto/all.h>


/*void _main(void);*/

void _main()
{
  struct B2Data *ScoreData;


/* Song laden und Zeiger auf Struktur übergeben
** Geladen wird der Song           "The_Song"
** aus dem Songverzeichnis         "RAM:"
** und dem Instrumentenverzeichnis "RAM:"         */
  ScoreData = LoadB2Score("The_Song", "RAM:","RAM:");
/* Fehler vorhanden? */
  if(B2_ERROR == 0)
  { /* Nein, gut... */
    PlayB2Score(ScoreData); /* Song-Spiel starten */
    Delay(6000);            /* 2 Minuten warten   */
    StopB2Score();          /* Song-Spiel stoppen */
    FreeB2Score(ScoreData); /* Speicher freigeben */
  }

  _exit(0);
}