home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / IMAGEII.COLOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  PROGRAM IMAGEII.COLOR
  2. 20  REM  PRINTS COLOR TEXT ON THE IMAGEWRITER II
  3. 30  REM  BLACK=0
  4. 40  REM  YELLOW=1
  5. 50  REM  MAGENTA=2
  6. 60  REM  CYAN=3
  7. 70  REM  ORANGE=4
  8. 80  REM  GREEN=5
  9. 90  REM  PURPLE=6
  10. 100  PRINT  CHR$(4)"PR#1"
  11. 110  PRINT  CHR$(9)"K": REM  KILL LINE FEED FROM INTERFACE CARD
  12. 120  FOR LOOP = 0 TO 6
  13. 130  PRINT  CHR$(27)"!": REM  BOLDFACE
  14. 140  PRINT  CHR$(27);"K";LOOP;: REM  SET COLOR
  15. 150  PRINT "THIS IS A TEST LINE IN COLOR ";LOOP: PRINT  CHR$(10): PRINT  CHR$(13)
  16. 160  NEXT : PRINT  CHR$(10): PRINT  CHR$(13)
  17. 170 T$ = "OVERPRINTING TO CREATE NEW/ADDITIONAL COLORS"
  18. 180 C = 0: FOR LOOP = 1 TO  LEN(T$):C$ =  MID$ (T$,LOOP,1)
  19. 190  IF C >6  THEN C = 0
  20. 200  PRINT  CHR$(27)"K";C: POKE 36,LOOP: PRINT C$: PRINT  CHR$(13):C = C +1
  21. 210  NEXT : PRINT  CHR$(13): PRINT  CHR$(10)
  22. 220  PRINT  CHR$(27);"K3";: PRINT "THIS IS CYAN (3) OVERLAYED WITH PURPLE (6)": PRINT  CHR$(13): PRINT  CHR$(27)"K6": PRINT "THIS IS CYAN (3) OVERLAYED WITH PURPLE (6)": PRINT  CHR$(10)
  23. 230  PRINT  CHR$(27);"K0";: PRINT "THIS IS BLACK (0) OVERLAYED WITH YELLOW (1)": PRINT  CHR$(13): PRINT  CHR$(27)"K1": PRINT "THIS IS BLACK (0) OVERLAYED WITH YELLOW (1)": PRINT  CHR$(10)
  24. 240  PRINT  CHR$(4)"PR#0"