home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Spring / rerun-1985-spring.d64 / smoking (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  69 lines
  1. 10 poke53281,1:poke53280,1: n=1:sc=1670:cc=55942:poke252,25:poke254,5
  2. 20 print"[147]caution:  smoking is hazardous[154]
  3. 30 [129]t[178]12288[164]12670:[135]a:[151]t,a:[130]
  4. 40 [129]t[178]49152[164]49215:[135]a:[151]t,a:[130]
  5. 50 v[178]53248:[151]v[170]27,255:[151]v[170]29,25:[151]v[170]23,24:o[178]v[170]21
  6. 60 [129]t[178]0[164]7:[151]v[170]t[170]39,14:[151]t[170]2040,t[170]192:[130]
  7. 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
  8. 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
  9. 90 [151]sc,160:[151]cc,1
  10. 100 [153]"meet joe.";:[151]o,6:[129]t[178]1[164]2500:[130]:[153]"  he smokes.
  11. 110 pokesc,32:sp=39:sys49152:fort=1to2500:next
  12. 120 gosub670
  13. 130 z=z+1:ifz=3thensp=47
  14. 140 ifz=11then160
  15. 150 goto120
  16. 160 print"[145]joe's breath gets shorter":gosub670:poke252,8:poke254,2
  17. 170 fori=0to6:gosub670:next
  18. 180 print"[145]          joe's lungs grow blacker . . .":poke252,5:poke254,1
  19. 190 pokeo,51:pokev+1,145:fort=29to0step-1:poket+12547,255
  20. 200 fori=1tot*25:next:pokev+1,145:next
  21. 210 print"[147][145]finally, joe takes his last . . .":sp=18:gosub680:poke254,2
  22. 220 fort=0to22:pokev+3,162+t
  23. 230 fori=1to100:next:next
  24. 240 pokev+1,120:print"[147]
  25. 250 [151]v[170]23,17:[151]o,1:[151]254,255:[141]680
  26. 260 [129]t[178]12288[164]12350:rn[178][181]([187](0)[172]256):[151]t,[194](t)[175]rn
  27. 270 [130]:c[178]c[170]1
  28. 280 [139]c[179]6[167]260
  29. 290 [153],"    don't smoke !"
  30. 300 [151]v[170]2,100:[151]v[170]3,115:[151]o,2
  31. 310 [137]310
  32. 320 [143] "puff"
  33. 330 [131] 3, 57, 224, 28, 198, 24, 32, 0, 6, 78, 7, 1, 73, 20, 245, 73, 84, 133
  34. 340 [131] 142, 86, 201, 136, 84, 137, 136, 84, 129, 72, 96, 145, 64, 0, 6, 60
  35. 350 [131] 24, 56, 2, 39, 192, 3, 192, 0, 0, 6, 0, 0, 9, 0, 0, 6, 0, 0, 0, 0, 0
  36. 360 [131] 48, 0, 0, 72, 0, 0, 48, 0
  37. 370 [143]  joe's head
  38. 380 [131] 103, 15, 224, 0, 60, 248, 0, 113, 255, 56, 255, 255, 252, 234, 255
  39. 390 [131] 252, 191, 160, 32, 255, 134, 112, 255, 200, 16, 243, 195, 56, 225, 192
  40. 400 [131] 16, 225, 128, 8, 225, 128, 132, 97, 128, 66, 124, 0, 62, 112, 0, 8
  41. 410 [131] 232, 0, 248, 8, 128, 24, 4, 96, 44, 2, 24, 198, 1, 7, 3, 0, 129, 0
  42. 420 [143]  joe's body
  43. 430 [131] 103, 3, 255, 128, 4, 0, 32, 8, 32, 16, 16, 32, 16, 31, 192, 16, 16
  44. 440 [131] 64, 112, 16, 64, 144, 16, 128, 144, 21, 0, 144, 17, 0, 80, 17, 0, 80
  45. 450 [131] 17, 255, 160, 8, 247, 160, 7, 247, 192, 3, 239, 0, 3, 207, 0, 3
  46. 460 [131] 207, 0, 3, 207, 0, 3, 199, 0, 3, 252, 248, 3, 254, 252
  47. 470 [143]  cigarettes
  48. 480 [131] 103, 0, 1, 224, 0, 7, 32, 0, 29, 32, 0, 21, 32, 15, 245, 32, 15, 255
  49. 490 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255
  50. 500 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255
  51. 510 [131] 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 15, 255, 224, 0, 0, 0
  52. 520 [143]  x-ray
  53. 530 [131] 255, 127, 255, 254, 252, 56, 127, 240, 16, 31, 224, 16, 15, 224, 16, 15
  54. 540 [131] 224, 56, 15, 224, 56, 15, 224, 56, 15, 240, 124, 31, 248, 124, 63, 252
  55. 550 [131] 254, 127, 255, 255, 255, 192, 0, 3, 192, 0, 3, 202, 0, 3, 202, 114, 83
  56. 560 [131] 202, 87, 83, 196, 101, 35, 202, 87, 35, 202, 85, 35, 202, 0, 3, 160
  57. 570 [143]  joe a-puffing
  58. 580 [131] 0, 0, 0, 0, 0, 6, 0, 0, 25, 0, 0, 18, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0
  59. 590 [131] 0, 0, 0, 0, 0, 0, 0, 10, 0, 0, 18, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0
  60. 600 [131] 96, 0, 0, 64, 0, 0, 0, 0, 0, 0, 28, 0, 0, 12, 0, 0, 4, 0, 0
  61. 610 [143] interrupt data
  62. 620 [131] 120, 169, 13, 141, 20, 3, 169, 192, 141, 21, 3, 88, 96, 238
  63. 630 [131] 6, 208, 198, 253, 165, 253, 208, 7, 206, 1, 208, 165, 254, 133
  64. 640 [131] 253, 198, 251, 165, 251, 208, 26, 24, 173, 10, 208, 74, 176, 9
  65. 650 [131] 238, 10, 208, 206, 11, 208, 76, 57, 192, 206, 10, 208, 238, 11
  66. 660 [131] 208, 165, 252, 133, 251, 76, 49, 234
  67. 670 [151]v[170]1,145:[151]o,sp:[141]680:[151]o,sp[171]1:[141]680:[142]
  68. 680 [129]k[178]1[164]500:[130]:[142]
  69.