'===========================================================================
' Subject: THE GREAT QB VOLCANO              Date: 07-25-99 (12:02)       
' Author:  ROYAL                             Code: QB, QBasic, PDS        
' Origin:  columbo666@hotmail.com          Packet: GRAPHICS.ABC
'===========================================================================
'***************************************************************************
'***************************************************************************
'***************************************************************************
'
'                                the great QB
'
'   ///    /// ///\\\/// ///      ///\\\\\ ///\\\/// ///\\\/// ///\\\///
'  ///    /// ///   /// ///      ///      ///   /// ///   /// ///   ///
' ///    /// ///   /// ///      ///      ///\\\/// ///   /// ///   ///
'///    /// ///   /// ///      ///      ///   /// ///   /// ///   ///
'\\\  ///  ///   /// ///      ///      ///   /// ///   /// ///   ///
' \\\///  ///\\\/// ///\\\\\ ///\\\\\ ///   /// ///   /// ///\\\/// by ROYAL
'
'***************************************************************************
'***************************************************************************
'***************************************************************************
'
'hy, i'm a 15-year old boy switzerland. here is my second program for the
'internet-"qbasic&quick basic&power basic&turbo pascal&and so on"-homepages
'the first prog was the qb plasma. it's great. have a look at it !
'
'if you've questions or only word's for me, mail me : columbo666@hotmail.com
'or write to me : magic bytes, h”ngerstrasse 14, ch-5313 klingnau
'
'have fun with my prog ! but if you're one of those little pathetic worms,
'who write in their "funny" games, prog's or demos, that this is their
'production : fuck off ! you have only to write :
'                    'the volcano code : by ROYAL'
'            and PLEASE write my email adress too ! :-) thanx
'
'i also program in hypercard 2.0 for the macintosh ;-). you know hc ?
'please write to me !
'
'cu & bye
'
'
'
'
'
'pentium 200 or amd/k6-200 and qb 4.5 is recommended. COMPILE IT UNDER
'QB 4.5. qbasic, which is included in DOS, is too slow ;-(. but you can
'download QB 4.5 from many QBasic-pages, but i don't know, if it's
'illegal or not. you've to know ! but i think, microsoft don't search
'illegal copies from QB, because it's from '89 !?!. (but it's good)
'
'
'and for the end a BIIIIIIIIIG, BIG sorry for my english.
'
'
SCREEN 13                                 'graphics mode
FOR P% = 0 TO 63                          'init "fire"-palette
PALETTE P%, P%
PALETTE P% + 64, 256 * P% + 63
NEXT P%
CONST N% = 750                            'how many pixels ?
DIM POSI(0 TO N%, 1 TO 2)                 'create buffers for acceleration,
DIM PLUS(0 TO N%, 1 TO 2), COLO(0 TO N%)  'position and color of each pixel
DO WHILE INP(96) AND 128                  'main loop
FOR M% = 0 TO N%                          'update screen
PLUS(M%, 2) = PLUS(M%, 2) + .05           'slow down pixel's (forward-speed)
PSET (POSI(M%, 1), POSI(M%, 2)), 0        'erase pixel
POSI(M%, 1) = POSI(M%, 1) + PLUS(M%, 1)   'update position of the pixel
POSI(M%, 2) = POSI(M%, 2) + PLUS(M%, 2)
COLO(M%) = COLO(M%) - RND                 'decrase the color of the pixel
IF COLO(M%) < 0 OR POSI(M%, 2) > 199 THEN 'if you can't see it -> erase it
    POSI(M%, 1) = 160                     'generate new pixel
    POSI(M%, 2) = 199
    PLUS(M%, 1) = (RND - RND)
    PLUS(M%, 2) = -2.5 - RND * 2
    COLO(M%) = 127 * RND
END IF
PSET (POSI(M%, 1), POSI(M%, 2)), COLO(M%) 'show pixel
NEXT M%                                   'end pixel-loop
LOOP                                      'end main-loop