DECLARE SUB trans ()



SCREEN 9
CLS
PLAY "MBT100CDL8EGL2E.L8DEL4CL8<A>CL2D.L4CDL8EGL2B.L8B>C<L4AL8GAL2G."

SLEEP 1
PALETTE 4, 49
LOCATE 9, 32
COLOR 12
PRINT "CALUNCHWAR STUDIO"
SLEEP 1
CALL trans
CLS
SCREEN 9
PALETTE 4, 49
LOCATE 9, 35
COLOR 4
PRINT "PRESENT"
SLEEP 1
CALL trans
CLS
SCREEN 9
PALETTE 4, 49
LOCATE 9, 22
COLOR 3
PRINT "A GAME REALIZED BY THE CALUNCHER"
SLEEP 1
CALL trans
CLS
SCREEN 7
PALETTE 0, 0
LOCATE 9, 35
COLOR 4
PRINT "              CALUNCH-WAR"
SLEEP 3
CALL trans

CLS
SCREEN 12

COLOR 4
  
    Music$ = "MBT180o2P2P5L8GGGL2E-P24P8L8FFFL2D"
    PLAY Music$
    WHILE PLAY(0) > 5: WEND
    LOCATE 10, 35
    PRINT "CALUNCHWAR"

COLOR 2
GOSUB 200

LOCATE 15, 6
PRINT "P"
GOSUB 200
LOCATE 15, 7
PRINT "L"
GOSUB 200
LOCATE 15, 8
PRINT "A"
GOSUB 200
LOCATE 15, 9
PRINT "Y"
GOSUB 200
LOCATE 15, 10
PRINT "E"
GOSUB 200
LOCATE 15, 11
PRINT "R"
GOSUB 200
'LOCATE 15, 12
'PRINT "R"
'GOSUB 200
LOCATE 15, 14
PRINT "1"
GOSUB 200
LOCATE 15, 15
PRINT ":"


GOSUB 200
LOCATE 15, 17
PRINT "e"
GOSUB 200
LOCATE 15, 18
PRINT "n"
GOSUB 200
LOCATE 15, 19
PRINT "t"
GOSUB 200
LOCATE 15, 20
PRINT "e"
GOSUB 200
LOCATE 15, 21
PRINT "r"

GOSUB 200
LOCATE 15, 23
PRINT "y"
GOSUB 200
LOCATE 15, 24
PRINT "o"
GOSUB 200
LOCATE 15, 25
PRINT "u"
GOSUB 200
LOCATE 15, 26
PRINT "r"

GOSUB 200
LOCATE 15, 28
PRINT "n"
GOSUB 200
LOCATE 15, 29
PRINT "a"
GOSUB 200
LOCATE 15, 30
PRINT "m"
GOSUB 200
LOCATE 15, 31
PRINT "e"
GOSUB 200
LOCATE 15, 32
PRINT "?"

GOTO 300
200
FOR a% = 1 TO 1000
BEEP
BEEP
BEEP
NEXT a%
RETURN

300

SLEEP 0

LOCATE 15, 35
INPUT "", name1p$

COLOR 0

LOCATE 15, 6
PRINT "P"
GOSUB 200
LOCATE 15, 7
PRINT "L"
GOSUB 200
LOCATE 15, 8
PRINT "A"
GOSUB 200
LOCATE 15, 9
PRINT "Y"
GOSUB 200
LOCATE 15, 10
PRINT "E"
GOSUB 200
LOCATE 15, 11
PRINT "R"
GOSUB 200
'LOCATE 15, 12
'PRINT "R"
'GOSUB 200
LOCATE 15, 14
PRINT "1"
GOSUB 200
LOCATE 15, 15
PRINT ":"
GOSUB 200
LOCATE 15, 17
PRINT "e"
GOSUB 200
LOCATE 15, 18
PRINT "n"
GOSUB 200
LOCATE 15, 19
PRINT "t"
GOSUB 200
LOCATE 15, 20
PRINT "e"
GOSUB 200
LOCATE 15, 21
PRINT "r"

GOSUB 200
LOCATE 15, 23
PRINT "y"
GOSUB 200
LOCATE 15, 24
PRINT "o"
GOSUB 200
LOCATE 15, 25
PRINT "u"
GOSUB 200
LOCATE 15, 26
PRINT "r"

GOSUB 200
LOCATE 15, 28
PRINT "n"
GOSUB 200
LOCATE 15, 29
PRINT "a"
GOSUB 200
LOCATE 15, 30
PRINT "m"
GOSUB 200
LOCATE 15, 31
PRINT "e"
GOSUB 200
LOCATE 15, 32
PRINT "?"
LOCATE 15, 35
PRINT name1p$, 0

COLOR 2
LOCATE 20, 6
PRINT "W"
GOSUB 200
LOCATE 20, 7
PRINT "E"
GOSUB 200
LOCATE 20, 8
PRINT "L"
GOSUB 200
LOCATE 20, 9
PRINT "C"
GOSUB 200
LOCATE 20, 10
PRINT "O"
GOSUB 200
LOCATE 20, 11
PRINT "M"
GOSUB 200
LOCATE 20, 12
PRINT "E"
GOSUB 200
LOCATE 20, 14
PRINT "S"
GOSUB 200
LOCATE 20, 15
PRINT "i"
GOSUB 200
LOCATE 20, 16
PRINT "r"

