home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / mixed / gemisch1.bas < prev    next >
Encoding:
BASIC Source File  |  1989-08-18  |  1014 b   |  28 lines
  1. '* ------------------------------------------------------- *
  2. '*                    GEMISCH1.BAS                         *
  3. '*   1. Beispiel für gemischt-sprachiges Programmieren     *
  4. '*          Aufruf von DEMO.C als Unterprogramm            *
  5. '*          (C) 1989  Michael Rother & TOOLBOX             *
  6. '* ------------------------------------------------------- *
  7.  
  8. '* Das gesamte C-Programm über "main()" als Unterprogramm
  9. '* deklarieren
  10. DECLARE SUB main CDECL
  11.  
  12. '* Vermindern des BASIC-Far Heaps, damit die allokierenden
  13. '* C-Funktionen auch Platz vorfinden.
  14.  
  15. PRINT "Der freie Far Heap beträgt nun "; SETMEM(0); " Bytes"
  16. PRINT "Freigabe des Far Heap um 40000 Bytes"
  17. Freigabe = SETMEM(-40000)
  18. PRINT "Der freie Far Heap beträgt nun "; SETMEM(0); " Bytes"
  19.  
  20. '* Programmstart
  21.  
  22. PRINT "Das Hauptprogramm ist in Basic!"
  23. CALL main
  24. PRINT "Zum Schluß wieder in Basic!"
  25. END
  26. '* ------------------------------------------------------- *
  27. '*                  Ende von GEMISCH1.BAS                  *
  28.