' cODED bY ßudda/NFA   
' Done: 26·12·1994 
' Xtra: 14·03·1995 

Procedure _OPEN_WORKBENCH
   RESULT=Intcall(-210)
End Proc[RESULT]
Procedure _WORKBENCH_TOGGLE[FLAG]
   If FLAG=0 Then OFFSET=-336
   If FLAG=1 Then OFFSET=-342
   RESULT=Intcall(OFFSET)
End Proc
Procedure _OPEN_WINDOW[NUMBER,X,Y,WIDTH,HEIGHT,TITLE$]
   Open Port NUMBER,"RAW:"+Str$(X)+"/"+Str$(Y)+"/"+Str$(WIDTH)+"/"+Str$(HEIGHT)+"/"+TITLE$
End Proc
Procedure _WINDOW_TEXT[NUMBER,TXT$]
   Print #NUMBER,TXT$
End Proc
Procedure _CLOSE_WINDOW[NUMBER]
   Close NUMBER
End Proc

Procedure _OPEN_SCREEN[NUMBER]
   Areg(0)=NUMBER : Rem screen number
   RESULT=Intcall(-198) : Rem open screen  
End Proc[RESULT]
Procedure _CLOSE_SCREEN[NUMBER]
   Areg(0)=NUMBER : Rem screen number
   RESULT=Intcall(-66) : Rem close screen   
End Proc[RESULT]

Procedure _DISPLAY_BEEP[_SCREEN_NUMBER]
   Areg(0)=_SCREEN_NUMBER : Rem screen to beep on
   RESULT=Intcall(-96) : Rem display beep 
End Proc[RESULT]
Procedure _ALERT[MESSAGE$,HEIGHT]
   Dreg(0)=0 : Rem alert number 
   Areg(0)=Varptr(MESSAGE$) : Rem start of string  
   Dreg(1)=HEIGHT : Rem height 
   RESULT=Intcall(-90) : Rem DisplayAlert 
End Proc[RESULT]

Procedure _SCREEN_TO_BACK[NUMBER]
   Areg(0)=NUMBER : Rem screen number
   RESULT=Intcall(-246) : Rem screen to back 
End Proc[RESULT]
Procedure _SCREEN_TO_FRONT[NUMBER]
   Areg(0)=NUMBER : Rem screen number
   RES=Intcall(-252) : Rem screen to front
End Proc[RESULT]