home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / RCT1,62.DMS / in.adf / LIBS / AMIGABASIC / rct_amigabasic.vorsp (.txt) next >
Encoding:
AmigaBASIC Source Code  |  1991-11-15  |  2.2 KB  |  59 lines
  1. DECLARE FUNCTION rctload& LIBRARY
  2. DECLARE FUNCTION rctfree% LIBRARY
  3. DECLARE FUNCTION rctaddr& LIBRARY
  4. DECLARE FUNCTION reqcenter% LIBRARY
  5. DECLARE FUNCTION reqdraw% LIBRARY
  6. DECLARE FUNCTION reqend% LIBRARY
  7. DECLARE FUNCTION getreqstruct& LIBRARY
  8. DECLARE FUNCTION setreqstruct% LIBRARY
  9. DECLARE FUNCTION setreqtext% LIBRARY
  10. DECLARE FUNCTION getreqtext& LIBRARY
  11. DECLARE FUNCTION gettextstruct& LIBRARY
  12. DECLARE FUNCTION settextstruct% LIBRARY
  13. DECLARE FUNCTION setgadtext% LIBRARY
  14. DECLARE FUNCTION getgadtext& LIBRARY
  15. DECLARE FUNCTION getgadstruct& LIBRARY
  16. DECLARE FUNCTION setgadstruct% LIBRARY
  17. DECLARE FUNCTION redrawgadgets% LIBRARY
  18. DECLARE FUNCTION redrawgad% LIBRARY
  19. DECLARE FUNCTION activegad% LIBRARY
  20. DECLARE FUNCTION setstrgadtext% LIBRARY
  21. DECLARE FUNCTION getstrgadtext& LIBRARY       
  22. DECLARE FUNCTION getstrgadstruct& LIBRARY
  23. DECLARE FUNCTION setstrgadstruct% LIBRARY
  24. DECLARE FUNCTION getpropgadstruct& LIBRARY
  25. DECLARE FUNCTION setpropgadstruct% LIBRARY
  26. DECLARE FUNCTION menudraw% LIBRARY
  27. DECLARE FUNCTION menuend% LIBRARY
  28. DECLARE FUNCTION setmenutitle% LIBRARY
  29. DECLARE FUNCTION getmenutitle& LIBRARY
  30. DECLARE FUNCTION setmenustruct% LIBRARY
  31. DECLARE FUNCTION getmenustruct& LIBRARY
  32. DECLARE FUNCTION setmenuitext% LIBRARY
  33. DECLARE FUNCTION getmenuitext& LIBRARY
  34. DECLARE FUNCTION setmenuitemstruct% LIBRARY
  35. DECLARE FUNCTION getmenuitemstruct& LIBRARY
  36. DECLARE FUNCTION setmenustext% LIBRARY
  37. DECLARE FUNCTION getmenustext& LIBRARY
  38. DECLARE FUNCTION setmenusubstruct% LIBRARY
  39. DECLARE FUNCTION getmenusubstruct& LIBRARY
  40. DECLARE FUNCTION reqdrawwindow& LIBRARY
  41. DECLARE FUNCTION reqwait% LIBRARY
  42.  
  43. LIBRARY "rct.library"
  44.  
  45. ON ERROR GOTO CloseAll
  46. ON BREAK GOSUB CloseAll
  47. BREAK ON
  48. REM ***** Hier das Hauptprogramm *****
  49.  GOTO CloseAll
  50. END
  51.    
  52. CloseAll:
  53.   IF ERR=150 THEN CLS:PRINT "Fehler bei Bibliotheksaufruf":FOR r=0 TO 2000:NEXT r
  54.   LIBRARY CLOSE
  55.   BREAK OFF
  56.   ON ERROR GOTO 0
  57. END
  58.  
  59.