home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_A.d64
/
url
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
119 lines
1 poke53280,12:poke53281,0
2 gosub5000
5 print"[158][215]as ist [196]ein [204]ieblingsgame ?"
6 print"[159][204]eo 2, [205]aniac [205]ansion, [205]onkey [201]sland, [201]ndiana [202]ones, ..."
7 print"halt a fast alle [193]dventures, besonders die von [204]ucas[193]rts haben es mir"
8 print" [145]angetan"
9 print"[158][215]as ist [196]ein [204]ieblingsmag ?"
10 print"[159]alle dt. [196]iskmags, wo wir gerade dabei sind, schaut unbedingt auf meiner"
11 print"[200]omepage vorbei http://www.c64-mags.de[159]"
12 print"[197]s geht doch nichts um gratis [215]erbung. [[193].[202].: [201]ch schicke meine [199]eldein-"
13 print"treiber vorbei ...]"
14 gosub9998
15 gosub5000
20 print"[158][215]elche [195]omputer hast [196]u ?"
21 print"[159]2x [195]128, 1x [195]128[196], 1x [195]64, 1x [195]64-[201][201], [211]uper[195][208][213]128, [193]miga 500, [193]miga 600,"
22 print"[208]entium [201][201] 350"
23 print"[193]m meisten wird aber der [195]128 mit [211]uper[195][208][213]128 genutzt, danach der [208][195]"
24 print"und zum [211]chluss der [193]600. [196]en [193]miga habeich aber immer nur im [211]chrank und"
25 print"schliesse ihn nur an, wenn ich mal [204]ust habe ein [199]ame auf dem [193]miga zu"
26 print"[145]spielen."
27 print"[158][215]elche [203]onsolen hast [196]u ?"
28 print"[159][198]uer was gibt es [197]mulatoren. [196]er [208][195] kannja fast jeden [195]omputer emulieren,"
29 print"sogar die [208]laystation, aber ohne be- sonderen [202]oystick sind die [199]ames"
30 print"fast unspielbar und mit der [212]astatur spielen ist ein [199]raus."
31 gosub9998
32 gosub5000
33 print"[158][215]as isst [196]u gerne ?"
34 print"[159][214]egetarisch. [200]auptsache kein ekliges [198]leisch, achja und schmecken muss"
35 print"es mir auch. [[193].[202].: [196]ann bleibt je eigentlich nur noch [197]rdbeeren mit"
36 print"[211]cheisse uebrig ...]"
37 print"[158][215]as trinkst [196]u gerne ?"
38 print"[159][212]rinkbar muss es sein [[193].[202].: [215]as baggerst [196]u gerne an ? - [198]ickbar"
39 print"muss es sein ...]"
40 print"[158][215]elche [205]usik hoerst [196]u ?"
41 print"[159][196]ie [193]ertzte, die [212]oten [200]osen, [215]izo, [193]lkbottle, [212]errorgruppe, [202][194][207], usw"
42 gosub9998
43 gosub5000
44 print"[158][215]elche [198]ilme findest [196]u gut ?"
45 print"[159][211]cience-[198]iction [198]ilme wie [211]tar [212]rek :-)"
46 print"[158][215]elche [211]erien ?"
47 print"[159][211]tar [212]rek ([214]oyager, [196][211]9)"
48 print"[158][215]elche beruehmten [208]ersonen begeistern [196]ich ?"
49 print"[159][205]ich begeistern ueberhaupt keine be- ruehmten [208]ersonen, tja so schauts"
50 print"nunmal aus."
51 print"[158][215]as sind [196]eine [200]obbys ?"
52 print"[159][195]64 (aeh ich meine natuerlich [195]128)#
53 [141]9998
54 [141]5000
55 [153]"sys(NULL)ie sieht str$eine (NULL)raumfrau aus ?"
56 [153]"open(NULL)ie sollte auf dem (NULL)laneten valrde leben, halt nein, wenn ich dies schreibe,"
57 [153]"denkt ihr noch, ich waere rassistisch, sie sollte schlicht und einfach"
58 [153]"eine ascrau sein. [atn.mid$.: valin ascall fuer (NULL)iviane (NULL)itschi ...]"
59 [153]"sys(NULL)enn str$u einen (NULL)atz sagen koenntest und die gesamte (NULL)enscheit wuerde zu-"
60 [153]"hoeren, wie wuerde er lauten ?"
61 [153]"open(NULL)ird das jetzt schon gesendet ? *ggg*"
62 [153]"sys(NULL)elche ascrage wuerdest str$u str$ir selbst stellen ?"
63 [153]"open(NULL)ieso soll ich mir selbst eine ascrage stellen ? [atn.mid$.: (NULL)eine dummen"
64 [153]"ascragen, bitte ...]"
65 [141]9998
66 [141]5000
67 [153]"sys(NULL)as haeltst str$u von (NULL)abletten ?"
68 [153]"open(NULL)ommt drauf an was drinnen ist, aber ichnehme ungern (NULL)abletten, das letzte-
69 print"mal dass ich [212]abletten genommen habe waren dies nur [194]rausetabletten, habe
70 [153]"ich das (NULL)ort (NULL)ablette jetzt zu oft ver- wendet ? [atn.mid$.: (NULL)o ziemlich jedes"
71 [153]"(NULL)ort in dieser ueberlangen atnntwort war uberfluessigpopuessig ...]"
72 [153]"sys- (NULL)oiletten ?"
73 [153]"open(NULL)ein (NULL)ommentar *g*"
74 [153]"sys- valtiketten ?"
75 [153]"openvaltikette toetet"
76 [141]9998
77 [141]5000
78 [153]"sys- (NULL)igaretten ?"
79 [153]"open(NULL)aaarghhh, pfui deibel, zum (NULL)otzen."
80 [153]"sys- ascischkretten ?"
81 [153]"open???"
82 [153]"sys(NULL)ie wichtig ist fuer str$ich atnussehen ?"
83 [153]"openstr$a ich ja gut aussehe, ist es mir nicht wichtig. [atn.mid$.: valine staerkere"
84 [153]"peekrille aber umso wichtiger ...]"
85 [153]"sysstr$as (NULL)ort '(NULL)amer' verbinde ich mit ..."
86 [153]"open(NULL)ama, nee im ernst, (NULL)amer verbinde ich mit (NULL)eimern, peeketruegern ..."
87 [153]"sysright$ch finde, dass (NULL)ackhuepfen ..."
88 [153]"open... mich nicht interessiert und deshalb schreibe ich zu diesem (NULL)hema nichts
89 print"mehr."
90 gosub9998
91 gosub5000
92 print"[158][215]enn ich an [212]hailand denke, dann ..."
93 print"[159]... denke ich an ein [204]and auf dem [208]laneten [197]rde der sich um die"
94 print"[211]onne dreht und im [193]lphaquadranten befindet."
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][203]enne nur den [207]li [208] vom [200]oeren. [215]ie soll ich denn die [198]rage beant-"
98 print"worten, wenn ich die [198]rage nicht kenne ?[[193].[202].: am besten richtig ...]"
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][211]chwere [197]ntscheidung, ist halt schon wieder schwer zu entscheiden, weil
105 [153]"ich da nur 3 (NULL)ersonen kenne, die 2 anderen (NULL)amen sagen mir wieder gar"
106 [153]"nichts. [atn.mid$.: (NULL)elig die geistig (NULL)inder-bemittelten ...]open valine peekitte atnmid$,"
107 [153]"[atn.mid$.: peekitte nicht direkt ansprechen ...]open das naechstemal suchste"
108 [153]"bekanntere (NULL)ersoenlichkeiten heraus. 8-)[atn.mid$.: atnlso alles, nur keine"
109 [153]"(NULL)esterreicher ...]open atnlso ich wuerde alleine hingehen und auf der"
110 [153]"(NULL)arty schon jemanden kennenlernen."
112 [141]9998
113 [137]9000
5000 [153]"loadprintandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand"
5001 [153]"onopen (NULL)str$64 lenlassic (NULL)uestionnaire - (NULL)(NULL)(NULL) "
5002 [153]"onusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusropen"
5003 [142]
9000 [151]828,0
9001 [153] [199](147) [199](17)
9002 [153] "load"[199](34);"ques*";[199](34); ",8,1
9003 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
9004 poke631,13:poke632,13:poke198,2
9005 print chr$(19);:end
9998 geta$:ifa$=""then9998
9999 return