home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Spring
/
rerun-1985-spring.d64
/
smoking
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
69 lines
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]