Listing of file='4P6.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 4.6 6 REM CHARACTERS IN 4 SIZES 10 BG= 16:FG= 16:REM START WITH FOREGROUND & BACKGROUND=BLACK 20 FG= FG+ 1:IF FG= 24THEN FG= 16:BG= BG+ 1 30 IF FG= BGTHEN 20:REM NOTHING WILL BE SEEN IF FG=BG 40 IF BG= 24THEN 10:REM WHEN ALL DONE, DO IT AGAIN 50 PLOT 29,FG:REM FOREGROUND COLOR 60 PLOT 30,BG:REM BACKGROUND COLOR 70 PLOT 12:REM CLEAR SCREEN 80 PLOT 15:REM REGULAR CHARACTER HEIGHT 90 GOSUB 700:REM PAUSE BEFORE BEGINNING 100 GOSUB 300:REM PRINT MESSAGE IN REGULAR HEIGHT 110 PLOT 14:REM DOUBLE HEIGHT 120 GOSUB 300:REM PRINT MESSAGE 130 PLOT 15:REM REGULAR HEIGHT SPECIAL CHARACTERS 131 REM NOTE: THE SPECIAL CHARACTERS USED REQUIRE 132 REM THAT THE FLAG BE ON, WHICH IT IS 133 REM BECAUSE OF LINE 60. 140 PLOT 3,12,14:REM POSITION CURSOR 150 GOSUB 400:REM PRINT MESSAGE IN LARGE CHARACTERS 160 PLOT 14:REM A7 ON 170 PLOT 3,12,13:REM POSITION CURSOR 180 GOSUB 400 190 GOTO 20 298 299 REM SUBROUTINE FOR REGULAR & DOUBLE HEIGHT 300 PLOT 3,18,15:REM POSITION CURSOR 310 PRINT "C O L O R G R A P H I C S" 320 GOSUB 700:REM HIDE CURSOR & PAUSE 330 RETURN 398 399 REM SUBROUTINE FOR DOUBLE WIDTH CHARACTERS 400 RESTORE 800 410 FOR C= 1TO 14:REM FOR EACH OF THE 14 CHARACTERS... 420 GOSUB 600:REM PRINT TOP HALF OF CHARACTER 430 PLOT 26,26,10:REM RE-POSITION CURSOR FOR BOTTOM HALF 440 GOSUB 600:REM PRINT BOTTOM HALF 450 PLOT 32:REM SPACE 460 PLOT 26,28:REM BACK & UP 470 PLOT 32 480 NEXT 490 GOSUB 700:REM HIDE CURSOR & PAUSE 500 RETURN 598 599 REM SUBROUTINE TO PRINT HALF OF LARGE CHARACTER 600 READ A:PLOT A:READ A:PLOT A 610 RETURN 698 699 REM SUBROUTINE TO HIDE CURSOR & PAUSE 700 PLOT 3,64,0 710 FOR T= 1TO 1500:NEXT 720 RETURN 797 798 REM DATA FOR 13 LARGE CHARACTERS 799 REM C 800 DATA 116,102,118,105 804 REM O 805 DATA 116,117,118,119 809 REM L 810 DATA 97,32,108,127 814 REM O 815 DATA 116,117,118,119 819 REM R 820 DATA 123,100,97,124 824 REM SPACE 825 DATA 32,32,32,32 829 REM G 830 DATA 116,102,118,125 834 REM R 835 DATA 123,100,97,124 839 REM A 840 DATA 126,124,110,111 844 REM P 845 DATA 123,100,97,32 849 REM H 850 DATA 97,98,110,111 854 REM I 855 DATA 111,101,109,127 859 REM C 860 DATA 116,102,118,105 864 REM S 865 DATA 99,102,103,100