Listing of file='6P2.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.2 6 REM DEMONSTRATING THE CHARACTER PLOT 10 PLOT 15,30,16,29,22,12:REM SET UP 20 PRINT 30 PRINT TAB( 15)"A DEMONSTRATION OF THE CHARACTER PLOT" 40 PRINT 50 PRINT TAB( 25)"PLOT 2,254,N" 99 100 PLOT 3,0,5,11:REM ERASE ANY PREVIOUS INPUT 110 INPUT "SELECT A NUMBER FROM 0 TO 254: ";N$ 120 N= VAL (N$):IF N< 0OR N< > INT (N)OR N> 254THEN 100 130 PRINT 140 PLOT 11:REM ERASE ANY PREVIOUS DISPLAY 150 PRINT "PLOT 2,254,"N" GIVES: "; 160 PLOT 2,254,N,255 170 PRINT :PRINT 180 PRINT "HERE ARE TWO LINES OF IT..."; 190 PRINT 200 PLOT 2,254:FOR J= 1TO 128:PLOT N:NEXT :PLOT 255 210 PLOT 3,10,16:PRINT "VERTICAL MODE:" 220 PLOT 27,10 230 PLOT 3,30,15:GOSUB 300 240 PLOT 3,31,15:GOSUB 300 250 PLOT 27,11:REM RETURN TO SCROLL MODE 260 GOTO 100:REM BACK FOR MORE 298 299 REM SUBROUTINE TO PLOT A VERTICAL LINE 300 PLOT 2,254:FOR J= 1TO 10:PLOT N:NEXT :PLOT 255 310 RETURN