COLOR 4
LOCATE 20, 18
PRINT name1p$


SLEEP 1

CLS
SCREEN 12


COLOR 4
 
    Music$ = "MBT180o3P2P8L8GGGL2E-P24P8L8FFFL2D"
    PLAY Music$
    WHILE PLAY(0) > 5: WEND
    LOCATE 10, 35
    PRINT "CALUNCHWAR"

COLOR 2
GOSUB 200

LOCATE 15, 6
PRINT "P"
GOSUB 200
LOCATE 15, 7
PRINT "L"
GOSUB 200
LOCATE 15, 8
PRINT "A"
GOSUB 200
LOCATE 15, 9
PRINT "Y"
GOSUB 200
LOCATE 15, 10
PRINT "E"
GOSUB 200
LOCATE 15, 11
PRINT "R"
GOSUB 200
'LOCATE 15, 12
'PRINT "R"
'GOSUB 200
LOCATE 15, 14
PRINT "2"
GOSUB 200
LOCATE 15, 15
PRINT ":"


GOSUB 200
LOCATE 15, 17
PRINT "e"
GOSUB 200
LOCATE 15, 18
PRINT "n"
GOSUB 200
LOCATE 15, 19
PRINT "t"
GOSUB 200
LOCATE 15, 20
PRINT "e"
GOSUB 200
LOCATE 15, 21
PRINT "r"

GOSUB 200
LOCATE 15, 23
PRINT "y"
GOSUB 200
LOCATE 15, 24
PRINT "o"
GOSUB 200
LOCATE 15, 25
PRINT "u"
GOSUB 200
LOCATE 15, 26
PRINT "r"

GOSUB 200
LOCATE 15, 28
PRINT "n"
GOSUB 200
LOCATE 15, 29
PRINT "a"
GOSUB 200
LOCATE 15, 30
PRINT "m"
GOSUB 200
LOCATE 15, 31
PRINT "e"
GOSUB 200
LOCATE 15, 32
PRINT "?"

400
SLEEP 0
LOCATE 15, 35
INPUT "", name2p$

COLOR 0

LOCATE 15, 6
PRINT "P"
GOSUB 200
LOCATE 15, 7
PRINT "L"
GOSUB 200
LOCATE 15, 8
PRINT "A"
GOSUB 200
LOCATE 15, 9
PRINT "Y"
GOSUB 200
LOCATE 15, 10
PRINT "E"
GOSUB 200
LOCATE 15, 11
PRINT "R"
GOSUB 200
'LOCATE 15, 12
'PRINT "R"
'GOSUB 200
LOCATE 15, 14
PRINT "2"
GOSUB 200
LOCATE 15, 15
PRINT ":"


GOSUB 200
LOCATE 15, 17
PRINT "e"
GOSUB 200
LOCATE 15, 18
PRINT "n"
GOSUB 200
LOCATE 15, 19
PRINT "t"
GOSUB 200
LOCATE 15, 20
PRINT "e"
GOSUB 200
LOCATE 15, 21
PRINT "r"

GOSUB 200
LOCATE 15, 23
PRINT "y"
GOSUB 200
LOCATE 15, 24
PRINT "o"
GOSUB 200
LOCATE 15, 25
PRINT "u"
GOSUB 200
LOCATE 15, 26
PRINT "r"

GOSUB 200
LOCATE 15, 28
PRINT "n"
GOSUB 200
LOCATE 15, 29
PRINT "a"
GOSUB 200
LOCATE 15, 30
PRINT "m"
GOSUB 200
LOCATE 15, 31
PRINT "e"
GOSUB 200
LOCATE 15, 32
PRINT "?"
LOCATE 15, 35
PRINT name2p$, 0

COLOR 2

LOCATE 20, 6
PRINT "W"
GOSUB 200
LOCATE 20, 7
PRINT "E"
GOSUB 200
LOCATE 20, 8
PRINT "L"
GOSUB 200
LOCATE 20, 9
PRINT "C"
GOSUB 200
LOCATE 20, 10
PRINT "O"
GOSUB 200
LOCATE 20, 11
PRINT "M"
GOSUB 200
LOCATE 20, 12
PRINT "E"
GOSUB 200
LOCATE 20, 14
PRINT "S"
GOSUB 200
LOCATE 20, 15
PRINT "i"
GOSUB 200
LOCATE 20, 16
PRINT "r"

COLOR 4
LOCATE 20, 18
PRINT name2p$

SUB trans
DO
FOR i = 105 TO 0 STEP -1: OUT &H3C7, i: R = INP(&H3C9):
G = INP(&H3C9): B = INP(&H3C9): R = R - 1: G = G - 1: B = B - 1
IF R < 0 THEN R = 0
IF G < 0 THEN G = 0
IF B < 0 THEN B = 0
OUT &H3C8, i: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, B
IF PECZ > 7000 THEN GOTO 372
PECZ = PECZ + 1
NEXT i
LOOP
372
CLS
SCREEN 9
CLS
SCREEN 0
END SUB