Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-13 03:29:32 +00:00
Code Issues Projects Releases Wiki Activity
e37b689dff
dos33fsprogs/glados3.3/still_alive.bas

1195 lines
33 KiB
QBasic
Raw Normal View History

glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
1 REM PORTAL CLOSING CREDITS APPLESOFT
2 REM BASED ON QBASIC VERSION BY Thomas Moss (spinneretsystems)
5 TEXT:PRINT CHR$(4)+"PR#3": REM 80 COLUMN MODE
7 HOME:C$=CHR$(13):GOTO 50
'
10 REM SET LEFT WINDOW
11 POKE 32,2:POKE 33,35:POKE 34,1:POKE 35,21
12 RETURN
15 REM SET RIGHT WINDOW
16 POKE 32,39:POKE 33,40:POKE 34,1:POKE 35,23
17 RETURN
'
glados: second part done
2017-01-04 21:52:05 +00:00
18 X=PEEK(1403):Y=PEEK(37):RETURN
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
19 POKE 36,X:POKE 37,Y-1:RETURN
'
20 REM SLOWTEXT
21 FOR C = 1 TO LEN(T$)
22 PRINT MID$(T$, C, 1);
glados: more music added
2017-01-05 19:44:51 +00:00
23 FOR I = 1 TO 2:NEXT I
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
24 NEXT C
glados: more music added
2017-01-05 19:44:51 +00:00
'
' Sound routine
'
28 POKE 768,F:POKE 769,D:CALL 770:RETURN
29 RETURN
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
glados: second part done
2017-01-04 21:52:05 +00:00
30 REM FASTTEXT
31 FOR C = 1 TO LEN(T$)
32 PRINT MID$(T$, C, 1);
33 FOR I = 1 TO 25:NEXT I
34 NEXT C
35 RETURN
'
glados: more music added
2017-01-05 19:44:51 +00:00
' 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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
60 PRINT " ------------------------------------ "
65 GOSUB 10
'
70 HOME
glados: more music added
2017-01-05 19:44:51 +00:00
72 T$="Forms FORM-29827281-12:"+C$:GOSUB 30
74 T$="Test Assessment Report"+C$:GOSUB 30
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
76 PRINT:PRINT
78 FOR I=1 TO 1000: NEXT I
'
' This was a triumph.
'
glados: more music added
2017-01-05 19:44:51 +00:00
80 T$="This ":D=54:F=85:GOSUB 20
82 T$="was ":F=91:GOSUB 20
84 T$="a ":F=102:GOSUB 20
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
86 T$="tri":GOSUB 20
glados: more music added
2017-01-05 19:44:51 +00:00
89 T$="umph."+C$:F=91:GOSUB 20
90 FOR I=1 TO 800:NEXT
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' I'm making a note here:
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' HUGE SUCCESS.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' It's hard to overstate
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' my satisfaction.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' APERTURE SCIENCE LOGO
134 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' Aperture Science
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' We do what we must
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' because we can.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' For the good of all of us.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' RADIATION
178 GOSUB 18:GOSUB 15:HOME:GOSUB 2100: GOSUB 10:GOSUB 19:PRINT
'
' Except the ones who are dead.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' APERTURE SCIENCE LOGO
194 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' But there's no sense crying\nover every mistake.
'
196 PRINT
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' You just keep on trying\ntill you run out of cake.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' ATOM
'
246 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT
'
' And the Science gets done.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' And you make a neat gun
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' APERTURE SCIENCE LOGO
272 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' For the people who are
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
' still alive.
'
glados: more music added
2017-01-05 19:44:51 +00:00
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
glados: second part done
2017-01-04 21:52:05 +00:00
'
'
'
292 HOME:C$=CHR$(13)
294 T$="Forms FORM-55551-5:"+C$:GOSUB 30
296 T$="Personnel File Addendum:"+C$:GOSUB 30
298 T$=C$+"Dear <<Subject Name Here>>":GOSUB 30
300 PRINT:PRINT
'
' I'm not even angry.
'
302 T$="I'm ":GOSUB 20:REM SOUND 220, 4.8
304 T$="not ":GOSUB 20:REM SOUND 391.9, 4.8
306 T$="e":GOSUB 20:REM SOUND 369.9, 4.8
308 T$="ven ":GOSUB 20:REM SOUND 329.6, 4.8
310 T$="an":GOSUB 20:REM SOUND 0, .1:REM SOUND 329.6, 7.2
312 T$="gry."+C$:GOSUB 20:REM SOUND 369.9, 1.68
'
'REM SOUND 123.4, 14.4
'REM SOUND 0, .1
'REM SOUND 123.4, 4.8
'REM SOUND 146.8, 14.4
'delay
'REM SOUND 146.6, 4.8
'
' I'm being so sincere right now.
'
314 T$="I'm ":GOSUB 20:REM SOUND 391.9, 4.8
316 T$="be":GOSUB 20:REM SOUND 369.9, 4.8
320 T$="ing ":GOSUB 20:REM SOUND 329.6, 4.8
322 T$="so ":GOSUB 20:REM SOUND 0, .1:REM SOUND 329.6, 14.4
324 T$="sin":GOSUB 20:REM SOUND 369.9, 4.8
326 T$="cere ":GOSUB 20:REM SOUND 293.6, 9.6
328 T$="right ":GOSUB 20:REM SOUND 329.6, 9.6
330 T$="now."+C$:GOSUB 20:REM SOUND 220, 14.4
'
'REM SOUND 146.8, 4.8
'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
'
' Even though you broke my
'
332 T$="E":GOSUB 20:REM SOUND 329.6, 9.6
334 T$="ven ":GOSUB 20:REM SOUND 369.9, 4.8
336 T$="though ":GOSUB 20:REM SOUND 391.9, 14.4
338 T$="you ":GOSUB 20:REM SOUND 329.6, 9.6
340 T$="broke ":GOSUB 20:REM SOUND 277.1, 9.6
342 T$="my ":GOSUB 20:REM SOUND 293.6, 4.8
'
' HEART
344 GOSUB 18:GOSUB 15:HOME:GOSUB 2300: GOSUB 10:GOSUB 19:PRINT
345 POKE 36,X
'
' heart.\nAnd killed me.
'
346 T$="heart."+C$:GOSUB 20:REM SOUND 329.6, 14.4
348 T$="And ":GOSUB 20:REM SOUND 220, 4.8
350 T$="killed ":GOSUB 20:REM SOUND 0, .1:REM SOUND 220, 9.6
352 T$="me."+C$:GOSUB 20:REM SOUND 369.9, 2.4
'
'delaytime = .48
'REM SOUND 123.4, 4.8
'REM SOUND 146.8, 14.4
'
' EXPLOSION
354 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT
'
' And tore me to pieces.
'
356 T$="And ":GOSUB 20:REM SOUND 220, 4.8
358 T$="tore ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 391.9, 1
'REM SOUND 493.8, 1
'NEXT i
360 T$="me ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 369.9, 1
'REM SOUND 440, 1
'NEXT i
362 T$="to ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 329.6, 1
'REM SOUND 391.9, 1
'NEXT i
364 T$="pie":GOSUB 20:REM SOUND 0, .1
'FOR i = 1 TO 2.4
'REM SOUND 329.6, 1
'REM SOUND 391.9, 1
'NEXT i
366 T$="ces."+C$:GOSUB 20
'FOR i = 1 TO 4.8
'REM SOUND 369.9, 1
'REM SOUND 440, 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
'REM SOUND 146.8, 14.4
'
' And threw every peice into
'
368 T$="And ":GOSUB 20:REM SOUND 220, 4.8
370 T$="threw ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 391.9, 1
'REM SOUND 493.8, 1
'NEXT i
372 T$="ev":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 369.9, 1
'REM SOUND 440, 1
'NEXT i
374 T$="ery ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 329.6, 1
'REM SOUND 391.9, 1
'NEXT i
376 T$="piece ":GOSUB 20
'REM SOUND 0, .1
'FOR i = 1 TO 7.2
'REM SOUND 329.6, 1
'REM SOUND 391.9, 1
'NEXT i
378 T$="in":GOSUB 20
'FOR i = 1 TO 2.6
'REM SOUND 440, 1
'REM SOUND 369.9, 1
'NEXT i
glados: another chunk
2017-01-04 22:25:05 +00:00
380 T$="to ":GOSUB 20
glados: second part done
2017-01-04 21:52:05 +00:00
'FOR i = 1 TO 7.2
'REM SOUND 369.9, 1
'REM SOUND 293.6, 1
'NEXT i
'
' FIRE
382 GOSUB 18:GOSUB 15:HOME:GOSUB 2500: GOSUB 10:GOSUB 19:PRINT
383 POKE 36,X
'
' a fire.
'
384 T$="a ":GOSUB 20
'FOR i = 1 TO 2.4
'REM SOUND 329.6, 1
'REM SOUND 391.9, 1
'NEXT i
386 T$="fire."+C$:GOSUB 20
'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
'
' As they burned it hurt because
'
388 T$="As ":GOSUB 20:REM SOUND 329.6, 9.6
390 T$="they ":GOSUB 20:REM SOUND 369.9, 4.8
392 T$="burned ":GOSUB 20:REM SOUND 391.9, 14.4
394 T$="it ":GOSUB 20:REM SOUND 329.6, 9.6
396 T$="hurt ":GOSUB 20:REM SOUND 277.1, 9.6
398 T$="be":GOSUB 20:REM SOUND 293.6, 4.8
400 T$="cause"+C$:GOSUB 20:REM SOUND 329.6, 9.6
'
' I was so happy for you!
'
402 T$="I ":GOSUB 20:REM SOUND 220, 4.8
404 T$="was ":GOSUB 20:REM SOUND 293.6, 4.8
406 T$="so ":GOSUB 20:REM SOUND 329.6, 4.8
408 T$="hap":GOSUB 20:REM SOUND 349.2, 4.8
410 T$="py ":GOSUB 20:REM SOUND 329.6, 4.8
412 T$="for ":GOSUB 20:REM SOUND 293.6, 4.8
414 T$="you!"+C$:GOSUB 20:REM SOUND 261.6, 14.4
' CHECK
416 GOSUB 18:GOSUB 15:HOME:GOSUB 2600: GOSUB 10:GOSUB 19:PRINT
'delaytime = .5
'
' Now these points of data\nmake a beautiful line.
'
418 T$="Now ":GOSUB 20:REM SOUND 220, 4.8
420 T$="these ":GOSUB 20:REM SOUND 233, 4.8
422 T$="points ":GOSUB 20:REM SOUND 261.6, 9.6
424 T$="of ":GOSUB 20:REM SOUND 349.2, 9.6
426 T$="da":GOSUB 20:REM SOUND 329.6, 4.8
428 T$="ta"+C$:GOSUB 20:REM SOUND 293.6, 4.8
430 T$="make ":GOSUB 20:REM SOUND 0, .1:REM SOUND 293.6, 4.8
432 T$="a ":GOSUB 20:REM SOUND 261.6, 4.8
434 T$="beau":GOSUB 20:REM SOUND 293.6, 4.8
436 T$="ti":GOSUB 20:REM SOUND 261.6, 4.8
438 T$="ful ":GOSUB 20:REM SOUND 0, .1:REM SOUND 261.6, 9.6
440 T$="line."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 261.6, 9.6
'
' And we're out of beta.\nWe're releasing on time.
'
442 T$="And ":GOSUB 20:REM SOUND 220, 4.8
444 T$="we're ":GOSUB 20:REM SOUND 233, 4.8
446 T$="out ":GOSUB 20:REM SOUND 261.6, 9.6
448 T$="of ":GOSUB 20:REM SOUND 349.2, 9.6
450 T$="be":GOSUB 20:REM SOUND 391.9, 4.8
452 T$="ta."+C$:GOSUB 20:REM SOUND 349.2, 4.8
454 T$="We're ":GOSUB 20:REM SOUND 329.6, 4.8
456 T$="re":GOSUB 20:REM SOUND 293.6, 4.8
458 T$="lea":GOSUB 20:REM SOUND 0, .1:REM SOUND 293.6, 4.8
460 T$="sing ":GOSUB 20:REM SOUND 329.6, 4.8
462 T$="on ":GOSUB 20:REM SOUND 349.2, 9.6
464 T$="time."+C$:GOSUB 20:REM SOUND 0, .1:REM SOUND 349.2, 9.6
'
' EXPLOSION
466 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT
'
' So I'm GLaD. I got burned.
'
468 T$="So ":GOSUB 20:REM SOUND 391.9, 4.8
470 T$="I'm ":GOSUB 20:REM SOUND 440, 4.8
472 T$="GLaD. ":GOSUB 20:REM SOUND 466.1, 4.8
474 T$="I ":GOSUB 20:REM SOUND 466.1, 4.8
476 T$="got ":GOSUB 20:REM SOUND 440, 9.6
478 T$="burned."+C$:GOSUB 20: REM SOUND 391.9, 9.6
'
' ATOM
'
480 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT
'
' Think of all the things we learned
'
482 T$="Think ":GOSUB 20:REM SOUND 349.2, 4.8
484 T$="of ":GOSUB 20:REM SOUND 391.9, 4.8
486 T$="all ":GOSUB 20:REM SOUND 440, 4.8
488 T$="the ":GOSUB 20:REM SOUND 0, .1:REM SOUND 440, 4.8
490 T$="things ":GOSUB 20:REM SOUND 391.9, 4.8
492 T$="we ":GOSUB 20: REM SOUND 349.2, 4.8
494 T$="learned"+C$:GOSUB 20:REM SOUND 349.2, 9.6
'
' APERTURE SCIENCE LOGO
'
496 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' for the people who are
'
498 T$="for ":GOSUB 20:REM SOUND 293.6, 4.8
500 T$="the ":GOSUB 20:REM SOUND 261.6, 4.8
502 T$="peo":GOSUB 20:REM SOUND 293.6, 4.8
504 T$="ple ":GOSUB 20:REM SOUND 349.2, 4.8
506 T$="who ":GOSUB 20:REM SOUND 0, .1:REM SOUND 349.2, 4.8
510 T$="are"+C$:GOSUB 20:REM SOUND 329.6, 9.6
'
' still alive.
'
512 T$="still ":GOSUB 20:REM SOUND 329.6, 4.8
'
' FIXME: CAN WE DO ALIVE SLOWLY LIKE IN THE VIDEO?
'
514 T$="alive."+C$:GOSUB 20
'REM SOUND 369.9, 4.8
'REM SOUND 0, .1
'REM SOUND 369.9, 24
glados: another chunk
2017-01-04 22:25:05 +00:00
'
'
516 HOME:C$=CHR$(13)
518 T$="Forms FORM-55551-6:"+C$:GOSUB 30
520 T$="Personnel File Addendum ":GOSUB 30
522 T$="Addendum:"+C$:GOSUB 30
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
glados: most of text done
2017-01-05 03:15:11 +00:00
530 T$="ahead ":GOSUB 20:REM SOUND 369.9, 4.8
glados: another chunk
2017-01-04 22:25:05 +00:00
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
'
' 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
'
' 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
'
' Black Mesa
'
576 GOSUB 18:GOSUB 15:HOME:GOSUB 2800: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' 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
'
' 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
'
' 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
'
' 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
'
' CAKE
'
614 GOSUB 18:GOSUB 15:HOME:GOSUB 2900: GOSUB 10:GOSUB 19:PRINT
616 POKE 36,X
'
' great.
'
616 T$="great."+C$:GOSUB 20:REM SOUND 329.6, 9.6
'
' 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
'
' GLaDOS
'
632 GOSUB 18:GOSUB 15:HOME:GOSUB 3000: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' when there's Science to do.
'
646 T$="when ":GOSUB 20:REM SOUND 0, .1:REM SOUND 293.6, 4.8
glados: most of text done
2017-01-05 03:15:11 +00:00
648 T$="there's ":GOSUB 20:REM SOUND 261.6, 4.8
glados: another chunk
2017-01-04 22:25:05 +00:00
'
' RADIATION
650 GOSUB 18:GOSUB 15:HOME:GOSUB 2100: GOSUB 10:GOSUB 19:PRINT
652 POKE 36,X
'
'Science to do.
'
glados: most of text done
2017-01-05 03:15:11 +00:00
654 T$="Sci":GOSUB 20:REM SOUND 293.6, 4.8
glados: another chunk
2017-01-04 22:25:05 +00:00
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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
glados: most of text done
2017-01-05 03:15:11 +00:00
' APERTURE SCIENCE LOGO
'
662 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' 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
'
' ATOM
'
688 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' EXPLOSION
'
704 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' APERTURE SCIENCE LOGO
'
720 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
'
' 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
'
' 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
'
' 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
'
'
' PPS: I'm doing Science and I'm\nstill alive.
'
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
760 T$="PPS: ":GOSUB 30
glados: most of text done
2017-01-05 03:15:11 +00:00
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
'
'
' PPPS: I feel FANTASTIC and I'm\nstill alive
'
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
782 T$="PPPS: ":GOSUB 30
glados: most of text done
2017-01-05 03:15:11 +00:00
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
804 PRINT
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
806 T$="FINAL THOUGHT:"+C$:GOSUB 30
glados: most of text done
2017-01-05 03:15:11 +00:00
'
'hl
'
'
' FINAL THOUGHT:\nWhile you're dying I'll be\nstill alive.
'
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
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30
glados: most of text done
2017-01-05 03:15:11 +00:00
'
'hl
'
'
' 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
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
842 T$="still ":GOSUB 20
glados: most of text done
2017-01-05 03:15:11 +00:00
'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
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
853 FOR I=1 TO 500:NEXT I
glados: most of text done
2017-01-05 03:15:11 +00:00
854 HOME
856 FOR I=1 TO 1000:NEXT I
glados: full text works I suppose I need to work on sound next
2017-01-05 03:25:10 +00:00
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
glados: most of text done
2017-01-05 03:15:11 +00:00
1000 TEXT:HOME
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
1999 END
2000 REM APETURE
2001 PRINT " .,-:;//;:=,"
2002 PRINT " . :H@@@MM@M#H/.,+%;,"
2003 PRINT " ,/X+ +M@@M@MM%=,-%HMMM@X/,"
2004 PRINT " -+@MM; $M@@MH+-,;XMMMM@MMMM@+-"
2005 PRINT " ;@M@@M- XM@X;. -+XXXXXHHH@M@M#@/."
2006 PRINT " ,%MM@@MH ,@%= .---=-=:=,."
2007 PRINT " =@#@@@MX ., -%HX$$%%%+;"
2008 PRINT " =-./@M@M$ .;@MMMM@MM:"
2009 PRINT " X@/ -$MM/ .+MM@@@M$"
2010 PRINT ",@M@H: :@: . =X#@@@@-";
2011 PRINT ",@@@MMX, . /H- ;@M@M=";
2012 PRINT ".H@@@@M@+, %MM+..%#$.";
2013 PRINT " /MMMM@MMH/. XM@MH; =;"
2014 PRINT " /%+%$XHH@$= , .H@@@@MX,"
2015 PRINT " .=--------. -%H.,@@@@@MX,"
2016 PRINT " .%MM@@@HHHXX$$$%+- .:$MMX =M@@MM%."
2017 PRINT " =XMMM@MM@MM#H;,-+HMM@M+ /MMMX="
2018 PRINT " =%@M@M#@$-.=$@MM@@@M; %M%="
2019 PRINT " ,:+$+-,/H#MMMMMMM@= =,"
2020 PRINT " =++%%%%+/:-."
2030 RETURN
'
2100 REM RADIOACTIVE
2101 PRINT " =+$HM####@H%;,"
2102 PRINT " /H###############M$,"
2103 PRINT " ,@################+"
2104 PRINT " .H##############+"
2105 PRINT " X############/"
2106 PRINT " $##########/"
2107 PRINT " %########/"
2108 PRINT " /X/;;+X/"
2109 PRINT
2110 PRINT " -XHHX-"
2111 PRINT " ,######,"
2112 PRINT "#############X .M####M. X#############";
2113 PRINT "##############- -//- -##############";
2114 PRINT "X##############%, ,+##############X";
2115 PRINT "-##############X X##############-";
2116 PRINT " %############% %############%"
2117 PRINT " %##########; ;##########%"
2118 PRINT " ;#######M= =M#######;"
2119 PRINT " .+M###@, ,@###M+."
2120 PRINT " :XH. .HX:"
2130 RETURN
'
2200 REM ATOM
2201 PRINT " =/;;/-"
2202 PRINT " +: //"
2203 PRINT " /; /;"
2204 PRINT " -X H."
2205 PRINT ".//;;;:;;-, X= :+ .-;:=;:;%;.";
2206 PRINT "M- ,=;;;#:, ,:#;;:=, ,@";
2207 PRINT ":% :%.=/++++/=.$= %=";
2208 PRINT " ,%; %/:+/;,,/++:+/ ;+."
2209 PRINT " ,+/. ,;@+, ,%H;, ,/+,"
2210 PRINT " ;+;;/= @. .H##X -X :///+;"
2211 PRINT " ;+=;;;.@, .XM@$. =X.//;=%/."
2212 PRINT " ,;: :@%= =$H: .+%-"
2213 PRINT " ,%= %;-///==///-// =%,"
2214 PRINT ";+ :%-;;;:;;;;-X- +:";
2215 PRINT "@- .-;;;;M- =M/;;;-. -X";
2216 PRINT " :;;::;;-. %- :+ ,-;;-;:=="
2217 PRINT " ,X H."
2218 PRINT " ;/ %="
2219 PRINT " // +;"
2220 PRINT " ,////,"
2230 RETURN
'
2300 REM BROKEN HEART
glados: second part done
2017-01-04 21:52:05 +00:00
2301 PRINT " .,---."
2302 PRINT " ,/XM#MMMX;,"
2303 PRINT " -%##########M%,"
2304 PRINT " -@######% $###@="
2305 PRINT " .,--, -H#######$ $###M:"
2306 PRINT " ,;$M###MMX; .;##########$;HM###X=";
2307 PRINT " ,/@##########H= ;################+";
2308 PRINT "-+#############M/, %##############+";
2309 PRINT "%M###############= /##############:";
2310 PRINT "H################ .M#############;.";
2311 PRINT "@###############M ,@###########M:."
2312 PRINT "X################, -$=X#######@:"
2313 PRINT "/@##################%- +######$-"
2314 PRINT ".;##################X .X#####+,"
2315 PRINT " .;H################/ -X####+."
2316 PRINT " ,;X##############, .MM/"
2317 PRINT " ,:+$H@M#######M#$- .$$="
2318 PRINT " .,-=;+$@###X: ;/=."
2319 PRINT " .,/X$; .::,"
2320 PRINT " ., .."
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2330 RETURN
'
2400 REM EXPLOSION
glados: second part done
2017-01-04 21:52:05 +00:00
2401 PRINT " .+"
2402 PRINT " /M;"
2403 PRINT " H#@: ;,"
2404 PRINT " -###H- -@/"
2405 PRINT " %####$. -; .%#X"
2406 PRINT " M#####+;#H :M#M."
2407 PRINT ".. .+/;%#########X###-"
2408 PRINT " -/%H%+;-, +##############/"
2409 PRINT " .:$M###MH$%+############X ,--=;-"
2410 PRINT " -/H#####################H+=."
2411 PRINT " .+#################X."
2412 PRINT " =%M####################H;."
2413 PRINT " /@###############+;;/%%;,"
2414 PRINT " -%###################$."
2415 PRINT " ;H######################M="
2416 PRINT " ,%#####MH$%;+#####M###-/@####%"
2417 PRINT " :$H%+;=- -####X.,H# -+M##@-"
2418 PRINT " . ,###; ; =$##+"
2419 PRINT " .#H, :XH,"
2420 PRINT " + .;-";
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2430 RETURN
'
2500 REM FIRE
glados: second part done
2017-01-04 21:52:05 +00:00
2501 PRINT " -$-"
2502 PRINT " .H##H,"
2503 PRINT " +######+"
2504 PRINT " .+#########H."
2505 PRINT " -$############@."
2506 PRINT " =H###############@ -X:"
2507 PRINT " .$##################: @#@-"
2508 PRINT " ,; .M###################; H###;"
2509 PRINT " ;@#: @###################@ ,#####:"
2510 PRINT " -M###. M#################@. ;######H"
2511 PRINT " M####- +###############$ =@#######X"
2512 PRINT " H####$ -M###########+ :#########M,"
2513 PRINT " /####X- =########% :M########@/."
2514 PRINT " ,;%H@X; .$###X :##MM@%+;:-"
2515 PRINT " .."
2516 PRINT " -/;:-,. ,,-==+M########H"
2517 PRINT " -##################@HX%%+%%$%%%+:,,"
2518 PRINT " .-/H%%%+%%$H@###############M@+=:/+:";
2519 PRINT "/XHX%:#####MH%= ,---:;;;;/%%XHM,:###$";
2520 PRINT "$@#MX %+;- ."
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2530 RETURN
'
2600 REM CHECK
glados: second part done
2017-01-04 21:52:05 +00:00
2601 PRINT " :X-";
2602 PRINT " :X###"
2603 PRINT " ;@####@"
2604 PRINT " ;M######X"
2605 PRINT " -@########$"
2606 PRINT " .$##########@"
2607 PRINT " =M############-";
2608 PRINT " +##############$";
2609 PRINT " .H############$=."
2610 PRINT " ,/: ,M##########M;."
2611 PRINT " -+@###; =##########M;"
2612 PRINT " =%M#######; :#########M/"
2613 PRINT "-$M###########; :#########/"
2614 PRINT " ,;X###########; =########$."
2615 PRINT " ;H#########+#######M="
2616 PRINT " ,+##############+"
2617 PRINT " /M#########@-"
2618 PRINT " ;M######%"
2619 PRINT " +####:"
2620 PRINT " ,$M-"
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2630 RETURN
'
2800 REM BLACK MESA
glados: another chunk
2017-01-04 22:25:05 +00:00
2801 PRINT " .-;+$XHHHHHHX$+;-."
2802 PRINT " ,;X@@X%/;=----=:/%X@@X/,"
2803 PRINT " =$@@%=. .=+H@X:"
2804 PRINT " -XMX: =XMX="
2805 PRINT " /@@: =H@+"
2806 PRINT " %@X, .$@$"
2807 PRINT " +@X. $@%"
2808 PRINT "-@@, .@@=";
2809 PRINT "%@% +@$";
2810 PRINT "H@: :@H";
2811 PRINT "H@: :HHHHHHHHHHHHHHHHHHX, =@H";
2812 PRINT "%@% ;@M@@@@@@@@@@@@@@@@@H- +@$";
2813 PRINT "=@@, :@@@@@@@@@@@@@@@@@@@@@= .@@:";
2814 PRINT " +@X :@@@@@@@@@@@@@@@M@@@@@@:%@%"
2815 PRINT " $@$, ;@@@@@@@@@@@@@@@@@M@@@@@@$."
2816 PRINT " +@@HHHHHHH@@@@@@@@@@@@@@@@@@@@@@@+"
2817 PRINT " =X@@@@@@@@@@@@@@@@@@@@@@@@@@@@X="
2818 PRINT " :$@@@@@@@@@@@@@@@@@@@M@@@@$:"
2819 PRINT " ,;$@@@@@@@@@@@@@@@@@@X/-"
2820 PRINT " .-;+$XXHHHHHX$+;-."
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2830 RETURN
'
2900 REM CAKE DELICIOUS AND MOIST
glados: another chunk
2017-01-04 22:25:05 +00:00
2901 PRINT " ,:/+/-"
2902 PRINT " /M/ .,-=;//;-"
2903 PRINT " .:/= ;MH/, ,=/+%$XH@MM#@:"
2904 PRINT " -$##@+$###@H@MMM#######H:. -/H#";
2905 PRINT " .,H@H@ X######@ -H#####@+- -+H###@X";
2906 PRINT " .,@##H; +XM##M/, =%@###@X;-"
2907 PRINT "X%- :M##########$. .:%M###@%:"
2908 PRINT "M##H, +H@@@$/-. ,;$M###@%, -";
2909 PRINT "M####M=,,---,.-%%H####M$: ,+@##";
2910 PRINT "@##################@/. :%H##@$-"
2911 PRINT "M###############H, ;HM##M$="
2912 PRINT "#################. .=$M##M$="
2913 PRINT "################H..;XM##M$= .:+";
2914 PRINT "M###################@%= =+@MH%";
2915 PRINT "@################M/. =+H#X%="
2916 PRINT "=+M##############M, -/X#X+;."
2917 PRINT " .;XM##########H= ,/X#H+:,"
2918 PRINT " .=+HM######M+/+HM@+=."
2919 PRINT " ,:/%XM####H/."
2920 PRINT " ,.:=-."
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
2930 RETURN
'
3000 REM GLaDOS
glados: another chunk
2017-01-04 22:25:05 +00:00
3001 PRINT " #+ @ # # M#@"
3002 PRINT " . .X X.%##@;# # +@#######X. @#%"
3003 PRINT " ,==. ,######M+ -#####%M####M- #";
3004 PRINT " :H##M%:=##+ .M##M,;#####/+#######% ,M#";
3005 PRINT " .M########= =@#@.=#####M=M#######= X#";
3006 PRINT " :@@MMM##M. -##M.,#######M#######. = M";
3007 PRINT " @##..###:. .H####. @@ X,";
3008 PRINT " ############: ###,/####; /##= @#. M"
3009 PRINT " ,M## ;##,@#M;/M#M @# X#% X#"
3010 PRINT ".%= ######M## ##.M#: ./#M ,M #M ,#$"
3011 PRINT "##/ $## #+;#: #### ;#/ M M- @# :";
3012 PRINT "#+ #M@MM###M-;M #:$#-##$H# .#X @ + $#. #";
3013 PRINT " ######/.: #%=# M#:MM./#.-# @#: H#";
3014 PRINT "+,.= @###: /@ %#,@ ##@X #,-#@.##% .@#";
3015 PRINT "#####+;/##/ @## @#,+ /#M . X,"
3016 PRINT " ;###M#@ M###H .#M- ,##M ;@@; ###";
3017 PRINT " .M#M##H ;####X ,@#######M/ -M###$ -H";
3018 PRINT " .M###% X####H .@@MM@; ;@#M@"
3019 PRINT " H#M /@####/ ,++. / ==-,"
3020 PRINT " ,=/:, .+X@MMH@#H #####$=";
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
3030 RETURN
'
glados: another chunk
2017-01-04 22:25:05 +00:00
'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
glados33: first part of song also removed DOS linefeeds
2017-01-04 20:46:46 +00:00
'
Reference in New Issue Copy Permalink