home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / tricks / hgcfile.bas < prev    next >
Encoding:
BASIC Source File  |  1988-11-21  |  824 b   |  35 lines
  1. REM --------------------------------------------------------
  2. REM                    HGCFILE.BAS
  3. REM       Sichern und Laden von Hercules-Grafiken
  4. REM   (c) 1988 by Heimsoeth Software / Technical Support
  5. REM --------------------------------------------------------
  6. REM           veröffentlicht in TOOLBOX 2'89
  7. REM --------------------------------------------------------
  8. SUB SaveHGC(Datei$)
  9.   DEF SEG = &HB000
  10.   BSAVE Datei$, 0, (361*90)
  11.   DEF SEG
  12. END SUB
  13.  
  14. SUB LoadHGC(Datei$)
  15.   DEF SEG = HB000
  16.   BLOAD datei$, 0
  17.   DEF SEG
  18. END SUB
  19.  
  20. REM Demo
  21. SCREEN 2
  22. LINE(0,0)-(719,347),,b
  23. CIRCLE(360,175),100
  24. CALL SaveHGC("TEST.PIC")
  25. BEEP
  26. CLS
  27. CALL LoadHGC("TEST.PIC")
  28. WHILE NOT INSTAT
  29. WEND
  30. SCREEN 0
  31. END
  32.  
  33. REM --------------------------------------------------------
  34. REM                 Ende von HGCFILE.BAS
  35.