home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / mload.bad < prev    next >
Encoding:
Text File  |  1990-09-20  |  1.1 KB  |  40 lines
  1. 'Program Name    : Mload.bas   load graphics images into bitplanes
  2. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  3. 'Date            :
  4. 'Compuserve #    : GO PCVENB, Vendor #12,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,n,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172
  8.  
  9.  
  10. path$=""
  11.  
  12. defint a-z
  13.  
  14. nam$="ega"
  15. screen 9,,0,0
  16. os = &h8000
  17. call Mload(nam$,os)
  18. screen 9,,0,1
  19. os = 0
  20. call Mload(nam$,os)
  21. screen 9,,0,0
  22.  
  23.  
  24.  
  25. Idle:
  26. k$=inkey$:if k$=chr$(27) then system
  27. goto idle
  28.  
  29.  
  30. SUB Mload (nam$,os) STATIC
  31. 'LOADS INTO AN OFFSET AREA OF MEMORY IN BACKGROUND
  32. DEF SEG = &HA000
  33. OUT &H3C4, 2: OUT &H3C5, 1: BLOAD Path$ + nam$ + ".BLU", os  'load bit plane 0
  34. OUT &H3C4, 2: OUT &H3C5, 2: BLOAD Path$ + nam$ + ".GRN", os  'load bit plane 1
  35. OUT &H3C4, 2: OUT &H3C5, 4: BLOAD Path$ + nam$ + ".RED", os  'load bit plane 2
  36. OUT &H3C4, 2: OUT &H3C5, 8: BLOAD Path$ + nam$ + ".INT", os  'load bit plane 3
  37. OUT &H3C4, 2: OUT &H3C5, &HF: DEF SEG
  38. END SUB
  39.  
  40.