home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / typd / txtcolor.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-08-06  |  896 b   |  40 lines
  1. 10  '***********COLOR STATEMENT COLOR CHART (TEXT MODE)***********
  2. 20  BURST=1
  3. 30  SCREEN 0,BURST,0,0
  4. 40  WIDTH 40
  5. 50  KEY OFF
  6. 60  COLOR 7,0,0
  7. 70  CLS
  8. 80  LOCATE 25,1
  9. 90  PRINT "COLOR STATEMENT COLOR CHART (TEXT MODE)";
  10. 100  LOCATE 1,1,1
  11. 110  FOR F=0 TO 15
  12. 120  FOR B=0 TO 7
  13. 130  COLOR F,B
  14. 140  PRINT  USING "##_,# ";F;B;
  15. 150  NEXT B
  16. 160  NEXT F
  17. 170  COLOR 7,0
  18. 180  COLOR ,,BORDER
  19. 190  LOCATE 17,1
  20. 200  PRINT "THE SCREEN'S  MODE,BURST,AND BORDRER";
  21. 210  PRINT "COLOR HAVE BEEN SET BY THE STATEMENTS:"
  22. 220  LOCATE 20,9
  23. 230  PRINT "SCREEN 0,";BURST;":COLOR , ,";BORDER
  24. 240  PRINT
  25. 250  PRINT "ENTER NEW BORDER COLOR NUMBER (0 TO 15),";
  26. 260  PRINT  "V TO TOGGLE BURST, OR Q TO QUIT:";
  27. 270  INPUT ;"", IN$
  28. 280  LOCATE ,1
  29. 290  PRINT  SPC(39);
  30. 300  IF IN$="V" OR IN$="v" THEN 340
  31. 310  IF IN$="Q" OR IN$="q" THEN 360
  32. 320  BORDER =VAL(IN$)
  33. 330  GOTO 180
  34. 340  BURST=(BURST+1) MOD 2
  35. 350  GOTO 30
  36. 360  LOCATE 22,1
  37. 370  PRINT SPACE$(79);
  38. 380  LOCATE  22,1
  39. 390  END
  40.