home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -joker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.2 KB  |  73 lines
  1. 5 poke 53281,1
  2. 6 poke 53280,100
  3. 7 print"[147]"
  4. 8 print"[154]"
  5. 10 print"this program was made as a joke for"
  6. 12 print"my sister in 1986 and was slightly"
  7. 14 print"modified to be included with my other"
  8. 16 print"programs."
  9. 18 print
  10. 20 print"press return to see demo"
  11. 22 inputn$
  12. 25 poke 53281,1
  13. 28 poke 53280,100
  14. 30 print"[147]"
  15. 35 print""
  16. 40 print"crick"
  17. 50 fora=1to1000:nexta
  18. 60 print"crack"
  19. 65 fora=1to1000:nexta
  20. 70 print"boom"
  21. 80 fora=1to1000:nexta
  22. 90 print"rrrrrrrrr"
  23. 95 fora=1to1000:nexta
  24. 100 print"blastoom"
  25. 110 fora=1to1000:nexta
  26. 120 print"ssssccc";
  27. 130 fora=1to1000:nexta
  28. 140 print"[157]rraaaaaaaaaaaaaaaaaaaaaaaaaaaak"
  29. 150 fora=1to2000:nexta
  30. 160 print"boom booom boooooom booooooooooooom"
  31. 170 fora=1to2000:nexta
  32. 180 print"[147]"
  33. 185 print"[150]"
  34. 190 print
  35. 200 print
  36. 210 print
  37. 220 print"              [213][201]          [213][201]"
  38. 230 print"              [202][203]          [202][203]"
  39. 240 forb=1to6
  40. 250 print
  41. 260 nextb
  42. 270 print"           [194]                  [194]"
  43. 280 print"           [202][195][195][195][195][195][195][195][178][178][178][195][195][195][195][195][195][195][195][203]"
  44. 290 print"                   [194][194][194]"
  45. 300 print"                   [202][177][203]"
  46. 310 forb=1to3500:nextb
  47. 320 print"[147]"
  48. 330 print"[159]"
  49. 340 print"ha ha ha ha ha ha ha ha ha ha ha ha ha"
  50. 350 forb=1to2500:nextb
  51. 360 poke53281,0
  52. 500 print"[147]"
  53. 505 print
  54. 510 print
  55. 515 fora=1to500:nexta
  56. 520 print"  [159][213][195][195][195][215][195][215][195][195][195][201]"
  57. 530 print"  [202][195][195][195][195][195][195][195][146][195][195][203]"
  58. 540 fora=1to3500:nexta
  59. 550 print"[147]"
  60. 560 print
  61. 570 print"   [150][213][195][215][201][195][213][201][195][201]"
  62. 580 print"   [194] [202][203] [202][215] [194]"
  63. 590 print"   [194] [213][201][213][201][213][150] [194]"
  64. 600 print"   [202][195][195][202][203][202][203][195][203]"
  65. 610 fora=1to3500:nexta
  66. 620 print"[147]"
  67. 625 print
  68. 660 fora=1to2500:nexta
  69. 670 poke53281,70
  70. 680 poke53280,30
  71. 690 print"[147]"
  72. 700 print"[154]"
  73.