Listing of file='COLREF.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
5 REM PROGRAM 2.6 6 REM THE HATCH CHARACTER 10 PLOT 27,24:REM PAGE MODE 20 PLOT 30,16,29,16:REM SET COLOURS 30 PLOT 15,12:REM SMALL CHARACTERS; CLEAR SCREEN 37 REM PRINT HEADINGS AT TOP. THE NUMBERS UNDER 38 REM 'BG' AND 'FG' ARE BACKGROUND AND FOREGROUND 39 REM COLOURS FROM BLACK(16) TO WHITE (23) 40 FOR X= 6TO 54STEP 16 50 PLOT 3,X,0:PLOT 17:PRINT "BG";:PLOT 22:PRINT " FG" 60 NEXT :PRINT 69 REM INITIALIZE BACKGROUND (BG) AND FOREGROUND (FG) TO BLACK 70 BG= 16:FG= 16 79 REM PRINT 4 COLUMNS IN 31 ROWS OF THE HATCH CHARACTER 80 FOR X= 0TO 48STEP 16 90 FOR Y= 1TO 31STEP 2 100 FG= FG+ 1:REM NEXT FOREGROUND COLOUR 110 IF FG= 24THEN FG= 16:BG= BG+ 1:REM NEXT BACKGROUND COLOUR 120 IF BG= 24THEN X= 48:Y= 31:GOTO 170:REM ALL DONE 130 PLOT 30,BG,29,FG,3,X,Y:REM SET COLOUR & CURSOR 140 PLOT 96,96,96,96,25:REM 4 HATCHS,THEN MOVE OVER 150 PLOT 6,1:PRINT BG; 160 PLOT 6,6:PRINT FG 170 NEXT Y,X 180 PLOT 6,2,3,48,31 190 INPUT "WAITING....";A$:REM WAIT UNTIL RETURN IS PRESSED 200 PLOT 27,11 210 LOAD "MENU":RUN