home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SMOKING-KILLS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  85 lines
  1. 0 REM        AUTHOR UNKNOWN...
  2. 5 POKE53280,15:POKE53281,15:PRINT"[147][142][144]";
  3. 10 PRINT"  [146][183][208][188]  [146][208][208]   [146][183][208]   [146] [167]   [146][188]  [146][183][208]   [146][183][208]
  4. 12 [153]"(null)  (null)WAIT   WAITTHENTHEN   WAIT THEN   WAITAND(null)   WAIT   WAIT THEN   WAIT AND
  5. 14 PRINT"[204][175]  [146]   [146][167][167]   [146][175][186]   [146] [205]   [146]   [146] [170]   [146][175][186][172][172][172][172][172]
  6. 20 [153][163]13)"STEP WAITSTEP":[153][163]12)"STEP WAITSTEP"
  7. 22 [153]"      WAIT     STEP WAITSTEP
  8. 24 PRINT"      [146]    [169] [146][169]
  9. 26 [153]"      WAIT   STEP WAITSTEP
  10. 28 PRINT"      [146]  [169] [146][169]
  11. 30 [153]"         WAITSTEP
  12. 32 PRINT"      [146] [223] [223][146]    [146]  [146]    [146]    [175][175][146]
  13. 34 [153]"      WAIT  (null) (null)WAIT   WAIT  WAIT    WAIT    TAB(TAB(WAIT
  14. 36 PRINT"      [146]   [223] [223][146]  [146]  [183][183][146]  [183][183][146] [183][183] [146][172][172][172][172][172][172][172][172][172][172][172]
  15. 38 [153]"          (null) (null)WAIT
  16. 40 PRINT"[151]       DON'T READ ANY FURTHER IF
  17. 42 [153]"           YOU WANT TO DIE!!!
  18. 45 FORD=1TO5E3:NEXT
  19. 100 PRINT"[147][200][197][210][197] [193][210][197] [211][207][205][197] [212][200][201][206][199][211] [212][207] [212][200][201][206][203] [193][194][207][213][212]     [215][200][197][206] [217][207][213] [211][205][207][203][197] [195][201][199][193][210][197][212][212][197][211]:
  20. 102 [153]"CONT        (null)RESS <(null)(null)ATNLENVAL> TO PAGE.
  21. 105 PRINT"[193]. [151][197]VERY TIME YOU SMOKE ONE CIGARETTE,
  22. 110 [153]"YOU ADD TINY AMOUNTS OF THE FOLLOWING
  23. 115 PRINT"POISONS TO YOUR BLOODSTREAM:
  24. 120 [153]"1. (null)ICOTINE-POKE-ONE OF THE DEADLIEST
  25. 125 PRINT"POISONS ON [197]ARTH; ONE DROP OF PURE
  26. 130 [153]"NICOTINE PLACED DIRECTLY ON YOUR TONGUE";
  27. 135 [153]" WILL KILL YOU INSTANTLY.
  28. 140 PRINT"2. [198]ORMALDEHYDE-[151]-POISON USED AS A
  29. 145 [153]"DISINFECTANT AND FOR EMBALMING CORPSES
  30. 150 PRINT"IN FUNERAL HOMES.
  31. 155 [153]"3. LEFT$YDROGEN CYANIDE-POKE-POISON USED IN GAS CHAMBERS FOR EXECUTIONS.
  32. 160 PRINT"4. [193]RSENIC-[151]-DEADLY POISON USED":WAIT197,7
  33. 165 PRINT"[147]COMMERCIALLY AS A RAT KILLER.
  34. 170 [153]"5. LENARBON MONOXIDE-POKE-POISON GAS FOUND IN THE EXHAUST OF AUTOMOBILES.
  35. 175 PRINT"6. [200]YDROGEN SULPHIDE-[151]-POISON GAS THAT   SMELLS LIKE ROTTEN EGGS.
  36. 180 [153]"7. LENARBOLIC ACID-POKE-POISON USED AS ACLOSE     DISINFECTANT.
  37. 185 PRINT"8. [205]ETHANOL-[151]-POISON WHICH CAUSES
  38. 190 [153]"BLINDNESS AND CAN PUT YOU INTO A COMA.
  39. 195 PRINT"9. [193]MMONIA-[151]-A FOUL SMELLING AND VERY    POTENT DETERGENT.
  40. 200 [153]"10. (null)AR, CADMIUM, AND NITROGEN DIOXIDE-POKE
  41. 205 PRINT"-THINGS WHICH DAMAGE THE LINING OF YOUR
  42. 210 [153]"LUNGS, MAKING IT HARDER FOR YOU TO      BREATHE AS TIME PASSES.
  43. 211 WAIT197,7
  44. 215 PRINT"[147][194]. [151][193] PERSON WHO SMOKES INCREASES HIS/HERCHANCES OF:
  45. 220 [153]"1. POKECHR$ETTING LUNG CANCER BY 500%.
  46. 225 PRINT"2. [151][199]ETTING CANCER OF THE LIPS, MOUTH,   TONGUE, AND THROAT BY 600%.
  47. 230 [153]"3. POKESTR$EVELOPING HEART DISEASE BY 200%.
  48. 235 PRINT"4. [151][199]ETTING EMPHYSEMA BY 300%
  49. 240 [153]"5. POKELEFT$AVING MORE ILLNESS DUE TO COLDS,
  50. 245 PRINT"SINUS TROUBLE, ULCERS, GUM DISEASE,
  51. 250 [153]"TOOTH DECAY, BAD BREATH, AND SMOKER'S   COUGH.
  52. 255 PRINT"([212]HERE IS AN OLD SAYING THAT 'KISSING A
  53. 260 [153]"PERSON WHO SMOKES IS LIKE LICKING A
  54. 265 PRINT"DIRTY ASH TRAY.')":WAIT197,7
  55. 270 PRINT"[147][195]. [151][207]THER FACTS TO CONSIDER:
  56. 275 [153]"1. POKEVALACH TIME YOU SMOKE, YOU REDUCE
  57. 280 PRINT"OXYGEN SUPPLY TO YOUR BRAIN.  [217]OU ALSO
  58. 285 [153]"DAMAGE YOUR HEART AND BLOOD VESSELS.
  59. 290 PRINT"2. [151][194]Y SMOKING IN THE PRESENCE OF OTHER
  60. 295 [153]"PEOPLE, POKEYOU ENDANGER THEIR LIVES AS
  61. 300 PRINT"MUCH AS YOU ENDANGER YOUR OWN LIFE
  62. 305 [153]"BECAUSE THEY BREATHE THE DEADLY EXHAUST COMING FROM YOUR LUNGS.
  63. 310 PRINT"3. [151][207]VER-ALL, THE DEATH RATE FOR SMOKERS
  64. 315 [153]"IS 75% POKEHIGHER THAN THE RATE FOR
  65. 320 PRINT"NON-SMOKERS.
  66. 325 [153]"4. POKEVALACH YEAR, 350,000 POKESMOKERS DIE AS
  67. 330 PRINT"A DIRECT RESULT OF THE SMOKING WHICH
  68. 335 [153]"THEY HAVE DONE FOR A NUMBER OF YEARS.":[146]197,7
  69. 340 [153]"LOAD5. POKE(null)MOKING IS ESPECIALLY DANGEROUS TO
  70. 345 PRINT"FEMALES WHO TAKE BIRTH CONTROL PILLS
  71. 350 [153]"BECAUSE STUDIES HAVE PROVEN THAT THE
  72. 355 PRINT"COMBINATION OF THE TWO FACTORS
  73. 360 [153]"(CIGARETTES AND BIRTH CONTROL PILLS)
  74. 365 PRINT"CAUSES ALL OF THE PROBLEMS LISTED TO
  75. 370 [153]"DEVELOP EVEN FASTER THAN THEY
  76. 375 PRINT"OTHERWISE WOULD.
  77. 400 [153]"(null)OU'VE READ ABOUT ALL THE TROUBLES
  78. 405 PRINT"SMOKING CAUSES.....
  79. 410 [153]"(null)OW, IF YOU SMOKE, YOU ARE A STUPID,
  80. 415 PRINT"WEAK-WILLED JERK AND YOU DESERVE
  81. 420 [153]"EVERYTHING YOU GET!
  82. 425 PRINT"[151][201] FEEL SORRY FOR YOU.......
  83. 430 [153]"(null)OU ARE
  84. 440 PRINT"[209]UIT [206][207][215]!![145][145][145][145]"
  85.