home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_B.d64 / bartzitterschoko (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  94 lines
  1. 1 print"[147][155]":poke53281,0:poke53280,0:z$=chr$(34)
  2. 2 print"meine aale und holzfaeller!":gosub190
  3. 3 print"sie erleben nun die unglaubliche":gosub190
  4. 4 print"nebenwirkung von milkas...":gosub190
  5. 5 print"[176][201][213][201][176][201][178] [195][174][215][178] [178][176][176][201][213][201][213][201][194][194][213][201][194] [213][201][194][213][201][176][201][176]"
  6. 6 print"[171][203][171][179][171][203][194] [213][203][194][194] [194][171][171][203][202][201][194] [171][179][194][194][171][203][194][194][194][171][179][194][194][171]"
  7. 7 print"[173][203][194][194][194][205][194] [173][195][194][194] [194][173][194][205][202][203][202][203][194][194][202][203][194][205][202][203][173][194][194][173][203][173]":gosub190
  8. 8 print"[147]                 [201][201][201][201][213][213][213][213]   space fuer"
  9. 9 print"                [213][177][177][177][177][177][177][177][177][201]  jtr's"
  10. 10 print"               [213][179] [195][195][201][213][195][195] [171][201] version"
  11. 11 print"               [202][179]  [215]  [215]  [171][203]"
  12. 12 print"                [194]   [194][194]   [194]"
  13. 13 print"                [194]  [213][194][194][201]  [194]"
  14. 14 print"                [202][179] [202][201][213][203] [171][203]"
  15. 15 print"                 [194][171][201][202][203][213][179][194]"
  16. 16 print"                 [194] [202][195][195][203] [194]"
  17. 17 print"                 [202][178][178][178][178][178][178][203]"
  18. 18 print"                  [203][194][194][194][194][203]"
  19. 19 print"                   [203][194][194][203]"
  20. 20 print"                    [203][203]"
  21. 21 forx=1to100:nextx
  22. 22 print"[145][145][145]                  [202][194][194][194][194][202]"
  23. 23 print"                   [202][194][194][202]"
  24. 24 print"                    [202][202]"
  25. 25 forx=1to100:nextx
  26. 26 print"[145][145][145]                  [203][194][194][194][194][203]"
  27. 27 print"                   [203][194][194][203]"
  28. 28 print"                    [203][203]"
  29. 29 geta$:ifa$<>""then300
  30. 30 goto21
  31. 190 forx=1to2000:next
  32. 191 return
  33. 300 poke53280,6:poke53281,6:print"[147][142]und nun das schlechte beispiel...":gosub350
  34. 301 a$="  [202][202][202][202][202] ":b$="  [194][194][194][194][194] ":c$="  [203][203][203][203][203]"
  35. 302 print""," [213][178][178][178][178][178][201]"
  36. 303 print,"[213][179]     [171][201]"
  37. 304 print,"[202][179] [215] [215] [171][203]"
  38. 305 print," [194]  [194]  [194]"
  39. 306 print," [194][202][195][195][195][203][194]":print," [202][178][178][178][178][178][203]":print,b$
  40. 307 print"bartzitterschokolade![145][145][145][145]"
  41. 308 forx=0to5:print"[145]",c$:gosub350:print"[145]",a$:gosub350:print"[145]",b$:gosub350
  42. 309 next:print"tschuess!":forx=1to1500:next:goto2000
  43. 350 fors=0to512:nexts:return
  44. 400 rem * b-soft 08.04.1999 *
  45. 2000 poke53280,14:print"[147][154]auch the real hat ihre interpretation"
  46. 2010 forx=1to2000:next
  47. 2020 fors=1to8:print"[147]"
  48. 2030 print" [213][195][195][195][195][195][201][160]"
  49. 2040 print" [194][160][215][160][215][160][194][160]"
  50. 2050 print"[160][194][160][160][193][160][160][194][160]"
  51. 2060 print"[160][194][160][202][195][203][160][194][160]"
  52. 2070 print" [202][178][178][178][178][178][203] "
  53. 2080 forx=1to500:next
  54. 2090 print""
  55. 2100 print" [213][195][195][195][195][195][201] "
  56. 2110 print" [194] [211] [211] [194] "
  57. 2120 print" [194]  [214]  [194] "
  58. 2130 print" [194] [213][195][201][160][194] "
  59. 2140 print" [202][195][195][195][195][195][203] "
  60. 2150 forx=1to500:next
  61. 2160 print""
  62. 2170 nexts
  63. 5000 print"[147]daniels version"
  64. 5005 forx=1to1500:next
  65. 5010 fors=1to8:print"[147]"
  66. 5015 print" [213][196][196][201] "
  67. 5020 print" [194]  [194] "
  68. 5025 print" [194][215][215][194] "
  69. 5030 print" [202][201][213][203] "
  70. 5035 print"  [203][202]  "
  71. 5040 print"      "
  72. 5045 forx=1to500:next
  73. 5050 print""
  74. 5055 print" [213][212][212][201] "
  75. 5060 print" [199]  [200] "
  76. 5065 print" [199][209][209][200] "
  77. 5070 print" [202][201][213][203] "
  78. 5075 print"  [202][203]  "
  79. 5080 forx=1to500:next
  80. 5085 print"":nexts
  81. 5090 print"so, nu aber genug gebartzittert. wie in-";
  82. 5091 print"terpretiert ihr eigentlich unsere "z$"bart-";
  83. 5092 print"zitterschokolade"z$"? legt euch ins zeug,"
  84. 5093 print"programmiert eure version (basic, ma-"
  85. 5094 print"schinensprache oder egal was) und kas-"
  86. 5095 print"siert einen tollen ueberraschungspreis!"
  87. 5096 print"schickt eure vorschlaege an:"
  88. 5100 print,"b-soft"
  89. 5101 print,"mike witschi & maik holstein"
  90. 5102 print,"henningstr. 13"
  91. 5103 print,"21337 lueneburg"
  92. 5104 print"wenn der schrank umfaellt"
  93. 5105 print"sind wir alle, alle tot!":new
  94.