home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_B.d64
/
pupsturnier
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
44 lines
1 poke53280,4:poke53281,4:print"[147]":print""
2 print"[200]oirehkar! [197]s ist vollbracht oder so!"
3 print"-----------------------------------"
4 print"[196]ies ist das zweite '[204][213][211][212][201][199][197] [204][201][204][193]":print
5 print"[193][194][197][206][212][197][213][197][210]'! [206]achdem [202]ack [212]he [210]apper so":print
6 print"heldenhaft (hallo [212]uran und [196]rag) war":print
7 print"und den ersten [212]eil nekromantisch wie-":print
8 print"der zum [204]eben erweckt hat, bin ich heu-":print
9 print"te tatsaechlich motiviert, einen zwei-":print
10 print"ten [212]eil zu programmieren.":print
11 print"[214]iel [211]pass also mit":print:print
12 print"[158] [208][160][213][160][208][160][211][160][212][160][213][160][210][160][206][160][201][160][197][160][210]":gosub10000
20 print"[147][196]a stehst du nun, schluckst noch ein-"
21 print"mal einen [200]aufen [204]uft und schaufelst "
22 print"die letzte dose bohnen in dich hinein."
23 print"[204]inks und [210]echts neben dir ziehen be-"
24 print"reits deine [198]urzrivalen ihre [200]osen "
25 print"herunter. [196]ir faellt auf, dass ihr [193]tem"
26 print"nach [203]ohl riecht. '[193]ha, sie haben sich"
27 print"also auch gut vorbereitet' denkst du,"
28 print"waehrend du deine hose herunterstreifst"
29 print"und deinen blanken [200]intern auf dem [196]on-"
30 print"nerbalken positionierst. [206]un ist es so-"
31 print"weit. [196]ein [193]rsch und neun andere zei-"
32 print"gen sich der tobenden, teilweise mit "
33 print"[199]asmasken geschuetzten [218]uschauermenge."
34 print"[201]hr alle seit mit blaehenden mitteln "
35 print"vollgestopft und wild entschlossen, "
36 print"heute den [205]iefpokal mit nach [200]ause zu"
37 print"nehmen. [206]icht umsonst habt ihr euch"
38 print"in unzaehligen [194]laehkonzerten fuer das"
39 print"erste [205]okkafinale qualifizieren muessen.",
40 print"[213]nd nun ist es auch soweit. [196]as [208]upssig-",
41 print"nal ertoent und die erste disziplin"
42 print"startet..."
49 rem die disziplinen sind
50 rem 1. federweitpupsen
51 rem 2. laengster furz
52 rem 3. lautmokkern
53 rem 4. vogel k.o. furzen
54 rem 5. marathonblaehen
10000 geta$:ifa$=""then10000
10001 return