mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
sa: get subprinting working
This commit is contained in:
parent
820a886d90
commit
329aa0047c
22
still_alive/art/title.txt
Normal file
22
still_alive/art/title.txt
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
__ ___ ___ _ ___ __
|
||||||
|
/ | | | | / \ | | | | |
|
||||||
|
\_ | | | | |_| | | | | |_
|
||||||
|
\ | | | | | | | | | | |
|
||||||
|
__/ | _|_ |_ |_ | | |_ _|_ \/ |__
|
||||||
|
______
|
||||||
|
A \/\/\/ SOFTWARE PRODUCTION
|
||||||
|
|
||||||
|
FROM PORTAL BY VALVE
|
||||||
|
MUSIC BY: JONATHAN COLTON
|
||||||
|
XMP VERSION: DJ ODIN
|
||||||
|
XMP->YM5 CONVERSION: DEATER
|
||||||
|
LZ4 CODE: QKUMBA
|
||||||
|
ELECTRIC DUET: P. LUTUS
|
||||||
|
|
||||||
|
PLEASE SELECT:
|
||||||
|
1. 80 COLUMN + MOCKINGBOARD
|
||||||
|
2. 40 COLUMN + MOCKINGBOARD
|
||||||
|
3. 40 COLUMN + SPEAKER
|
||||||
|
---->
|
||||||
|
|
||||||
|
|
@ -1,972 +0,0 @@
|
|||||||
1 REM PORTAL CLOSING CREDITS APPLESOFT
|
|
||||||
2 REM BASED ON QBASIC VERSION BY Thomas Moss (spinneretsystems)
|
|
||||||
3 REM WORDS AND MUSIC BY JONATHAN COULTON
|
|
||||||
'
|
|
||||||
' Size Opt: Final Version = 20557
|
|
||||||
' Move Line 20 to Line 8 = 20182
|
|
||||||
'
|
|
||||||
5 TEXT:PRINT CHR$(4)+"PR#3": REM 80 COLUMN MODE
|
|
||||||
7 HOME:C$=CHR$(13):GOTO 50
|
|
||||||
'
|
|
||||||
' SLOWTEXT
|
|
||||||
'
|
|
||||||
8 FOR C = 1 TO LEN(T$):PRINT MID$(T$, C, 1);:FOR I = 1 TO 1:NEXT I: NEXT C:POKE 768,F:POKE 769,D:CALL 770:RETURN
|
|
||||||
'
|
|
||||||
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
|
|
||||||
'
|
|
||||||
' Restore Cursor
|
|
||||||
'
|
|
||||||
18 X=PEEK(1403):Y=PEEK(37):RETURN
|
|
||||||
19 POKE 36,X:POKE 37,Y-1: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 8
|
|
||||||
82 T$="was ":F=91:GOSUB 8
|
|
||||||
84 T$="a ":F=102:GOSUB 8
|
|
||||||
86 T$="tri":GOSUB 8
|
|
||||||
89 T$="umph."+C$:F=91:GOSUB 8
|
|
||||||
90 FOR I=1 TO 800:NEXT
|
|
||||||
'
|
|
||||||
' I'm making a note here:
|
|
||||||
'
|
|
||||||
94 T$="I'm ":F=152:GOSUB 8
|
|
||||||
96 T$="ma":F=85:GOSUB 8
|
|
||||||
98 T$="king ":F=91:GOSUB 8
|
|
||||||
100 T$="a ":F=102:GOSUB 8
|
|
||||||
102 T$="note ":D=108:F=102:GOSUB 8
|
|
||||||
104 T$ = "here:"+C$:D=54:F=91:GOSUB 8
|
|
||||||
105 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
' HUGE SUCCESS.
|
|
||||||
'
|
|
||||||
106 T$ = "HUGE ":D=108:F=114:GOSUB 8
|
|
||||||
108 T$ = "SUC":D=54:F=102:GOSUB 8
|
|
||||||
110 T$ = "CESS."+C$:D=108:F=152:GOSUB 8
|
|
||||||
111 FOR I=1 TO 480: NEXT
|
|
||||||
'
|
|
||||||
' It's hard to overstate
|
|
||||||
'
|
|
||||||
112 T$="It's ":D=54:F=152:GOSUB 8
|
|
||||||
114 T$="hard ":D=108:F=102:GOSUB 8
|
|
||||||
116 T$="to ":D=54:F=91:GOSUB 8
|
|
||||||
118 T$="o":D=162:F=85:GOSUB 8
|
|
||||||
120 T$="ver":D=54:F=91:GOSUB 8
|
|
||||||
122 T$="state"+C$:D=108:F=121:GOSUB 8
|
|
||||||
'
|
|
||||||
' my satisfaction.
|
|
||||||
'
|
|
||||||
124 T$="my ":D=162:F=114:GOSUB 8
|
|
||||||
126 T$="sa":D=108:F=102:GOSUB 8
|
|
||||||
128 T$="tis":D=54:F=152:GOSUB 8
|
|
||||||
130 T$="fac":D=108:F=152:GOSUB 8
|
|
||||||
132 T$="tion."+C$:F=91:GOSUB 8
|
|
||||||
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 8
|
|
||||||
138 T$="per":F=91:GOSUB 8
|
|
||||||
140 T$="ture ":F=102:GOSUB 8
|
|
||||||
142 T$="Sci":GOSUB 8
|
|
||||||
144 T$="ence"+C$:F=91:GOSUB 8
|
|
||||||
145 FOR I=1 TO 800:NEXT
|
|
||||||
'
|
|
||||||
' We do what we must
|
|
||||||
'
|
|
||||||
146 T$="We ":F=152:GOSUB 8
|
|
||||||
148 T$="do ":F=85:GOSUB 8
|
|
||||||
150 T$="what ":F=91:GOSUB 8
|
|
||||||
152 T$="we ":F=102:GOSUB 8
|
|
||||||
154 T$="must"+C$:GOSUB 8
|
|
||||||
155 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
' because we can.
|
|
||||||
'
|
|
||||||
156 T$="be":F=91:GOSUB 8
|
|
||||||
158 T$="cause ":F=114:GOSUB 8
|
|
||||||
159 FOR I=1 TO 160: NEXT
|
|
||||||
160 T$="we ":F=102:GOSUB 8
|
|
||||||
162 T$="can."+C$:D=162:F=152:GOSUB 8
|
|
||||||
163 FOR I=1 TO 560: NEXT
|
|
||||||
'
|
|
||||||
' For the good of all of us.
|
|
||||||
'
|
|
||||||
164 T$="For ":D=108:F=102:GOSUB 8
|
|
||||||
166 T$="the ":D=54:F=91:GOSUB 8
|
|
||||||
168 T$="good ":D=162:F=85:GOSUB 8
|
|
||||||
170 T$="of ":D=54:F=102:GOSUB 8
|
|
||||||
172 T$="all ":D=162:F=121:GOSUB 8
|
|
||||||
174 T$="of ":D=54:F=114:GOSUB 8
|
|
||||||
176 T$="us."+C$:F=102:GOSUB 8
|
|
||||||
'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 8
|
|
||||||
182 T$="cept ":F=114:GOSUB 8
|
|
||||||
184 T$="the ":F=102:GOSUB 8
|
|
||||||
186 T$="ones ":F=96:GOSUB 8
|
|
||||||
188 T$="who ":F=102:GOSUB 8
|
|
||||||
190 T$="are ":F=114:GOSUB 8
|
|
||||||
192 T$="dead."+C$:F=128:GOSUB 8
|
|
||||||
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 8
|
|
||||||
200 T$="there's ":F=143:GOSUB 8
|
|
||||||
202 T$="no ":D=108:F=128:GOSUB 8
|
|
||||||
204 T$="sense ":F=96:GOSUB 8
|
|
||||||
206 T$="cry":D=54:F=102:GOSUB 8
|
|
||||||
208 T$="ing"+C$:F=114:GOSUB 8
|
|
||||||
210 T$="o":GOSUB 8
|
|
||||||
212 T$="ver ":F=128:GOSUB 8
|
|
||||||
214 T$="e":F=114:GOSUB 8
|
|
||||||
216 T$="very ":F=128:GOSUB 8
|
|
||||||
218 T$="mis":D=108:F=128:GOSUB 8
|
|
||||||
220 T$="take."+C$:F=128:GOSUB 8
|
|
||||||
'
|
|
||||||
' You just keep on trying\ntill you run out of cake.
|
|
||||||
'
|
|
||||||
222 T$="You ":D=54:F=152:GOSUB 8
|
|
||||||
224 T$="just ":F=143:GOSUB 8
|
|
||||||
226 T$="keep ":D=108:F=128:GOSUB 8
|
|
||||||
228 T$="on ":F=96:GOSUB 8
|
|
||||||
230 T$="try":D=54:F=85:GOSUB 8
|
|
||||||
232 T$="ing"+C$:F=96:GOSUB 8
|
|
||||||
234 T$="till ":F=102:GOSUB 8
|
|
||||||
236 T$="you ":F=114:GOSUB 8
|
|
||||||
238 T$="run ":GOSUB 8
|
|
||||||
240 T$="out ":F=102:GOSUB 8
|
|
||||||
242 T$="of ":D=108:F=96:GOSUB 8
|
|
||||||
244 T$="cake."+C$:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' 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 8
|
|
||||||
250 T$="the ":F=76:GOSUB 8
|
|
||||||
252 T$="Sci":F=72:GOSUB 8
|
|
||||||
254 T$="ence ":GOSUB 8
|
|
||||||
256 T$="gets ":D=108:F=76:GOSUB 8
|
|
||||||
258 T$="done."+C$:F=85:GOSUB 8
|
|
||||||
'
|
|
||||||
' And you make a neat gun
|
|
||||||
'
|
|
||||||
260 T$="And ":D=54:F=96:GOSUB 8
|
|
||||||
262 T$="you ":F=85:GOSUB 8
|
|
||||||
264 T$="make ":F=76:GOSUB 8
|
|
||||||
266 T$="a ":F=76:GOSUB 8
|
|
||||||
268 T$="neat ":D=108:F=85:GOSUB 8
|
|
||||||
270 T$="gun."+C$:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' 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 8
|
|
||||||
276 T$="the ":F=128:GOSUB 8
|
|
||||||
278 T$="peo":F=114:GOSUB 8
|
|
||||||
280 T$="ple ":F=96:GOSUB 8
|
|
||||||
282 T$="who ":GOSUB 8
|
|
||||||
284 T$="are"+C$:D=108:F=102:GOSUB 8
|
|
||||||
'
|
|
||||||
' still alive.
|
|
||||||
'
|
|
||||||
286 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
288 T$="a":F=91:GOSUB 8
|
|
||||||
290 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
291 FOR I=1 TO 1900: NEXT
|
|
||||||
'
|
|
||||||
'
|
|
||||||
'
|
|
||||||
292 HOME:C$=CHR$(13):X=FRE(0)
|
|
||||||
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 ":D=54:F=152:GOSUB 8
|
|
||||||
304 T$="not ":F=85:GOSUB 8
|
|
||||||
306 T$="e":F=91:GOSUB 8
|
|
||||||
308 T$="ven ":F=102:GOSUB 8
|
|
||||||
310 T$="an":GOSUB 8
|
|
||||||
312 T$="gry."+C$:F=91:GOSUB 8
|
|
||||||
313 FOR I=1 TO 800: NEXT
|
|
||||||
'
|
|
||||||
' I'm being so sincere right now.
|
|
||||||
'
|
|
||||||
314 T$="I'm ":F=85:GOSUB 8
|
|
||||||
316 T$="be":F=91:GOSUB 8
|
|
||||||
320 T$="ing ":F=102:GOSUB 8
|
|
||||||
322 T$="so ":D=162:F=102:GOSUB 8
|
|
||||||
324 T$="sin":D=54:F=91:GOSUB 8
|
|
||||||
326 T$="cere ":D=108:F=114:GOSUB 8
|
|
||||||
328 T$="right ":F=102:GOSUB 8
|
|
||||||
330 T$="now."+C$:F=152:GOSUB 8
|
|
||||||
331 FOR I=1 TO 560: NEXT
|
|
||||||
'
|
|
||||||
' Even though you broke my
|
|
||||||
'
|
|
||||||
332 T$="E":F=102:GOSUB 8
|
|
||||||
334 T$="ven ":D=54:F=91:GOSUB 8
|
|
||||||
336 T$="though ":D=162:F=85:GOSUB 8
|
|
||||||
338 T$="you ":D=108:F=102:GOSUB 8
|
|
||||||
340 T$="broke ":F=121:GOSUB 8
|
|
||||||
342 T$="my ":D=54:F=114:GOSUB 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$:D=162:F=102:GOSUB 8
|
|
||||||
348 T$="And ":D=54:F=152:GOSUB 8
|
|
||||||
350 T$="killed ":D=108:F=152:GOSUB 8
|
|
||||||
352 T$="me."+C$:D=54:F=91:GOSUB 8
|
|
||||||
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 8
|
|
||||||
358 T$="tore ":F=85:GOSUB 8
|
|
||||||
360 T$="me ":F=91:GOSUB 8
|
|
||||||
362 T$="to ":F=102:GOSUB 8
|
|
||||||
364 T$="pie":GOSUB 8
|
|
||||||
366 T$="ces."+C$:F=91:GOSUB 8
|
|
||||||
367 FOR I=1 TO 800:NEXT
|
|
||||||
'
|
|
||||||
' And threw every peice into
|
|
||||||
'
|
|
||||||
368 T$="And ":F=152:GOSUB 8:REM SOUND 220, 4.8
|
|
||||||
370 T$="threw ":F=85:GOSUB 8
|
|
||||||
372 T$="ev":F=91:GOSUB 8
|
|
||||||
374 T$="ery ":F=102:GOSUB 8
|
|
||||||
376 T$="piece ":GOSUB 8
|
|
||||||
377 FOR I=1 TO 160: NEXT
|
|
||||||
378 T$="in":F=91:GOSUB 8
|
|
||||||
380 T$="to ":F=114:GOSUB 8
|
|
||||||
'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 8
|
|
||||||
386 T$="fire."+C$:D=108:F=152:GOSUB 8
|
|
||||||
387 FOR I=1 TO 560:NEXT
|
|
||||||
'
|
|
||||||
' As they burned it hurt because
|
|
||||||
'
|
|
||||||
388 T$="As ":F=102:GOSUB 8
|
|
||||||
390 T$="they ":D=54:F=91:GOSUB 8
|
|
||||||
392 T$="burned ":D=162:F=85:GOSUB 8
|
|
||||||
394 T$="it ":D=108:F=102:GOSUB 8
|
|
||||||
396 T$="hurt ":F=121:GOSUB 8
|
|
||||||
398 T$="be":D=54:F=114:GOSUB 8
|
|
||||||
400 T$="cause"+C$:F=102:GOSUB 8
|
|
||||||
401 FOR I=1 TO 80: NEXT
|
|
||||||
'
|
|
||||||
' I was so happy for you!
|
|
||||||
'
|
|
||||||
402 T$="I ":F=152:GOSUB 8:REM SOUND 220, 4.8
|
|
||||||
404 T$="was ":F=114:GOSUB 8:REM SOUND 293.6, 4.8
|
|
||||||
406 T$="so ":F=102:GOSUB 8:REM SOUND 329.6, 4.8
|
|
||||||
408 T$="hap":F=96:GOSUB 8:REM SOUND 349.2, 4.8
|
|
||||||
410 T$="py ":F=102:GOSUB 8:REM SOUND 329.6, 4.8
|
|
||||||
412 T$="for ":F=114:GOSUB 8:REM SOUND 293.6, 4.8
|
|
||||||
414 T$="you!"+C$:F=128:GOSUB 8: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 8
|
|
||||||
420 T$="these ":F=143:GOSUB 8
|
|
||||||
422 T$="points ":D=108:F=128:GOSUB 8
|
|
||||||
424 T$="of ":F=96:GOSUB 8
|
|
||||||
426 T$="da":D=54:F=102:GOSUB 8
|
|
||||||
428 T$="ta"+C$:F=114:GOSUB 8
|
|
||||||
430 T$="make ":GOSUB 8
|
|
||||||
432 T$="a ":F=128:GOSUB 8
|
|
||||||
434 T$="beau":F=114:GOSUB 8
|
|
||||||
436 T$="ti":F=128:GOSUB 8
|
|
||||||
438 T$="ful ":D=108:F=128:GOSUB 8
|
|
||||||
440 T$="line."+C$:F=128:GOSUB 8
|
|
||||||
'
|
|
||||||
' And we're out of beta.\nWe're releasing on time.
|
|
||||||
'
|
|
||||||
442 T$="And ":D=54:F=152:GOSUB 8
|
|
||||||
444 T$="we're ":F=143:GOSUB 8
|
|
||||||
446 T$="out ":D=108:F=128:GOSUB 8
|
|
||||||
448 T$="of ":F=96:GOSUB 8
|
|
||||||
450 T$="be":D=54:F=85:GOSUB 8
|
|
||||||
452 T$="ta."+C$:F=96:GOSUB 8
|
|
||||||
454 T$="We're ":F=102:GOSUB 8
|
|
||||||
456 T$="re":F=114:GOSUB 8
|
|
||||||
458 T$="lea":GOSUB 8
|
|
||||||
460 T$="sing ":F=102:GOSUB 8
|
|
||||||
462 T$="on ":D=108:F=96:GOSUB 8
|
|
||||||
464 T$="time."+C$:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' 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 8
|
|
||||||
470 T$="I'm ":F=76:GOSUB 8
|
|
||||||
472 T$="GLaD. ":F=72:GOSUB 8
|
|
||||||
474 T$="I ":GOSUB 8
|
|
||||||
476 T$="got ": D=108:F=76:GOSUB 8
|
|
||||||
478 T$="burned."+C$:F=85:GOSUB 8
|
|
||||||
'
|
|
||||||
' 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 8
|
|
||||||
484 T$="of ":F=85:GOSUB 8
|
|
||||||
486 T$="all ":F=76:GOSUB 8
|
|
||||||
488 T$="the ":GOSUB 8
|
|
||||||
490 T$="things ":F=85:GOSUB 8
|
|
||||||
492 T$="we ":F=96:GOSUB 8
|
|
||||||
494 T$="learned"+C$:D=108:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' 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 8
|
|
||||||
500 T$="the ":F=128:GOSUB 8
|
|
||||||
502 T$="peo":F=114:GOSUB 8
|
|
||||||
504 T$="ple ":F=96:GOSUB 8
|
|
||||||
506 T$="who ":GOSUB 8
|
|
||||||
510 T$="are"+C$: D=108:F=102:GOSUB 8
|
|
||||||
'
|
|
||||||
' still alive.
|
|
||||||
'
|
|
||||||
512 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
'
|
|
||||||
' FIXME: CAN WE DO ALIVE SLOWLY LIKE IN THE VIDEO?
|
|
||||||
'
|
|
||||||
513 T$="a":F=91:GOSUB 8
|
|
||||||
514 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
'
|
|
||||||
' PAGE 3
|
|
||||||
'
|
|
||||||
516 HOME:C$=CHR$(13)
|
|
||||||
517 X=FRE(0)
|
|
||||||
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 30
|
|
||||||
526 PRINT
|
|
||||||
'
|
|
||||||
' Go ahead and leave me
|
|
||||||
'
|
|
||||||
528 T$="Go ":D=54:F=85:GOSUB 8
|
|
||||||
530 T$="a":D=27:F=91:GOSUB 8
|
|
||||||
531 T$="head ":GOSUB 8
|
|
||||||
532 T$="and ":D=54:F=102:GOSUB 8
|
|
||||||
534 T$="leave ":D=108:F=102:GOSUB 8
|
|
||||||
536 T$="me"+C$:D=54:F=91:GOSUB 8
|
|
||||||
537 FOR I=1 TO 520:NEXT
|
|
||||||
'
|
|
||||||
' I think I prefer to stay inside.
|
|
||||||
'
|
|
||||||
538 T$="I ":F=152:GOSUB 8
|
|
||||||
540 T$="think ":F=85:GOSUB 8
|
|
||||||
542 T$="I ":F=91:GOSUB 8
|
|
||||||
544 T$="pre":F=102:GOSUB 8
|
|
||||||
546 T$="fer ":F=102:GOSUB 8
|
|
||||||
547 FOR I=1 TO 160: NEXT
|
|
||||||
548 T$="to ":F=91:GOSUB 8
|
|
||||||
550 T$="stay ":F=114:GOSUB 8
|
|
||||||
551 FOR I=1 TO 160: NEXT
|
|
||||||
552 T$="in":F=102:GOSUB 8
|
|
||||||
554 T$="side."+C$:D=108:F=152:GOSUB 8
|
|
||||||
555 FOR I=1 TO 560: NEXT
|
|
||||||
'
|
|
||||||
' Maybe you'll find someone else
|
|
||||||
'
|
|
||||||
556 T$="May":F=102:GOSUB 8
|
|
||||||
558 T$="be ":D=54:F=91:GOSUB 8
|
|
||||||
560 T$="you'll ":D=162:F=85:GOSUB 8
|
|
||||||
562 T$="find ":D=108:F=102:GOSUB 8
|
|
||||||
564 T$="some":F=121:GOSUB 8
|
|
||||||
566 T$="one ":D=54:F=114:GOSUB 8
|
|
||||||
568 T$="else"+C$:D=162:F=102:GOSUB 8
|
|
||||||
570 T$="to ":D=54:F=152:GOSUB 8
|
|
||||||
572 T$="help ":D=108:F=152:GOSUB 8
|
|
||||||
574 T$="you."+C$:D=54:F=91:GOSUB 8
|
|
||||||
575 FOR I=1 TO 800:NEXT
|
|
||||||
'
|
|
||||||
' Black Mesa
|
|
||||||
'
|
|
||||||
576 GOSUB 18:GOSUB 15:HOME:GOSUB 2800: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' Maybe Black Mesa.
|
|
||||||
'
|
|
||||||
578 T$="May":F=85:GOSUB 8
|
|
||||||
580 T$="be ":F=91:GOSUB 8
|
|
||||||
582 T$="Black ":F=102:GOSUB 8
|
|
||||||
584 T$="Me":D=108:F=102:GOSUB 8
|
|
||||||
586 T$="sa.":D=54:F=91:GOSUB 8
|
|
||||||
587 FOR I=1 TO 800:NEXT I
|
|
||||||
'
|
|
||||||
' THAT WAS A JOKE.
|
|
||||||
'
|
|
||||||
588 T$=".."+C$:GOSUB 30
|
|
||||||
590 T$="THAT ":F=85:GOSUB 8
|
|
||||||
591 T$="WAS ":F=91:GOSUB 8
|
|
||||||
592 T$="A ":F=102:GOSUB 8
|
|
||||||
593 T$="JOKE.":F=102:GOSUB 8
|
|
||||||
594 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
' HAHA
|
|
||||||
'
|
|
||||||
595 T$=" ":F=91:GOSUB 8
|
|
||||||
596 T$=" ":F=114:GOSUB 8
|
|
||||||
597 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
' FAT CHANCE.
|
|
||||||
'
|
|
||||||
598 T$="FAT ":F=102:GOSUB 8
|
|
||||||
600 T$="CHANCE."+C$:D=108:F=152:GOSUB 8
|
|
||||||
601 FOR I=1 TO 560: NEXT
|
|
||||||
'
|
|
||||||
' Anyway, this cake is
|
|
||||||
'
|
|
||||||
602 T$="A":F=102:GOSUB 8
|
|
||||||
604 T$="ny":D=54:F=91:GOSUB 8
|
|
||||||
606 T$="way, ":D=162:F=85:GOSUB 8
|
|
||||||
608 T$="this ":D=108:F=102:GOSUB 8
|
|
||||||
610 T$="cake ":F=121:GOSUB 8
|
|
||||||
612 T$="is ":D=54:F=114:GOSUB 8
|
|
||||||
'
|
|
||||||
' CAKE
|
|
||||||
'
|
|
||||||
614 GOSUB 18:GOSUB 15:HOME:GOSUB 2900: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
616 POKE 36,X
|
|
||||||
'
|
|
||||||
' great.
|
|
||||||
'
|
|
||||||
616 T$="great."+C$:F=102:GOSUB 8
|
|
||||||
617 FOR I=1 TO 80: NEXT
|
|
||||||
'
|
|
||||||
' It's so delicious and moist.
|
|
||||||
'
|
|
||||||
618 T$="It's ":F=152:GOSUB 8
|
|
||||||
620 T$="so ":F=114:GOSUB 8
|
|
||||||
622 T$="de":F=102:GOSUB 8
|
|
||||||
624 T$="li":F=96:GOSUB 8
|
|
||||||
626 T$="cious ":F=102:GOSUB 8
|
|
||||||
628 T$="and ":F=114:GOSUB 8
|
|
||||||
630 T$="moist."+C$:F=128:GOSUB 8
|
|
||||||
631 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
' GLaDOS
|
|
||||||
'
|
|
||||||
632 GOSUB 18:GOSUB 15:HOME:GOSUB 3000: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' Look at me still talking.
|
|
||||||
'
|
|
||||||
634 T$="Look ":F=152:GOSUB 8
|
|
||||||
636 T$="at ":F=143:GOSUB 8
|
|
||||||
638 T$="me ":D=108:F=128:GOSUB 8
|
|
||||||
640 T$="still ":F=96:GOSUB 8
|
|
||||||
642 T$="tal":D=54:F=102:GOSUB 8
|
|
||||||
644 T$="king"+C$:F=114:GOSUB 8
|
|
||||||
'
|
|
||||||
' when there's
|
|
||||||
'
|
|
||||||
646 T$="when ":F=114:GOSUB 8
|
|
||||||
648 T$="there's ":F=128:GOSUB 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":F=114:GOSUB 8
|
|
||||||
656 T$="ence ":F=128:GOSUB 8
|
|
||||||
658 T$="to ":D=108:F=128:GOSUB 8
|
|
||||||
660 T$="do."+C$:F=128:GOSUB 8
|
|
||||||
'
|
|
||||||
' APERTURE SCIENCE LOGO
|
|
||||||
'
|
|
||||||
662 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' When I look out there
|
|
||||||
'
|
|
||||||
664 T$="When ":D=54:F=152:GOSUB 8
|
|
||||||
666 T$="I ":F=143:GOSUB 8
|
|
||||||
668 T$="look ":D=108:F=128:GOSUB 8
|
|
||||||
670 T$="out ":F=96:GOSUB 8
|
|
||||||
672 T$="there, "+C$:D=54:F=85:GOSUB 8
|
|
||||||
'
|
|
||||||
' it makes me GLaD I'm not you."+C$
|
|
||||||
'
|
|
||||||
674 T$="it ":F=96:GOSUB 8
|
|
||||||
676 T$="Makes ":F=102:GOSUB 8
|
|
||||||
678 T$="me ":F=114:GOSUB 8
|
|
||||||
680 T$="GLaD ":F=114:GOSUB 8
|
|
||||||
682 T$="I'm ":F=102:GOSUB 8
|
|
||||||
684 T$="not ":D=108:F=96:GOSUB 8
|
|
||||||
686 T$="you."+C$:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' ATOM
|
|
||||||
'
|
|
||||||
688 GOSUB 18:GOSUB 15:HOME:GOSUB 2200: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' I've experiments to run.
|
|
||||||
'
|
|
||||||
690 T$="I've ":D=54:F=85:GOSUB 8
|
|
||||||
692 T$="ex":F=76:GOSUB 8
|
|
||||||
694 T$="pe":F=72:GOSUB 8
|
|
||||||
696 T$="ri":F=72:GOSUB 8
|
|
||||||
698 T$="ments ":F=76:GOSUB 8
|
|
||||||
700 T$="to ":F=85:GOSUB 8
|
|
||||||
702 T$="run."+C$:D=108:F=85:GOSUB 8
|
|
||||||
'
|
|
||||||
' EXPLOSION
|
|
||||||
'
|
|
||||||
704 GOSUB 18:GOSUB 15:HOME:GOSUB 2400: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' There is research to be done"
|
|
||||||
'
|
|
||||||
706 T$="There ":D=54:F=96:GOSUB 8
|
|
||||||
708 T$="is ":F=85:GOSUB 8
|
|
||||||
710 T$="re":F=76:GOSUB 8
|
|
||||||
712 T$="search ":F=76:GOSUB 8
|
|
||||||
714 T$="to ":F=85:GOSUB 8
|
|
||||||
716 T$="be ":F=96:GOSUB 8
|
|
||||||
718 T$="done."+C$:D=108:F=96:GOSUB 8
|
|
||||||
'
|
|
||||||
' APERTURE SCIENCE LOGO
|
|
||||||
'
|
|
||||||
720 GOSUB 18:GOSUB 15:HOME:GOSUB 2000: GOSUB 10:GOSUB 19:PRINT
|
|
||||||
'
|
|
||||||
' On the people who are
|
|
||||||
'
|
|
||||||
722 T$="On ":D=54:F=114:GOSUB 8
|
|
||||||
724 T$="the ":F=128:GOSUB 8
|
|
||||||
726 T$="peo":F=114:GOSUB 8
|
|
||||||
728 T$="ple ":F=96:GOSUB 8
|
|
||||||
730 T$="who ":F=96:GOSUB 8
|
|
||||||
732 T$="are"+C$:D=108:F=102:GOSUB 8
|
|
||||||
'
|
|
||||||
' still alive.
|
|
||||||
'
|
|
||||||
734 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
736 T$="a":F=91:GOSUB 8
|
|
||||||
738 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
739 FOR I=1 TO 160: NEXT
|
|
||||||
'
|
|
||||||
'
|
|
||||||
'
|
|
||||||
740 HOME:PRINT:PRINT:PRINT
|
|
||||||
'
|
|
||||||
' PS: And believe me I am\nstill alive.
|
|
||||||
'
|
|
||||||
742 T$="PS: And ":D=54:F=76:GOSUB 8
|
|
||||||
744 T$="be":F=76:GOSUB 8
|
|
||||||
746 T$="lieve ":F=68:GOSUB 8
|
|
||||||
748 T$="me ":F=76:GOSUB 8
|
|
||||||
750 T$="I ":F=91:GOSUB 8
|
|
||||||
752 T$="am"+C$:D=108:F=114:GOSUB 8
|
|
||||||
754 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
756 T$="a":F=91:GOSUB 8
|
|
||||||
758 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
759 FOR I=1 TO 240:NEXT
|
|
||||||
'
|
|
||||||
' PPS: I'm doing Science and I'm\nstill alive.
|
|
||||||
'
|
|
||||||
760 T$="PPS: ":GOSUB 30
|
|
||||||
762 T$="I'm ":D=54:F=76:GOSUB 8
|
|
||||||
764 T$="do":F=76:GOSUB 8
|
|
||||||
766 T$="ing ":F=76:GOSUB 8
|
|
||||||
768 T$="Sci":F=68:GOSUB 8
|
|
||||||
770 T$="ence ":F=76:GOSUB 8
|
|
||||||
772 T$="and ":F=91:GOSUB 8
|
|
||||||
774 T$="I'm"+C$:D=108:F=114:GOSUB 8
|
|
||||||
776 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
778 T$="a":F=91:GOSUB 8
|
|
||||||
780 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
781 FOR I=1 TO 240:NEXT
|
|
||||||
'
|
|
||||||
' PPPS: I feel FANTASTIC and I'm\nstill alive
|
|
||||||
'
|
|
||||||
782 T$="PPPS: ":GOSUB 30
|
|
||||||
784 T$="I ":D=54:F=76:GOSUB 8
|
|
||||||
786 T$="feel ":F=76:GOSUB 8
|
|
||||||
788 T$="FAN":F=76:GOSUB 8
|
|
||||||
790 T$="TAS":F=68:GOSUB 8
|
|
||||||
792 T$="TIC ":F=76:GOSUB 8
|
|
||||||
794 T$="and ":F=91:GOSUB 8
|
|
||||||
796 T$="I'm"+C$:D=108:F=114:GOSUB 8
|
|
||||||
798 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
800 T$="a":F=91:GOSUB 8
|
|
||||||
802 T$="live."+C$:D=162:F=91:GOSUB 8
|
|
||||||
803 FOR I=1 TO 320:NEXT
|
|
||||||
804 PRINT
|
|
||||||
'
|
|
||||||
' FINAL THOUGHT:
|
|
||||||
'
|
|
||||||
806 T$="FINAL THOUGHT:"+C$:GOSUB 30
|
|
||||||
'
|
|
||||||
' While you're dying I'll be\nstill alive.
|
|
||||||
'
|
|
||||||
808 T$="While ":D=54:F=76:GOSUB 8
|
|
||||||
810 T$="you're ":F=76:GOSUB 8
|
|
||||||
812 T$="dy":F=68:GOSUB 8
|
|
||||||
814 T$="ing ":F=76:GOSUB 8
|
|
||||||
816 T$="I'll ":F=91:GOSUB 8
|
|
||||||
818 T$="be"+C$:D=108:F=114:GOSUB 8
|
|
||||||
820 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
822 T$="a":F=91:GOSUB 8
|
|
||||||
824 T$="live":D=162:F=91:GOSUB 8
|
|
||||||
825 FOR I=1 TO 240:NEXT
|
|
||||||
'
|
|
||||||
' FINAL THOUGHT PS
|
|
||||||
'
|
|
||||||
826 T$=C$+C$+"FINAL THOUGHT PS:"+C$:GOSUB 30
|
|
||||||
'
|
|
||||||
' And when you're dead I will be\nstill alive
|
|
||||||
'
|
|
||||||
828 T$="And ":D=54:F=76:GOSUB 8
|
|
||||||
830 T$="when ":F=76:GOSUB 8
|
|
||||||
832 T$="you're ":F=76:GOSUB 8
|
|
||||||
834 T$="dead ":F=68:GOSUB 8
|
|
||||||
836 T$="I ":F=76:GOSUB 8
|
|
||||||
838 T$="will ":F=91:GOSUB 8
|
|
||||||
840 T$="be"+C$:D=108:F=114:GOSUB 8
|
|
||||||
842 T$="still ":D=54:F=102:GOSUB 8
|
|
||||||
844 T$="a":F=91:GOSUB 8
|
|
||||||
846 T$="live"+C$:D=162:F=91:GOSUB 8
|
|
||||||
847 FOR I=1 TO 240:NEXT
|
|
||||||
'
|
|
||||||
'
|
|
||||||
'
|
|
||||||
848 PRINT:PRINT
|
|
||||||
'
|
|
||||||
' STILL ALIVE
|
|
||||||
'
|
|
||||||
850 T$="STILL ":D=54:F=85:GOSUB 8
|
|
||||||
851 T$="A":F=76:GOSUB 8
|
|
||||||
852 T$="LIVE":D=162:F=76:GOSUB 8
|
|
||||||
853 FOR I=1 TO 240:NEXT
|
|
||||||
854 PRINT:PRINT
|
|
||||||
'
|
|
||||||
' STILL ALIVE
|
|
||||||
'
|
|
||||||
855 T$=" ":D=54:F=85:GOSUB 8
|
|
||||||
856 T$=" ":F=91:GOSUB 8
|
|
||||||
857 T$=" ":D=162:F=91:GOSUB 8
|
|
||||||
858 FOR I=1 TO 240:NEXT
|
|
||||||
'
|
|
||||||
'
|
|
||||||
'
|
|
||||||
860 FOR I=1 TO 500:NEXT I
|
|
||||||
862 HOME
|
|
||||||
864 FOR I=1 TO 1000:NEXT I
|
|
||||||
866 T$="THANK YOU FOR PARTICIPATING"+C$:GOSUB 30
|
|
||||||
868 T$="IN THIS"+C$:GOSUB 30
|
|
||||||
870 T$="ENRICHMENT CENTER ACTIVITY!!"+C$:GOSUB 30
|
|
||||||
872 PRINT:PRINT
|
|
||||||
874 FOR I=1 TO 3000: NEXT I
|
|
||||||
1000 PRINT CHR$(4)+"PR#0"
|
|
||||||
1001 TEXT:HOME
|
|
||||||
1999 END
|
|
||||||
'
|
|
||||||
'
|
|
||||||
'
|
|
||||||
2000 REM APERTURE
|
|
||||||
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
|
|
||||||
|
|
@ -234,59 +234,83 @@ update_r0_pointer:
|
|||||||
;=================================
|
;=================================
|
||||||
|
|
||||||
done_interrupt:
|
done_interrupt:
|
||||||
|
;===============================================================
|
||||||
|
|
||||||
;=====================
|
|
||||||
; Handle Lyrics
|
; Handle Lyrics
|
||||||
|
;===============================================================
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;=====================
|
||||||
|
; Increment Frame Count
|
||||||
|
; OK if this wraps
|
||||||
;=====================
|
;=====================
|
||||||
lda FRAME_COUNT ; 3
|
|
||||||
inc FRAME_COUNT ; 5
|
inc FRAME_COUNT ; 5
|
||||||
|
|
||||||
ldy #$0
|
ldy #$0
|
||||||
cmp (LYRICSL),Y
|
|
||||||
bne exit_interrupt
|
|
||||||
|
|
||||||
;================================
|
;=====================
|
||||||
; Frame matches, print the string
|
; See if lyrics already printing
|
||||||
;================================
|
;=====================
|
||||||
iny
|
|
||||||
lyric_loop:
|
lda LYRICS_ACTIVE ; see if lyric is ready
|
||||||
lda (LYRICSL),Y
|
bne handle_lyrics ; if so handle it
|
||||||
beq done_lyric
|
|
||||||
|
;========================
|
||||||
|
; Check if new lyric ready
|
||||||
|
;========================
|
||||||
|
lda FRAME_COUNT ; get current frame count
|
||||||
|
cmp (LYRICSL),Y ; compare to next-trigger
|
||||||
|
bne exit_interrupt ; not same, so skip
|
||||||
|
|
||||||
|
lda #1 ; matches, set lyrics active
|
||||||
|
sta LYRICS_ACTIVE
|
||||||
|
|
||||||
|
; adjust pointer 16-bit
|
||||||
|
inc LYRICSL
|
||||||
|
bne lc_sb2
|
||||||
|
inc LYRICSH
|
||||||
|
lc_sb2:
|
||||||
|
|
||||||
|
;==================================
|
||||||
|
; Lyric active, print current char
|
||||||
|
;==================================
|
||||||
|
handle_lyrics:
|
||||||
|
|
||||||
|
lda (LYRICSL),Y ; load value
|
||||||
|
beq done_lyric ; if 0, done lyric
|
||||||
|
|
||||||
|
cmp #11 ; check if in range 1-10
|
||||||
|
bcs lyric_home ; if not, skip ahead
|
||||||
|
|
||||||
cmp #11
|
|
||||||
bcs lyric_home
|
|
||||||
go_draw_ascii:
|
go_draw_ascii:
|
||||||
jsr draw_ascii_art
|
jsr draw_ascii_art ; draw proper ascii art
|
||||||
|
|
||||||
|
jmp lyric_continue ; and continue
|
||||||
|
|
||||||
jmp lyric_continue
|
|
||||||
lyric_home:
|
lyric_home:
|
||||||
cmp #12
|
cmp #12 ; check if form feed char
|
||||||
bne lyric_char
|
bne lyric_char ; if not skip ahead
|
||||||
tya
|
|
||||||
pha
|
jsr HOME ; call HOME
|
||||||
jsr HOME
|
|
||||||
pla
|
jmp lyric_continue ; continue
|
||||||
tay
|
|
||||||
jmp lyric_continue
|
|
||||||
|
|
||||||
lyric_char:
|
lyric_char:
|
||||||
jsr COUT1
|
jsr COUT1 ; output the character
|
||||||
|
|
||||||
lyric_continue:
|
lyric_continue:
|
||||||
iny
|
|
||||||
jmp lyric_loop
|
; adjust pointer 16-bit
|
||||||
|
inc LYRICSL
|
||||||
|
bne lc_sb
|
||||||
|
inc LYRICSH
|
||||||
|
lc_sb:
|
||||||
|
jmp exit_interrupt
|
||||||
|
|
||||||
|
|
||||||
done_lyric:
|
done_lyric:
|
||||||
; adjust pointer
|
|
||||||
sec
|
|
||||||
tya
|
|
||||||
adc LYRICSL
|
|
||||||
sta LYRICSL
|
|
||||||
lda #0
|
lda #0
|
||||||
adc LYRICSH
|
sta LYRICS_ACTIVE
|
||||||
sta LYRICSH
|
jmp lyric_continue
|
||||||
jmp exit_interrupt
|
|
||||||
|
|
||||||
quiet_exit:
|
quiet_exit:
|
||||||
sta DONE_PLAYING
|
sta DONE_PLAYING
|
||||||
|
@ -22,6 +22,7 @@ UNPACK_BUFFER EQU $5E00 ; $5E00 - $9600, 14k, $3800
|
|||||||
sta XPOS
|
sta XPOS
|
||||||
sta MB_CHUNK_OFFSET
|
sta MB_CHUNK_OFFSET
|
||||||
sta DECODE_ERROR
|
sta DECODE_ERROR
|
||||||
|
sta LYRICS_ACTIVE
|
||||||
|
|
||||||
; print detection message
|
; print detection message
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user