'===========================================================================
' Subject: FULL SCREEN FLAME                 Date: 05-29-97 (23:32)       
' Author:  Daniel Davies                     Code: QB, QBasic, PDS        
' Origin:  ia53@rapid.co.uk                Packet: GRAPHICS.ABC
'===========================================================================
'Full screen flame in Q-Basic
'By Daniel Davies
'e-mail ia53@rapid.co.uk
'hope you like it. BTW the long string of data statments are the pallette,
'which I made in fractint and then converted.
DIM fval%(1280)
DIM disp%(80, 50)
DIM OLD%(80, 50)
DIM rand%(5000)

RANDOMIZE TIMER
FOR x% = 0 TO 5000
rand%(x%) = RND * 10
NEXT x%

FOR x% = 0 TO 1280
fval%(x%) = (x% / 5)
NEXT x%


SCREEN 13
OUT &H3C8, 0
FOR x% = 0 TO 255
READ r%, G%, B%
OUT &H3C9, r%
OUT &H3C9, G%
OUT &H3C9, B%
NEXT x%

DEF SEG = &HA000
DO
q% = q% + 1
FOR y% = 49 TO 1 STEP -1
FOR x% = 1 TO 79
z% = OLD%(x% - 1, y% + 1) + OLD%(x% + 1, y% + 1) + OLD%(x%, y% + 1)
z% = z% + OLD%(x% - 1, y%) + OLD%(x% + 1, y%) - 5
z% = z% - rand%(q% MOD 5000)
IF z% <= 0 THEN GOTO skip1:
disp%(x%, y%) = fval%(z%)
skip1:
NEXT x%
NEXT y%

ymod& = 12800
FOR y% = 10 TO 49
FOR x% = 0 TO 80

a& = ymod& + (x% * 4)
c% = disp%(x%, y%)
POKE a&, c%
POKE a& + 1, c%
POKE a& + 2, c%
POKE a& + 3, c%
POKE a& + 320, c%
POKE a& + 321, c%
POKE a& + 322, c%
POKE a& + 323, c%
POKE a& + 640, c%
POKE a& + 641, c%
POKE a& + 642, c%
POKE a& + 643, c%
POKE a& + 960, c%
POKE a& + 961, c%
POKE a& + 962, c%
POKE a& + 963, c%


OLD%(x%, y%) = disp%(x%, y%)

NEXT x%
ymod& = ymod& + 1280
NEXT y%


FOR x% = 5 TO 75
OLD%(x%, 50) = INT(RND * 2) * 255
NEXT x%


LOOP WHILE INKEY$ = ""


