home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
dis1893.d64
/
205
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
2KB
|
48 lines
1 POKE50050,2:POKE50051,0:POKE50052,5
2 PRINT"[147][159][193]N DEM [193]BEND RUFT [204]OTTE ALLE [214]IERTEL- "
3 PRINT"STUNDE BEI [196]IR AN.[196]IE ERSTEN DREI [205]ALE "
4 PRINT"NIMMST [196]U DEN [212]ELEFONHOERER AB. "
5 PRINT"[204]OTTE REDET JEDESMAL MIT EINEM [210]IESEN- "
6 PRINT"SCHWALL [215]ORTE AUF [196]ICH EIN.[211]IE SCHIMPFT "
7 PRINT"AUF [196]ICH, FLEHT [196]ICH AN ZU KOMMEN.[211]IE "
8 PRINT"SAGT [196]IR, DASS SIE ALLES MACHEN WILL, "
9 PRINT"WAS [196]U WILLST, WENN [196]U SIE NUR JETZT "
10 PRINT"NICHT IM [211]TICH LAESST. "
11 PRINT"[206]ACH DEM DRITTEN [193]NRUF NIMMST [196]U DEN "
12 PRINT"[200]OERER NICHT MEHR AB.[215]EIL DAS [212]ELEFON "
13 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
14 POKE198,0:WAIT198,1
15 PRINT"[147]UNENTWEGT KLINGELT, LAESST [196]U SOGAR DEN "
16 PRINT"[200]OERER NEBEN DEM [212]ELEFON LIEGEN. "
17 PRINT"[212]ROTZDEM FINDEST [196]U IN DIESER [206]ACHT "
18 PRINT"KEINEN [211]CHLAF. "
19 PRINT"[196]U GEHST AM NAECHSTEN [205]ORGEN GERAEDERT "
20 PRINT"ZUR [193]RBEIT. "
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 269 [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,0:POKE50055,6
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