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 ' 18 X=PEEK(1403):Y=PEEK(37):RETURN 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); 23 FOR I = 1 TO 2:NEXT I 24 NEXT C ' ' Sound routine ' 28 POKE 768,F:POKE 769,D:CALL 770:RETURN 29 RETURN ' 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 ' ' 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 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 ":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 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 ":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 ":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 ":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 ":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":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 ":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":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 ":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":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 ' ' But there's no sense crying\nover every mistake. ' 196 PRINT 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 ":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 ' 246 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT ' ' And the Science gets done. ' 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 ":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 ":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 ":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 ' ' ' 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 <>":GOSUB 30 300 PRINT:PRINT ' ' I'm not even angry. ' 302 T$="I'm ":D=54:F=152:GOSUB 20 304 T$="not ":F=85:GOSUB 20 306 T$="e":F=91:GOSUB 20 308 T$="ven ":F=102:GOSUB 20 310 T$="an":GOSUB 20 312 T$="gry."+C$:F=91:GOSUB 20 313 FOR I=1 TO 800: NEXT ' ' I'm being so sincere right now. ' 314 T$="I'm ":F=85:GOSUB 20 316 T$="be":F=91:GOSUB 20 320 T$="ing ":F=102:GOSUB 20 322 T$="so ":D=162:F=102:GOSUB 20 324 T$="sin":D=54:F=91:GOSUB 20 326 T$="cere ":D=108:F=114:GOSUB 20 328 T$="right ":F=102:GOSUB 20 330 T$="now."+C$:F=152:GOSUB 20 331 FOR I=1 TO 560: NEXT ' ' Even though you broke my ' 332 T$="E":F=102:GOSUB 20 334 T$="ven ":D=54:F=91:GOSUB 20 336 T$="though ":D=162:F=85:GOSUB 20 338 T$="you ":D=108:F=102:GOSUB 20 340 T$="broke ":F=121:GOSUB 20 342 T$="my ":D=54:F=114:GOSUB 20 ' ' 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$:D=162:F=102:GOSUB 20 348 T$="And ":D=54:F=152:GOSUB 20 350 T$="killed ":D=108:F=152:GOSUB 20 352 T$="me."+C$:D=54:F=91:GOSUB 20 353 FOR I=1 TO 720: NEXT ' ' EXPLOSION ' 354 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT ' ' And tore me to pieces. ' 356 T$="And ":F=152:GOSUB 20 358 T$="tore ":F=85:GOSUB 20 360 T$="me ":F=91:GOSUB 20 362 T$="to ":F=102:GOSUB 20 364 T$="pie":GOSUB 20 366 T$="ces."+C$:F=91:GOSUB 20 367 FOR I=1 TO 800:NEXT ' ' And threw every peice into ' 368 T$="And ":F=152:GOSUB 20:REM SOUND 220, 4.8 370 T$="threw ":F=85:GOSUB 20 372 T$="ev":F=91:GOSUB 20 374 T$="ery ":F=102:GOSUB 20 376 T$="piece ":GOSUB 20 377 FOR I=1 TO 160: NEXT 378 T$="in":F=91:GOSUB 20 380 T$="to ":F=114:GOSUB 20 '381 FOR I=1 TO 160: NEXT ' ' FIRE 382 GOSUB 18:GOSUB 15:HOME:GOSUB 2500: GOSUB 10:GOSUB 19:PRINT 383 POKE 36,X ' ' a fire. ' 384 T$="a ":F=102:GOSUB 20 386 T$="fire."+C$:D=108:F=152:GOSUB 20 387 FOR I=1 TO 560:NEXT ' ' As they burned it hurt because ' 388 T$="As ":F=102:GOSUB 20 390 T$="they ":F=91:GOSUB 20 392 T$="burned ":D=162:F=85:GOSUB 20 394 T$="it ":D=108:F=102:GOSUB 20 396 T$="hurt ":F=121:GOSUB 20 398 T$="be":D=54:F=114:GOSUB 20 400 T$="cause"+C$:F=102:GOSUB 20 401 FOR I=1 TO 80: NEXT ' ' I was so happy for you! ' 402 T$="I ":F=152:GOSUB 20:REM SOUND 220, 4.8 404 T$="was ":F=114:GOSUB 20:REM SOUND 293.6, 4.8 406 T$="so ":F=102:GOSUB 20:REM SOUND 329.6, 4.8 408 T$="hap":F=96:GOSUB 20:REM SOUND 349.2, 4.8 410 T$="py ":F=102:GOSUB 20:REM SOUND 329.6, 4.8 412 T$="for ":F=114:GOSUB 20:REM SOUND 293.6, 4.8 414 T$="you!"+C$:F=128:GOSUB 20:REM SOUND 261.6, 14.4 '415 FOR I=1 TO 160: NEXT ' ' CHECK 416 GOSUB 18:GOSUB 15:HOME:GOSUB 2600: GOSUB 10:GOSUB 19:PRINT ' ' Now these points of data\nmake a beautiful line. ' 418 T$="Now ":F=152:GOSUB 20 420 T$="these ":F=143:GOSUB 20 422 T$="points ":D=108:F=128:GOSUB 20 424 T$="of ":F=96:GOSUB 20 426 T$="da":D=54:F=102:GOSUB 20 428 T$="ta"+C$:F=114:GOSUB 20 430 T$="make ":GOSUB 20 432 T$="a ":F=128:GOSUB 20 434 T$="beau":F=114:GOSUB 20 436 T$="ti":F=128:GOSUB 20 438 T$="ful ":D=108:F=128:GOSUB 20 440 T$="line."+C$:F=128:GOSUB 20 ' ' And we're out of beta.\nWe're releasing on time. ' 442 T$="And ":D=54:F=152:GOSUB 20 444 T$="we're ":F=143:GOSUB 20 446 T$="out ":D=108:F=128:GOSUB 20 448 T$="of ":F=96:GOSUB 20 450 T$="be":D=54:F=85:GOSUB 20 452 T$="ta."+C$:F=96:GOSUB 20 454 T$="We're ":F=102:GOSUB 20 456 T$="re":F=114:GOSUB 20 458 T$="lea":GOSUB 20 460 T$="sing ":F=102:GOSUB 20 462 T$="on ":D=108:F=96:GOSUB 20 464 T$="time."+C$:F=96:GOSUB 20 ' ' EXPLOSION 466 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT ' ' So I'm GLaD. I got burned. ' 468 T$="So ":D=54:F=85:GOSUB 20 470 T$="I'm ":F=76:GOSUB 20 472 T$="GLaD. ":F=72:GOSUB 20 474 T$="I ":GOSUB 20 476 T$="got ": D=108:F=76:GOSUB 20 478 T$="burned."+C$:F=85:GOSUB 20 ' ' ATOM ' 480 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT ' ' Think of all the things we learned ' 482 T$="Think ":D=54:F=96:GOSUB 20 484 T$="of ":F=85:GOSUB 20 486 T$="all ":F=76:GOSUB 20 488 T$="the ":GOSUB 20 490 T$="things ":F=85:GOSUB 20 492 T$="we ":F=96:GOSUB 20 494 T$="learned"+C$:D=108:F=96:GOSUB 20 ' ' APERTURE SCIENCE LOGO ' 496 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT ' ' for the people who are ' 498 T$="for ":D=54:F=114:GOSUB 20 500 T$="the ":F=128:GOSUB 20 502 T$="peo":F=114:GOSUB 20 504 T$="ple ":F=96:GOSUB 20 506 T$="who ":GOSUB 20 510 T$="are"+C$: D=108:F=102:GOSUB 20 ' ' still alive. ' 512 T$="still ":D=54:F=102:GOSUB 20 ' ' FIXME: CAN WE DO ALIVE SLOWLY LIKE IN THE VIDEO? ' 513 T$="a":F=91:GOSUB 20 514 T$="live."+C$:D=162:F=91:GOSUB 20 ' 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 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 ' ' 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 648 T$="there's ":GOSUB 20:REM SOUND 261.6, 4.8 ' ' RADIATION 650 GOSUB 18:GOSUB 15:HOME:GOSUB 2100: GOSUB 10:GOSUB 19:PRINT 652 POKE 36,X ' '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 ' ' 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. ' 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 ' ' ' 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 804 PRINT 806 T$="FINAL THOUGHT:"+C$:GOSUB 30 ' '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 826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30 ' '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 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 '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 ' 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 1000 TEXT:HOME 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 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 " ., .." 2330 RETURN ' 2400 REM EXPLOSION 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 " + .;-"; 2430 RETURN ' 2500 REM FIRE 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 %+;- ." 2530 RETURN ' 2600 REM CHECK 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-" 2630 RETURN ' 2800 REM BLACK MESA 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$+;-." 2830 RETURN ' 2900 REM CAKE DELICIOUS AND MOIST 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 " ,.:=-." 2930 RETURN ' 3000 REM GLaDOS 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 #####$="; 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 '