DATA 0,0,0
DATA 0,0,6
DATA 0,0,6
DATA 0,0,7
DATA 0,0,8
DATA 0,0,8
DATA 0,0,9
DATA 0,0,10
DATA 2,0,10
DATA 4,0,9
DATA 6,0,9
DATA 8,0,8
DATA 10,0,7
DATA 12,0,7
DATA 14,0,6
DATA 16,0,5
DATA 18,0,5
DATA 20,0,4
DATA 22,0,4
DATA 24,0,3
DATA 26,0,2
DATA 28,0,2
DATA 30,0,1
DATA 32,0,0
DATA 32,0,0
DATA 33,0,0
DATA 34,0,0
DATA 35,0,0
DATA 36,0,0
DATA 36,0,0
DATA 37,0,0
DATA 38,0,0
DATA 39,0,0
DATA 40,0,0
DATA 40,0,0
DATA 41,0,0
DATA 42,0,0
DATA 43,0,0
DATA 44,0,0
DATA 45,0,0
DATA 46,1,0
DATA 47,1,0
DATA 48,2,0
DATA 49,2,0
DATA 50,3,0
DATA 51,3,0
DATA 52,4,0
DATA 53,4,0
DATA 54,5,0
DATA 55,5,0
DATA 56,6,0
DATA 57,6,0
DATA 58,7,0
DATA 59,7,0
DATA 60,8,0
DATA 61,8,0
DATA 63,9,0
DATA 63,9,0
DATA 63,10,0
DATA 63,10,0
DATA 63,11,0
DATA 63,11,0
DATA 63,12,0
DATA 63,12,0
DATA 63,13,0
DATA 63,13,0
DATA 63,14,0
DATA 63,14,0
DATA 63,15,0
DATA 63,15,0
DATA 63,16,0
DATA 63,16,0
DATA 63,17,0
DATA 63,17,0
DATA 63,18,0
DATA 63,18,0
DATA 63,19,0
DATA 63,19,0
DATA 63,20,0
DATA 63,20,0
DATA 63,21,0
DATA 63,21,0
DATA 63,22,0
DATA 63,22,0
DATA 63,23,0
DATA 63,24,0
DATA 63,24,0
DATA 63,25,0
DATA 63,25,0
DATA 63,26,0
DATA 63,26,0
DATA 63,27,0
DATA 63,27,0
DATA 63,28,0
DATA 63,28,0
DATA 63,29,0
DATA 63,29,0
DATA 63,30,0
DATA 63,30,0
DATA 63,31,0
DATA 63,31,0
DATA 63,32,0
DATA 63,32,0
DATA 63,33,0
DATA 63,33,0
DATA 63,34,0
DATA 63,34,0
DATA 63,35,0
DATA 63,35,0
DATA 63,36,0
DATA 63,36,0
DATA 63,37,0
DATA 63,38,0
DATA 63,38,0
DATA 63,39,0
DATA 63,39,0
DATA 63,40,0
DATA 63,40,0
DATA 63,41,0
DATA 63,41,0
DATA 63,42,0
DATA 63,42,0
DATA 63,43,0
DATA 63,43,0
DATA 63,44,0
DATA 63,44,0
DATA 63,45,0
DATA 63,45,0
DATA 63,46,0
DATA 63,46,0
DATA 63,47,0
DATA 63,47,0
DATA 63,48,0
DATA 63,48,0
DATA 63,49,0
DATA 63,49,0
DATA 63,50,0
DATA 63,50,0
DATA 63,51,0
DATA 63,52,0
DATA 63,52,0
DATA 63,52,0
DATA 63,52,0
DATA 63,52,0
DATA 63,53,0
DATA 63,53,0
DATA 63,53,0
DATA 63,53,0
DATA 63,54,0
DATA 63,54,0
DATA 63,54,0
DATA 63,54,0
DATA 63,54,0
DATA 63,55,0
DATA 63,55,0
DATA 63,55,0
DATA 63,55,0
DATA 63,56,0
DATA 63,56,0
DATA 63,56,0
DATA 63,56,0
DATA 63,57,0
DATA 63,57,0
DATA 63,57,0
DATA 63,57,0
DATA 63,57,0
DATA 63,58,0
DATA 63,58,0
DATA 63,58,0
DATA 63,58,0
DATA 63,59,0
DATA 63,59,0
DATA 63,59,0
DATA 63,59,0
DATA 63,60,0
DATA 63,60,0
DATA 63,60,0
DATA 63,60,0
DATA 63,60,0
DATA 63,61,0
DATA 63,61,0
DATA 63,61,0
DATA 63,61,0
DATA 63,62,0
DATA 63,62,0
DATA 63,62,0
DATA 63,62,0
DATA 63,63,0
DATA 63,63,1
DATA 63,63,2
DATA 63,63,3
DATA 63,63,4
DATA 63,63,5
DATA 63,63,6
DATA 63,63,7
DATA 63,63,8
DATA 63,63,9
DATA 63,63,10
DATA 63,63,10
DATA 63,63,11
DATA 63,63,12
DATA 63,63,13
DATA 63,63,14
DATA 63,63,15
DATA 63,63,16
DATA 63,63,17
DATA 63,63,18
DATA 63,63,19
DATA 63,63,20
DATA 63,63,21
DATA 63,63,21
DATA 63,63,22
DATA 63,63,23
DATA 63,63,24
DATA 63,63,25
DATA 63,63,26
DATA 63,63,27
DATA 63,63,28
DATA 63,63,29
DATA 63,63,30
DATA 63,63,31
DATA 63,63,31
DATA 63,63,32
DATA 63,63,33
DATA 63,63,34
DATA 63,63,35
DATA 63,63,36
DATA 63,63,37
DATA 63,63,38
DATA 63,63,39
DATA 63,63,40
DATA 63,63,41
DATA 63,63,42
DATA 63,63,42
DATA 63,63,43
DATA 63,63,44
DATA 63,63,45
DATA 63,63,46
DATA 63,63,47
DATA 63,63,48
DATA 63,63,49
DATA 63,63,50
DATA 63,63,51
DATA 63,63,52
DATA 63,63,52
DATA 63,63,53
DATA 63,63,54
DATA 63,63,55
DATA 63,63,56
DATA 63,63,57
DATA 63,63,58
DATA 63,63,59
DATA 63,63,60
DATA 63,63,61
DATA 63,63,62
DATA 63,63,63