🚀 go-pugleaf

From article <3818@alvin.mcnc.org>, by houser@mcnc.org (Kevin D. Houser ):
> 
>  In an effort to dump data to the midi ports on my Atari ST the following
> code was tried:
> 
>      VAR
>        i:BYTE;
>      BEGIN
>        i:=$90
>           ^
>            
>  The compiler returned with a type not compatible error. So, how do I
> assign an 8bit value to the variable <i>? I am new to Modula2, so it may
> be trivial; but it is very important. Any help would be greatly appreciated.
> (I'm using TDI-Modula2/ST by the way)
> 
> Thanx,
> Kevin Houser
> houser@mcnc.org
> (919) 859-5467 H
> (919) 248-1996 W
>  
First of all hexadecimal constants in Modula-2 are designed by an appended H.
E.g. 90H or 0FFH.
Then you write your data whith BConOut and that takes a character.
If you import the appropriate items from BIOS, the following should work:

   VAR ch: CHAR;
   BEGIN
      ch:=CHAR(90H);
      BConOut(HSS,ch);

You can also give character constants in octal, that is ch:=220C, but for Midi
this is not so fine.

---

kloppenburg@kmx.gmd.dbp.de
kloppen@gmdzi.uucp
A
A
A
A
A
A
      BconOut
Then you write your data to the Midi whith Bconout.