home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 2 / run-special-2.zip / COLTEST.BAS < prev    next >
BASIC Source File  |  1992-05-31  |  2KB  |  33 lines
  1. 100 REM RGB-KLEURENTEST VOOR EGA - KOOS VAN EGMOND (C) RUN FLAGAZINE NR. 5
  2. 110 SCREEN 9:CLS:WINDOW SCREEN(40,90)-(250,250):KEY OFF
  3. 120 FOR N=1 TO 3:B(N)=1:NEXT N:GOSUB 270
  4. 130 LOCATE 1,17:PRINT "Verander de kleuren met de toetsen <R>, <G> en <B>
  5. 140 LINE (100,100)-(190,190),C(1),BF:LINE(130,130)-(220,220),C(2),BF
  6. 150 LINE(130,130)-(190,190),C(3),BF:LINE (70,160)-(160,250),C(4),BF
  7. 160 LINE(100,160)-(130,190),C(5),BF:LINE(130,190)-(160,220),C(6),BF
  8. 170 LINE(130,160)-(160,190),C(7),BF:PALETTE 8,7:COLOR 8:GOSUB 270
  9. 180 LINE(100,100)-(190,190),8,B:LINE(130,130)-(220,220),8,B
  10. 190 LINE(70,160)-(160,250),8,B:KK=0
  11. 200 I$=INKEY$:IF I$="" THEN 200
  12. 210 IF I$=" " THEN:SCREEN 0,0:END
  13. 220 IF I$="b" OR I$="B" THEN KK=1
  14. 230 IF I$="g" OR I$="G" THEN KK=2
  15. 240 IF I$="r" OR I$="R" THEN KK=3
  16. 250 IF KK THEN GOSUB 340 ELSE GOTO 200
  17. 260 B(VAL(I$))=ABS(B(VAL(I$))-1):GOSUB 270:GOTO 200
  18. 270 C(1)=B(1)*1+B(4)*8:C(2)=B(2)*2+B(5)*16:C(4)=B(3)*4+B(6)*32
  19. 280 C(3)=C(1)+C(2):C(5)=C(1)+C(4):C(6)=C(2)+C(4):C(7)=C(1)+C(2)+C(4)
  20. 290 FOR N=1 TO 7:PALETTE N,C(N):NEXT N
  21. 300 LOCATE 4,39: PRINT USING "##";C(1):LOCATE 18,58:PRINT USING "##";C(2)
  22. 310 LOCATE 10,50:PRINT USING "##";C(3):LOCATE 22,25:PRINT USING "##";C(4)
  23. 320 LOCATE 14,28:PRINT USING "##";C(5):LOCATE 18,39:PRINT USING "##";C(6)
  24. 330 LOCATE 14,39:PRINT USING "##";C(7):RETURN
  25. 340 IF B(KK)=1 AND B(KK+3)=1 THEN B(KK)=0:B(KK+3)=0:GOTO 370
  26. 350 IF B(KK)=0 AND B(KK+3)=0 THEN B(KK+3)=1:GOTO 370
  27. 360 IF B(KK)=0 THEN B(KK)=1:B(KK+3)=0:GOTO 370 ELSE B(KK+3)=1
  28. 370 RETURN
  29. 380 REM /* 27/.3079,2076,5045,3273,3247,3290,3454,2850,1674,1478
  30. 390 REM /*/....1603,1507,1518,1541,1887,2690,2877,3223,2025,3879
  31. 400 REM /*/....3910,3933,2476,3054,2589,3140,0480
  32. 410 REM Checksum...............:  71798
  33.