Listing of file='5P3.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 5.3 6 REM EXPLOSION EFFECT USING TEST MODE 10 PLOT 14:REM DOUBLE HEIGHT 20 PLOT 6,56:REM BLACK ON WHITE 30 C$= "+":REM FILL CHARACTER 40 GOSUB 200:REM EXPLOSION 50 PLOT 6,25 60 C$= "-" 70 GOSUB 200 80 PLOT 6,15 90 C$= "*" 100 GOSUB 200 110 PLOT 6,2 120 PLOT 12:REM ERASE SCREEN 130 END 198 199 REM TEST MODE SUBROUTINE 200 PLOT 27,25:PRINT C$ 210 FOR J= 1TO 50:NEXT :REM SLIGHT PAUSE 220 RETURN