home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
dis1893.d64
/
255
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
2KB
|
48 lines
1 POKE50050,2:POKE50051,5:POKE50052,5
2 PRINT"[147][159][215]IR, DIE [198]AMILIE, SIND AUCH AM [197]NDE UND "
3 PRINT"KOENNEN GAR NICHTS MEHR MACHEN, GIBT [196]IR"
4 PRINT"DER [194]RUDER ZUR [193]NTWORT.[215]IR HOFFEN NUR "
5 PRINT"NOCH, DASS EINER [204]OTTE HEIRATET. "
6 PRINT"[215]IE KOMMT DAS ? FRAGST [196]U. "
7 PRINT"[204]OTTE HAT UNS SCHON UNENDLICH GENERVT. "
8 PRINT"[193]LS SIE UNSERE [194]ADEWANNE IN EIN [211]CHILD- "
9 PRINT"KROETENTERRARIUM VERWANDELT HAT, HABEN "
10 PRINT"WIR RESIGNIERT. "
11 PRINT"[197]IN [211]CHILDKROETENTERRARIUM ? "
12 PRINT"[202]A.[204]OTTE WAR MIT EINEM [218]OODIREKTOR "
13 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
14 POKE198,0:WAIT198,1
15 PRINT"[147]BEFREUNDET.[196]EM HAT SIE VIELLEICHT DIE "
16 PRINT"[200]OELLE HEISS GEMACHT ! [215]ENN ER NICHT "
17 PRINT"TAT, WAS SIE WOLLTE, HAT SIE WERTVOLLE "
18 PRINT"[203]LEINTIERE IN DEN [204]OEWENKAEFIG GESPERRT."
19 PRINT"[207]DER SIE HAT SELTENE [212]IERARTEN ZU UNS "
20 PRINT"NACH [200]AUSE GESCHLEPPT. "
21 PRINT" "
22 PRINT" "
23 PRINT" "
24 PRINT" "
25 PRINT" "
26 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
27 POKE198,0:WAIT198,1
28 PRINT"[147][176][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][192][192][192][192][192][192][192][192][192][174]";
29 PRINT"[221][151] [197]NTSCHEIDUNGSMOEGLICHKEIT : [221]";
30 PRINT"[171][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][192][192][192][192][192][192][192][192][192][179]";
31 PRINT"[221][152] [211]PIELSITUATION 72 [221]";
32 PRINT"[173][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][192][192][192][192][192][192][192][192][192][189]"
33 PRINT" [196]U HAST KEINE [197]NTSCHEIDUNGS- "
34 PRINT" MOEGLICHKEIT.[214]ON HIER AUS GIBT'S NUR "
35 PRINT" EINE MOEGLICHE [198]ORTSETZUNG ! "
36 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
37 POKE198,0:WAIT198,1:GETA$
38 IFA$=""THEN41
39 A$="257":POKE50053,2:POKE50054,5:POKE50055,9
40 GOTO42
41 A$="256"
42 Q=PEEK(50100)
43 W=Q+50100
44 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO44
45 E=PEEK(W):POKEW,E+1
46 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN"
47 POKE631,13:POKE632,13:POKE633,13:POKE198,3