10 POKE53281,1:POKE53280,1: N=1:SC=1670:CC=55942:POKE252,25:POKE254,5
20 PRINT"[147]CAUTION:  SMOKING IS HAZARDOUS[154]
30 [129]T[178]12288[164]12670:[135]A:[151]T,A:[130]
40 [129]T[178]49152[164]49215:[135]A:[151]T,A:[130]
50 V[178]53248:[151]V[170]27,255:[151]V[170]29,25:[151]V[170]23,24:O[178]V[170]21
60 [129]T[178]0[164]7:[151]V[170]T[170]39,14:[151]T[170]2040,T[170]192:[130]
70 [151]V,70:[151]V[170]2,52:[151]V[170]4,52:[151]V[170]6,10:[151]V[170]8,42:[151]V[170]10,62
80 [151]V[170]1,130:[151]V[170]3,162:[151]V[170]5,183:[151]V[170]7,64:[151]V[170]9,183:[151]V[170]11,166
90 [151]SC,160:[151]CC,1
100 [153]"MEET JOE.";:[151]O,6:[129]T[178]1[164]2500:[130]:[153]"  HE SMOKES.
110 POKESC,32:SP=39:SYS49152:FORT=1TO2500:NEXT
120 GOSUB670
130 Z=Z+1:IFZ=3THENSP=47
140 IFZ=11THEN160
150 GOTO120
160 PRINT"[145]JOE'S BREATH GETS SHORTER":GOSUB670:POKE252,8:POKE254,2
170 FORI=0TO6:GOSUB670:NEXT
180 PRINT"[145]          JOE'S LUNGS GROW BLACKER . . .":POKE252,5:POKE254,1
190 POKEO,51:POKEV+1,145:FORT=29TO0STEP-1:POKET+12547,255
200 FORI=1TOT*25:NEXT:POKEV+1,145:NEXT
210 PRINT"[147][145]FINALLY, JOE TAKES HIS LAST . . .":SP=18:GOSUB680:POKE254,2
220 FORT=0TO22:POKEV+3,162+T
230 FORI=1TO100:NEXT:NEXT
240 POKEV+1,120:PRINT"[147]
250 [151]V[170]23,17:[151]O,1:[151]254,255:[141]680
260 [129]T[178]12288[164]12350:RN[178][181]([187](0)[172]256):[151]T,[194](T)[175]RN
270 [130]:C[178]C[170]1
280 [139]C[179]6[167]260
290 [153],"    DON'T SMOKE !"
300 [151]V[170]2,100:[151]V[170]3,115:[151]O,2
310 [137]310
320 [143] "PUFF"
330 [131] 3, 57, 224, 28, 198, 24, 32, 0, 6, 78, 7, 1, 73, 20, 245, 73, 84, 133
340 [131] 142, 86, 201, 136, 84, 137, 136, 84, 129, 72, 96, 145, 64, 0, 6, 60
350 [131] 24, 56, 2, 39, 192, 3, 192, 0, 0, 6, 0, 0, 9, 0, 0, 6, 0, 0, 0, 0, 0
360 [131] 48, 0, 0, 72, 0, 0, 48, 0
370 [143]  JOE'S HEAD
380 [131] 103, 15, 224, 0, 60, 248, 0, 113, 255, 56, 255, 255, 252, 234, 255
390 [131] 252, 191, 160, 32, 255, 134, 112, 255, 200, 16, 243, 195, 56, 225, 192
400 [131] 16, 225, 128, 8, 225, 128, 132, 97, 128, 66, 124, 0, 62, 112, 0, 8
410 [131] 232, 0, 248, 8, 128, 24, 4, 96, 44, 2, 24, 198, 1, 7, 3, 0, 129, 0
420 [143]  JOE'S BODY
430 [131] 103, 3, 255, 128, 4, 0, 32, 8, 32, 16, 16, 32, 16, 31, 192, 16, 16
440 [131] 64, 112, 16, 64, 144, 16, 128, 144, 21, 0, 144, 17, 0, 80, 17, 0, 80
450 [131] 17, 255, 160, 8, 247, 160, 7, 247, 192, 3, 239, 0, 3, 207, 0, 3
460 [131] 207, 0, 3, 207, 0, 3, 199, 0, 3, 252, 248, 3, 254, 252
470 [143]  CIGARETTES
480 [131] 103, 0, 1, 224, 0, 7, 32, 0, 29, 32, 0, 21, 32, 15, 245, 32, 15, 255
490 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255
500 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255
510 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 0, 0, 0
520 [143]  X-RAY
530 [131] 255, 127, 255, 254, 252, 56, 127, 240, 16, 31, 224, 16, 15, 224, 16, 15
540 [131] 224, 56, 15, 224, 56, 15, 224, 56, 15, 240, 124, 31, 248, 124, 63, 252
550 [131] 254, 127, 255, 255, 255, 192, 0, 3, 192, 0, 3, 202, 0, 3, 202, 114, 83
560 [131] 202, 87, 83, 196, 101, 35, 202, 87, 35, 202, 85, 35, 202, 0, 3, 160
570 [143]  JOE A-PUFFING
580 [131] 0, 0, 0, 0, 0, 6, 0, 0, 25, 0, 0, 18, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0
590 [131] 0, 0, 0, 0, 0, 0, 0, 10, 0, 0, 18, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0
600 [131] 96, 0, 0, 64, 0, 0, 0, 0, 0, 0, 28, 0, 0, 12, 0, 0, 4, 0, 0
610 [143] INTERRUPT DATA
620 [131] 120, 169, 13, 141, 20, 3, 169, 192, 141, 21, 3, 88, 96, 238
630 [131] 6, 208, 198, 253, 165, 253, 208, 7, 206, 1, 208, 165, 254, 133
640 [131] 253, 198, 251, 165, 251, 208, 26, 24, 173, 10, 208, 74, 176, 9
650 [131] 238, 10, 208, 206, 11, 208, 76, 57, 192, 206, 10, 208, 238, 11
660 [131] 208, 165, 252, 133, 251, 76, 49, 234
670 [151]V[170]1,145:[151]O,SP:[141]680:[151]O,SP[171]1:[141]680:[142]
680 [129]K[178]1[164]500:[130]:[142]