home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
dis1893.d64
/
254
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
2KB
|
48 lines
1 POKE50050,2:POKE50051,5:POKE50052,4
2 PRINT"[147][159][206]ACH LANGEM [200]ERUMSUCHEN STOESST [196]U AUF "
3 PRINT"EINEN [194]RUDER VON [204]OTTE.[196]U BITTEST IHN UM"
4 PRINT"EIN [199]ESPRAECH UEBER [204]OTTE. "
5 PRINT"[197]R SAGT : [196]AS IST SOWIESO SINNLOS, UND "
6 PRINT"LACHT. "
7 PRINT"[196]ENNOCH KANNST [196]U IHN ZU EINEM [199]ESPRAECH"
8 PRINT"UEBERREDEN UND FAEHRST ZU IHM. "
9 PRINT"[196]U ERKLAERST IHM [196]EIN [204]EID UND "
10 PRINT"SCHILDERST IHM [204]OTTES [213]NBERECHENBARKEIT."
11 PRINT" "
12 PRINT"[201]CH KANN NICHT MEHR SCHLAFEN UND BIN MIT"
13 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
14 POKE198,0:WAIT198,1
15 PRINT"[147]DEN [206]ERVEN AM [197]NDE, SAGST [196]U. "
16 PRINT" "
17 PRINT" "
18 PRINT" "
19 PRINT" "
20 PRINT" "
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 101 [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,5
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