home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_A.d64
/
farthaser
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
86 lines
1 poke53280,12:poke53281,0
2 gosub5000
5 print"[158][215]as ist [196]ein [204]ieblingsgame ?"
6 print"[159][196]onald [196]ucks [208]layground"
9 print"[158][215]as ist [196]ein [204]ieblingsmag ?"
10 print"[159][208]laygirl"
20 print"[158][215]elche [195]omputer hast [196]u ?"
21 print"[159][197]inen pinkfarbenen [195]64 und einen eben- falls pinkfarbenen [208][195] mit"
22 print"[214]ibrator-[203]arte."
27 print"[158][215]elche [203]onsolen hast [196]u ?"
28 print"[159][203]ann mich nicht genau an den [206]amen er- innern, aber die [198]arbe ist pink."
31 gosub9998
32 gosub5000
33 print"[158][215]as isst [196]u gerne ?"
34 print"[159][193]lles, was [196]etlev mir kocht."
37 print"[158][215]as trinkst [196]u gerne ?"
38 print"[159][193]lles, was [196]etlev mir zum [197]ssen dazu- stellt."
40 print"[158][215]elche [205]usik hoerst [196]u ?"
41 print"[159][200]eino und [205]arianne [210]osenberg."
42 gosub9998
43 gosub5000
44 print"[158][215]elche [198]ilme findest [196]u gut ?"
45 print"[159][204]iebesfilme und [211]issy ..."
46 print"[158][215]elche [211]erien ?"
47 print"[159][210]eich und [211]choen, [196]r. [209]uinn ..."
48 print"[158][215]elche beruehmten [208]ersonen begeistern [196]ich ?"
49 print"[194]oy [199]eorge"
51 print"[158][215]as sind [196]eine [200]obbys ?"
52 print"[159][211][205] mit [196]etlev ..."
53 gosub9998
54 gosub5000
55 print"[158][215]ie sieht [196]eine [212]raumfrau aus ?"
56 print"[159][215]ie ein [205]ann ..."
59 print"[158][215]enn [196]u einen [211]atz sagen koenntest und die gesamte [205]enscheit wuerde zu-"
60 print"hoeren, wie wuerde er lauten ?"
61 print"[159][203]oennt ihr mich auch alle hoeren ?"
62 print"[158][215]elche [198]rage wuerdest [196]u [196]ir selbst stellen ?"
63 print"[159][211]itzen meine [200]aare ?"
65 gosub9998
66 gosub5000
67 print"[158][215]as haeltst [196]u von [212]abletten ?"
68 print"[159][200]alten mich am [204]eben ..."
72 print"[158]- [212]oiletten ?"
73 print"[159][203]leine [206]uemmerchen ..."
74 print"[158]- [197]tiketten ?"
75 print"[159][208]utzig ..."
76 gosub9998
77 gosub5000
78 print"[158]- [218]igaretten ?"
79 print"[159][214]erpesten mir immer die [204]uft in der [215]ohnung ..."
80 print"[158]- [198]ischkretten ?"
81 print"[159][198]ilettiert [196]etlev immer perfekt aus allem [198]ischgerichten ..."
82 print"[158][215]ie wichtig ist fuer [196]ich [193]ussehen ?"
83 print"[159][205]ein [199]ott, [211][197][200][210][160][215][201][195][200][212][201][199][160]!"
85 print"[158][196]as [215]ort '[204]amer' verbinde ich mit ..."
86 print"[159]... einen [200]aenger bei [196]etlev."
87 print"[158][201]ch finde, dass [211]ackhuepfen ..."
88 print"[159]... auch 'ne gute [201]dee ist."
90 gosub9998
91 gosub5000
92 print"[158][215]enn ich an [212]hailand denke, dann ..."
93 print"[159]... denke ich an mich und [196]etlev in [212]hailand."
95 print"[158][205]it welcher [208]erson wuerdest [196]u [196]ich am ehesten vergleichen ?"
96 print"a) [201]ce [212] b) [212]obi [211]chlegl c) [205]arylon [205]anson d) [207]li [208] e) [194]oy [199]eorge"
97 print"[159]e ! e ! e !"
99 gosub9998
100 gosub5000
101 print"[158][205]it welcher [208]erson wuerdest [196]u am liebsten auf eine [208]arty gehen ?"
102 print"a) [195]hristina [193]guilera b) [194]ritney [211]pears c) [193]nna [206]icole [211]mith d) [206]aomi"
103 print"[195]ampbell e) [211]teffi [199]raf"
104 print"[159]mit [196]etlev ..."
112 gosub9998
113 goto9000
5000 print"[147][153][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
5001 print"[145][159] [208]64[195] [209]uestionnaire - [198]arthaser "
5002 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][159]"
5003 return
9000 poke828,0
9001 print chr$(147) chr$(17)
9002 print "load"chr$(34);"quest*";chr$(34); ",8,1
9003 [153] [199](17) [199](17) [199](17) [199](17) "run"
9004 [151]631,13:[151]632,13:[151]198,2
9005 [153] [199](19);:[128]
9998 [161]a$:[139]a$[178]""[167]9998
9999 [142]