'AN ANIMATION WRITTEN IN QBASIC...MAGIC MUSHROOMART
CLS             'HEXSPINN4.BAS  BY GREG VANDERLAAN 
10 SCREEN 13    'SCROLL DOWN FOR THE STORY                     
FOR freak% = 10 TO 50 STEP 10 'A GRATEFUL DEAD TALE
FOR zappa% = 10 TO 120 STEP 3 
LINE (320 - zappa%, 200 - zappa%)-(zappa%, zappa%), freak% + zappa%, BF  'DO YOU HEAR COLORS?
NEXT zappa% 'DO YOU SEE SOUNDS ?
LOCATE 13, 16   'DOES TEXT TRANSFORM ITSELF INTO MISIC ?
PRINT "HEXSPINNER"  'WELL...IT DOES NOW !!!
PLAY "dead"                        'PUSH F5 TO RUN
FOR fc% = 8 TO 64 STEP 8           'PUSH CTRL + BREAK TO STOP!
A% = A% + fc%
FOR ga% = 0 TO 15
A% = A% + 1                      
FOR sing% = 0 TO 250 STEP 50      
SOUND (42 + (sing% * ga%)), .1     
NEXT sing%                         
FOR gb% = 20 TO 300 STEP 20       
IF A% > 127 THEN A% = A% - 128
CIRCLE (160 + fc%, 100 + fc%), gb% + ga%, A%
CIRCLE (160 - fc%, 100 + fc%), gb% + ga%, A%
CIRCLE (160, 100 - fc%), gb% + ga%, A%
NEXT gb%
NEXT ga%
FOR fa% = 0 TO 160 STEP 5
FOR fb% = 0 TO 200 STEP 5
A% = A% + 16: IF A% > 127 THEN A% = A% - 128
LINE (160 - fa%, fb%)-((160 - fa%) - 5, 5 + fb%), A%, BF
LINE (160 + fa%, fb%)-((160 + fa%) + 5, 5 + fb%), A%, BF
NEXT fb%
NEXT fa%
NEXT fc%
PLAY "a g e a16 f16 e16 d16 e4 a16 f16 e16 d16 e4"
fig$ = "bm 160,100 u2 r10 u2 l8 u10 r10 d8 l8 u5 r5 d3 l3 u2"
figa$ = "bm 160,100 d25 r50  d2 l150 u5 r5 d10"
FOR zap% = 1 TO 64
co% = co% + freak%
FOR b% = 0 TO 360 STEP zap%
x% = x% + 1: IF x% > 30 THEN x% = x% - 30
IF x% > 29 THEN co% = co% + 1
ba% = b% - (x% * 3)
IF ba% > 358 THEN ba% = ba% - 359
IF ba% < 0 THEN ba% = ba% + 359
ding% = ba% + 1
C% = 32 - x%
co% = co% + 64: IF co% > 127 THEN co% = co% - 128
DRAW "s=" + VARPTR$(C%)
DRAW "c=" + VARPTR$(co%)
DRAW "ta=" + VARPTR$(ba%) + fig$ + figa$
DRAW "ta=" + VARPTR$(ding%) + fig$ + figa$
SOUND (38 + co% + (b% * x%)), .2
NEXT b%
NEXT zap%
PRINT "imagine that you are floating in a tub"
PRINT "of warm water...every muscle in your"
PRINT "body is completely relaxed...your mind"
PRINT "drifts and contentment blooms like a"
PRINT "time lapse film of a rose..."
PRINT "you leave your body and rise"
PRINT "up to the ceiling...you look back and"
PRINT "see your body...it is resting with a "
PRINT "cup of tea in it's hand...ahh...mint..."
PRINT "as you watch your body,your mind seeps"
PRINT "thru the ceiling and you see the world."
PRINT "there is a forest...it is for    rest."
INPUT "DONE READING ? TYPE A NUMBER BETWEEN 1    AND 63(ENTER)"; A%
FOR ha% = 1 TO 200
A% = A% + 1: IF A% > 127 THEN A% = A% - 128
LINE (0, ha%)-(160, 200 - ha%), A%
LINE (320, ha%)-(160, 200 - ha%), A%
SOUND (252 - A%), .2
NEXT ha%
PLAY "d8 f8 a16 c16 d16 e16 a8 g8 e16 f16 a8 e4"
PLAY "d8 f8 c16 d16 e16 f16 a8 g8 e4 f16 g16 e4"
PLAY " a f g a"
FOR hex% = 1 TO 5
PLAY "a16 d16 e16 f16 a8 d16 e8  a g f a"
FOR zz% = -20 TO 20 STEP 2
FOR az% = -30 TO 30 STEP 3
SOUND 100 + ABS((az% * hex%) * (zz% + 100)), .1
z% = -zz% + az%
A% = A% + 1
FOR QQ% = -300 TO 300 STEP 100
q% = QQ%
A% = A% + 0
IF A% > 127 THEN A% = A% - 128
LINE (160, 100 - q% - z%)-(160 + q% + z%, 100 + q% + z%), A%
LINE (160 + q% + z%, 100 + q% + z%)-(160 - q% - z%, 100 + q% + z%), A%
LINE (160 - q% - z%, 100 + q% + z%)-(160, 100 - q% - z%), A%
LINE (160, 100 + z% + q%)-(160 - q% - z%, 100 - q% - z%), A%
LINE (160 - q% - z%, 100 - q% - z%)-(160 + q% + z%, 100 - q% - z%), A%
LINE (160 + q% + z%, 100 - q% - z%)-(160, 100 + q% + z%), A%
NEXT QQ%
NEXT az%
NEXT zz%
NEXT hex%
LOCATE 1, 1
PRINT "on the shore of a lake a spiral of"
PRINT "deadheads dance around a fire. the"
PRINT "flickering light seems to be perfectly"
PRINT "synchronized to the rhythm of the drums"
PRINT "alas...the reversal of entropy is"
PRINT "mearly an illusion. one of the deadheads"
PRINT "reaches into the shadows and lifts a"
PRINT "five gallon can of gasoline.it is"
PRINT "tightly sealed.he places it on the fire"
PRINT "they all move back...it will take time"
PRINT "for the gas to expand enough to burst"
PRINT "the can. a slender woman with strawberry"
PRINT "blond hair raises a conch shell to her"
PRINT "lips and draws a deep breath. she blows"
PRINT "a long note signaling the beginning of"
PRINT "a new era of mankind. everything is"
PRINT "dripping with meaning.significance"
PRINT "saturates every leaf of every tree"
INPUT "DONE READING? TYPE A NUMBER BETWEEN 1   AND 63"; A%
PRINT "then a tiny hole appears in the gas can"
PRINT "and a cone of fire reaches for the sky"
PRINT "you contemplate metalurgy,welding and"
PRINT "strength of materials.and then the gas"
PRINT "can resigns itself to fate and a ball"
PRINT "of fire searches for oxygen and of "
PRINT "course finds it. the spiral of deadheads"
PRINT "emit a massive yeah!   and you drift on..."
INPUT "DONE READING? ENTER A NUMBER BETWEEN 1      AND 63", A%
NEXT freak%
GOTO 10

'