home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 55
/
Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64
/
ship_einleitung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
88 lines
10 poke 53280,0:poke 53281,0
15 poke 53043,27:poke 53128,27:rem werte in splitroutine fuer neuen zs poken
20 sys 52480,8,"[b]ship/grafik3",1
25 print"[147]"
30 sys 52480,8,"",0
35 sys 52912
40 for n=1 to 13:print:next
45 print"[158] dein abenteurer hat einen weiteren "
50 print" mysterioesen ort gefunden: ein "
55 print" kleines dorf mit nur wenigen wohn- "
60 print" haeusern und einer kleinen schenke "
65 print" nahe an der endlosen see. es geht "
70 print" das geruecht um, dass ein phantom- "
75 print" schiff oefters an der kueste vorbei- "
80 print" segelt. einmal zwang ein skelett "
85 print" einige fischer, mit ihm in ein boot "
90 print" zu steigen. sie kehrten nie zurueck. "
95 print" du versprichst zu helfen.";
100 poke 198,0:wait 198,1
105 print"[147]"
106 sys 53103
108 print"als spieler hast du die aufgabe, das"
109 print"abenteuer zu loesen. zusaetzlich sollst"
110 print"du alle orte gruendlich erforschen, um"
111 print"die volle punktezahl zu erreichen..."
112 print"[156] credits:"
113 print"[159]programm[164][164][164][164][164][164][164][164]peter braun"
114 print"[156]wiederentdeckung"
115 print"[156]des spieles[164][164][164][164][164]marc kayser"
116 print"[159]musik[164][164][164][164][164][164][164][164][164][164][164]volker meitz"
117 print"[156]grafische"
118 print"[156]ueberarbeitung[164][164]thomas kneissler"
120 :
125 v=53248:ld=52300
130 ry=204:l=50
135 a$="":poke 198,0
140 pokev+21,3
145 pokev+39,1:pokev+40,1
147 :
150 ad=192
155 poke 2040,ad:poke 2041,ad+1
160 gosub 180
165 ad=ad+2:if ad=208 goto 150
170 goto 155
175 return
180 sys ld,l,ry,0
185 sys ld,l,ry+21,1
190 for a=1 to 16:next a
195 l=l+2
200 geta$:ifa$=" "goto 345
205 if l>290 goto 220
210 return
215 :
220 ad=208:poke 2040,ad:poke 2041,ad+1
225 for a=1 to 100
230 geta$:ifa$=" "goto 345
235 next a
240 :
245 ad=210
250 poke 2040,ad:poke 2041,ad+1
255 gosub 275
260 ad=ad+2:if ad=226 goto 245
265 goto 250
270 return
275 sys ld,l,ry,0
280 sys ld,l,ry+21,1
285 for a=1 to 16:next a
290 l=l-2
295 geta$:ifa$=" "goto 345
300 if l<50 goto 315
305 return
310 :
315 ad=208:poke 2040,ad:poke 2041,ad+1
320 for a=1 to 100
325 geta$:ifa$=" "goto 345
330 next a
335 goto150
340 :
345 poke v+21,0:print"[147]"
350 poke 53043,21:poke 53128,21:poke 53272,21
355 print"[158] das spiel wird geladen..."
360 sys 52480,8,"[b]ship/grafik4",1
365 sys 52480,8,"",0
370 print"[144]load";chr$(34);"ship/ad3/main";chr$(34);",8"
375 print"[144]run"
380 print""
385 poke 631,13:poke 632,13:poke 198,2:end