home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_B.d64 / schleichi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  239 lines
  1. 10 print"[147]"
  2. 20 poke 53281,1:poke53280,4
  3. 30 print" "
  4. 40 print
  5. 50 print"  [209][209]     [209]   [209][209][209][209][209][209]       "
  6. 60 print"  [209] [209]        [209]"
  7. 70 print"  [209]  [209]   [209]   [209]"
  8. 80 print"  [209]  [209]   [209]   [209][209][209]"
  9. 90 print"  [209] [209]    [209]   [209]"
  10. 91 print"  [209][209]     [209]   [209]"
  11. 92 print"             [209][209][209][209][209][209]"
  12. 100 print" "
  13. 110 print"  aktuelle"
  14. 120 print
  15. 130 print"         schleichwerbung"
  16. 140 print
  17. 150 print
  18. 160 print
  19. 170 print
  20. 180 print
  21. 190 input" wollen sie schleichwerbungen sehen ";qw$
  22. 200 if qw$="ja"then goto 220
  23. 210 if qw$="nein" then end
  24. 220 print"[147]"
  25. 230 print"     "
  26. 240 print
  27. 250 print"       [194][194][194][194]"
  28. 260 print"       [194][194][194][194]"
  29. 270 print"      [213][213][201][213][201][201] saufen"
  30. 280 print"      [202][202][203][202][203][203]    "
  31. 290 print"      [213][213]  [201][201]     sie"
  32. 300 print"      [194][194]  [194][194]"
  33. 310 print"      [202][202][178][178][203][203]       flens!"
  34. 320 print"       [213][179][171][201]"
  35. 330 print"       [194][202][203][194]"
  36. 340 print"       [202][195][195][203]"
  37. 350 print"           "
  38. 360 print"                     [162][162][162]"
  39. 370 print"  dr.werner w. stell-[194] [194]"
  40. 380 print"                     [194] [194]"
  41. 390 print"  te fest :saufen  [213][195][203] [202][195][201]"
  42. 400 print"                   [194]     [194]"
  43. 410 print"  ist gesund!!!!!  [194]flens[194]"
  44. 420 print"                   [194]     [194]"
  45. 430 print"   moin!!          [202][195][195][195][195][195][203]"
  46. 440 for x=1to9000:next x
  47. 450 print"[147]"
  48. 460 print"[147]"
  49. 470 print"  "
  50. 480 print"  nix fuea erwachsene!!!  "
  51. 490 print"       [209][209][209]                "
  52. 500 print" [215]  [215] [209]. .[209] [215]  [215] [215]   [215]    "
  53. 510 print" [215]  [215] [209] . [209] [215]  [215] [215][215] [215][215]    "
  54. 520 print" [215][215][215][215] [209] [215] [209] [215][215][215][215] [215] [215] [215]    "
  55. 530 print" [215]  [215] [215][202][195][203]  [215]  [215] [215]   [215]    "
  56. 540 print" [215]  [215] [213][203] [202][201] [215]  [215] [215]   [215]    "
  57. 550 print"      [194] [194] [194]               "
  58. 560 print"      [202][178][177][178][203] kommen sie in "
  59. 570 print"       [194].[194]                "
  60. 580 print"       [194] [194]  den neuen     "
  61. 590 print"       [194][211][194]                "
  62. 600 print"       [194][194][194]  film hm.hm!!! "
  63. 610 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  64. 620 print" der neuste film von "
  65. 630 print"[160]"
  66. 640 print"      pornojoe[211][211][211]"
  67. 650 for g=1to9000:next g
  68. 660 print"[147]"
  69. 670 print
  70. 680 print
  71. 690 print
  72. 700 print"     [207][183][183][183][183]   [207][183][183][183][183][183]   [207][183][183][183][183][183]"
  73. 710 print"     [180]       [180]        [180]"
  74. 720 print"     [204][175]      [180]        [180]"
  75. 730 print"     [180]       [180]        [180]"
  76. 740 print"     [180]       [180]        [180]"
  77. 750 print"     [204][175][175][175][175] . [204][175][175][175][175][175] . [204][175][175][175][175][175] ."
  78. 760 print" "
  79. 770 print
  80. 780 print"   und sie werden sich nicht mehr "
  81. 790 print"   "
  82. 800 print"   beruhigen koennen!!!!!!!!!!!!!"
  83. 810 print"  "
  84. 820 print" "
  85. 830 print"   (stoehn.keuch.schnauf.aechs.o)"
  86. 840 for q=1to9000:next q
  87. 850 print"[147]"
  88. 860 print
  89. 870 print
  90. 880 print
  91. 890 print"   [213][195][195][201][213][195][195][201] [213][195][195][201]  "
  92. 900 print"   [194][213][201][194][194][213][201][194] [194][215] [194]  "
  93. 910 print"   [194][194][194][202][203][194][194][194] [171][195][195][203]  "
  94. 920 print"   [194][194][202][195][195][203][194][194] [171][195][195][201]  "
  95. 930 print"   [194][194]    [194][194] [194][213][201][194][213][201]"
  96. 940 print"   [202][203]    [202][203] [202][203][202][203][202][203] joker"
  97. 950 print" "
  98. 960 print"     roebs/aechs/wuerg/keuch
  99. 970 [153]
  100. 980 [153]
  101. 990 [153]
  102. 1000 [153]
  103. 1100 [129]d[178]1[164]9000:[130]
  104. 1110 [153]"load"
  105. 1120 [151] 53280,89
  106. 1130 [151] 53281,9
  107. 1140 [153]" "
  108. 1150 [153]
  109. 1160 [153]
  110. 1170 [153]"     orlenlenlenlenlenlenlenlenlen^"
  111. 1180 [153]"     peek         peek"
  112. 1190 [153]"     peek         peek"
  113. 1200 [153]"     peek         peek"
  114. 1210 [153]"     peek         peek der neuste"
  115. 1220 [153]"     peek         peek"
  116. 1230 [153]"     peekbubufirmapeek von bubufi"
  117. 1240 [153]"     mid$lenlenlen=len=lenlenlen(NULL)"
  118. 1250 [153]" so ein  peek peek     rma (mord)"
  119. 1260 [153]"         peek peek"
  120. 1270 [153]" scheiss peek peek"
  121. 1280 [153]"         mid$len(NULL)"
  122. 1290 [153]
  123. 1300 [153]"     kaufen sie diesen schlaeger."
  124. 1310 [153]
  125. 1320 [153]"     denn wenn sie am verlieren"
  126. 1330 [153]"     "
  127. 1340 [153]"     sind hauen sie ihren gaegner"
  128. 1350 [153]"     "
  129. 1360 [153]"     mit den schlaeger ins genick"
  130. 1370 [129] k[178]1[164]12000:[130] k
  131. 1380 [153]"load"
  132. 1390 [151] 53280,45
  133. 1400 [151] 53281,13
  134. 1410 [153]
  135. 1420 [153]
  136. 1430 [153]
  137. 1440 [153]"                          "
  138. 1450 [153]"                        "
  139. 1460 [153]"       kommen sie nach   "
  140. 1470 [153]"                          "
  141. 1480 [153]"       roebs-             "
  142. 1490 [153]" "
  143. 1500 [153]"       stedt!"
  144. 1510 [153]" "
  145. 1520 [153]"    "
  146. 1530 [153]"    denn sie brauchen mal wieder"
  147. 1540 [153]" "
  148. 1550 [153]"    mundgeruch!!!!!!!!!!!!!!!!!!"
  149. 1560 [153]"  "
  150. 1570 [153]"  (NULL)=======right$ "
  151. 1580 [153]"  peekpeekpeekpeekpeekpeekpeekpeekpeek  das ist der "
  152. 1590 [153]"  peek       peek "
  153. 1600 [153]"  peek (NULL)right$ (NULL)(NULL) peek  buergermei-"
  154. 1610 [153]"  peek  peek peek  peek"
  155. 1620 [153]"  peek  mid$len(NULL)  peek  ster marcel"
  156. 1630 [153]"  peek mid$=len=(NULL) peek"
  157. 1640 [153]"  mid$lenright$mid$len(NULL)(NULL)len(NULL)    (roebs) "
  158. 1650 [153]"    mid$lenlenlen(NULL)"
  159. 1660 [153]"                   "
  160. 1670 [153]" "
  161. 1680 [153]"    denn sie brauchen mal wieder"
  162. 1690 [153]"    mundgeruch":[129] q[178]1[164]9000:[130] q
  163. 1700 [153]"load"
  164. 1710 [153]" "
  165. 1720 [153]
  166. 1730 [153]
  167. 1740 [153]"      =>>>>>="
  168. 1750 [153]"      <<<----"
  169. 1760 [153]"      <<<<<<-"
  170. 1770 [153]"      <<-<-<-"
  171. 1780 [153]"      <<<<-<-"
  172. 1790 [153]"   orlenlen>>>>>>>lenlenlen^"
  173. 1800 [153]"   -lenlenlenlenlenlenlenlenlenlenlenlen<"
  174. 1810 [153]"   peek            peek"
  175. 1820 [153]"   peek            peek"
  176. 1840 [153]"   /len=lenlenlenlenlenlenlenlen=lenexp"
  177. 1850 [153]"     /lenlenlenlenlenlenlenlenexp "
  178. 1860 [153]" "
  179. 1870 [153]"   schluss jetzt mit eibruechen!!"
  180. 1880 [153]"  "
  181. 1890 [153]"   der neue kaktus von stachel&co"
  182. 1900 [153]" "
  183. 1910 [153]"   haelt jeden verbrecher auf in-"
  184. 1920 [153]"   dem er ihn in seinen allerwer-"
  185. 1930 [153]
  186. 1940 [153]"   testen sticht!!!!!!!!!!!!!!!!!"
  187. 1950 [129] h[178]1[164] 11000:[130] h
  188. 1960 [153]"load"
  189. 1970 [153]"  "
  190. 1980 [153]
  191. 1990 [153]
  192. 2000 [153]"     andandandandandandandandandandand"
  193. 2010 [153]"    (NULL)          (NULL)sgn"
  194. 2020 [153]"   +usrusrusrusrusrusrusrusrusrusr(NULL)right$sgn(NULL)right$ (NULL)right$"
  195. 2030 [153]"   + giftilett+(NULL)sgnmid$(NULL) mid$(NULL)"
  196. 2040 [153]"   +usrusrusrusrusr(NULL)(NULL)(NULL)(NULL)(NULL)+right$sgn (NULL)right$(NULL)right$"
  197. 2050 [153]"   +etzie+(NULL)(NULL)(NULL)(NULL)+(NULL)sgn mid$(NULL)mid$(NULL)"
  198. 2060 [153]"   +andandandandandsqrandandandandsqr(NULL)
  199. 2070 print" "
  200. 2080 print"    giftilett's
  201. 2090 [153]
  202. 2100 [153]
  203. 2110 [153]"    denn wollen sie sich,"
  204. 2120 [153]
  205. 2130 [153]"    den tag versauen,"
  206. 2140 [153]
  207. 2150 [153]"    muessen sie giftiletts"
  208. 2160 [153]
  209. 2170 [153]"    klauen!!!!!!!!!!!!!!!!"
  210. 2180 [129] f[178]1[164]11000:[130] f
  211. 2190 [153]"load"
  212. 2200 [153]"      "
  213. 2210 [153]"                                "
  214. 2220 [153]
  215. 2230 [153]
  216. 2240 [153]"(NULL)right$ (NULL)right$  (NULL)right$ (NULL)lenlenright$ (NULL)lenlenright$ (NULL)lenlenright$(NULL)lenlenright$(NULL)lenlenright$"
  217. 2250 [153]"mid$(NULL)closepeekpeek  mid$(NULL) peek(NULL)len(NULL) peek(NULL)right$peek mid$^or(NULL)peek(NULL)right$peekpeek(NULL)right$peek"
  218. 2270 [153]"(NULL)right$ peekpeek  (NULL)right$ peekpeek(NULL)right$ peekmid$(NULL)peek  peekpeek peekpeekpeekpeekpeekmid$(NULL)mid$right$"
  219. 2280 [153]"peekpeek peekmid$lenright$peekpeekclosepeekmid$(NULL)peek peek(NULL)right$peek  peekpeek peekmid$(NULL)peekpeek(NULL)lenright$peek "
  220. 2290 [153]"mid$(NULL) mid$lenlen(NULL)mid$(NULL) mid$lenlen(NULL) mid$(NULL)mid$(NULL)close mid$(NULL) mid$lenlen(NULL)mid$(NULL) mid$(NULL)"
  221. 2300 [153]
  222. 2310 [153]
  223. 2320 [153]"             present's"
  224. 2330 [153]" "
  225. 2340 [153]" "
  226. 2350 [153]"      schleichi    "
  227. 2360 [153]"      cc          by m.j. and"
  228. 2370 [153]"      h h"
  229. 2380 [153]"      l  l        e.c.c.
  230. 2390 print"      e   e"
  231. 2400 print"      i    i"
  232. 2410 print"      c     c   (together=iligator)"
  233. 2420 print"      h      h"
  234. 2430 print"      i       i"
  235. 2440 poke 53281,9:poke53280,0:poke53280,1:poke53280,2:poke53280,3
  236. 2450 poke53280,4:poke53280,5:poke53280,6:poke53280,7:poke53280,8
  237. 2460 poke53280,9:poke53280,10:poke53280,11:poke53280,12
  238. 2470 goto 2440
  239.