home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASIC00.ZIP / PCCOLOR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.0 KB  |  18 lines
  1. 10 CLS
  2. 20 PRINT"                            ***  PCCOLOR  ***"
  3. 30 PRINT"      THIS PROGRAM CREATES A SMALL PROGRAM, SCREEN.COM, WHICH ALLOWS DOS                                 TO CHANGE THE SCREEN COLOR"
  4. 40 OPEN "screen.com" AS #1 LEN=1
  5. 50 FIELD #1,1 AS A$
  6. 60 FOR X=1 TO 27:READ Y:LSET A$=CHR$(Y):PUT #1,X:NEXT
  7. 70 LOCATE 10: PRINT "foreground color (0-7)?":PRINT "0=BLACK,1=BLUE,2=GREEN,3=CYAN,4=RED,5=MAGENTA,6=BROWN,7=WHITE":FG$=INPUT$(1):FG=VAL(FG$)
  8. 80 IF FG<0 OR FG>7 THEN 70
  9. 90 PRINT "background color (0-7)?":BG$=INPUT$(1):BG=VAL(BG$)
  10. 100 IF BG<0 OR BG>7 THEN 90
  11. 110 IF BG=FG THEN PRINT " OK, but you won't be able to see it!"   :BEEP:FOR I=0 TO 2000:NEXT
  12. 120 COLOR FG,BG:CLS:PRINT "This is what it's going to look like"
  13. 130 LSET A$=CHR$(VAL("&h"+HEX$(BG)+HEX$(FG)))
  14. 140 PUT #1,15
  15. 150 PRINT "SCREEN.COM has been created":CLOSE
  16. 160 DATA 43,192,30,80,184,0,6,185,0,0,186,80,32,183,3,205,16,180,2,186,0,0,183,0,205,16,203,2400
  17. COM has been created":CLOSE
  18. 160 DATA 43,192,30,80,184,0,6,185,0,0,186,80,32