Listing of file='SPCTRM.BAS;01' on disk='vmedia/colorcue-sector.ccvf'
10 REM SPECTRUM 20 REM COLORCUE VOL II.3 PAGE 4 30 REM USER SUBMITTED PROGRAM - DENNIS L. MARTIN 40 REM MODIFIED TO COVER FULL SPECTRUM - 64 COLORS 100 DIM E(64),F(64) 110 FOR G= 1 TO 64 120 READ A,B 130 E(G) = A:F(G) = B 140 NEXT 150 RESTORE 500 299 W= 0 300 P= 0:Z= 1:Y= 0:PLOT 12,15 301 READ A 305 IF A= 0 THEN 410 320 FOR X= P TO (P+ 5) 325 FOR L= Y TO (Y+ 1) 330 PLOT 3,X,L,30,A,32 340 NEXT :NEXT 350 READ B 360 FOR X= P TO (P+ 5) 365 FOR L= Y TO (Y+ 1) 370 PLOT 3,X,L,29,B,96 380 NEXT :NEXT 385 PLOT 25,30,16,29,23:PRINT "-";Z 390 Y= Y+ 2 395 Z= Z+ 1 396 W = W+ 1 397 IF W= 15 THEN W= 0:P= P+ 12:Y= 0 400 GOTO 301 410 PLOT 3,50,15:PRINT "COLOR":PLOT 3,50,16:INPUT "NUMBER : ";N 415 IF N> 64 OR N< 1 THEN 410 417 PLOT 3,50,20:PRINT "FOREGROUND" 420 IF F(N)= 16 THEN PLOT 30,23 422 PLOT 3,52,21,29,F(N):GOSUB 640 427 PLOT 3,50,22,29,23,30,16:PRINT "BACKGROUND" 430 IF E(N)= 16 THEN PLOT 30,23 432 PLOT 3,52,23,29,E(N):GOSUB 560 435 PLOT 30,16,29,23,3,50,18:PRINT "COLOR - ";N 440 GOTO 410 500 DATA 16,16,16,17,16,18,16,19,16,20,16,21,16,22,16,23 505 DATA 17,16,17,17,17,18,17,19,17,20,17,21,17,22,17,23 510 DATA 18,16,18,17,18,18,18,19,18,20,18,21,18,22,18,23 515 DATA 19,16,19,17,19,18,19,19,19,20,19,21,19,22,19,23 520 DATA 20,16,20,17,20,18,20,19,20,20,20,21,20,22,20,23 525 DATA 21,16,21,17,21,18,21,19,21,20,21,21,21,22,21,23 530 DATA 22,16,22,17,22,18,22,19,22,20,22,21,22,22,22,23 535 DATA 23,16,23,17,23,18,23,19,23,20,23,21,23,22,23,23 540 DATA 0,0 555 END 560 IF E(N)= 16 THEN PRINT "BLACK ":RETURN 570 IF E(N)= 17 THEN PRINT "RED ":RETURN 580 IF E(N)= 18 THEN PRINT "GREEN ":RETURN 590 IF E(N)= 19 THEN PRINT "YELLOW ":RETURN 600 IF E(N)= 20 THEN PRINT "BLUE ":RETURN 610 IF E(N)= 21 THEN PRINT "MAGENTA ":RETURN 620 IF E(N)= 22 THEN PRINT "CYAN ":RETURN 630 IF E(N)= 23 THEN PRINT "WHITE ":RETURN 640 IF F(N)= 16 THEN PRINT "BLACK ":RETURN 650 IF F(N)= 17 THEN PRINT "RED ":RETURN 660 IF F(N)= 18 THEN PRINT "GREEN ":RETURN 670 IF F(N)= 19 THEN PRINT "YELLOW ":RETURN 680 IF F(N)= 20 THEN PRINT "BLUE ":RETURN 690 IF F(N)= 21 THEN PRINT "MAGENTA ":RETURN 700 IF F(N)= 22 THEN PRINT "CYAN ":RETURN 710 IF F(N)= 23 THEN PRINT "WHITE ":RETURN