home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PD 64 Classic 2
/
PD_64_Classic_2_2000_-_Side_A.d64
/
vividos
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
101 lines
1 poke53280,12:poke53281,0
2 gosub5000
3 print"[159]erst mal was ueber mich: [[193].[202].: [213]i ! [202]etzt geht's los ...]"
4 print"[159][205]eine [206]ame ist [205]ichael [198]ink ([206]ickname [214]ividos) und bin 21. [205]einen [195]64"
5 print"mit [198]loppy bekam ich ... uff zu lange her. [193]uf der [194]rotkiste hab ich mich"
6 print"mit [208]rogrammieren, [211]pielen und exzes- sivem (aber nicht immer erfolg-"
7 print"reichen) [200]acken von [211]pielen be- schaeftigt."
8 print"[158][215]as ist [196]ein [204]ieblingsgame ?"
9 print"[159][212]urrican 2 ([195]64), alle [204]ucas-[193]rts und [209]uakes ([208][195])"
11 print"[158][215]as ist [196]ein [204]ieblingsmag ?"
12 print"[159]hmm ich les eigentlich nur noch e't, frueher hab ich 64er verschlungen"
13 print"[[193].[202].: [206]a [205]ahlzeit ...]"
14 gosub9998
15 gosub5000
20 print"[158][215]elche [195]omputer hast [196]u ?"
21 print"[159][206]en [193][205][196] [203]6-2, ne aeltere [204]inux-[203]iste undnatuerlich nen [195]64"
27 print"[158][215]elche [203]onsolen hast [196]u ?"
28 print"[159]aeaeh was ist das :-)"
31 gosub9998
32 gosub5000
33 print"[158][215]as isst [196]u gerne ?"
34 print"[159][206]udeln sind immer gut, aber auch [208]izza und so [218]eug"
37 print"[158][215]as trinkst [196]u gerne ?"
38 print"[159][195]ola oder (wenn ich net fahren muss) [212]ouch-[196]own (!)"
39 print"[158][215]elche [205]usik hoerst [196]u ?"
40 print"[159][200]iphop, alles was so auf [202]am[198][205] kommt, und so ein paar [193]usreisser wie"
41 print"[193]ll [211]aints und [206]o [196]oubt"
42 gosub9998
43 gosub5000
44 print"[158][215]elche [198]ilme findest [196]u gut ?"
45 print"[159][211]tar [215]ars (alle), die meisten [211]tar [212]rek und natuerlich [193]ustin [208]owers !"
46 print"[158][215]elche [211]erien ?"
47 print"[159][211]tar [212]rek (alle), [211]einfeld, [214]erlorene [215]elt, [210]aven, [194]uffy (manchmal)"
48 print"[158][215]elche beruehmten [208]ersonen begeistern [196]ich ?"
49 print"[159][204]inus [212]orvalds, ... sonst eigentlich keine"
50 print"[158][215]as sind [196]eine [200]obbys ?"
51 print"[159][201]nline skaten, [208]rogrammieren, an [204]inux- [210]echnern basteln und [198]ortgehen"
52 print"[[193].[202].: [202]a, auf dass [196]u nie wiederkommen moegest !!!]"
53 gosub9998
54 gosub5000
55 print"[158][215]ie sieht [196]eine [212]raumfrau aus ?"
56 print"[159]sehr gut ;-) bleibt aber geheim [[193].[202].: [197]r spricht ueber seine [205]om ...]"
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][201]hr habt alle gefi**kt ! *gg* [[193].[202].: [211]elbstzensur ! [196]as [211]aupac zensiert
62 [153]"ja nix ...]"
63 [153]"sys(NULL)elche ascrage wuerdest str$u str$ir selbst stellen ?"
64 [153]"openhmm also meistens red ich nicht mir selber [atn.mid$.: peekei diesemclose(NULL)atzbau"
65 [153]"aber auch ...]"
66 [141]9998
67 [141]5000
68 [153]"sys(NULL)as haeltst str$u von (NULL)abletten ?"
69 [153]"opennix - nix ? - nix nix !"
72 [153]"sys- (NULL)oiletten ?"
73 [153]"openalso persoenlich finde ich sie ganz in (NULL)rdnung ... die meisten jedenfalls"
74 [153]"sys- valtiketten ?"
75 [153]"opensinnlos bei mir"
76 [141]9998
77 [141]5000
78 [153]"sys- (NULL)igaretten ?"
79 [153]"openbaeh *hust*"
80 [153]"sys- ascischkretten ?"
81 [153]"openbitte was ? [atn.mid$.: ascischkretten ... liess halt selbst !!!]"
82 [153]"sys(NULL)ie wichtig ist fuer str$ich atnussehen ?"
83 [153]"openwessen ? :-)"
84 [153]"also meins ist mir schon wichtig"
85 [153]"sysstr$as (NULL)ort '(NULL)amer' verbinde ich mit ..."
86 [153]"open... mir :-) ich war wohl so einer, hab am len64 zwar rumgebastelt, -ge-"
87 [153]"spielt, -programmiert aber rausgekommen ist nie was dabei."
88 [153]"sysright$ch finde, dass (NULL)ackhuepfen ..."
89 [153]"open... eine (NULL)portart ist, der viel zuwenig atnufmerksamkeit gewidmet wird."
90 [141]9998
91 [141]5000
92 [153]"sys(NULL)enn ich an (NULL)hailand denke, dann ..."
93 [153]"open... denk ich an all die schoenen (NULL)ikro- chips, die jetzt in meinem lenomputer
94 print"hocken."
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]vielleicht mit [212]obi [211]chlegl: absolut kaputt"
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]wenn ichs mir so recht ueberlege, mit allen ausser [211]teffi [199]raf ;-)"
105 gosub9998
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][196]64 [195]lassic [209]uestionnaire - [213][210][204] "
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]