home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 60
/
64er_Magazin_Sonderheft_60_19xx_Markt__Technik_de_Side_B.d64
/
titelbild
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
153 lines
1 poke53269,0:fori=8192to8230:pokei,0:next
2 poke8206,100:goto20
10 fori=12800to12800+655
11 reada
12 pokei,a
13 next
15 goto200
20 printchr$(147)
21 print" das boese staendig lacht,"
22 print" doch das gute hat die macht."
23 print" um mitternacht, so solls sein,"
24 print" die ewigkeit ist heute dein!"
25 fori=1to2000:next
26 goto10
101 data 0,0,0,0,0,0,15,255
102 data 0,0,0,0,0,31,255,255
103 data 0,0,0,0,31,255,255,255
104 data 0,0,0,63,255,255,255,255
105 data 3,3,255,255,255,255,255,255
106 data 112,152,224,248,251,254,254,255
107 data 31,11,12,7,7,7,7,3
108 data 255,255,127,159,231,249,254,255
109 data 224,224,224,240,240,240,240,112
110 data 7,7,3,1,0,0,0,0
111 data 127,127,127,191,255,63,63,31
112 data 128,128,192,192,192,192,224,224
113 data 255,127,127,63,31,15,15,7
114 data 247,239,239,223,223,191,191,127
115 data 224,240,248,248,252,254,255,255
116 data 7,7,7,3,3,3,1,1
117 data 255,255,254,253,253,251,251,247
118 data 128,128,0,0,128,192,192,224
119 data 1,1,7,7,7,15,15,15
120 data 254,252,252,248,240,224,192,192
121 data 0,0,0,0,0,1,3,3
122 data 15,31,63,127,255,255,255,255
123 data 255,255,255,255,255,255,254,254
124 data 252,248,240,192,128,0,0,0
125 data 0,0,0,0,1,3,3,7
126 data 31,63,127,255,255,255,255,255
127 data 0,0,0,0,0,0,1,3
128 data 255,254,248,240,224,128,0,0
129 data 0,0,0,1,3,7,7,15
130 data 63,127,255,255,255,255,255,255
131 data 255,255,255,255,255,252,224,128
132 data 252,248,224,128,0,0,0,0
133 data 0,0,0,0,1,3,15,31
134 data 15,63,127,255,255,255,255,255
135 data 0,0,0,0,1,3,7,15
136 data 31,63,127,255,255,255,255,255
137 data 239,247,247,251,251,253,254,254
138 data 0,0,0,0,0,1,7,15
139 data 0,0,3,31,255,255,255,255
140 data 96,184,190,223,223,223,239,239
141 data 0,0,0,0,128,192,224,240
142 data 248,252,254,255,255,255,255,255
143 data 0,0,0,0,128,192,224,240
144 data 127,127,191,191,255,63,15,3
145 data 15,7,1,0,0,0,0,0
146 data 0,0,0,128,224,248,254,255
147 data 255,127,31,15,7,1,0,0
148 data 255,255,255,255,255,255,127,63
149 data 128,224,240,240,248,248,254,255
150 data 15,7,3,1,0,0,0,0
151 data 255,255,255,255,255,127,63,15
152 data 128,224,248,254,255,255,255,255
153 data 0,0,0,0,0,128,224,240
154 data 7,3,1,0,0,0,0,0
155 data 255,255,255,255,127,31,7,1
156 data 248,252,254,255,255,255,255,255
157 data 0,0,0,0,128,192,224,240
158 data 255,127,31,15,7,3,3,1
159 data 248,252,254,255,255,255,255,255
160 data 0,0,0,0,128,224,240,248
161 data 255,127,63,31,15,23,27,59
162 data 253,254,255,255,255,255,255,255
163 data 0,0,0,128,192,192,192,192
164 data 61,61,126,126,126,255,255,255
165 data 0,0,0,0,0,0,0,0
166 data 192,128,128,128,0,0,0,0
167 data 1,1,3,3,7,7,15,15
168 data 176,176,160,224,192,192,128,128
169 data 15,15,15,31,31,31,31,63
170 data 255,254,253,248,232,216,184,124
171 data 62,61,59,59,55,111,95,127
172 data 253,253,254,255,255,255,255,255
173 data 0,0,0,192,253,255,255,255
174 data 0,0,0,0,0,128,248,255
175 data 255,255,255,255,255,126,120,176
176 data 0,0,0,0,3,15,63,255
177 data 0,0,0,0,255,255,255,255
178 data 0,0,0,0,192,240,252,255
179 data 255,63,15,3,0,0,0,0
180 data 255,255,255,255,0,0,0,0
181 data 255,252,240,192,0,0,0,0
182 data 255,255,255,0,0,0,0,0
200 printchr$(147)
201 print" [165][166][167][168] "
202 print" [162][163]@[164][169][170] "
203 print" [160][161]@@[214][171][169][173] "
204 print" [220][221]@@[255][223] [174][175][176] "
205 print" [216][217]@@[219] [177][178][179][180] "
206 print" [212][213]@[214][215] [181][182][183][184] "
207 print" [210]@@[211] klm[146] klm[146] [185][186][187] "
208 print" [207]@[208][209] nop[146] nop[146] [188][189][190] "
209 print" [204][205][206] [191]ja[146] "
210 print" [201][202]@[203] b[146]@c[146]"
211 print" [198][199][200] de[146] "
212 print" [192][193][194][195][196]@[197] fghi[146] "
215 print"[152] qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq[146]"
216 print" das geheimnis der druiden"
217 print" von wolfgang ring"
218 print"[159] information"
219 print" auf gehts":goto225
220 geta$
221 ifa$=chr$(17)thengoto230
222 ifa$=chr$(145)thengoto240
223 ifa$=chr$(133)thengoto250
224 goto220
225 poke2040,48:poke53287,2
226 poke53248,20:poke53249,213
227 poke53269,1
228 goto220
230 d=peek(53249)
231 ifd=213thenpoke53249,221
232 goto220
240 d=peek(53249)
241 ifd=221thenpoke53249,213
242 goto220
250 d=peek(53249)
251 ifd=213thengoto1000
252 ifd=221thengoto1100
253 goto220
1000 poke53269,0:printchr$(147)
1001 print" mit der cursor taste auf ab kann"
1002 print" der pfeil auf und ab bewegt werden."
1003 print" durch die taste f1 kann man den"
1004 print" befehl ausfuehren."
1005 print" der status zeigt den aktuellen"
1006 print" spielstand an."
1007 print" die gestellte aufgabe besteht darin"
1008 print" einen trank zubrauen, der die ewige jugend wiedergibt."
1009 print" zu diesem zweck muessen drei zutaten"
1010 print" gefunden und in den kessel geworfen werden."
1011 print" space"
1015 geta$
1016 ifa$=chr$(32)thengoto200
1017 goto1015
1100 poke53269,0:printchr$(147)"[144]"
1101 print"load"chr$(34)"teil1"chr$(34)",8"
1102 print"run[145][145][145][145][145][145][145][145]"
1103 poke631,13:poke632,13:poke198,2:new