Listing of file='2P6.BAS;01' on disk='vmedia/color_graphics_1_suits-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 COLORS 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 COLORS FROM BLACK (16) TO WHITE (23) 40 FOR X= 6TO 54STEP 16 50 PLOT 3,X,0,17:PRINT "BG ";:PLOT 22:PRINT "FG" 60 NEXT :PRINT 68 REM INITIALIZE BACKGROUND (BG) AND 69 REM FOREGROUND (FG) TO BLACK 70 BG= 16:FG= 16 80 FOR X= 0TO 48STEP 16 90 FOR Y= 1TO 31STEP 2 100 FG= FG+ 1:REM NEXT FG COLOR 110 IF FG= 24THEN FG= 16:BG= BG+ 1:REM NEXT BG COLOR 120 IF BG= 24THEN X= 48:Y= 31:GOTO 170:REM ALL DONE 130 PLOT 30,BG,29,FG,3,X,Y:REM SET COLOR & CURSOR 140 PLOT 96,96,96,96,25:REM 4 HATCHES, 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 FOR 'RETURN' 200 PLOT 27,11