Compucolor.org – Virtual Media

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