Compucolor.org – Virtual Media

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