Listing of file='2P3.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 2.3 6 REM EXPLOSION EFFECT USING ERASE PAGE 10 FOR J= 1TO 2 20 PLOT 6,56:REM BACKGROUND = WHITE 30 GOSUB 200:REM ERASE PAGE & PAUSE SLIGHTLY 40 PLOT 6,24:REM BACKGROUND = YELLOW 50 GOSUB 200 60 PLOT 6,0:REM BACKGROUND = BLACK 70 GOSUB 200 80 PLOT 6,24:REM BACKGROUND = YELLOW AGAIN 90 GOSUB 200 100 PLOT 6,0:REM BACKGROUND = BLACK AGAIN 110 GOSUB 200 120 PLOT 6,40:REM BACKGROUND = MAGENTA 130 GOSUB 200 140 NEXT 150 PLOT 6,2,12:REM BACK TO A MANAGEABLE COLOR 160 END 198 199 REM 200 PLOT 12:REM CLEAR SCREEN 210 FOR T= 1TO 25:NEXT :REM SLIGHT PAUSE 220 RETURN