dos33fsprogs/still_alive/title.bas

5 HOME
7 PRINT CHR$(4)"MAXFILES 1"
10 PRINT " __ ___ ___          _     ___       __"
15 PRINT "/    |   |  |  |    / \ |   |  |  | |"
20 PRINT "\_   |   |  |  |    |_| |   |  |  | |_"
25 PRINT "  \  |   |  |  |    | | |   |  |  | |"
30 PRINT "__/  |  _|_ |_ |_   | | |_ _|_  \/  |__"
35 PRINT "       ______"
40 PRINT "     A \/\/\/ SOFTWARE PRODUCTION"
45 PRINT
50 PRINT "         FROM PORTAL BY VALVE"
55 PRINT "       MUSIC BY: JONATHAN COLTON"
60 PRINT "         XMP VERSION: DJ ODIN"
65 PRINT "      XMP->YM5 CONVERSION: DEATER"
70 PRINT "           LZ4 CODE: QKUMBA"
75 PRINT "        ELECTRIC DUET: P. LUTUS"
80 PRINT
85 PRINT "   PLEASE SELECT:"
90 PRINT "       1. 80 COLUMN + MOCKINGBOARD"
92 PRINT "       2. 40 COLUMN + MOCKINGBOARD"
94 PRINT "       3. 80 COLUMN + SPEAKER"
96 PRINT "       4. 40 COLUMN + SPEAKER"
98 PRINT "   ----> ";
100 INPUT A
105 IF A<1 OR A>4 THEN PRINT CHR$(7): GOTO 95
110 ON A GOTO 120,130,140,150
120 POKE 768,0:POKE 769,1:GOTO 160
130 POKE 768,1:POKE 769,1:GOTO 160
140 POKE 768,0:POKE 769,0:GOTO 160
150 POKE 768,1:POKE 769,0
160 PRINT CHR$(4);"BRUN SA_COMPRESSED"