home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / mload.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-20  |  2.6 KB  |  126 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. 'circle(322,95),6,15
  24. 'circle(348,95),6,15
  25. ' circle(348,115),6,15
  26.   pset(322,95),14
  27.  
  28.  
  29. Idle:
  30. k$=inkey$:if k$=chr$(27) then system
  31. if k$="1" then gosub k1:gosub Scankey
  32. if k$="2" then gosub k2:gosub Scankey
  33. if k$="3" then gosub k3:gosub Scankey
  34. if k$="4" then gosub k4:gosub Scankey
  35. if k$="5" then gosub k5:gosub Scankey
  36. if k$="6" then gosub k6:gosub Scankey
  37. if k$="7" then gosub k7:gosub Scankey
  38. if k$="8" then gosub k8:gosub Scankey
  39. goto idle
  40.  
  41.  
  42. k1:
  43. if key1=1 then key1=0:return
  44. if key1=0 then key1=1:return
  45. k2:
  46. if key2=1 then key2=0:return
  47. if key2=0 then key2=1:return
  48. k3:
  49. if key3=1 then key3=0:return
  50. if key3=0 then key3=1:return
  51. k4:
  52. if key4=1 then key4=0:return
  53. if key4=0 then key4=1:return
  54. k5:
  55. if key5=1 then key5=0:return
  56. if key5=0 then key5=1:return
  57. k6:
  58. if key6=1 then key6=0:return
  59. if key6=0 then key6=1:return
  60. k7:
  61. if key7=1 then key7=0:return
  62. if key7=0 then key7=1:return
  63. k8:
  64. if key8=1 then key8=0:return
  65. if key8=0 then key8=1:return
  66. return
  67.  
  68. Scankey:
  69. if key1=1 then
  70. paint(322,95),4,15
  71. paint(348,95),4,15
  72. else
  73. paint(322,95),13,15
  74. paint(348,95),13,15
  75. end if
  76. if key3=1 then
  77. paint(322,95),4,15
  78. paint(348,95),4,15
  79. else
  80. paint(322,95),13,15
  81. paint(348,95),13,15
  82. end if
  83. if key3=1 then
  84. paint(322,95),4,15
  85. paint(348,95),4,15
  86. else
  87. paint(322,95),13,15
  88. paint(348,95),13,15
  89. end if
  90. if key4=1 then
  91. paint(322,95),4,15
  92. paint(348,95),4,15
  93. else
  94. paint(322,95),13,15
  95. paint(348,95),13,15
  96. end if
  97.  
  98. return
  99.  
  100.  
  101.  
  102. ResetColor:
  103. y=0
  104. for j=1 to 2
  105. x=0
  106. for i=1 to 8
  107. paint (322+y,95+x),4,15
  108. 'pset(322+y,95+x),15
  109. x=x+20
  110. next i
  111. y=y+26
  112. next j
  113. return
  114.  
  115.  
  116. SUB Mload (nam$,os) STATIC
  117. 'LOADS INTO AN OFFSET AREA OF MEMORY IN BACKGROUND
  118. DEF SEG = &HA000
  119. OUT &H3C4, 2: OUT &H3C5, 1: BLOAD Path$ + nam$ + ".BLU", os  'load bit plane 0
  120. OUT &H3C4, 2: OUT &H3C5, 2: BLOAD Path$ + nam$ + ".GRN", os  'load bit plane 1
  121. OUT &H3C4, 2: OUT &H3C5, 4: BLOAD Path$ + nam$ + ".RED", os  'load bit plane 2
  122. OUT &H3C4, 2: OUT &H3C5, 8: BLOAD Path$ + nam$ + ".INT", os  'load bit plane 3
  123. OUT &H3C4, 2: OUT &H3C5, &HF: DEF SEG
  124. END SUB
  125.  
  126.