home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / qbas / putcolor.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-08-06  |  1.6 KB  |  61 lines
  1. 8  '*******PUT STATEMENT COLOR CHART(COLOR GRAPHICS MODE)******
  2. 10  SCREEN 1,0,0,0
  3. 20  KEY OFF
  4. 30  DIM IMAGE(161)
  5. 40  FOR C=0 TO 3
  6. 50  LINE (0,C*8)-(79,C*8+7),C,BF
  7. 60  NEXT
  8. 70  GET (0,0)-(79,31),IMAGE
  9. 80  ACTION$(0)="PSET"   :P(0)=28
  10. 90  ACTION$(1)="PRESET" :P(1)=27
  11. 100  ACTION$(2)="XOR"   :P(2)=26
  12. 110  ACTION$(3)="OR"    :P(3)=27
  13. 120  ACTION$(4)="AND"   :P(4)=28
  14. 130  SCREEN 1,BURST
  15. 140  CLS
  16. 150  LOCATE 25,3
  17. 160  PRINT "PUT STATEMENT COLOR CHART(GRAPHICS)";
  18. 170  FOR C=0 TO 3
  19. 180  LINE (C*16+236,8)-(C*16+251,191),C,BF
  20. 190  NEXT
  21. 200  LINE (236,8)-(236,191),3
  22. 210  LOCATE 1,30:PRINT "|0|1|2|3|";
  23. 220  LOCATE 24,30:PRINT "|0|1|2|3|";
  24. 230  PUT (240,16),IMAGE,PSET
  25. 240  PUT (232,48),IMAGE,PRESET
  26. 250  PUT (224,80),IMAGE,XOR
  27. 260  PUT (232,112),IMAGE,OR
  28. 270  PUT (240,144),IMAGE,AND
  29. 280  DRAW "BM83,76 R16 D30 L16 BM 100 ,91 R23 BM+0,-75 NR99"
  30. 290  FOR I=1 TO 5
  31. 300  DRAW "D32 NR112"
  32. 310  NEXT
  33. 320  FOR A=0 TO 4
  34. 330  FOR C=0 TO 3
  35. 340  LOCATE  A*4+C+3,P(A)
  36. 350  PRINT  USING "#_-{";C;
  37. 360  IF C=1 THEN LOCATE  ,18:PRINT ACTION$(A)
  38. 370  NEXT
  39. 380  NEXT
  40. 390  LOCATE 1,6
  41. 400  PRINT  "ORGINAL SCREEN COLORS:"
  42. 410  LOCATE 4,1
  43. 420  PRINT "BACKGROUND AND":PRINT "PALETTE SET BY"
  44. 430  LOCATE 8,1:PRINT  "BURST SET BY":PRINT USING "   SCREEN 1_,#";BURST
  45. 440  LOCATE 11,1
  46. 450  PRINT "PUT ACTION &":PRINT "IMAGE ARRAY":PRINT "COLOR VALUES"
  47. 460  LOCATE 15,1
  48. 470  PRINT "PUT ASSUMES XOR":PRINT "IF NO ACTION IS":PRINT "DECLARED"
  49. 480  LOCATE 19,1
  50. 490  PRINT "PRESS P, V, OR ":PRINT "B TO CHANGE THE":PRINT "PALETTE,BURST,"
  51. 500  PRINT "OR BACKGROUND;":PRINT "PRESS Q TO QUIT";
  52. 510  COLOR BACK,PAL
  53. 520  LOCATE 6,3
  54. 530  PRINT USING "COLOR ##_,#";BACK,PAL
  55. 540  X$=INPUT$(1)
  56. 550  IF X$="P" OR X$="p" THEN PAL =(PAL+1) MOD 2
  57. 560  IF X$="V" OR X$="v" THEN BURST=(BURST+1) MOD 2:GOTO 130
  58. 570  IF X$="B" OR X$="b" THEN BACK=(BACK+1) MOD 16
  59. 580  IF X$="Q" OR X$="q" THEN LINE (0,144)-(120,190),0,BF:LOCATE 22,1:END
  60. 590  GOTO 510
  61.