home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASIC00.ZIP / PCCOLORS.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.8 KB  |  65 lines
  1. 10  REM ***********************************************************************
  2. 20  REM **                         PCCOLORS                                  **
  3. 30  REM ***********************************************************************
  4. 40  REM **        BY C.F. MITASIK           NOVEMBER 16, 1982                **
  5. 50  REM ***********************************************************************
  6. 60  KEY OFF
  7. 70  CLS
  8. 80  WIDTH 80
  9. 90  COLOR 3,0,0:PRINT TAB(26);"**** COLOR DEMO ****"
  10. 100 COLOR 2,0,0
  11. 110 PRINT
  12. 120 PRINT"    THIS PROGRAM DEMONSTRATES HOW THE IBM PC CAN BE USED TO GENERATE"
  13. 130 PRINT "MORE THAN 16 COLORS. IT WORKS BY BLENDING TOGETHER FOREGROUND AND"
  14. 140 PRINT "BACKGROUND DOTS WITHIN A TEXT PIXEL ELEMENT. THE 'COLOR' STATEMENT"
  15. 150 PRINT "IS USED TO VARY THE FOREGROUND AND BACKGROUND COLORS. YOUR EYE"
  16. 160 PRINT "THEN TENDS TO BLEND THE DOTS TOGETHER TO PRDUCE A UNIFORM COLOR."
  17. 170 PRINT "BY VARYING THE RELATIVE NUMBER OF FOREGROUND AND BACKGROUND DOTS,"
  18. 180 PRINT "YOU CAN PRODUCE A WIDE VARIETY OF COLORS."
  19. 190 PRINT
  20. 200 PRINT "    THE EASIEST WAY TO DO THIS IS PRINT THE SPECIAL ASCII"
  21. 210 PRINT "CHARACTERS 176, 177, AND 178 WHICH LOOK LIKE THIS:"
  22. 220 PRINT
  23. 230 PRINT TAB(32);CHR$(177);" ";CHR$(177);" ";CHR$(178)
  24. 240 PRINT
  25. 250 PRINT "    ASCII CHARACTER 32 (SPACE) WILL GIVE A PIXEL OF ALL BACKGROUND"
  26. 260 PRINT "COLORED DOTS AND THE SPECIAL ASCII CHARACTER 219 ( ";CHR$(219);" )";     " WILL GIVE A"
  27. 270 PRINT "PIXEL OF ALL FOREGROUND COLORED DOTS."
  28. 280 LOCATE 20,30:PRINT "HAVE FUN !"
  29. 290 LOCATE 24,25:INPUT "HIT ENTER TO CONTINUE",X
  30. 300 CLS
  31. 310 LOCATE 12,26:INPUT;"ENTER ASCII CHARATER CODE = ",C
  32. 320 CLS
  33. 330 LOCATE 1,30:COLOR 4,0,0:PRINT "**** COLOR DEMO ****":COLOR 2,0,0
  34. 340 LOCATE 2,54:PRINT "ASCII CHARATER CODE = ";C;
  35. 350 LOCATE 3,1:COLOR 2,0,0:PRINT CHR$(25);" FOREGROUND";SPC(22);"BACKGROUND";
  36. 360 LOCATE 5,1:COLOR 2,0,0:FOR I = 1 TO 8:PRINT "    ";I-1;"   ";:NEXT
  37. 370 FOR I = 1 TO 10:LOCATE I+5,1:PRINT USING "#";I-1:NEXT
  38. 380 FOR I = 1 TO 6:LOCATE I+15,1:PRINT USING "#";I-1:NEXT
  39. 390 FOR I = 1 TO 16
  40. 400    LOCATE I+5,2:COLOR I-1,0,0:A=177:GOSUB 540
  41. 410    LOCATE I+5,12:COLOR I-1,1,0:A=177:GOSUB 540
  42. 420    LOCATE I+5,22:COLOR I-1,2,0:A=177:GOSUB 540
  43. 430   LOCATE I+5,32:COLOR I-1,3,0:A=177:GOSUB 540
  44. 440   LOCATE I+5,42:COLOR I-1,4,0:A=177:GOSUB 540
  45. 450   LOCATE I+5,52:COLOR I-1,5,0:A=177:GOSUB 540
  46. 460   LOCATE I+5,62:COLOR I-1,6,0:A=177:GOSUB 540
  47. 470   LOCATE I+5,72:COLOR I-1,7,0:A=177:GOSUB 540
  48. 480 NEXT
  49. 490 COLOR 2,0,0:LOCATE 23,36:PRINT "END";
  50. 500 LOCATE 24,58:INPUT "HIT ENTER TO CONTINUE",X
  51. 510 CLS
  52. 520 GOTO 310
  53. 530 END
  54. 540 FOR J = 1 TO 9:
  55. 550    PRINT  CHR$(C);
  56. 560 NEXT J
  57. 570 RETURN
  58. HIT ENTER TO CONTINUE",X
  59. 510 CLS
  60. 520 GOTO 310
  61. 530 END
  62. 540 FOR J = 1 TO 9:
  63. 550    PRINT  CHR$(C);
  64. 560 NEXT J
  65. 570 RE