diff --git a/glados3.3/still_alive.bas b/glados3.3/still_alive.bas index dc32b3fc..1259bfd4 100644 --- a/glados3.3/still_alive.bas +++ b/glados3.3/still_alive.bas @@ -16,7 +16,7 @@ 20 REM SLOWTEXT 21 FOR C = 1 TO LEN(T$) 22 PRINT MID$(T$, C, 1); -23 FOR I = 1 TO 2:NEXT I +23 FOR I = 1 TO 1:NEXT I 24 NEXT C ' ' Sound routine @@ -409,6 +409,8 @@ 513 T$="a":F=91:GOSUB 20 514 T$="live."+C$:D=162:F=91:GOSUB 20 ' +' PAGE 3 +' 516 HOME:C$=CHR$(13) 518 T$="Forms FORM-55551-6:"+C$:GOSUB 30 520 T$="Personnel File Addendum ":GOSUB 30 @@ -416,69 +418,44 @@ 523 PRINT 524 T$="One last thing:"+C$:GOSUB 20 526 PRINT -'FOR i = 1 TO 3 -'REM SOUND 123.4, 14.4 -'REM SOUND 0, .1 -'REM SOUND 123.4, 4.8 -'REM SOUND 146.6, 14.4 -'REM SOUND 0, .1 -'REM SOUND 146.6, 4.8 -'NEXT i ' ' Go ahead and leave me ' -528 T$="Go ":GOSUB 20:REM SOUND 391.9, 4.8 -530 T$="ahead ":GOSUB 20:REM SOUND 369.9, 4.8 -532 T$="and ":GOSUB 20:REM SOUND 329.6, 4.8 -534 T$="leave ":GOSUB 20:REM SOUND 0, .1:REM SOUND 329.6, 9.6 -536 T$="me"+C$:GOSUB 20:REM SOUND 369.9, 14.2 -'REM SOUND 123.4, 4.8 -'REM SOUND 146.8, 4.8 -'REM SOUND 184.9, 4.8 -'REM SOUND 146.8, 4.8 -'REM SOUND 110, 4.8 -'REM SOUND 123.4, 4.8 -'REM SOUND 146.8, 4.8 +528 T$="Go ":D=54:F=85:GOSUB 20 +530 T$="a":D=27:F=91:GOSUB 20 +531 T$="head ":GOSUB 20 +532 T$="and ":D=54:F=102:GOSUB 20 +534 T$="leave ":D=108:F=102:GOSUB 20 +536 T$="me"+C$:D=54:F=91:GOSUB 20 ' -' think I prefer to stay inside. +' I think I prefer to stay inside. ' -538 T$="I ":GOSUB 20:REM SOUND 220, 4.8 -540 T$="think ":GOSUB 20:REM SOUND 391.9, 4.8 -542 T$="I ":GOSUB 20:REM SOUND 369.9, 4.8 -544 T$="pre":GOSUB 20:REM SOUND 329.6, 4.8 -546 T$="fer ":GOSUB 20:REM SOUND 0, .1:REM SOUND 329.6, 14.2 -548 T$="to ":GOSUB 20:REM SOUND 369.9, 4.8 -550 T$="stay ":GOSUB 20:REM SOUND 293.6, 14.2 -552 T$="in":GOSUB 20:REM SOUND 329.6, 4.8 -554 T$="side."+C$:GOSUB 20: REM SOUND 220, 24 -' -'REM SOUND 123.4, 4.8 -'REM SOUND 146.8, 4.8 -'REM SOUND 184.9, 4.8 -'REM SOUND 146.8, 4.8 +538 T$="I ":F=152:GOSUB 20:REM SOUND 220, 4.8 +540 T$="think ":F=85:GOSUB 20:REM SOUND 391.9, 4.8 +542 T$="I ":F=91:GOSUB 20:REM SOUND 369.9, 4.8 +544 T$="pre":F=102:GOSUB 20:REM SOUND 329.6, 4.8 +546 T$="fer ":F=102:GOSUB 20:REM SOUND 0, .1:REM SOUND 329.6, 14.2 +547 FOR I=1 TO 160: NEXT +548 T$="to ":F=91:GOSUB 20:REM SOUND 369.9, 4.8 +550 T$="stay ":F=114:GOSUB 20:REM SOUND 293.6, 14.2 +551 FOR I=1 TO 160: NEXT +552 T$="in":F=102:GOSUB 20:REM SOUND 329.6, 4.8 +554 T$="side."+C$:D=108:F=152:GOSUB 20: REM SOUND 220, 24 +555 FOR I=1 TO 560: NEXT ' ' Maybe you'll find someone else ' -556 T$="May":GOSUB 20:REM SOUND 329.6, 9.6 -558 T$="be ":GOSUB 20:REM SOUND 369.9, 4.8 -560 T$="you'll ":GOSUB 20:REM SOUND 391.9, 14.2 -562 T$="find ":GOSUB 20:REM SOUND 329.6, 9.6 -564 T$="some":GOSUB 20:REM SOUND 277.1, 9.6 -566 T$="one ":GOSUB 20:REM SOUND 293.6, 4.8 -568 T$="else"+C$:GOSUB 20:REM SOUND 329.6, 9.6 -'delaytime = .48 -' -' to help you. -' -570 T$="to ":GOSUB 20:REM SOUND 220, 4.8 -572 T$="help ":GOSUB 20:REM SOUND 0, .1:REM SOUND 220, 9.6 -574 T$="you."+C$:GOSUB 20:REM SOUND 369.9, 24 -'REM SOUND 184.9, 4.8 -'REM SOUND 146.8, 4.8 -'REM SOUND 110, 4.8 -'REM SOUND 146.8, 4.8 -'REM SOUND 184.9, 4.8 -'REM SOUND 146.8, 4.8 +556 T$="May":F=102:GOSUB 20:REM SOUND 329.6, 9.6 +558 T$="be ":D=54:F=91:GOSUB 20:REM SOUND 369.9, 4.8 +560 T$="you'll ":D=162:F=85:GOSUB 20:REM SOUND 391.9, 14.2 +562 T$="find ":D=108:F=102:GOSUB 20:REM SOUND 329.6, 9.6 +564 T$="some":F=121:GOSUB 20:REM SOUND 277.1, 9.6 +566 T$="one ":D=54:F=114:GOSUB 20:REM SOUND 293.6, 4.8 +568 T$="else"+C$:D=162:F=102:GOSUB 20:REM SOUND 329.6, 9.6 +570 T$="to ":D=54:F=152:GOSUB 20:REM SOUND 220, 4.8 +572 T$="help ":D=108:F=152:GOSUB 20:REM SOUND 0, .1:REM SOUND 220, 9.6 +574 T$="you."+C$:D=54:F=91:GOSUB 20:REM SOUND 369.9, 24 +575 FOR I=1 TO 800:NEXT ' ' Black Mesa ' @@ -486,105 +463,42 @@ ' ' Maybe Black Mesa. ' -578 T$="May":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 493.8, 1 -'NEXT i -580 T$="be ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 369.9, 1 -'REM SOUND 440, 1 -'NEXT i -582 T$="Black ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 329.6, 1 -'REM SOUND 391.9, 1 -'NEXT i -584 T$="Me":GOSUB 20 -'REM SOUND 0, .1 -'FOR i = 1 TO 4.755 -'REM SOUND 329.6, 1 -'REM SOUND 391.9, 1 -'NEXT i -586 T$="sa.":GOSUB 20 -'FOR i = 1 TO 4.8 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -'REM SOUND 0, .1 -' -'REM SOUND 146.8, 4.8 -'REM SOUND 123.4, 14.4 -'delay -'REM SOUND 123.4, 4.8 -'REM SOUND 146.8, 14.4 -'delay -'REM SOUND 146.8, 4.8 +578 T$="May":F=85:GOSUB 20 +580 T$="be ":F=91:GOSUB 20 +582 T$="Black ":F=102:GOSUB 20 +584 T$="Me":D=108:F=102:GOSUB 20 +586 T$="sa.":D=54:F=91:GOSUB 20 +587 FOR I=1 TO 800:NEXT I ' ' THAT WAS A JOKE. ' -588 T$=".."+C$:GOSUB 20 -590 T$="THAT ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 493.8, 1 -'NEXT i -592 T$="WAS ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -594 T$="A ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 329.6, 1 -'REM SOUND 391.9, 1 -'NEXT i -596 T$="JOKE. ":GOSUB 20 -'FOR i = 1 TO 7.2 -'REM SOUND 391.9, 1 -'REM SOUND 329.6, 1 -'NEXT i +588 T$=".."+C$:GOSUB 30 +590 T$="THAT ":F=85:GOSUB 20 +591 T$="WAS ":F=91:GOSUB 20 +592 T$="A ":F=102:GOSUB 20 +593 T$="JOKE.":F=102:GOSUB 20 +594 FOR I=1 TO 160: NEXT ' ' HAHA ' -'FOR i = 1 TO 2.4 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -'FOR i = 1 TO 7.2 -'REM SOUND 369.9, 1 -'REM SOUND 293.6, 1 -'NEXT i +595 T$=" ":F=91:GOSUB 20 +596 T$=" ":F=114:GOSUB 20 +597 FOR I=1 TO 160: NEXT ' ' FAT CHANCE. ' -598 T$="FAT ":GOSUB 30 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 329.6, 1 -'NEXT i -600 T$="CHANCE."+C$:GOSUB 30 -'FOR i = 1 TO 7.2 -'REM SOUND 293.6, 1 -'REM SOUND 220, 1 -'NEXT i -' -'delaytime = .48 -' -'REM SOUND 146.8, 4.8 -'REM SOUND 123.4, 14.4 -'REM SOUND 0, .1 -'REM SOUND 123.4, 4.8 +598 T$="FAT ":F=102:GOSUB 20 +600 T$="CHANCE."+C$:D=108:F=152:GOSUB 30 +601 FOR I=1 TO 560: NEXT ' ' Anyway, this cake is ' -602 T$="A":GOSUB 20:REM SOUND 329.6, 9.6 -604 T$="ny":GOSUB 20:REM SOUND 369.9, 4.8 -606 T$="way, ":GOSUB 20:REM SOUND 391.9, 14.4 -608 T$="this ":GOSUB 20:REM SOUND 329.6, 9.6 -610 T$="cake ":GOSUB 20:REM SOUND 277.1, 9.6 -612 T$="is ":GOSUB 20:REM SOUND 293.6, 4.8 +602 T$="A":F=102:GOSUB 20 +604 T$="ny":D=54:F=91:GOSUB 20 +606 T$="way, ":D=162:F=85:GOSUB 20 +608 T$="this ":D=108:F=102:GOSUB 20 +610 T$="cake ":F=121:GOSUB 20 +612 T$="is ":D=54:F=114:GOSUB 20 ' ' CAKE ' @@ -593,17 +507,19 @@ ' ' great. ' -616 T$="great."+C$:GOSUB 20:REM SOUND 329.6, 9.6 +616 T$="great."+C$:F=102:GOSUB 20 +617 FOR I=1 TO 80: NEXT ' ' It's so delicious and moist. ' -618 T$="It's ":GOSUB 20:REM SOUND 220, 4.8 -620 T$="so ":GOSUB 20:REM SOUND 293.6, 4.8 -622 T$="de":GOSUB 20:REM SOUND 329.6, 4.8 -624 T$="li":GOSUB 20:REM SOUND 349.2, 4.8 -626 T$="cious ":GOSUB 20:REM SOUND 329.6, 4.8 -628 T$="and ":GOSUB 20:REM SOUND 293.6, 4.8 -630 T$="moist."+C$:GOSUB 20:REM SOUND 261.6, 14.4 +618 T$="It's ":F=152:GOSUB 20 +620 T$="so ":F=114:GOSUB 20 +622 T$="de":F=102:GOSUB 20 +624 T$="li":F=96:GOSUB 20 +626 T$="cious ":F=102:GOSUB 20 +628 T$="and ":F=114:GOSUB 20 +630 T$="moist."+C$:F=128:GOSUB 20 +631 FOR I=1 TO 160: NEXT ' ' GLaDOS ' @@ -611,17 +527,17 @@ ' ' Look at me still talking. ' -634 T$="Look ":GOSUB 20:REM SOUND 220, 4.8 -636 T$="at ":GOSUB 20:REM SOUND 233, 4.8 -638 T$="me ":GOSUB 20:REM SOUND 261.6, 9.6 -640 T$="still ":GOSUB 20:REM SOUND 349.2, 9.6 -642 T$="tal":GOSUB 20:REM SOUND 329.6, 4.8 -644 T$="king"+C$:GOSUB 20:REM SOUND 293.6, 4.8 +634 T$="Look ":F=152:GOSUB 20 +636 T$="at ":F=143:GOSUB 20 +638 T$="me ":D=108:F=128:GOSUB 20 +640 T$="still ":F=96:GOSUB 20 +642 T$="tal":D=54:F=102:GOSUB 20 +644 T$="king"+C$:F=114:GOSUB 20 ' -' when there's Science to do. +' when there's ' -646 T$="when ":GOSUB 20:REM SOUND 0, .1:REM SOUND 293.6, 4.8 -648 T$="there's ":GOSUB 20:REM SOUND 261.6, 4.8 +646 T$="when ":F=114:GOSUB 20 +648 T$="there's ":F=128:GOSUB 20 ' ' RADIATION 650 GOSUB 18:GOSUB 15:HOME:GOSUB 2100: GOSUB 10:GOSUB 19:PRINT @@ -629,10 +545,10 @@ ' 'Science to do. ' -654 T$="Sci":GOSUB 20:REM SOUND 293.6, 4.8 -656 T$="ence ":GOSUB 20:REM SOUND 261.6, 4.8 -658 T$="to ":GOSUB 20:REM SOUND 0, .1:REM SOUND 261.6, 9.6 -660 T$="do."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 261.6, 9.6 +654 T$="Sci":F=114:GOSUB 20 +656 T$="ence ":F=128:GOSUB 20 +658 T$="to ":D=108:F=128:GOSUB 20 +660 T$="do."+C$:F=128:GOSUB 20 ' ' APERTURE SCIENCE LOGO ' @@ -640,21 +556,21 @@ ' ' When I look out there ' -664 T$="When ":GOSUB 20:REM SOUND 220, 4.8 -666 T$="I ":GOSUB 20:REM SOUND 233, 4.8 -668 T$="look ":GOSUB 20:REM SOUND 261.6, 9.6 -670 T$="out ":GOSUB 20:REM SOUND 349.2, 9.6 -672 T$="there, "+C$:GOSUB 20:REM SOUND 391.9, 4.8 +664 T$="When ":D=54:F=152:GOSUB 20 +666 T$="I ":F=143:GOSUB 20 +668 T$="look ":D=108:F=128:GOSUB 20 +670 T$="out ":F=96:GOSUB 20 +672 T$="there, "+C$:D=54:F=85:GOSUB 20 ' ' it makes me GLaD I'm not you."+C$ ' -674 T$="it ":GOSUB 20:REM SOUND 349.2, 4.8 -676 T$="Makes ":GOSUB 20:REM SOUND 329.6, 4.8 -678 T$="me ":GOSUB 20:REM SOUND 293.6, 4.8 -680 T$="GLaD ":GOSUB 20:REM SOUND 0, .1:REM SOUND 293.6, 4.8 -682 T$="I'm ":GOSUB 20:REM SOUND 329.6, 4.8 -684 T$="not ":GOSUB 20:REM SOUND 349.2, 9.6 -686 T$="you."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 349.2, 9.6 +674 T$="it ":F=96:GOSUB 20 +676 T$="Makes ":F=102:GOSUB 20 +678 T$="me ":F=114:GOSUB 20 +680 T$="GLaD ":F=114:GOSUB 20 +682 T$="I'm ":F=102:GOSUB 20 +684 T$="not ":D=108:F=96:GOSUB 20 +686 T$="you."+C$:F=96:GOSUB 20 ' ' ATOM ' @@ -662,13 +578,13 @@ ' ' I've experiments to run. ' -690 T$="I've ":GOSUB 20:REM SOUND 391.9, 4.8 -692 T$="ex":GOSUB 20:REM SOUND 440, 4.8 -694 T$="pe":GOSUB 20:REM SOUND 466.1, 4.8 -696 T$="ri":GOSUB 20:REM SOUND 0, .1:REM SOUND 466.1, 4.8: -698 T$="ments ":GOSUB 20:REM SOUND 440, 4.7 -700 T$="to ":GOSUB 20:REM SOUND 391.9, 4.7:REM SOUND 0, .18 -702 T$="run."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 391.9, 9.6 +690 T$="I've ":D=54:F=85:GOSUB 20 +692 T$="ex":F=76:GOSUB 20 +694 T$="pe":F=72:GOSUB 20 +696 T$="ri":F=72:GOSUB 20 +698 T$="ments ":F=76:GOSUB 20 +700 T$="to ":F=85:GOSUB 20 +702 T$="run."+C$:D=108:F=85:GOSUB 20 ' ' EXPLOSION ' @@ -676,13 +592,13 @@ ' ' There is research to be done" ' -706 T$="There ":GOSUB 20:REM SOUND 349.2, 4.8 -708 T$="is ":GOSUB 20:REM SOUND 391.9, 4.8 -710 T$="re":GOSUB 20:REM SOUND 440, 4.8 -712 T$="search ":GOSUB 20::REM SOUND 0, .1:REM SOUND 440, 4.8 -714 T$="to ":GOSUB 20:REM SOUND 391.9, 4.8 -716 T$="be ":GOSUB 20:REM SOUND 349.2, 4.8 -718 T$="done."+C$:GOSUB 20:REM SOUND 349.2, 9.6 +706 T$="There ":D=54:F=96:GOSUB 20 +708 T$="is ":F=85:GOSUB 20 +710 T$="re":F=76:GOSUB 20 +712 T$="search ":F=76:GOSUB 20 +714 T$="to ":F=85:GOSUB 20 +716 T$="be ":F=96:GOSUB 20 +718 T$="done."+C$:D=108:F=96:GOSUB 20 ' ' APERTURE SCIENCE LOGO ' @@ -690,197 +606,138 @@ ' ' On the people who are ' -722 T$="On ":GOSUB 20:REM SOUND 293.6, 4.8 -724 T$="the ":GOSUB 20:REM SOUND 261.6, 4.8 -726 T$="peo":GOSUB 20:REM SOUND 293.6, 4.8 -728 T$="ple ":GOSUB 20:REM SOUND 349.2, 4.8 -730 T$="who ":GOSUB 20:REM SOUND 0, .1:REM SOUND 349.2, 4.8 -732 T$="are"+C$:GOSUB 20:REM SOUND 329.6, 9.6 +722 T$="On ":D=54:F=114:GOSUB 20 +724 T$="the ":F=128:GOSUB 20 +726 T$="peo":F=114:GOSUB 20 +728 T$="ple ":F=96:GOSUB 20 +730 T$="who ":F=96:GOSUB 20 +732 T$="are"+C$:D=108:GOSUB 20 ' ' still alive. ' -734 T$="still ":GOSUB 20:REM SOUND 329.6, 4.8 -736 T$="a":GOSUB 20:REM SOUND 369.9, 4.8 -738 T$="live."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 369.9, 24 +734 T$="still ":D=54:F=102:GOSUB 20 +736 T$="a":F=91:GOSUB 20 +738 T$="live."+C$:D=162:F=91:GOSUB 20 +739 FOR I=1 TO 160: NEXT +' ' -' hl ' 740 HOME:PRINT:PRINT:PRINT ' -' hl -' ' PS: And believe me I am\nstill alive. ' -742 T$="PS: And ":GOSUB 20:REM SOUND 440, 4.7 -744 T$="be":GOSUB 20:REM SOUND 440, 4.7 -' delaytime = .09 -746 T$="lieve ":GOSUB 20:REM SOUND 493.8, 4.7 -' delaytime = .09 -748 T$="me ":GOSUB 20:REM SOUND 440, 4.7 -'delaytime = .09 -750 T$="I ":GOSUB 20:REM SOUND 369.9, 4.7 -' delaytime = .09 -752 T$="am"+C$:GOSUB 20:REM SOUND 293.6, 9.6 -754 T$="still ":GOSUB 20:REM SOUND 329.6, 4.8 -756 T$="a":GOSUB 20:REM SOUND 369.9, 4.8 -758 T$="live."+C$:GOSUB 20 -'FOR i = 1 TO 7.2 -'REM SOUND 369.9, 1 -'REM SOUND 440, 1 -'NEXT i -' -'hl -' +742 T$="PS: And ":D=54:F=76:GOSUB 20 +744 T$="be":F=76:GOSUB 20 +746 T$="lieve ":F=68:GOSUB 20 +748 T$="me ":F=76:GOSUB 20 +750 T$="I ":F=91:GOSUB 20 +752 T$="am"+C$:D=108:F=114:GOSUB 20 +754 T$="still ":D=54:F=102:GOSUB 20 +756 T$="a":F=91:GOSUB 20 +758 T$="live."+C$:D=162:F=91:GOSUB 20 +759 FOR I=1 TO 240:NEXT ' ' PPS: I'm doing Science and I'm\nstill alive. ' 760 T$="PPS: ":GOSUB 30 -762 T$="I'm ":GOSUB 20:REM SOUND 440, 4.8 -764 T$="do":GOSUB 20:REM SOUND 440, 4.8 -766 T$="ing ":GOSUB 20 -'delaytime = .01 -'REM SOUND 440, 4.8 -768 T$="Sci":GOSUB 20:REM SOUND 493.8, 4.8 -770 T$="ence ":GOSUB 20:REM SOUND 440, 4.8 -772 T$="and ":GOSUB 20:REM SOUND 369.9, 4.8 -774 T$="I'm"+C$:GOSUB 20:REM SOUND 293.6, 9.6 -776 T$="still ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 329.6, 1 -'NEXT i -778 T$="a":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -780 T$="live."+C$:GOSUB 20 -'FOR i = 1 TO 7.2 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -' -'hl -' +762 T$="I'm ":D=54:F=76:GOSUB 20 +764 T$="do":F=76:GOSUB 20 +766 T$="ing ":F=76:GOSUB 20 +768 T$="Sci":F=68:GOSUB 20 +770 T$="ence ":F=76:GOSUB 20 +772 T$="and ":F=91:GOSUB 20 +774 T$="I'm"+C$:D=108:F=114:GOSUB 20 +776 T$="still ":D=54:F=102:GOSUB 20 +778 T$="a":F=91:GOSUB 20 +780 T$="live."+C$:D=162:F=91:GOSUB 20 +781 FOR I=1 TO 240:NEXT ' ' PPPS: I feel FANTASTIC and I'm\nstill alive ' 782 T$="PPPS: ":GOSUB 30 -784 T$="I ":GOSUB 20:REM SOUND 440, 4.8 -786 T$="feel ":GOSUB 20 -'delaytime = .01 -'REM SOUND 440, 4.8 -788 T$="FAN":GOSUB 20 -'delaytime = .01 -'REM SOUND 440, 4.8 -790 T$="TAS":GOSUB 20:REM SOUND 493.8, 4.8 -792 T$="TIC ":GOSUB 20:REM SOUND 440, 4.8 -794 T$="and ":GOSUB 20:REM SOUND 369.9, 4.8 -796 T$="I'm"+C$:GOSUB 20:REM SOUND 293.6, 9.6 -798 T$="still ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 329.6, 1 -'NEXT i -800 T$="a":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -802 T$="live."+C$:GOSUB 20: -'delaytime = .01 -'FOR i = 1 TO 7.2 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i +784 T$="I ":D=54:F=76:GOSUB 20 +786 T$="feel ":F=76:GOSUB 20 +788 T$="FAN":F=76:GOSUB 20 +790 T$="TAS":F=68:GOSUB 20 +792 T$="TIC ":F=76:GOSUB 20 +794 T$="and ":F=91:GOSUB 20 +796 T$="I'm"+C$:D=108:F=114:GOSUB 20 +798 T$="still ":D=54:F=102:GOSUB 20 +800 T$="a":F=91:GOSUB 20 +802 T$="live."+C$:D=162:F=91:GOSUB 20 +803 FOR I=1 TO 320:NEXT 804 PRINT +' +' FINAL THOUGHT: +' 806 T$="FINAL THOUGHT:"+C$:GOSUB 30 ' -'hl +' While you're dying I'll be\nstill alive. ' +808 T$="While ":D=54:F=76:GOSUB 20 +810 T$="you're ":F=76:GOSUB 20 +812 T$="dy":F=68:GOSUB 20 +814 T$="ing ":F=76:GOSUB 20 +816 T$="I'll ":F=91:GOSUB 20 +818 T$="be"+C$:D=108:F=114:GOSUB 20 +820 T$="still ":D=54:F=102:GOSUB 20 +822 T$="a":F=91:GOSUB 20 +824 T$="live":D=162:F=91:GOSUB 20 +825 FOR I=1 TO 240:NEXT ' -' FINAL THOUGHT:\nWhile you're dying I'll be\nstill alive. +' FINAL THOUGHT PS ' -808 T$="While ":GOSUB 20:REM SOUND 440, 4.8 -810 T$="you're ":GOSUB 20 -'delaytime = .01 -'REM SOUND 440, 4.8 -812 T$="dy":GOSUB 20:REM SOUND 493.8, 4.8 -814 T$="ing ":GOSUB 20:REM SOUND 440, 4.8 -816 T$="I'll ":GOSUB 20:REM SOUND 369.9, 4.8 -818 T$="be"+C$:GOSUB 20:REM SOUND 293.6, 9.6 -820 T$="still ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 391.9, 1 -'REM SOUND 329.6, 1 -'NEXT i -822 T$="a":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 369.9, 1 -'REM SOUND 440, 1 -'NEXT i -824 T$="live":GOSUB 20:REM SOUND 0, .1 -'FOR i = 1 TO 9.6 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i 826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30 ' -'hl +' And when you're dead I will be\nstill alive +' +828 T$="And ":D=54:F=76:GOSUB 20 +830 T$="when ":F=76:GOSUB 20 +832 T$="you're ":F=76:GOSUB 20 +834 T$="dead ":F=68:GOSUB 20 +836 T$="I ":F=76:GOSUB 20 +838 T$="will ":F=91:GOSUB 20 +840 T$="be"+C$:D=108:F=114:GOSUB 20 +842 T$="still ":D=54:F=102:GOSUB 20 +844 T$="a":F=91:GOSUB 20 +846 T$="live"+C$:D=162:F=91:GOSUB 20 +847 FOR I=1 TO 240:NEXT ' ' -' FINAL THOUGHT PS\nAnd when you're dead I will be\nstill alive ' -828 T$="And ":GOSUB 20:REM SOUND 440, 4.8 -830 T$="when ":GOSUB 20:REM SOUND 0, .1:REM SOUND 440, 4.8 -832 T$="you're ":GOSUB 20:REM SOUND 0, .1:REM SOUND 440, 4.8 -834 T$="dead ":GOSUB 20:REM SOUND 493.8, 4.8 -836 T$="I ":GOSUB 20:REM SOUND 440, 4.8 -838 T$="will ":GOSUB 20:REM SOUND 369.9, 4.8 -840 T$="be"+C$:GOSUB 20:REM SOUND 293.6, 9.6 -842 T$="still ":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 329.6, 1 -'REM SOUND 391.9, 1 -'NEXT i -844 T$="a":GOSUB 20 -'FOR i = 1 TO 2.4 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -846 T$="live"+C$:GOSUB 20:REM SOUND 0, .1 -'FOR i = 1 TO 7.2 -'REM SOUND 440, 1 -'REM SOUND 369.9, 1 -'NEXT i -'delaytime = 1.44 848 PRINT:PRINT ' -'REM -'REM SOUND 391.9, 4.8 -'REM SOUND 440, 4.8 -'REM SOUND 0, .1 -'REM SOUND 440, 14.4 -'delaytime = 1.44 -'REM -' ' STILL ALIVE ' -850 T$="STILL ":GOSUB 20:REM SOUND 391.9, 4.8 -852 T$="ALIVE":GOSUB 20:REM SOUND 0, .1:REM SOUND 369.9, 4.8 -'REM SOUND 0, .1 -'REM SOUND 369.9, 4.8 -853 FOR I=1 TO 500:NEXT I -854 HOME -856 FOR I=1 TO 1000:NEXT I -858 T$="THANK YOU FOR PARTICIPATING"+C$:GOSUB 20 -860 T$="IN THIS"+C$:GOSUB 20 -862 T$="ENRICHMENT CENTER ACTIVITY!!"+C$:GOSUB 20 -864 PRINT:PRINT -868 FOR I=1 TO 3000: NEXT I +850 T$="STILL ":D=54:F=85:GOSUB 20 +851 T$="A":F=76:GOSUB 20 +852 T$="LIVE":D=162:F=76:GOSUB 20 +853 FOR I=1 TO 240:NEXT +854 PRINT:PRINT +' +' STILL ALIVE +' +855 T$="STILL ":D=54:F=85:GOSUB 20 +856 T$="A":F=91:GOSUB 20 +857 T$="LIVE":D=162:F=91:GOSUB 20 +858 FOR I=1 TO 240:NEXT +' +' +' +860 FOR I=1 TO 500:NEXT I +862 HOME +864 FOR I=1 TO 1000:NEXT I +866 T$="THANK YOU FOR PARTICIPATING"+C$:GOSUB 30 +868 T$="IN THIS"+C$:GOSUB 30 +870 T$="ENRICHMENT CENTER ACTIVITY!!"+C$:GOSUB 30 +872 PRINT:PRINT +874 FOR I=1 TO 3000: NEXT I 1000 TEXT:HOME 1999 END -2000 REM APETURE +' +' +' +2000 REM APERTURE 2001 PRINT " .,-:;//;:=," 2002 PRINT " . :H@@@MM@M#H/.,+%;," 2003 PRINT " ,/X+ +M@@M@MM%=,-%HMMM@X/," @@ -1109,11 +966,4 @@ 3019 PRINT " H#M /@####/ ,++. / ==-," 3020 PRINT " ,=/:, .+X@MMH@#H #####$="; 3030 RETURN -' -'3100 REM hl -'3101 REM SOUND 146.6, 4.8 -'3102 REM SOUND 0, .1 -'3103 REM SOUND 146.6, 4.8 -'3104 REM SOUND 123.4, 4.8 -'3105 RETURN -' +