From e37b689dffa9eab0b3388f1189d03e8a9f00ccbd Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 5 Jan 2017 14:44:51 -0500
Subject: [PATCH] glados: more music added

---
 glados3.3/still_alive.bas | 270 +++++++++++++++++---------------------
 1 file changed, 122 insertions(+), 148 deletions(-)

diff --git a/glados3.3/still_alive.bas b/glados3.3/still_alive.bas
index 7ff710f1..3e5344ac 100644
--- a/glados3.3/still_alive.bas
+++ b/glados3.3/still_alive.bas
@@ -16,9 +16,13 @@
 20 REM SLOWTEXT
 21 FOR C = 1 TO LEN(T$)
 22 PRINT MID$(T$, C, 1);
-23 FOR I = 1 TO 50:NEXT I
+23 FOR I = 1 TO 2:NEXT I
 24 NEXT C
-25 RETURN
+'
+' Sound routine
+'
+28 POKE 768,F:POKE 769,D:CALL 770:RETURN
+29 RETURN
 '
 30 REM FASTTEXT
 31 FOR C = 1 TO LEN(T$)
@@ -27,139 +31,118 @@
 34 NEXT C
 35 RETURN
 '
-50 PRINT " ------------------------------------ "
-55 FOR I=1 TO 20: PRINT "|                                    |":NEXT I
+' Assembly Language audio routine
+' See http://eightbitsoundandfury.ld8.org/programming.html
+50 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
+51 DATA 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96
+55 PRINT " ------------------------------------ "
+57 FOR I=1 TO 20: PRINT "|                                    |":NEXT I
 60 PRINT " ------------------------------------ "
 65 GOSUB 10
 '
 70 HOME
-72 T$="Forms FORM-29827281-12:"+C$:GOSUB 20
-74 T$="Test Assessment Report"+C$:GOSUB 20
+72 T$="Forms FORM-29827281-12:"+C$:GOSUB 30
+74 T$="Test Assessment Report"+C$:GOSUB 30
 76 PRINT:PRINT
 78 FOR I=1 TO 1000: NEXT I
 '
 ' This was a triumph.
 '
-80 T$="This ":GOSUB 20:REM SOUND 392, 4.8
-82 T$="was ":GOSUB 20:REM SOUND 370, 4.8
-84 T$="a ":GOSUB 20:REM SOUND 330, 4.8
+80 T$="This ":D=54:F=85:GOSUB 20
+82 T$="was ":F=91:GOSUB 20
+84 T$="a ":F=102:GOSUB 20
 86 T$="tri":GOSUB 20
-87 REM SOUND 0, .01
-88 REM SOUND 330, 4.8
-89 T$="umph."+C$:GOSUB 20
-90 REM SOUND 370, 19.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 146.8, 4.8
-'REM SOUND 184.9, 4.8
+89 T$="umph."+C$:F=91:GOSUB 20
+90 FOR I=1 TO 800:NEXT
 '
 ' I'm making a note here:
 '
-94 T$="I'm ":GOSUB 20: REM SOUND 220, 4.8
-96 T$="ma":GOSUB 20: REM SOUND 392, 4.8
-98 T$="king ":GOSUB 20: REM SOUND 370, 4.8
-100 T$="a ":GOSUB 20:REM SOUND 330, 4.8
-102 T$="note ":GOSUB 20:REM SOUND 0, .1:REM SOUND 330, 9.6
-104 T$ = "here:"+C$:GOSUB 20:REM SOUND 370, 14.4
+94 T$="I'm ":F=152:GOSUB 20
+96 T$="ma":F=85:GOSUB 20
+98 T$="king ":F=91:GOSUB 20
+100 T$="a ":F=102:GOSUB 20
+102 T$="note ":D=108:F=102:GOSUB 20
+104 T$ = "here:"+C$:D=54:F=91:GOSUB 20
+105 FOR I=1 TO 160: NEXT
 '
 ' HUGE SUCCESS.
 '
-106 T$ = "HUGE ":GOSUB 20:REM SOUND 294, 9.6
-108 T$ = "SUC":GOSUB 20:REM SOUND 330, 4.8
-110 T$ = "CESS."+C$:GOSUB 20:REM SOUND 220, 3.36
-'delay .48
+106 T$ = "HUGE ":D=108:F=114:GOSUB 20
+108 T$ = "SUC":D=54:F=102:GOSUB 20
+110 T$ = "CESS."+C$:D=108:F=152:GOSUB 20
+111 FOR I=1 TO 480: NEXT
 '
 ' It's hard to overstate
 '
