mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-27 07:30:12 +00:00
glados: music done
need to debug a bit
This commit is contained in:
Vince Weaver
parent
ce51c2cfc4
commit
4622a0c495
@ -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 <STILL ALIVE>
|
||||
'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>
|
||||
'
|
||||
' 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
|
||||
'
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user