home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / Lib&Int.asc < prev    next >
Text File  |  1995-05-05  |  1KB  |  57 lines
  1. ' cODED bY ßudda/NFA   
  2. ' Done: 26·12·1994 
  3. ' Xtra: 14·03·1995 
  4.  
  5. Procedure _OPEN_WORKBENCH
  6.    RESULT=Intcall(-210)
  7. End Proc[RESULT]
  8. Procedure _WORKBENCH_TOGGLE[FLAG]
  9.    If FLAG=0 Then OFFSET=-336
  10.    If FLAG=1 Then OFFSET=-342
  11.    RESULT=Intcall(OFFSET)
  12. End Proc
  13. Procedure _OPEN_WINDOW[NUMBER,X,Y,WIDTH,HEIGHT,TITLE$]
  14.    Open Port NUMBER,"RAW:"+Str$(X)+"/"+Str$(Y)+"/"+Str$(WIDTH)+"/"+Str$(HEIGHT)+"/"+TITLE$
  15. End Proc
  16. Procedure _WINDOW_TEXT[NUMBER,TXT$]
  17.    Print #NUMBER,TXT$
  18. End Proc
  19. Procedure _CLOSE_WINDOW[NUMBER]
  20.    Close NUMBER
  21. End Proc
  22.  
  23. Procedure _OPEN_SCREEN[NUMBER]
  24.    Areg(0)=NUMBER : Rem screen number
  25.    RESULT=Intcall(-198) : Rem open screen  
  26. End Proc[RESULT]
  27. Procedure _CLOSE_SCREEN[NUMBER]
  28.    Areg(0)=NUMBER : Rem screen number
  29.    RESULT=Intcall(-66) : Rem close screen   
  30. End Proc[RESULT]
  31.  
  32. Procedure _DISPLAY_BEEP[_SCREEN_NUMBER]
  33.    Areg(0)=_SCREEN_NUMBER : Rem screen to beep on
  34.    RESULT=Intcall(-96) : Rem display beep 
  35. End Proc[RESULT]
  36. Procedure _ALERT[MESSAGE$,HEIGHT]
  37.    Dreg(0)=0 : Rem alert number 
  38.    Areg(0)=Varptr(MESSAGE$) : Rem start of string  
  39.    Dreg(1)=HEIGHT : Rem height 
  40.    RESULT=Intcall(-90) : Rem DisplayAlert 
  41. End Proc[RESULT]
  42.  
  43. Procedure _SCREEN_TO_BACK[NUMBER]
  44.    Areg(0)=NUMBER : Rem screen number
  45.    RESULT=Intcall(-246) : Rem screen to back 
  46. End Proc[RESULT]
  47. Procedure _SCREEN_TO_FRONT[NUMBER]
  48.    Areg(0)=NUMBER : Rem screen number
  49.    RES=Intcall(-252) : Rem screen to front
  50. End Proc[RESULT]
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.