-112 T$="It's ":GOSUB 20:REM SOUND 220, 4.8
-114 T$="hard ":GOSUB 20:REM SOUND 330, 9.6
-116 T$="to ":GOSUB 20:REM SOUND 370, 4.8
-118 T$="o":GOSUB 20:REM SOUND 392, 14.4
-120 T$="ver":GOSUB 20:REM SOUND 330, 4.8
-122 T$="state"+C$:GOSUB 20:REM SOUND 277, 9.6
+112 T$="It's ":D=54:F=152:GOSUB 20
+114 T$="hard ":D=108:F=102:GOSUB 20
+116 T$="to ":D=54:F=91:GOSUB 20
+118 T$="o":D=162:F=85:GOSUB 20
+120 T$="ver":D=54:F=91:GOSUB 20
+122 T$="state"+C$:D=108:F=121:GOSUB 20
 '
 ' my satisfaction.
 '
-124 T$="my ":GOSUB 20:REM SOUND 294, 14.4
-126 T$="sa":GOSUB 20:REM SOUND 330, 9.6
-128 T$="tis":GOSUB 20:REM SOUND 220, 4.8
-130 T$="fac":GOSUB 20:REM SOUND 0, .01:SOUND 220, 9.6
-132 T$="tion."+C$:GOSUB 20:REM SOUND 370, 3.36
-'
-'SOUND 110, 4.8
-'SOUND 146.8, 4.8
-'SOUND 184.9, 4.8
-'SOUND 146.8, 4.8
+124 T$="my ":D=162:F=114:GOSUB 20
+126 T$="sa":D=108:F=102:GOSUB 20
+128 T$="tis":D=54:F=152:GOSUB 20
+130 T$="fac":D=108:F=152:GOSUB 20
+132 T$="tion."+C$:F=91:GOSUB 20
+133 FOR I=1 TO 720:NEXT
 '
 ' APERTURE SCIENCE LOGO
 134 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
 '
 ' Aperture Science
-136 T$="A":GOSUB 20:REM SOUND 392, 4.8
-138 T$="per":GOSUB 20:REM SOUND 370, 4.8
-140 T$="ture ":GOSUB 20:REM SOUND 330, 4.8
-142 T$="Sci":GOSUB 20:REM SOUND 0, .01REM SOUND 330, 4.8
-144 T$="ence"+C$:GOSUB 20:REM SOUND 370, 1.92
-'
-'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 146.8, 4.8
-'REM SOUND 184.8, 4.8
+136 T$="A":D=54:F=85:GOSUB 20
+138 T$="per":F=91:GOSUB 20
+140 T$="ture ":F=102:GOSUB 20
+142 T$="Sci":GOSUB 20
+144 T$="ence"+C$:F=91:GOSUB 20
+145 FOR I=1 TO 800:NEXT
 '
 ' We do what we must
 '
-146 T$="We ":GOSUB 20:REM SOUND 220, 4.8
-148 T$="do ":GOSUB 20:REM SOUND 392, 4.8
-150 T$="what ":GOSUB 20:REM SOUND 370, 4.8
-152 T$="we ":GOSUB 20:REM SOUND 330, 4.8
-154 T$="must"+C$:GOSUB 20:REM SOUND 0, .1REM SOUND 330, 14.4
+146 T$="We ":F=152:GOSUB 20
+148 T$="do ":F=85:GOSUB 20
+150 T$="what ":F=91:GOSUB 20
+152 T$="we ":F=102:GOSUB 20
+154 T$="must"+C$:GOSUB 20
+155 FOR I=1 TO 160: NEXT
 '
 ' because we can.
 '
-156 T$="be":GOSUB 20:REM SOUND 370, 4.8
-158 T$="cause ":GOSUB 20:REM SOUND 294, 14.4
-160 T$="we ":GOSUB 20:REM SOUND 330, 4.8
-162 T$="can."+C$:GOSUB 20:REM SOUND 220, 14.4
-'REM SOUND 184.9, 4.8
-'REM SOUND 146.8, 4.8
-'REM SOUND 123.4, 4.8
-'REM SOUND 146.8, 4.8
-'REM SOUND 184.9, 4.8
-'REM SOUND 146.8, 4.8
-'
+156 T$="be":F=91:GOSUB 20
+158 T$="cause ":F=114:GOSUB 20
+159 FOR I=1 TO 160: NEXT
+160 T$="we ":F=102:GOSUB 20
+162 T$="can."+C$:D=162:F=152:GOSUB 20
+163 FOR I=1 TO 560: NEXT
 '
 ' For the good of all of us.
 '
