home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
games
/
dis1893.d64
/
200
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-07-31
|
2KB
|
48 lines
1 POKE50050,2:POKE50051,0:POKE50052,0
2 PRINT"[147][159][193]UCH AM NAECHSTEN [193]BEND IST ES NICHT "
3 PRINT"ANDERS : [193]LS [196]U WIE ZUFAELLIG IHR VON "
4 PRINT"EINEM INDISCHEN [203]LEID BEDECKTES [203]NIE "
5 PRINT"STREIFST, RUECKT SIE ZWEI [205]ETER VON [196]IR "
6 PRINT"WEG.[196]ABEI HOERT SIE NICHT AUF, [196]ICH "
7 PRINT"VERLANGEND ANZUGUCKEN.[206]ACHDEM [204]OTTE AN "
8 PRINT"DIESEM [193]BEND GEGANGEN IST, KANNST [196]U "
9 PRINT"NICHT EINSCHLAFEN.[196]U GRUEBELST.[200]AT ES "
10 PRINT"[211]INN MIT DIESEM [205]AEDCHEN ? [200]AT ES [211]INN "
11 PRINT"FUER SOLCHE [212]REFFS DAS [199]EREDE DER "
12 PRINT"[203]OLLEGEN ZU ERTRAGEN ? "
13 PRINT" >[215]EITER MIT [212]ASTENDRUCK<"
14 POKE198,0:WAIT198,1
15 PRINT"[147][215]AS FUER EIN [199]ESPOETT, WENN DIE "
16 PRINT"WUESSTEN, WAS LOS IST ! "
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 312 [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,1
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