home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 15
/
Commodore_Disc_15_19xx_-_de.d64
/
agent
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
26 lines
100 print"[147][144]":v=53248:pokev+33,0:pokev+ 32,0:x=0
120 print"[147][154][213][201][157][157][202][203][215].[157][157][157].[145][145] ein adventure-spass:"
130 print"[158] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
140 print"[129] [221] [146] [146] [146] [146] [187][162][162][162][162][162][162][162][146][188] [221]"
150 print" [221] [146] [146] [146] [146] [146] [146] [146][187] [221]"
160 print"[154] [221] [146] [146] [146] [146] [146] [146] [146] [221]"
170 print" [221] [146] [146] [146] [146] [146] [146] [146] [221]"
180 print"[153] [221] [146] [146] [146] [146] [146][161] [221]"
190 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
200 ifx=0thenprint"[152]"spc(11)"spielerklaerung (s)"spc(26)"laden (l)[145][145][145][145][145]"
210 print"[154] [213][192][201][157][157][157][221]c[221][157][157][157][202][192][203][145] by r. baier"
220 ifx=1thenprint""spc(15)"bitte warten"
230 ifx=1thenprint"[144]load"chr$(34)"0013"chr$(34)",8:[145][145]";
240 ifx=1thenpoke631,131:poke198,1:end
250 getk$:ifk$<>"l"andk$<>"s"then250
260 ifk$="l"thenx=1:goto120
300 print"[147] kurz und buendig:"
310 print"[154] sie haben es geschafft, 0013, unent- "
320 print" deckt auf dr. yes' insel zu gelangen "
330 print" und in seine festung einzudringen. "
340 print" suchen sie nun die plaene fuer seine "
350 print" welt-sabotage-maschine. good luck! "
360 print""spc(16)"[152]laden (l)"
370 getk$:ifk$<>"l"then370
380 x=1:goto120