   5  HOME
   7 X=PEEK(49235): REM FORCE II+ BEHAVIOR FOR TESTING
  10  PRINT "FIRE DEMO V1.4 BY DEATER"
  20  PRINT:PRINT
  30  PRINT "WHICH DEMO DO YOU WISH TO RUN?"
  40  PRINT "1. FIRE_EXTREME (64 BYTES)"
  50  PRINT "2. FIRE_FIRMWARE (80 BYTES)"
  60  PRINT "3. FIRE_TINY (105 BYTES)"
  70  PRINT "4. RANDOM COOL EFFECT"
  80  INPUT A
 100  IF A=1 THEN PRINT  CHR$ (4)"BRUN FIRE_EXTREME"
 110  IF A=2 THEN PRINT  CHR$ (4)"BRUN FIRE_FIRMWARE"
 120  IF A=3 THEN PRINT  CHR$ (4)"BRUN FIRE_TINY"
 130  IF A=4 THEN PRINT  CHR$ (4)"BRUN COOL_EFFECT"
 140  GOTO 5
