dos33fsprogs/fire/hello.bas

16 lines
562 B
QBasic
Raw Normal View History

2018-12-30 05:17:38 +00:00
5 HOME
2019-01-04 22:13:56 +00:00
7 X=PEEK(49235): REM FORCE II+ BEHAVIOR FOR TESTING
10 PRINT "FIRE DEMO V1.4 BY DEATER"
2019-01-04 05:56:34 +00:00
20 PRINT:PRINT
30 PRINT "WHICH DEMO DO YOU WISH TO RUN?"
2019-01-04 22:13:56 +00:00
40 PRINT "1. FIRE_EXTREME (64 BYTES)"
2019-01-04 05:56:34 +00:00
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"
2019-01-04 05:56:34 +00:00
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