home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / RCT1,62.DMS / in.adf / LIBS / GFABASIC / rct_gfabas.lst
Encoding:
File List  |  1991-11-15  |  10.9 KB  |  642 lines
  1. '
  2. ' RCTINIT MUß zum Öffnen der Library aufgerufen werden.
  3. ' Bitte unbedingt den Rückgabewert überprüfen!!!
  4. ' Die Variable rctbase% darf in Ihrem Programm nur als Library Base Adresse
  5. ' verwendet werden !!!
  6. '
  7. FUNCTION rctinit
  8.   LOCAL libname$
  9.   DIM m68%(15)
  10.   libname$="rct.library"
  11.   libname$=libname$+CHR$(0)
  12.   rctbase%=OpenLibrary(V:libname$,0)
  13.   IF rctbase%
  14.      RETURN TRUE
  15.   ELSE
  16.      RETURN FALSE
  17.   ENDIF
  18. ENDFUNC
  19. '
  20. ' RCTCLOSE MUß unbedingt vor ENDE des Prorgamms angesprungen werden
  21. ' damit keine "Library-Leiche" entsteht !!!
  22. '
  23. FUNCTION rctclose
  24.   LOCAL x%
  25.   IF rctbase%
  26.      ~CloseLibrary(rctbase%)
  27.      RETURN 1
  28.   ENDIF
  29.   RETURN 0
  30. ENDFUNC
  31. '
  32. ' Liefert die Länge eines C-Strings
  33. '
  34. FUNCTION strlen(str%)
  35.   LOCAL i%
  36.   i%=0
  37.   WHILE BYTE{str%+i%}<>0
  38.      INC i%
  39.   WEND
  40.   RETURN i%
  41. ENDFUNC
  42. '
  43. '
  44. FUNCTION rctload(filename$)
  45.   filename$=filename$+CHR$(0)
  46.   m68%(8)=V:filename$
  47.   m68%(14)=rctbase%
  48.   RCALL rctbase%-30,m68%()
  49.   RETURN m68%(0)
  50. ENDFUNC
  51. '
  52. '
  53. FUNCTION rctfree(base%)
  54.   m68%(8)=base%
  55.   m68%(14)=rctbase%
  56.   RCALL rctbase%-36,m68%()
  57.   RETURN m68%(0)
  58. ENDFUNC
  59. '
  60. ' art%=0 Requester art% > 0 Menüleiste
  61. '
  62. FUNCTION rctaddr(base%,art%,id%)
  63.   m68%(8)=base%
  64.   m68%(0)=art%
  65.   m68%(1)=id%
  66.   m68%(14)=rctbase%
  67.   RCALL rctbase%-42,m68%()
  68.   RETURN m68%(0)
  69. ENDFUNC
  70. '
  71. '
  72. FUNCTION reqcenter(base%,req%,wind%)
  73.   m68%(8)=base%
  74.   m68%(9)=req%
  75.   m68%(10)=wind%
  76.   m68%(14)=rctbase%
  77.   RCALL rctbase%-48,m68%()
  78.   RETURN m68%(0)
  79. ENDFUNC
  80. '
  81. '
  82. FUNCTION reqdraw(base%,req%,window%)
  83.   m68%(8)=base%
  84.   m68%(9)=req%
  85.   m68%(10)=window%
  86.   m68%(14)=rctbase%
  87.   RCALL rctbase%-54,m68%()
  88.   RETURN m68%(0)
  89. ENDFUNC
  90. '
  91. '
  92. FUNCTION reqend(base%,req%,wind%)
  93.   m68%(8)=base%
  94.   m68%(9)=req%
  95.   m68%(10)=wind%
  96.   m68%(14)=rctbase%
  97.   RCALL rctbase%-60,m68%()
  98.   RETURN m68%(0)
  99. ENDFUNC
  100. '
  101. '
  102. FUNCTION setreqstruct(base%,req%,item%,wert%)
  103.   m68%(8)=base%
  104.   m68%(9)=req%
  105.   m68%(0)=item%
  106.   m68%(1)=wert%
  107.   m68%(14)=rctbase%
  108.   RCALL rctbase%-72,m68%()
  109.   RETURN m68%(0)
  110. ENDFUNC
  111. '
  112. '
  113. FUNCTION getreqstruct(base%,req%,item%)
  114.   m68%(8)=base%
  115.   m68%(9)=req%
  116.   m68%(0)=item%
  117.   m68%(14)=rctbase%
  118.   RCALL rctbase%-66,m68%()
  119.   RETURN m68%(0)
  120. ENDFUNC
  121. '
  122. '
  123. FUNCTION setreqtext(base%,req%,id%,text$)
  124.   text$=text$+CHR$(0)
  125.   m68%(8)=base%
  126.   m68%(9)=req%
  127.   m68%(0)=id%
  128.   m68%(10)=V:text$
  129.   m68%(14)=rctbase%
  130.   RCALL rctbase%-78,m68%()
  131.   RETURN m68%(0)
  132. ENDFUNC
  133. '
  134. '
  135. FUNCTION getreqtext$(base%,req%,id%)
  136.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  137.   m68%(8)=base%
  138.   m68%(9)=req%
  139.   m68%(0)=id%
  140.   m68%(14)=rctbase%
  141.   RCALL rctbase%-84,m68%()
  142.   IF m68%(0)
  143.      cstr%=m68%(0)
  144.      len%=@strlen(cstr%)
  145.      bas$=SPACE$(len%)
  146.      basstr%=V:bas$
  147.      FOR i%=0 TO len%
  148.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  149.      NEXT i%
  150.   ENDIF
  151.   RETURN bas$
  152. ENDFUNC
  153. '
  154. '
  155. FUNCTION gettextstruct(base%,req%,id%,item%)
  156.   m68%(8)=base%
  157.   m68%(9)=req%
  158.   m68%(0)=id%
  159.   m68%(1)=item%
  160.   m68%(14)=rctbase%
  161.   RCALL rctbase%-90,m68%()
  162.   RETURN m68%(0)
  163. ENDFUNC
  164. '
  165. '
  166. FUNCTION settextstruct(base%,req%,id%,item%,wert%)
  167.   m68%(8)=base%
  168.   m68%(9)=req%
  169.   m68%(0)=id%
  170.   m68%(1)=item%
  171.   m68%(2)=wert%
  172.   m68%(14)=rctbase%
  173.   RCALL rctbase%-96,m68%()
  174.   RETURN m68%(0)
  175. ENDFUNC
  176. '
  177. '
  178. FUNCTION setgadtext(base%,req%,id%,text$)
  179.   text$=text$+CHR$(0)
  180.   m68%(8)=base%
  181.   m68%(9)=req%
  182.   m68%(0)=id%
  183.   m68%(10)=V:text$
  184.   m68%(14)=rctbase%
  185.   RCALL rctbase%-102,m68%()
  186.   RETURN m68%(0)
  187. ENDFUNC
  188. '
  189. '
  190. FUNCTION getgadtext$(base%,req%,id%)
  191.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  192.   m68%(8)=base%
  193.   m68%(9)=req%
  194.   m68%(0)=id%
  195.   m68%(14)=rctbase%
  196.   RCALL rctbase%-108,m68%()
  197.   IF m68%(0)
  198.      cstr%=m68%(0)
  199.      len%=@strlen(cstr%)
  200.      bas$=SPACE$(len%)
  201.      basstr%=V:bas$
  202.      FOR i%=0 TO len%
  203.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  204.      NEXT i%
  205.   ENDIF
  206.   RETURN bas$
  207. ENDFUNC
  208. '
  209. '
  210. FUNCTION getgadstruct(base%,req%,id%,item%)
  211.   m68%(8)=base%
  212.   m68%(9)=req%
  213.   m68%(0)=id%
  214.   m68%(1)=item%
  215.   m68%(14)=rctbase%
  216.   RCALL rctbase%-114,m68%()
  217.   RETURN m68%(0)
  218. ENDFUNC
  219. '
  220. '
  221. FUNCTION setgadstruct(base%,req%,id%,item%,wert%)
  222.   m68%(8)=base%
  223.   m68%(9)=req%
  224.   m68%(0)=id%
  225.   m68%(1)=item%
  226.   m68%(2)=wert%
  227.   m68%(14)=rctbase%
  228.   RCALL rctbase%-120,m68%()
  229.   RETURN m68%(0)
  230. ENDFUNC
  231. '
  232. '
  233. FUNCTION redrawgadgets(base%,req%,id%)
  234.   m68%(8)=base%
  235.   m68%(9)=req%
  236.   m68%(0)=id%
  237.   m68%(14)=rctbase%
  238.   RCALL rctbase%-126,m68%()
  239.   RETURN m68%(0)
  240. ENDFUNC
  241. '
  242. '
  243. FUNCTION redrawgad(base%,req%,id%,anz%)
  244.   m68%(8)=base%
  245.   m68%(9)=req%
  246.   m68%(0)=id%
  247.   m68%(1)=anz%
  248.   m68%(14)=rctbase%
  249.   RCALL rctbase%-132,m68%()
  250.   RETURN m68%(0)
  251. ENDFUNC
  252. '
  253. '
  254. FUNCTION aktivegad(base%,req%,id%)
  255.   m68%(8)=base%
  256.   m68%(9)=req%
  257.   m68%(0)=id%
  258.   m68%(14)=rctbase%
  259.   RCALL rctbase%-138,m68%()
  260.   RETURN m68%(0)
  261. ENDFUNC
  262. '
  263. '
  264. FUNCTION setstrgadtext(base%,req%,id%,text$)
  265.   text$=text$+CHR$(0)
  266.   m68%(8)=base%
  267.   m68%(9)=req%
  268.   m68%(0)=id%
  269.   m68%(10)=V:text$
  270.   m68%(14)=rctbase%
  271.   RCALL rctbase%-144,m68%()
  272.   RETURN m68%(0)
  273. ENDFUNC
  274. '
  275. '
  276. FUNCTION getstrgadtext$(base%,req%,id%)
  277.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  278.   m68%(8)=base%
  279.   m68%(9)=req%
  280.   m68%(0)=id%
  281.   m68%(14)=rctbase%
  282.   RCALL rctbase%-150,m68%()
  283.   IF m68%(0)
  284.      cstr%=m68%(0)
  285.      len%=@strlen(cstr%)
  286.      bas$=SPACE$(len%)
  287.      basstr%=V:bas$
  288.      FOR i%=0 TO len%
  289.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  290.      NEXT i%
  291.   ENDIF
  292.   RETURN bas$
  293. ENDFUNC
  294. '
  295. '
  296. FUNCTION setstrgadstruct(base%,req%,id%,item%,wert%)
  297.   m68%(8)=base%
  298.   m68%(9)=req%
  299.   m68%(0)=id%
  300.   m68%(1)=item%
  301.   m68%(2)=wert%
  302.   m68%(14)=rctbase%
  303.   RCALL rctbase%-156,m68%()
  304.   RETURN m68%(0)
  305. ENDFUNC
  306. '
  307. '
  308. FUNCTION getstrgadstruct(base%,req%,id%,item%)
  309.   m68%(8)=base%
  310.   m68%(9)=req%
  311.   m68%(0)=id%
  312.   m68%(1)=item%
  313.   m68%(14)=rctbase%
  314.   RCALL rctbase%-162,m68%()
  315.   RETURN m68%(0)
  316. ENDFUNC
  317. '
  318. '
  319. FUNCTION setpropgadstruct(base%,req%,id%,item%,wert%)
  320.   m68%(8)=base%
  321.   m68%(9)=req%
  322.   m68%(0)=id%
  323.   m68%(1)=item%
  324.   m68%(2)=wert%
  325.   m68%(14)=rctbase%
  326.   RCALL rctbase%-168,m68%()
  327.   RETURN m68%(0)
  328. ENDFUNC
  329. '
  330. '
  331. FUNCTION getpropgadstruct(base%,req%,id%,item%)
  332.   m68%(8)=base%
  333.   m68%(9)=req%
  334.   m68%(0)=id%
  335.   m68%(1)=item%
  336.   m68%(14)=rctbase%
  337.   RCALL rctbase%-174,m68%()
  338.   RETURN m68%(0)
  339. ENDFUNC
  340. '
  341. '
  342. FUNCTION menudraw(base%,menu%,wind%)
  343.   m68%(8)=base%
  344.   m68%(9)=menu%
  345.   m68%(10)=wind%
  346.   m68%(14)=rctbase%
  347.   RCALL rctbase%-180,m68%()
  348.   RETURN m68%(0)
  349. ENDFUNC
  350. '
  351. '
  352. FUNCTION menuend(base%,menu%,wind%)
  353.   m68%(8)=base%
  354.   m68%(9)=menu%
  355.   m68%(10)=wind%
  356.   m68%(14)=rctbase%
  357.   RCALL rctbase%-186,m68%()
  358.   RETURN m68%(0)
  359. ENDFUNC
  360. '
  361. '
  362. FUNCTION setmenutitle(base%,menu%,id%,text$)
  363.   text$=text$+CHR$(0)
  364.   m68%(8)=base%
  365.   m68%(9)=menu%
  366.   m68%(0)=id%
  367.   m68%(10)=V:text$
  368.   m68%(14)=rctbase%
  369.   RCALL rctbase%-192,m68%()
  370.   RETURN m68%(0)
  371. ENDFUNC
  372. '
  373. '
  374. FUNCTION getmenutitle$(base%,menu%,id%)
  375.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  376.   m68%(8)=base%
  377.   m68%(9)=menu%
  378.   m68%(0)=id%
  379.   m68%(14)=rctbase%
  380.   RCALL rctbase%-198,m68%()
  381.   IF m68%(0)
  382.      cstr%=m68%(0)
  383.      len%=@strlen(cstr%)
  384.      bas$=SPACE$(len%)
  385.      basstr%=V:bas$
  386.      FOR i%=0 TO len%
  387.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  388.      NEXT i%
  389.   ENDIF
  390.   RETURN bas$
  391. ENDFUNC
  392. '
  393. '
  394. FUNCTION setmenustruct(base%,menu%,id%,item%,wert%)
  395.   m68%(8)=base%
  396.   m68%(9)=menu%
  397.   m68%(0)=id%
  398.   m68%(1)=item%
  399.   m68%(2)=wert%
  400.   m68%(14)=rctbase%
  401.   RCALL rctbase%-204,m68%()
  402.   RETURN m68%(0)
  403. ENDFUNC
  404. '
  405. '
  406. FUNCTION getmenustruct(base%,menu%,id%,item%)
  407.   m68%(8)=base%
  408.   m68%(9)=menu%
  409.   m68%(0)=id%
  410.   m68%(1)=item%
  411.   m68%(14)=rctbase%
  412.   RCALL rctbase%-210,m68%()
  413.   RETURN m68%(0)
  414. ENDFUNC
  415. '
  416. '
  417. FUNCTION setmenuitext(base%,menu%,menuid%,itemid%,text$)
  418.   text$=text$+CHR$(0)
  419.   m68%(8)=base%
  420.   m68%(9)=menu%
  421.   m68%(0)=menuid%
  422.   m68%(1)=itemid%
  423.   m68%(10)=V:text$
  424.   m68%(14)=rctbase%
  425.   RCALL rctbase%-216,m68%()
  426.   RETURN m68%(0)
  427. ENDFUNC
  428. '
  429. '
  430. FUNCTION getmenuitext$(base%,menu%,menuid%,itemid%)
  431.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  432.   m68%(8)=base%
  433.   m68%(9)=menu%
  434.   m68%(0)=menuid%
  435.   m68%(1)=itemid%
  436.   m68%(14)=rctbase%
  437.   RCALL rctbase%-222,m68%()
  438.   IF m68%(0)
  439.      cstr%=m68%(0)
  440.      len%=@strlen(cstr%)
  441.      PRINT len%
  442.      bas$=SPACE$(len%)
  443.      basstr%=V:bas$
  444.      FOR i%=0 TO len%
  445.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  446.      NEXT i%
  447.   ENDIF
  448.   RETURN bas$
  449. ENDFUNC
  450. '
  451. '
  452. FUNCTION setmenuitemstruct(base%,menu%,menuid%,itemid%,item%,wert%)
  453.   m68%(8)=base%
  454.   m68%(9)=menu%
  455.   m68%(0)=menuid%
  456.   m68%(1)=itemid%
  457.   m68%(2)=item%
  458.   m68%(3)=wert%
  459.   m68%(14)=rctbase%
  460.   RCALL rctbase%-228,m68%()
  461.   RETURN m68%(0)
  462. ENDFUNC
  463. '
  464. '
  465. FUNCTION getmenuitemstruct(base%,menu%,menuid%,itemid%,item%)
  466.   m68%(8)=base%
  467.   m68%(9)=menu%
  468.   m68%(0)=menuid%
  469.   m68%(1)=itemid%
  470.   m68%(2)=item%
  471.   m68%(14)=rctbase%
  472.   RCALL rctbase%-234,m68%()
  473.   RETURN m68%(0)
  474. ENDFUNC
  475. '
  476. '
  477. FUNCTION setmenustext(base%,menu%,menuid%,itemid%,subid%,text$)
  478.   text$=text$+CHR$(0)
  479.   m68%(8)=base%
  480.   m68%(9)=menu%
  481.   m68%(0)=menuid%
  482.   m68%(1)=itemid%
  483.   m68%(2)=subid%
  484.   m68%(10)=V:text$
  485.   m68%(14)=rctbase%
  486.   RCALL rctbase%-240,m68%()
  487.   RETURN m68%(0)
  488. ENDFUNC
  489. '
  490. '
  491. FUNCTION getmenustext$(base%,menu%,menuid%,itemid%,subid%)
  492.   LOCAL spec%,cstr%,len%,bas$,basstr%,i%
  493.   m68%(8)=base%
  494.   m68%(9)=menu%
  495.   m68%(0)=menuid%
  496.   m68%(1)=itemid%
  497.   m68%(2)=subid%
  498.   m68%(14)=rctbase%
  499.   RCALL rctbase%-246,m68%()
  500.   IF m68%(0)
  501.      cstr%=m68%(0)
  502.      len%=@strlen(cstr%)
  503.      bas$=SPACE$(len%)
  504.      basstr%=V:bas$
  505.      FOR i%=0 TO len%
  506.         BYTE{basstr%+i%}=BYTE{cstr%+i%}
  507.      NEXT i%
  508.   ENDIF
  509.   RETURN bas$
  510. ENDFUNC
  511. '
  512. '
  513. FUNCTION setmenusubstruct(base%,menu%,menuid%,itemid%,subid%,item%,wert%)
  514.   m68%(8)=base%
  515.   m68%(9)=menu%
  516.   m68%(0)=menuid%
  517.   m68%(1)=itemid%
  518.   m68%(2)=subid%
  519.   m68%(3)=item%
  520.   m68%(4)=wert%
  521.   m68%(14)=rctbase%
  522.   RCALL rctbase%-252,m68%()
  523.   RETURN m68%(0)
  524. ENDFUNC
  525. '
  526. '
  527. FUNCTION getmenusubstruct(base%,menu%,menuid%,itemid%,subid%,item%)
  528.   m68%(8)=base%
  529.   m68%(9)=menu%
  530.   m68%(0)=menuid%
  531.   m68%(1)=itemid%
  532.   m68%(2)=subid%
  533.   m68%(3)=item%
  534.   m68%(14)=rctbase%
  535.   RCALL rctbase%-258,m68%()
  536.   RETURN m68%(0)
  537. ENDFUNC
  538. '
  539. '
  540. FUNCTION reqdrawwindow(base%,req%,screen%,title$)
  541.   title$=title$+CHR$(0)
  542.   m68%(8)=base%
  543.   m68%(9)=req%
  544.   m68%(10)=screen%
  545.   m68%(11)=V:title$
  546.   m68%(14)=rctbase%
  547.   RCALL rctbase%-264,m68%()
  548.   RETURN m68%(0)
  549. ENDFUNC
  550. '
  551. '
  552. FUNCTION reqwait(base%,req%,class%)
  553.   m68%(8)=base%
  554.   m68%(9)=req%
  555.   m68%(10)=class%
  556.   m68%(14)=rctbase%
  557.   RCALL rctbase%-270,m68%()
  558.   RETURN m68%(0)
  559. ENDFUNC
  560. '
  561. '
  562. FUNCTION showscreen(base%,mod%,depth%,title$)
  563.   title$=title$+CHR$(0)
  564.   m68%(8)=base%
  565.   m68%(0)=mod%
  566.   m68%(1)=depth%
  567.   m68%(9)=V:title$
  568.   m68%(14)=rctbase%
  569.   RCALL rctbase%-276,m68%()
  570.   RETURN m68%(0)
  571. ENDFUNC
  572. '
  573. '
  574. FUNCTION remscreen(base%,screen%)
  575.   m68%(8)=base%
  576.   m68%(9)=screen%
  577.   m68%(14)=rctbase%
  578.   RCALL rctbase%-282,m68%()
  579.   RETURN m68%(0)
  580. ENDFUNC
  581. '
  582. '
  583. FUNCTION form_alert(default%,alertstr$)
  584.   alertstr$=alertstr$+CHR$(0)
  585.   m68%(8)=V:alertstr$
  586.   m68%(0)=default%
  587.   m68%(14)=rctbase%
  588.   RCALL rctbase%-288,m68%()
  589.   RETURN m68%(0)
  590. ENDFUNC
  591. '
  592. '
  593. FUNCTION filer( RctFileRequester%)
  594.   m68%(8)=RctFileRequester%
  595.   m68%(14)=rctbase%
  596.   RCALL rctbase%-294,m68%()
  597.   RETURN m68%(0)
  598. ENDFUNC
  599. '
  600. '
  601. FUNCTION filercachefree( RctFileRequester%)
  602.   m68%(8)=RctFileRequester%
  603.   m68%(14)=rctbase%
  604.   RCALL rctbase%-300,m68%()
  605.   RETURN m68%(0)
  606. ENDFUNC
  607. '
  608. '
  609. FUNCTION waitall( MsgPort%, Message%)
  610.   m68%(8)=MsgPort%
  611.   m68%(9)=Message%
  612.   m68%(14)=rctbase%
  613.   RCALL rctbase%-306,m68%()
  614.   RETURN m68%(0)
  615. ENDFUNC
  616. '
  617. '
  618. FUNCTION gaddrawwindow(base%,req%,screen%,title$,idcmp%,flags%)
  619.   title$=title$+CHR$(0)
  620.   m68%(8)=base%
  621.   m68%(9)=req%
  622.   m68%(10)=screen%
  623.   m68%(11)=V:title$
  624.   m68%(14)=rctbase%
  625.   m68%(0)=idcmp%
  626.   m68%(1)=flags%
  627.   RCALL rctbase%-312,m68%()
  628.   RETURN m68%(0)
  629. ENDFUNC
  630. '
  631. '
  632. FUNCTION getpattern( base%, index%)
  633.   m68%(8)=base%
  634.   m68%(0)=index%
  635.   m68%(14)=rctbase%
  636.   RCALL rctbase%-318,m68%()
  637.   RETURN m68%(0)
  638. ENDFUNC
  639. '
  640. '
  641.  
  642.