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***u
  104. END
  105. 28672 y
  106. 28791 yy***ERROR***STOP
  107. 37088 ENDSTOP***ERROR***PRINT#
  108. 65294 ***ERROR******ERROR******ERROR******ERROR******ERROR***OR***ERROR***PRINT#    w
  109. 1424 
  110. 1231 PRINTTAB(2)"DEIN SCHWANZ AN HAERTE"
  111. 1235 PRINT
  112. 1240 PRINT"STOSS NICHT ZU SCHNELL, SONST KRIEGST"
  113. 1241 PRINTTAB(2)"DU VOR IHR EINEN ORGASMUS"
  114. 1245 PRINT
  115. 1250 PRINT"BEREITE IHR EINEN SCHOENEN ORGASMUS"
  116. 1251 PRINT
  117. 1260 PRINT"BONUS FUER EINEN GUTEN ORGASMUS!"
  118. 1265 PRINT"     >TASTE DRUECKEN<"
  119. 1270 POKE198,0:WAIT198,1
  120. 1280 PRINT"“    STARTE MIT KONGO BUANA!"
  121. 1290 FORT=1TO2000:NEXT
  122. 1300 RETURN
  123. 2000 PRINT"ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  124. 2010 OB=OB+1:IFOB>20THEN4000
  125. 2020 OG=OG+OP:IFOG>19THEN5000
  126. 2030 POKE1948+OB,160
  127. 2040 POKE1989+OG,160
  128. 2990 SS=0:GETA$:RETURN
  129. 3000 PRINT"         ‘’¸ ¹";
  130. 3990 RETURN
  131. 4000 POKE1948+OB,160
  132. 4001 IFOG+OP>=19THEN7000
  133. 4002 PRINT"OOOOH!–"
  134. 4005 TT=50:FORT=1TO50
  135. 4010 PRINT"ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  136. 4015 FORQ=1TOTT:NEXT
  137. 4020 PRINT"         ‘’¸ ¹";
  138. 4025 FORQ=1TOTT:NEXT:TT=TT-2
  139. 4030 NEXT
  140. 4040 PRINT"’ SPLASH!  "
  141. 4060 FORT=1TO2000:NEXT
  142. 4070 PRINT"“OH, DU KONNTEST SIE NICHT ERFREUEN"
  143. 4080 PRINT"SIE IST JETZT BOESE UEBER DICH UND DU   WIRST SIE NICHT WIEDER FICKEN!!"
  144. 4090 PRINT"             -TASTE DRUECKEN-
  145. 4100 POKE198,0:WAIT198,1:RUN
  146. 5000 PRINT"’OOOOOH,";X$;"!!!"
  147. 5007 POKE1989+OG,160
  148. 5008 IFOB>=19THEN7000
  149. 5010 POKE53280,2
  150. 5030 TT=200:FORT=1TO80
  151. 5045 PRINT"’ÕÄŝÊ¸’¢¹¯’ß ß"
  152. 5050 FORQ=1TOTT:NEXT
  153. 5065 PRINT"’ÕÄŝÊÆÒ¯   Í¤¤"
  154. 5070 FORQ=1TOTT:NEXT:TT=TT-7
  155. 5080 NEXT
  156. 5090 FORT=1TO2000:NEXT
  157. 5100 PRINT"“   GRATULATION!!"
  158. 5110 PRINT"DU HAST SIE ERFREUT.      "
  159. 5120 PRINT" DU WIRST AUCH NOCH ANDERE MAEDCHEN      ERFREUEN!"
  160. 5130 PRINTTAB(6)"-TASTE DRUECKEN-"
  161. 5140 POKE198,0:WAIT198,1:RUN
  162. 6000 PRINT"“SCHADE!!"
  163. 6010 PRINT"DEIN SCHWANZ IST SEHR MUEDE."
  164. 6020 PRINT"ZU MUEDE ZUM WEITERBUMBSEN"
  165. 6030 PRINT"MACH ES MORGEN BESSER!!"
  166. 6040 PRINT"         - TASTE DRUECKEN-
  167. 6050 POKE198,0:WAIT198,1:RUN
  168. 7000 PRINT"’OOOOOH,";X$;"!!!"
  169. 7001 POKE1948+OB,160
  170. 7002 PRINT"OOOOH!–"
  171. 7003 POKE1989+OG,160
  172. 7005 TT=100:FORT=1TO100
  173. 7010 PRINT"–ÕÕ՝Õ՝Õ՝ÕՑ¦¦¦–";
  174. 7012 PRINT"’ÕÄŝÊ¸’¢¹¯’ß ß"
  175. 7015 FORQ=1TOTT:NEXT
  176. 7020 PRINT"–         ‘’¸ ¹";
  177. 7022 PRINT"’ÕÄŝÊÆÒ¯   Í¤¤"
  178. 7025 FORQ=1TOTT:NEXT:TT=TT-4
  179. 7030 NEXT
  180. 7040 PRINT"’ SPLASH!  "
  181. 7050 FORT=1TO2000:NEXT
  182. 7060 PRINT"“             BONUS FICK!"
  183. 7065 FORTT=1TO10
  184. 7070 POKE53280,2:POKE53281,2
  185. 7080 FORT=1TO500:NEXT
  186. 7090 POKE53280,6:POKE53281,6
  187. 7100 FORT=1TO500:NEXT
  188. 7110 NEXT
  189. 10000 POKE53281,0
  190. 10010 POKE53280,2
  191. 10015 PRINT"“      JETZT KOMMT CLOUDINE !!    ":FORT=1TO2000:NEXT
  192. 10020 PRINT"“                                        ";
  193. 10025 PRINT"                                        ’";
  194. 10030 PRINT"¯¸£       ·¸’¢¯¤";
  195. 10040 PRINT"©       ·Í È   Ê’´";
  196. 10050 PRINT"      ()  ´Ý    ’µ";
  197. 10060 PRINT"©   ´     ª      ’´";
  198. 10070 PRINT"   ª          ÄÀ ¶";
  199. 10080 PRINT"©    Í¯  ÆÀ        ";
  200. 10090 PRINT"’ª     ’©             ’´";
  201. 10100 PRINT"¡    ’µ´            ’µ";
  202. 10110 PRINT"´   ª’ª            ’¡";
  203. 10120 PRINT"¯¤ª           ×    ª’¯¹¢¸";
  204. 10130 PRINT"’¹·     ·ÄÆҒ©©             ’¹¸     ";
  205. 10140 PRINT"            ·¸’¢Æ             ¼’¹¸        ";
  206. 10150 PRINT"               ÅÀÒ   ¬’¸·» ¯ ¯ÆÄ         ";
  207. 10160 PRINT"                  ÅÀ ’»»¬  ·            ";
  208. 10170 PRINT"                     ¶©¼µ               ";
  209. 10180 PRINT"      Í              ’¡¬¡µ             ¹’¸";
  210. 10190 PRINT"       Í             ªª¥´           ¢"
  211. 10200 PRINT"¡       ’·¢¯          ´Î          ¢"
  212. 10210 PRINT"       ’¡·¢¯       .         ¢"
  213. 10220 PRINT"¡      ª’·¢¯¤¤¹’¸£¸¹¯¤¤¯¹’·"
  214. 10230 PRINT"ß      ’´"
  215. 10240 PRINT"BOY:                     _"
  216. 10250 PRINT"GIRL:                    _";
  217. 10260 POKE198,0:WAIT198,1:GETA$
  218. 10270 PRINT"‘‘©ß";
  219. 10280 FORTT=1TO5
  220. 10290 FORT=1TO100:NEXT
  221. 10300 PRINT"¥§‘ÎÍ";
  222. 10310 NEXT
  223. 10320 PRINT"¥§‘°Ð";
  224. 11000 OP=RND(0)*.4+.4:SS=0:I=0:OG=0:OB=0
  225. 11340 GETA$:IFA$="ˆ"ANDI=0THENI=1:GOSUB12000
  226. 11350 IFA$="ˆ"ANDITHENI=0:GOSUB13000
  227. 11400 OB=OB-.1:IFOB<0THENOB=0
  228. 11410 OG=OG-OP/40:IFOG<0THENOG=0
  229. 11420 SS=SS+1:IFSS=50THEN6000
  230. 11430 POKE1949+OB,32
  231. 11440 POKE1990+OG,32
  232. 11450 IFRND(0)<.03THENOG=OG-OP
  233. 11999 GOTO11340
  234. 12000 PRINT"Õ ÉÕ  É¦¦";
  235. 12010 OB=OB+1:IFOB>20THEN14000
  236. 12020 OG=OG+OP:IFOG>19THEN15000
  237. 12030 POKE1948+OB,160
  238. 12040 POKE1989+OG,160
  239. 12990 SS=0:GETA$:RETURN
  240. 13000 PRINT"       ¥§";
  241. 13990 RETURN
  242. 14000 POKE1948+OB,160
  243. 14001 IFOG+OP>=19THEN17000
  244. 14002 PRINT"’OOOOH!–"
  245. 14005 TT=50:FORT=1TO50
  246. 14010 PRINT"Õ ÉÕ  É¦¦";
  247. 14015 FORQ=1TOTT:NEXT
  248. 14020 PRINT"       ¥§";
  249. 14025 FORQ=1TOTT:NEXT:TT=TT-2
  250. 14030 NEXT
  251. 14040 PRINT"’ SPLASH!  "
  252. 14060 GOTO4060
  253. 15000 PRINT"’OOOOOH,";X$;"!!"
  254. 15007 POKE1989+OG,160
  255. 15008 IFOB>=19THEN17000
  256. 15010 POKE53280,2
  257. 15030 TT=200:FORT=1TO80
  258. 15045 PRINT"ž’»©¼°";
  259. 15050 FORQ=1TOTT:NEXT
  260. 15065 PRINT"’»©¼°";
  261. 15070 FORQ=1TOTT:NEXT:TT=TT-7
  262. 15080 NEXT
  263. 15090 GOTO5090
  264. 17000 PRINT"’OOOOOH,";X$;"!!"
  265. 17001 POKE1948+OB,160
  266. 17002 PRINT"’OOOOH!–"
  267. 17003 POKE1989+OG,160
  268. 17005 TT=100:FORT=1TO100
  269. 17010 PRINT"Õ ÉÕ  É¦¦";
  270. 17012 PRINT"ž’»©¼°";
  271. 17015 FORQ=1TOTT:NEXT
  272. 17020 PRINT"       ¥§";
  273. 17022 PRINT"’»©¼°";
  274. 17025 FORQ=1TOTT:NEXT:TT=TT-4
  275. 17030 NEXT
  276. 17040 PRINT"’ SPLASH!  "
  277. 17050 FORT=1TO2000:NEXT
  278. 17060 PRINT"“             BONUS BUMS"
  279. 17065 FORTT=1TO10
  280. 17070 POKE53280,2:POKE53281,2
  281. 17080 FORT=1TO500:NEXT
  282. 17090 POKE53280,6:POKE53281,6
  283. 17100 FORT=1TO500:NEXT
  284. 17110 NEXT
  285. 20000 POKE53281,0
  286. 20010 POKE53280,4
  287. 20015 PRINT"“     UND JETZT HU HIM PU"            :FORT=1TO2000:NEXT
  288. 20020 PRINT"“ž¹¸     ’©¤¯¹¯¤¤¯¹¯"
  289. 20030 PRINT"©       ’©¤¢¸·£    ÅÀÒ   £’¢¯"
  290. 20040 PRINT"¬·       Î’¢¹¢¸·£                  ¸"
  291. 20050 PRINT"©        Î                     .     ";
  292. 20060 PRINT"’¹·        Î                      ¬     ";
  293. 20070 PRINT"’¶         Î                       ’´ß    ";
  294. 20080 PRINT"Ù        Î         Ç             ª’Ùɵ   ";
  295. 20090 PRINT" ´     ÆÅ          È             ¶’Ýݶ   ";
  296. 20100 PRINT" ÅÆ                 Î            §’ÈÔ´   ";
  297. 20110 PRINT"                   Î             ª’Ê    ";
  298. 20120 PRINT"¢Ò¯              ª              ’¡©    ";
  299. 20130 PRINT"’·¹ÄÆ            Ý              ¼·     ";
  300. 20140 PRINT"’ß Í         ¢’·¥             Ù       ";
  301. 20150 PRINT"´ Í      ’©ª              Ç       ";
  302. 20160 PRINT"’ª  Í    ’©¡             ¶´       ";
  303. 20170 PRINT"’ß  ’ß  ’©´             ’´ª       ";
  304. 20180 PRINT"’ÊËÊ˪             ’¡µ      ";
  305. 20190 PRINT"¡             ’ª      ";
  306. 20200 PRINT"´            ’©¥     ";
  307. 20210 PRINT"’§            ’©¡     ";
  308. 20220 PRINT"’¶           ’©ª     ";
  309. 20230 PRINT"µ          ’©´    ";
  310. 20240 PRINT"´         ’©µ    ";
  311. 20250 PRINT"’BOY:                     _"
  312. 20260 PRINT"GIRL:                    _";
  313. 20270 POKE198,0:WAIT198,1:GETA$
  314. 20280 PRINT"ž©Àß";
  315. 20290 FORT=1TO100:NEXT
  316. 20300 PRINT"‘‘’©§À§ߒ§";
  317. 20310 FORT=1TO100:NEXT
  318. 20320 PRINT"‘‘’©§¸À§ ߒ§¹";
  319. 20330 FORT=1TO100:NEXT
  320. 20340 PRINT"‘‘’©§¸À§ ߒ§¹";
  321. 20350 FORT=1TO100:NEXT
  322. 20360 PRINT"‘‘’Χ¸À§ Í§¹";
  323. 20370 FORT=1TO100:NEXT
  324. 20380 PRINT"‘‘’и§ º¹";
  325. 20390 FORT=1TO100:NEXT
  326. 20400 PRINT"‘‘Å Ò";
  327. 21000 OP=RND(0)*.4+.4:SS=0:I=0:OG=0:OB=0
  328. 21340 GETA$:IFA$="ˆ"ANDI=0THENI=1:GOSUB22000
  329. 21350 IFA$="ˆ"ANDITHENI=0:GOSUB23000
  330. 21400 OB=OB-.1:IFOB<0THENOB=0
  331. 21410 OG=OG-OP/40:IFOG<0THENOG=0
  332. 21420 SS=SS+1:IFSS=50THEN6000
  333. 21430 POKE1949+OB,32
  334. 21440 POKE1990+OG,32
  335. 21450 IFRND(0)<.04THENOG=OG-OPP
  336. 21999 GOTO21340
  337. 22000 PRINT"¦¦¦"
  338. 22010 OB=OB+1:IFOB>20THEN24000
  339. 22020 OG=OG+OP:IFOG>19THEN25000
  340. 22030 POKE1948+OB,160
  341. 22040 POKE1989+OG,160
  342. 22990 SS=0:GETA$:RETURN
  343. 23000 PRINT"ž¸ ¹"
  344. 23990 RETURN
  345. 24000 POKE1948+OB,160
  346. 24001 IFOG+OP>=19THEN27000
  347. 24002 PRINT"’OOOOH!ž"
  348. 24005 TT=50:FORT=1TO50
  349. 24010 PRINT"¦¦¦"
  350. 24015 FORQ=1TOTT:NEXT
  351. 24020 PRINT"ž¸ ¹"
  352. 24025 FORQ=1TOTT:NEXT:TT=TT-2
  353. 24030 NEXT
  354. 24040 PRINT"’ SPLASH!"
  355. 24060 GOTO4060
  356. 25000 PRINT"’OOOOOH,";X$;"!!!"
  357. 25007 POKE1989+OG,160
  358. 25008 IFOB>=19THEN27000
  359. 25010 POKE53280,2
  360. 25030 TT=200:FORT=1TO80
  361. 25045 PRINT"§¡¡’µ¶´¼"
  362. 25050 FORQ=1TOTT:NEXT
  363. 25065 PRINT"Ùž¸Ý Èž¹Ê"
  364. 25070 FORQ=1TOTT:NEXT:TT=TT-7
  365. 25080 NEXT
  366. 25090 GOTO5090
  367. 27000 PRINT"’OOOOOH,";X$;"!!!"
  368. 27001 POKE1948+OB,160
  369. 27002 PRINT"’OOOOH!–"
  370. 27003 POKE1989+OG,160
  371. 27005 TT=100:FORT=1TO100
  372. 27010 PRINT"¦¦¦"
  373. 27012 PRINT"§¡¡’µ¶´¼"
  374. 27015 FORQ=1TOTT:NEXT
  375. 27020 PRINT"ž¸ ¹"
  376. 27022 PRINT"Ù¸Ý È¹Ê"
  377. 27025 FORQ=1TOTT:NEXT:TT=TT-4
  378. 27030 NEXT
  379. 27040 PRINT"’ SPLASH!"
  380. 27050 FORT=1TO5000:NEXT
  381. 27060 PRINT"“SO, SCHLUSS JETZT!"
  382. 27070 PRINT"NIMM DIR 'NEN FEUDEL UND WISCH DEIN     GEWICHSE AUF."
  383. 27080 PRINT"UND ICH HOFFE, DASS DU DAS PROGRAMM GUT ABGESPEICHERT HAST."
  384. 27090 PRINT"ICH ZERSTOERE ES NAEMLICH GERADE."
  385. 27100 PRINT"TSCHUESS,";X$;" DU WICHSER ":END
  386. 57293 NEW:REM"‘READY.            ‘
  387.