Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-15 08:27:41 +00:00
Code Issues Projects Releases Wiki Activity

glados: more music added

Browse Source
This commit is contained in:
Vince Weaver
2017-01-05 14:44:51 -05:00
parent 0e7de91bad
commit e37b689dff
1 changed files with 122 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

270
glados3.3/still_alive.bas
View File

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