home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / 20 / COLOR (.txt) < prev    next >
Commodore BASIC  |  1988-11-19  |  1KB  |  32 lines
  1. 0 REMRUN830SYS76584FORNEXGOTODIPPY:REM:(null)LIST
  2. 10 PRINT"[147]"
  3. 15 GOSUB40
  4. 20 PRINT"[147][159]MARV CAUGHT YOU CHEATING[146][154]"
  5. 25 OPEN15,8,15:PRINT#15,"S8:COLOR":CLOSE15
  6. 30 PRINT"BY THE WAY, I'M ERASING THIS PROGRAM[146][154]"
  7. 40 S=54272:POKES+24,15:POKES,20:POKES+1,20:POKES+2,10:POKES+3,10:POKES+6,128
  8. 50 FORJ=1TO20:GOSUB70:NEXT:GOTO20
  9. 60 REM
  10. 70 POKES+4,65:FORK=1TO90:NEXT:POKES+4,0:RETURN
  11. 830 CO=64
  12. 840 PRINT "[147]     MARV'S BEST COLOR SETUP MENU"
  13. 850 PRINT " PLEASE USE THESE KEYS TO SELECT COLORS:"
  14. 860 PRINT "   <F1> AND <F2> FOR BACKGROUND COLOR"
  15. 870 PRINT "   <F3> AND <F4> FOR BORDER COLOR"
  16. 880 PRINT "   <F5> AND <F6> FOR CHARACTER COLOR"
  17. 890 PRINT "   PRESS <F7> WHEN SETUP IS COMPLETED"
  18. 900 GET A$ : IF A$="" GOTO 900
  19. 910 IF A$="[133]" THEN BG=(BG+1) AND 15 : GOSUB 1280 : GOTO 900
  20. 915 IF A$="[137]" THEN BG=(BG+15) AND 15 : GOSUB 1280 : GOTO 900
  21. 920 IF A$="[134]" THEN BD=(BD+1) AND 15 : GOSUB 1300 : GOTO 900
  22. 925 IF A$="[138]" THEN BD=(BD+15) AND 15 : GOSUB 1300 : GOTO 900
  23. 930 IF A$="[135]" THEN CH=(CH+1) AND 15 : GOSUB 1260 : GOTO 840
  24. 940 IF A$="[139]" THEN CH=(CH+15) AND 15 : GOSUB 1260 : GOTO 840
  25. 950 IF A$<>"[136]" GOTO 900
  26. 960 IFA$="[136]"THENPRINT"[147]":NEW:GOTO10
  27. 1235 DATA 121,1,208,251,76,204,255,32
  28. 1245 DATA 104,76,204,255
  29. 1260 IFCO=64THENPOKE646,CH:RETURN
  30. 1280 IFCO=64THENPOKE53281,BG:RETURN
  31. 1300 IFCO=64THENPOKE53280,BD:RETURN
  32.