Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
adventu2.bas überarbeitet für FBC
| Uploader: |  croco97 |
| Datum/Zeit: | 30.11.2007 09:26:27 |
DECLARE SUB tooot ()
DECLARE SUB geschichte ()
SUB main
SCREEN 12: RANDOMIZE TIMER: CLS : LOCATE 1, 1, 0
'PLAY "t180l32o1cdefgao2cdefgao3cdefgao1cdefgao2cdefgao3cdefgao1cdefgao2cdefgao3cdefga"
SLEEP 1: COLOR 7: PRINT "Lade . . ."
SLEEP 4: CLS : DO: COLOR INT(RND * 14) + 1
LOCATE 8, 20: PRINT "Herzlich Willkommen zu Johann Eckert's"
LOCATE 10, 33: PRINT "2. Adventure"
LOCATE 16, 30: PRINT "CRAZY DAY V. 2.0"
LINE (100, 100)-(510, 300), INT(RND * 14) + 1, B
LINE (104, 96)-(506, 304), INT(RND * 14) + 1, B
CIRCLE (299, 245), 80, INT(RND * 14) + 1, , , .5
CIRCLE (299, 245), 75, INT(RND * 14) + 1, , , .5
1 a = INT(RND * 100): IF a < 37 THEN GOTO 1
'SOUND a, 1: LOOP UNTIL INKEY$ <> ""
CLS : COLOR 7: LOCATE 15, 30: PRINT "(c) Johann Eckert 1999": CLS
nochmal: CLS : COLOR 9
LOCATE 3, 13: PRINT "Ich werde Dich jetzt einige Sachen ber Dich fragen!"
LINE (30, 30)-(600, 70), 1, B
LOCATE 4, 30: INPUT "Ist das OK (j/n)"; ok$
IF ok$ = "n" THEN GOTO weiter
IF ok$ = "N" THEN GOTO weiter
IF ok$ = "j" THEN GOTO weiter.1
IF ok$ = "J" THEN GOTO weiter.1 ELSE GOTO nochmal
weiter.1: COLOR 14: LOCATE 7, 10: INPUT "Wie alt bist Du"; alter
LOCATE 9, 10: INPUT "Wie heiát Du"; name0$
LOCATE 11, 10: INPUT "Besitzt Du einen Apple-PC (j/n)"; apple$
COLOR 12: LOCATE 15, 20: PRINT "Aha! Dankeschn!": SLEEP 1
COLOR 7: LOCATE 28, 20: PRINT "Taste drcken...": DO: LOOP UNTIL INKEY$ <> ""
weiter: CLS : a = -3: DO: a = a + 3
LINE (0, a)-(640, a), 1: LOOP UNTIL a = 480
COLOR 1: LOCATE 5, 10: PRINT " AUSWAHL: "
LOCATE 12, 25: PRINT " (1) SPIELEN "
LOCATE 14, 25: PRINT " (2) Was bisher geschah "
LOCATE 16, 25: PRINT " (3) Anleitung "
LOCATE 18, 25: PRINT " (4) Passwort "
LOCATE 20, 25: PRINT " (5) Quit "
LOCATE 24, 20: PRINT " Na?"
LOCATE 24, 24: COLOR 14: INPUT " ", auswahl
IF auswahl = 5 THEN GOTO ende
IF auswahl = 4 THEN GOTO passwort
IF auswahl = 3 THEN GOTO anleitung
IF auswahl = 2 THEN CALL geschichte
IF auswahl = 1 THEN GOTO Weite1 ELSE GOTO weiter
Weite1: CLS : IF name0$ = "" THEN name0$ = "Du"
LOCATE 1, 1: COLOR 7: PRINT " "; name0$; ":"
CIRCLE (50, 50), 15, 12, , , 1.5: PAINT (50, 50), 12
CIRCLE (45, 48), 1, 9: CIRCLE (55, 48), 1, 9
PAINT (45, 48), 9: PAINT (55, 48), 9
LINE (48, 58)-(52, 58), 4: LINE (40, 30)-(40, 46), 7
LINE (42, 30)-(42, 40), 7: LINE (44, 30)-(44, 38), 7
LINE (46, 30)-(46, 36), 7: LINE (48, 30)-(48, 34), 7
LINE (50, 30)-(50, 34), 7: LINE (52, 30)-(52, 34), 7
LINE (54, 30)-(54, 36), 7: LINE (56, 30)-(56, 38), 7
LINE (58, 30)-(58, 40), 7: LINE (60, 30)-(60, 46), 7
LINE (50, 49)-(50, 52), 6: CIRCLE (50, 100), 30, 1, , , 1.5
PAINT (50, 100), 1: LINE (33, 90)-(67, 129), 1, BF
CIRCLE (40, 75), 10, 1: CIRCLE (60, 75), 10, 1
PAINT (40, 70), 1: PAINT (60, 70), 1
CIRCLE (25, 73), 10, 1, , , .5: CIRCLE (75, 73), 10, 1, , , .5
PAINT (25, 73), 1: PAINT (75, 75), 1
LINE (60, 67)-(40, 70), 1, BF: CIRCLE (15, 90), 20, 1, , , 4
CIRCLE (85, 90), 20, 1, , , 4: PAINT (15, 90), 1: PAINT (85, 90), 1
LINE (81, 90)-(89, 110), 1, BF: LINE (11, 90)-(19, 110), 1, BF
CIRCLE (14, 115), 4, 12: PAINT (14, 115), 12
LINE (10, 115)-(10, 120), 12: LINE (12, 115)-(12, 122), 12
LINE (14, 115)-(14, 124), 12: LINE (16, 115)-(16, 122), 12
LINE (18, 115)-(18, 120), 12: LINE (19, 115)-(19, 120), 12
CIRCLE (86, 115), 4, 12: PAINT (86, 115), 12
LINE (90, 115)-(90, 120), 12: LINE (88, 115)-(88, 122), 12
LINE (86, 115)-(86, 124), 12: LINE (84, 115)-(84, 122), 12
LINE (82, 115)-(82, 120), 12: LINE (81, 115)-(81, 120), 12
LINE (35, 129)-(25, 200), 3: LINE (65, 129)-(75, 200), 3
LINE (25, 200)-(40, 200), 3: LINE (75, 200)-(60, 200), 3
LINE (40, 200)-(55, 131), 3: LINE (60, 200)-(45, 131), 3
LINE (35, 129)-(65, 129), 3: PAINT (65, 195), 3
CIRCLE (15, 205), 5, 6: CIRCLE (85, 205), 5, 6
PAINT (15, 205), 6: PAINT (85, 205), 6
LINE (15, 201)-(30, 210), 6, BF: LINE (31, 200)-(40, 210), 6, BF
LINE (85, 201)-(70, 210), 6, BF: LINE (69, 200)-(60, 210), 6, BF
LOCATE 5, 25: COLOR 15: PRINT "Du lebst, nicht wie im letzten Teil, im 19. Jahr-"
LOCATE 6, 25: PRINT "hundert, sondern im Jahr 2015 ! (Du bist auch wieder ein"
LOCATE 7, 25: PRINT "Stck lter geworden, wie Dir vielleicht schon aufgefal-"
LOCATE 8, 25: PRINT "len ist?!)"
LOCATE 25, 10: COLOR 14: PRINT "Also los, "; name0$; "! Let's go!"
IF name0$ = "Du" THEN LOCATE 25: PRINT " Also los! Let's go! "
LOCATE 28, 25: COLOR 7: PRINT "Taste drcken...": DO: LOOP UNTIL INKEY$ <> "": a = 8
frage1: CLS : LOCATE 5, 5: COLOR 14
PRINT "Es ist frh am Morgen": IF a = 24 THEN a = 0
LOCATE 6, 5: PRINT "und Du liegst noch im"
LOCATE 7, 5: PRINT "Bett! Es ist"; a; "Uhr"
LOCATE 8, 5: PRINT "und Du bist noch ein"
LOCATE 9, 5: PRINT "bisschen mde! Was"
LOCATE 10, 5: PRINT "willst Du tun?"
LOCATE 12, 8: PRINT "1 noch eine Stunde"
LOCATE 13, 11: PRINT "schlafen "; ""
LOCATE 14, 8: PRINT "2 sofort aufstehen"
LOCATE 15, 8: PRINT "3 wach liegen bleiben"
d = 0: DO: d = d + 1
B = RND * 640: c = RND * 480
PSET (B, c), 15: LOOP UNTIL d = 200
CIRCLE (330, 420), 130, 15, , , .1
PAINT (330, 420), 15
CIRCLE (490, 420), 15, 15, , , .9
PAINT (490, 420), 15
LINE (200, 480)-(200, 350), 6
LINE (200, 350)-(210, 350), 6
LINE (210, 350)-(210, 430), 6
LINE (210, 430)-(500, 430), 6
LINE (500, 430)-(500, 350), 6
LINE (500, 350)-(510, 350), 6
LINE (510, 350)-(510, 480), 6
LINE (510, 479)-(500, 479), 6
LINE (500, 479)-(500, 440), 6
LINE (500, 440)-(210, 440), 6
LINE (210, 440)-(210, 479), 6
LINE (210, 479)-(200, 479), 6
PAINT (205, 450), 6
LINE (0, 479)-(639, 478), 7, B
DO: LOCATE 17, 5: INPUT "Na"; frage
IF frage = 1 THEN GOTO StundeSchlafen
IF frage = 2 THEN GOTO Weiter1
IF frage = 3 THEN GOTO StundeSchlafen
LOCATE 17, 8: PRINT TAB(70); : LOOP
StundeSchlafen: CLS : COLOR 14
LOCATE 5, 5: PRINT "Es vergeht so die"
LOCATE 6, 5: PRINT "Zeit . . ."
CIRCLE (412, 295), 90, 12, , , 1.1
CIRCLE (412, 295), 93, 4, , , 1.1
LINE (412, 295)-(449, 245), 15
LINE (412, 295)-(370, 320), 15
LINE (413, 295)-(371, 320), 15
COLOR 7: LOCATE 15, 57: PRINT "1"
LOCATE 17, 60: PRINT "2"
LOCATE 19, 61: PRINT "3"
LOCATE 21, 60: PRINT "4"
LOCATE 23, 57: PRINT "5"
LOCATE 24, 52: PRINT "6"
LOCATE 23, 47: PRINT "7"
LOCATE 21, 44: PRINT "8"
LOCATE 19, 43: PRINT "9"
LOCATE 17, 44: PRINT "10"
LOCATE 15, 47: PRINT "11"
LOCATE 14, 52: PRINT "12"
B = 0: DO: B = B + 1: LOCATE 8, 5: PRINT USING "##"; B;
PRINT " Minuten": COLOR 14: IF INKEY$ = CHR$(27) THEN EXIT DO
'SOUND 0, 5: LOOP UNTIL B = 60
SLEEP 1: a = a + 1: GOTO frage1
Weiter1: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du stehst also sofort"
LOCATE 6, 5: PRINT "auf. Willst Du zuerst"
LOCATE 7, 5: PRINT "Zhneputzen (1) oder"
LOCATE 8, 5: PRINT "Dich anziehen (2)?"
a = 0: DO: a = a + 1
B = RND * 640: c = RND * 240
PSET (B, c), 15: LOOP UNTIL a = 100
LINE (0, 240)-(640, 250), 8, BF
LINE (0, 250)-(640, 480), 14, BF
LINE (400, 300)-(470, 400), 6, BF
LINE (404, 304)-(466, 396), 0, BF
LINE (405, 305)-(465, 395), 9, BF
LINE (0, 478)-(640, 479), 7, B
LOCATE 20, 10: COLOR 14: PRINT "<--BAD"
LOCATE 20, 18: PRINT "KEIN BAD-->"
DO: LOCATE 9, 5: INPUT "", frage2
IF frage2 = 1 THEN GOTO zahn
IF frage2 = 2 THEN GOTO anziehen
LOOP
zahn: CLS : LOCATE 5, 5: PRINT "Du gehst ins Bad und"
a = 0: DO: a = a + 1
B = RND * 640: c = RND * 240
PSET (B, c), 15: LOOP UNTIL a = 100
LINE (0, 240)-(640, 250), 8, BF
LINE (0, 250)-(640, 480), 14, BF
LINE (400, 300)-(470, 400), 6, BF
LINE (404, 304)-(466, 396), 0, BF
LINE (405, 305)-(465, 395), 9, BF
LINE (0, 478)-(640, 479), 7, B
LOCATE 20, 18: PRINT "KEIN BAD-->"
LOCATE 6, 5: PRINT "putzt Dir dir Zhne!"
LOCATE 7, 5: PRINT "Da Du jetzt schon"
LOCATE 8, 5: PRINT "aufgestanden bist,"
LOCATE 9, 5: PRINT "ziehst Du Dich auch"
LOCATE 10, 5: PRINT "gleich an! "; CHR$(2)
LOCATE 13, 8: COLOR 7: PRINT "(Leertaste)": SLEEP: GOTO weiter2
anziehen: CLS : LOCATE 5, 5: PRINT "Deine Kleider liegen bereit,"
a = 0: DO: a = a + 1
B = RND * 640: c = RND * 240
PSET (B, c), 15: LOOP UNTIL a = 100
LINE (0, 240)-(640, 250), 8, BF
LINE (0, 250)-(640, 480), 14, BF
LINE (400, 300)-(470, 400), 6, BF
LINE (404, 304)-(466, 396), 0, BF
LINE (405, 305)-(465, 395), 9, BF
LINE (0, 478)-(640, 479), 7, B
LOCATE 20, 10: COLOR 14: PRINT "<--BAD"
LOCATE 6, 5: PRINT "also ziehst Du Dich auch"
LOCATE 7, 5: PRINT "gleich an."
LOCATE 8, 5: PRINT "Als Du allerdings merkst, dass"
LOCATE 9, 5: PRINT "Du wahnsinnig aus dem Mund"
LOCATE 10, 5: PRINT "'duftest', gehst Du doch"
LOCATE 11, 5: PRINT "lieber Zhneputzen! "; CHR$(2)
LOCATE 14, 8: COLOR 7: PRINT "(Leertaste)": SLEEP
weiter2: CLS : COLOR 14: LOCATE 5, 5: PRINT "So, endlich angezogen"
LOCATE 6, 5: PRINT "und mit geputzten Zhnen"
LOCATE 7, 5: PRINT "kann das Abenteuer be-"
LOCATE 8, 5: PRINT "ginnen..."
COLOR 7: LOCATE 11, 5: PRINT "(Leertaste)": SLEEP
CLS : LOCATE 15, 25: COLOR 10: PRINT "Neues Passwort: "; : COLOR 15
c = 0: DO: c = c + 1: a = INT(RND * 640): B = INT(RND * 480): PSET (a, B), 15: LOOP UNTIL c = 200
PRINT " ENDLICH": LOCATE 28, 5: COLOR 7: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP
Passwort1: CLS : COLOR 14: LOCATE 5, 5: PRINT "Du stehst vor Deinem"
LOCATE 6, 5: PRINT "Haus. Als nchstes"
LOCATE 7, 5: PRINT "gehst Du einkaufen."
LOCATE 8, 5: PRINT "Was willst Du einkaufen?"
LOCATE 10, 9: PRINT "1 Mbel"
LOCATE 11, 9: PRINT "2 Auto"
LOCATE 12, 9: PRINT "3 Unterhosen"
LOCATE 13, 9: PRINT "4 nichts"
LINE (100, 350)-(200, 478), 6, BF
LINE (105, 355)-(195, 380), 0, B
LINE (105, 385)-(195, 410), 0, B
LINE (105, 415)-(195, 465), 0, B
LINE (105, 464)-(195, 464), 0
CIRCLE (150, 360), 1, 0
CIRCLE (150, 390), 1, 0
CIRCLE (150, 420), 1, 0
LINE (100, 470)-(103, 478), 0, BF
LINE (200, 470)-(197, 478), 0, BF
LINE (110, 471)-(190, 478), 0, BF
LINE (470, 370)-(530, 410), 9
LINE (470, 370)-(490, 400), 9
LINE (530, 410)-(490, 400), 9
PAINT (490, 390), 9
CIRCLE (410, 390), 5, 6
PAINT (410, 390), 6
LINE (405, 390)-(410, 410), 6
LINE (415, 390)-(420, 410), 6
LINE (410, 410)-(420, 410), 6
PAINT (411, 409), 6
LINE (300, 400)-(500, 450), 4, BF
CIRCLE (300, 425), 25, 4
CIRCLE (500, 425), 120, 4, , , .2
PAINT (299, 425), 4
PAINT (501, 425), 4
CIRCLE (330, 450), 22, 7
PAINT (330, 450), 7
CIRCLE (500, 450), 20, 7
PAINT (500, 450), 7
a = 0: DO: a = a + 1: CIRCLE (330, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (500, 450), a, 8: LOOP UNTIL a = 7
LINE (480, 400)-(490, 420), 0
LINE (490, 420)-(470, 445), 0
LINE (470, 445)-(403, 445), 0
LINE (403, 445)-(400, 400), 0
LINE (400, 100)-(360, 120), 15
LINE (360, 120)-(365, 130), 15
LINE (400, 100)-(405, 110), 15
LINE (365, 130)-(385, 130), 15
LINE (385, 130)-(395, 125), 15
LINE (405, 110)-(395, 125), 15
PAINT (365, 120), 15
LINE (500, 100)-(460, 120), 14
LINE (460, 120)-(465, 130), 14
LINE (500, 100)-(505, 110), 14
LINE (465, 130)-(485, 130), 14
LINE (485, 130)-(495, 125), 14
LINE (505, 110)-(495, 125), 14
PAINT (465, 120), 14
LINE (450, 50)-(410, 70), 12
LINE (410, 70)-(415, 80), 12
LINE (450, 50)-(455, 60), 12
LINE (415, 80)-(435, 80), 12
LINE (435, 80)-(445, 75), 12
LINE (455, 60)-(445, 75), 12
PAINT (415, 70), 12
a = 0: DO: a = a + 1
PSET (INT(RND * 250) + 300, INT(RND * 80) + 50), 0
LOOP UNTIL a = 300
DO: LOCATE 15, 5: INPUT "What"; frage3
IF frage3 = 1 THEN GOTO einkaufen
IF frage3 = 2 THEN GOTO einkaufen
IF frage3 = 3 THEN GOTO einkaufen
IF frage3 = 4 THEN GOTO nixeinkaufen
LOOP
nixeinkaufen: CLS : LOCATE 5, 5: PRINT "Du kaufst nichts ein!"
LOCATE 7, 10: COLOR 7: PRINT "(Leertaste)": SLEEP: GOTO weiter4
einkaufen: CLS : LOCATE 5, 5: PRINT "Du machst also Deine"
LOCATE 6, 5: PRINT "Einkufe. Nach ca. 1"
LOCATE 7, 5: PRINT "Stunde bist Du wieder"
LINE (200, 200)-(600, 479), 14, BF
LINE (200, 200)-(600, 260), 7, BF
LINE (202, 202)-(598, 465), 0, B
LOCATE 15, 47: COLOR 14: PRINT " LADEN "
LINE (350, 466)-(450, 480), 7, BF
LINE (352, 302)-(448, 463), 6, B
LINE (350, 280)-(450, 465), 6, B
PAINT (351, 300), 6
LINE (350, 280)-(450, 465), 0, B
LINE (352, 302)-(448, 463), 0, B
LINE (399, 302)-(399, 463), 0
LINE (353, 303)-(398, 462), 9, BF
LINE (400, 303)-(447, 462), 9, BF
LINE (590, 300)-(460, 450), 9, BF
LINE (590, 300)-(460, 450), 0, B
LINE (210, 300)-(340, 450), 9, BF
LINE (210, 300)-(340, 450), 0, B
a = 0: DO: LINE (a, 475)-(a, 479), 2
a = a + 2: LOOP UNTIL a = 640
LOCATE 8, 5: PRINT "da.": LOCATE 10, 10: COLOR 7: PRINT "(Leertaste)": SLEEP
weiter4: CLS : COLOR 14: IF frage3 = 3 THEN Unterhosen$ = "ja" ELSE Unterhosen$ = "nein"
LOCATE 5, 5: PRINT "Du fhrst mit Deinem"
LOCATE 6, 5: PRINT "Auto los (es ist b-"
LOCATE 7, 5: PRINT "rigens ein 'VW New"
LOCATE 8, 5: PRINT "Jaxon'); einfach so"
LOCATE 9, 5: PRINT "in der Gegend herum."
LINE (370, 370)-(430, 410), 9
LINE (370, 370)-(390, 400), 9
LINE (430, 410)-(390, 400), 9
PAINT (390, 390), 9
CIRCLE (310, 390), 5, 6
PAINT (310, 390), 6
LINE (305, 390)-(310, 410), 6
LINE (315, 390)-(320, 410), 6
LINE (310, 410)-(320, 410), 6
PAINT (311, 409), 6
LINE (200, 400)-(400, 450), 4, BF
CIRCLE (200, 425), 25, 4
CIRCLE (400, 425), 120, 4, , , .2
PAINT (199, 425), 4
PAINT (401, 425), 4
CIRCLE (230, 450), 22, 7
PAINT (230, 450), 7
CIRCLE (400, 450), 20, 7
PAINT (400, 450), 7
a = 0: DO: a = a + 1: CIRCLE (230, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (400, 450), a, 8: LOOP UNTIL a = 7
LINE (380, 400)-(390, 420), 0
LINE (390, 420)-(370, 445), 0
LINE (370, 445)-(303, 445), 0
LINE (303, 445)-(300, 400), 0
CIRCLE (326, 390), 10, 12, , , 1.1
PAINT (326, 390), 12
LINE (316, 390)-(316, 380), 7
LINE (318, 387)-(318, 377), 7
LINE (320, 384)-(320, 374), 7
a = 320: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 330
CIRCLE (330, 386), 1, 9
LINE (328, 396)-(333, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
LINE (50, 400)-(150, 400), 8
LINE (0, 420)-(100, 420), 8
LINE (25, 440)-(125, 440), 8
LOCATE 11, 10: COLOR 7: PRINT "(Leertaste)": SLEEP
CLS : COLOR 14: LOCATE 5, 5: PRINT "Nach einiger Zeit"
LOCATE 6, 5: PRINT "triffst Du einen Dir"
LOCATE 7, 5: PRINT "vielleicht alten Bekann-"
LOCATE 8, 5: PRINT "ten: Den Geist aus der"
LOCATE 9, 5: PRINT "Hhle!"
LOCATE 10, 5: PRINT "Er sagt: "; CHR$(34); "Ach, Dich"
LOCATE 11, 5: PRINT "kenne ich Doch irgend-"
LOCATE 12, 5: PRINT "wo her . . . Ach ja, Du"
LOCATE 13, 5: PRINT "bist der Depp aus dem"
LOCATE 14, 5: PRINT "1. Teil, der mir seine"
LOCATE 15, 5: PRINT "Unterhose gegeben hat"
LOCATE 16, 5: PRINT ". . . Das bringt mich"
LOCATE 17, 5: PRINT "auf eine Idee:..."; CHR$(34)
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
CIRCLE (226, 390), 10, 12, , , 1.1
PAINT (226, 390), 12
LINE (216, 390)-(216, 380), 7
LINE (218, 387)-(218, 377), 7
LINE (220, 384)-(220, 374), 7
a = 220: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 230
CIRCLE (230, 386), 1, 9
LINE (228, 396)-(233, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
CIRCLE (500, 200), 30, 7: PAINT (500, 200), 7
LINE (475, 220)-(500, 210), 0
LINE (500, 210)-(480, 230), 0
PAINT (480, 220), 0
a = 0: DO: a = a + 1
B = INT(RND * 60) + 470
c = INT(RND * 60) + 170
PSET (B, c), 0: LOOP UNTIL a = 300
CIRCLE (480, 190), 4, 4: PAINT (480, 190), 4
LOCATE 20, 10: COLOR 7: PRINT "(Leertaste)": SLEEP
zurug: CLS : COLOR 14: LOCATE 5, 5: PRINT CHR$(34); "...Gib' mir jetzt"
LOCATE 6, 5: PRINT "5 Unterhosen, oder"
LOCATE 7, 5: PRINT "ich kille Dich!"; CHR$(34)
LOCATE 9, 9: PRINT "1 Unterhosen geben"
LOCATE 10, 9: PRINT "2 Killen lassen"
LOCATE 11, 9: PRINT "3 Geist mit Schwert"
LOCATE 12, 11: PRINT "kaputthauen"
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
CIRCLE (226, 390), 10, 12, , , 1.1
PAINT (226, 390), 12
LINE (216, 390)-(216, 380), 7
LINE (218, 387)-(218, 377), 7
LINE (220, 384)-(220, 374), 7
a = 220: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 230
CIRCLE (230, 386), 1, 9
LINE (228, 396)-(233, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
CIRCLE (500, 200), 30, 7: PAINT (500, 200), 7
LINE (475, 220)-(500, 210), 0
LINE (500, 210)-(480, 230), 0
PAINT (480, 220), 0
a = 0: DO: a = a + 1
B = INT(RND * 60) + 470
c = INT(RND * 60) + 170
PSET (B, c), 0: LOOP UNTIL a = 300
CIRCLE (480, 190), 4, 4: PAINT (480, 190), 4
LINE (400, 150)-(360, 170), 15
LINE (360, 170)-(365, 180), 15
LINE (400, 150)-(405, 160), 15
LINE (365, 180)-(385, 180), 15
LINE (385, 180)-(395, 175), 15
LINE (405, 160)-(395, 175), 15
PAINT (365, 170), 15
CIRCLE (385, 165), 35, 15
LINE (420, 180)-(400, 200), 0, BF
LINE (418, 180)-(450, 200), 15
LINE (400, 196)-(450, 200), 15
COLOR 15: LOCATE 10, 47: PRINT "5"
DO: COLOR 14: LOCATE 14, 5: INPUT "Also"; frage5
IF frage5 = 1 THEN GOTO weiter5
IF frage5 = 2 THEN GOTO KillenLassen
IF frage5 = 3 THEN GOTO GehtNich
LOOP
GehtNich: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast wohl mal"
LOCATE 6, 5: PRINT "wieder vllig ver-"
LOCATE 7, 5: PRINT "gessen, dass Du gar"
LOCATE 8, 5: PRINT "kein Schwert mitge-"
LOCATE 9, 5: PRINT "nommebn hast (!)."
COLOR 7: LOCATE 12, 8: PRINT "(Leertaste)": SLEEP: GOTO zurug
GehtNich2: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast wohl mal"
LOCATE 6, 5: PRINT "wieder vllig ver-"
LOCATE 7, 5: PRINT "gessen, dass Du gar"
LOCATE 8, 5: PRINT "keine Unterhosen ge-"
LOCATE 9, 5: PRINT "kauft hast (!)."
COLOR 7: LOCATE 12, 8: PRINT "(Leertaste)": SLEEP: GOTO zurug
KillenLassen: CLS : COLOR 14
LOCATE 5, 5: PRINT "Warum bist Du ei-"
LOCATE 6, 5: PRINT "gentlich so dumm"
LOCATE 7, 5: PRINT "und lsst Dich"
LOCATE 8, 5: PRINT "tten?"
LOCATE 9, 11: PRINT "HH?"
LOCATE 10, 15: PRINT "HH?"
COLOR 7: LOCATE 13, 7: PRINT "(Leertaste)": SLEEP: CALL tooot: GOTO weiter
weiter5: IF frage3 = 3 THEN ELSE GOTO GehtNich2
CLS : COLOR 14: LOCATE 5, 5: PRINT "Zum Glck hast Du"
LOCATE 6, 5: PRINT "vorhin noch Unter-"
LOCATE 7, 5: PRINT "hosen gekauft! Du"
LOCATE 8, 5: PRINT "gibst ihm die 5"
LOCATE 9, 5: PRINT "Unterhosen..."
LOCATE 12, 5: COLOR 7: PRINT "(Leertaste)"
SLEEP: CLS : COLOR 14: LOCATE 5, 5: PRINT "...und er verzieht"
LOCATE 6, 5: PRINT "sich! Da hast Du aber"
LOCATE 7, 5: PRINT "nochmal ganz schn"
LOCATE 8, 5: PRINT "Glck gehabt!"
LOCATE 9, 5: PRINT "Du fhrst weiter."
LINE (370, 370)-(430, 410), 9
LINE (370, 370)-(390, 400), 9
LINE (430, 410)-(390, 400), 9
PAINT (390, 390), 9
CIRCLE (310, 390), 5, 6
PAINT (310, 390), 6
LINE (305, 390)-(310, 410), 6
LINE (315, 390)-(320, 410), 6
LINE (310, 410)-(320, 410), 6
PAINT (311, 409), 6
LINE (200, 400)-(400, 450), 4, BF
CIRCLE (200, 425), 25, 4
CIRCLE (400, 425), 120, 4, , , .2
PAINT (199, 425), 4
PAINT (401, 425), 4
CIRCLE (230, 450), 22, 7
PAINT (230, 450), 7
CIRCLE (400, 450), 20, 7
PAINT (400, 450), 7
a = 0: DO: a = a + 1: CIRCLE (230, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (400, 450), a, 8: LOOP UNTIL a = 7
LINE (380, 400)-(390, 420), 0
LINE (390, 420)-(370, 445), 0
LINE (370, 445)-(303, 445), 0
LINE (303, 445)-(300, 400), 0
CIRCLE (326, 390), 10, 12, , , 1.1
PAINT (326, 390), 12
LINE (316, 390)-(316, 380), 7
LINE (318, 387)-(318, 377), 7
LINE (320, 384)-(320, 374), 7
a = 320: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 330
CIRCLE (330, 386), 1, 9
LINE (328, 396)-(333, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
LINE (50, 400)-(150, 400), 8
LINE (0, 420)-(100, 420), 8
LINE (25, 440)-(125, 440), 8
LOCATE 12, 7: COLOR 7: PRINT "(Leertaste)": SLEEP
weiter6: CLS : COLOR 14: LOCATE 5, 5: PRINT "Du fhrst also weiter"
LOCATE 6, 5: PRINT "und weiter. Spter auf"
LOCATE 7, 5: PRINT "dem Highway merkst Du,"
LOCATE 8, 5: PRINT "dass Dein Wagen streikt!"
LOCATE 9, 5: PRINT "Pltzlich siehst Du Mi-"
LOCATE 10, 5: PRINT "chael Jackson ber die"
LOCATE 11, 5: PRINT "Straáe laufen!"
LOCATE 12, 5: PRINT "Was willst Du tun?"
LOCATE 14, 8: PRINT "1 ihn begráen"
LOCATE 15, 8: PRINT "2 Dich verstecken"
LOCATE 16, 8: PRINT "3 weiterfahren"
LINE (500, 200)-(640, 475), 7, BF
LINE (498, 200)-(640, 195), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
CIRCLE (226, 390), 10, 12, , , 1.1
PAINT (226, 390), 12
LINE (216, 390)-(216, 380), 7
LINE (218, 387)-(218, 377), 7
LINE (220, 384)-(220, 374), 7
a = 220: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 230
CIRCLE (230, 386), 1, 9
LINE (228, 396)-(233, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
a = 350: B = 330
c = 370: d = 330
e = 390: f = 330
DO: PSET (a, B), 8
PSET (c, d), 8
PSET (e, f), 8
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
c = c + INT(RND * 2)
c = c - INT(RND * 2)
d = d + INT(RND * 2)
e = e + INT(RND * 2)
e = e - INT(RND * 2)
f = f + INT(RND * 2)
LOOP UNTIL B > 390
a = 0: DO: a = a + 4
CIRCLE (370, 300), a, 8, , , .2
LOOP UNTIL a > 70
'Jxn:
CIRCLE (550, 350), 10, 12, , , 1.1
PAINT (550, 350), 12
LINE (532, 345)-(565, 340), 0
LINE (540, 343)-(540, 340), 0
LINE (557, 341)-(557, 337), 0
LINE (540, 340)-(557, 337), 0
PAINT (541, 341), 0
CIRCLE (552, 373), 10, 10
PAINT (552, 373), 10
LINE (542, 373)-(562, 410), 10, BF
LINE (543, 411)-(561, 411), 1
LINE (543, 411)-(547, 460), 1
LINE (561, 411)-(559, 460), 1
LINE (547, 460)-(559, 460), 1
PAINT (550, 450), 1
CIRCLE (540, 467), 3, 0
PAINT (540, 467), 0
LINE (540, 470)-(562, 470), 0
LINE (562, 470)-(560, 462), 0
LINE (560, 462)-(550, 462), 0
LINE (550, 462)-(548, 464), 0
LINE (548, 464)-(540, 464), 0
PAINT (550, 467), 0
LINE (557, 470)-(552, 470), 7
LINE (551, 461)-(557, 461), 12
CIRCLE (552, 373), 5, 2
PAINT (552, 373), 2
LINE (548, 373)-(556, 390), 2, BF
LINE (549, 391)-(555, 405), 2, BF
LINE (551, 406)-(552, 410), 12, BF
LINE (553, 408)-(553, 413), 12
LINE (550, 408)-(550, 413), 12
LINE (551, 411)-(551, 415), 12
PSET (544, 347), 1
LINE (542, 355)-(544, 355), 4
PSET (545, 355), 4
c = 0: DO: c = c + 1
IF c < 6 THEN a = 552: B = 343
IF c > 5 THEN a = 557: B = 346
DO: PSET (a, B), 0
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
LOOP UNTIL B > 370
LOOP UNTIL c = 10
DO: LOCATE 18, 5: INPUT "Hello"; frage4
IF frage4 = 1 THEN GOTO Geist
IF frage4 = 2 THEN GOTO weiter7
IF frage4 = 3 THEN GOTO GehtNicht
LOOP
GehtNicht: CLS : COLOR 14: LOCATE 5, 5: PRINT "Dein Gedchtnis lsst"
LOCATE 6, 5: PRINT "wirklich zu wnschen"
LOCATE 7, 5: PRINT "brig! Weisst Du nicht"
LOCATE 8, 5: PRINT "mehr, dass Dein Wagen"
LOCATE 9, 5: PRINT "schon die ganze Zeit"
LOCATE 10, 5: PRINT "streikt (?!)."
LOCATE 13, 7: COLOR 7: PRINT "(Leertaste)": SLEEP: GOTO weiter6
Geist: CLS : COLOR 14: LOCATE 5, 5: PRINT "Du gehst zu ihm hin,"
LOCATE 6, 5: PRINT "um ihn zu begráen,"
LOCATE 7, 5: PRINT "als er sich pltzlich"
LOCATE 8, 5: PRINT "als der bse 'Unter-"
LOCATE 9, 5: PRINT "hosen-Geist' enttarnt!"
LOCATE 10, 5: PRINT "Er fordert"; : COLOR 12: PRINT " 10 "; : COLOR 14: PRINT "Unter-"
LOCATE 11, 5: PRINT "hosen von Dir! So"
LOCATE 12, 5: PRINT "viele hast Du natrlich"
LOCATE 13, 5: PRINT "nicht mehr, und deshalb"
LOCATE 14, 5: PRINT "killt er Dich..."
LINE (500, 200)-(640, 475), 7, BF
LINE (498, 200)-(640, 195), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
CIRCLE (226, 390), 10, 12, , , 1.1
PAINT (226, 390), 12
LINE (216, 390)-(216, 380), 7
LINE (218, 387)-(218, 377), 7
LINE (220, 384)-(220, 374), 7
a = 220: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 230
CIRCLE (230, 386), 1, 9
LINE (228, 396)-(233, 396), 4
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
a = 350: B = 330
c = 370: d = 330
e = 390: f = 330
DO: PSET (a, B), 8
PSET (c, d), 8
PSET (e, f), 8
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
c = c + INT(RND * 2)
c = c - INT(RND * 2)
d = d + INT(RND * 2)
e = e + INT(RND * 2)
e = e - INT(RND * 2)
f = f + INT(RND * 2)
LOOP UNTIL B > 390
a = 0: DO: a = a + 4
CIRCLE (370, 300), a, 8, , , .2
LOOP UNTIL a > 70
'Jxn:
CIRCLE (550, 350), 10, 12, , , 1.1
PAINT (550, 350), 12
LINE (532, 345)-(565, 340), 0
LINE (540, 343)-(540, 340), 0
LINE (557, 341)-(557, 337), 0
LINE (540, 340)-(557, 337), 0
PAINT (541, 341), 0
CIRCLE (552, 373), 10, 10
PAINT (552, 373), 10
LINE (542, 373)-(562, 410), 10, BF
LINE (543, 411)-(561, 411), 1
LINE (543, 411)-(547, 460), 1
LINE (561, 411)-(559, 460), 1
LINE (547, 460)-(559, 460), 1
PAINT (550, 450), 1
CIRCLE (540, 467), 3, 0
PAINT (540, 467), 0
LINE (540, 470)-(562, 470), 0
LINE (562, 470)-(560, 462), 0
LINE (560, 462)-(550, 462), 0
LINE (550, 462)-(548, 464), 0
LINE (548, 464)-(540, 464), 0
PAINT (550, 467), 0
LINE (557, 470)-(552, 470), 7
LINE (551, 461)-(557, 461), 12
CIRCLE (552, 373), 5, 2
PAINT (552, 373), 2
LINE (548, 373)-(556, 390), 2, BF
LINE (549, 391)-(555, 405), 2, BF
LINE (551, 406)-(552, 410), 12, BF
LINE (553, 408)-(553, 413), 12
LINE (550, 408)-(550, 413), 12
LINE (551, 411)-(551, 415), 12
PSET (544, 347), 1
LINE (542, 355)-(544, 355), 4
PSET (545, 355), 4
c = 0: DO: c = c + 1
IF c < 6 THEN a = 552: B = 343
IF c > 5 THEN a = 557: B = 346
DO: PSET (a, B), 0
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
LOOP UNTIL B > 370
LOOP UNTIL c = 10
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 550, INT(RND * 135) + 335), 7
LOOP UNTIL jo = 300
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 10) + 555, INT(RND * 135) + 335), 7
LOOP UNTIL jo = 600
jo = 20: DO: CIRCLE (580, 350), jo, 8, 4.5, 2
jo = jo - 1: LOOP UNTIL jo = 0
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 565, INT(RND * 30) + 335), 8
LOOP UNTIL jo = 50
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 575, INT(RND * 30) + 335), 7
LOOP UNTIL jo = 50
PSET (227, 397), 4
LOCATE 16, 5: COLOR 7: PRINT "(Leertaste)": SLEEP: CALL tooot: GOTO weiter
weiter7: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast wieder mal ein"
LOCATE 6, 5: PRINT "riesengroáes Schwein"
LOCATE 7, 5: PRINT "gehabt!"
LOCATE 8, 5: PRINT "Michael Jackson enttarnt"
LOCATE 9, 5: PRINT "sich nmlich als der"
LOCATE 10, 5: PRINT "'Unterhosen-Geist'. Zum"
LOCATE 11, 5: PRINT "Glck entdeckt er Dich"
LOCATE 12, 5: PRINT "nicht (Du hast Dich ja"
LOCATE 13, 5: PRINT "auch hinter'm Auto ver-"
LOCATE 14, 5: PRINT "steckt!)"
LOCATE 15, 5: PRINT "Puh, das war knapp!"
LOCATE 17, 7: COLOR 7: PRINT "(Lertaste)"
CIRCLE (76, 390), 10, 12, , , 1.1
PAINT (76, 390), 12
LINE (66, 390)-(66, 380), 7
LINE (68, 387)-(68, 377), 7
LINE (70, 384)-(70, 374), 7
a = 70: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 80
CIRCLE (80, 386), 1, 9
LINE (78, 396)-(83, 396), 4
CIRCLE (70, 420), 25, 9, , , 2
PAINT (70, 420), 9
CIRCLE (70, 460), 10, 1
PAINT (70, 460), 1
LINE (60, 420)-(80, 452), 9, BF
LINE (70, 453)-(147, 468), 1, BF
LINE (147, 450)-(155, 470), 6, BF
LINE (155, 467)-(155, 463), 0
LINE (500, 200)-(640, 475), 7, BF
LINE (498, 200)-(640, 195), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
a = 350: B = 330
c = 370: d = 330
e = 390: f = 330
DO: PSET (a, B), 8
PSET (c, d), 8
PSET (e, f), 8
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
c = c + INT(RND * 2)
c = c - INT(RND * 2)
d = d + INT(RND * 2)
e = e + INT(RND * 2)
e = e - INT(RND * 2)
f = f + INT(RND * 2)
LOOP UNTIL B > 390
a = 0: DO: a = a + 4
CIRCLE (370, 300), a, 8, , , .2
LOOP UNTIL a > 70
'Jxn:
CIRCLE (550, 350), 10, 12, , , 1.1
PAINT (550, 350), 12
LINE (532, 345)-(565, 340), 0
LINE (540, 343)-(540, 340), 0
LINE (557, 341)-(557, 337), 0
LINE (540, 340)-(557, 337), 0
PAINT (541, 341), 0
CIRCLE (552, 373), 10, 10
PAINT (552, 373), 10
LINE (542, 373)-(562, 410), 10, BF
LINE (543, 411)-(561, 411), 1
LINE (543, 411)-(547, 460), 1
LINE (561, 411)-(559, 460), 1
LINE (547, 460)-(559, 460), 1
PAINT (550, 450), 1
CIRCLE (540, 467), 3, 0
PAINT (540, 467), 0
LINE (540, 470)-(562, 470), 0
LINE (562, 470)-(560, 462), 0
LINE (560, 462)-(550, 462), 0
LINE (550, 462)-(548, 464), 0
LINE (548, 464)-(540, 464), 0
PAINT (550, 467), 0
LINE (557, 470)-(552, 470), 7
LINE (551, 461)-(557, 461), 12
CIRCLE (552, 373), 5, 2
PAINT (552, 373), 2
LINE (548, 373)-(556, 390), 2, BF
LINE (549, 391)-(555, 405), 2, BF
LINE (551, 406)-(552, 410), 12, BF
LINE (553, 408)-(553, 413), 12
LINE (550, 408)-(550, 413), 12
LINE (551, 411)-(551, 415), 12
PSET (544, 347), 1
LINE (542, 355)-(544, 355), 4
PSET (545, 355), 4
c = 0: DO: c = c + 1
IF c < 6 THEN a = 552: B = 343
IF c > 5 THEN a = 557: B = 346
DO: PSET (a, B), 0
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
LOOP UNTIL B > 370
LOOP UNTIL c = 10
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 550, INT(RND * 135) + 335), 7
LOOP UNTIL jo = 300
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 10) + 555, INT(RND * 135) + 335), 7
LOOP UNTIL jo = 600
jo = 20: DO: CIRCLE (580, 350), jo, 8, 4.5, 2
jo = jo - 1: LOOP UNTIL jo = 0
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 565, INT(RND * 30) + 335), 8
LOOP UNTIL jo = 50
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 20) + 575, INT(RND * 30) + 335), 7
LOOP UNTIL jo = 50
SLEEP: CLS : COLOR 10: B = 0: DO: a = INT(RND * 640): c = INT(RND * 480)
B = B + 1: PSET (a, c), 15
LOOP UNTIL B = 200: LOCATE 15, 20: PRINT "Neues Passwort:"
LOCATE 15, 38: COLOR 15: PRINT "UNTERHOSENGEIST"
LOCATE 28, 5: COLOR 7: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP
Passwort2: CLS : COLOR 14
LOCATE 5, 5: PRINT "Also: Dein Wagen streikt!"
LOCATE 6, 5: PRINT "Was willst Du jetzt tun?"
LOCATE 8, 8: PRINT "1 Zu einer Werkstatt"
LOCATE 9, 10: PRINT "laufen"
LOCATE 10, 8: PRINT "2 Zu Fuá weiter"
LOCATE 11, 8: PRINT "3 Beim Wagen bleiben"
LINE (500, 200)-(640, 475), 7, BF
LINE (498, 200)-(640, 195), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (100, 400)-(300, 450), 4, BF
CIRCLE (100, 425), 25, 4
CIRCLE (300, 425), 120, 4, , , .2
PAINT (99, 425), 4
PAINT (301, 425), 4
CIRCLE (130, 450), 22, 7
PAINT (130, 450), 7
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (130, 450), a, 8: LOOP UNTIL a = 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
LINE (0, 471)-(640, 475), 8, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
a = 350: B = 330
c = 370: d = 330
e = 390: f = 330
DO: PSET (a, B), 8
PSET (c, d), 8
PSET (e, f), 8
a = a + INT(RND * 2)
a = a - INT(RND * 2)
B = B + INT(RND * 2)
c = c + INT(RND * 2)
c = c - INT(RND * 2)
d = d + INT(RND * 2)
e = e + INT(RND * 2)
e = e - INT(RND * 2)
f = f + INT(RND * 2)
LOOP UNTIL B > 390
a = 0: DO: a = a + 4
CIRCLE (370, 300), a, 8, , , .2
LOOP UNTIL a > 70
CIRCLE (226, 390), 10, 12, , , 1.1
PAINT (226, 390), 12
LINE (216, 390)-(216, 380), 7
LINE (218, 387)-(218, 377), 7
LINE (220, 384)-(220, 374), 7
a = 220: DO: a = a + 2
LINE (a, 380)-(a, 374), 7
LOOP UNTIL a = 230
CIRCLE (230, 386), 1, 9
LINE (230, 395)-(234, 395), 4
PSET (229, 394), 4
DO: LOCATE 13, 5: INPUT "H"; frage5
IF frage5 = 1 THEN GOTO weiter8
IF frage5 = 2 THEN GOTO weiter0
IF frage5 = 3 THEN GOTO GeistKommtWieder
LOOP
weiter0: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du lufst ganz alleine,"
LOCATE 6, 5: PRINT "ohne einen Schutz, ohne"
LOCATE 7, 5: PRINT "irgendetwas, ohne Unter-"
LOCATE 8, 5: PRINT "hosen los..."
LOCATE 11, 7: COLOR 7: PRINT "(Leertaste)": SLEEP: CLS
LOCATE 5, 5: COLOR 14: PRINT "Das war ein FEHLER!"
LOCATE 6, 5: PRINT "Natrlich verfolgt Dich"
LOCATE 7, 5: PRINT "mal wieder Dein Lieb-"
LOCATE 8, 5: PRINT "lings-(Unterhosen)wurm."
LOCATE 9, 5: PRINT "Aber diesmal sieht er"
LOCATE 10, 5: PRINT "Dich und es ist natr-"
LOCATE 11, 5: PRINT "lich klar, was passiert..."
LOCATE 14, 7: COLOR 7: PRINT "(Leertaste)": SLEEP: CALL tooot: GOTO weiter
GeistKommtWieder: CLS : COLOR 14
LOCATE 5, 5: PRINT "Beim Wagen zu bleiben"
LOCATE 6, 5: PRINT "ist keine gute Idee,"
LOCATE 7, 5: PRINT "denn Dein alter Freund"
LOCATE 8, 5: PRINT "-der Unterhosengeist-"
LOCATE 9, 5: PRINT "kommt wieder vorbei"
LOCATE 10, 5: PRINT "und entdeckt Dich..."
LOCATE 11, 5: PRINT "folglich killt er"
LOCATE 12, 5: PRINT "Dich!"
LOCATE 14, 7: COLOR 7: PRINT "(Leertaste)": SLEEP: CALL tooot: GOTO weiter
weiter8: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du lufst weiter, aber"
LOCATE 6, 5: PRINT "es verfolgt Dich wieder"
LOCATE 7, 5: PRINT "mal Dein Geist..."
LOCATE 9, 5: PRINT "Es folgt ein kleines"
LOCATE 10, 5: PRINT "Spiel; Du ("; : COLOR 15: PRINT CHR$(1);
COLOR 14: PRINT ") musst vor dem"
LOCATE 11, 5: PRINT "roten Kopf ("; : COLOR 4: PRINT CHR$(2);
COLOR 14: PRINT ") abhauen!"
LOCATE 17, 7: COLOR 7: PRINT "(Leertaste)"
SLEEP: CLS : a = 15: B = 10
c = 15: d = 70: LOCATE 15, 30
COLOR 7: PRINT "Taste fr los...": SLEEP
LOCATE 15, 30: PRINT " "
anmachen = TIMER
DO: COLOR 15: IF a < 1 THEN a = 28
IF a > 28 THEN a = 1
IF B < 1 THEN B = 80
IF B > 80 THEN B = 1
IF c < 1 THEN c = 1
IF c > 28 THEN c = 28
IF d < 1 THEN d = 1
IF d > 80 THEN d = 80
LOCATE a, B: PRINT CHR$(1): COLOR 4
LOCATE c, d: PRINT CHR$(2)
'SOUND 0, 1: LOCATE c, d: PRINT " "
LOCATE a, B: PRINT " "
key$ = INKEY$: IF key$ = CHR$(0) + "H" THEN a = a - 1
IF key$ = CHR$(0) + "K" THEN B = B - 1
IF key$ = CHR$(0) + "P" THEN a = a + 1
IF key$ = CHR$(0) + "M" THEN B = B + 1
COLOR 15: IF a < 1 THEN a = 28
IF a > 28 THEN a = 1
IF B < 1 THEN B = 80
IF B > 80 THEN B = 1
IF c < 1 THEN c = 28
IF c > 28 THEN c = 1
IF d < 1 THEN d = 80
IF d > 80 THEN d = 1
LOCATE a, B: PRINT CHR$(1)
COLOR 4: LOCATE c, d: PRINT CHR$(2)
'SOUND 0, 1: LOCATE c, d: PRINT " "
LOCATE a, B: PRINT " "
key$ = INKEY$: IF key$ = CHR$(0) + "H" THEN a = a - 1
IF key$ = CHR$(0) + "K" THEN B = B - 1
IF key$ = CHR$(0) + "P" THEN a = a + 1
IF key$ = CHR$(0) + "M" THEN B = B + 1
IF c > a THEN c = c - 1
IF d > B THEN d = d - 1
IF c < a THEN c = c + 1
IF d < B THEN d = d + 1
IF a = c AND B = d THEN GOTO verloren
ausmachen = TIMER
LOCATE 1, 69: COLOR 7: PRINT USING "##.#"; ausmachen - anmachen; : PRINT " / 30.0"
LOOP UNTIL ausmachen - anmachen > 30: GOTO weiter9
verloren: CLS : COLOR 14
LOCATE 5, 5: PRINT "Leider schnappt Dich"
LOCATE 6, 5: PRINT "der Geist auf dem Weg"
LOCATE 7, 5: PRINT "zur Werkstatt und da"
LOCATE 8, 5: PRINT "Du ja keine Unterhosen"
LOCATE 9, 5: PRINT "mehr hast, killt er"
LOCATE 10, 5: PRINT "Dich..."
LOCATE 13, 7: COLOR 7: PRINT "(Leertaste)"
DO: LOOP UNTIL INKEY$ = " ": CALL tooot: GOTO weiter
weiter9: CLS : COLOR 14
LOCATE 5, 5: PRINT "YEAH! Das war knapp!"
LOCATE 6, 5: PRINT "Du konntest dem Geist"
LOCATE 7, 5: PRINT "ja noch gerade so ent-"
LOCATE 8, 5: PRINT "kommen!"
LOCATE 11, 7: COLOR 7: PRINT "(Leertaste)": DO: LOOP UNTIL INKEY$ = " "
CLS : COLOR 10: c = 0: DO: a = INT(RND * 640)
B = INT(RND * 480): PSET (a, B), 15: c = c + 1
LOOP UNTIL c = 200: LOCATE 15, 23: PRINT "Neues Passwort:"
LOCATE 15, 40: COLOR 15: PRINT "WERKSTATT": COLOR 7
LOCATE 28, 5: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP
Passwort3: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du befindest Dich jetzt"
LOCATE 6, 5: PRINT "in der Werkstatt, um"
LOCATE 7, 5: PRINT "Deinen Wagen reparieren"
LOCATE 8, 5: PRINT "zu lassen!"
LOCATE 9, 5: PRINT "Willst Du warten, bis der"
LOCATE 10, 5: PRINT "Wagen fertig ist, oder"
LOCATE 11, 5: PRINT "so lange spazierengehen?"
LOCATE 13, 7: PRINT "1 warten"
LOCATE 14, 7: PRINT "2 spazierengehen"
LINE (0, 280)-(500, 470), 14, BF
LINE (170, 310)-(480, 470), 8, BF
LINE (0, 280)-(505, 285), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (170, 400)-(300, 450), 4, BF
CIRCLE (300, 425), 120, 4, , , .2
PAINT (301, 425), 4
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
LINE (0, 471)-(640, 475), 7, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
LINE (320, 400)-(400, 350), 4
LINE (321, 400)-(401, 350), 4
LOCATE 19, 30: COLOR 14: PRINT "-WERKSTATT-"
DO: LOCATE 16, 5: INPUT "H"; frage6
IF frage6 = 1 THEN GOTO warten
IF frage6 = 2 THEN GOTO gehen
LOOP
warten: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du wartest also, bis"
LOCATE 6, 5: PRINT "Dein Wagen fertig ist"
LOCATE 7, 5: PRINT "und bezahlst die Reparatur!"
LOCATE 8, 5: PRINT "Wo willst Du als nchstes"
LOCATE 9, 5: PRINT "hinfahren?"
LOCATE 11, 7: PRINT "1 nach Hause"
LOCATE 12, 7: PRINT "2 in eine andere"
LOCATE 13, 9: PRINT "Stadt"
LOCATE 14, 7: PRINT "3 Freund"
LINE (0, 280)-(500, 470), 14, BF
LINE (170, 310)-(480, 470), 8, BF
LINE (0, 280)-(505, 285), 8, BF
LINE (270, 370)-(330, 410), 9
LINE (270, 370)-(290, 400), 9
LINE (330, 410)-(290, 400), 9
PAINT (290, 390), 9
CIRCLE (210, 390), 5, 6
PAINT (210, 390), 6
LINE (205, 390)-(210, 410), 6
LINE (215, 390)-(220, 410), 6
LINE (210, 410)-(220, 410), 6
PAINT (211, 409), 6
LINE (170, 400)-(300, 450), 4, BF
CIRCLE (300, 425), 120, 4, , , .2
PAINT (301, 425), 4
CIRCLE (300, 450), 20, 7
PAINT (300, 450), 7
a = 0: DO: a = a + 1: CIRCLE (300, 450), a, 8: LOOP UNTIL a = 7
LINE (280, 400)-(290, 420), 0
LINE (290, 420)-(270, 445), 0
LINE (270, 445)-(203, 445), 0
LINE (203, 445)-(200, 400), 0
LINE (0, 471)-(640, 475), 7, BF
a = 0: DO: a = a + 1
PSET (RND * 640, INT(RND * 4) + 476), 2
LOOP UNTIL a = 600
LINE (320, 400)-(400, 350), 4
LINE (321, 400)-(401, 350), 4
LOCATE 19, 30: COLOR 14: PRINT "-WERKSTATT-"
LOCATE 16, 5: INPUT "What's up"; frage7: GOTO weiter10
gehen: CLS : COLOR 14: LOCATE 5, 5: PRINT "Du gehst also spazieren,"
LOCATE 6, 5: PRINT "bis Dein Wagen fertig ist"
LOCATE 7, 5: PRINT "und bezahlst die Raparatur!"
LOCATE 8, 5: PRINT "Wo willst Du als nchstes"
LOCATE 9, 5: PRINT "hinfahren?"
LOCATE 11, 7: PRINT "1 nach Hause"
LOCATE 12, 7: PRINT "2 in eine andere"
LOCATE 13, 9: PRINT "Stadt"
LOCATE 14, 7: PRINT "3 Freund"
jo = 0: DO: jo = jo + 1
PSET (RND * 640, RND * 480), 15: LOOP UNTIL jo = 200
LINE (115, 400)-(150, 480), 8, BF
LINE (115, 400)-(150, 480), 7, B
LINE (40, 420)-(130, 480), 8, BF
LINE (40, 420)-(130, 480), 7, B
LINE (110, 450)-(160, 480), 8, BF
LINE (110, 450)-(160, 480), 7, B
LINE (60, 350)-(100, 480), 8, BF
LINE (60, 350)-(100, 480), 7, B
LINE (0, 400)-(50, 480), 8, BF
LINE (0, 400)-(50, 480), 7, B
LINE (10, 460)-(80, 480), 8, BF
LINE (10, 460)-(80, 480), 7, B
LINE (120, 470)-(180, 480), 8, BF
LINE (120, 470)-(180, 480), 7, B
LINE (400, 200)-(640, 480), 9, BF
LINE (395, 200)-(640, 205), 8, BF
LINE (395, 199)-(639, 199), 4
LINE (395, 199)-(639, 150), 4
LINE (639, 199)-(639, 150), 4
PAINT (630, 170), 4
LINE (500, 470)-(600, 480), 8, BF
LINE (500, 470)-(600, 480), 0, B
CIRCLE (550, 350), 50, 6
PAINT (550, 350), 6
LINE (500, 350)-(600, 469), 6, BF
CIRCLE (550, 350), 50, 0, , 3
LINE (500, 343)-(500, 470), 0
LINE (600, 350)-(600, 470), 0
LINE (550, 300)-(550, 470), 0
LINE (420, 315)-(480, 395), 6, BF
LINE (423, 318)-(477, 392), 0, B
LINE (424, 319)-(476, 391), 14, BF
LINE (450, 319)-(450, 391), 0
LINE (424, 355)-(476, 355), 0
LOCATE 26, 78: COLOR 9: PRINT "DU"
LOCATE 26, 56: PRINT "FREUND"
LOCATE 16, 5: COLOR 14: INPUT "What's up"; frage7
weiter10: IF frage7 = 1 THEN GOTO NachHause
IF frage7 = 2 THEN GOTO Stadt
IF frage7 = 3 THEN GOTO Freund
IF frage6 = 1 THEN GOTO warten
IF frage6 = 2 THEN GOTO gehen
joh = 0
NachHause: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du fhrst nach Hause,"
LOCATE 6, 5: PRINT "dort triffst Du Deinen"
LOCATE 7, 5: PRINT "Freund. Was willst Du"
LOCATE 8, 5: PRINT "mit ihm machen?"
LOCATE 10, 7: PRINT "1 wegfahren"
LOCATE 11, 7: PRINT "2 Unterhosen"
LOCATE 12, 9: PRINT "kaufen gehen"
LOCATE 13, 7: PRINT "3 Lieber doch nix"
jo = 0: DO: jo = jo + 1
PSET (RND * 640, RND * 480), 15: LOOP UNTIL jo = 200
LINE (400, 200)-(640, 480), 9, BF
LINE (395, 200)-(640, 205), 8, BF
LINE (395, 199)-(639, 199), 4
LINE (395, 199)-(639, 150), 4
LINE (639, 199)-(639, 150), 4
PAINT (630, 170), 4
LINE (500, 470)-(600, 480), 8, BF
LINE (500, 470)-(600, 480), 0, B
CIRCLE (550, 350), 50, 6
PAINT (550, 350), 6
LINE (500, 350)-(600, 469), 6, BF
CIRCLE (550, 350), 50, 0, , 3
LINE (500, 343)-(500, 470), 0
LINE (600, 350)-(600, 470), 0
LINE (550, 300)-(550, 470), 0
LINE (420, 315)-(480, 395), 6, BF
LINE (423, 318)-(477, 392), 0, B
LINE (424, 319)-(476, 391), 14, BF
LINE (450, 319)-(450, 391), 0
LINE (424, 355)-(476, 355), 0
LOCATE 26, 78: COLOR 9: PRINT "DU"
LOCATE 26, 56: PRINT "FREUND"
LOCATE 15, 5: COLOR 14: INPUT "Wat"; frage8
IF frage8 = 1 THEN GOTO tot001
IF frage8 = 2 THEN GOTO tot002
IF frage8 = 3 THEN joh = joh + 1: GOTO weiter11 ELSE GOTO NachHause
Stadt: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du tuckerst in eine"
LOCATE 6, 5: PRINT "andere Stadt. Leider"
LOCATE 7, 5: PRINT "verirrst Du Dich und"
LOCATE 8, 5: PRINT "triffst auf dem Rck-"
LOCATE 9, 5: PRINT "weg den Unterhosengeist..."
LOCATE 12, 7: COLOR 7: PRINT "(Leertaste)"
SLEEP: CALL tooot: GOTO weiter
joh = 0
Freund: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du fhrst zu Deinem"
LOCATE 6, 5: PRINT "Freund. (Auf der Auto-"
LOCATE 7, 5: PRINT "bahn gab es eine Bau-"
LOCATE 8, 5: PRINT "stelle.) Was willst Du"
LOCATE 9, 5: PRINT "mit ihm machen?"
LOCATE 11, 7: PRINT "1 wegfahren"
LOCATE 12, 7: PRINT "2 Unterhosen"
LOCATE 13, 9: PRINT "kaufen gehen"
LOCATE 14, 7: PRINT "3 Lieber doch nix"
jo = 0: DO: jo = jo + 1
PSET (RND * 640, RND * 480), 15: LOOP UNTIL jo = 200
LINE (400, 200)-(640, 480), 9, BF
LINE (395, 200)-(640, 205), 8, BF
LINE (395, 199)-(639, 199), 4
LINE (395, 199)-(639, 150), 4
LINE (639, 199)-(639, 150), 4
PAINT (630, 170), 4
LINE (500, 470)-(600, 480), 8, BF
LINE (500, 470)-(600, 480), 0, B
CIRCLE (550, 350), 50, 6
PAINT (550, 350), 6
LINE (500, 350)-(600, 469), 6, BF
CIRCLE (550, 350), 50, 0, , 3
LINE (500, 343)-(500, 470), 0
LINE (600, 350)-(600, 470), 0
LINE (550, 300)-(550, 470), 0
LINE (420, 315)-(480, 395), 6, BF
LINE (423, 318)-(477, 392), 0, B
LINE (424, 319)-(476, 391), 14, BF
LINE (450, 319)-(450, 391), 0
LINE (424, 355)-(476, 355), 0
LOCATE 26, 78: COLOR 9: PRINT "DU"
LOCATE 26, 56: PRINT "FREUND"
LOCATE 16, 5: COLOR 14: INPUT "Wat"; frage8
IF frage8 = 1 THEN GOTO tot001
IF frage8 = 2 THEN GOTO tot002
IF frage8 = 3 THEN joh = joh + 1: GOTO weiter11 ELSE GOTO Freund
tot001: CLS : COLOR 14
LOCATE 5, 5: PRINT "Als Du so mit Deinem"
LOCATE 6, 5: PRINT "Freund wegfhrst, ent-"
LOCATE 7, 5: PRINT "deckst Du pltzlich"
LOCATE 8, 5: PRINT "einen alten Bekannten"
LOCATE 9, 5: PRINT "T-ShirtGespenst?"
LOCATE 10, 5: PRINT "Quatsch! UNTERHOSENGEIST!"
LOCATE 11, 5: PRINT "Naja, ich denke, es"
LOCATE 12, 5: PRINT "ist klar, was passiert..."
LOCATE 15, 7: COLOR 7: PRINT "(Leertaste)"
SLEEP: CALL tooot: GOTO weiter
tot002: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du gehst mit Deinem"
LOCATE 6, 5: PRINT "Freund Unterhosen kau-"
LOCATE 7, 5: PRINT "fen! Aber es ist schon"
LOCATE 8, 5: PRINT "zu spt,als Du pltzlich"
LOCATE 8, 5: PRINT "einen alten Bekannten"
LOCATE 9, 5: PRINT "bemerkst. T-ShirtGespenst?"
LOCATE 10, 5: PRINT "Quatsch! UNTERHOSENGEIST!"
LOCATE 11, 5: PRINT "Naja, ich denke, es"
LOCATE 12, 5: PRINT "ist klar, was passiert..."
LOCATE 15, 7: COLOR 7: PRINT "(Leertaste)"
SLEEP: CALL tooot: GOTO weiter
weiter11: CLS : COLOR 14
IF joh > 1 THEN GOTO weiter12
LOCATE 5, 5: PRINT "Was, Du willst nichts mit"
LOCATE 6, 5: PRINT "ihm machen? berleg's Dir"
LOCATE 7, 5: PRINT "doch bitte noch mal!"
LOCATE 10, 8: COLOR 7: PRINT "(Leertaste)"
SLEEP: IF frage7 = 1 THEN GOTO NachHause
IF frage7 = 3 THEN GOTO Freund
weiter12: CLS : COLOR 10
c = 0: DO: c = c + 1: a = INT(RND * 640)
B = INT(RND * 480): PSET (a, B), 15: LOOP UNTIL c = 200
LOCATE 15, 23: PRINT "Neues Passwort:": LOCATE 15, 40
COLOR 15: PRINT "FREUND": COLOR 7: LOCATE 28, 5: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP: CLS
Passwort4: CLS : LOCATE 5, 5: COLOR 14
PRINT "Super! Was willst Du denn"
LOCATE 6, 5: PRINT "berhaupt noch machen?"
LOCATE 7, 5: PRINT "Willst Du Dich etwa"
LOCATE 8, 5: PRINT "umbringen?"
LOCATE 10, 7: PRINT "1 ja"
LOCATE 11, 7: PRINT "2 nein"
CIRCLE (450, 250), 15, 13, , , 1.5
PAINT (450, 250), 13
CIRCLE (445, 250), 1, 9
CIRCLE (455, 248), 1, 9
PAINT (445, 250), 9: PAINT (455, 248), 9
LINE (448, 258)-(452, 258), 4
LINE (440, 230)-(440, 246), 7
LINE (442, 230)-(442, 240), 7
LINE (444, 230)-(444, 238), 7
LINE (446, 230)-(446, 236), 7
LINE (448, 230)-(448, 234), 7
LINE (450, 230)-(450, 234), 7
LINE (452, 230)-(452, 234), 7
LINE (454, 230)-(454, 236), 7
LINE (456, 230)-(456, 238), 7
LINE (458, 230)-(458, 240), 7
LINE (460, 230)-(460, 246), 7
LINE (450, 249)-(450, 252), 6
CIRCLE (450, 310), 30, 1, , , 1.5
PAINT (450, 310), 1
CIRCLE (440, 275), 10, 1
CIRCLE (460, 275), 10, 1
PAINT (440, 270), 1
PAINT (460, 270), 1
CIRCLE (425, 273), 10, 1, , , .5
CIRCLE (475, 273), 10, 1, , , .5
PAINT (425, 273), 1
PAINT (475, 275), 1
LINE (460, 267)-(440, 270), 1, BF
CIRCLE (415, 290), 20, 1, , , 4
CIRCLE (485, 290), 20, 1, , , 4
PAINT (415, 290), 1
PAINT (485, 290), 1
LINE (481, 290)-(489, 310), 1, BF
LINE (411, 290)-(419, 310), 1, BF
CIRCLE (414, 315), 4, 13
PAINT (414, 315), 13
LINE (410, 315)-(410, 320), 13
LINE (412, 315)-(412, 322), 13
LINE (414, 315)-(414, 324), 13
LINE (416, 315)-(416, 322), 13
LINE (418, 315)-(418, 320), 13
LINE (419, 315)-(419, 320), 13
CIRCLE (486, 315), 4, 13
PAINT (486, 315), 13
LINE (490, 315)-(490, 320), 13
LINE (488, 315)-(488, 322), 13
LINE (486, 315)-(486, 324), 13
LINE (484, 315)-(484, 322), 13
LINE (482, 315)-(482, 320), 13
LINE (481, 315)-(481, 320), 13
LINE (435, 329)-(425, 400), 3
LINE (465, 329)-(475, 400), 3
LINE (425, 400)-(440, 400), 3
LINE (475, 400)-(460, 400), 3
LINE (440, 400)-(455, 331), 3
LINE (460, 400)-(445, 331), 3
LINE (435, 329)-(465, 329), 3
PAINT (465, 395), 3
CIRCLE (415, 405), 5, 6
CIRCLE (485, 405), 5, 6
PAINT (415, 405), 6
PAINT (485, 405), 6
LINE (433, 270)-(467, 329), 1, BF
LINE (415, 401)-(430, 410), 6, BF
LINE (431, 400)-(440, 410), 6, BF
LINE (485, 401)-(470, 410), 6, BF
LINE (469, 400)-(460, 410), 6, BF
CIRCLE (250, 250), 15, 12, , , 1.5
PAINT (250, 250), 12
CIRCLE (245, 248), 1, 9
CIRCLE (255, 248), 1, 9
PAINT (245, 248), 9: PAINT (255, 248), 9
LINE (248, 258)-(252, 258), 4
LINE (240, 230)-(240, 246), 7
LINE (242, 230)-(242, 240), 7
LINE (244, 230)-(244, 238), 7
LINE (246, 230)-(246, 236), 7
LINE (248, 230)-(248, 234), 7
LINE (250, 230)-(250, 234), 7
LINE (252, 230)-(252, 234), 7
LINE (254, 230)-(254, 236), 7
LINE (256, 230)-(256, 238), 7
LINE (258, 230)-(258, 240), 7
LINE (260, 230)-(260, 246), 7
LINE (250, 249)-(250, 252), 6
CIRCLE (250, 310), 30, 1, , , 1.5
PAINT (250, 310), 1
CIRCLE (240, 275), 10, 1
CIRCLE (260, 275), 10, 1
PAINT (240, 270), 1
PAINT (260, 270), 1
CIRCLE (225, 273), 10, 1, , , .5
CIRCLE (275, 273), 10, 1, , , .5
PAINT (225, 273), 1
PAINT (275, 275), 1
LINE (260, 267)-(240, 270), 1, BF
CIRCLE (215, 290), 20, 1, , , 4
CIRCLE (285, 290), 20, 1, , , 4
PAINT (215, 290), 1
PAINT (285, 290), 1
LINE (281, 290)-(289, 310), 1, BF
LINE (211, 290)-(219, 310), 1, BF
CIRCLE (214, 315), 4, 12
PAINT (214, 315), 12
LINE (210, 315)-(210, 320), 12
LINE (212, 315)-(212, 322), 12
LINE (214, 315)-(214, 324), 12
LINE (216, 315)-(216, 322), 12
LINE (218, 315)-(218, 320), 12
LINE (219, 315)-(219, 320), 12
CIRCLE (286, 315), 4, 12
PAINT (286, 315), 12
LINE (290, 315)-(290, 320), 12
LINE (288, 315)-(288, 322), 12
LINE (286, 315)-(286, 324), 12
LINE (284, 315)-(284, 322), 12
LINE (282, 315)-(282, 320), 12
LINE (281, 315)-(281, 320), 12
LINE (235, 329)-(225, 400), 3
LINE (265, 329)-(275, 400), 3
LINE (225, 400)-(240, 400), 3
LINE (275, 400)-(260, 400), 3
LINE (240, 400)-(255, 331), 3
LINE (260, 400)-(245, 331), 3
LINE (235, 329)-(265, 329), 3
PAINT (265, 395), 3
CIRCLE (215, 405), 5, 6
CIRCLE (285, 405), 5, 6
PAINT (215, 405), 6
PAINT (285, 405), 6
LINE (233, 270)-(267, 329), 1, BF
LINE (215, 401)-(230, 410), 6, BF
LINE (231, 400)-(240, 410), 6, BF
LINE (285, 401)-(270, 410), 6, BF
LINE (269, 400)-(260, 410), 6, BF
LINE (235, 264)-(465, 267), 6, BF
LINE (340, 220)-(360, 480), 6, BF
a = 0: DO: a = a + 2
LINE (a - 2, 476)-(a - 2, 479), 2
LOOP UNTIL a = 642: COLOR 14
LOCATE 13, 5: INPUT "H? Killen"; frage9
IF frage9 = 1 THEN GOTO tot2
IF frage9 = 2 THEN GOTO weiter13 ELSE GOTO Passwort4
tot2: CLS : COLOR 14
LOCATE 5, 5: PRINT "Mit was willst Du"
LOCATE 6, 5: PRINT "Dich umbringen?"
LOCATE 8, 7: PRINT "1 Messer"
LOCATE 9, 7: PRINT "2 Pistole"
LOCATE 10, 7: PRINT "3 Galgen"
LOCATE 11, 7: PRINT "4 Gift"
CIRCLE (450, 250), 15, 13, , , 1.5
PAINT (450, 250), 13
CIRCLE (445, 250), 1, 9
CIRCLE (455, 248), 1, 9
PAINT (445, 250), 9: PAINT (455, 248), 9
LINE (448, 258)-(452, 258), 4
LINE (440, 230)-(440, 246), 7
LINE (442, 230)-(442, 240), 7
LINE (444, 230)-(444, 238), 7
LINE (446, 230)-(446, 236), 7
LINE (448, 230)-(448, 234), 7
LINE (450, 230)-(450, 234), 7
LINE (452, 230)-(452, 234), 7
LINE (454, 230)-(454, 236), 7
LINE (456, 230)-(456, 238), 7
LINE (458, 230)-(458, 240), 7
LINE (460, 230)-(460, 246), 7
LINE (450, 249)-(450, 252), 6
CIRCLE (450, 310), 30, 1, , , 1.5
PAINT (450, 310), 1
CIRCLE (440, 275), 10, 1
CIRCLE (460, 275), 10, 1
PAINT (440, 270), 1
PAINT (460, 270), 1
CIRCLE (425, 273), 10, 1, , , .5
CIRCLE (475, 273), 10, 1, , , .5
PAINT (425, 273), 1
PAINT (475, 275), 1
LINE (460, 267)-(440, 270), 1, BF
CIRCLE (415, 290), 20, 1, , , 4
CIRCLE (485, 290), 20, 1, , , 4
PAINT (415, 290), 1
PAINT (485, 290), 1
LINE (481, 290)-(489, 310), 1, BF
LINE (411, 290)-(419, 310), 1, BF
CIRCLE (414, 315), 4, 13
PAINT (414, 315), 13
LINE (410, 315)-(410, 320), 13
LINE (412, 315)-(412, 322), 13
LINE (414, 315)-(414, 324), 13
LINE (416, 315)-(416, 322), 13
LINE (418, 315)-(418, 320), 13
LINE (419, 315)-(419, 320), 13
CIRCLE (486, 315), 4, 13
PAINT (486, 315), 13
LINE (490, 315)-(490, 320), 13
LINE (488, 315)-(488, 322), 13
LINE (486, 315)-(486, 324), 13
LINE (484, 315)-(484, 322), 13
LINE (482, 315)-(482, 320), 13
LINE (481, 315)-(481, 320), 13
LINE (435, 329)-(425, 400), 3
LINE (465, 329)-(475, 400), 3
LINE (425, 400)-(440, 400), 3
LINE (475, 400)-(460, 400), 3
LINE (440, 400)-(455, 331), 3
LINE (460, 400)-(445, 331), 3
LINE (435, 329)-(465, 329), 3
PAINT (465, 395), 3
CIRCLE (415, 405), 5, 6
CIRCLE (485, 405), 5, 6
PAINT (415, 405), 6
PAINT (485, 405), 6
LINE (433, 270)-(467, 329), 1, BF
LINE (415, 401)-(430, 410), 6, BF
LINE (431, 400)-(440, 410), 6, BF
LINE (485, 401)-(470, 410), 6, BF
LINE (469, 400)-(460, 410), 6, BF
CIRCLE (250, 250), 15, 12, , , 1.5
PAINT (250, 250), 12
CIRCLE (245, 248), 1, 9
CIRCLE (255, 248), 1, 9
PAINT (245, 248), 9: PAINT (255, 248), 9
LINE (248, 258)-(252, 258), 4
LINE (240, 230)-(240, 246), 7
LINE (242, 230)-(242, 240), 7
LINE (244, 230)-(244, 238), 7
LINE (246, 230)-(246, 236), 7
LINE (248, 230)-(248, 234), 7
LINE (250, 230)-(250, 234), 7
LINE (252, 230)-(252, 234), 7
LINE (254, 230)-(254, 236), 7
LINE (256, 230)-(256, 238), 7
LINE (258, 230)-(258, 240), 7
LINE (260, 230)-(260, 246), 7
LINE (250, 249)-(250, 252), 6
CIRCLE (250, 310), 30, 1, , , 1.5
PAINT (250, 310), 1
CIRCLE (240, 275), 10, 1
CIRCLE (260, 275), 10, 1
PAINT (240, 270), 1
PAINT (260, 270), 1
CIRCLE (225, 273), 10, 1, , , .5
CIRCLE (275, 273), 10, 1, , , .5
PAINT (225, 273), 1
PAINT (275, 275), 1
LINE (260, 267)-(240, 270), 1, BF
CIRCLE (215, 290), 20, 1, , , 4
CIRCLE (285, 290), 20, 1, , , 4
PAINT (215, 290), 1
PAINT (285, 290), 1
LINE (281, 290)-(289, 310), 1, BF
LINE (211, 290)-(219, 310), 1, BF
CIRCLE (214, 315), 4, 12
PAINT (214, 315), 12
LINE (210, 315)-(210, 320), 12
LINE (212, 315)-(212, 322), 12
LINE (214, 315)-(214, 324), 12
LINE (216, 315)-(216, 322), 12
LINE (218, 315)-(218, 320), 12
LINE (219, 315)-(219, 320), 12
CIRCLE (286, 315), 4, 12
PAINT (286, 315), 12
LINE (290, 315)-(290, 320), 12
LINE (288, 315)-(288, 322), 12
LINE (286, 315)-(286, 324), 12
LINE (284, 315)-(284, 322), 12
LINE (282, 315)-(282, 320), 12
LINE (281, 315)-(281, 320), 12
LINE (235, 329)-(225, 400), 3
LINE (265, 329)-(275, 400), 3
LINE (225, 400)-(240, 400), 3
LINE (275, 400)-(260, 400), 3
LINE (240, 400)-(255, 331), 3
LINE (260, 400)-(245, 331), 3
LINE (235, 329)-(265, 329), 3
PAINT (265, 395), 3
CIRCLE (215, 405), 5, 6
CIRCLE (285, 405), 5, 6
PAINT (215, 405), 6
PAINT (285, 405), 6
LINE (233, 270)-(267, 329), 1, BF
LINE (215, 401)-(230, 410), 6, BF
LINE (231, 400)-(240, 410), 6, BF
LINE (285, 401)-(270, 410), 6, BF
LINE (269, 400)-(260, 410), 6, BF
LINE (235, 264)-(465, 267), 6, BF
LINE (340, 220)-(360, 480), 6, BF
a = 0: DO: a = a + 2
LINE (a - 2, 476)-(a - 2, 479), 2
LOOP UNTIL a = 642: COLOR 14
LOCATE 13, 5: INPUT "Wrg! ", frage10
IF frage10 = 1 THEN GOTO getned1
IF frage10 = 2 THEN GOTO getned2
IF frage10 = 3 THEN GOTO getned3
IF frage10 = 4 THEN GOTO getned4 ELSE GOTO tot2
getned1: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast leider gar"
LOCATE 6, 5: PRINT "kein Messer, also"
LOCATE 7, 5: PRINT "kannst Du Dich auch"
LOCATE 8, 5: PRINT "nicht umbringen!"
COLOR 7: LOCATE 11, 8: PRINT "(Leertaste)": SLEEP: GOTO Passwort4
getned2: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast leider gar"
LOCATE 6, 5: PRINT "keine Pistole, also"
LOCATE 7, 5: PRINT "kannst Du Dich auch"
LOCATE 8, 5: PRINT "nicht umbringen!"
COLOR 7: LOCATE 11, 8: PRINT "(Leertaste)": SLEEP: GOTO Passwort4
getned3: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast leider gar"
LOCATE 6, 5: PRINT "keinen Galgen, also"
LOCATE 7, 5: PRINT "kannst Du Dich auch"
LOCATE 8, 5: PRINT "nicht umbringen!"
COLOR 7: LOCATE 11, 8: PRINT "(Leertaste)": SLEEP: GOTO Passwort4
getned4: CLS : COLOR 14
LOCATE 5, 5: PRINT "Du hast leider gar"
LOCATE 6, 5: PRINT "kein Gift, also"
LOCATE 7, 5: PRINT "kannst Du Dich auch"
LOCATE 8, 5: PRINT "nicht umbringen!"
COLOR 7: LOCATE 11, 8: PRINT "(Leertaste)": SLEEP: GOTO Passwort4
weiter13: CLS : COLOR 14
LOCATE 5, 5: PRINT "Eigentlich schade..."
LOCATE 6, 5: PRINT "Ich denke da so an den"
LOCATE 7, 5: PRINT "Unterhosengeist. Aber"
LOCATE 8, 5: PRINT "das wird mit der Zeit"
LOCATE 9, 5: PRINT "langweilig! Oder...?"
LOCATE 10, 5: PRINT "Was willst Du jetzt"
LOCATE 11, 5: PRINT "anstellen, nachdem"
LOCATE 12, 5: PRINT "Du Dich schon nicht"
LOCATE 13, 5: PRINT "umbringen willst, h"
LOCATE 14, 5: PRINT "bzw. kannst?"
LOCATE 16, 7: PRINT "1 Aufhren"
LOCATE 17, 7: PRINT "2 Verlierer sein"
LOCATE 18, 7: PRINT "3 Gewinner sein"
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 360) + 280, INT(RND * 100)), 8
LOOP UNTIL jo = 500
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 260) + 320, INT(RND * 100) + 60), 7
LOOP UNTIL jo = 300
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 200) + 350, INT(RND * 100) + 100), 15
LOOP UNTIL jo = 150
jo = 0: DO: jo = jo + 1
PSET (INT(RND * 150) + 375, INT(RND * 100) + 180), 14
LOOP UNTIL jo = 100
CIRCLE (450, 250), 15, 12, , , 1.5
PAINT (450, 250), 12
CIRCLE (445, 248), 1, 9
CIRCLE (455, 248), 1, 9
PAINT (445, 248), 9: PAINT (455, 248), 9
LINE (448, 258)-(452, 258), 4
LINE (440, 230)-(440, 246), 7
LINE (442, 230)-(442, 240), 7
LINE (444, 230)-(444, 238), 7
LINE (446, 230)-(446, 236), 7
LINE (448, 230)-(448, 234), 7
LINE (450, 230)-(450, 234), 7
LINE (452, 230)-(452, 234), 7
LINE (454, 230)-(454, 236), 7
LINE (456, 230)-(456, 238), 7
LINE (458, 230)-(458, 240), 7
LINE (460, 230)-(460, 246), 7
LINE (450, 249)-(450, 252), 6
CIRCLE (450, 310), 30, 1, , , 1.5
PAINT (450, 310), 1
CIRCLE (440, 275), 10, 1
CIRCLE (460, 275), 10, 1
PAINT (440, 270), 1
PAINT (460, 270), 1
CIRCLE (425, 273), 10, 1, , , .5
CIRCLE (475, 273), 10, 1, , , .5
PAINT (425, 273), 1
PAINT (475, 275), 1
LINE (460, 267)-(440, 270), 1, BF
CIRCLE (415, 255), 20, 1, , , 4
CIRCLE (485, 255), 20, 1, , , 4
PAINT (415, 255), 1
PAINT (485, 255), 1
LINE (481, 255)-(489, 235), 1, BF
LINE (411, 255)-(419, 235), 1, BF
CIRCLE (414, 230), 4, 12
PAINT (414, 230), 12
LINE (410, 230)-(410, 220), 12
LINE (412, 230)-(412, 218), 12
LINE (414, 230)-(414, 216), 12
LINE (416, 230)-(416, 218), 12
LINE (418, 230)-(418, 220), 12
LINE (419, 230)-(419, 220), 12
CIRCLE (486, 230), 4, 12
PAINT (486, 230), 12
LINE (490, 230)-(490, 220), 12
LINE (488, 230)-(488, 218), 12
LINE (486, 230)-(486, 217), 12
LINE (484, 230)-(484, 218), 12
LINE (482, 230)-(482, 220), 12
LINE (481, 230)-(481, 220), 12
LINE (435, 329)-(425, 400), 3
LINE (465, 329)-(475, 400), 3
LINE (425, 400)-(440, 400), 3
LINE (475, 400)-(460, 400), 3
LINE (440, 400)-(455, 331), 3
LINE (460, 400)-(445, 331), 3
LINE (435, 329)-(465, 329), 3
PAINT (465, 395), 3
CIRCLE (415, 405), 5, 6
CIRCLE (485, 405), 5, 6
PAINT (415, 405), 6
PAINT (485, 405), 6
LINE (433, 270)-(467, 329), 1, BF
LINE (415, 401)-(430, 410), 6, BF
LINE (431, 400)-(440, 410), 6, BF
LINE (485, 401)-(470, 410), 6, BF
LINE (469, 400)-(460, 410), 6, BF
LINE (400, 410)-(500, 480), 7, BF
LINE (350, 450)-(550, 480), 7, BF
LINE (443, 430)-(448, 435), 0, BF
LINE (448, 425)-(453, 460), 0, BF
LINE (443, 460)-(457, 465), 0, BF
LINE (120, 340)-(140, 480), 6
LINE (130, 338)-(150, 480), 6
LINE (140, 479)-(150, 479), 6
LINE (120, 340)-(130, 338), 6
PAINT (121, 341), 6
LINE (60, 350)-(210, 430), 7, BF
COLOR 7: LOCATE 25, 14: PRINT " LOOSER "
COLOR 7: LOCATE 25, 14: PRINT " LOOSER "
LOCATE 20, 5: COLOR 14: INPUT "What's up"; frage11
IF frage11 = 1 THEN GOTO WegVomFenster
IF frage11 = 2 THEN GOTO Verlirer
IF frage11 = 3 THEN GOTO Gewinner ELSE GOTO weiter13
Verlirer: CLS : LOCATE 15, 25: COLOR 10
PRINT "Neues Passwort: "; : COLOR 15
c = 0: DO: c = c + 1: a = INT(RND * 640)
B = INT(RND * 480): PSET (a, B), 15: LOOP UNTIL c = 200
PRINT " AAARGH!": LOCATE 28, 5: COLOR 7: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP: GOTO weiter
Gewinner: CLS : LOCATE 15, 25: COLOR 10
PRINT "Neues Passwort: "; : COLOR 15
c = 0: DO: c = c + 1: a = INT(RND * 640)
B = INT(RND * 480): PSET (a, B), 15: LOOP UNTIL c = 200
PRINT " I AM THE BEST": LOCATE 28, 5: COLOR 7: PRINT "(Leertaste)"
'SOUND 525.25, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.6, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 587.33, 18.2 / 12
'SOUND 1046.5, 18.2 / 2
'SOUND 783.99, 18.2 / 4
'SOUND 698.46, 18.2 / 12
'SOUND 659.26, 18.2 / 12
'SOUND 698.46, 18.2 / 12
'SOUND 587.33, 18.2 / 2: SLEEP: GOTO weiter
WegVomFenster: GOTO weiter
ende: CLS : LOCATE 20, 5: COLOR 14: PRINT "M.F.G.:"
LOCATE 25, 57: COLOR 4: PRINT "ohann Eckert"
LINE (410, 360)-(400, 350), 4
LINE (400, 350)-(450, 330), 4
LINE (450, 330)-(440, 400), 4
LINE (440, 400)-(410, 430), 4
LINE (410, 430)-(400, 420), 4
LINE (400, 420)-(450, 390), 4
LINE (2, 2)-(637, 477), 7, B
LINE (0, 0)-(639, 479), 7, B
DO: LOCATE 3, 28: COLOR 15: PRINT "VIELEN DANK, DAá SIE MEIN"
LOCATE 4, 31: COLOR 1: PRINT " ZWEITES ADVENTURE "
LOCATE 5, 34: COLOR 3: PRINT " AUSPROBIERT"
LOCATE 6, 38: COLOR 9: PRINT "HABEN!"
c = 0: DO: c = c + 1: a = INT(RND * 15) + 1
LINE (2, 2)-(637, 477), a, B: LINE (0, 0)-(639, 479), a, B
'SOUND 0, 2: LOOP UNTIL c = 10
IF INKEY$ <> "" THEN COLOR 4: EXIT DO
LOCATE 3, 28: COLOR 9: PRINT "VIELEN DANK, DAá SIE MEIN"
LOCATE 4, 31: COLOR 15: PRINT " ZWEITES ADVENTURE "
LOCATE 5, 34: COLOR 1: PRINT " AUSPROBIERT"
LOCATE 6, 38: COLOR 3: PRINT "HABEN!"
c = 0: DO: c = c + 1: a = INT(RND * 15) + 1
LINE (2, 2)-(637, 477), a, B: LINE (0, 0)-(639, 479), a, B
'SOUND 0, 2: LOOP UNTIL c = 10
IF INKEY$ <> "" THEN COLOR 4: EXIT DO
LOCATE 3, 28: COLOR 3: PRINT "VIELEN DANK, DAá SIE MEIN"
LOCATE 4, 31: COLOR 9: PRINT " ZWEITES ADVENTURE "
LOCATE 5, 34: COLOR 15: PRINT " AUSPROBIERT"
LOCATE 6, 38: COLOR 1: PRINT "HABEN!"
c = 0: DO: c = c + 1: a = INT(RND * 15) + 1
LINE (2, 2)-(637, 477), a, B: LINE (0, 0)-(639, 479), a, B
'SOUND 0, 2: LOOP UNTIL c = 10
IF INKEY$ <> "" THEN COLOR 4: EXIT DO
LOCATE 3, 28: COLOR 1: PRINT "VIELEN DANK, DAá SIE MEIN"
LOCATE 4, 31: COLOR 3: PRINT " ZWEITES ADVENTURE "
LOCATE 5, 34: COLOR 9: PRINT " AUSPROBIERT"
LOCATE 6, 38: COLOR 15: PRINT "HABEN!"
c = 0: DO: c = c + 1: a = INT(RND * 15) + 1
LINE (2, 2)-(637, 477), a, B: LINE (0, 0)-(639, 479), a, B
'SOUND 0, 2: LOOP UNTIL c = 10
IF INKEY$ <> "" THEN COLOR 4: EXIT DO
LOOP UNTIL INKEY$ <> ""
COLOR 15: CLS : LOCATE 20, 60: PRINT "(c) Johann Eckert"
LOCATE 24, 64: PRINT "Tannencker 152"
LOCATE 25, 64: PRINT "D-89079 Ulm"
LOCATE 26, 64: PRINT "Tel. (0731) 45427"
COLOR 4: LOCATE 28, 52: PRINT "Please register this Program!"
IF name0$ = "Du" THEN name0$ = "!!"
IF name0$ = "" THEN name0$ = "!!"
LOCATE 10, 10: COLOR 10: PRINT "Tschá "; name0$; "!"
SLEEP 1000: COLOR 14: END
passwort: CLS : LINE (100, 210)-(600, 250), 7, B
c = 0: DO: a = INT(RND * 640): B = INT(RND * 480)
c = c + 1: PSET (a, B), 15: LOOP UNTIL c = 200
LOCATE 15, 20: COLOR 10: PRINT "Gib' jetzt das Passwort ein: "; : COLOR 15: INPUT "", passwort$
IF LCASE$(passwort$) = "endlich" THEN GOTO Passwort1
IF LCASE$(passwort$) = "unterhosengeist" THEN GOTO Passwort2
IF LCASE$(passwort$) = "werkstatt" THEN GOTO Passwort3
IF LCASE$(passwort$) = "freund" THEN GOTO Passwort4
IF LCASE$(passwort$) = "i am the best" THEN RUN "aend1.bas"
IF LCASE$(passwort$) = "aaargh!" THEN RUN "aend2.bas" ELSE GOTO weiter
anleitung: CLS : a = -3: DO: a = a + 3
LINE (0, a)-(640, a), 2: LOOP UNTIL a = 480
a = 0: DO: a = a + 1: B = INT(RND * 640)
c = INT(RND * 480): PSET (B, c), 2: LOOP UNTIL a = 500
LOCATE 5, 10: COLOR 14: PRINT " ANLEITUNG: "
COLOR 7: LOCATE 10, 15: PRINT " Als erstes werde ich mal den Begriff (Text-)Adventure "
LOCATE 11, 15: PRINT " versuchen zu erklren: Adventure ist Englisch und heiát "
LOCATE 12, 15: PRINT " so viel wie 'Abenteuer'. Allerdings ist dies hier ein "
LOCATE 13, 15: PRINT " Text-Adventure, d.h. ein 'geschriebenes' Abenteuer. "
LOCATE 14, 15: PRINT " Ich habe noch versucht, das Ganze mit ein paar Bildchen "
LOCATE 15, 15: PRINT " auszuschmcken! Ich hoffe, es wird Dir gefallen! "
LOCATE 16, 15: PRINT " brigens: Wenn "; CHR$(34); "(Leertaste)"; CHR$(34); " dasteht, dann muát Du die "
LOCATE 17, 15: PRINT " Leertaste drcken (natrlich erst, nachdem Du den Text "
LOCATE 18, 15: PRINT " gelesen hast!). Ansonsten - z.B. nach Eingaben - "
LOCATE 19, 15: PRINT " immer Return bzw. Enter drcken! Wenn Du "
LOCATE 20, 15: PRINT " an einer Stelle aufhren willst, solltest Du "
LOCATE 21, 15: PRINT " Dir das letzte Passwort merken, mit dem Du nmlich "
LOCATE 22, 15: PRINT " ber das Hauptmen wieder zu der Stelle kommst, "
LOCATE 23, 15: PRINT " wo Du das Passwort erfahren hast! "
COLOR 2: LOCATE 26, 38: PRINT CHR$(2); CHR$(1); CHR$(2)
DO
? "Hallo"
LOOP UNTIL INKEY$ <> ""
'Im Originalprogramm wurden wohl ein paar Schleifen nicht geschlossen, wunder was, bei der Code-Strukturierung...:-(((
LOOP UNTIL 1=1
LOOP UNTIL 1=1
LOOP UNTIL 1=1
LOOP UNTIL 1=1
LOOP UNTIL 1=1
LOOP UNTIL 1=1
GOTO weiter
END SUB
' -----------------------------------------------------------------------
SUB geschichte
CLS : COLOR 15: SLEEP 1
LOCATE 15, 20: PRINT "W": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 21: PRINT "a": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 22: PRINT "s": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 23: PRINT " ": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 24: PRINT "b": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 25: PRINT "i": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 26: PRINT "s": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 27: PRINT "h": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 28: PRINT "e": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 29: PRINT "r": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 30: PRINT " ": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 31: PRINT "g": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 32: PRINT "e": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 33: PRINT "s": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 34: PRINT "c": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 35: PRINT "h": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 36: PRINT "a": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 37: PRINT "h": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 38: PRINT ".": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 39: PRINT ".": 'SOUND 50, .5: 'SOUND 0, 2.5
LOCATE 15, 40: PRINT ".": 'SOUND 50, .5: 'SOUND 0, 2.5
SLEEP 2: CLS : CIRCLE (50, 50), 15, 12, , , 1.5
PAINT (50, 50), 12
CIRCLE (45, 48), 1, 9
CIRCLE (55, 48), 1, 9
PAINT (45, 48), 9: PAINT (55, 48), 9
LINE (48, 58)-(52, 58), 4
LINE (40, 30)-(40, 46), 6
LINE (42, 30)-(42, 40), 6
LINE (44, 30)-(44, 38), 6
LINE (46, 30)-(46, 36), 6
LINE (48, 30)-(48, 34), 6
LINE (50, 30)-(50, 34), 6
LINE (52, 30)-(52, 34), 6
LINE (54, 30)-(54, 36), 6
LINE (56, 30)-(56, 38), 6
LINE (58, 30)-(58, 40), 6
LINE (60, 30)-(60, 46), 6
LINE (50, 49)-(50, 52), 6
CIRCLE (50, 100), 30, 14, , , 1.5
PAINT (50, 100), 14
LINE (33, 90)-(67, 129), 14, BF
CIRCLE (40, 75), 10, 14
CIRCLE (60, 75), 10, 14
PAINT (40, 70), 14
PAINT (60, 70), 14
CIRCLE (25, 73), 10, 14, , , .5
CIRCLE (75, 73), 10, 14, , , .5
PAINT (25, 73), 14
PAINT (75, 75), 14
LINE (60, 67)-(40, 70), 14, BF
CIRCLE (15, 90), 20, 14, , , 4
CIRCLE (85, 90), 20, 14, , , 4
PAINT (15, 90), 14
PAINT (85, 90), 14
LINE (81, 90)-(89, 110), 14, BF
LINE (11, 90)-(19, 110), 14, BF
CIRCLE (14, 115), 4, 12
PAINT (14, 115), 12
LINE (10, 115)-(10, 120), 12
LINE (12, 115)-(12, 122), 12
LINE (14, 115)-(14, 124), 12
LINE (16, 115)-(16, 122), 12
LINE (18, 115)-(18, 120), 12
LINE (19, 115)-(19, 120), 12
CIRCLE (86, 115), 4, 12
PAINT (86, 115), 12
LINE (90, 115)-(90, 120), 12
LINE (88, 115)-(88, 122), 12
LINE (86, 115)-(86, 124), 12
LINE (84, 115)-(84, 122), 12
LINE (82, 115)-(82, 120), 12
LINE (81, 115)-(81, 120), 12
LINE (35, 129)-(25, 200), 2
LINE (65, 129)-(75, 200), 2
LINE (25, 200)-(40, 200), 2
LINE (75, 200)-(60, 200), 2
LINE (40, 200)-(55, 131), 2
LINE (60, 200)-(45, 131), 2
LINE (35, 129)-(65, 129), 2
PAINT (65, 195), 2
CIRCLE (15, 205), 5, 6
CIRCLE (85, 205), 5, 6
PAINT (15, 205), 6
PAINT (85, 205), 6
LINE (15, 201)-(30, 210), 6, BF
LINE (31, 200)-(40, 210), 6, BF
LINE (85, 201)-(70, 210), 6, BF
LINE (69, 200)-(60, 210), 6, BF
LINE (150, 100)-(350, 150), 7
LINE (150, 100)-(200, 150), 7
LINE (150, 100)-(220, 90), 7
LOCATE 10, 50: COLOR 7: PRINT "Frher sahst Du"
LOCATE 11, 50: PRINT "so aus."
SLEEP 1: LOCATE 18, 35: PRINT "Taste drcken...": DO: LOOP UNTIL INKEY$ <> ""
LOCATE 18, 35: PRINT " "
LOCATE 25, 5: PRINT "...und heute siehst"
LOCATE 26, 5: PRINT "Du so aus."
CIRCLE (450, 250), 15, 12, , , 1.5
PAINT (450, 250), 12
CIRCLE (445, 250), 1, 9
CIRCLE (455, 248), 1, 9
PAINT (445, 250), 9: PAINT (455, 248), 9
LINE (448, 258)-(452, 258), 4
LINE (440, 230)-(440, 246), 7
LINE (442, 230)-(442, 240), 7
LINE (444, 230)-(444, 238), 7
LINE (446, 230)-(446, 236), 7
LINE (448, 230)-(448, 234), 7
LINE (450, 230)-(450, 234), 7
LINE (452, 230)-(452, 234), 7
LINE (454, 230)-(454, 236), 7
LINE (456, 230)-(456, 238), 7
LINE (458, 230)-(458, 240), 7
LINE (460, 230)-(460, 246), 7
LINE (450, 249)-(450, 252), 6
CIRCLE (450, 310), 30, 1, , , 1.5
PAINT (450, 310), 1
CIRCLE (440, 275), 10, 1
CIRCLE (460, 275), 10, 1
PAINT (440, 270), 1
PAINT (460, 270), 1
CIRCLE (425, 273), 10, 1, , , .5
CIRCLE (475, 273), 10, 1, , , .5
PAINT (425, 273), 1
PAINT (475, 275), 1
LINE (460, 267)-(440, 270), 1, BF
CIRCLE (415, 290), 20, 1, , , 4
CIRCLE (485, 290), 20, 1, , , 4
PAINT (415, 290), 1
PAINT (485, 290), 1
LINE (481, 290)-(489, 310), 1, BF
LINE (411, 290)-(419, 310), 1, BF
CIRCLE (414, 315), 4, 12
PAINT (414, 315), 12
LINE (410, 315)-(410, 320), 12
LINE (412, 315)-(412, 322), 12
LINE (414, 315)-(414, 324), 12
LINE (416, 315)-(416, 322), 12
LINE (418, 315)-(418, 320), 12
LINE (419, 315)-(419, 320), 12
CIRCLE (486, 315), 4, 12
PAINT (486, 315), 12
LINE (490, 315)-(490, 320), 12
LINE (488, 315)-(488, 322), 12
LINE (486, 315)-(486, 324), 12
LINE (484, 315)-(484, 322), 12
LINE (482, 315)-(482, 320), 12
LINE (481, 315)-(481, 320), 12
LINE (435, 329)-(425, 400), 3
LINE (465, 329)-(475, 400), 3
LINE (425, 400)-(440, 400), 3
LINE (475, 400)-(460, 400), 3
LINE (440, 400)-(455, 331), 3
LINE (460, 400)-(445, 331), 3
LINE (435, 329)-(465, 329), 3
PAINT (465, 395), 3
CIRCLE (415, 405), 5, 6
CIRCLE (485, 405), 5, 6
PAINT (415, 405), 6
PAINT (485, 405), 6
LINE (433, 270)-(467, 329), 1, BF
LINE (415, 401)-(430, 410), 6, BF
LINE (431, 400)-(440, 410), 6, BF
LINE (485, 401)-(470, 410), 6, BF
LINE (469, 400)-(460, 410), 6, BF
LINE (200, 400)-(350, 350), 7
LINE (350, 350)-(280, 330), 7
LINE (350, 350)-(300, 400), 7
COLOR 7: SLEEP 1: LOCATE 28, 30: PRINT "Taste drcken..."
DO: LOOP UNTIL INKEY$ <> "": CLS : PRINT : PRINT : COLOR 7
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " D";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "2";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "T";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "A";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "v";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "C";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "R";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "A";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "Z";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "Y";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "D";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "A";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "Y";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "!"
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " H";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "g";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "a";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ",";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "z";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "S";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "c";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "'";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "c";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "z";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "k";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "o";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "'";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "D";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "w";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "a";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n"
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "H";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ",";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "v";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "A";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "a";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "."
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " H";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "2";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "T";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "w";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "D";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "o";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "c";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "v";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "m";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "h";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ",";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "p";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "a";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "d";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e"
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " A";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "t";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "u";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "r";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "b";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "n";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT ".": PRINT
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "V";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "i";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "e";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "l";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT " ";
IF INKEY$ = CHR$(27) THEN GOTO endee
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "S";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "p";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "a";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "s";
'SOUND 50, .5: 'SOUND 0, 2.5: PRINT "!";
SLEEP 1: LOCATE 10, 65: COLOR 14: PRINT "Johann Eckert"
CIRCLE (450, 250), 15, 12, , , 1.5
PAINT (450, 250), 12
CIRCLE (445, 250), 1, 9
CIRCLE (455, 248), 1, 9
PAINT (445, 250), 9: PAINT (455, 248), 9
LINE (448, 258)-(452, 258), 4
LINE (440, 230)-(440, 246), 7
LINE (442, 230)-(442, 240), 7
LINE (444, 230)-(444, 238), 7
LINE (446, 230)-(446, 236), 7
LINE (448, 230)-(448, 234), 7
LINE (450, 230)-(450, 234), 7
LINE (452, 230)-(452, 234), 7
LINE (454, 230)-(454, 236), 7
LINE (456, 230)-(456, 238), 7
LINE (458, 230)-(458, 240), 7
LINE (460, 230)-(460, 246), 7
LINE (450, 249)-(450, 252), 6
CIRCLE (450, 310), 30, 1, , , 1.5
PAINT (450, 310), 1
CIRCLE (440, 275), 10, 1
CIRCLE (460, 275), 10, 1
PAINT (440, 270), 1
PAINT (460, 270), 1
CIRCLE (425, 273), 10, 1, , , .5
CIRCLE (475, 273), 10, 1, , , .5
PAINT (425, 273), 1
PAINT (475, 275), 1
LINE (460, 267)-(440, 270), 1, BF
CIRCLE (415, 290), 20, 1, , , 4
CIRCLE (485, 290), 20, 1, , , 4
PAINT (415, 290), 1
PAINT (485, 290), 1
LINE (481, 290)-(489, 310), 1, BF
LINE (411, 290)-(419, 310), 1, BF
CIRCLE (414, 315), 4, 12
PAINT (414, 315), 12
LINE (410, 315)-(410, 320), 12
LINE (412, 315)-(412, 322), 12
LINE (414, 315)-(414, 324), 12
LINE (416, 315)-(416, 322), 12
LINE (418, 315)-(418, 320), 12
LINE (419, 315)-(419, 320), 12
CIRCLE (486, 315), 4, 12
PAINT (486, 315), 12
LINE (490, 315)-(490, 320), 12
LINE (488, 315)-(488, 322), 12
LINE (486, 315)-(486, 324), 12
LINE (484, 315)-(484, 322), 12
LINE (482, 315)-(482, 320), 12
LINE (481, 315)-(481, 320), 12
LINE (435, 329)-(425, 400), 3
LINE (465, 329)-(475, 400), 3
LINE (425, 400)-(440, 400), 3
LINE (475, 400)-(460, 400), 3
LINE (440, 400)-(455, 331), 3
LINE (460, 400)-(445, 331), 3
LINE (435, 329)-(465, 329), 3
PAINT (465, 395), 3
CIRCLE (415, 405), 5, 6
CIRCLE (485, 405), 5, 6
PAINT (415, 405), 6
PAINT (485, 405), 6
LINE (433, 270)-(467, 329), 1, BF
LINE (415, 401)-(430, 410), 6, BF
LINE (431, 400)-(440, 410), 6, BF
LINE (485, 401)-(470, 410), 6, BF
LINE (469, 400)-(460, 410), 6, BF: SLEEP 1
LOCATE 20, 20: COLOR 7: PRINT "Taste drcken... "
DO: LOOP UNTIL INKEY$ <> ""
endee:
END SUB
' --------------------------------------------------------------------
SUB tooot
CLS : a = 170: B = 0: c = 0
DO
a = a + 2: LINE (a, 10)-(a, 250), 7
LOOP UNTIL a = 470
CIRCLE (320, 240), 200, 12, , , 1.5
PAINT (320, 240), 12
c = 0: DO: c = c + 1
a = INT(RND * 260) + 190
B = INT(RND * 140) + 300
PSET (a, B), 0: LOOP UNTIL c = 500
CIRCLE (250, 200), 30, 15, , , .5
PAINT (250, 200), 15
CIRCLE (390, 200), 30, 15, , , .5
PAINT (390, 200), 15
CIRCLE (250, 205), 30, 12, , , .5
CIRCLE (390, 205), 30, 12, , , .5
PAINT (250, 188), 12
PAINT (390, 188), 12
c = 0: DO: CIRCLE (250, 200), c, 9
CIRCLE (390, 200), c, 9
c = c + 1: LOOP UNTIL c = 10
CIRCLE (320, 350), 60, 4, , , .1
PAINT (320, 350), 4
a = 210: DO: a = a + 2
LINE (a, 180)-(a + 3, 175), 8
LOOP UNTIL a = 280
a = 430: DO: a = a - 2
LINE (a, 175)-(a + 3, 180), 8
LOOP UNTIL a = 360
a = 170: DO: a = a + 2
LINE (a, 10)-(a, 50), 7
LINE (a - 1, 10)-(a - 1, 50), 0
LOOP UNTIL a = 470
LINE (283, 175)-(303, 195), 6
LINE (359, 175)-(339, 195), 6
LINE (303, 195)-(310, 250), 6
LINE (339, 195)-(330, 250), 6
LINE (310, 250)-(300, 260), 6
LINE (330, 250)-(340, 260), 6
LINE (300, 260)-(300, 270), 6
LINE (340, 260)-(340, 270), 6
LINE (300, 270)-(320, 275), 6
LINE (340, 270)-(320, 275), 6
LINE (320, 255)-(320, 170), 6
LINE (315, 200)-(300, 160), 6
LINE (325, 200)-(340, 160), 6
LINE (293, 220)-(260, 250), 6
LINE (347, 220)-(380, 250), 6
CIRCLE (50, 100), 45, 15, , , .9
LINE (50, 140)-(60, 142), 0, BF
LINE (50, 140)-(100, 200), 15
LINE (60, 140)-(100, 200), 15
LOCATE 7, 5: COLOR 15: PRINT "NEIN!"
SLEEP 1: LINE (0, 0)-(100, 200), 0, BF
CIRCLE (590, 200), 45, 15, , , .9
LINE (580, 240)-(590, 242), 0, BF
LINE (580, 240)-(530, 280), 15
LINE (590, 240)-(530, 280), 15
COLOR 12: LOCATE 13, 73: PRINT "AAAH!"
SLEEP 1: LINE (640, 0)-(520, 300), 0, BF
e = 0: DO: a = INT(RND * 640)
B = INT(RND * 480): c = INT(RND * 640)
d = INT(RND * 480): LINE (a, B)-(c, d), 4
IF INKEY$ = CHR$(27) THEN EXIT DO
'SOUND 0, .05: e = e + 1: LOOP UNTIL e = 500
LOOP UNTIL 1=1
SLEEP 1
END SUB
main