home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / SEX_GIRL.PRG (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-05-15  |  11.2 KB  |  386 lines
  1. 12 POKE53280,1:GOSUB1000
  2. 20 POKE53280,1:GOSUB1000
  3. 30 PRINT"“–";
  4. 40 PRINT"©© ©  ©   ’¤¯¹¢·  ß";
  5. 50 PRINT"©    ©          ·’¹¯¹¢·¸’¢¯©     ";
  6. 60 PRINT"¸     ÀƯ ÃÆÀÅ        ß’¢·      ";
  7. 70 PRINT"   ÆÀƯ   £¯Æ    Î·À¯  ¸’¯¤¯¢¸·         ";
  8. 80 PRINT"         ÒįÎÎΥΠ   ·ÅÄÅ·              ";
  9. 90 PRINT"  ÕÉ    ÊÅ·ÎÎÎÎΠ    ×        ¢’¸·¹      ";
  10. 100 PRINT"  ÊË      ÎÎΪΠÅÄ           ’¾ÕƯ·¢    ";
  11. 110 PRINT"          Å·                 ’¡ÊÆÒÄÆß   ";
  12. 120 PRINT"      ¤                 ¯ÒÆÒ¯ ·’¢¹¤£ÍÍ¡  ";
  13. 130 PRINT"¤   ÒÄ             ¯ÒÀÅ·          ß’·¶  ";
  14. 140 PRINT" ·Å·            ÒÀÅ                ·¸¿  ";
  15. 150 PRINT" ¯¢’¸···¸¸¸¢¹¯ÒÀÅ                      Í ";
  16. 160 PRINT"’¬¾     ÆÀÀÆÒ¯               ª’©";
  17. 170 PRINT"´            ÅÀÒ            ¢";
  18. 180 PRINT"µ               ÅÀÒ      ¹’¸";
  19. 190 PRINT"’¼                  ÅÀ¢’·£"
  20. 200 PRINT"¼¯                   ·’¢¯"
  21. 210 PRINT"BOY:                     _"
  22. 220 PRINT"GIRL:                    _";
  23. 230 POKE198,0:WAIT198,1:GETA$
  24. 240 PRINT"–©Àß";
  25. 245 FORT=1TO100:NEXT
  26. 250 PRINT"‘‘’©Àߒ‘‘ªªª";
  27. 255 FORT=1TO100:NEXT
  28. 260 PRINT"‘‘’©ÀÍ‘‘ªªª‘‘¸ ¹";
  29. 265 FORT=1TO100:NEXT
  30. 270 PRINT"‘‘’©ÀÍ‘‘  ¯‘‘¸ ¹";
  31. 275 FORT=1TO100:NEXT
  32. 280 PRINT"‘‘’©ÀÍ‘‘ªªª‘‘¸ ¹";
  33. 285 FORT=1TO100:NEXT
  34. 290 PRINT"‘‘’ΝÀ‘ªªÍ‘‘¸  ";
  35. 295 FORT=1TO100:NEXT
  36. 300 PRINT"‘‘’ڝª‘¸ Í";
  37. 305 FORT=1TO100:NEXT
  38. 310 PRINT"‘‘’ڝґ¸ ·";
  39. 315 FORT=1TO100:NEXT
  40. 320 PRINT"‘‘ÕÄő¯’";
  41. 330 OP=RND(0)*.4+.4
  42. 340 GETA$:IFA$="ˆ"ANDI=0THENI=1:GOSUB2000
  43. 350 IFA$="ˆ"ANDITHENI=0:GOSUB3000
  44. 400 OB=OB-.1:IFOB<0THENOB=0
  45. 410 OG=OG-OP/40:IFOG<0THENOG=0
  46. 420 SS=SS+1:IFSS=50THEN6000
  47. 430 POKE1949+OB,32
  48. 440 POKE1990+OG,32
  49. 450 IFRND(0)<.02THENOG=OG-OP
  50. 999 GOTO340
  51. 1000 PRINT"“":POKE53280,1:POKE53281,1:PRINTCHR$(8)
  52. 1001 PRINT"        ÕÀÀÀÀÉ ÕÀÀÀÀÉ ÍÍ   ÎÎ"
  53. 1002 PRINT"        ÝÕÀÀÀË ÝÕÀÀÀË  ÍͤÎΠ"
  54. 1003 PRINT"        ÝÝ     ÝÝ       Í Î  "
  55. 1004 PRINT"        ÝÊÀÀÀÉ ÝÊÀÀÀÉ   Î Í  "
  56. 1005 PRINT"        ÊÀÀÀÉÝ ÝÕÀÀÀË  ÎΣÍÍ "
  57. 1006 PRINT"            ÝÝ ÝÝ     ÎΠ  ÍÍ"
  58. 1007 PRINT"        ÕÀÀÀËÝ ÝÊÀÀÀÉ £GIRLS£"
  59. 1008 PRINT"        ÊÀÀÀÀË ÊÀÀÀÀË        "
  60. 1055 FORT=1TO1000:NEXT
  61. 1060 PRINT"                  BY"
  62. 1065 FORT=1TO1000:NEXT
  63. 1066 PRINT
  64. 1070 PRINTTAB(10)"MERCENARY&DESTROYER"
  65. 1075 FORT=1TO2000:NEXT
  66. 1080 PRINT"ž  ÄÄÄÄÄÄÄÄIJÀÉ"
  67. 1090 PRINT"   FUCK S8 Ý ³"
  68. 1100 PRINT"  ²ÄIJÆÆÆÆƱÀË"
  69. 1110 PRINT"  Ý  Ý "
  70. 1120 PRINT"  ÊÀÀË ";
  71. 1125 FORT=1TO500:NEXT
  72. 1130 PRINT"‘‘‘ÀÀÉÀÀÉÀÀÉÀÉÀÉÀÉÉɑ‘SPLASH!"
  73. 1135 FORT=1TO1000:NEXT
  74. 1136 PRINT:PRINT:PRINT:PRINT :PRINT
  75. 1140 PRINTTAB(10)">TASTE DRUECKEN!<"
  76. 1150 POKE198,0:WAIT198,1
  77. 1152 PRINT"“"
  78. 1153 FORT=1TO2:PRINT:NEXT
  79. 1160 :
  80. 1170 PRINT
  81. 1171 PRINTTAB(2)"WIE HEISST DU?"
  82. 1172 INPUTX$
  83. 1174 PRINT:PRINT
  84. 1175 PRINTTAB(7)X$;","
  85. 1185 PRINT"    DU HAST DREI SCHOENE MAEDCHEN:"
  86. 1186 PRINT
  87. 1190 PRINT"KONGO BUANA:DIE SCHWARZE HURE"
  88. 1200 PRINT"CLODINE    :DIE SCHOENHEIT"
  89. 1210 PRINT
  90. 1220 PRINT
  91. 1300 PRINT
  92. 3984 PRINT                              1288 PRINT
  93. 12     ***ERROR***PRINT#
  94. 3990 PRINT
  95. 12345 PRINT
  96. 40975 ***ERROR***TO/TO***ERROR***OPENSTOP***ERROR***TOOPENGOSUB***ERROR***REMSTOPSTOPSTOPOPENTO/CLOSE***ERROR***PRINT#***ERROR***PRINT#
  97. 61642 ***ERROR***PRINT#***ERROR******ERROR***======STOPENDENDENDEND==***ERROR***STOP
  98. 37088 
  99. 40975 ***ERROR******ERROR***    ***ERROR******ERROR******ERROR***OPENSTOP***ERROR******ERROR***OPENGOSUB***ERROR***REMSTOPSTOPSTOPOPEN***ERROR******ERROR***    CLOSE***ERROR***PRINT#***ERROR***PRINT#
  100. 65287 ***ERROR***PRINT# ***ERROR***uEND***ERROR***STOP    IF***ERROR***END***ERROR***    ***ERROR***x|yw***ERROR***STOP    w
  101. 30585 ENDSTOPSTOP
  102. 117 uENDLET
  103. 61451 ***ERROR******ERROR***POKE***ERROR***PRINT#    xp{***ERROR***uEND
  104. 28672 y
  105. 28791 yy***ERROR***STOP
  106. 37088 ENDSTOP***ERROR***PRINT#
  107. 65294 ***ERROR******ERROR******ERROR******ERROR******ERROR***OR***ERROR***PRINT#    w
  108. 1424 
  109. 1231 PRINTTAB(2)"DEIN SCHWANZ AN HAERTE"
  110. 1235 PRINT
  111. 1240 PRINT"STOSS NICHT ZU SCHNELL, SONST KRIEGST"
  112. 1241 PRINTTAB(2)"DU VOR IHR EINEN ORGASMUS"
  113. 1245 PRINT
  114. 1250 PRINT"BEREITE IHR EINEN SCHOENEN ORGASMUS"
  115. 1251 PRINT
  116. 1260 PRINT"BONUS FUER EINEN GUTEN ORGASMUS!"
  117. 1265 PRINT"     >TASTE DRUECKEN<"
  118. 1270 POKE198,0:WAIT198,1
  119. 1280 PRINT"“    STARTE MIT KONGO BUANA!"
  120. 1290 FORT=1TO2000:NEXT
  121. 1300 RETURN
  122. 2000 PRINT"ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  123. 2010 OB=OB+1:IFOB>20THEN4000
  124. 2020 OG=OG+OP:IFOG>19THEN5000
  125. 2030 POKE1948+OB,160
  126. 2040 POKE1989+OG,160
  127. 2990 SS=0:GETA$:RETURN
  128. 3000 PRINT"         ‘’¸ ¹";
  129. 3990 RETURN
  130. 4000 POKE1948+OB,160
  131. 4001 IFOG+OP>=19THEN7000
  132. 4002 PRINT"OOOOH!–"
  133. 4005 TT=50:FORT=1TO50
  134. 4010 PRINT"ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  135. 4015 FORQ=1TOTT:NEXT
  136. 4020 PRINT"         ‘’¸ ¹";
  137. 4025 FORQ=1TOTT:NEXT:TT=TT-2
  138. 4030 NEXT
  139. 4040 PRINT"’ SPLASH!  "
  140. 4060 FORT=1TO2000:NEXT
  141. 4070 PRINT"“OH, DU KONNTEST SIE NICHT ERFREUEN"
  142. 4080 PRINT"SIE IST JETZT BOESE UEBER DICH UND DU   WIRST SIE NICHT WIEDER FICKEN!!"
  143. 4090 PRINT"             -TASTE DRUECKEN-
  144. 4100 POKE198,0:WAIT198,1:RUN
  145. 5000 PRINT"’OOOOOH,";X$;"!!!"
  146. 5007 POKE1989+OG,160
  147. 5008 IFOB>=19THEN7000
  148. 5010 POKE53280,2
  149. 5030 TT=200:FORT=1TO80
  150. 5045 PRINT"’ÕÄŝÊ¸’¢¹¯’ß ß"
  151. 5050 FORQ=1TOTT:NEXT
  152. 5065 PRINT"’ÕÄŝÊÆÒ¯   Í¤¤"
  153. 5070 FORQ=1TOTT:NEXT:TT=TT-7
  154. 5080 NEXT
  155. 5090 FORT=1TO2000:NEXT
  156. 5100 PRINT"“   GRATULATION!!"
  157. 5110 PRINT"DU HAST SIE ERFREUT.      "
  158. 5120 PRINT" DU WIRST AUCH NOCH ANDERE MAEDCHEN      ERFREUEN!"
  159. 5130 PRINTTAB(6)"-TASTE DRUECKEN-"
  160. 5140 POKE198,0:WAIT198,1:RUN
  161. 6000 PRINT"“SCHADE!!"
  162. 6010 PRINT"DEIN SCHWANZ IST SEHR MUEDE."
  163. 6020 PRINT"ZU MUEDE ZUM WEITERBUMBSEN"
  164. 6030 PRINT"MACH ES MORGEN BESSER!!"
  165. 6040 PRINT"         - TASTE DRUECKEN-
  166. 6050 POKE198,0:WAIT198,1:RUN
  167. 7000 PRINT"’OOOOOH,";X$;"!!!"
  168. 7001 POKE1948+OB,160
  169. 7002 PRINT"OOOOH!–"
  170. 7003 POKE1989+OG,160
  171. 7005 TT=100:FORT=1TO100
  172. 7010 PRINT"–ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  173. 7012 PRINT"’ÕÄŝÊ¸’¢¹¯’ß ß"
  174. 7015 FORQ=1TOTT:NEXT
  175. 7020 PRINT"–         ‘’¸ ¹";
  176. 7022 PRINT"’ÕÄŝÊÆÒ¯   Í¤¤"
  177. 7025 FORQ=1TOTT:NEXT:TT=TT-4
  178. 7030 NEXT
  179. 7040 PRINT"’ SPLASH!  "
  180. 7050 FORT=1TO2000:NEXT
  181. 7060 PRINT"“             BONUS FICK!"
  182. 7065 FORTT=1TO10
  183. 7070 POKE53280,2:POKE53281,2
  184. 7080 FORT=1TO500:NEXT
  185. 7090 POKE53280,6:POKE53281,6
  186. 7100 FORT=1TO500:NEXT
  187. 7110 NEXT
  188. 10000 POKE53281,0
  189. 10010 POKE53280,2
  190. 10015 PRINT"“      JETZT KOMMT CLOUDINE !!    ":FORT=1TO2000:NEXT
  191. 10020 PRINT"“                                        ";
  192. 10025 PRINT"                                        ’";
  193. 10030 PRINT"¯¸£       ·¸’¢¯¤";
  194. 10040 PRINT"©       ·Í È   Ê’´";
  195. 10050 PRINT"      ()  ´Ý    ’µ";
  196. 10060 PRINT"©   ´     ª      ’´";
  197. 10070 PRINT"   ª          ÄÀ ¶";
  198. 10080 PRINT"©    Í¯  ÆÀ        ";
  199. 10090 PRINT"’ª     ’©             ’´";
  200. 10100 PRINT"¡    ’µ´            ’µ";
  201. 10110 PRINT"´   ª’ª            ’¡";
  202. 10120 PRINT"¯¤ª           ×    ª’¯¹¢¸";
  203. 10130 PRINT"’¹·     ·ÄÆҒ©©             ’¹¸     ";
  204. 10140 PRINT"            ·¸’¢Æ             ¼’¹¸        ";
  205. 10150 PRINT"               ÅÀÒ   ¬’¸·» ¯ ¯ÆÄ         ";
  206. 10160 PRINT"                  ÅÀ ’»»¬  ·            ";
  207. 10170 PRINT"                     ¶©¼µ               ";
  208. 10180 PRINT"      Í              ’¡¬¡µ             ¹’¸";
  209. 10190 PRINT"       Í             ªª¥´           ¢"
  210. 10200 PRINT"¡       ’·¢¯          ´Î          ¢"
  211. 10210 PRINT"       ’¡·¢¯       .         ¢"
  212. 10220 PRINT"¡      ª’·¢¯¤¤¹’¸£¸¹¯¤¤¯¹’·"
  213. 10230 PRINT"ß      ’´"
  214. 10240 PRINT"BOY:                     _"
  215. 10250 PRINT"GIRL:                    _";
  216. 10260 POKE198,0:WAIT198,1:GETA$
  217. 10270 PRINT"‘‘©ß";
  218. 10280 FORTT=1TO5
  219. 10290 FORT=1TO100:NEXT
  220. 10300 PRINT"¥§‘ÎÍ";
  221. 10310 NEXT
  222. 10320 PRINT"¥§‘°Ð";
  223. 11000 OP=RND(0)*.4+.4:SS=0:I=0:OG=0:OB=0
  224. 11340 GETA$:IFA$="ˆ"ANDI=0THENI=1:GOSUB12000
  225. 11350 IFA$="ˆ"ANDITHENI=0:GOSUB13000
  226. 11400 OB=OB-.1:IFOB<0THENOB=0
  227. 11410 OG=OG-OP/40:IFOG<0THENOG=0
  228. 11420 SS=SS+1:IFSS=50THEN6000
  229. 11430 POKE1949+OB,32
  230. 11440 POKE1990+OG,32
  231. 11450 IFRND(0)<.03THENOG=OG-OP
  232. 11999 GOTO11340
  233. 12000 PRINT"Õ ÉÕ  É¦¦";
  234. 12010 OB=OB+1:IFOB>20THEN14000
  235. 12020 OG=OG+OP:IFOG>19THEN15000
  236. 12030 POKE1948+OB,160
  237. 12040 POKE1989+OG,160
  238. 12990 SS=0:GETA$:RETURN
  239. 13000 PRINT"       ¥§";
  240. 13990 RETURN
  241. 14000 POKE1948+OB,160
  242. 14001 IFOG+OP>=19THEN17000
  243. 14002 PRINT"’OOOOH!–"
  244. 14005 TT=50:FORT=1TO50
  245. 14010 PRINT"Õ ÉÕ  É¦¦";
  246. 14015 FORQ=1TOTT:NEXT
  247. 14020 PRINT"       ¥§";
  248. 14025 FORQ=1TOTT:NEXT:TT=TT-2
  249. 14030 NEXT
  250. 14040 PRINT"’ SPLASH!  "
  251. 14060 GOTO4060
  252. 15000 PRINT"’OOOOOH,";X$;"!!"
  253. 15007 POKE1989+OG,160
  254. 15008 IFOB>=19THEN17000
  255. 15010 POKE53280,2
  256. 15030 TT=200:FORT=1TO80
  257. 15045 PRINT"ž’»©¼°";
  258. 15050 FORQ=1TOTT:NEXT
  259. 15065 PRINT"’»©¼°";
  260. 15070 FORQ=1TOTT:NEXT:TT=TT-7
  261. 15080 NEXT
  262. 15090 GOTO5090
  263. 17000 PRINT"’OOOOOH,";X$;"!!"
  264. 17001 POKE1948+OB,160
  265. 17002 PRINT"’OOOOH!–"
  266. 17003 POKE1989+OG,160
  267. 17005 TT=100:FORT=1TO100
  268. 17010 PRINT"Õ ÉÕ  É¦¦";
  269. 17012 PRINT"ž’»©¼°";
  270. 17015 FORQ=1TOTT:NEXT
  271. 17020 PRINT"       ¥§";
  272. 17022 PRINT"’»©¼°";
  273. 17025 FORQ=1TOTT:NEXT:TT=TT-4
  274. 17030 NEXT
  275. 17040 PRINT"’ SPLASH!  "
  276. 17050 FORT=1TO2000:NEXT
  277. 17060 PRINT"“             BONUS BUMS"
  278. 17065 FORTT=1TO10
  279. 17070 POKE53280,2:POKE53281,2
  280. 17080 FORT=1TO500:NEXT
  281. 17090 POKE53280,6:POKE53281,6
  282. 17100 FORT=1TO500:NEXT
  283. 17110 NEXT
  284. 20000 POKE53281,0
  285. 20010 POKE53280,4
  286. 20015 PRINT"“     UND JETZT HU HIM PU"            :FORT=1TO2000:NEXT
  287. 20020 PRINT"“ž¹¸     ’©¤¯¹¯¤¤¯¹¯"
  288. 20030 PRINT"©       ’©¤¢¸·£    ÅÀÒ   £’¢¯"
  289. 20040 PRINT"¬·       Î’¢¹¢¸·£                  ¸"
  290. 20050 PRINT"©        Î                     .     ";
  291. 20060 PRINT"’¹·        Î                      ¬     ";
  292. 20070 PRINT"’¶         Î                       ’´ß    ";
  293. 20080 PRINT"Ù        Î         Ç             ª’Ùɵ   ";
  294. 20090 PRINT" ´     ÆÅ          È             ¶’Ýݶ   ";
  295. 20100 PRINT" ÅÆ                 Î            §’ÈÔ´   ";
  296. 20110 PRINT"                   Î             ª’Ê    ";
  297. 20120 PRINT"¢Ò¯              ª              ’¡©    ";
  298. 20130 PRINT"’·¹ÄÆ            Ý              ¼·     ";
  299. 20140 PRINT"’ß Í         ¢’·¥             Ù       ";
  300. 20150 PRINT"´ Í      ’©ª              Ç       ";
  301. 20160 PRINT"’ª  Í    ’©¡             ¶´       ";
  302. 20170 PRINT"’ß  ’ß  ’©´             ’´ª       ";
  303. 20180 PRINT"’ÊËÊ˪             ’¡µ      ";
  304. 20190 PRINT"¡             ’ª      ";
  305. 20200 PRINT"´            ’©¥     ";
  306. 20210 PRINT"’§            ’©¡     ";
  307. 20220 PRINT"’¶           ’©ª     ";
  308. 20230 PRINT"µ          ’©´    ";
  309. 20240 PRINT"´         ’©µ    ";
  310. 20250 PRINT"’BOY:                     _"
  311. 20260 PRINT"GIRL:                    _";
  312. 20270 POKE198,0:WAIT198,1:GETA$
  313. 20280 PRINT"ž©Àß";
  314. 20290 FORT=1TO100:NEXT
  315. 20300 PRINT"‘‘’©§À§ߒ§";
  316. 20310 FORT=1TO100:NEXT
  317. 20320 PRINT"‘‘’©§¸À§ ߒ§¹";
  318. 20330 FORT=1TO100:NEXT
  319. 20340 PRINT"‘‘’©§¸À§ ߒ§¹";
  320. 20350 FORT=1TO100:NEXT
  321. 20360 PRINT"‘‘’Χ¸À§ Í§¹";
  322. 20370 FORT=1TO100:NEXT
  323. 20380 PRINT"‘‘’и§ º¹";
  324. 20390 FORT=1TO100:NEXT
  325. 20400 PRINT"‘‘Å Ò";
  326. 21000 OP=RND(0)*.4+.4:SS=0:I=0:OG=0:OB=0
  327. 21340 GETA$:IFA$="ˆ"ANDI=0THENI=1:GOSUB22000
  328. 21350 IFA$="ˆ"ANDITHENI=0:GOSUB23000
  329. 21400 OB=OB-.1:IFOB<0THENOB=0
  330. 21410 OG=OG-OP/40:IFOG<0THENOG=0
  331. 21420 SS=SS+1:IFSS=50THEN6000
  332. 21430 POKE1949+OB,32
  333. 21440 POKE1990+OG,32
  334. 21450 IFRND(0)<.04THENOG=OG-OPP
  335. 21999 GOTO21340
  336. 22000 PRINT"¦¦¦"
  337. 22010 OB=OB+1:IFOB>20THEN24000
  338. 22020 OG=OG+OP:IFOG>19THEN25000
  339. 22030 POKE1948+OB,160
  340. 22040 POKE1989+OG,160
  341. 22990 SS=0:GETA$:RETURN
  342. 23000 PRINT"ž¸ ¹"
  343. 23990 RETURN
  344. 24000 POKE1948+OB,160
  345. 24001 IFOG+OP>=19THEN27000
  346. 24002 PRINT"’OOOOH!ž"
  347. 24005 TT=50:FORT=1TO50
  348. 24010 PRINT"¦¦¦"
  349. 24015 FORQ=1TOTT:NEXT
  350. 24020 PRINT"ž¸ ¹"
  351. 24025 FORQ=1TOTT:NEXT:TT=TT-2
  352. 24030 NEXT
  353. 24040 PRINT"’ SPLASH!"
  354. 24060 GOTO4060
  355. 25000 PRINT"’OOOOOH,";X$;"!!!"
  356. 25007 POKE1989+OG,160
  357. 25008 IFOB>=19THEN27000
  358. 25010 POKE53280,2
  359. 25030 TT=200:FORT=1TO80
  360. 25045 PRINT"§¡¡’µ¶´¼"
  361. 25050 FORQ=1TOTT:NEXT
  362. 25065 PRINT"Ùž¸Ý Èž¹Ê"
  363. 25070 FORQ=1TOTT:NEXT:TT=TT-7
  364. 25080 NEXT
  365. 25090 GOTO5090
  366. 27000 PRINT"’OOOOOH,";X$;"!!!"
  367. 27001 POKE1948+OB,160
  368. 27002 PRINT"’OOOOH!–"
  369. 27003 POKE1989+OG,160
  370. 27005 TT=100:FORT=1TO100
  371. 27010 PRINT"¦¦¦"
  372. 27012 PRINT"§¡¡’µ¶´¼"
  373. 27015 FORQ=1TOTT:NEXT
  374. 27020 PRINT"ž¸ ¹"
  375. 27022 PRINT"Ù¸Ý È¹Ê"
  376. 27025 FORQ=1TOTT:NEXT:TT=TT-4
  377. 27030 NEXT
  378. 27040 PRINT"’ SPLASH!"
  379. 27050 FORT=1TO5000:NEXT
  380. 27060 PRINT"“SO, SCHLUSS JETZT!"
  381. 27070 PRINT"NIMM DIR 'NEN FEUDEL UND WISCH DEIN     GEWICHSE AUF."
  382. 27080 PRINT"UND ICH HOFFE, DASS DU DAS PROGRAMM GUT ABGESPEICHERT HAST."
  383. 27090 PRINT"ICH ZERSTOERE ES NAEMLICH GERADE."
  384. 27100 PRINT"TSCHUESS,";X$;" DU WICHSER ":END
  385. 57293 NEW:REM"‘READY.            ‘
  386.