10 IF PEEK(44)=8 THEN POKE 44,16:POKE 4096,0:CLR:LOAD"0:LONGEVITY",8
19 POKE 53281,15:POKE 53280,14
20 PRINT"[146][147]            [213]P[212]IME [208]RESENTS:"
30 PRINT"                [204]ONGEVITY":PRINT"          (C)1987 [204]ANCE [196]OOLEY"
40 PRINT" [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC."
50 POKE 53269,0
60 POKE 53287,11
70 POKE 53288,11
80 POKE 53289,11:REM SPRITE COLOR
90 POKE 53271,0:POKE 53277,4:REM SPRITE EXPANSION
100 POKE 53248,160:POKE 53249,160:REM POSITION
110 POKE 53250,184:POKE 53251,160
120 POKE 53252,160:POKE 53253,181
130 POKE 2040,32
140 POKE 2041,33
150 POKE 2042,34
200 FOR I=0 TO 62:READ D:POKE I+(32*64),D:NEXT
210 FOR I=0 TO 62:READ D:POKE I+(33*64),D:NEXT
220 FOR I=0 TO 62:POKE I+(34*64),255:NEXT
230 POKE 53269,7
240 PRINT"               [166][166][166][166][166][166][166][166][166][166]
245 [153]"               SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(
250 LOAD"0:LONGEVITY.EXE",8
300 DATA 0,0,15, 0,0,127, 0,3,255, 0,31,255
310 DATA 0,255,255, 3,255,255, 7,255,255, 15,255,252
320 DATA 31,255,254, 31,255,254, 31,240,126, 63,243,62
330 DATA 63,243,62, 63,240,126, 127,240,252, 127,242,127
340 DATA 127,243,63, 127,255,255, 255,255,255, 255,255,255
350 DATA 255,255,255
400 DATA 240,0,0, 254,0,0, 255,192,0, 255,248,0
410 DATA 255,255,0, 255,255,192, 255,255,224, 63,255,240
420 DATA 127,255,248, 127,255,248, 124,31,248, 124,207,252
430 DATA 124,207,252, 124,31,252, 60,255,254, 252,255,254
440 DATA 252,255,254, 255,255,254, 255,255,255, 255,255,255
450 DATA 255,255,255