-164 T$="For ":GOSUB 20:REM SOUND 330, 9.6
-166 T$="the ":GOSUB 20:REM SOUND 370, 4.8
-168 T$="good ":GOSUB 20:REM SOUND 392, 14.4
-170 T$="of ":GOSUB 20:REM SOUND 330, 4.8
-172 T$="all ":GOSUB 20:REM SOUND 277.2, 14.4
-174 T$="of ":GOSUB 20:REM SOUND 294, 4.8
-176 T$="us."+C$:GOSUB 20:REM SOUND 330, 9.6
+164 T$="For ":D=108:F=102:GOSUB 20
+166 T$="the ":D=54:F=91:GOSUB 20
+168 T$="good ":D=162:F=85:GOSUB 20
+170 T$="of ":D=54:F=102:GOSUB 20
+172 T$="all ":D=162:F=121:GOSUB 20
+174 T$="of ":D=54:F=114:GOSUB 20
+176 T$="us."+C$:F=102:GOSUB 20
+177 FOR I=1 TO 80: NEXT
 '
 ' RADIATION
 178 GOSUB 18:GOSUB 15:HOME:GOSUB 2100: GOSUB 10:GOSUB 19:PRINT
 '
 ' Except the ones who are dead.
 '
-180 T$="Ex":GOSUB 20:REM SOUND 220, 4.8
-182 T$="cept ":GOSUB 20:REM SOUND 294, 4.8
-184 T$="the ":GOSUB 20:REM SOUND 330, 4.8
-186 T$="ones ":GOSUB 20:REM SOUND 349.2, 4.8
-188 T$="who ":GOSUB 20:REM SOUND 330, 4.8
-190 T$="are ":GOSUB 20:REM SOUND 293.6, 4.8
-192 T$="dead."+C$:GOSUB 20:REM SOUND 261.6, 4.8
-'
-'
-'REM SOUND 0, 9.6
+180 T$="Ex":F=152:GOSUB 20
+182 T$="cept ":F=114:GOSUB 20
+184 T$="the ":F=102:GOSUB 20
+186 T$="ones ":F=96:GOSUB 20
+188 T$="who ":F=102:GOSUB 20
+190 T$="are ":F=114:GOSUB 20
+192 T$="dead."+C$:F=128:GOSUB 20
+193 FOR I=1 TO 160: NEXT
 '
 ' APERTURE SCIENCE LOGO
 194 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
@@ -167,33 +150,33 @@
 ' But there's no sense crying\nover every mistake.
 '
 196 PRINT
-198 T$="But ":GOSUB 20:REM SOUND 220, 4.8
-200 T$="there's ":GOSUB 20:REM SOUND 233, 4.8
-202 T$="no ":GOSUB 20:REM SOUND 261.6, 9.6
-204 T$="sense ":GOSUB 20:REM SOUND 349.2, 9.6
-206 T$="cry":GOSUB 20:REM SOUND 330, 4.8
-208 T$="ing"+C$:GOSUB 20:REM SOUND 293.6, 4.8
-210 T$="o":GOSUB 20:REM SOUND 0, .1REM SOUND 293.6, 4.8
-212 T$="ver ":GOSUB 20:REM SOUND 261.6, 4.8
-214 T$="e":GOSUB 20:REM SOUND 293.6, 4.8
-216 T$="very ":GOSUB 20:REM SOUND 261.6, 4.8
-218 T$="mis":GOSUB 20:REM SOUND 0, .1:REM SOUND 261.6, 9.6
-220 T$="take."+C$:GOSUB 20:REM SOUND 0, .1REM SOUND 261.6, 9.6
+198 T$="But ":F=152:GOSUB 20
+200 T$="there's ":F=143:GOSUB 20
+202 T$="no ":D=108:F=128:GOSUB 20
+204 T$="sense ":F=96:GOSUB 20
+206 T$="cry":D=54:F=102:GOSUB 20
+208 T$="ing"+C$:F=114:GOSUB 20
+210 T$="o":GOSUB 20
+212 T$="ver ":F=128:GOSUB 20
+214 T$="e":F=114:GOSUB 20
+216 T$="very ":F=128:GOSUB 20
+218 T$="mis":D=108:F=128:GOSUB 20
+220 T$="take."+C$:F=128:GOSUB 20
 '
 ' You just keep on trying\ntill you run out of cake.
 '
