mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-11 09:29:51 +00:00
glados: more music added
This commit is contained in:
Vince Weaver
parent
0e7de91bad
commit
e37b689dff
@ -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
|
||||
'
|
||||
'
|
||||
'
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user