Listing of file='CCHART.BAS;01' on disk='vmedia/utility_3-sector.ccvf'
10 REM * COLOUR CHART 20 REM * A PROGRAM TO PRINT OUT THE PLOT 6,n 30 REM * COLOUR CODES ON AN 80 COLUMN PRINTER. 40 REM * WRITTEN BY BRUCE MARSHALL 50 REM * CUVIC, MELBOURNE, AUSTRALIA 60 REM * 17NOV84 100 DIM C$(16) 110 FLAG= 0:C= - 1:GOTO 320 120 RESTORE 630 130 FOR I= 0TO 16 140 READ C$(I) 150 NEXT I 160 FOR I= 0TO 8 170 PRINT TAB( 5)C$(I); 180 NEXT I 190 PRINT 200 RETURN 210 FOR I= 0TO 67:PRINT TAB( 5)"-"; 220 IF FLAG= 0AND I= 9THEN PRINT " ";:I= 13 230 NEXT 240 PRINT 250 RETURN 260 PRINT :PLOT 12,19,14 270 X1= PEEK (33289):X= (X1- 38)/ 2:X= INT (X+ .5) 280 PRINT TAB( X)"COLOUR PLOT STATEMENT CHART - PLOT 6,n" 290 PRINT TAB( X)"--------------------------------------" 300 PRINT :PRINT 310 RETURN 320 GOSUB 260:PLOT 18:PRINT 330 PRINT TAB( X+ 4):INPUT "ENTER BAUD RATE CODE (1-7) > ";BR 340 POKE 33289,81:PLOT 15,27,18,BR,27,13 350 GOSUB 270 360 PRINT TAB( 31)"FOREGROUND - STEADY" 370 PRINT TAB( 31)"-------------------" 380 GOSUB 120 390 GOSUB 210 400 FOR I= 9TO 16 410 PRINT TAB( 8)C$(I);" -"; 420 FOR J= 0TO 7 430 C= C+ 1 440 IF C< 10THEN PRINT " ";C;" ";:GOTO 470 450 IF C> 9AND C< 100THEN PRINT " ";C;" ";:GOTO 470 460 PRINT " ";C;" "; 470 NEXT J 480 PRINT 490 NEXT I 500 PRINT 510 IF FLAG= 1GOTO 550 520 PRINT TAB( 30)"FOREGROUND - BLINKING" 530 PRINT TAB( 30)"---------------------" 540 FLAG= FLAG+ 1:GOTO 400 550 GOSUB 210 560 POKE 33265,0 570 PLOT 21,15 580 PRINT :PRINT 590 PRINT TAB( 20):INPUT "ANOTHER PRINTING (Y/N)? ";YN$ 600 PLOT 28,11,28 610 IF YN$= "Y"OR YN$= "y"THEN FLAG= 0:C= - 1:GOTO 340 620 POKE 33289,64:PLOT 15,18,1 630 DATA "BACKGROUND "," BLACK "," RED "," GREEN "," YELLOW"," BLUE ","MAGENTA"," CYAN "," WHITE " 640 DATA " BLACK"," RED"," GREEN"," YELLOW"," BLUE","MAGENTA"," CYAN"," WHITE"