-222 T$="You ":GOSUB 20:REM SOUND 220, 4.8
-224 T$="just ":GOSUB 20:REM SOUND 233, 4.8
-226 T$="keep ":GOSUB 20:REM SOUND 261.6, 9.6
-228 T$="on ":GOSUB 20:REM SOUND 349.2, 9.6
-230 T$="try":GOSUB 20:REM SOUND 391.9, 4.8
-232 T$="ing"+C$:GOSUB 20:REM SOUND 349.2, 4.8
-234 T$="till ":GOSUB 20:REM SOUND 329.6, 4.8
-236 T$="you ":GOSUB 20:REM SOUND 293.6, 4.8
-238 T$="run ":GOSUB 20:REM SOUND 0, .2:REM SOUND 293.6, 4.8
-240 T$="out ":GOSUB 20:REM SOUND 329.6, 4.8
-242 T$="of ":GOSUB 20:REM SOUND 349.2, 9.6:REM SOUND 0, .2
-244 T$="cake."+C$:GOSUB 20:REM SOUND 0, .2:REM SOUND 349.2, 9.6
+222 T$="You ":D=54:F=152:GOSUB 20
+224 T$="just ":F=143:GOSUB 20
+226 T$="keep ":D=108:F=128:GOSUB 20
+228 T$="on ":F=96:GOSUB 20
+230 T$="try":D=54:F=85:GOSUB 20
+232 T$="ing"+C$:F=96:GOSUB 20
+234 T$="till ":F=102:GOSUB 20
+236 T$="you ":F=114:GOSUB 20
+238 T$="run ":GOSUB 20
+240 T$="out ":F=102:GOSUB 20
+242 T$="of ":D=108:F=96:GOSUB 20
+244 T$="cake."+C$:F=96:GOSUB 20
 '
 ' ATOM
 '
@@ -201,49 +184,40 @@
 '
 ' And the Science gets done.
 '
-248 T$="And ":GOSUB 20:REM SOUND 391.9, 4.8
-250 T$="the ":GOSUB 20:REM SOUND 440, 4.8
-252 T$="Sci":GOSUB 20:REM SOUND 466.1, 4.8
-254 T$="ence ":GOSUB 20:REM delaytime = .01:REM SOUND 466.1, 4.8
-256 T$="gets ":GOSUB 20:REM SOUND 440, 9.6
-258 T$="done."+C$:GOSUB 20:REM SOUND 391.9, 9.6
+248 T$="And ":D=54:F=85:GOSUB 20
+250 T$="the ":F=76:GOSUB 20
+252 T$="Sci":F=72:GOSUB 20
+254 T$="ence ":GOSUB 20
+256 T$="gets ":D=108:F=76:GOSUB 20
+258 T$="done."+C$:F=85:GOSUB 20
 '
 ' And you make a neat gun
 '
-260 T$="And ":GOSUB 20:REM SOUND 349.2, 4.8
-262 T$="you ":GOSUB 20:REM SOUND 391.9, 4.8
-264 T$="make ":GOSUB 20:REM SOUND 440, 4.8
-266 T$="a ":GOSUB 20:REM SOUND 0, .1:REM SOUND 440, 4.8
-268 T$="neat ":GOSUB 20:REM SOUND 391.9, 9.6
-270 T$="gun."+C$:GOSUB 20:REM SOUND 349.2, 9.6
+260 T$="And ":D=54:F=96:GOSUB 20
+262 T$="you ":F=85:GOSUB 20
+264 T$="make ":F=76:GOSUB 20
+266 T$="a ":F=76:GOSUB 20
+268 T$="neat ":D=108:F=85:GOSUB 20
+270 T$="gun."+C$:F=96:GOSUB 20
 '
 ' APERTURE SCIENCE LOGO
 272 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
 '
 ' For the people who are
 '
-274 T$="For ":GOSUB 20:REM SOUND 293.6, 4.8
-276 T$="the ":GOSUB 20:REM SOUND 261.6, 4.8
-278 T$="peo":GOSUB 20:REM SOUND 293.6, 4.8
-280 T$="ple ":GOSUB 20:REM SOUND 349.2, 4.8
-282 T$="who ":GOSUB 20:REM SOUND 0, .1:REM SOUND 349.2, 4.8
-284 T$="are"+C$:GOSUB 20:REM SOUND 329.6, 9.6
+274 T$="For ":D=54:F=114:GOSUB 20
+276 T$="the ":F=128:GOSUB 20
+278 T$="peo":F=114:GOSUB 20
+280 T$="ple ":F=96:GOSUB 20
+282 T$="who ":GOSUB 20
+284 T$="are"+C$:D=108:F=102:GOSUB 20
 '
 ' still alive.
 '
-286 T$="still ":GOSUB 20:REM SOUND 329.6, 4.8
-288 T$="a":GOSUB 20:REM SOUND 369.9, 4.8
-290 T$="live."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 369.9, 4.8
-'
-'FOR i = 1 TO 3
-'REM SOUND 146.8, 14.4
-'REM SOUND 0, .1
-'REM SOUND 146.8, 4.8
-'REM SOUND 123.4, 14.4
-'REM SOUND 0, .1
-'REM SOUND 123.4, 4.8
-'NEXT i
-'REM SOUND 146.8, 14.4
+286 T$="still ":D=54:F=102:GOSUB 20
+288 T$="a":F=91:GOSUB 20
+290 T$="live."+C$:D=162:F=91:GOSUB 20
+291 FOR I=1 TO 1900: NEXT
 '
 '
 '