Listing of file='6P8.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
184 REM PROGRAM 6.8 185 GOSUB 1000:REM SCRIPT 997 998 REM SCRIP SUBROUTINE USING INCREMENTAL POINT PLOT 999 1000 PLOT 29:REM FLAG MUST BE OFF 1010 PLOT 12:REM CLEAR SCREEN 1020 PLOT 3,64,0:REM HIDE CURSOR 1030 RESTORE 1100 1040 PLOT 2:REM GENERAL PLOT MODE 1050 PLOT 10,78:REM FIRST POINT ON THE CAPITAL "C" 1060 PLOT 251:REM INCREMENTAL POINT PLOT SUBMODE 1070 READ A:PLOT A:IF A< 255THEN 1070 1080 GOSUB 700:REM PAUSE SUBROUTINE FROM PROGRAM 4.6 1090 RETURN 1096 1097 REM DATA FOR INCREMENTAL POINT PLOT 1098 1099 REM C 1100 DATA 38,100,68,85,81,17,17,17,17,25,25,24,136,138,42 1104 REM O 1105 DATA 130,34,34,162,130,20,21,17,17,25,25,136,162,162,34,34,98,100,81,153,136 1109 REM L 1110 DATA 170,40,40,34,34,101,17,17,17,17,17,17,17,154,170 1114 REM O 1115 DATA 162,34,42,40,65,81,17,17,145,152,138,42,34,34,38,38,69,25,152,138 1119 REM R 1120 DATA 138,170,33,24,152,17,81,17,17,152,138,42 1124 REM SPACE 1125 DATA 160,160,160,160,160,160,160,160,160,160,160 1129 REM G 1130 DATA 130,102,68,69,85,17,17,17,17,17,145,145,136,136,162,162,34,34,36,69,25,136,138 1134 REM R 1135 DATA 170,170,33,24,152,17,81,17,17,152 1139 REM A 1140 DATA 138,42,130,34,34,170,168,152,70,69,85,17,17,25,25,136,138,162 1145 DATA 34,34,34,34,17,17,17,17,17,152 1149 REM P 1150 DATA 170,42,34,34,34,33,17,17,17,17,17,17,17,17,17,34,34,34,34,34,34,34,34 1155 DATA 170,168,153,25,17,21,21,84,70,152,136,136,138 1159 REM H 1160 DATA 162,162,34,34,34,34,34,34,17,17,17,17,17,17,17,17,34,34,34 1165 DATA 42,170,136,145,17,17,17,17,152,162 1169 REM I 1170 DATA 162,42,34,34,17,17,17,17,25,162 1174 REM C 1175 DATA 162,162,34,162,168,137,150,100,69,21,17,17,17,153,136,136,170 1179 REM S 1180 DATA 42,42,42,42,42,165,25,25,17,17,81,85,102,153,136,138,170 1184 REM SKIP BACK TO DOT THE I 1185 DATA 253,102,77 1189 REM PLOT MODE ESCAPE 1190 DATA 255